サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2007/09/16 13:47
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[マウス][描画・画像][] *
* キーワード：四角,線,ライン,,, *
***********************************************************************************
元質問：ドラッグアンドドロップについて - yuko 2003/7/14-19:50 No.4822
------------------------------------------------------------------------------
Re: ドラッグアンドドロップについて - 魔界の仮面弁士 2003/07/15-19:30 No.4839
------------------------------------------------------------------------------
> VB6で、フォームを短形に選択し、
こういう事でしょうか？
Option Explicit
Private BX1 As Single
Private BY1 As Single
Private BX2 As Single
Private BY2 As Single
Private Sub Form_Load()
AutoRedraw = True
DrawMode = vbXorPen
DrawStyle = vbDot
ForeColor = BackColor
End Sub
Private Sub Form_MouseDown(Button%, Shift%, X!, Y!)
If Button = vbLeftButton Then
BX1 = X
BY1 = Y
BX2 = X
BY2 = Y
End If
End Sub
Private Sub Form_MouseMove(Button%, Shift%, X!, Y!)
If Button = vbLeftButton Then
Line (BX1, BY1)-(BX2, BY2), , B
BX2 = X
BY2 = Y
Line (BX1, BY1)-(BX2, BY2), , B
End If
End Sub
Private Sub Form_MouseUp(Button%, Shift%, X!, Y!)
If Button = vbLeftButton Then
'以下をコメントにすると、矩形が残ったままになる
Line (BX1, BY1)-(BX2, BY2), , B
End If
End Sub
 |
