我有一个函数可以将文本框中的十六进制字符串转换为颜色的整数值。问题是我无法执行该功能。
我在函数中有一个断点,在执行时显示以下内容:“没有可执行代码与此行关联”
即使我更换,也会发生这种情况:
cDialog.CustomColors = New Integer() {HexToColor1(tbHeader.Text)}
和:
Dim cat As Integer
cat = HexToColor1(tbHeader.Text)
这是部分代码的样子:
Dim cDialog As New ColorDialog()
Private Sub btnHeader_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHeader.Click
cDialog.CustomColors = New Integer() {HexToColor1(tbHeader.Text)}
End Sub
Private Function HexToColor1(ByVal hexString As String) As Integer
Dim actColor As Integer
Dim r, g, b As Integer
r = 0
g = 0
b = 0
If hexString.StartsWith("#") And hexString.Length = 7 Then
r = Val(hexString.Substring(1, 2))
g = Val(hexString.Substring(3, 2))
b = Val(hexString.Substring(5, 2))
actColor = r + g * 256 + b * 65536
Else
actColor = 0
End If
Return actColor
End Function
即使函数的范围设置为“公共”,也会发生这种情况
编辑:
我不知道这是否是调试器问题。从函数内部删除断点时,代码仍然不起作用。