VB做一个简单网页窗口
我已发
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
上一篇：网页的地址栏用VB咋做
多重随机标签
如何开发app软件流程怎样 肃宁县育英中学历史沿革 电商培训是培训啥的 烟台芝罘区星耀艺术培训学校有限公司怎么样 郑州的服装厂都在那里 气泡的意思气泡的意思是什么 请问西安北郊最好的家政保洁公司是哪家 wordpress制作出来的个人网站和使用htmlcssjavascript等这样制作的优缺点有哪些 现在的网红护肤品牌hfp是如何在做微信公号营销的吗 宁波六部门联合发布房产调控新政4月17日起实施 广东著名医院将建新院区设床位多少张呢 咸宁旅游景点排名前十 天津人事考试网打不开了谁知道怎么回事 应该掌握的企业战略规划内容包括 如何优化标题关键词 自贸区注册公司和离岸公司注册的区别 香港服务器稳定吗 融资规划师背景 适合在中秋节手抄报上写的字 英文介绍中国特色美食带翻译 宣城市城市建设集团有限公司怎么样 iphone 6s系列的3d触控和实时照片功能如何在宣传短片中展示 适合小型企业的财务软件有哪些好用 我要怎么回答 西部数码的代理商新锐网络居然把我的ftp密码给擅自修改了我该怎么办 玩物得志上的玉是真玉吗 中国新兴建设开发总公司组织机构 用地规划选址工作是什么意思 幼儿园小班签到墙有什么意义 做一个外贸b2c网站需要多少钱