רוטר - למבינים ב VB4 ומעלה....

יומן פעילות	לוח שנה	מבזקי חדשות	תקנון	RSS	כותרות	כותרות לפי תגובה	ניקוי קוקיז	IP	להורדת אפליקציה
eBay	AliExpress	GearBest	Amazon	Booking	Kiwi	SkyScanner	Trip Advisor

"למבינים ב VB4 ומעלה...."

גירסת הדפסה

קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #8552	מנהל סגן המנהל מפקח Winner צל"ש מומחה

אשכול מספר 8552

mega-killer
חבר מתאריך 1.8.02
859 הודעות

13:36 13.12.02

למבינים ב VB4 ומעלה....

טוב אז,
יש לי פקד LABEL1
בזמן ריצה שם שמו של הפקד (LABEL1) רשום בתיבת טקסט
אני רוצה שכשאני ילחץ על כפתור הפקד שרשום על תיבת הטקסט ערכו CAPTION או משהו כזה יהיה שווה ל- "10".
תודה לכל מי זעוזר...
נ.ב
אם הקוד שלכם הוא:
label1.caption = "10"
אז זה לא מה שרציתי...

שתף

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

האשכול	מחבר	תאריך כתיבה	מספר
אני לא כל כך הבנתי מה אתה רוצה שיקרה	AndreyT	13.12.02 13:40	1
טוב אני אסביר אחרת...	mega-killer	13.12.02 13:50	2
לפי מה שאני מבין זה לא אפשרי	GK2k	13.12.02 17:42	3
הפתרון	faktoraa	13.12.02 18:07	4
המשך לפתרון הקודם	faktoraa	13.12.02 18:11	5

AndreyT

13:40 13.12.02

1. אני לא כל כך הבנתי מה אתה רוצה שיקרה
בתגובה להודעה מספר 0

כשתלחץ על הכפתור,אבל אם אתה רוצה שעל ה LABEL1 יהיה כתוב
מה שכתוב על תיבת הטקסט תכתוב כך :
label1.caption=text1.text

(ניהול: מחק תגובה)

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

mega-killer
חבר מתאריך 1.8.02
859 הודעות

13:50 13.12.02

2. טוב אני אסביר אחרת...
בתגובה להודעה מספר 1

הוקפץ אל ראש הפורום בשעה 14:33
הוקפץ אל ראש הפורום בשעה 14:32
יש לי 3 פקדי label:
label1
label2
label3
ופקד תיבת טקסט
וכפתור כמובן...
כשאני אכתוב על התיבת טקסט אחד משלושת פקדי ה label
וכשאני ילחץ על הכפתור
אותו פקד שכתבתי בתיבת טקסט יהיה שווה ל- "10"
אבל בלי פקודת IF או INDEX
או משהו דומה...
משהו שאני יוצר ב DIM
ושיהיה שווה למה שכתוב בתיבת טקסט ושיאפשר לי להשתמש בפונקצייה של label
בפקד dim שיצרתי
לדוגמא:
dim jjj
jjj.caption = "10"
אבל זה לא אפשרי
אז איך זה אפשרי?

(ניהול: מחק תגובה)

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

GK2k

17:42 13.12.02

3. לפי מה שאני מבין זה לא אפשרי
בתגובה להודעה מספר 2

בכלל.

(ניהול: מחק תגובה)

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

faktoraa

18:07 13.12.02

4. הפתרון
בתגובה להודעה מספר 0

טוב אז הפתרון שלך הוא פשוט:
אם יש לך באמת 3 לייבלים (Label1,Label2,Label3) ושדה טקסט (Text1) ובתוך השדה טקסט אתה כותב את שם הלייבל שאת הכותרת שלו אתה רוצה לשנות ל-"10" אז בCLICK של הכפתור אתה כותב:
"Me.Controls(Text1.Text).Caption = "10
וזה עובד מצוין.
מקוה שזה עוזר.

א.

(ניהול: מחק תגובה)

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

faktoraa

18:11 13.12.02

5. המשך לפתרון הקודם
בתגובה להודעה מספר 4

אם אתה רוצה רק לכתוב את מספר הלייבל ללא "LABEL" אז בתוך הארוכ של הכפתור תכתוב:
"Me.Controls("Label" & Text1.Text).Caption = "10
שוב, מקוה שזה עוזר.

א.

(ניהול: מחק תגובה)

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