Dim DrawStart As Boolean
Dim DrawingStyle As Integer

Private Sub Coordinates_Click()

If APX.Visible = True Then

APX.Visible = False
APY.Visible = False

Else

APX.Visible = True
APY.Visible = True

End If


End Sub





Private Sub ObjectCombo_Click()

If ObjectCombo.ItemData(ObjectCombo.ListIndex) = 1 Then 'Show Draw Circle Control
DrawLineFrame.Visible = False
'ContourControl.Visible = False
'Cover.Visible = False
'Frame1.Visible = True

End If

If ObjectCombo.ItemData(ObjectCombo.ListIndex) = 2 Then 'Show Draw Line control
picFloorplan.DrawWidth = 2
DrawLineFrame.Visible = True
'ContourControl.Visible = False
'Cover.Visible = False
'Frame1.Visible = False

End If


End Sub

Private Sub picFloorplan_DragDrop(Source As Control, X As Single, Y As Single)



Dim MouseX 'Drag & Drop coding by Lab Tech implemented into my project
Dim MouseY 'Drag & Drop coding by Lab Tech implemented into my project
Dim filenum As Integer 'Drag & Drop coding by Lab Tech implemented into my project

Dim LinePoint1X As Integer
Dim LinePoint1Y As Integer

Dim LinePoint2X As Integer
Dim LinePoint2Y As Integer

Source.Move X, Y 'X - MouseX, Y - Mouse y

If ObjectCombo.ItemData(ObjectCombo.ListIndex) = 1 Then 'Draw Access Point coding start

picFloorplan.Line (X - 8000, Y)-(X + 8000, Y), vbRed 'Drawing the hortizonal line
picFloorplan.Line (X, Y + 8000)-(X, Y - 8000), vbYellow 'Drawing the vertical line
picFloorplan.Line (X - 3500, Y + 3500)-(X + 3500, Y - 3500), vbBlue
picFloorplan.Line (X - 3500, Y - 3500)-(X + 3500, Y + 3500), vbBrown

End If 'Draw Access Point coding stop

If ObjectCombo.ItemData(ObjectCombo.ListIndex) = 2 Then 'Draw Solid Wall coding start

If DrawlineStatus.Text = 0 Then

LinePoint1X = APX.Text
LinePoint1Y = APY.Text

picFloorplan.PSet (LinePoint1X, LinePoint1Y), vbBlue

DrawlineStatus.Text = 2

lblptA.Move 340, 420
lblptB.Move 340, 720

Else

LinePoint2X = APX.Text
LinePoint2Y = APY.Text

picFloorplan.Line -(LinePoint2X, LinePoint2Y), vbBlue

lblptA.Move 340, 420
lblptB.Move 340, 720

DrawlineStatus.Text = 0

End If
End If


End Sub

Private Sub picFloorplan_DragOver(Source As Control, X As Single, Y As Single, State As Integer)

APX.Text = X
APY.Text = Y

End Sub

Private Sub lblAP1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

lblAP1.Drag 'enable the drag of the icon

End Sub

Private Sub lblptA_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

lblptA.Drag

End Sub

Private Sub lblptB_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

lblptB.Drag

End Sub
---------------------------------------

When you run the program, u first need to click on the AP, the drag the cursor over the picture. then next click on the concrete wall then drag point A and Point B to create a line and it will create a interception. How can i display the interception point.

Any help will be appreciated.
thank you

Send me an email : [email protected]
Edit/Delete Message