国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板： 年辖：市辖区| 新化县| 武威市| 云和县| 综艺| 商水县| 通榆县| 乌鲁木齐县| 岑溪市| 桐城市| 离岛区| 科技| 德兴市| 和平区| 武邑县| 香格里拉县| 高雄县| 孝昌县| 两当县| 吴旗县| 腾冲县| 贡山| 交城县| 安多县| 江孜县| 遂平县| 泌阳县| 临潭县| 江阴市| 平山县| 越西县| 海门市| 麻江县| 台北县| 西安市| 邵东县| 荣昌县| 阿瓦提县| 南通市| 睢宁县| 湖口县|