VB
发布时间:2022-04-03 发布网站:大佬教程 code.js-code.com
大佬教程收集整理的这篇文章主要介绍了vb制作简单的多窗口浏览器(2)-- form初始化,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
框架都搭好了,现在开始主要是代码了.
先定义变量
接下来是form_load
- PrivateSubForm_Load()
- DimtmpstrAsString
- activepage=0
- @R_343_10586@lpage=1
- display=1
- SSTab1.Tabs=@R_343_10586@lpage
- WebBrowser1(activepagE).Navigate"about:blank"
- Combo1.AddItem("www.baidu.com")
- Combo1.AddItem("www.google.com")
- Combo1.AddItem("www.17173.com")
- Combo1.AddItem("www.yahoo.com")
- Combo1.AddItem("www.sina.com")
- Combo1.AddItem("www.online.sh.cn")
- Label1.Caption="总共"&@R_343_10586@lpage&"显示"&display
- Label2.Caption="当前"&activepage
- Label3.Caption="删除"&delflag
- StatusBar1.ZOrder0
- ProgressBar1.ZOrder0
- StatusBar1.Panels(1).Width=7700
- StatusBar1.Panels(1).bevel=sbrNoBevel
- StatusBar1.Panels.Add(2)
- StatusBar1.Panels(2).Width=1000
- StatusBar1.Panels(2).bevel=sbrNoBevel
- StatusBar1.Panels(2).Text="当前时间:"
- StatusBar1.Panels.Add(3)
- StatusBar1.Panels(3).Width=1000
- StatusBar1.Panels(3).bevel=sbrNoBevel
- StatusBar1.Panels(3).Style=sbrDate
- StatusBar1.Panels.Add(4)
- StatusBar1.Panels(4).Width=700
- StatusBar1.Panels(4).bevel=sbrNoBevel
- StatusBar1.Panels(4).Style=sbrTime
- StatusBar1.Panels.Add(5)
- StatusBar1.Panels(5).Width=2700
- StatusBar1.Panels(5).bevel=sbrNoBevel
- StatusBar1.Panels.Add(6)
- StatusBar1.Panels(6).Width=900
- StatusBar1.Panels(6).Picture=Picture29.Picture
- StatusBar1.Panels(6).Text="普通"
- a=ReadIni("./gr.ini","conf","searchENGIn",tmpstr,10)
- Iftmpstr=1Then
- Text1.Text="BaiduSearch"
- Else
- Text1.Text="GoogleSearch"
- EndIf
- Text1.ForeColor=
- Skin1.LoadSkin"skin/wmac.skn"
- Skin1.ApplySkin@H_115_15@me.hWnd
- EndSub
至少这个form_load目前来说功能是够了,接下来加入form_resize
- PrivateSubForm_Resize()
- If@H_115_15@me.Width<13000Then@H_115_15@me.Width=13000
- If@H_115_15@me.Height<3000Then@H_115_15@me.Height=3000
- If@H_115_15@me.WindowState<>1Then
- Combo1.Width=@H_115_15@me.Width-11730
- Picture6.Left=@H_115_15@me.Width-3530
- Text1.Left=@H_115_15@me.Width-3000
- Picture3.Left=@H_115_15@me.Width-800
- SSTab1.Width=@H_115_15@me.Width-120
- SSTab1.Height=@H_115_15@me.Height-1100
- Fori=0To@R_343_10586@lpage-1
- IfDoesControlExist(WebBrowser1(i))Then
- WebBrowser1(i).Top=340
- WebBrowser1(i).Width=@H_115_15@me.Width-120
- WebBrowser1(i).Height=@H_115_15@me.Height-1800
- EndIf
- Next
- EndIf
- ProgressBar1.Top=@H_115_15@me.Height-800
- EndSub
PS:这里的resize不包括statusbar上的东西,因为目前正在做statusbar.
大佬总结
以上是大佬教程为你收集整理的vb制作简单的多窗口浏览器(2)-- form初始化全部内容,希望文章能够帮你解决vb制作简单的多窗口浏览器(2)-- form初始化所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。