Wie zeichnet man in einer picturebox-Steuerelement in vb6

benutzt habe ich eine Menge von websites, aber keiner war so ich bin in der Hoffnung, ich könnte eine richtige Antwort

habe ich versucht, dieses könnte einer mir einer sagen, was falsch mit es:

    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

habe ich schneiden Sie die Private sub Picture1_MouseMove,Mousedown () - bits aus, weil ich bin in Eile zu beenden

InformationsquelleAutor Swynco.Inc | 2013-04-02
  1. 1

    Dieser wird ziehen Sie eine Linie, die nur geringfügig von kurniliya Lösung, die zieht Punkte

    Option Explicit

Private lastX As Single
Private lastY As Single

Private Sub Form_Load()
    ' no need to set this every time we move the mouse inside Picture1
    Picture1.DrawWidth = 5
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        Picture1.Line (lastX, lastY)-(X, Y), vbBlue
    End If
    lastX = X
    lastY = Y
End Sub
    • vielen Dank, aber ich habe es geschafft jetzt
    InformationsquelleAutor djv
  2. 0

    Zeichnen Sie eine Linie auf PictureBox Kontrolle über seine Line Methode:

    Sub-Zeile(Flags As Integer, X1 As Single, Y1 As Single, X2 As Single, Y2 As Single, Color As Long)

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

    Gibt es nicht viel zu sagen, und es ist bereits bedeckt in Wie zeichnen Sie eine Linie, dynamisch, in vb6?

    Scheinen Sie haben Probleme mit dem schreiben von Ereignishandlern obwohl. Wenn Sie nicht wissen/merken die Signatur, IDE ist immer da, um zu helfen. Check-out Zuordnung Code an ein Steuerelement Reagieren auf ein Ereignis in VB6 tutorial.

    Es ist der code, um Ihnen zu helfen erhalten begonnen mit dem zeichnen. Picture1 ist PictureBox Kontrolle. Blaue Linie wird gezogen, wenn Sie sich bewegen Sie Ihre Maus über das Bild, Feld, halten die linke Maustaste gedrückt.

    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
    • Explicit ist wahrscheinlich die wichtigste Sache für Sie zum mitnehmen aus dieser Antwort für alle Ihre zukünftigen Programmierung in VB6
    • das funktioniert - bis zu einem Grad. Es nicht zeichnen eine Linie, sondern einen Punkt, und ist ziemlich Analog zu Picture1.PSet (X, Y) mit der zusätzlichen Kontrolle über den Punkt Farbe. @Swynco.Inc ging in die Richtung von Linien - oder zumindest angeschlossen Punkte, wie Sie sehen können aus die MouseMove handler. Versuchen Sie diesen code während Sie die Maus bewegen sich schnell und Sie werden sehen, dass es Punkte zeichnen, und nicht auf Zeilen.
    InformationsquelleAutor Ilya Kurnosov
Schreibe einen Kommentar