עבור לתוכן
View in the app

A better way to browse. Learn more.

HWzone

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

שתי שאלות ב-VB

Featured Replies

פורסם

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

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

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

  • תגובות 56
  • צפיות 5.3k
  • נוצר
  • תגובה אחרונה
פורסם
  • מחבר

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..

פורסם
  • מחבר

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

פורסם


Private Sub Command4_Click()
End
End Sub

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

פורסם

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

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

Shell("notepad")

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

פורסם
  • מחבר

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

פורסם

סבבה.

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

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

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

פורסם
  • מחבר

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

ארכיון

דיון זה הועבר לארכיון ולא ניתן להוסיף בו תגובות חדשות.

דיונים חדשים

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.