| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]通过代码动态加窗口和控件 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=72319) |
| -- 作者：l1q2lq -- 发布时间：2015/7/28 11:36:00 -- [求助]通过代码动态加窗口和控件 Dim frm As New Windows.Forms.Form frm.Text = "欢迎使用" frm.Topmost = True frm.width = 500 frm.height = 300 frm.Show frm.Top = (SysInfo.ScreenHeight - frm.height) / 2 frm.left = (SysInfo.ScreenWidth - frm.width) / 2 怎么加入图片和网页浏览器控件并绑定具体内容，设置控件位置
|
| -- 作者：大红袍 -- 发布时间：2015/7/28 11:44:00 -- 比如，加入pictureBox，其余控件同理
Dim frm As New Windows.Forms.Form
Dim pic As new Windows.Forms.PictureBox
Dim web As new Windows.Forms.Webbrowser web.Navigate("http://www.foxtable.com")
frm.Show |
| -- 作者：l1q2lq -- 发布时间：2015/7/28 14:46:00 -- 如果设置LAB控件，怎么设定字体、粗体、字号啊， Dim lab As new Windows.Forms.Label lab.Text = "欢迎使用物料管理系统" lab.width = 200 lab.height = 20 lab.Top = 225 lab.left = 100 frm.Controls.Add(lab) 另外问下，这个动态窗口怎么设定置于那个“正在打开文件，请稍后”之前，在项目打开后关闭 [此贴子已经被作者于2015/7/28 14:47:31编辑过]
|
| -- 作者：大红袍 -- 发布时间：2015/7/28 14:57:00 -- 1、加粗
Dim lab As new Windows.Forms.Label
2、置前
frm.TopMost = True
|
| -- 作者：l1q2lq -- 发布时间：2015/7/28 15:05:00 -- [此贴子已经被作者于2015/7/28 15:11:21编辑过]
|
| -- 作者：大红袍 -- 发布时间：2015/7/28 15:07:00 -- Dim frm As New Windows.Forms.Form
上面这句代码去掉，去全局代码那里，定义一个变量
Public frm As New Windows.Forms.Form
然后在AfterOpenProject那里写
frm.Close |
| -- 作者：l1q2lq -- 发布时间：2015/7/28 15:11:00 -- 多谢多谢，还有最后一个问题，遮挡不住那个字 [此贴子已经被作者于2015/7/28 15:25:06编辑过]
|
| -- 作者：大红袍 -- 发布时间：2015/7/28 15:18:00 -- 把这句代码 frm.Topmost = True
写到项目事件->加载的所有事件去试试 |
| -- 作者：l1q2lq -- 发布时间：2015/7/28 15:22:00 -- 写进加载外部表前那里，搞定了，谢谢 |