猜笑脸.弄一个commandbutton控件数组,

Private Sub Command1_Click(Index As Integer) Randomize '随机变量初始化 a = Int(Rnd * 4) If a = Index Then

Command1(a).Enabled = False Label1.Caption = "你猜对了，真棒！" For i = 0 To 3 Command1(i).DisabledPicture = LoadPicture("C:\Documents and Settings\zhangnan\My Documents\My Pictures\校友会.gif") Next i '循环为四个按钮加图形 Else Command1(a).Enabled = False Label1.Caption = "你猜错了，我在这！" For i = 0 To 3 Command1(i).DisabledPicture = LoadPicture("C:\Documents and Settings\zhangnan\My Documents\My Pictures\校友会.gif") Next i End If

End Sub

Private Sub Command2_Click() For i = 0 To 3 Command1(i).Enabled = True Next i

End Sub

Private Sub Command3_Click() End End Sub

其中我觉得没有代码表明,所选的command1就是随机生成的command1(a),而且用for next增加按钮上的图形,我觉得每次四个按钮都会出现图形.可这个程序能用.我想不通.帮帮我.要按我的想法,就是

Command1(i).DisabledPicture = LoadPicture("C:\Documents and Settings\zhangnan\My )

if command1(a).click then'对了,这句应该怎么表示.我是这么梦想的.

label1.caption="你对了"

[此贴子已经被作者于2004-05-10 17:32:03编辑过]

运行效果是这样子吧 [attach]157[/attach] 说明： 按钮数组的Style属性设为1-Graphic

[此贴子已经被作者于2004-05-10 20:53:32编辑过]

DisabledPicture 属性

返回或设置一个对图片的引用，该图片在控件无效时显示在控件中。（也就是说，当控件 Enabled 属性被设置为 False 时。）

语法

object.DisabledPicture [= picture]

DisabledPicture 属性的语法包含下面部分：

部分 描述 object 对象表达式，其值是“应用于”列表中的一个对象。 picture 一个包含图形的 Picture 对象，“设置值”中有详细的描述。

设置值

picture 的设置值为：

设置值 描述 (None) （缺省） 没有图片。 (Bitmap, icon, metafile) 指定一个图形。在设计时可以从 属性窗口加载该图形。在运行时，也可以通过在一个位图、图标 或元文件上使用LoadPicture 函数，或通过将其设置到另一个控件的 Picture 属性上来设置这个属性。

说明

DisabledPicture 属性指定一个图片对象在控件（如CommandButton）无效时显示。除非控件的 Style 属性设置为 1（图形的），否则 DisabledPicture 属性将被忽略。

图片在控件上位于水平和垂直位置的中央。如果与图片一起使用标题，那么图片将位于标题上面的中央处。如果图片对象太大而与控件不相适合，那么将被裁剪一部分。

如果没有图片赋值给 DisabledPicture 属性，而有一个图片赋值给 Picture 属性，那么在控件无效时将显示该图片的灰色形式。

[此贴子已经被作者于2004-05-10 20:56:06编辑过]

[QUOTE]而且用for next增加按钮上的图形,我觉得每次四个按钮都会出现图形.[/QUOTE]

程序中只是将正确的那个按钮的Enabled设为了False，而按钮的DisabledPicture属性只在按钮无效时才有用！

你们都很帅,