z0621

請高手幫我把程式寫完!!拜託 visual basic6.0高手
1.用此程式輸入密碼abc123正確後才能勾取核取方塊
Private Sub cmdkey_Click()
pwd = "abc123"
If txtpwd.Text = pwd Then
Print "passwrd corect!!!!!"
Else: Print " you have a wrong password . try again"
End If
End Sub

2. 用核取方塊方式 設計兩種以上可自行加總金額
      例：
      密碼輸入錯誤不能使用勾選合取方塊
      密碼輸入正確後可以勾選合取方塊

      [打勾]1 .SONY 900元
      [打勾]2 .國際牌 800元
      [沒勾]3 .諾基亞 880元
      選取的總額為1700元

      看圖片解釋也可以，把做好的專案寄給我也可以
      

taiwu

很難，不知如何下手

naruto6404

我先把那三個打勾項目分別定為 Check1、Check2、Check3
並且建議按一鍵來顯示計算之後的價格，設按鈕為 Totalbutton
再設定一個文字標籤來顯示價格，設標籤為 Labelend
照我這樣寫，問題不大。你試試看吧~!!!
-------------------------------------------------------------------------------------------------------------------------------
Private Sub Form_Load()

Check1.Hide()
Check2.Hide()
Check3.Hide()

End Sub

Private Sub cmdkey_Click()

Dim pwd As String

pwd = "abc123"

If txtpwd.Text = pwd Then
Print "passwrd corect!!!!!"
Check1.Show()
Check2.Show()
Check3.Show()
Else: Print " you have a wrong password . try again"
End If
End Sub

Private Sub Totalbutton_Click()

     Labelend.Caption = 0

if check1.value = 1 Then
    Labelend.Caption = Labelend.Caption + 900
end if

if check2.value = 1 Then
    Labelend.Caption = Labelend.Caption + 800
end if

if check3.value = 1 Then
    Labelend.Caption = Labelend.Caption + 880
end if

End Sub