שתי שאלות ב-VB

[שניצל]

מוזר. איזו גרסה זו של VB?

אתה יכול להעלות לכאן את הקוד של התכנית שלך?

נסה גם להחליף את ה+ ב&

[ניר.]

1.הגירסה היא 6

2. כן ניסיתי להחליף והוא רושם לי הודעה בזמן ריצה שרשום:SYNTEX ERROR

[שניצל]

תעלה את הקוד בבקשה.

[ניר.]

Option Explicit

Private Sub Command1_Click()

End Sub

Private Sub Command2_Click()
Form2.Show
Form1.Hide
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Form_Load()
ScaleMode = vbPixels
Caption = "תפריט ראשי"
Command1.Caption = "הוראות"
Command2.Caption = "התחל משחק"
Command3.Caption = "דמו"
Command4.Caption = "יציאה"
End Sub

הכפתור שבעצזרתו אני רוצה לפתוח את הקובץ הוא Command1..

[שניצל]

תעלה את הקוד עם פקודת ה-shell...

[ניר.]

Option Explicit

Private Sub Command1_Click()
Shell(App.Path+"\\instruction.txt") 
End Sub

Private Sub Command2_Click()
Form2.Show
Form1.Hide
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Form_Load()
ScaleMode = vbPixels
Caption = "תפריט ראשי"
Command1.Caption = "הוראות"
Command2.Caption = "התחל משחק"
Command3.Caption = "דמו"
Command4.Caption = "יציאה"
End Sub

[שניצל]

הממ

מה הודעת השגיאה המדוייקת?

ומה הודעת השגיאה המדוייקת כשהחלפת את ה+ ב& ?

[ניר.]

כבר אמרתי בהודעות הקודמות....

אתה יודע VB?

אם כן , האם אתה יודע מה הבעיה וכיצד פותרים אותה?

[שניצל]

לא, אמרת שזה syntax error.

תעשה copy-paste של הודעת השגיאה המדוייקת.

[ניר.]

כן הוא רושם לי את וגם את האודעה הבאה הוא כבר העלה לי ורשמתי אותה בהודעות הקודמות שלי:

run tine error '5':
invalid proedere call or argument

[Master Boo]

Private Sub Command4_Click()
End
End Sub

מה זה? למה יש שם END באמצע?

[שניצל]

ה-End מסיים את הריצה של התכנית (אני מניח ש-Command4 זה כפתור היציאה...)

ניר, נסה להחליף את השורה בזו:

Shell("notepad")

ותגיד לי מה הוא עושה.

[ניר.]

הוא פתח לי notepad ריק...

[שניצל]

סבבה.

עכשיו תחליף בשורה הזו:

MsgBox(App.Path & "\instruction.txt")

ותגיד לי מה הוא עושה.

[ניר.]

הוא רושם לי את מיקום הקובץ...