掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
あみだくじを。。。。 (ID：107407)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
線のドラッグというのは、真面目にやったら 結構面倒な処理です。 (一種のドロー系グラフィックエディタのようなものですから・・・) あみだの場合、妙な拡張(横線のクロスやジャンプ)をしなければ 縦線横線のみで構成されますから、以下のような手抜きが可能です。 FormにImageコントロールを２つ、適当に配置して、 下のコードをコピペして実行してください。 Form上の横線を縦方向にドラッグすれば、移動します。 ちなみに下のコードの .DragIcon = で設定しているアイコンはVisualStudio付属のものです。 もし、お持ちでなかったら、適当なマウスアイコンを設定してください。 Option Explicit Private Sub Form_DragOver(Source As Control, X As Single, Y As Single, State As Integer) Image1.Top = Y End Sub Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single) Image1.Top = Y End Sub Private Sub Form_Load() With Image1 .Height = 0 .BorderStyle = 1 .Appearance = 0 .DragMode = vbAutomatic .DragIcon = LoadPicture("C:\Program Files\Microsoft Visual Studio\Common\Graphics\Icons\Arrows\ARW03LT.ICO") End With End Sub なお、Image2なしでも動作しますが、 横線のMouseDown判定がシビアになります。 また、Image1のかわりにLineコントロールや ShapeコントロールとImage2を組み合わせて使うことも可能です。 その場合は若干のコード変更が必要です。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.