|
P: 2
|
Hi,
I am writing a program in VB6 where an image is loaded into a picture box if I print this image it is exactly where I expect it to be.
The problem is I need to be able to draw lines on the image in the picture box.
This works fine on the screen but when I then print the image has moved diagonally towards the top left corner of the picturebox.
I am sure the problem is with the line drawing code but can not work out why it is moving the image when printing.
the drawing code is below :- - Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
-
-
'Releases last line if right mouse button is pushed
-
If Button = 2 Then
-
'Erases current Line
-
Picture1.Line (X1, Y1)-(X2, Y2)
-
'Reset line vaiables
-
X2 = 0
-
Y2 = 0
-
LineOn = False
-
Exit Sub
-
End If
-
'If the LineOn Flag is true
-
If LineOn Then
-
'Erase the Stretch Line
-
Picture1.Line (X1, Y1)-(X2, Y2)
-
'Turn inverted draw off
-
Picture1.DrawMode = 13
-
-
X2 = X
-
Y2 = Y
-
-
'Draw the final line
-
Picture1.Line (X1, Y1)-(X2, Y2), RGB(0, 255, 0)
-
'Set new start line points
-
-
X1 = X2
-
Y1 = Y2
-
-
X1 = X
-
Y1 = Y
-
-
-
If LineOn <> 1 Then
-
X2 = 0
-
Y2 = 0
-
LineOn = False
-
Exit Sub
-
End If
-
Else
-
'The line has not been drawn yet
-
-
X1 = X: Y1 = Y
-
-
'Set end values
-
X2 = X
-
Y2 = Y
-
LineOn = True
-
End If
-
Picture1.DrawMode = 6
-
Picture1.DrawStyle = 6
-
X3 = X: Y3 = Y: X4 = X: Y = Y4
-
End Sub
-
-
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
-
'Draw the stretch or rubberband line
-
If LineOn Then
-
Picture1.AutoRedraw = True
-
Picture1.Line (X1, Y1)-(X2, Y2)
-
X2 = X
-
Y2 = Y
-
Picture1.Line (X1, Y1)-(X, Y)
-
-
-
End If
-
End Sub
I hope someone can help with this as it is driving me mad
Dave
| |
Share this Question
|
P: 31
|
I have thoroughly analysed your code, and have fixed it up for you; however, I am not sure if it will fix your printing problem. Try checking the print settings before printing (i.e. alignment, orientation, margins, etc.) Declarations - Private LineOn As Boolean
-
Private X1 As Long, Y1 As Long, X2 As Long, Y2 As Long
General Code - Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
-
-
Select Case Button
-
Case 1 'Left mouse button (draw)
-
If LineOn Then
-
'Complete the current line
-
Picture1.DrawMode = 13
-
Picture1.Line (X1, Y1)-(X, Y), RGB(0, 255, 0)
-
LineOn = False
-
Else
-
'Prepare to draw line
-
X1 = X
-
Y1 = Y
-
X2 = X
-
Y2 = Y
-
LineOn = True
-
End If
-
Case 2 'Right mouse button (cancel)
-
If LineOn Then
-
'Erase line if one is being constructed
-
Picture1.Line (X1, Y1)-(X, Y)
-
LineOn = False
-
End If
-
End Select
-
Picture1.DrawMode = 6
-
Picture1.DrawStyle = 6
-
-
End Sub
-
-
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
-
-
If LineOn Then
-
Picture1.AutoRedraw = True
-
'Erase the previous line created by last mouse move
-
Picture1.Line (X1, Y1)-(X2, Y2)
-
X2 = X
-
Y2 = Y
-
'Draw the stretch or rubberband line
-
Picture1.Line (X1, Y1)-(X, Y)
-
End If
-
-
End Sub
-
| |
|
P: 2
|
Thanks for that it solved the right clicking to clear the line if you choose not to continue drawing, but still have the printing problem. I am new to this and it does not make sence to me that I can load different images from a drop down combo box and they load exactly in the picture box and just using the print form command will print it exactly where it should be, the form fits exactly the width of an A4 sheet of paper.
Draw even the shortest line and it prints the form ok with the picture box where it should be but the picture and lines have moved up and to the left obscuring the picture as though it has slipped behind the form.
I think I am going to have to try writing a full print command but are not sure that it will solve it.
Dave
| | | |  Question stats - viewed: 2756
- replies: 2
- date asked: Apr 2 '07
|
