(VB6)- Error 13 Type Mismatch bij laden door een getal

[satriano17]

Ik heb een text1.text
een image
en door middel van een getal wordt een image geladen.

Dim text1 as string
....
....
Private Sub Text5_Change()
If Text1.Text = 1 Then
Image2.Picture = LoadPicture(App.Path & "\photo\" & "1.bmp")
End If

If Text1.Text = 2 Then
Image2.Picture = LoadPicture(App.Path & "\photo\" & "2.bmp")
End If

If Text1.Text = 3 Then
Image2.Picture = LoadPicture(App.Path & "\photo\" & "3.bmp")
End If

Maar ik krijg, bij laden, af en toe een error Error 13 - Type mismatch

Is misschien de Dim verkeert?

Welk is de juist Dim en syntax?

zo?

If val(Text1.Text) = 1 Then

........
of ook zo?

If val(Text1.Text) ="1" Then

dank u

 

[edmoor]

Je declareert Text1 als string.
Dus wat denk je?
"1" is iets anders dan 1.

 

[satriano17]

dus als een string is, moet zo

Dim text1 as string
if text1.text="1" then
...

ik had ook inderdaad geprobeerd met
Dim Text1 als Integer

maar werkt niet optimaal.

 

[edmoor]

Een string kan je alles in kwijt.
Een integer alleen getallen.
Probeer je een string waarde in een Integer te zetten krijg je inderdaad fout 13.

 

[satriano17]

Opgelost met

Dim text1 as string
if text1.text="1" then
..........................