以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何动态创建窗口并添加控件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125962)
--  作者：starshowercn
--  发布时间：2018/10/10 16:11:00
--  如何动态创建窗口并添加控件
请教大神，如何动态创建窗口，并添加各种控件。
--  作者：有点甜
--  发布时间：2018/10/10 16:18:00
--  

参考

 

Dim frm As New Windows.Forms.Form
frm.Text = "欢迎使用"
frm.Topmost = True
frm.width = 500
frm.height = 500

 

Dim pic As new Windows.Forms.PictureBox
pic.Image = getImage("d:\\test.jpg")
pic.width = 200
pic.height = 100
pic.Top = 10
pic.left =  10
frm.Controls.Add(pic)

 

Dim web As new Windows.Forms.Webbrowser
web.width = 500
web.height = 200
web.Top = 150
web.left =  10

web.Navigate("http://www.foxtable.com")
frm.Controls.Add(web)

 

frm.Show
frm.Top = (SysInfo.ScreenHeight - frm.height) / 2
frm.left = (SysInfo.ScreenWidth - frm.width) / 2
--  作者：starshowercn
--  发布时间：2018/10/10 16:24:00
--  
谢谢！
--  作者：乡里出城
--  发布时间：2019/11/25 12:07:00
--  
OK了
[此贴子已经被作者于2019/11/25 12:08:19编辑过]
--  作者：wei0769
--  发布时间：2019/11/25 14:57:00
--  

Dim frm As New Windows.Forms.Form
 

windows 前面要加　system.

 

 

Dim frm As New system.Windows.Forms.Form