Ben net gestart met VBA (excel), en bezig in het boek:
Microsoft Excel VBA Programming for the absolute beginner.
Hierin staat een code voor een soort pokerspel met dobbelstenen.
Dit heb ik overgenomen, en mede hierdoor begrijp je de code ook sneller.
Maar als ik de code wil runnen dan krijg ik een foutmelding;
Maar ik kan niet terug vinden wat de fout kan zijn.
Iemand die mij hiermee kan helpen? (code in het rood veroorzaakt de foutmelding)
Option Explicit
Private Sub cmdClear_Click()
ckBox1.Value = False
ckBox2.Value = False
ckBox3.Value = False
ckBox4.Value = False
ckBox5.Value = False
Cells(11, "B").Value = " "
cmdRollDice.Enabled = True
cmdClear.Enabled = False
imgDice1.Picture = LoadPicture("")
imgDice2.Picture = LoadPicture("")
imgDice3.Picture = LoadPicture("")
imgDice4.Picture = LoadPicture("")
imgDice5.Picture = LoadPicture("")
End Sub
Private Sub cmdRollDice_Click()
Static I As Integer
Dim imageFile As String
Dim imagePath As String
imagePath = Workbooks("pokerDice.xls").Path & "\"
I = I + 1
cmdClear.Enabled = False
Randomize
If ckBox1.Value = False Then
Cells(1, "A").Value = Int(Rnd * 6) + 1
imageFile = imagePath & Trim(Str(Cells(1, "A").Value)) & ".bmp"
imgDice1.Picture = LoadPicture(imageFile)
End If
Microsoft Excel VBA Programming for the absolute beginner.
Hierin staat een code voor een soort pokerspel met dobbelstenen.
Dit heb ik overgenomen, en mede hierdoor begrijp je de code ook sneller.
Maar als ik de code wil runnen dan krijg ik een foutmelding;
Maar ik kan niet terug vinden wat de fout kan zijn.
Iemand die mij hiermee kan helpen? (code in het rood veroorzaakt de foutmelding)
Option Explicit
Private Sub cmdClear_Click()
ckBox1.Value = False
ckBox2.Value = False
ckBox3.Value = False
ckBox4.Value = False
ckBox5.Value = False
Cells(11, "B").Value = " "
cmdRollDice.Enabled = True
cmdClear.Enabled = False
imgDice1.Picture = LoadPicture("")
imgDice2.Picture = LoadPicture("")
imgDice3.Picture = LoadPicture("")
imgDice4.Picture = LoadPicture("")
imgDice5.Picture = LoadPicture("")
End Sub
Private Sub cmdRollDice_Click()
Static I As Integer
Dim imageFile As String
Dim imagePath As String
imagePath = Workbooks("pokerDice.xls").Path & "\"
I = I + 1
cmdClear.Enabled = False
Randomize
If ckBox1.Value = False Then
Cells(1, "A").Value = Int(Rnd * 6) + 1
imageFile = imagePath & Trim(Str(Cells(1, "A").Value)) & ".bmp"
imgDice1.Picture = LoadPicture(imageFile)
End If
Laatst bewerkt: