frmlinecuting.frm

algorithm about the line cutting using visualbasic

VERSION 5.00
Begin VB.Form Form1 
   AutoRedraw      =   -1  'True
   Caption         =   "Form1"
   ClientHeight    =   5235
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   6600
   LinkTopic       =   "Form1"
   ScaleHeight     =   349
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   440
   StartUpPosition =   3  'Windows Default
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   4920
      Width           =   1215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Type POINT2D
    X As Integer
    Y As Integer
End Type
Dim Pnt1 As POINT2D, Pnt2 As POINT2D, Pnt3 As POINT2D
Dim Pnt4 As POINT2D, Pnt5 As POINT2D, Pnt6 As POINT2D
Dim Distance As Double, Distance1 As Double
Private Sub Form_Load()
    Pnt1.X = 200 '100
    Pnt1.Y = 300 '100
    Pnt2.X = 400
    Pnt2.Y = 100
    Me.Circle (Pnt1.X, Pnt1.Y), 2, vbMagenta
    Me.Circle (Pnt2.X, Pnt2.Y), 2, vbMagenta
    Me.Line (Pnt1.X, Pnt1.Y)-(Pnt2.X, Pnt2.Y)
    Distance = Sqr(((Pnt2.X - Pnt1.X) ^ 2) + ((Pnt2.Y - Pnt1.Y) ^ 2))
    Distance1 = Distance / 5
    
'    Pnt3.X = Pnt1.X + Distance1
'    Pnt3.Y = Pnt1.X
'    Me.Circle (Pnt3.X, Pnt3.Y), 2, vbMagenta
'    Pnt4.X = Pnt3.X + Distance1
'    Pnt4.Y = Pnt1.X
'    Me.Circle (Pnt4.X, Pnt4.Y), 2, vbMagenta
'    Pnt5.X = Pnt4.X + Distance1
'    Pnt5.Y = Pnt1.X
'    Me.Circle (Pnt5.X, Pnt5.Y), 2, vbMagenta
'    Pnt6.X = Pnt5.X + Distance1
'    Pnt6.Y = Pnt1.X
'    Me.Circle (Pnt6.X, Pnt6.Y), 2, vbMagenta
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.Caption = "X:" & X & ",:Y" & Y
End Sub