Kalender: code

• Bij het opstarten geven we de dag van vandaag in (dat doet de control niet automatisch).
  Private Sub Form_Load()
  With calTest
  .Day = Day(Now)
  .Month = Month(Now)
  .Year = Year(Now)
  End With
  End Sub
  
• Als het formulier van formaat wijzigt, passen we de kalender aan.
  Private Sub Form_Resize()
  With calTest
  .Top = 0
  .Left = 0
  .Height = Me.Height - 500
  .Width = Me.Width - 200
  End With
  End Sub
  
• Als de gebruiker dubbelklikt, tonnen we de geselcteerde dag:
  Private Sub calTest_DblClick()
  MsgBox calTest.Day & "/" & calTest.Month & "/" & calTest.Year
  End Sub
  

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