一、设窗体上有若干个以Command1命名的命令按钮,现要求:点击其中一个按钮后,该按钮不可用,而其它的按钮均可用。以下几行代码可以实现这个要求,比一个一个的设置高效得多。其实,我也是看了土人的关于控件数组的一文后,认为我的方法更加简单,代码更简易。
以下是实现的代码:
PrivateSubCommand1_Click(IndexAsInteger)
StaticaAsInteger
Ifa0ThenCommand1(a-1).Enabled=True'用于恢复按钮可用
Command1(Index).Enabled=False
a=Index 1
EndSub
注:变量a主要是用来存储上一次单击的按钮Index,至于a-1和a 1是为了避免当单击index为0时的按钮时,会出现问题,所以用此法避开了。
二、当用自制一个菜单时,可用如下办法实现移到哪项时,则哪项背景色就与其它的项目的背景色不同。就是说和真的菜单一样,当移到哪一项时,则那一项的背景色就会以蓝色背景显示。
以下是实现的代码:
PrivateSubForm_Load()<...[ 查看全文 ]