12-07-2006, 19:45
|
|
|
חבר מתאריך: 10.07.06
הודעות: 67
|
|
בעייה ב-visual basic
שלום!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!11
מישהו יכול להגיד לי מה לא נכון בקוד (כל השמות נכונים פשוט הוא אומר לי block if ) אז למצוא את ה-end if שצריך או לא צריך בקוד הבא:
קוד:
Private Sub chkExperience_Click()
If Me.chkExperience.Value Then
Me.lblExperience.Visible = True
Me.txtExperience.Visible = True
Else
Me.lblExperience.Visible = False
Me.txtExperience.Visible = False
End If
End Sub
Private Sub cmcExit_Click()
End
End Sub
Private Sub cmdResult_Click()
Dim strTemp As String
Dim boolMale As Boolean
Dim boolFemale As Boolean
Dim intMsgBox As Integer
boolMale = Me.optMale.Value
boolFemale = Me.optFemale.Value
If boolMale = True Then
If Me.chkArmyOfficer.Value = True Then strTemp = "ùéøúúé áöáà ë÷öéï" & "àðé áï."
If boolFemale = True Then
If Me.chkArmyOfficer.Value = True Then strTemp = "ùéøøúé áöáà ë÷öéðä" & "àðé áú."
End If
If Me.optAgeTo18.Value = True Then
strTemp = strTemp & " ôçåú îâéì 18, "
ElseIf Me.optAge19To39.Value = True Then
strTemp = strTemp & "áéï 19 ì-39, "
ElseIf Me.optAge40To64.Value = True Then
strTemp = strTemp & " áéï 40 ì-64, "
ElseIf Me.optAge65Plus.Value = True Then
strTemp = strTemp & " îòì âéì 65, "
End If
If Me.chkExperience.Value Then
If Me.chkShowExperienceInResults.Value = True Then
strTemp = strTemp & "åäðéñéåï ùìé äåà:" & vbCr & Me.txtExperience.Text & vbCr
ElseIf Me.chkShowExperienceInResults = False Then
strTemp = strTemp & "àéï ìé ðéñéåï." & vbCr
End If
intMsgBox = MsgBox(strTemp, vbMsgBoxRight + vbMsgBoxRtlReading + _
vbInformation + vbYesNo, "ôøèéí òáåø " & Me.txtName.Text)
If intMsgBox = vbYes Then
MsgBox "äú÷áìú " & Me.txtName.Text & " ðøùîú ìòáåãä,úåãä!", vbMsgBoxRtlReading
ElseIf intMsgBox = vbNo Then
MsgBox "ãçåééú " & Me.txtName.Text & " ðøùîä,úåãä!", vbMsgBoxRight
End Sub
|