VBレスキュー(花ちゃん)の Visual Basic 6.0用掲示板

タイトル： Re: ピクチャーボックスの描画について

投稿日： 2009/03/12(Thu) 23:24

投稿者： 魔界の仮面弁士

描画処理は、Paint イベントにまとめるようにしてください。
また、消さずに残しておきたい内容があるならば、背景画像として登録するようにします。

Option Explicit
Private nPosX As Single
Private nPosY As Single
Private sPosX As Single
Private sPosY As Single
Private ePosX As Single
Private ePosY As Single

Private Sub Form_Load()
　Picture1.ScaleHeight = 3000
　Picture1.ScaleWidth = 6000
　Picture1.AutoRedraw = True
　Picture1.DrawStyle = vbSolid
　Picture1.Line (0, 0)-(1000, 1000), , BF
　Set Picture1.Picture = Picture1.Image
　Picture1.AutoRedraw = False
　Picture1.Cls
　Picture1.FillStyle = vbUpwardDiagonal
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
　If (Button And vbLeftButton) <> 0 Then
　　sPosX = X
　　sPosY = 0
　　ePosX = X
　　ePosY = 2000
　End If
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
　If (Button And vbLeftButton) <> 0 Then
　　nPosX = X
　　nPosY = 2000
　　Picture1.Refresh
　End If
End Sub

Private Sub Picture1_Paint()
　Picture1.Cls
　Picture1.Line (sPosX, sPosY)-(ePosX, ePosY), vbBlue, B
　ePosX = nPosX
　ePosY = nPosY
End Sub

- 関連一覧ツリー （

をクリックするとツリー全体を一括表示します）

ピクチャーボックスの描画について

慶次

No.13503

Re: ピクチャーボックスの描画について - ちがうか？ 09/03/12-18:47 No.13505
- Re^2: ピクチャーボックスの描画について - 慶次 09/03/12-20:48 No.13508
Re: ピクチャーボックスの描画について - 魔界の仮面弁士 09/03/12-23:24 No.13509
- 【解決】ピクチャーボックスの描画について - 慶次 09/03/13-22:58 No.13513

タイトル	： Re: ピクチャーボックスの描画について
投稿日	： 2009/03/12(Thu) 23:24
投稿者	：魔界の仮面弁士

古いスレッドにレスはつけられません。