如何在VB中单击窗体右上方时，使窗体移动到桌面的右上方？

[ra3]

这是我写的单击窗体时让该窗口移到左上方的代码，如何让它到右上方就不懂了。

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

'点击窗口的左上角时... ...
If X < Me.Width / 2 And Y < Me.Height / 2 Then
Me.Move 0, 0 '窗口移动到左上角
End If

'点击窗口的右上角时... ...
If X > Me.Width / 2 And Y > Me.Height / 2 Then
'.....
End If

End Sub

[AechoJohn]

'点击窗口的右上角时... ...
dim sngL as single
If X > Me.Width / 2 And Y > Me.Height / 2 Then
'.....
sngL = screen.width - me.width
me.move sngL,0
End If

[victorycyz]

If X > Me.Width / 2 And Y < Me.Height / 2 Then '注意这里是Y<..，不是Y>...
Me.Move Screen.Width - Width, 0
End If

[lihonggen0]

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

'点击窗口的左上角时... ...
If X < Me.Width / 2 And Y < Me.Height / 2 Then
Me.Move 0, 0 '窗口移动到左上角
End If

'点击窗口的右上角时... ...
If X > Me.Width / 2 And Y < Me.Height / 2 Then
Me.Move Screen.Width - Me.Width, 0

End If

End Sub

[HanZhu1]

同意楼上
If X > Me.Width / 2 And Y < Me.Height / 2 Then '注意这里是Y<..，不是Y>...
Me.Move Screen.Width - Width, 0
End If

[mldnking]

中海说的对！！！

[totti0115]

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

'点击窗口的左上角时... ...
If X < Me.Width / 2 And Y < Me.Height / 2 Then
Me.Move 0, 0 '窗口移动到左上角
End If

'点击窗口的右上角时... ...
If X > Me.Width / 2 And Y < Me.Height / 2 Then
Me.Move Screen.Width - Width, 0
End If

End Sub

[since1990]

版主还是比较厉害的