網(wǎng)站制作NEWS
SCROLL
VB做一個(gè)簡單網(wǎng)頁窗口
我已發(fā)
Private Sub Form_Load()
If Dir(App.Path & "\1.ini") = "" Then
Else
Open App.Path & "\1.ini" For Input As #1
Line Input #1, a
Line Input #1, b
Line Input #1, c
Form1.Width = a
Form1.Height = b
WebBrowser1.Navigate c
Close
End If
WebBrowser1.Width = Form1.Width
WebBrowser1.Height = Form1.Height
End Sub
Private Sub Form_Resize()
WebBrowser1.Width = Form1.Width
WebBrowser1.Height = Form1.Height
End Sub
Private Sub Form_Unload(Cancel As Integer)
Open App.Path & "\1.ini" For Output As #2
Print #2, Form1.Width
Print #2, Form1.Height
Print #2, WebBrowser1.LocationURL
Close
End Sub
標(biāo)簽： vb做一個(gè)簡單網(wǎng)頁窗口
多重隨機(jī)標(biāo)簽