亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 學院 > 開發設計 > 正文

在VB中實現移動沒有標題欄的窗口

2019-11-18 17:40:49
字體:
來源:轉載
供稿:網友
方法一


  這種方法是在窗體的MouseDown、MouseUp和MouseMove等事件的處理過程中添加代碼,實現在鼠標左鍵按下后移動時,改變窗體的Left和Top屬性,實現移動無標題欄的窗體。

  進入VB,把窗體Form1的BorderStyle屬性設置為0-None(無標題欄),再窗體上添加一個ButtonCommand組件,用來關閉程序。代碼如下:

  PRivateTypePOINT

   XAsSingle

   YAsSingle

  EndType

  DimFormPaspOINT

  '記錄窗體原始位置

  DimMousePAsPOINT

  '記錄鼠標按下時的位置

  DimMouseLButtonDownAsBoolean

  '記錄鼠標左鍵是否按下

  PrivateSubCommand1_Click()

   End'退出程序

  EndSub

  PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

   FormP.X=Form1.Left

  '記下窗體原始坐標位置

   FormP.Y=Form1.Top

   MouseP.X=X

  '記下鼠標按下時的位置

   MouseP.Y=Y

   IfButton=1Then

   MouseLButtonDown=True

  '鼠標左鍵按下

   EndIf

  EndSub

  PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

   IfMouseLButtonDownThen

   Form1.Left=FormP.X (X-MouseP.X)'移動窗體

   Form1.Top=FormP.Y (Y-MouseP.Y)

   EndIf

  EndSub

  PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

   MouseLButtonDown=False

  '鼠標左鍵彈起

  EndSub

  上述方法不是很完善,制作出的窗體被拖動時,窗體會隨鼠標的移動而移動。而在默認的Windows設置中拖動窗體時,被拖動的窗體不會隨窗體的移動而移動,隨窗體移動的僅是一個與窗體形狀、大小一樣的虛框,只有釋放鼠標后,窗體才會移動到釋放鼠標時虛框的所在處。要實現這種效果,請看第二種方法。

  方法二

  這種方法通過消息的發送實現移動無標題窗體。當鼠標按下、移動或釋放時,將鼠標在窗體上按下的消息(消息值為HTCAPTION)發出,就可以拖動窗體了。代碼如下:

  PrivateDeclareFunctionReleaseCaptureLib"user32"()AsLong

  PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,

  ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLong

  PrivateConstWM_NCLBUTTONDOWN=&&HA1

  PrivateConstHTCAPTION=2

  '以上API函數和常數的聲明可在VB自帶的“API瀏覽器”中找到

  PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

   '在窗體的MouseDown事件中添加以下代碼

   IfButton=1Then

   CallReleaseCapture

   CallSendMessage(hwnd,WM_NCLBUTTONDOWN,HTCAPTION,0)

   EndIf

  EndSub

  PrivateSubCommand1_Click()

  End  '退出程序

  EndSub

  這種方法實現起來比第一種方法更容易,只有幾行代碼,并且沒有那么多的變量,窗體被拖動時與普通窗體一樣,只有一個虛框隨鼠標的移動而移動,當釋放鼠標時窗體才移動到相應的位置。用到了兩個API函數。

  以上程序在VB6.0和Windows98SE下調試通過。->


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
国产精品一区av| 欧美日本精品在线| 欧美巨大黑人极品精男| 中文字幕欧美精品在线| 福利视频导航一区| 欧美精品在线网站| 成人444kkkk在线观看| 亚洲精品美女久久久久| 久久久精品美女| 日韩欧美一区二区在线| 日韩在线观看av| 国产精品久久久久久久久久东京| 欧美高跟鞋交xxxxxhd| 欧美最近摘花xxxx摘花| 最新的欧美黄色| 91av视频在线观看| 91国产中文字幕| 综合激情国产一区| 最近中文字幕mv在线一区二区三区四区| 成人国产在线激情| 日韩电影免费观看在线| 亚洲国产精彩中文乱码av在线播放| 亚洲大胆人体在线| 5566日本婷婷色中文字幕97| 91久久久国产精品| 97精品国产97久久久久久春色| 国产精品视频导航| 亚洲成人av中文字幕| 欧美日韩在线影院| 欧美成人亚洲成人| 精品国产乱码久久久久久虫虫漫画| 国产欧美 在线欧美| 欧美黑人性猛交| 国产亚洲精品综合一区91| 成人www视频在线观看| 精品国产网站地址| 91av视频在线免费观看| 久久久久久这里只有精品| 尤物99国产成人精品视频| 欧美成人免费va影院高清| 欧美肥老太性生活视频| 国产一区二区久久精品| 精品无人区乱码1区2区3区在线| 美女av一区二区三区| 欧美日在线观看| 不卡毛片在线看| 日韩av综合网| zzjj国产精品一区二区| 亚洲欧美在线x视频| 欧美亚洲成人xxx| 欧美成人性色生活仑片| 中文字幕久精品免费视频| 91网站在线免费观看| 欧美在线一区二区视频| 成人免费观看a| 成人97在线观看视频| 奇门遁甲1982国语版免费观看高清| 欧美性xxxxxxx| 日韩免费av片在线观看| 日韩高清人体午夜| 久久人体大胆视频| 成人在线视频网站| 国产精品久久一区主播| 欧美激情2020午夜免费观看| 中文字幕一区二区三区电影| 日产日韩在线亚洲欧美| 成人欧美一区二区三区在线| 欧美激情奇米色| 久久久久久九九九| 亚洲另类激情图| 97在线视频免费观看| 免费99精品国产自在在线| 精品成人在线视频| 91九色单男在线观看| 亚洲黄色www| 日韩欧美视频一区二区三区| 久久精品免费电影| 最新中文字幕亚洲| 亚洲欧洲xxxx| 亚洲欧美日韩一区二区三区在线| 超碰日本道色综合久久综合| 日韩精品在线观看网站| 精品国产自在精品国产浪潮| 一区二区三区视频在线| 成人激情视频在线播放| 亚洲欧洲在线免费| 欧美中文在线字幕| 日韩一区二区精品视频| 欧美大肥婆大肥bbbbb| 欧美情侣性视频| 国内外成人免费激情在线视频| 97国产精品视频人人做人人爱| 久久天天躁狠狠躁老女人| 亚洲欧美第一页| 日韩一区二区三区在线播放| 精品国内亚洲在观看18黄| 九九热99久久久国产盗摄| 久久久久国产视频| 欧美一区深夜视频| 亚洲欧美国产精品| 色伦专区97中文字幕| 中文字幕亚洲综合久久筱田步美| 中文字幕日韩电影| 欧美在线视频免费| 国产亚洲欧美日韩一区二区| 97**国产露脸精品国产| 午夜精品三级视频福利| 狠狠色狠狠色综合日日小说| 欧美日韩亚洲精品一区二区三区| 成人国产在线视频| 国产综合视频在线观看| 欧美日韩亚洲天堂| 7777kkkk成人观看| 在线观看日韩视频| 国产日韩欧美综合| 日韩精品一区二区视频| 亚洲欧美国产高清va在线播| 久久久久久成人| 精品国产一区av| 午夜精品99久久免费| 久久精品国产91精品亚洲| 午夜精品一区二区三区在线播放| 欧洲日本亚洲国产区| 国产精品久久久久久久久久久新郎| 第一福利永久视频精品| 2019最新中文字幕| 成人激情综合网| 清纯唯美日韩制服另类| 日本午夜人人精品| 欧美激情亚洲激情| 日韩欧美999| 欧美限制级电影在线观看| 精品色蜜蜜精品视频在线观看| 日韩视频第一页| 国产精品美女av| 国产午夜精品美女视频明星a级| 日韩亚洲精品电影| 伊人久久大香线蕉av一区二区| 国产成人免费av电影| 亚洲第一在线视频| 91亚洲精品久久久久久久久久久久| 国产精品欧美在线| 成人国产精品一区| 亚洲福利视频二区| 欧美日韩性视频在线| 国产主播欧美精品| 欧美裸体xxxx极品少妇| 精品国产精品三级精品av网址| 久久久久免费视频| 国产精品永久在线| 日韩久久免费视频| 国产一区av在线| 日韩精品在线视频| 国产精品入口免费视| 久久69精品久久久久久久电影好| 亚洲男人天堂2023| 亚洲色图狂野欧美| 亚洲乱码国产乱码精品精| 国产精品欧美日韩一区二区| 日韩在线观看免费全集电视剧网站| 日本欧美爱爱爱| 91香蕉嫩草神马影院在线观看| 欧美巨乳在线观看| 欧美最猛性xxxxx(亚洲精品)|