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

首頁 > 學(xué)院 > 開發(fā)設(shè)計 > 正文

VB數(shù)組小技巧一則

2019-11-18 17:39:47
字體：大 中 小
供稿：網(wǎng)友
一、設(shè)窗體上有若干個以Command1命名的命令按鈕，現(xiàn)要求：點擊其中一個按鈕后，該按鈕不可用，而其它的按鈕均可用。以下幾行代碼可以實現(xiàn)這個要求，比一個一個的設(shè)置高效得多。其實，我也是看了土人的關(guān)于控件數(shù)組的一文后，認為我的方法更加簡單，代碼更簡易。

以下是實現(xiàn)的代碼：
Command1(Index).Enabled=False
a=Index 1
EndSub
注：變量a主要是用來存儲上一次單擊的按鈕Index，至于a-1和a 1是為了避免當(dāng)單擊index為0時的按鈕時，會出現(xiàn)問題，所以用此法避開了。

二、當(dāng)用自制一個菜單時，可用如下辦法實現(xiàn)移到哪項時，則哪項背景色就與其它的項目的背景色不同。就是說和真的菜單一樣，當(dāng)移到哪一項時，則那一項的背景色就會以藍色背景顯示。

以下是實現(xiàn)的代碼：
PrivateSubForm_Load()
DimabcasInteger
fora=0toLabel1.Count-1
Labe11(a).BackStyle=0
next
EndSub

PrivateSubLabel1_MouseMove(IndexAsInteger,ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
StaticaAsInteger
'實現(xiàn)藍底的背景
Label1(Index).BackStyle=1
Label1(index).BackColor=rgb(0,0,255)
'用于實現(xiàn)上一項背景透明
Ifa>=0Anda<>IndexThen
Label1(a).BackStyle=0
EndIf
a=Index
EndSub
注：以上是以LabeblBox控件為菜單項，菜單項多少不限。
以上實例在Win98，VB6.0運行通過。最后，希望大家能夠把數(shù)組運用的得心應(yīng)手。->

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板： 海伦市| 宁明县| 吉木萨尔县| 陆良县| 阜宁县| 哈巴河县| 庆云县| 湘乡市| 拜泉县| 阿尔山市| 得荣县| 临澧县| 岱山县| 波密县| 黄大仙区| 都兰县| 岳阳市| 溧阳市| 香港| 兴安县| 梨树县| 垣曲县| 陕西省| 子长县| 蒙阴县| 临高县| SHOW| 沁源县| 莱州市| 福州市| 卢氏县| 佛学| 茶陵县| 井冈山市| 娄烦县| 浑源县| 马尔康县| 上虞市| 饶平县| 巍山| 临桂县|