få lavet en lige streg med musen i et picture box

Picture1.Line (X1, Y1)-(X2, Y2)

Det giver ingen mening, med mindre du har givet X1, X2, Y1 og Y2 værdier

Hvad mener du med lige - alle streger du tegner er lige, med mindre det er buestykker. Mener du vandret?

Så - hvad er det præcist du vil tegne med musen?

jeg vil lave den funktion der er i alle billede behandlings programmer. vor du kan tegne en lige streg fra vor du klikker med musen og til du slipper klikket

Public StartX As Integer
Public StartY As Integer


Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
StartX = X
StartY = Y
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Line (StartX, StartY)-(X, Y)
End Sub

5 points - lidt fedtet måske?

;o)

ja

ville gerne give flere men der var ingen der svarede

PS:

Prøv denne her - det er da meget sejt (sæt musen over pictureboxen, hold knappen nede og flyt rundt med musen...

Ikke noget der kan bruges til noget, men det er da lidt sjovt


Public StartX As Integer
Public Starty As Integer
Public KnapNede As Boolean

Private Sub Form_Load()
KnapNede = False
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
StartX = X
Starty = Y
KnapNede = True
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If KnapNede Then
  Picture1.Line (StartX, Starty)-(X, Y)
End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
KnapNede = False
End Sub

"ville gerne give flere men der var ingen der svarede"

Du kan da bare tildele flere points - og jeg svarer nu :o)

tak for den ekstra funktion

okay tak for hjælpen