日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關咨詢
選擇下列產品馬上在線溝通
服務時間：8:30-17:00
你可能遇到了下面的問題
關閉右側工具欄

新聞中心

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

經(jīng)過長時間學習VB.NET窗體，于是和大家分享一下，從VB6到VB.NET的開發(fā)過程中，VB.NET窗體應用始終是一個永恒的話題，看完本文你肯定有不少收獲，希望本文能教會你更多東西。任何一個 WINDOWS的應用程序，都與窗體密切相關，在許多場合，我們都需要對窗體進行一些特殊的設置或操作，本文用VB6和VB.NET相結合，來說明VB.NET窗體應用的特殊問題及處理，以及VB.NET給我們帶來的新的功能！以下下介紹使窗體在其他所有窗體之上(Allway On Top)VB6中實現(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變元是窗口的句柄；x，y是窗口的左上角的坐標；cx、cy是窗口寬度和高度；hWndInsertAfter變元是窗口清單中hWnd窗口前面的窗口句柄，有四個可選值：
序號 可 選 值 作 用
1 HWND_BOTTOM 把窗口放在窗口清單的底部
2 HWND_TOP 把窗口放在窗口清單的字符順序的頂部
3 HWND_TOPMOST 把窗口放在窗口清單的頂部
4 HWND_NOTOPMOST 把窗口放在窗口清單的頂部，最上層窗口之下

WFlags變元為整型值，有八個可選值：
序號 可 選 值 作用
1 SWP_DRAWFRAME 在窗口周圍畫一個方框
2 SWP_HIDEWINDOW 隱藏窗口
3 SWP_NOACTIVATE 不激活窗口
4 SWP_NOMOVE 保持窗口當前位置
5 SWP_NOREDRAW 窗口不自動重畫
6 SWP_NOSIZE 保持窗口當前尺寸
7 SWP_NOZORDER 保持窗口在窗口清單中的當前位置
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. '使窗體恢復普通模式：  
    15. 
  
  
  
  15. res% = SetWindowPos(Form1.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)  
    16. 
  
  
  
  16. EndSub 
    17.

在VB.NET窗體中，太簡單了！系統(tǒng)為窗體提供了TopMost屬性，我們將TopMost屬性設置為True，就實現(xiàn)了Allways On Top 的功能，要取消此功能，設置為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.

網(wǎng)頁題目：講述VB.NET窗體特殊問題及處理
轉載來于：http://www.5511xx.com/article/djephpo.html