1

这是我的 VB 网络代码:

Public Class Form1

   Dim hue As Single

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles      Button1.Click
   Dim hueMin As Single = 205
     Dim hueMax As Single = 259

            If (hue > hueMin) & (hue < hueMax) Then

                 bmp.SetPixel(Xcor, Ycor, Color.Black)

             End If
   End Sub

End Class

我进入这一行:

            If (hue > hueMin) & (hue < hueMax) Then

这个例外:

{"从字符串 "FalseTrue" 到类型 'Boolean' 的转换无效。"}

知道如何修复代码吗?先感谢您。

4

1 回答 1

5

正确的测试应该是

If (hue > hueMin) AndAlso (hue < hueMax) Then 
                   ^^^^

&VB.Net 中是字符串连接运算符。

于 2012-08-07T09:30:11.083 回答