vb制作简单的多窗口浏览器(2)-- form初始化

框架都搭好了,现在开始主要是代码了.

 

先定义变量

1. '一共打开多少页
2. Dim totalpage As Integer
3. '当前页
4. Dim activepage As Integer
5. Dim i As Integer
6. '删除了多少页
7. Dim delflag As Integer
8. '显示多少页
9. Dim display As Integer
10. '按钮不闪烁
11. Dim noflash As Integer

接下来是form_load

1. Private Sub Form_Load()
2.     Dim tmpstr As String
3.     activepage = 0
4.     totalpage = 1
5.     display = 1
6.     SSTab1.Tabs = totalpage
7.     '页面留白
8.     WebBrowser1(activepage).Navigate "about:blank"
9.     '预设几个URL,方便测试
10.     Combo1.AddItem ("www.baidu.com")
11.     Combo1.AddItem ("www.google.com")
12.     Combo1.AddItem ("www.17173.com")
13.     Combo1.AddItem ("www.yahoo.com")
14.     Combo1.AddItem ("www.sina.com")
15.     Combo1.AddItem ("www.online.sh.cn")
16.     '于是几个label,方便测试
17.     Label1.Caption = "总共" & totalpage & "显示" & display
18.     Label2.Caption = "当前" & activepage
19.     Label3.Caption = "删除" & delflag
20.     'SSTab1.ZOrder 1
21.     'Picture29.ZOrder 0
22.     'Picture30.ZOrder 0
23.     StatusBar1.ZOrder 0
24.     ProgressBar1.ZOrder 0
26.     '状态栏初始化
27.     StatusBar1.Panels(1).Width = 7700
28.     StatusBar1.Panels(1).Bevel = sbrNoBevel
29.     StatusBar1.Panels.Add (2)
30.     StatusBar1.Panels(2).Width = 1000
31.     StatusBar1.Panels(2).Bevel = sbrNoBevel
32.     StatusBar1.Panels(2).Text = "当前时间:"
33.     StatusBar1.Panels.Add (3)
34.     StatusBar1.Panels(3).Width = 1000
35.     StatusBar1.Panels(3).Bevel = sbrNoBevel
36.     StatusBar1.Panels(3).Style = sbrDate
37.     StatusBar1.Panels.Add (4)
38.     StatusBar1.Panels(4).Width = 700
39.     StatusBar1.Panels(4).Bevel = sbrNoBevel
40.     StatusBar1.Panels(4).Style = sbrTime
41.     StatusBar1.Panels.Add (5)
42.     StatusBar1.Panels(5).Width = 2700
43.     StatusBar1.Panels(5).Bevel = sbrNoBevel
44.     StatusBar1.Panels.Add (6)
45.     StatusBar1.Panels(6).Width = 900
46.    ' StatusBar1.Panels(6).Bevel = sbrNoBevel
47.     StatusBar1.Panels(6).Picture = Picture29.Picture
48.     StatusBar1.Panels(6).Text = "普通"
50. '读取ini默认引擎
51.     a = ReadIni("./gr.ini", "conf", "searchengin", tmpstr, 10)
52.     If tmpstr = 1 Then
53.         Text1.Text = "Baidu Search"
54.     Else
55.         Text1.Text = "Google Search"
56.     End If
57.     Text1.ForeColor = 
58.     
59. '皮肤定义
60.     Skin1.LoadSkin "skin/wmac.skn"
61.     Skin1.ApplySkin Me.hWnd
62. End Sub

至少这个form_load目前来说功能是够了,接下来加入form_resize

1. Private Sub Form_Resize()
2.     '窗口大小最小限制
3.     If Me.Width < 13000 Then Me.Width = 13000
4.     If Me.Height < 3000 Then Me.Height = 3000
6.     If Me.WindowState <> 1 Then
7.          Combo1.Width = Me.Width - 11730
8.          Picture6.Left = Me.Width - 3530
9.          Text1.Left = Me.Width - 3000
10.          Picture3.Left = Me.Width - 800
11.          SSTab1.Width = Me.Width - 120
12.          SSTab1.Height = Me.Height - 1100
14.          For i = 0 To totalpage - 1
15.              If DoesControlExist(WebBrowser1(i)) Then
16.                 WebBrowser1(i).Top = 340
17.                 WebBrowser1(i).Width = Me.Width - 120
18.                 WebBrowser1(i).Height = Me.Height - 1800
19.              End If
20.          Next
21.     End If
22.     'skin更新后需要调整
23.     ProgressBar1.Top = Me.Height - 800
25. End Sub

PS:这里的resize不包括statusbar上的东西,因为目前正在做statusbar.