problem med CInt i eVB
HejJeg er igang med at lave et simpelt yatzy spil til PPC, men sidder fast pga jeg skal have lagt nogle tal fra nogle labels sammen, men for følgende fejl:
"
Application Error
An error was encountered while running this program:
Type mismatch: 'CInt'
"
Min kode ser sådan her ud:
Dim tmp1 As Integer
Dim tmp2 As Integer
Dim tmp3 As Integer
Dim tmp4 As Integer
Dim tmp5 As Integer
Dim tmp6 As Integer
'Spiller 1:
tmp1 = CInt(lblSp1Ac1.Caption)
tmp2 = CInt(lblSp1Ac2.Caption)
tmp3 = CInt(lblSp1Ac3.Caption)
tmp4 = CInt(lblSp1Ac4.Caption)
tmp5 = CInt(lblSp1Ac5.Caption)
tmp6 = CInt(lblSp1Ac6.Caption)
tmpInt = tmp1 + tmp2 + tmp3 + tmp4 + tmp5 + tmp6
lbl1stSUMpl1.Caption = tmpInt
If lbl1stSUMpl1.Caption > 83 Then lblpl1Bonus.Caption = 50
Har prøvet med Val() istedet, men den er åbenbart slet ikke i eMbedded Visual Basic :/
Mvh
Mikkel
