System.Globalization.CultureInfo.DefaultThreadCurrentCulture = new System.Globalization.CultureInfo("en-US");
System.Globalization.CultureInfo.DefaultThreadCurrentUICulture = new System.Globalization.CultureInfo("en-US"); Public Sub New()
Dim lLng As String = "EN-us"
Threading.Thread.CurrentThread.CurrentCulture = New CultureInfo(lLng)
Threading.Thread.CurrentThread.CurrentUICulture = New CultureInfo(lLng)
' This call is required by the designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
End Sub
Imports System.Threading
Public Class Form1
Private Sub InitializeArabicLanguageSupport()
Button1.Text = "موافق"
Button2.Text = "خروج"
Me.Text = "برنامج"
End Sub
Private Sub InitializeEnglishLanguageSupport()
Button1.Text = "Ok"
Button2.Text = "Exit"
Me.Text = "any text"
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
InitializeLanguage()
End Sub
Private Sub InitializeLanguage()
Select Case (Thread.CurrentThread.CurrentCulture.Name)
Case "en-EN"
InitializeEnglishLanguageSupport()
Return
Case "ar-EG"
InitializeArabicLanguageSupport()
Return
Case "ar-SA"
InitializeArabicLanguageSupport()
Return
End Select
End Sub
End Class
adapter = New MySqlDataAdapter("SELECT * from t_user where user_name='" & txtusername.Text & "' and password='" & txtpass.text & "'", sqlConlocl)
Dim dt As New DataTable
adapter.Fill(dt)
If dt.Rows.Count = 0 Then
MsgBox("البيانات غير صحيحة")
Else
If dt.Rows(0)(22) = "No" Then
MsgBox("لم يتم تفعيل حسابك")
Else
Dim mss As String = dt.Rows(0)(21)
MsgBox("مرحبا بك: " & mss)
If btLangug.Text = "En" Then
Dim cul As New System.Globalization.CultureInfo("en-us")
System.Threading.Thread.CurrentThread.CurrentUICulture = cul
End If
Interface1.ToolStrip1.Enabled = True
Interface1.MenuStrip1.Enabled = True
'كود اضافة التاريخ اثناء التسجيل علما بان الجدول سوف يضيف الوقت ونوع العملية
Dim nuEnter As Double
nuEnter = dt.Rows(0)(1)
sqlConlocl.Open()
cmd = New MySqlCommand("INSERT INTO t_movement_emp(emp_nu,Operation_type)" _
& "VALUES(@emp_nu,@Operation_type)", sqlConlocl)
cmd.Parameters.Add(New MySqlParameter("@emp_nu", MySqlDbType.Double)).Value = nuEnter
cmd.Parameters.Add(New MySqlParameter("@Operation_type", MySqlDbType.Enum)).Value = "Entry"
cmd.ExecuteNonQuery()
Interface1.Show()
Me.Hide()
End If
End If
Catch ex As Exception
MsgBox("Problem with internet connection in Enter Form")
'MsgBox(ex.ToString)
Finally
sqlConlocl.Close()
End Try