-1

私は vstudio 2012 を学んでいます。「borderstyle = none」でフォームを移動可能にしようとしていますが、できません。

Googleで見つけたすべての情報は、この問題についてvb4 5および6について語っています。バージョンが古すぎて使用できません（方法がわかりません）。

私の宣言は非常にシンプルです。アプリをクリックしてウィンドウを移動可能にするだけです(フォームのどこでも):

Public Class Form1

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label2.Text = "X: " & MousePosition.X
        Label3.Text = "Y: " & MousePosition.Y

    End Sub

    Sub Form1_KeyPress(ByVal sender As Object, _
      ByVal e As KeyPressEventArgs) Handles Me.KeyPress
        If e.KeyChar >= ChrW(3) Then
            Clipboard.SetDataObject(Label2.Text & " " & Label3.Text)
        End If
    End Sub

End Class

何か助けてください。読んでくれてありがとう

4

1 に答える 1

0

私はこれを解決しました、ありがとう。

Private ArrastrarForm As Boolean
Private PosicionMouseHeader As Point
Private tmpPoint As Point


Private Sub Form1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
    If e.Button = Windows.Forms.MouseButtons.Left Then
        ArrastrarForm = True
        PosicionMouseHeader = e.Location
    End If
End Sub

Private Sub Form1_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
    If ArrastrarForm Then
        tmpPoint = Me.Location + e.Location - PosicionMouseHeader
        Me.Location = tmpPoint
    End If
End Sub

Private Sub Form1_MouseUp(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
    If e.Button = Windows.Forms.MouseButtons.Left Then
        ArrastrarForm = False
    End If
End Sub

さよなら！

于 2012-11-07T16:51:11.133 に答える