tagCANDY CGI VBレスキュー(花ちゃん) - ドラッグアンドドロップについて(短形の描画)(VB6.0) - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
ドラッグアンドドロップについて(短形の描画)(VB6.0)
元に戻る スレッド一覧へ 記事閲覧
このページ内の検索ができます。(AND 検索や OR 検索のような複数のキーワードによる検索はできません。)

ドラッグアンドドロップについて(短形の描画)(VB6.0) [No.60の個別表示]
     サンプル投稿用掲示板  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



メンテ

Page: 1 |

 投稿フォーム               スレッド一覧へ
題  名 スレッドをトップへソート
名  前
パスワード (記事メンテ時に使用)
投稿キー (投稿時 投稿キー を入力してください)
コメント

   クッキー保存   
スレッド一覧へ