سیفی
محفلین
السلام علیکم
میرا خیال ہے کہ شارق مستقیم VB.Net میں مہارت رکھتے ہیں اس لئے خاص انکو مخاطب کیا ہے۔۔۔تاہم اگر کوئی اور صاحب بھی VB.Net سے شغف رکھتے ہوں تو برائے مہربانی وہ بھی اپنی ماہرانہ رائے دیں۔۔۔
میں نے آجکل VB.Net سیکھنی شروع کی ہے۔۔۔ میں ایک ایپلیکیشن میں انگریزی سے اردو زبان کا انتخاب بذریعہ کوڈ چاہتا ہوں۔۔ابھی تو مجھے اردو میں سوئچ کرنے کے لئے ٹاسک بار سے اردو آپشن پر کلک کرنی پڑتی ہے۔۔۔۔کچھ ٹیکسٹ باکسز میں اردو لکھنی ہے اور کچھ میں انگریزی۔۔۔بار بار ٹاسک بار سے کلک کرنا دقت طلب ہے۔۔۔۔۔۔
مجھے کچھ کوڈ جو ملے ہیں وہ انسٹالڈ لینگوئج کی انفارمیشن اور ڈیفالٹ لینگوئج کو سیٹ کرتے ہیں۔۔۔۔لیکن مجھے ایپلیکیشن میں انگریزی سے اردو اور پھر اردو سے انگریزی میں سوئچ کرنے کا کوڈ چاہئے۔۔۔۔۔۔۔۔۔
.........................................
[align=left:6f1a413976]Public Sub GetLanguages()
' Gets the list of installed languages.
Dim lang As InputLanguage
For Each lang In InputLanguage.InstalledInputLanguages
TextBox1.Text &= lang.Culture.EnglishName & ControlChars.Cr
Next lang
End Sub 'GetLanguages
Public Sub SetNewCurrentLanguage()
' Gets the default, and current languages.
Dim myDefaultLanguage As InputLanguage = InputLanguage.DefaultInputLanguage
Dim myCurrentLanguage As InputLanguage = InputLanguage.CurrentInputLanguage
textBox1.Text = "Current input language is: " & _
myCurrentLanguage.Culture.EnglishName & ControlChars.Cr
textBox1.Text &= "Default input language is: " & _
myDefaultLanguage.Culture.EnglishName & ControlChars.Cr
' Changes the current input language to the default, and prints the new current language.
'InputLanguage.CurrentInputLanguage = myDefaultLanguage
InputLanguage.CurrentInputLanguage = myDefaultLanguage
lagnuagecode = 32
textBox1.Text &= "Current input language is now: " & _
myDefaultLanguage.Culture.EnglishName
End Sub 'SetNewCurrentLanguage[/align:6f1a413976]
میرا خیال ہے کہ شارق مستقیم VB.Net میں مہارت رکھتے ہیں اس لئے خاص انکو مخاطب کیا ہے۔۔۔تاہم اگر کوئی اور صاحب بھی VB.Net سے شغف رکھتے ہوں تو برائے مہربانی وہ بھی اپنی ماہرانہ رائے دیں۔۔۔
میں نے آجکل VB.Net سیکھنی شروع کی ہے۔۔۔ میں ایک ایپلیکیشن میں انگریزی سے اردو زبان کا انتخاب بذریعہ کوڈ چاہتا ہوں۔۔ابھی تو مجھے اردو میں سوئچ کرنے کے لئے ٹاسک بار سے اردو آپشن پر کلک کرنی پڑتی ہے۔۔۔۔کچھ ٹیکسٹ باکسز میں اردو لکھنی ہے اور کچھ میں انگریزی۔۔۔بار بار ٹاسک بار سے کلک کرنا دقت طلب ہے۔۔۔۔۔۔
مجھے کچھ کوڈ جو ملے ہیں وہ انسٹالڈ لینگوئج کی انفارمیشن اور ڈیفالٹ لینگوئج کو سیٹ کرتے ہیں۔۔۔۔لیکن مجھے ایپلیکیشن میں انگریزی سے اردو اور پھر اردو سے انگریزی میں سوئچ کرنے کا کوڈ چاہئے۔۔۔۔۔۔۔۔۔
.........................................
[align=left:6f1a413976]Public Sub GetLanguages()
' Gets the list of installed languages.
Dim lang As InputLanguage
For Each lang In InputLanguage.InstalledInputLanguages
TextBox1.Text &= lang.Culture.EnglishName & ControlChars.Cr
Next lang
End Sub 'GetLanguages
Public Sub SetNewCurrentLanguage()
' Gets the default, and current languages.
Dim myDefaultLanguage As InputLanguage = InputLanguage.DefaultInputLanguage
Dim myCurrentLanguage As InputLanguage = InputLanguage.CurrentInputLanguage
textBox1.Text = "Current input language is: " & _
myCurrentLanguage.Culture.EnglishName & ControlChars.Cr
textBox1.Text &= "Default input language is: " & _
myDefaultLanguage.Culture.EnglishName & ControlChars.Cr
' Changes the current input language to the default, and prints the new current language.
'InputLanguage.CurrentInputLanguage = myDefaultLanguage
InputLanguage.CurrentInputLanguage = myDefaultLanguage
lagnuagecode = 32
textBox1.Text &= "Current input language is now: " & _
myDefaultLanguage.Culture.EnglishName
End Sub 'SetNewCurrentLanguage[/align:6f1a413976]