建站
咨詢
售后
建站咨詢
新聞中心
VB編程設(shè)計(jì)一個(gè)窗體？
Dim x As IntegerPrivate Sub Form_Click()If x = 0 Thenx = x + 1Me.Caption = "歡迎你的到來"Me.Width = 4700Me.Height = 3500Label1.Caption = "VB程序設(shè)計(jì)"Elsex = 0Call Form_LoadEnd IfEnd SubPrivate Sub Form_Load()Me.Caption = "VB程序設(shè)計(jì)"Me.Width = 4800Me.Height = 3600Label1.Caption = ""End Sub
成都創(chuàng)新互聯(lián)公司是一家專業(yè)提供海曙企業(yè)網(wǎng)站建設(shè),專注與成都網(wǎng)站設(shè)計(jì)、網(wǎng)站制作、HTML5建站、小程序制作等業(yè)務(wù)。10年已為海曙眾多企業(yè)、政府機(jī)構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)網(wǎng)站建設(shè)公司優(yōu)惠進(jìn)行中。
VB窗口樣式怎么設(shè)置？
方法/步驟:
1.首先,我們點(diǎn)擊找到窗體的BackStyle屬性。
2.點(diǎn)擊屬性值可看到諸多選項(xiàng)。
3.點(diǎn)完后我們便可以看到樣式更改。
4.還可以設(shè)置屬性值0。
5.然后我們便可以看到窗體沒有邊框。
6.同樣可以在窗體屬性中選擇更多樣式，根據(jù)自己需求進(jìn)行選擇即可。
vb怎么樣能讓窗體的邊變成圓的？
先創(chuàng)建一個(gè)圓角矩形，然后把窗口的區(qū)域設(shè)置成該矩形代碼如下PrivateDeclareFunctionGetWindowRectLib"user32"(ByValhWndAsLong,lpRectAsRECT)AsLongPrivateDeclareFunctionCreateRoundRectRgnLib"gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong,ByValX3AsLong,ByValY3AsLong)AsLongPrivateDeclareFunctionSetWindowRgnLib"user32"(ByValhWndAsLong,ByValhRgnAsLong,ByValbRedrawAsBoolean)AsLongPrivateTypeRECTLeftAsLongTopAsLongRightAsLongBottomAsLongEndTypePrivateSubForm_Load()DimRecAsRECT,hRgnAsLongGetWindowRectMe.hWnd,RechRgn=CreateRoundRectRgn(0,0,Rec.Right-Rec.Left,Rec.Bottom-Rec.Top,50,50)'這里的兩個(gè)50是分別用來設(shè)置圓角的寬和高的SetWindowRgnMe.hWnd,hRgn,TrueEndSub
到此，以上就是小編對(duì)于vb程序設(shè)計(jì)怎么建立窗口的問題就介紹到這了，希望這3點(diǎn)解答對(duì)大家有用。
本文名稱：vb程序設(shè)計(jì)如何建立窗口
瀏覽地址：http://www.dlmjj.cn/article/copopcd.html
