102 lines
5.0 KiB
VB.net
102 lines
5.0 KiB
VB.net
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
|
Partial Class frmGoogle
|
|
Inherits System.Windows.Forms.Form
|
|
|
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
Try
|
|
If disposing AndAlso components IsNot Nothing Then
|
|
components.Dispose()
|
|
End If
|
|
Finally
|
|
MyBase.Dispose(disposing)
|
|
End Try
|
|
End Sub
|
|
|
|
'Wird vom Windows Form-Designer benötigt.
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
|
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
|
<System.Diagnostics.DebuggerStepThrough()> _
|
|
Private Sub InitializeComponent()
|
|
Me.components = New System.ComponentModel.Container()
|
|
Dim ImageTilesLayer2 As DevExpress.XtraMap.ImageTilesLayer = New DevExpress.XtraMap.ImageTilesLayer()
|
|
Dim BingMapDataProvider2 As DevExpress.XtraMap.BingMapDataProvider = New DevExpress.XtraMap.BingMapDataProvider()
|
|
Dim InformationLayer2 As DevExpress.XtraMap.InformationLayer = New DevExpress.XtraMap.InformationLayer()
|
|
Dim BingSearchDataProvider2 As DevExpress.XtraMap.BingSearchDataProvider = New DevExpress.XtraMap.BingSearchDataProvider()
|
|
Dim VectorItemsLayer2 As DevExpress.XtraMap.VectorItemsLayer = New DevExpress.XtraMap.VectorItemsLayer()
|
|
Dim MapItemStorage2 As DevExpress.XtraMap.MapItemStorage = New DevExpress.XtraMap.MapItemStorage()
|
|
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
|
Me.MapControl1 = New DevExpress.XtraMap.MapControl()
|
|
Me.ListBox1 = New System.Windows.Forms.ListBox()
|
|
Me.ToolTipController1 = New DevExpress.Utils.ToolTipController(Me.components)
|
|
CType(Me.MapControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.SuspendLayout()
|
|
'
|
|
'ContextMenuStrip1
|
|
'
|
|
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
|
|
Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
|
|
'
|
|
'MapControl1
|
|
'
|
|
Me.MapControl1.CenterPoint = New DevExpress.XtraMap.GeoPoint(45.0R, 16.0R)
|
|
BingMapDataProvider2.BingKey = "hQUTlqLLK70bETnonpfi~0jx1pIAq1yQ7gXqbIyzKrg~Au-Tewbty8afAxdbNilSv4JlU7qwU-fQKu0ou" & _
|
|
"H9e1uJmpIyVdA3jugVEWMdy1Rbt"
|
|
BingMapDataProvider2.Kind = DevExpress.XtraMap.BingMapKind.Road
|
|
BingMapDataProvider2.TileSource = Nothing
|
|
ImageTilesLayer2.DataProvider = BingMapDataProvider2
|
|
ImageTilesLayer2.Name = "ImageLayer"
|
|
BingSearchDataProvider2.BingKey = "hQUTlqLLK70bETnonpfi~0jx1pIAq1yQ7gXqbIyzKrg~Au-Tewbty8afAxdbNilSv4JlU7qwU-fQKu0ou" & _
|
|
"H9e1uJmpIyVdA3jugVEWMdy1Rbt"
|
|
InformationLayer2.DataProvider = BingSearchDataProvider2
|
|
InformationLayer2.Name = "SearchLayer"
|
|
VectorItemsLayer2.Data = MapItemStorage2
|
|
VectorItemsLayer2.Name = "VectorLayer"
|
|
Me.MapControl1.Layers.Add(ImageTilesLayer2)
|
|
Me.MapControl1.Layers.Add(InformationLayer2)
|
|
Me.MapControl1.Layers.Add(VectorItemsLayer2)
|
|
Me.MapControl1.Location = New System.Drawing.Point(200, 2)
|
|
Me.MapControl1.Name = "MapControl1"
|
|
Me.MapControl1.Size = New System.Drawing.Size(1188, 485)
|
|
Me.MapControl1.TabIndex = 6
|
|
Me.MapControl1.ToolTipController = Me.ToolTipController1
|
|
Me.MapControl1.ZoomLevel = 10.0R
|
|
'
|
|
'ListBox1
|
|
'
|
|
Me.ListBox1.FormattingEnabled = True
|
|
Me.ListBox1.Location = New System.Drawing.Point(3, 2)
|
|
Me.ListBox1.Name = "ListBox1"
|
|
Me.ListBox1.Size = New System.Drawing.Size(191, 485)
|
|
Me.ListBox1.TabIndex = 7
|
|
'
|
|
'ToolTipController1
|
|
'
|
|
Me.ToolTipController1.Rounded = True
|
|
Me.ToolTipController1.ToolTipStyle = DevExpress.Utils.ToolTipStyle.WindowsXP
|
|
Me.ToolTipController1.ToolTipType = DevExpress.Utils.ToolTipType.SuperTip
|
|
'
|
|
'frmGoogle
|
|
'
|
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
|
Me.ClientSize = New System.Drawing.Size(1390, 490)
|
|
Me.Controls.Add(Me.ListBox1)
|
|
Me.Controls.Add(Me.MapControl1)
|
|
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.Name = "frmGoogle"
|
|
Me.Text = "frmGoogle"
|
|
CType(Me.MapControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
|
|
Friend WithEvents MapControl1 As DevExpress.XtraMap.MapControl
|
|
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
|
|
Friend WithEvents ToolTipController1 As DevExpress.Utils.ToolTipController
|
|
End Class
|