1

私はこれのために多くのウェブサイトを使用しましたが、どれも機能しなかったので、正しい答えが得られることを願っています

私はこれを試してみましたが、何が問題なのか教えてください:

    Private sub Picture1_mouseDown
    x = picture1.currentx
    y = picture1.currenty
    End sub

    Private sub Picture1_MouseMove
    If button = 1 then
    line (picture1.currentx,picture1.currenty)-(x,y), _
    QBColor(0)
    End if 
    End sub

私は急いで仕上げているので、Private サブ Picture1_MouseMove,Mousedown() ビットを切り落としました。

4

2 に答える 2

1

メソッドPictureBoxを使用して、コントロールに線を引きます。Line

サブライン (フラグは整数、X1 はシングル、Y1 はシングル、X2 はシングル、Y2 はシングル、カラーはロング)

Member of VB.PictureBox
Draws lines and rectangles on an object.

それについて言うことはあまりありません。それは、vb6 で動的に線を引くにはどうすればよいですか? で既に説明されています。

ただし、イベント ハンドラーの作成に問題があるようです。署名を知らない/覚えていない場合は、IDE がいつでもサポートします。VB6チュートリアルでイベントに応答するコントロールへのコードの割り当てを確認してください。

描画を開始するのに役立つコードがあります。コントロールですPicture1。PictureBoxマウスの左ボタンを押したままマウスを画像ボックスの上に移動すると、青い線が描画されます。

Option Explicit

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        Picture1.DrawWidth = 5
        Picture1.Line (X, Y)-(X, Y), vbBlue
    End If
End Sub
于 2013-04-03T07:40:32.690 に答える