تم النشر منذ 15 Jun 2014 كود ابرنامج:Imports System.Threading ' Imports System.Globalization ' ' Public Class Form1'Private moveTo As PointPrivate mPrevPos As New PointDim hours As Integer = DateTime.Now.Hour Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load'Dim Today_Date As Date'Dim Month_Nam As String'Dim Month_Num As StringMe.ControlBox = FalseMe.MaximizeBox = FalseMe.MinimizeBox = FalseMe.Text = ""Me.FormBorderStyle = Windows.Forms.FormBorderStyle.NoneTransparencyKey = Color.White'Button1.BackColor = Color.White'PictureBox1.BackColor = Color.WhiteMe.BackColor = Color.WhiteEnd SubPrivate Sub PictureBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.DoubleClickMe.Close()End SubPrivate Sub PictureBox2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox2.DoubleClickMe.Close()End SubPrivate Sub PictureBox3_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox3.DoubleClickMe.Close()End SubPrivate Sub PictureBox4_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox4.DoubleClickMe.Close()End SubPrivate Sub PictureBox5_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox5.DoubleClickMe.Close()End SubPrivate Sub PictureBox6_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox6.DoubleClickMe.Close()End SubPrivate Sub PictureBox7_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox7.DoubleClickMe.Close()End SubPrivate Sub PictureBox8_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox8.DoubleClickMe.Close()End SubPrivate Sub PictureBox9_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox9.DoubleClickMe.Close()End SubPrivate Sub PictureBox10_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox10.DoubleClickMe.Close()End SubPrivate Sub PictureBox11_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox11.DoubleClickMe.Close()End SubPrivate Sub PictureBox12_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox12.DoubleClickMe.Close()End SubPrivate Sub PictureBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMoveDim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)If (e.Button = MouseButtons.Left) ThenMe.Location += deltamPrevPos = e.Location - deltaElsemPrevPos = e.LocationEnd IfEnd SubPrivate Sub PictureBox2_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseMoveDim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)If (e.Button = MouseButtons.Left) ThenMe.Location += deltamPrevPos = e.Location - deltaElsemPrevPos = e.LocationEnd IfEnd SubPrivate Sub PictureBox3_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseMoveDim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)If (e.Button = MouseButtons.Left) ThenMe.Location += deltamPrevPos = e.Location - deltaElsemPrevPos = e.LocationEnd IfEnd SubPrivate Sub PictureBox4_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox4.MouseMoveDim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)If (e.Button = MouseButtons.Left) ThenMe.Location += deltamPrevPos = e.Location - deltaElsemPrevPos = e.LocationEnd IfEnd SubPrivate Sub PictureBox5_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox5.MouseMoveDim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)If (e.Button = MouseButtons.Left) ThenMe.Location += deltamPrevPos = e.Location - deltaElsemPrevPos = e.LocationEnd IfEnd SubPrivate Sub PictureBox6_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseMoveDim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)If (e.Button = MouseButtons.Left) ThenMe.Location += deltamPrevPos = e.Location - deltaElsemPrevPos = e.LocationEnd IfEnd SubPrivate Sub PictureBox7_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseMoveDim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)If (e.Button = MouseButtons.Left) ThenMe.Location += deltamPrevPos = e.Location - deltaElsemPrevPos = e.LocationEnd IfEnd SubPrivate Sub PictureBox8_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseMoveDim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)If (e.Button = MouseButtons.Left) ThenMe.Location += deltamPrevPos = e.Location - deltaElsemPrevPos = e.LocationEnd IfEnd SubPrivate Sub PictureBox9_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox9.MouseMoveDim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)If (e.Button = MouseButtons.Left) ThenMe.Location += deltamPrevPos = e.Location - deltaElsemPrevPos = e.LocationEnd IfEnd SubPrivate Sub PictureBox10_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseMoveDim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)If (e.Button = MouseButtons.Left) ThenMe.Location += deltamPrevPos = e.Location - deltaElsemPrevPos = e.LocationEnd IfEnd SubPrivate Sub PictureBox11_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox11.MouseMoveDim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)If (e.Button = MouseButtons.Left) ThenMe.Location += deltamPrevPos = e.Location - deltaElsemPrevPos = e.LocationEnd IfEnd SubPrivate Sub PictureBox12_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox12.MouseMoveDim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)If (e.Button = MouseButtons.Left) ThenMe.Location += deltamPrevPos = e.Location - deltaElsemPrevPos = e.LocationEnd IfEnd SubPrivate Sub Label3_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label3.DoubleClickMe.Close()End SubPrivate Sub Label3_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label3.MouseMoveDim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)If (e.Button = MouseButtons.Left) ThenMe.Location += deltamPrevPos = e.Location - deltaElsemPrevPos = e.LocationEnd IfEnd SubPrivate Sub Label3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label3.MouseDownIf e.Button = Windows.Forms.MouseButtons.Right Then'ContextMenuStrip1.Show(Me, e.Location)ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)End IfEnd SubPrivate Sub Label2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label2.DoubleClickMe.Close()End SubPrivate Sub Label2_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseMoveDim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)If (e.Button = MouseButtons.Left) ThenMe.Location += deltamPrevPos = e.Location - deltaElsemPrevPos = e.LocationEnd IfEnd SubPrivate Sub Label2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseDownIf e.Button = Windows.Forms.MouseButtons.Right ThenContextMenuStrip1.Show(Me, e.Location)'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)End IfEnd SubPrivate Sub Label1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.DoubleClickMe.Close()End SubPrivate Sub Label1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMoveDim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)If (e.Button = MouseButtons.Left) ThenMe.Location += deltamPrevPos = e.Location - deltaElsemPrevPos = e.LocationEnd IfEnd SubPrivate Sub Label1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDownIf e.Button = Windows.Forms.MouseButtons.Right Then'ContextMenuStrip1.Show(Me, e.Location)ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)End IfEnd Sub Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDownIf e.Button = Windows.Forms.MouseButtons.Right ThenContextMenuStrip1.Show(Me, e.Location)'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)End IfEnd SubPrivate Sub PictureBox2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseDownIf e.Button = Windows.Forms.MouseButtons.Right ThenContextMenuStrip1.Show(Me, e.Location)'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)End IfEnd SubPrivate Sub PictureBox3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseDownIf e.Button = Windows.Forms.MouseButtons.Right ThenContextMenuStrip1.Show(Me, e.Location)'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)End IfEnd SubPrivate Sub PictureBox4_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox4.MouseDownIf e.Button = Windows.Forms.MouseButtons.Right ThenContextMenuStrip1.Show(Me, e.Location)'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)End IfEnd SubPrivate Sub PictureBox5_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox5.MouseDownIf e.Button = Windows.Forms.MouseButtons.Right ThenContextMenuStrip1.Show(Me, e.Location)'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)End IfEnd SubPrivate Sub PictureBox6_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseDownIf e.Button = Windows.Forms.MouseButtons.Right ThenContextMenuStrip1.Show(Me, e.Location)'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)End IfEnd SubPrivate Sub PictureBox7_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseDownIf e.Button = Windows.Forms.MouseButtons.Right ThenContextMenuStrip1.Show(Me, e.Location)'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)End IfEnd SubPrivate Sub PictureBox8_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseDownIf e.Button = Windows.Forms.MouseButtons.Right ThenContextMenuStrip1.Show(Me, e.Location)'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)End IfEnd SubPrivate Sub PictureBox9_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox9.MouseDownIf e.Button = Windows.Forms.MouseButtons.Right ThenContextMenuStrip1.Show(Me, e.Location)'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)End IfEnd SubPrivate Sub PictureBox10_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseDownIf e.Button = Windows.Forms.MouseButtons.Right ThenContextMenuStrip1.Show(Me, e.Location)'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)End IfEnd SubPrivate Sub PictureBox11_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox11.MouseDownIf e.Button = Windows.Forms.MouseButtons.Right ThenContextMenuStrip1.Show(Me, e.Location)'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)End IfEnd SubPrivate Sub PictureBox12_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox12.MouseDownIf e.Button = Windows.Forms.MouseButtons.Right ThenContextMenuStrip1.Show(Me, e.Location)'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)End IfEnd SubPrivate Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.ClickMsgBox("3D Hijri Program Ver 1.0 " & Chr(10) & "Programmed by:" & Chr(10) & "Ayman Khoshouey 2013" & Chr(10) & "E-Mail: [email protected]" & Chr(10) & "Mobile: (+2010)-1800-2225" & Chr(10) & "Cairo-Egypt")End SubPrivate Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.ClickMe.Close()End SubPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickDim Today_Date As DateDim Month_Nam As StringDim Month_Num As String'Dim Info_Label As StringDim Ar As CultureInfo = New CultureInfo("AR-SA")Thread.CurrentThread.CurrentCulture = ArAr.DateTimeFormat.Calendar = New HijriCalendarAr.NumberFormat.DigitSubstitution = DigitShapes.Context'Label1.Text = Format(Date.Now, " dddd,d MMM yyyy")Label1.Text = Format(Date.Now, "yyyy")Label2.Text = Format(Date.Now, "dddd")Today_Date = Format(Date.Now, " dddd,d MMM yyyy")Month_Nam = Format(Date.Now, "MM")Month_Num = Format(Date.Now, "dd")Ar.DateTimeFormat.Calendar = New GregorianCalendarAr.NumberFormat.DigitSubstitution = DigitShapes.ContextLabel3.Text = Format(Date.Now, "dddd,d MMM yyyy")'Label2.Text = Month_Nam'Label3.Text = Month_Num'PictureBox12.Visible = True'Month_Nam = " "Select Case Month_NamCase "01"PictureBox1.Visible = TrueCase "02"PictureBox2.Visible = TrueCase "03"PictureBox3.Visible = TrueCase "04"PictureBox4.Visible = TrueCase "05"PictureBox5.Visible = TrueCase "06"PictureBox6.Visible = TrueCase "07"PictureBox7.Visible = TrueCase "08"PictureBox8.Visible = TrueCase "09"PictureBox9.Visible = TrueCase "10"PictureBox10.Visible = TrueCase "11"PictureBox11.Visible = TrueCase "12"PictureBox12.Visible = TrueEnd SelectSelect Case Month_NumCase "01"NumBox1.Visible = TrueCase "02"NumBox2.Visible = TrueCase "03"NumBox3.Visible = TrueCase "04"NumBox4.Visible = TrueCase "05"NumBox5.Visible = TrueCase "06"NumBox6.Visible = TrueCase "07"NumBox7.Visible = TrueCase "08"NumBox8.Visible = TrueCase "09"NumBox9.Visible = TrueCase "10"NumBox10.Visible = TrueCase "11"NumBox11.Visible = TrueCase "12"NumBox12.Visible = TrueCase "13"NumBox13.Visible = TrueCase "14"NumBox14.Visible = TrueCase "15"NumBox15.Visible = TrueCase "16"NumBox16.Visible = TrueCase "17"NumBox17.Visible = TrueCase "18"NumBox18.Visible = TrueCase "19"NumBox19.Visible = TrueCase "20"NumBox20.Visible = TrueCase "21"NumBox21.Visible = TrueCase "22"NumBox22.Visible = TrueCase "23"NumBox23.Visible = TrueCase "24"NumBox24.Visible = TrueCase "25"NumBox25.Visible = TrueCase "26"NumBox26.Visible = TrueCase "27"NumBox27.Visible = TrueCase "28"NumBox28.Visible = TrueCase "29"NumBox29.Visible = TrueCase "30"NumBox30.Visible = TrueEnd Select'Month_Nam = ""'Month_Num = "01"If Month_Nam = "01" And Month_Num = "01" Then'InfoLabel2.Visible = True'InfoLabel1.Visible = FalseInfoTextBox2.Visible = TrueInfoTextBox1.Visible = False'InfoLabel2.Text = InfoLabel2.Text.Substring(3) & InfoLabel2.Text.Substring(0, 3)InfoTextBox2.Text = InfoTextBox2.Text.Substring(3) & InfoTextBox2.Text.Substring(0, 3)Else'InfoTextBox1.Text = InfoTextBox1.Text.Substring(3) & InfoTextBox1.Text.Substring(0, 3)InfoTextBox1.Text = InfoTextBox1.Text.Substring(3) & InfoTextBox1.Text.Substring(0, 3)End IfIf Month_Nam = "01" And Month_Num = "10" Then'InfoLabel1.Text = " "InfoTextBox3.Visible = TrueInfoTextBox1.Visible = FalseInfoTextBox3.Text = InfoTextBox3.Text.Substring(3) & InfoTextBox3.Text.Substring(0, 3)End IfIf Month_Nam = "03" And Month_Num = "12" Then'InfoLabel1.Text = " "InfoTextBox4.Visible = TrueInfoTextBox1.Visible = FalseInfoTextBox4.Text = InfoTextBox4.Text.Substring(3) & InfoTextBox4.Text.Substring(0, 3)End IfIf Month_Nam = "08" And Month_Num = "15" ThenInfoTextBox5.Visible = TrueInfoTextBox1.Visible = FalseInfoTextBox5.Text = InfoTextBox5.Text.Substring(3) & InfoTextBox5.Text.Substring(0, 3)'InfoLabel1.Text = " "End IfIf Month_Nam = "10" And Month_Num = "01" ThenInfoTextBox6.Visible = TrueInfoTextBox1.Visible = FalseInfoTextBox6.Text = InfoTextBox6.Text.Substring(3) & InfoTextBox6.Text.Substring(0, 3)'InfoLabel1.Text = " "End IfIf Month_Nam = "12" And Month_Num = "10" Then'InfoLabel1.Text = " "InfoTextBox7.Visible = TrueInfoTextBox1.Visible = FalseInfoTextBox7.Text = InfoTextBox7.Text.Substring(3) & InfoTextBox7.Text.Substring(0, 3)End If'InfoLabel1.Text = InfoLabel1.Text.Substring(3) & InfoLabel1.Text.Substring(0, 3)Select Case hours' Case Is < 12'Label1.Text = " "'ElseIf hours < 17 Then' Str = "Afternoon"'ElseIf hours >= 12 Then'Str = "Evening"Case Is >= 18'Label1.Text = " "'Process.Start("C:\Users\khoshoueyae\Documents\3D Hijri Arabic.exe")Me.Close()Case ElseExit Sub'End IfEnd SelectEnd SubPrivate Sub InfoTextBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox1.DoubleClickMe.Close()End SubPrivate Sub InfoTextBox2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox2.DoubleClickMe.Close()End SubPrivate Sub InfoTextBox3_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox3.DoubleClickMe.Close()End SubPrivate Sub InfoTextBox4_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox4.DoubleClickMe.Close()End SubPrivate Sub InfoTextBox5_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox5.DoubleClickMe.Close()End SubPrivate Sub InfoTextBox6_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox6.DoubleClickMe.Close()End SubPrivate Sub InfoTextBox7_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox7.DoubleClickMe.Close()End Sub Private Sub YesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YesToolStripMenuItem.ClickMe.TopMost = TrueEnd SubPrivate Sub NoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NoToolStripMenuItem.ClickMe.TopMost = FalseEnd SubPrivate Sub CalendarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalendarToolStripMenuItem.ClickFormCalendar.Show()End Sub'Private Sub Label1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.MouseHover' Label1.ForeColor = Color.Cyan'End SubPrivate Sub ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem.ClickMsgBox("..........." & Chr(10) & " / " & Chr(10) & " ")End SubEnd Class يمكن رفع الصور المتحركة للبرنامج اذا رغب احد فى ذلك حيث لم اتمكن من رفعها فى الموقع 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 15 Jun 2014 اعتقد لو ارفق المشروع يكون افضل 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 16 Jun 2014 لا مانع عندى فى نشر المشروع ولكن حجم ملفات المشروع 10.2 MB كيف يمكننى نشرها هنا فى هذا الموقع 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 19 Jun 2014 قم بحف ملف bin واضغط الملف 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 10 Sep 2014 (معدل) هذا الرابط يحتوى مشروعاتى المجانية http://code.msdn.microsoft.com/site/search?f%5B0%5D.Type=User&f%5B0%5D.Value=Ayman%20The%20King تم تعديل 11 Sep 2014 بواسطه Ayman Khoshouey 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
تم النشر منذ
كود ابرنامج:
Imports System.Threading '
Imports System.Globalization '
'
Public Class Form1
'Private moveTo As Point
Private mPrevPos As New Point
Dim hours As Integer = DateTime.Now.Hour
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Dim Today_Date As Date
'Dim Month_Nam As String
'Dim Month_Num As String
Me.ControlBox = False
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Text = ""
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
TransparencyKey = Color.White
'Button1.BackColor = Color.White
'PictureBox1.BackColor = Color.White
Me.BackColor = Color.White
End Sub
Private Sub PictureBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.DoubleClick
Me.Close()
End Sub
Private Sub PictureBox2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox2.DoubleClick
Me.Close()
End Sub
Private Sub PictureBox3_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox3.DoubleClick
Me.Close()
End Sub
Private Sub PictureBox4_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox4.DoubleClick
Me.Close()
End Sub
Private Sub PictureBox5_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox5.DoubleClick
Me.Close()
End Sub
Private Sub PictureBox6_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox6.DoubleClick
Me.Close()
End Sub
Private Sub PictureBox7_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox7.DoubleClick
Me.Close()
End Sub
Private Sub PictureBox8_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox8.DoubleClick
Me.Close()
End Sub
Private Sub PictureBox9_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox9.DoubleClick
Me.Close()
End Sub
Private Sub PictureBox10_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox10.DoubleClick
Me.Close()
End Sub
Private Sub PictureBox11_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox11.DoubleClick
Me.Close()
End Sub
Private Sub PictureBox12_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox12.DoubleClick
Me.Close()
End Sub
Private Sub PictureBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)
If (e.Button = MouseButtons.Left) Then
Me.Location += delta
mPrevPos = e.Location - delta
Else
mPrevPos = e.Location
End If
End Sub
Private Sub PictureBox2_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseMove
Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)
If (e.Button = MouseButtons.Left) Then
Me.Location += delta
mPrevPos = e.Location - delta
Else
mPrevPos = e.Location
End If
End Sub
Private Sub PictureBox3_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseMove
Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)
If (e.Button = MouseButtons.Left) Then
Me.Location += delta
mPrevPos = e.Location - delta
Else
mPrevPos = e.Location
End If
End Sub
Private Sub PictureBox4_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox4.MouseMove
Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)
If (e.Button = MouseButtons.Left) Then
Me.Location += delta
mPrevPos = e.Location - delta
Else
mPrevPos = e.Location
End If
End Sub
Private Sub PictureBox5_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox5.MouseMove
Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)
If (e.Button = MouseButtons.Left) Then
Me.Location += delta
mPrevPos = e.Location - delta
Else
mPrevPos = e.Location
End If
End Sub
Private Sub PictureBox6_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseMove
Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)
If (e.Button = MouseButtons.Left) Then
Me.Location += delta
mPrevPos = e.Location - delta
Else
mPrevPos = e.Location
End If
End Sub
Private Sub PictureBox7_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseMove
Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)
If (e.Button = MouseButtons.Left) Then
Me.Location += delta
mPrevPos = e.Location - delta
Else
mPrevPos = e.Location
End If
End Sub
Private Sub PictureBox8_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseMove
Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)
If (e.Button = MouseButtons.Left) Then
Me.Location += delta
mPrevPos = e.Location - delta
Else
mPrevPos = e.Location
End If
End Sub
Private Sub PictureBox9_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox9.MouseMove
Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)
If (e.Button = MouseButtons.Left) Then
Me.Location += delta
mPrevPos = e.Location - delta
Else
mPrevPos = e.Location
End If
End Sub
Private Sub PictureBox10_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseMove
Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)
If (e.Button = MouseButtons.Left) Then
Me.Location += delta
mPrevPos = e.Location - delta
Else
mPrevPos = e.Location
End If
End Sub
Private Sub PictureBox11_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox11.MouseMove
Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)
If (e.Button = MouseButtons.Left) Then
Me.Location += delta
mPrevPos = e.Location - delta
Else
mPrevPos = e.Location
End If
End Sub
Private Sub PictureBox12_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox12.MouseMove
Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)
If (e.Button = MouseButtons.Left) Then
Me.Location += delta
mPrevPos = e.Location - delta
Else
mPrevPos = e.Location
End If
End Sub
Private Sub Label3_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label3.DoubleClick
Me.Close()
End Sub
Private Sub Label3_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label3.MouseMove
Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)
If (e.Button = MouseButtons.Left) Then
Me.Location += delta
mPrevPos = e.Location - delta
Else
mPrevPos = e.Location
End If
End Sub
Private Sub Label3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label3.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
'ContextMenuStrip1.Show(Me, e.Location)
ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)
End If
End Sub
Private Sub Label2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label2.DoubleClick
Me.Close()
End Sub
Private Sub Label2_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseMove
Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)
If (e.Button = MouseButtons.Left) Then
Me.Location += delta
mPrevPos = e.Location - delta
Else
mPrevPos = e.Location
End If
End Sub
Private Sub Label2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
ContextMenuStrip1.Show(Me, e.Location)
'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)
End If
End Sub
Private Sub Label1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.DoubleClick
Me.Close()
End Sub
Private Sub Label1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)
If (e.Button = MouseButtons.Left) Then
Me.Location += delta
mPrevPos = e.Location - delta
Else
mPrevPos = e.Location
End If
End Sub
Private Sub Label1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
'ContextMenuStrip1.Show(Me, e.Location)
ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)
End If
End Sub
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
ContextMenuStrip1.Show(Me, e.Location)
'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)
End If
End Sub
Private Sub PictureBox2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
ContextMenuStrip1.Show(Me, e.Location)
'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)
End If
End Sub
Private Sub PictureBox3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
ContextMenuStrip1.Show(Me, e.Location)
'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)
End If
End Sub
Private Sub PictureBox4_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox4.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
ContextMenuStrip1.Show(Me, e.Location)
'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)
End If
End Sub
Private Sub PictureBox5_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox5.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
ContextMenuStrip1.Show(Me, e.Location)
'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)
End If
End Sub
Private Sub PictureBox6_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
ContextMenuStrip1.Show(Me, e.Location)
'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)
End If
End Sub
Private Sub PictureBox7_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
ContextMenuStrip1.Show(Me, e.Location)
'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)
End If
End Sub
Private Sub PictureBox8_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
ContextMenuStrip1.Show(Me, e.Location)
'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)
End If
End Sub
Private Sub PictureBox9_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox9.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
ContextMenuStrip1.Show(Me, e.Location)
'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)
End If
End Sub
Private Sub PictureBox10_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
ContextMenuStrip1.Show(Me, e.Location)
'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)
End If
End Sub
Private Sub PictureBox11_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox11.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
ContextMenuStrip1.Show(Me, e.Location)
'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)
End If
End Sub
Private Sub PictureBox12_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox12.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
ContextMenuStrip1.Show(Me, e.Location)
'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y)
End If
End Sub
Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
MsgBox("3D Hijri Program Ver 1.0 " & Chr(10) & "Programmed by:" & Chr(10) & "Ayman Khoshouey 2013" & Chr(10) & "E-Mail: [email protected]" & Chr(10) & "Mobile: (+2010)-1800-2225" & Chr(10) & "Cairo-Egypt")
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim Today_Date As Date
Dim Month_Nam As String
Dim Month_Num As String
'Dim Info_Label As String
Dim Ar As CultureInfo = New CultureInfo("AR-SA")
Thread.CurrentThread.CurrentCulture = Ar
Ar.DateTimeFormat.Calendar = New HijriCalendar
Ar.NumberFormat.DigitSubstitution = DigitShapes.Context
'Label1.Text = Format(Date.Now, " dddd,d MMM yyyy")
Label1.Text = Format(Date.Now, "yyyy")
Label2.Text = Format(Date.Now, "dddd")
Today_Date = Format(Date.Now, " dddd,d MMM yyyy")
Month_Nam = Format(Date.Now, "MM")
Month_Num = Format(Date.Now, "dd")
Ar.DateTimeFormat.Calendar = New GregorianCalendar
Ar.NumberFormat.DigitSubstitution = DigitShapes.Context
Label3.Text = Format(Date.Now, "dddd,d MMM yyyy")
'Label2.Text = Month_Nam
'Label3.Text = Month_Num
'PictureBox12.Visible = True
'Month_Nam = " "
Select Case Month_Nam
Case "01"
PictureBox1.Visible = True
Case "02"
PictureBox2.Visible = True
Case "03"
PictureBox3.Visible = True
Case "04"
PictureBox4.Visible = True
Case "05"
PictureBox5.Visible = True
Case "06"
PictureBox6.Visible = True
Case "07"
PictureBox7.Visible = True
Case "08"
PictureBox8.Visible = True
Case "09"
PictureBox9.Visible = True
Case "10"
PictureBox10.Visible = True
Case "11"
PictureBox11.Visible = True
Case "12"
PictureBox12.Visible = True
End Select
Select Case Month_Num
Case "01"
NumBox1.Visible = True
Case "02"
NumBox2.Visible = True
Case "03"
NumBox3.Visible = True
Case "04"
NumBox4.Visible = True
Case "05"
NumBox5.Visible = True
Case "06"
NumBox6.Visible = True
Case "07"
NumBox7.Visible = True
Case "08"
NumBox8.Visible = True
Case "09"
NumBox9.Visible = True
Case "10"
NumBox10.Visible = True
Case "11"
NumBox11.Visible = True
Case "12"
NumBox12.Visible = True
Case "13"
NumBox13.Visible = True
Case "14"
NumBox14.Visible = True
Case "15"
NumBox15.Visible = True
Case "16"
NumBox16.Visible = True
Case "17"
NumBox17.Visible = True
Case "18"
NumBox18.Visible = True
Case "19"
NumBox19.Visible = True
Case "20"
NumBox20.Visible = True
Case "21"
NumBox21.Visible = True
Case "22"
NumBox22.Visible = True
Case "23"
NumBox23.Visible = True
Case "24"
NumBox24.Visible = True
Case "25"
NumBox25.Visible = True
Case "26"
NumBox26.Visible = True
Case "27"
NumBox27.Visible = True
Case "28"
NumBox28.Visible = True
Case "29"
NumBox29.Visible = True
Case "30"
NumBox30.Visible = True
End Select
'Month_Nam = ""
'Month_Num = "01"
If Month_Nam = "01" And Month_Num = "01" Then
'InfoLabel2.Visible = True
'InfoLabel1.Visible = False
InfoTextBox2.Visible = True
InfoTextBox1.Visible = False
'InfoLabel2.Text = InfoLabel2.Text.Substring(3) & InfoLabel2.Text.Substring(0, 3)
InfoTextBox2.Text = InfoTextBox2.Text.Substring(3) & InfoTextBox2.Text.Substring(0, 3)
Else
'InfoTextBox1.Text = InfoTextBox1.Text.Substring(3) & InfoTextBox1.Text.Substring(0, 3)
InfoTextBox1.Text = InfoTextBox1.Text.Substring(3) & InfoTextBox1.Text.Substring(0, 3)
End If
If Month_Nam = "01" And Month_Num = "10" Then
'InfoLabel1.Text = " "
InfoTextBox3.Visible = True
InfoTextBox1.Visible = False
InfoTextBox3.Text = InfoTextBox3.Text.Substring(3) & InfoTextBox3.Text.Substring(0, 3)
End If
If Month_Nam = "03" And Month_Num = "12" Then
'InfoLabel1.Text = " "
InfoTextBox4.Visible = True
InfoTextBox1.Visible = False
InfoTextBox4.Text = InfoTextBox4.Text.Substring(3) & InfoTextBox4.Text.Substring(0, 3)
End If
If Month_Nam = "08" And Month_Num = "15" Then
InfoTextBox5.Visible = True
InfoTextBox1.Visible = False
InfoTextBox5.Text = InfoTextBox5.Text.Substring(3) & InfoTextBox5.Text.Substring(0, 3)
'InfoLabel1.Text = " "
End If
If Month_Nam = "10" And Month_Num = "01" Then
InfoTextBox6.Visible = True
InfoTextBox1.Visible = False
InfoTextBox6.Text = InfoTextBox6.Text.Substring(3) & InfoTextBox6.Text.Substring(0, 3)
'InfoLabel1.Text = " "
End If
If Month_Nam = "12" And Month_Num = "10" Then
'InfoLabel1.Text = " "
InfoTextBox7.Visible = True
InfoTextBox1.Visible = False
InfoTextBox7.Text = InfoTextBox7.Text.Substring(3) & InfoTextBox7.Text.Substring(0, 3)
End If
'InfoLabel1.Text = InfoLabel1.Text.Substring(3) & InfoLabel1.Text.Substring(0, 3)
Select Case hours
' Case Is < 12
'Label1.Text = " "
'ElseIf hours < 17 Then
' Str = "Afternoon"
'ElseIf hours >= 12 Then
'Str = "Evening"
Case Is >= 18
'Label1.Text = " "
'Process.Start("C:\Users\khoshoueyae\Documents\3D Hijri Arabic.exe")
Me.Close()
Case Else
Exit Sub
'End If
End Select
End Sub
Private Sub InfoTextBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox1.DoubleClick
Me.Close()
End Sub
Private Sub InfoTextBox2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox2.DoubleClick
Me.Close()
End Sub
Private Sub InfoTextBox3_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox3.DoubleClick
Me.Close()
End Sub
Private Sub InfoTextBox4_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox4.DoubleClick
Me.Close()
End Sub
Private Sub InfoTextBox5_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox5.DoubleClick
Me.Close()
End Sub
Private Sub InfoTextBox6_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox6.DoubleClick
Me.Close()
End Sub
Private Sub InfoTextBox7_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox7.DoubleClick
Me.Close()
End Sub
Private Sub YesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YesToolStripMenuItem.Click
Me.TopMost = True
End Sub
Private Sub NoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NoToolStripMenuItem.Click
Me.TopMost = False
End Sub
Private Sub CalendarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalendarToolStripMenuItem.Click
FormCalendar.Show()
End Sub
'Private Sub Label1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.MouseHover
' Label1.ForeColor = Color.Cyan
'End Sub
Private Sub ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem.Click
MsgBox("..........." & Chr(10) & " / " & Chr(10) & " ")
End Sub
End Class
يمكن رفع الصور المتحركة للبرنامج اذا رغب احد فى ذلك حيث لم اتمكن من رفعها فى الموقع
شارك هذا الرد
رابط المشاركة
شارك الرد من خلال المواقع ادناه