Haritada Noktalar Arası Mesafe Ve Etiketleme

Merhaba,
Ekli örnekte etiket sütunundaki bilginin raptiyede gözükmesi için yardımcı olabilir misiniz lütfen?

Merhaba,

Konuyu biraz ilerletmeye çalıştım.

Değerli üstadlar,
Açılan haritanın Form1 içinde açılması için yardımcı olabilir misiniz?

Sorunuzu tam anlayamadım Sayın @temre Bing haritanız zaten form1 webbrowser controlde açılıyor, nasıl bir sorun yaşıyorsunuz?

Form1 yüklendiği zaman harita formun içinde değil windows haritalar olarak ayrı açılıyor bende..

Haritalar özelliği bende kapatılmış olduğu için bu tip bir sorun yaşamadım sanıyorum. Uygulamanızı kullanacak herkes Haritalar uygulamasını engelleyeceksiniz demek abes olur, ilk fırsatta açıp bir kontrol edeceğim.

Sayın @temre

Form_Load olayının kodunu aşağıdaki ile değiştirip dener misiniz?

Private Sub Form_Load()



Dim Sql As String

Dim ADO_RS As ADODB.Recordset

Dim objWMIcimv2 As Object, objProcess As Object, objList As Object

Dim intError As Integer



Set ADO_RS = New ADODB.Recordset

SQL = "select * from [Tablo1]"

    ADO_RS.Open SQL, CurrentProject.Connection, 3, 1

        ADO_RS.MoveFirst

            Do While Not ADO_RS.EOF

            If ADO_RS("Seç") = -1 Then

            WebBrowser1.Navigate "bingmaps:?collection=point." & ADO_RS("X") & "_" & ADO_RS("Y") & "_" & ADO_RS("ETIKET") & "_&lvl=15"

            End If

        ADO_RS.MoveNext

            Loop

    ADO_RS.Close

Set ADO_RS = Nothing



strTerminateThis = "maps.exe"

Set objWMIcimv2 = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Set objList = objWMIcimv2.ExecQuery("select * from win32_process where name='" & strTerminateThis & "'")

For Each objProcess In objList

            intError = objProcess.Terminate 'Terminates a process and all of its threads.

            If intError <> 0 Then Exit For

Next



Set objWMIcimv2 = Nothing

Set objList = Nothing

Set objProcess = Nothing



End Sub