会python真的可以为所欲为0(回)
350天前
这里还有人吗1(回)
536天前这里还有人吗0(回)
536天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
760天前到处都是羊，不想上班0(回)
840天前
鸽子
0(回)
844天前Public Class Form1 |
Dim a, b As Integer |
Dim full As Integer = 10000 |
Dim attack As Integer = 1000 |
|
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click |
End |
End Sub |
Private Sub ButtonTime_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonTime.Click |
Label1.Text = "现在时间" + Now |
a = full |
b = full |
End Sub |
|
Private Sub Button1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown |
'左键的话，标志位为true（表示拖拽开始） |
If (e.Button = Windows.Forms.MouseButtons.Left) Then |
Button1.DoDragDrop(Button1, DragDropEffects.Copy Or DragDropEffects.Move) '形成拖拽效果，移动+拷贝的组合效果 |
End If |
End Sub |
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load |
Me.AllowDrop = True |
End Sub |
Private Sub Form1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragEnter |
If (e.Data.GetDataPresent(GetType(Button))) Then '当Button被拖拽到WinForm上时候，鼠标效果出现 |
e.Effect = DragDropEffects.Move |
End If |
End Sub |
Private Sub Form1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragDrop |
Button1.Location = Me.PointToClient(New Point(e.X, e.Y)) |
End Sub |
End Class |
