サンプル投稿用掲示板　　VB2005 〜 用トップページ　　VB6.0 用 トップページ ドラッグアンドドロップについて(短形の描画)(VB6.0) ( No.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

　[スレッド一覧へ]　[親スレッドへ]