60 lines
1.8 KiB
VB.net
60 lines
1.8 KiB
VB.net
Public Class frmMapa
|
|
|
|
Private mapa As clsMapa
|
|
|
|
Sub New()
|
|
InitializeComponent()
|
|
|
|
Me.mapa = New clsMapa(picMapa.Width, picMapa.Height)
|
|
RefreshMap()
|
|
End Sub
|
|
|
|
Private Sub RefreshMap()
|
|
Me.picMapa.Image = Me.mapa.GetMapa(picMapa.Width, picMapa.Height)
|
|
Me.Text = String.Format("Mapa - Zoom={0}, X={1}, Y={2}", mapa.GetAktZoom, mapa.GetAktPosX, mapa.GetAktPosY)
|
|
End Sub
|
|
|
|
Private Sub frmMapa_ResizeEnd(sender As Object, e As System.EventArgs) Handles Me.ResizeEnd
|
|
Me.mapa.SetRozmerMapy(picMapa.Width, picMapa.Height)
|
|
RefreshMap()
|
|
End Sub
|
|
|
|
#Region "Tlačítka"
|
|
Private Sub btnNahoru_Click(sender As System.Object, e As System.EventArgs) Handles btnNahoru.Click
|
|
Me.mapa.PosunNahoru()
|
|
RefreshMap()
|
|
End Sub
|
|
|
|
Private Sub btnDolu_Click(sender As System.Object, e As System.EventArgs) Handles btnDolu.Click
|
|
Me.mapa.PosunDolu()
|
|
RefreshMap()
|
|
End Sub
|
|
|
|
Private Sub btnDoleva_Click(sender As System.Object, e As System.EventArgs) Handles btnDoleva.Click
|
|
Me.mapa.PosunDoleva()
|
|
RefreshMap()
|
|
End Sub
|
|
|
|
Private Sub btnDoprava_Click(sender As System.Object, e As System.EventArgs) Handles btnDoprava.Click
|
|
Me.mapa.PosunDoprava()
|
|
RefreshMap()
|
|
End Sub
|
|
|
|
Private Sub btnPriblizit_Click(sender As System.Object, e As System.EventArgs) Handles btnPriblizit.Click
|
|
Me.mapa.Priblizit()
|
|
RefreshMap()
|
|
End Sub
|
|
|
|
Private Sub btnOddalit_Click(sender As System.Object, e As System.EventArgs) Handles btnOddalit.Click
|
|
Me.mapa.Oddalit()
|
|
RefreshMap()
|
|
End Sub
|
|
|
|
Private Sub btnCopy_Click(sender As System.Object, e As System.EventArgs) Handles btnCopy.Click
|
|
My.Computer.Clipboard.SetText(String.Format("Mapa - Zoom={0}, X={1}, Y={2}", mapa.GetAktZoom, mapa.GetAktPosX, mapa.GetAktPosY))
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
|
|
End Class |