Labelの選択 への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 shu  (社会人) 投稿日時 2011/4/30 21:54:55
TextBoxをReadOnlyにするのは駄目ですか？
0
投稿者 O-157  (その他) 投稿日時 2011/4/30 19:01:40
これでいけます。
Public Class Form1

    Dim oldlocation As Point

    Dim oldposition As Point

    Private Sub Label1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown

        oldposition = Cursor.Position

        oldlocation = Label1.Location

        Timer1.Enabled = True

        Timer1.Tag = True

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If Timer1.Tag = True Then

            Label1.Location = New Point(oldlocation.X + Cursor.Position.X - oldposition.X, oldlocation.Y + Cursor.Position.Y - oldposition.Y)

        End If

    End Sub

    Private Sub Label1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseUp

        Timer1.Enabled = False

        Timer1.Tag = False

    End Sub

End Class
0
投稿者 なっちゃん  (中学生) 投稿日時 2011/4/30 17:25:46
Labelの文字をドラッグ出来るようにする方法はありますか？
0