7,762
社区成员
发帖
与我相关
我的任务
分享
'现在移动 并且保存是正常的。但是有个问题,如果我双击第三个图,
'然后再双击第四个图,第三个图坐标就会变成第四个的坐标,而与第四个图重叠了,
'这是第三个 的移动保存代码
Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'标示为移动状态
MoveScreen = True
'得到鼠标在窗体上的位置(相对与窗体内部坐标)
MousX = X
MousY = Y
End If
End Sub
Private Sub Image3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If MoveScreen Then
'计算新的窗体坐标值
CurrX = Image3.Left - MousX + X
CurrY = Image3.Top - MousY + Y
'移动窗体到新的位置
Image3.Move CurrX, CurrY
End If
Text1.Text = CurrX
Text2.Text = CurrY
End Sub
Private Sub Image3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MoveScreen = False
Dim cn As New ADODB.Connection
Dim mrc As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
txtSQL = "UPDATE Sossid SET ClassX = '" & Text1.Text & "' , ClassY ='" & Text2.Text & "' WHERE SoftId = 3"
RunSQL txtSQL, MsgText
End Sub
'第四个
Private Sub Image4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'标示为移动状态
MoveScreen = True
'得到鼠标在窗体上的位置(相对与窗体内部坐标)
MousX = X
MousY = Y
End If
End Sub
Private Sub Image4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If MoveScreen Then
'计算新的窗体坐标值
CurrX = Image4.Left - MousX + X
CurrY = Image4.Top - MousY + Y
'移动窗体到新的位置
Image4.Move CurrX, CurrY
End If
Text1.Text = CurrX
Text2.Text = CurrY
End Sub
Private Sub Image4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MoveScreen = False
Dim cn As New ADODB.Connection
Dim mrc As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
txtSQL = "UPDATE Sossid SET ClassX = '" & Text1.Text & "' , ClassY ='" & Text2.Text & "' WHERE SoftId = 4"
RunSQL txtSQL, MsgText
End Sub