做一個(gè)窗體模板,假設(shè)是Form2
讓客戶滿意是我們工作的目標(biāo),不斷超越客戶的期望值來(lái)自于我們對(duì)這個(gè)行業(yè)的熱愛(ài)。我們立志把好的技術(shù)通過(guò)有效、簡(jiǎn)單的方式提供給客戶,將通過(guò)不懈努力成為客戶在信息化領(lǐng)域值得信任、有價(jià)值的長(zhǎng)期合作伙伴,公司提供的服務(wù)項(xiàng)目有:空間域名、網(wǎng)絡(luò)空間、營(yíng)銷軟件、網(wǎng)站建設(shè)、獲嘉網(wǎng)站維護(hù)、網(wǎng)站推廣。
Dim x as New Form2
x.Show()
如果彈出窗口較多,x可以用動(dòng)態(tài)數(shù)組替代
用ShowDialog()打開(kāi)窗體,對(duì)話框用msgBox()或者M(jìn)essageBox()都是模式的。
Option?Explicit
Private?Declare?Function?CreateRectRgn?Lib?"gdi32"?(ByVal?X1?As?Long,?ByVal?Y1?As?Long,?ByVal?X2?As?Long,?ByVal?Y2?As?Long)?As?Long
Private?Declare?Function?CreateEllipticRgn?Lib?"gdi32"?(ByVal?X1?As?Long,?ByVal?Y1?As?Long,?ByVal?X2?As?Long,?ByVal?Y2?As?Long)?As?Long
Private?Declare?Function?CombineRgn?Lib?"gdi32"?(ByVal?hDestRgn?As?Long,?ByVal?hSrcRgn1?As?Long,?ByVal?hSrcRgn2?As?Long,?ByVal?nCombineMode?As?Long)?As?Long
Private?Declare?Function?SetWindowRgn?Lib?"user32"?(ByVal?hWnd?As?Long,?ByVal?hRgn?As?Long,?ByVal?bRedraw?As?Long)?As?Long
Private?Sub?Form_Resize()
Const?RGN_DIFF?=?4
Dim?outer_rgn?As?Long
Dim?inner_rgn?As?Long
Dim?combined_rgn?As?Long
Dim?wid?As?Single
Dim?hgt?As?Single
Dim?border_width?As?Single
Dim?title_height?As?Single
If?WindowState?=?vbMinimized?Then?Exit?Sub
'?Create?the?regions.
wid?=?ScaleX(Width,?vbTwips,?vbPixels)
hgt?=?ScaleY(Height,?vbTwips,?vbPixels)
outer_rgn?=?CreateRectRgn(0,?0,?wid,?hgt)
border_width?=?(wid?-?ScaleWidth)?/?2
title_height?=?hgt?-?border_width?-?ScaleHeight
inner_rgn?=?CreateEllipticRgn(?_
border_width?+?ScaleWidth?*?0.1,?_
title_height?+?ScaleHeight?*?0.1,?_
ScaleWidth?*?0.9,?ScaleHeight?*?0.9)
'?Subtract?the?inner?region?from?the?outer.
combined_rgn?=?CreateRectRgn(0,?0,?0,?0)
CombineRgn?combined_rgn,?outer_rgn,?_
inner_rgn,?RGN_DIFF
'?Restrict?the?window?to?the?region.
SetWindowRgn?hWnd,?combined_rgn,?True
End?Sub
用這個(gè)函數(shù)沒(méi)錯(cuò)。
你的hwnd沒(méi)有寫(xiě)清楚,這樣hwnd是沒(méi)定義的,要指定具體窗體的hwnd,如form1.hwnd
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
SetWindowLong hwnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes hwnd, H80C0FF, 0, LWA_COLORKEY
中的hwnd參數(shù),全部改成 me.hwnd ,即當(dāng)前窗口的hwnd
兩個(gè)顯示器顯示有兩種模式,一種是
雙屏
復(fù)制,另一種是擴(kuò)展。
你這個(gè)只能用第二種方式。你需要把要在另一個(gè)顯示器上顯示的窗體的Location設(shè)置在主顯示器全屏?xí)r的右邊就可以了.其實(shí)就是桌面的向右延伸。
在主顯示上拖一下窗體就明白了!
新聞名稱:vb.net異形窗口,windows異形窗口
文章分享:http://aaarwkj.com/article28/dsiesjp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供企業(yè)建站、域名注冊(cè)、商城網(wǎng)站、品牌網(wǎng)站制作、網(wǎng)站策劃、定制網(wǎng)站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)
猜你還喜歡下面的內(nèi)容