关于文本框拖动的问题，请教各位大侠

Question

能否给我一个文本框拖动的原代码，谢谢！

Answer 1

DragDrop 事件示例
本例演示将一个 PictureBox 控件放到另一个 PictureBox 控件上的视觉效果。要尝试这个例子，可将代码粘贴到一个含有 3 个 PictureBox 控件的窗体声明部分。将 Picture1 和 Picture2 的 DragMode 属性设置为 1（自动）。使用 Picture 属性将位图赋值给 Picture1 和 Picture2，然后按 F5 键并将 Picture1 或 Picture2 拖到 Picture3 上。Private Sub Picture3_DragDrop (Source As Control, X as Single, Y As Single)
   If TypeOf Source Is PictureBox Then
      ' 将 Picture3 位图设置为与源控件相同。
      Picture3.Picture = Source.Picture
   End If
End Sub

Answer 2

DragOver 事件示例
本例演示一种指示有效的拖放目标的方法。当一个 TextBox 控件被拖过一个 PictureBox 控件时，指针从缺省的箭头变为特定的图标。当源被拖到其它地方时，指针恢复到缺省的状态。要尝试这个例子，可将代码粘贴到一个包含 1 个小 TextBox 和一个 PictureBox 的窗体的声明部分。将 TextBox 控件的 DragMode 属性设置为 1，然后按 F5 键并把 TextBox 拖过 PictureBox。Private Sub Picture1_DragOver (Source As Control, X As Single, Y As Single, State As Integer)
   Select Case State
      Case vbEnter
   ' 装载图标。
         Source.DragIcon = LoadPicture("ICONS\ARROWS\POINT03.ICO")
      Case vbLeave
         Source.DragIcon = LoadPicture()   ' 卸载图标.
   End Select
End SubPrivate Sub Picture1_DragDrop (Source As Control, X As Single, Y As Single)
   Source.DragIcon = LoadPicture()   ' 卸载图标。
End Sub

Answer 3

不明白什么意思，我要得到新的TEXT的位置如何得到

Answer 4

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
    Text1.Move X - Text1.Width / 2, Y - Text1.Height / 2
    
End SubPrivate Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Text1.Drag 1
    
End SubPrivate Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Text1.Drag 2
    
End Sub
试试，有疑问再问我！

Answer 5

谢谢了，在问你个问题吧
你知道alt+上（下，左，右）箭头的ASCII码是多少吗

Answer 6

alt+上（下，左，右）箭头 没有ascii码，他们只有键码（keycode）
如果你要判断这些键是否按下的话，可以在keydown事件里面判断它的keycode。
alt的keycode:17
上：38
下:40
左:37
右:39
不知道这个答案是否能让你满意！

Answer 7

Text1.Drag 后面加2是什么意思啊

Answer 8

当drag 为2时, text1就不能drag