| כותב |
|
אורח מארח
אורח
הצטרף / הצטרפה: 01 October 2003
משתמש: אונליין
הודעות: 12647
|
| נשלח בתאריך: 27 February 2007 בשעה 20:28 | | IP רשוּם
|
|
|
|
ניסיתי לכתוב משפט select case בויבי אבל הבעיה הוא שזה לא פותח לי את
תיבת ההודעה פתחתי textBox רשמתי שם את האות A ורשמתי את הקוד הבא אבל מה
הבעיה?
Select Case txtGrade.Text
Case "A"
int1 = MsgBox("grate!", vbOKOnly, "youer grade is:")
Case "B"
int1 = MsgBox("grate!", vbOKOnly, "youer grade is:")
Case "C"
int1 = MsgBox("good!", vbOKOnly, "youer grade is:")
Case Else
int1 = MsgBox("eror!", vbOKOnly, "youer grade is:")
End Select
|
| חזרה לתחילת העמוד |
|
| |
אורח מארח
אורח
הצטרף / הצטרפה: 01 October 2003
משתמש: אונליין
הודעות: 12647
|
| נשלח בתאריך: 27 February 2007 בשעה 20:30 | | IP רשוּם
|
|
|
|
טעות בקוד הינה הקוד הטוב....
Select Case txtGrade.Text
Dim int1 As Integer
Case "A"
int1 = MsgBox("grate!", vbOKOnly, "youer grade is:")
Case "B"
int1 = MsgBox("grate!", vbOKOnly, "youer grade is:")
Case "C"
int1 = MsgBox("good!", vbOKOnly, "youer grade is:")
Case Else
int1 = MsgBox("eror!", vbOKOnly, "youer grade is:")
End Select
|
| חזרה לתחילת העמוד |
|
| |
|
|
אם ברצונך להגיב לנושא זה עליך קודם להתחבר
אם אינך רשום/ה כבר עליך להרשם
|
|
אינך יכול/ה לשלוח נושאים חדשים בפורום זה
אינך יכול/ה להגיב לנושאים בפורום זה
אינך יכול/ה למחוק את הודעותיך ותגוביך בפורום זה
אינך יכול/ה לערוך את הודעותיך ותגובותיך בפורום זה
אינך יכול/ה לצור סקרים בפורום זה
אינך יכול/ה להצביע בסקרים בפורום זה
|
נושאים פעילים
רשימת משתמשים
חיפוש
עזרה
הרשמה
התחברות
UnderWarrior Forums : 
תיכנות
