2006-05-09 16:10:18~!MOON!~
電腦作業2
Private Sub Command1_Click()
If Option1.Value = True Then
Image1.Picture = Image2.Picture
ElseIf Option2.Value = True Then
Image1.Picture = Image3.Picture
ElseIf Option3.Value = True Then
Image1.Picture = Image4.Picture
ElseIf Option4.Value = True Then
Image1.Picture = Image5.Picture
Else
MsgBox 請選圖案
End If
End Sub
If Option1.Value = True Then
Image1.Picture = Image2.Picture
ElseIf Option2.Value = True Then
Image1.Picture = Image3.Picture
ElseIf Option3.Value = True Then
Image1.Picture = Image4.Picture
ElseIf Option4.Value = True Then
Image1.Picture = Image5.Picture
Else
MsgBox 請選圖案
End If
End Sub