新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
增加一个模块
从事成都服务器托管,服务器租用,云主机,网络空间,域名注册,CDN,网络代维等服务。
module mgrmdi
public mdifather as form=nothing
public mdison as integer=1
public sub OpenNewSon(byref SonForm as form)
___sonform.mdiparent=mdifather
___sonform.text=string.format("子窗体{0}",mdison.tostring)
___sonform.show
___mdison+=1
end module
在mdi父窗体启动时
sub form_load()
mdifather=me
end sub
加载子窗体使用
sub button1_click()
dim newform as new formson
OpenNewSon(newform)
end sub
这东西改不了,要想改的话要在系统显示设置里修改主题。
不过如果想做的漂亮些,可以去网上找代码把整个窗体改成蓝色(随便一种颜色)然后用代码把窗体蓝色部分扣去,可以PS一个窗体图片,插到窗体上,这样这个窗体蓝色部分都被扣去了(图片里的蓝色无法扣去)只能看见一张图片,可以在上面加控件。
不对,name属性就相当于一个人的名字,是在窗体设计阶段就应该设置的,为只读属性,在代码中只能调用,不可以更改。
而显示在窗体上的标题应该是用caption属性,这个属性在代码中既可以读取也可以随时更改。
VB中,如果要设置窗体的标题栏,应选择Caption属性。
caption 属性设置或返回表格的 caption 元素。
caption 元素定义了一个表格标题。caption 标签必须紧跟在 table 标签之后,每个表格仅能规定一个 caption。通常,caption 会位于表格之上居中的位置。
语法:tableObject.caption=captionObject。
扩展资料
VB中窗体的常用属性
1、BorderStyle属性:设置窗体的边框样式,属性取值分别为0(窗体没有外边框)、1(窗体大小固定不变)、2(运行时窗体大小可以改变)、3(运行时窗体大小不可以改变)、4(运行时窗体大小不可以改变)、5(运行时窗体大小可以改变)。
2、MaxButton和MinButton属性:MaxButton属性设置窗体右上方的最大化按钮是否可用,值为True,最大化按钮可用,值为False,最大化按钮不可用。MinButton属性设置窗体右上方的最小化按钮是否可用,值为True,最大化按钮可用,值为False,最大化按钮不可用。
3、ControlBox属性:设置窗体左上方是否有控制菜单,值为True则显示,值为False不显示。
4、Lcon属性:设置窗体运行时标题栏左边显示的图标。
5、Picture属性:设置窗体的背景图片,可以根据需要插入图片。
6、AutoRedraw属性:设置窗体上的内容是否自动重画,值为True时内容自动重画,值为False则不自动重画。