runtime error 13 typr mismatch

eddie.b · August 29th, 2011, 06:35 PM

On one screen in my project the following code produces the 'runtime error 13 type mismatch' error:
lblEntry(1).BackColor = MyColor

on another screen the following code works:
lblName(1).BackColor = MyColor

Mycolor is defined as:
Public MyColor As String * 10

Both are labels and if I move the bad one to the other screen it works and if I move the good one to the other screen it does not work. It worked when I first started the project.

Shasur · August 29th, 2011, 10:22 PM

Hi

It should have been int or long.

VB converts the type automatically. It converts '12 ' to 12 etc but it can't do when it comes to Null

Code:

MyColor = ""
Dim d1 As Integer
d1 = CInt(MyColor)

would throw the error. You need to handle this in the code either by checking the length or like :

Code:

If IsNumeric(MyColor) Then
    d1 = CInt(MyColor)
Else
    d1 = 0
End If

Cheers
Shasur