לוגו אתר Fresh          
 
 
  אפשרות תפריט  ראשי     אפשרות תפריט  צ'אט     אפשרות תפריט  מבזקים     אפשרות תפריט  צור קשר     חץ שמאלה ‎print ‎"Hello World!"; if‎ ‎not rules.‎know ‎then rules.‎read(); חץ ימינה  

לך אחורה   לובי הפורומים > מחשבים > תכנות ובניית אתרים
שמור לעצמך קישור לדף זה באתרי שמירת קישורים חברתיים
תגובה
 
כלי אשכול חפש באשכול זה



  #2  
ישן 24-01-2005, 22:29
צלמית המשתמש של ryan ariel levi
  ryan ariel levi ryan ariel levi אינו מחובר  
 
חבר מתאריך: 06.10.04
הודעות: 1,337
קודם כל
בתגובה להודעה מספר 1 שנכתבה על ידי or34 שמתחילה ב "פקודת msgbox ב- vb script"

VBscript ו VB אותו דבר בדיוק....

אתה בוחר איזה לחצנים אתה רוצה
תמונה שהועלתה על ידי גולש באתר ולכן אין אנו יכולים לדעת מה היא מכילה
לדוגמא כאן בחרתי בשני לחצנים, Yes ו No

עכשיו, יש לך שתי אפשרויות לדעת מה הוא לחץ
1. ליצור משתנה גלובלי בשם כלשהוא, מסוג מספר (integer) ולכתוב בצורה:








קוד:
Dim Answer As Integer Answer = msgbox("Do you want to quit?",VbYesNo ) If (Answer = 6) then Msgbox("You Chose Yes") else Msgbox("You Chose No") end if









עכשיו לגבי ה"6" אלה הערכים למרבית האפשרויות שיש ב VB
  • 1 = vbOK - OK was clicked
  • 2 = vbCancel - Cancel was clicked
  • 3 = vbAbort - Abort was clicked
  • 4 = vbRetry - Retry was clicked
  • 5 = vbIgnore - Ignore was clicked
  • 6 = vbYes - Yes was clicked
  • 7 = vbNo - No was clicked
האפשרות השניה היא לכתוב את זה בצורה הבאה ללא משתנה גלובלי:






קוד:
If (MsgBox("Do you want to quit?", vbYesNo) = vbYes) Then MsgBox ("Yes") Else MsgBox ("No") End If







זה ב VB, הקוד ב VBSctipt הוא


קוד:
function que If (MsgBox("Do you want to quit?", vbYesNo) = vbYes) Then MsgBox ("Yes") Else MsgBox ("No") End Ifend functionfunction que If (MsgBox("Do you want to quit?", vbYesNo) = vbYes) Then MsgBox ("Yes") Else MsgBox ("No") End Ifend functionfunction que If (MsgBox("Do you want to quit?", vbYesNo) = vbYes) Then MsgBox ("Yes") Else MsgBox ("No") End Ifend function<script language=VBScript> function que
If (MsgBox("Do you want to quit?", vbYesNo) = vbYes) Then MsgBox ("Yes") Else MsgBox ("No") End If end function </script> function que If (MsgBox("Do you want to quit?", vbYesNo) = vbYes) Then MsgBox ("Yes") Else MsgBox ("No") End Ifend function
וב BODY נגיד לשים כפתור רגיל
<INPUT type="button" value="Button" id=button1 name=button1 onclick=que>


סבבה?
תגיד לי אם עזרתי.....
_____________________________________
תמונה שהועלתה על ידי גולש באתר ולכן אין אנו יכולים לדעת מה היא מכילה


נערך לאחרונה ע"י ryan ariel levi בתאריך 24-01-2005 בשעה 22:36. סיבה: לגבי VBScript
תגובה ללא ציטוט תגובה עם ציטוט חזרה לפורום
תגובה

כלי אשכול חפש באשכול זה
חפש באשכול זה:

חיפוש מתקדם
מצבי תצוגה דרג אשכול זה
דרג אשכול זה:

מזער את תיבת המידע אפשרויות משלוח הודעות
אתה לא יכול לפתוח אשכולות חדשים
אתה לא יכול להגיב לאשכולות
אתה לא יכול לצרף קבצים
אתה לא יכול לערוך את ההודעות שלך

קוד vB פעיל
קוד [IMG] פעיל
קוד HTML כבוי
מעבר לפורום



כל הזמנים המוצגים בדף זה הם לפי איזור זמן GMT +2. השעה כעת היא 19:43

הדף נוצר ב 0.05 שניות עם 10 שאילתות

הפורום מבוסס על vBulletin, גירסא 3.0.6
כל הזכויות לתוכנת הפורומים שמורות © 2024 - 2000 לחברת Jelsoft Enterprises.
כל הזכויות שמורות ל Fresh.co.il ©

צור קשר | תקנון האתר