日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

RELATEED CONSULTING
相關(guān)咨詢(xún)
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問(wèn)題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷(xiāo)解決方案
講述VB.NET窗體特殊問(wèn)題及處理

經(jīng)過(guò)長(zhǎng)時(shí)間學(xué)習(xí)VB.NET窗體，于是和大家分享一下，從VB6到VB.NET的開(kāi)發(fā)過(guò)程中，VB.NET窗體應(yīng)用始終是一個(gè)永恒的話(huà)題，看完本文你肯定有不少收獲，希望本文能教會(huì)你更多東西。任何一個(gè) WINDOWS的應(yīng)用程序，都與窗體密切相關(guān)，在許多場(chǎng)合，我們都需要對(duì)窗體進(jìn)行一些特殊的設(shè)置或操作，本文用VB6和VB.NET相結(jié)合，來(lái)說(shuō)明VB.NET窗體應(yīng)用的特殊問(wèn)題及處理，以及VB.NET給我們帶來(lái)的新的功能！以下下介紹使窗體在其他所有窗體之上(Allway On Top)VB6中實(shí)現(xiàn)（借助API函數(shù)SetWindowPos）

 
 
 
    
  
  
  
  1. PrivateDeclareFunction SetWindowPos Lib "user32" (ByVal hwnd AsLong, 
    _ByVal hWndInsertAfter AsLong, ByVal x AsLong, ByVal y AsLong, 
    _ByVal cx AsLong, ByVal cy AsLong, ByVal wFlags AsLong) AsLong 
    2.

#t#hWnd變?cè)谴翱诘木浔?；x，y是窗口的左上角的坐標(biāo)；cx、cy是窗口寬度和高度；hWndInsertAfter變?cè)谴翱谇鍐沃衕Wnd窗口前面的窗口句柄，有四個(gè)可選值：
序號(hào) 可 選 值 作 用
1 HWND_BOTTOM 把窗口放在窗口清單的底部
2 HWND_TOP 把窗口放在窗口清單的字符順序的頂部
3 HWND_TOPMOST 把窗口放在窗口清單的頂部
4 HWND_NOTOPMOST 把窗口放在窗口清單的頂部，最上層窗口之下

WFlags變?cè)獮檎椭?，有八個(gè)可選值：
序號(hào) 可 選 值 作用
1 SWP_DRAWFRAME 在窗口周?chē)?huà)一個(gè)方框
2 SWP_HIDEWINDOW 隱藏窗口
3 SWP_NOACTIVATE 不激活窗口
4 SWP_NOMOVE 保持窗口當(dāng)前位置
5 SWP_NOREDRAW 窗口不自動(dòng)重畫(huà)
6 SWP_NOSIZE 保持窗口當(dāng)前尺寸
7 SWP_NOZORDER 保持窗口在窗口清單中的當(dāng)前位置
8 SWP_SHOWWINDOW 顯示窗口

 
 
 
    
  
  
  
  1. PrivateDeclareFunction SetWindowPos Lib "user32" (ByVal hwnd AsLong, 
    _ByVal hWndInsertAfter AsLong, ByVal x AsLong, ByVal y AsLong, 
    _ByVal cx AsLong, ByVal cy AsLong, ByVal wFlags AsLong) AsLong  
    2. 
  
  
  
  2. PrivateConst SWP_NOMOVE = 2 
    3. 
  
  
  
  3. PrivateConst SWP_NOSIZE = 1 
    4. 
  
  
  
  4. PrivateConst FLAGS = SWP_NOMOVE Or SWP_NOSIZE  
    5. 
  
  
  
  5. PrivateConst HWND_TOPMOST = -1  
    6. 
  
  
  
  6. PrivateConst HWND_NOTOPMOST = -2  
    7. 
  
  
  
  7.    
    8. 
  
  
  
  8. PrivateSub Command1_Click()  
    9. 
  
  
  
  9. '把窗體放在最前面：  
    10. 
  
  
  
  10. res% = SetWindowPos(Form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)  
    11. 
  
  
  
  11. EndSub  
    12. 
  
  
  
  12.    
    13. 
  
  
  
  13. PrivateSub Command2_Click()  
    14. 
  
  
  
  14. '使窗體恢復(fù)普通模式：  
    15. 
  
  
  
  15. res% = SetWindowPos(Form1.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)  
    16. 
  
  
  
  16. EndSub 
    17.

在VB.NET窗體中，太簡(jiǎn)單了！系統(tǒng)為窗體提供了TopMost屬性，我們將TopMost屬性設(shè)置為T(mén)rue，就實(shí)現(xiàn)了Allways On Top 的功能，要取消此功能，設(shè)置為False即可。

 
 
 
    
  
  
  
  1. PrivateSub Form1_Load(ByVal sender As System.Object, 
    ByVal e As System.EventArgs) HandlesMyBase.Load  
    2. 
  
  
  
  2. Me.TopMost = True 
    3. 
  
  
  
  3. EndSub 
    4.

本文題目：講述VB.NET窗體特殊問(wèn)題及處理
文章來(lái)源：http://www.dlmjj.cn/article/djephpo.html