赤色AMD軍團
2002-04-14, 10:39 PM
大大幫忙一下,在程式碼中,我想要在以一個label就可以顯示出我所打勾的選項,可是我的問題出在我必須增設很多的label才能對應我所選擇的東西....該怎麼辦?明天就要交作業了.....
圖例:
http://litweb.999host.net/vb.gif
我的VB程式檔案,幫我的人可以看看並且下載回去:
http://litweb.999host.net/homework.frm
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
我的程式碼:
Private Sub Command1_Click() ===>(確定的程式碼)
Label5.Caption = Text1.Text
If Option1.value = True Then
Label7.Caption = Option1.Caption
Else
If Option2.value = True Then
Label7.Caption = Option2.Caption
Else
Label7.Caption = ""
End If
End If
If Option3.value = True Then
Label9.Caption = Option3.Caption
Else
If Option4.value = True Then
Label9.Caption = Option4.Caption
Else
If Option5.value = True Then
Label9.Caption = Option5.Caption
Else
If Option6.value = True Then
Label9.Caption = Option6.Caption
Else
Label9.Caption = ""
End If
End If
End If
End If
If Check1.value = 1 Then
Label11.Caption = Check1.Caption
Else
Label11.Caption = ""
End If
If Check2.value = 1 Then
Label12.Caption = Check2.Caption
Else
Label12.Caption = ""
End If
If Check3.value = 1 Then
Label13.Caption = Check3.Caption
Else
Label13.Caption = ""
End If
End Sub
Private Sub Command2_Click() ===>(清除的程式碼)
Text1.Text = ""
Option1.value = False
Option2.value = False
Option3.value = False
Option4.value = False
Option5.value = False
Option6.value = False
Check1.value = 0
Check2.value = 0
Check3.value = 0
Label5.Caption = ""
Label7.Caption = ""
Label9.Caption = ""
Label11.Caption = ""
Label12.Caption = ""
Label13.Caption = ""
End Sub
Private Sub Command3_Click() ===>(結束的程式碼)
End
End Sub
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
:confused:
圖例:
http://litweb.999host.net/vb.gif
我的VB程式檔案,幫我的人可以看看並且下載回去:
http://litweb.999host.net/homework.frm
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
我的程式碼:
Private Sub Command1_Click() ===>(確定的程式碼)
Label5.Caption = Text1.Text
If Option1.value = True Then
Label7.Caption = Option1.Caption
Else
If Option2.value = True Then
Label7.Caption = Option2.Caption
Else
Label7.Caption = ""
End If
End If
If Option3.value = True Then
Label9.Caption = Option3.Caption
Else
If Option4.value = True Then
Label9.Caption = Option4.Caption
Else
If Option5.value = True Then
Label9.Caption = Option5.Caption
Else
If Option6.value = True Then
Label9.Caption = Option6.Caption
Else
Label9.Caption = ""
End If
End If
End If
End If
If Check1.value = 1 Then
Label11.Caption = Check1.Caption
Else
Label11.Caption = ""
End If
If Check2.value = 1 Then
Label12.Caption = Check2.Caption
Else
Label12.Caption = ""
End If
If Check3.value = 1 Then
Label13.Caption = Check3.Caption
Else
Label13.Caption = ""
End If
End Sub
Private Sub Command2_Click() ===>(清除的程式碼)
Text1.Text = ""
Option1.value = False
Option2.value = False
Option3.value = False
Option4.value = False
Option5.value = False
Option6.value = False
Check1.value = 0
Check2.value = 0
Check3.value = 0
Label5.Caption = ""
Label7.Caption = ""
Label9.Caption = ""
Label11.Caption = ""
Label12.Caption = ""
Label13.Caption = ""
End Sub
Private Sub Command3_Click() ===>(結束的程式碼)
End
End Sub
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
:confused: