In form 1
first i declare varaibles
Dim parallelLines3 As New List(Of PointLatLng)
Dim parallelLines4 As New List(Of PointLatLng)
then this
Public Sub New(ByVal parallelLines1 As List(Of PointLatLng), ByVal parallelLines2 As List(Of PointLatLng))
InitializeComponent()
parallelLines3 = parallelLines1
parallelLines4 = parallelLines2
myy = True
End Sub
then thsi
Public Sub New()
InitializeComponent()
myy = False
End Sub
then on page load
If (myy) Then
'MessageBox.Show("do practice fast")
drawroutelines()
End If
then i create function
Public Sub drawroutelines()
For i As Integer = 0 To parallelLines3.Count - 1 & parallelLines4.Count - 1
Dim o As Object() = {parallelLines3(i).Lat.ToString(), parallelLines3(i).Lng.ToString(), parallelLines4(i).Lat.ToString(), parallelLines4(i).Lng.ToString()}
fen.Document.InvokeScript("PushPoints", o)
Next
fen.Document.InvokeScript("draw")
End Sub
then i call this form1 in form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim f As New FrmFenceDrawing(PointLatLngList1, PointLatLngList2)
f.Show()
End Sub
but this show error
ndex was out of range. Must be non-negative and less than the size of the collection. Parameter name: index
in this line
Dim o As Object() = {parallelLines3(i).Lat.ToString(), parallelLines3(i).Lng.ToString(), parallelLines4(i).Lat.ToString(), parallelLines4(i).Lng.ToString()}
