רוטר - עזרה בVB בקשר לנתונים המוזנים לתיבת הטקסט

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

"עזרה בVB בקשר לנתונים המוזנים לתיבת הטקסט"

גירסת הדפסה

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

אשכול מספר 5698

eli___rulez

חבר מתאריך 18.3.02
18372 הודעות, 3 פידבק

10:54 19.04.03

עזרה בVB בקשר לנתונים המוזנים לתיבת הטקסט

יש לי שתי שאלות:
1. איך אני עושה שהמשתמש יהיה חייב למשל בתיבת טקסט של מס' טלפון להזין אך ורק מספרים? כלומר אם הוא מזין אות אז הוא יקבל הודעה בהתאם.
2. איך אני עושה בתיבת טקסט מסכת קלט? נגיד באקסס אפשר להגדיר בקלות שלמספר טלפון יהיה מסכת קלט כזאת למשל 00-0000000, איך אני עושה את זה לתיבת טקסט בויזואל?

תודה על העזרה!

http://eligohar.com

שתף

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

האשכול	מחבר	תאריך כתיבה	מספר
ככה	ilane	19.04.03 16:17	1
יש עוד תשובה לשאלה הראשונה שלך	dyermaker	19.04.03 20:22	2
לא נכווון יש Like ב VB???!!!	hll	20.04.03 02:24	4
תודה לשניכם! :)	eli___rulez	19.04.03 21:24	3

ilane
חבר מתאריך 16.5.02
149 הודעות

16:17 19.04.03

1. ככה
בתגובה להודעה מספר 0

לגבי השאלה הראשונה אתה רושם בארוע
KeyPress של תיבת הטקסט

If KeyAscii <> (8) Then
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End If
פקודה זו תגרום לכך שניתן יהיה להקיש רק מספרים ומחיקה לאחור BackSpace
לא תהיה הודעת שגיאה אלא לא יופיעו תוים אחרים

לגבי השאלה השניה
הדרך הפשוטה ביותר לעשות זאת היא באמצעות הפקד הבא שמגיע עם VB
http://rotter.net/User_files/nor/3ea14c072aac8cae.jpg
יכול להיות שאצלך זה יופיע עם כיתוב קצת שונה(למשל בלי הsp3)
תלוי אם הותקנו אצליך עידכונים או בגירסת הוינדוס שלך

ascii stupid question, Get a stupid ansi

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

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

dyermaker
חבר מתאריך 4.2.03
1644 הודעות

20:22 19.04.03

2. יש עוד תשובה לשאלה הראשונה שלך
בתגובה להודעה מספר 0

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

If Not Text1.Text Like "##-####" Then
MsgBox "Must be a phone number!", vbCritical, "Your title"
Exit Sub
End If

בקיצור הפקודה השקולה למה שצינת באקסס היא הפונקציה LIKE
אתה יכול לחפש על זה בעזרה של ויז'ואל בייסיק

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

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

hll

02:24 20.04.03

4. לא נכווון יש Like ב VB???!!!
בתגובה להודעה מספר 2

חידשת לי משהוא!
תודה

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

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

eli___rulez

חבר מתאריך 18.3.02
18372 הודעות, 3 פידבק

21:24 19.04.03

3. תודה לשניכם! :)
בתגובה להודעה מספר 0

http://eligohar.com

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

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