ABA


"שאלה פשוטה למי שיודע Visual Basic"
גירסת הדפסה        
קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #7141 מנהל    סגן המנהל    מפקח   Winner    צל"ש   מומחה  
אשכול מספר 7141
Feikin

דרג אמינות חבר זה
   19:13   11.10.03   
אל הפורום  
  שאלה פשוטה למי שיודע Visual Basic  
 
   איך אני מציב משתנה שיתקבל בכל הטפסים?
Public
או מה שזה לא יהיה לא עובד לי :\
אולי אם אני אסביר יותר במפורט..
אני רוצה לעשות השוואה של תיבת טסקט למשתנה בטופס אחר , ואם זה נכון אז לשנות את המשתנה .
דוגמא:
אם שם משתמש שווה למשנתה
אז שם משתמש ישן= שם משתמש חדש שהוצב
אין לי בעיה אם הקוד עצמו.. אבל עם הבאת המשתנה מהטופס השני כן.
תודה רבה לעוזרים. :-)


                                שתף        
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

  האשכול     מחבר     תאריך כתיבה     מספר  
  אוקיי codmaster 12.10.03 01:56 1
     להגדיר אותו Feikin 12.10.03 10:57 2
         תנסה את זה: TalG 20.10.03 16:37 3
  אתה עדיין צריך עזרה? mega-killer 21.10.03 23:31 4

       
codmaster

דרג אמינות חבר זה
   01:56   12.10.03   
אל הפורום  
  1. אוקיי  
בתגובה להודעה מספר 0
 
   תגדיר את המשתנה כ - PUBLIC
ןבטופס אחר תפנה אליו כך

form1.variableName

form1 - שם הטופס שלך
variableName - שם המשתנה שלך


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
Feikin

דרג אמינות חבר זה
   10:57   12.10.03   
אל הפורום  
  2. להגדיר אותו  
בתגובה להודעה מספר 1
 
   ערכתי לאחרונה בתאריך 12.10.03 בשעה 11:08 בברכה, Feikin
 
באזור ההכזרות או שזה לא משנה איפה?
כי ניסיתי מה שאתה אומר וזה לא עובד לי :( ניסיתי משהו כמו
if txtOldUser.text = frmMain.UserName then
txtNewUser.text = frmain.UserName
end if

דבר כזה אמור לעבוד לא .. ?


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
TalG
חבר מתאריך 28.8.10
52 הודעות
   16:37   20.10.03   
אל הפורום  
  3. תנסה את זה:  
בתגובה להודעה מספר 2
 
   כשאתה מגדיר את UserName תשים אותו הכי למעלה בקוד (ב Decleration):


Public UserName as String

אח"כ תשנה את הפונקציה ל:


If txtOldUser.text = UserName Then
txtNewUser.Text = UserName
End If

מקווה שעזרתי.


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
mega-killer
חבר מתאריך 1.8.02
859 הודעות
   23:31   21.10.03   
אל הפורום  
  4. אתה עדיין צריך עזרה?  
בתגובה להודעה מספר 0
 
   אם כן אל תעשה דברים מסובכים... תיצור מודול ותכתוב שם
dim mishtane
וזהו...



                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

תגובה מהירה  למכתב מספר: 
 
___________________________________________________________________

___________________________________________________________________
למנהלים:  נעל | תייק בארכיון | מחק | העבר לפורום אחר | מחק תגובות | עגן אשכול
       



© כל הזכויות שמורות ל-רוטר.נט בע"מ rotter.net