Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
GN Mega Desktop Clock - Orologio.vb

Orologio.vb

Caricato da: GN
Scarica il programma completo

  1. Public Class Orologio
  2.  
  3.     Private Sub Orologio_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  4.         Try
  5.             Secondi.Start()
  6.             Dim Ora2 As String
  7.             Me.BackColor = My.Settings.Sfondo
  8.             Ora.ForeColor = My.Settings.Primo_piano
  9.             If My.Computer.Clock.LocalTime.Hour.ToString.Length = 2 Then
  10.                 Ora2 = My.Computer.Clock.LocalTime.Hour & ":"
  11.             Else
  12.                 Ora2 = "0" & My.Computer.Clock.LocalTime.Hour & ":"
  13.             End If
  14.             If My.Computer.Clock.LocalTime.Minute.ToString.Length = 2 Then
  15.                 Ora2 = Ora2 & My.Computer.Clock.LocalTime.Minute & ":"
  16.             Else
  17.                 Ora2 = Ora2 & "0" & My.Computer.Clock.LocalTime.Minute & ":"
  18.             End If
  19.             If My.Computer.Clock.LocalTime.Second.ToString.Length = 2 Then
  20.                 Ora2 = Ora2 & My.Computer.Clock.LocalTime.Second
  21.             Else
  22.                 Ora2 = Ora2 & "0" & My.Computer.Clock.LocalTime.Second
  23.             End If
  24.             Ora.Text = Ora2
  25.         Catch ex As Exception
  26.  
  27.         End Try
  28.     End Sub
  29.  
  30.     Private Sub Secondi_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Secondi.Tick
  31.         Dim Ora2 As String
  32.         If My.Computer.Clock.LocalTime.Hour.ToString.Length = 2 Then
  33.             Ora2 = My.Computer.Clock.LocalTime.Hour & ":"
  34.         Else
  35.             Ora2 = "0" & My.Computer.Clock.LocalTime.Hour & ":"
  36.         End If
  37.         If My.Computer.Clock.LocalTime.Minute.ToString.Length = 2 Then
  38.             Ora2 = Ora2 & My.Computer.Clock.LocalTime.Minute & ":"
  39.         Else
  40.             Ora2 = Ora2 & "0" & My.Computer.Clock.LocalTime.Minute & ":"
  41.         End If
  42.         If My.Computer.Clock.LocalTime.Second.ToString.Length = 2 Then
  43.             Ora2 = Ora2 & My.Computer.Clock.LocalTime.Second
  44.         Else
  45.             Ora2 = Ora2 & "0" & My.Computer.Clock.LocalTime.Second
  46.         End If
  47.         Ora.Text = Ora2
  48.     End Sub
  49.  
  50.     Private Sub Colore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColoreSfondo.Click
  51.         SelezioneColore.ShowDialog()
  52.         Me.BackColor = SelezioneColore.Color
  53.         My.Settings.Sfondo = SelezioneColore.Color
  54.     End Sub
  55.  
  56.     Private Sub ColorePrimoPiano_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColorePrimoPiano.Click
  57.         SelezioneColore.ShowDialog()
  58.         Ora.ForeColor = SelezioneColore.Color
  59.         My.Settings.Primo_piano = SelezioneColore.Color
  60.     End Sub
  61.  
  62.     Private Sub Chiudi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chiudi.Click
  63.         Application.Exit()
  64.     End Sub
  65. End Class