Imports System.Globalization
Imports System.Threading
Namespace My
Partial Friend Class MyApplication
Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
`
Try
` `لجعل البرنامج بالتاريخ الإنجليزي وليس الهجري
` Dim Dt As New DateTime
` Dt = db.GrgCalendar((Now.Year), (Now.Month), (Now.Day))
`
` جعل لوحة المفاتيج باللغة العربية - من اليمن الى اليسار
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New CultureInfo("Ar-SA"))
Catch ex As Exception
End Try
End Sub
Private Sub MyApplication_StartupNextInstance(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArgs) Handles Me.StartupNextInstance
Dim inputArgument As String = "/input="
Dim inputName As String = ""
For Each s As String In e.CommandLine
If s.ToLower.StartsWith(inputArgument) Then
inputName = s.Remove(0, inputArgument.Length)
End If
Next
If inputName = "" Then
MsgBox("لا يسمح بتشغيل اكثر من نسخة واحدة " & vbCrLf & "يوجد نسخة من هذا البرنامج تعمل حالياً", MsgBoxStyle.Critical Or MsgBoxStyle.MsgBoxRight, "تعدد النسخ")
Else
MsgBox("Input name: " & inputName)
End If
End Sub
End Class
End Namespace