Klok

• In dit programma tonen we de tijd en de tijd in een andere rijdzone, en laten we de gebruiker het verschil tussen deze en de andere tijdzone bepalen via een verticale schuifbalk die varieert tussen +12 en -12.
  
• Dit is de code:
  Public Class Form1
  Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  lblHier.Text = Now
  lblAndereZone.Text = Now.AddHours(VScrollBar1.Value)
  End Sub
  
  Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll
  lblTijdsverschil.Text = VScrollBar1.Value
  End Sub
  
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  lblTijdsverschil.Text = VScrollBar1.Value
  End Sub
  End Class
• Je kan het programma downloaden.

[VB Web] - [hlrnet] - [copyright]