1.你可以用 CSDN 相册直接上传图片2.上传前将 .bmp转为 .jpg 空间少好几倍, 下载你一个图累死人了.'将你的Option1与Text1都用数组控件 Text1(0) Text1(1) Text1(2) Text1(3)Option1(0) Option1(1) Option1(2) Option1(3)Dim i% Private Sub Option1_Click(Index As Integer) For i = 0 To 3 Text1(i).Enabled = IIf(i = Index, True, False) Next i End Sub
Text1(0) Text1(1) Text1(2) Text1(3)Option1(0) Option1(1) Option1(2) Option1(3)Dim i%
Private Sub Option1_Click(Index As Integer)
For i = 0 To 3
Text1(i).Enabled = IIf(i = Index, True, False)
Next i
End Sub