רוטר - שאלה מאד מוזרה ב -VB ...

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

"שאלה מאד מוזרה ב -VB ..."

גירסת הדפסה

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

אשכול מספר 8677

sky69

דרג אמינות חבר זה

02:32 28.12.02

שאלה מאד מוזרה ב -VB ...

אני רוצה שכאשר עומדים על txtbox השפה תהיה אוט' על אנגלית או עברית.
עכשיו אני בונה פונציה של got_focus אבל אני לא מכיר את הפקודה שמעבירה
את ה " insertion point" יעני סמן כניסת הטקסט למצב עברית...

אז שמעתי שיש פה הרבה תותחים ב- VB ואני מחפש אתכם כמוצא אחרון !
(אפילו ב - msdn לא מצאתי ...)

שתף

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

האשכול	מחבר	תאריך כתיבה	מספר
יש איזה API לשנות את השפה במקלדת...	Cd-Writer	28.12.02 16:54	1
פתרון	faktoraa	28.12.02 21:51	2
אם אני לא טועה	ilane	29.12.02 01:51	3
בואנה בנאדם אתה מעצבן אותי!!	liranh	31.12.02 03:30	4
לא טוב לך, אל תענה	Cd-Writer	31.12.02 19:23	5
עוד הצעה	codmaster	01.01.03 18:04	6

Cd-Writer

דרג אמינות חבר זה

16:54 28.12.02

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

תחפש ב allapi.net

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

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

faktoraa

דרג אמינות חבר זה

21:51 28.12.02

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

אתה צריך להגדיר את הקבועים הבאים
Private Const LANG_ENGLISH = "00000409"
Private Const LANG_HEBREW = "0000040D"
Private Const KLF_ACTIVATE = &H1
כמו כן את הפונקציה הבאה
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal Flags As Long) As Long
ואז אתה משתמש בפונקציות בצורה הבאה
להפוך לעברית
LoadKeyboardLayout LANG_HEBREW, KLF_ACTIVATE
להפוך לאנגלית
LoadKeyboardLayout LANG_ENGLISH, KLF_ACTIVATE
מקוה שזה עוזר

א.