Şeffaf Dijital saat ve takvim

PROJENİN TAMAMINI ............................. İNDİR

Veya alttaki kutuya tıkla seçimi CTRL+C il kopyala

Public Class Form1 Private takvimgizli As Boolean = False Private KYDurdur As Boolean = False #Region "FORM SÜRÜKLE.." 'sürükle Const i As Integer = &HA1 Const j As Integer = 2 Private Sub PictureBox4_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles PictureBox4.MouseDown, LblTarih.MouseDown, Label3.MouseDown, Label2.MouseDown, Label1.MouseDown PictureBox4.Capture = False LblTarih.Capture = False Label1.Capture = False Label2.Capture = False Label3.Capture = False Dim msg As Message = Message.Create(Me.Handle, i, New IntPtr(j), IntPtr.Zero) Me.DefWndProc(msg) End Sub #End Region Public Shared Sub BaşlangıçtaAç(ByVal Name As String, ByVal Path As String) Dim Registry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser Dim Key As Microsoft.Win32.RegistryKey = Registry.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True) Key.SetValue(Name, Path, Microsoft.Win32.RegistryValueKind.String) End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label1.Text = "Bu Gün " + Date.Now.ToString("dddd ") LblTarih.Text = Mid(Date.Today, 1, 2) Dim bg As String = LblTarih.Text LblTarih.Text = bg 'Mid(Date.Today, 1, 2) End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick Label2.Text = TimeOfDay End Sub Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick Label3.Text = DateString End Sub Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.F5) Then Me.Show() End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load BaşlangıçtaAç(Me.Text, Application.ExecutablePath) ToolTip1.SetToolTip(PictureBox3, " Kayan yazı - Başlat-Durdur ! ") ToolTip1.SetToolTip(PictureBox2, " Minimize ") ToolTip1.SetToolTip(PictureBox1, " Takvim Göster ") ToolTip1.SetToolTip(PictureBox4, " Sağ fare ile Takvimi gizle ") ToolTip1.SetToolTip(KapataPic, " Kapat ") ToolTip1.SetToolTip(LblTarih, " Sağ Fare Tuşu ile Takvimi Aç-Kapat") 'Kayan yazı Timer_KYazi.Interval = 100 Me.Lbl_KayanYazi.Text = "ERDOĞAN ASLAN " & " Bugün " & UCase(DateString) & " " & UCase(Date.Now.ToString("dddd ")) & Space(60) Timer_KYazi.Start() End Sub Private Sub NotifyIcon1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick If Me.Visible Then Me.Hide() Else Me.Show() End If End Sub Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick Me.WindowState = FormWindowState.Maximized End Sub Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Me.Close() End Sub Private Sub PictureBox1_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox1.Click MonthCalendar1.Show() PictureBox1.Hide() PictureBox4.Show() End Sub Private Sub PictureBox4_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox4.Click MonthCalendar1.Hide() PictureBox4.Hide() PictureBox1.Show() End Sub Private Sub PictureBox2_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox2.Click Me.Hide() End Sub Private Sub PictureBox3_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox3.Click If KYDurdur = False Then Lbl_KayanYazi.Visible = False KYDurdur = True Else KYDurdur = False Lbl_KayanYazi.Visible = True End If End Sub Private Sub KapataPic_Click(sender As System.Object, e As System.EventArgs) Handles KapataPic.Click NotifyIcon1.Dispose() Me.Close() End Sub Private Sub Timer_KYazi_Tick(sender As System.Object, e As System.EventArgs) Handles Timer_KYazi.Tick Dim str As String Dim i As Integer str = "" For i = 1 To Me.Lbl_KayanYazi.Text.Length - 1 str = str + Me.Lbl_KayanYazi.Text(i) Next Me.Lbl_KayanYazi.Text = str + Me.Lbl_KayanYazi.Text(0) End Sub Private Sub LblTarih_MouseClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles LblTarih.MouseClick If takvimgizli = False Then PictureBox1_Click(sender, e) takvimgizli = True Else PictureBox4_Click(sender, e) takvimgizli = False End If End Sub Private Sub NotifyIcon1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then NotifyIcon1.Dispose() Me.Close() End If End Sub Private Sub Lbl_KayanYazi_Click(sender As System.Object, e As System.EventArgs) Handles Lbl_KayanYazi.Click If Lbl_KayanYazi.ForeColor = Color.Orange Then Lbl_KayanYazi.ForeColor = Color.White Else Lbl_KayanYazi.ForeColor = Color.Orange End If End Sub Private Sub Label1_Click(sender As System.Object, e As System.EventArgs) Handles Label1.Click If Label1.ForeColor = Color.Orange Then Label1.ForeColor = Color.White Else Label1.ForeColor = Color.Orange End If End Sub Private Sub Label2_Click(sender As System.Object, e As System.EventArgs) Handles Label2.Click If Label2.ForeColor = Color.Orange Then Label2.ForeColor = Color.White Else Label2.ForeColor = Color.Orange End If End Sub Private Sub Label3_Click(sender As System.Object, e As System.EventArgs) Handles Label3.Click If Label3.ForeColor = Color.Orange Then Label3.ForeColor = Color.White Else Label3.ForeColor = Color.Orange End If End Sub End Class

Sadece Exe Programını................................. İNDİR