MS

2016-11-16 09:43:16 +01:00
parent 1702ab2461
commit 3e6f1c8db8
16 changed files with 1780 additions and 196 deletions
--- a/app/DD-Record-Organiser/frmGoogle.Designer.vb
+++ b/app/DD-Record-Organiser/frmGoogle.Designer.vb
@@ -0,0 +1,148 @@
+<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 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