麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

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

用VB作浮動式圖標提示按鈕

2019-11-18 17:32:40
字體：大 中 小
來源：轉載
供稿：網友
凡是用過WINDOWSOFFICE的用戶，都非常熟悉這種情況，把鼠標移到這個圖標的按鈕上，不一會兒在這圖標的下方會顯示一些簡短的文字，說明這個圖標按鈕的作用。筆者在工作實踐中，用VB實現了上述功能，同時為了使圖標按鈕更具動感，筆者將圖標按鈕設計成浮動式圖標按鈕，即當鼠標移到圖標按鈕上方時，按鈕會自動下沉；鼠標一離開按鈕上方時，按鈕又會自動浮起來。
1.建立含有如下控件的窗體：
控件NAME
CAPTIONVISIBLEBEVELWIDTH
窗體BOTTON－DEMO浮動式圖標按鈕演示程序'程序窗口
3D命令按鈕COMMAND3D11'作為按鈕的陰影，大小與按鈕一致
3D命令按鈕COMMAND3D23'該按鈕與陰影稍微錯位疊加
標簽LABEL1
FALSE'顯示圖標按鈕作用的文字
2.定義兩個整型變量，用來存儲按鈕左上角坐標。
（1）在目標文件列表（OBJECT）中選擇GENERAL，在過程列表（LABEL1.Visible＝True
LABEL1.CAPTION＝“演示”
EndSub
4.當鼠標一離開按鈕時，就將按鈕固定在其原來位置上，就可造成按鈕上浮的視覺效果，同時關閉標簽變量的顯示。
雙擊窗體，進入窗體MOUSEMOVE事件代碼窗口：
SubForm－MouseMove（ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle）
command3D2.Movecomm2－x，comm2－y
LEABEL1.Visible＝False
EndSub
以上程序在ASTPIII＋4／66D上，中文WINDOWS3.2，VISUALBASIC3.0FORWINDOWS環境下運行通過。->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 精品不卡 | 一级做受毛片免费大片 | 777zyz色资源站在线观看 | 哪里可以看免费的av | 国产精品久久久久久久久久东京 | 国产精品久久久久久久亚洲按摩 | 伊人久久电影网 | 久久视频精品 | 午夜视频久久 | 一级做a爱视频 | 成人毛片视频免费看 | 91麻豆精品国产91久久久点播时间 | 极品大长腿啪啪高潮露脸 | 欧美性黄 | 精品国产高清一区二区三区 | 免费看黄色三级毛片 | 毛片a区 | 欧美精品一区二区三区久久久 | 午夜神马电影网 | 国产一国产精品一级毛片 | 操碰视频在线观看 | 亚洲午夜激情网 | 天海翼无删减av三级在线观看 | 2021免费日韩视频网 | 91九色视频在线播放 | 精品在线一区二区三区 | 久久久一二三 | 一区二区三区日本在线观看 | 久久久久国产成人免费精品免费 | 少妇色诱麻豆色哟哟 | 亚洲男人的天堂在线视频 | 欧洲色阁中文字幕 | 99视频在线观看视频 | 国产资源在线免费观看 | 毛片视频网址 | 18pao国产成人免费视频 | 日本成年免费网站 | av最新在线观看 | 日本黄色a视频 | 久久精品日产第一区二区三区 | 羞羞的视频在线免费观看 |