增加一個(gè)模塊
從事成都服務(wù)器托管,服務(wù)器租用,云主機(jī),網(wǎng)絡(luò)空間,域名注冊(cè),CDN,網(wǎng)絡(luò)代維等服務(wù)。
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父窗體啟動(dòng)時(shí)
sub form_load()
mdifather=me
end sub
加載子窗體使用
sub button1_click()
dim newform as new formson
OpenNewSon(newform)
end sub
這東西改不了,要想改的話(huà)要在系統(tǒng)顯示設(shè)置里修改主題。
不過(guò)如果想做的漂亮些,可以去網(wǎng)上找代碼把整個(gè)窗體改成藍(lán)色(隨便一種顏色)然后用代碼把窗體藍(lán)色部分扣去,可以PS一個(gè)窗體圖片,插到窗體上,這樣這個(gè)窗體藍(lán)色部分都被扣去了(圖片里的藍(lán)色無(wú)法扣去)只能看見(jiàn)一張圖片,可以在上面加控件。
不對(duì),name屬性就相當(dāng)于一個(gè)人的名字,是在窗體設(shè)計(jì)階段就應(yīng)該設(shè)置的,為只讀屬性,在代碼中只能調(diào)用,不可以更改。
而顯示在窗體上的標(biāo)題應(yīng)該是用caption屬性,這個(gè)屬性在代碼中既可以讀取也可以隨時(shí)更改。
VB中,如果要設(shè)置窗體的標(biāo)題欄,應(yīng)選擇Caption屬性。
caption 屬性設(shè)置或返回表格的 caption 元素。
caption 元素定義了一個(gè)表格標(biāo)題。caption 標(biāo)簽必須緊跟在 table 標(biāo)簽之后,每個(gè)表格僅能規(guī)定一個(gè) caption。通常,caption 會(huì)位于表格之上居中的位置。
語(yǔ)法:tableObject.caption=captionObject。
擴(kuò)展資料
VB中窗體的常用屬性
1、BorderStyle屬性:設(shè)置窗體的邊框樣式,屬性取值分別為0(窗體沒(méi)有外邊框)、1(窗體大小固定不變)、2(運(yùn)行時(shí)窗體大小可以改變)、3(運(yùn)行時(shí)窗體大小不可以改變)、4(運(yùn)行時(shí)窗體大小不可以改變)、5(運(yùn)行時(shí)窗體大小可以改變)。
2、MaxButton和MinButton屬性:MaxButton屬性設(shè)置窗體右上方的最大化按鈕是否可用,值為T(mén)rue,最大化按鈕可用,值為False,最大化按鈕不可用。MinButton屬性設(shè)置窗體右上方的最小化按鈕是否可用,值為T(mén)rue,最大化按鈕可用,值為False,最大化按鈕不可用。
3、ControlBox屬性:設(shè)置窗體左上方是否有控制菜單,值為T(mén)rue則顯示,值為False不顯示。
4、Lcon屬性:設(shè)置窗體運(yùn)行時(shí)標(biāo)題欄左邊顯示的圖標(biāo)。
5、Picture屬性:設(shè)置窗體的背景圖片,可以根據(jù)需要插入圖片。
6、AutoRedraw屬性:設(shè)置窗體上的內(nèi)容是否自動(dòng)重畫(huà),值為T(mén)rue時(shí)內(nèi)容自動(dòng)重畫(huà),值為False則不自動(dòng)重畫(huà)。