VB按钮控件的问题

来源：百度知道 编辑：UC知道 时间：2024/06/16 22:06:46
就是用按钮控件的时候，例如有3个按钮，每个按钮中的内容基本上都一样，只是中间有少许不一样，能不能找出同样的部分专设不同的部分。

Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 1
If 这里都一样 then
这行代码三个按钮都一样
这一行都不一样，例如我为A
else
这行代码三个按钮都一样
这一行都不一样，例如我为A
end if

case 2
If 这里都一样 then
这行代码三个按钮都一样
这一行都不一样，例如我为B
else
这行代码三个按钮都一样
这一行都不一样，例如我为B
end if
case 3
If 这里都一样 then
这行代码三个按钮都一样
这一行都不一样，例如我为C
else
这行代码三个按钮都一样
这一行都不一样，例如我为C
end if

End Sub

这样写太麻烦，有没有好的方法。
这样比上面好说明

Private Sub Command1_Click(Index As Integer)

Select Case Index
Case 1
If 3+2=5 then
msgbox"对"
text1.text="111111111"
else
msg box"错"
text1.text="22222222"
end if
case 2
If 3+2=5 then
msgbox"对"
text1.text="33333333"
else
ms

可改成如下代码
If 3+2=5 then
msgbox"对"
Select Case Index
case 1
text1.text="111111111"

case 2
text1.text="33333333"
case 3
text1.text="5555555"
end select
else
msg box"错"
select case index
case 1
text1.text="22222222"
case 2
text1.text="44444444"
case 3
text1.text="66666666"
end select
end if

把代码发一部分上来，我帮你优化。

一样的地方可以设置成函数
Private Function x()
(一样的内容)
End Function
然后在需要的地方进行调用就可以了
但是如果只有一句两句建议就不要使用自定义函数了，直接用代码好了

Private Sub Command1_Click(Index As Integer)
If 3+2=5 then
msgbox"对"

Select Case Index
Case 1
text1.text="111111111"
If 3+2<>5 then
msg box"错"
text1.text="22222222"
end