Dobbelsteen: code

• Dit is de code van het project nadat de wizard heeft gelopen.
• We hebben de events Click en DblClick opgenomen
  Event Click() 'MappingInfo=UserControl,UserControl,-1,Click
  Attribute Click.VB_Description = "Occurs when the user presses and then releases a mouse button over an object."
  Event DblClick() 'MappingInfo=UserControl,UserControl,-1,DblClick
  Attribute DblClick.VB_Description = "Occurs when the user presses and releases a mouse button and then presses and releases it again over an object."
  
  Private Sub UserControl_Click()
  RaiseEvent Click
  End Sub
  
  Private Sub UserControl_DblClick()
  RaiseEvent DblClick
  End Sub
  
• Bij het opstarten passen we de maten aan aan de maten van de dobbelstenen (die iconen zijn), en gooien we met de dobbelsteen.
  Private Sub UserControl_Initialize()
  With picDobbel
  .Top = 0
  .Left = 0
  .Width = 32
  .Height = 32
  End With
  Throw
  End Sub
  
• Het gooien met de dobbelsteen gebeurt als volgt:
  Public Sub Throw()
  Attribute Throw.VB_Description = "Gooit met de dobbelsteen"
  Dim nr As Integer
  Randomize
  nr = Int(Rnd * 6) + 1
  UserControl.picDobbel.Picture = ImageList1.ListImages(nr).Picture
  lblNr.Caption = nr
  End Sub
  
• Voor het koppelen van de eigenschap Number aan de Caption van het verborgen label, heeft de wizard de volgende code toegevoegd:
  'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  'MappingInfo=lblNr,lblNr,-1,Caption
  Public Property Get Number() As String
  Attribute Number.VB_Description = "Het getal vande dobbelsteen."
  Number = lblNr.Caption
  End Property
  
  Public Property Let Number(ByVal New_Number As String)
  'het getal op de dobbelsteen kan alleen veranderd worden door de methode Throw
  'deze code moet dus weg
  'lblNr.Caption() = New_Number
  'PropertyChanged "Number"
  End Property

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