我有这段代码,if carloc = (250,524)
部分有错误。代码是检查汽车(图片框)是否在某处,然后在推动'A'时将ti移动到其他地方。这是代码:
Public Class Form1
Dim carloc As Point
Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
Select e.KeyCode
Case Keys.A
If carloc = (250,524) then
carloc = New Point(285, 524)
car.Location = carloc
End If
End Select
End Sub
结束班
答案 0 :(得分:2)
您需要单独检查坐标:
If carloc.X = 250 AndAlso carloc.Y = 524 Then
carloc = New Point(285, 524)
' ....
如果你正在处理一个值类型(Structure
),在这种情况下,或者类型实现IEquatable(Of T)
,你也可以写:
If carloc = New Point(250, 524) Then
carloc = New Point(285, 524)
' ....
在这种情况下 ,但不是任何类型的一般规则。