国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 學(xué)院 > 開(kāi)發(fā)設(shè)計(jì) > 正文

用VB作浮動(dòng)式圖標(biāo)提示按鈕

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

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 临桂县| 普安县| 长治县| 荥阳市| 原平市| 开鲁县| 渭源县| 合阳县| 白河县| 灵璧县| 曲靖市| 漳州市| 陕西省| 平远县| 宜君县| 云南省| 咸丰县| 綦江县| 青海省| 河池市| 泰安市| 霸州市| 都兰县| 喜德县| 阜宁县| 塔河县| 乌鲁木齐县| 密山市| 辉南县| 韩城市| 阿拉善左旗| 和静县| 宁化县| 夏河县| 麟游县| 成都市| 金山区| 锦屏县| 应用必备| 黄梅县| 奇台县|