42 lines
1.7 KiB
VB.net
42 lines
1.7 KiB
VB.net
|
Imports System.Threading
|
||
|
|
Public Class Maps
|
||
|
|
|
||
|
|
Public C As Client
|
||
|
|
Private Sub Maps_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||
|
|
Dim B As Byte() = SB("Clmaps")
|
||
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
||
|
|
Try
|
||
|
|
If Not C.IsConnected Then
|
||
|
|
Close()
|
||
|
|
End If
|
||
|
|
Catch ex As Exception
|
||
|
|
Debug.WriteLine(ex.Message)
|
||
|
|
End Try
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
Private Sub GPSToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles GPSToolStripMenuItem1.Click
|
||
|
|
GMapControl1.Overlays.Clear()
|
||
|
|
Dim B As Byte() = SB("GBS")
|
||
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
Private Sub IPAPIToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IPAPIToolStripMenuItem.Click
|
||
|
|
GMapControl1.Overlays.Clear()
|
||
|
|
Dim B As Byte() = SB("api")
|
||
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
Private Sub BrowserToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BrowserToolStripMenuItem.Click
|
||
|
|
Try
|
||
|
|
If ToolStripStatusLabel1.Text = "Error!" Or ToolStripStatusLabel1.Text = ".." Or ToolStripStatusLabel1.Text = Nothing Then
|
||
|
|
Else
|
||
|
|
Process.Start("https://www.google.com/maps/place/" & ToolStripStatusLabel1.Text)
|
||
|
|
End If
|
||
|
|
Catch ex As Exception
|
||
|
|
Debug.WriteLine(ex.Message)
|
||
|
|
End Try
|
||
|
|
End Sub
|
||
|
|
End Class
|