_ Partial Class frmGoogle Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. _ 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. _ 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