07-10-17, 12:04 PM
كود :
Public Class Form1
Dim myCurrentLanguage As InputLanguage = InputLanguage.CurrentInputLanguage
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = myCurrentLanguage.Culture.DisplayName 'لعرض النتيجة بالعربي
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = myCurrentLanguage.Culture.EnglishName ' لعرض النتيجة بالإنجليزي
End Sub
End Class