_ 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 ImageTilesLayer1 As DevExpress.XtraMap.ImageTilesLayer = New DevExpress.XtraMap.ImageTilesLayer() Dim BingMapDataProvider1 As DevExpress.XtraMap.BingMapDataProvider = New DevExpress.XtraMap.BingMapDataProvider() Dim MiniMap1 As DevExpress.XtraMap.MiniMap = New DevExpress.XtraMap.MiniMap() Dim FixedMiniMapBehavior1 As DevExpress.XtraMap.FixedMiniMapBehavior = New DevExpress.XtraMap.FixedMiniMapBehavior() Dim MiniMapImageTilesLayer1 As DevExpress.XtraMap.MiniMapImageTilesLayer = New DevExpress.XtraMap.MiniMapImageTilesLayer() Dim BingMapDataProvider2 As DevExpress.XtraMap.BingMapDataProvider = New DevExpress.XtraMap.BingMapDataProvider() Dim MiniMapVectorItemsLayer1 As DevExpress.XtraMap.MiniMapVectorItemsLayer = New DevExpress.XtraMap.MiniMapVectorItemsLayer() Dim MapItemStorage1 As DevExpress.XtraMap.MapItemStorage = New DevExpress.XtraMap.MapItemStorage() Me.Label1 = New System.Windows.Forms.Label() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.txtAdress = New System.Windows.Forms.TextBox() Me.Button1 = New System.Windows.Forms.Button() Me.WebBrowser1 = New System.Windows.Forms.WebBrowser() Me.cmbType = New System.Windows.Forms.ComboBox() Me.MapControl1 = New DevExpress.XtraMap.MapControl() CType(Me.MapControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(12, 12) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(38, 13) Me.Label1.TabIndex = 0 Me.Label1.Text = "Label1" ' 'ContextMenuStrip1 ' Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4) ' 'txtAdress ' Me.txtAdress.Location = New System.Drawing.Point(56, 9) Me.txtAdress.Name = "txtAdress" Me.txtAdress.Size = New System.Drawing.Size(282, 21) Me.txtAdress.TabIndex = 2 ' 'Button1 ' Me.Button1.Location = New System.Drawing.Point(489, 7) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(75, 23) Me.Button1.TabIndex = 3 Me.Button1.Text = "Button1" Me.Button1.UseVisualStyleBackColor = True ' 'WebBrowser1 ' Me.WebBrowser1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.WebBrowser1.Location = New System.Drawing.Point(15, 38) Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20) Me.WebBrowser1.Name = "WebBrowser1" Me.WebBrowser1.Size = New System.Drawing.Size(671, 344) Me.WebBrowser1.TabIndex = 4 ' 'cmbType ' Me.cmbType.FormattingEnabled = True Me.cmbType.Items.AddRange(New Object() {"Map", "Satellite", "Hybrid", "Terrain", "Google Earth"}) Me.cmbType.Location = New System.Drawing.Point(344, 9) Me.cmbType.Name = "cmbType" Me.cmbType.Size = New System.Drawing.Size(139, 21) Me.cmbType.TabIndex = 5 ' 'MapControl1 ' Me.MapControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.MapControl1.CenterPoint = New DevExpress.XtraMap.GeoPoint(45.0R, 16.0R) BingMapDataProvider1.BingKey = "hQUTlqLLK70bETnonpfi~0jx1pIAq1yQ7gXqbIyzKrg~Au-Tewbty8afAxdbNilSv4JlU7qwU-fQKu0ou" & _ "H9e1uJmpIyVdA3jugVEWMdy1Rbt" BingMapDataProvider1.Kind = DevExpress.XtraMap.BingMapKind.Road BingMapDataProvider1.TileSource = Nothing ImageTilesLayer1.DataProvider = BingMapDataProvider1 Me.MapControl1.Layers.Add(ImageTilesLayer1) Me.MapControl1.Location = New System.Drawing.Point(719, 38) MiniMap1.Alignment = DevExpress.XtraMap.MiniMapAlignment.BottomRight FixedMiniMapBehavior1.CenterPoint = New DevExpress.XtraMap.GeoPoint(45.0R, 18.0R) MiniMap1.Behavior = FixedMiniMapBehavior1 BingMapDataProvider2.BingKey = "YOUR BING MAPS KEY" BingMapDataProvider2.TileSource = Nothing MiniMapImageTilesLayer1.DataProvider = BingMapDataProvider2 MiniMapVectorItemsLayer1.Data = MapItemStorage1 MiniMap1.Layers.Add(MiniMapImageTilesLayer1) MiniMap1.Layers.Add(MiniMapVectorItemsLayer1) Me.MapControl1.MiniMap = MiniMap1 Me.MapControl1.Name = "MapControl1" Me.MapControl1.Size = New System.Drawing.Size(659, 344) Me.MapControl1.TabIndex = 6 Me.MapControl1.ZoomLevel = 10.0R ' '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, 394) Me.Controls.Add(Me.MapControl1) Me.Controls.Add(Me.cmbType) Me.Controls.Add(Me.WebBrowser1) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.txtAdress) Me.Controls.Add(Me.Label1) 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) Me.PerformLayout() End Sub Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip Friend WithEvents txtAdress As System.Windows.Forms.TextBox Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents WebBrowser1 As System.Windows.Forms.WebBrowser Friend WithEvents cmbType As System.Windows.Forms.ComboBox Friend WithEvents MapControl1 As DevExpress.XtraMap.MapControl End Class