frmSprachen: Suchfelder der Spaltenbreite angepasst.

UID/Programme/frmSprachen.Designer.vb

@@ -57,14 +57,16 @@ Partial Class frmSprachen
         Me.cbxSprachen.FormattingEnabled = True
         Me.cbxSprachen.Location = New System.Drawing.Point(68, 6)
         Me.cbxSprachen.Name = "cbxSprachen"
-        Me.cbxSprachen.Size = New System.Drawing.Size(72, 21)
+        Me.cbxSprachen.Size = New System.Drawing.Size(50, 21)
         Me.cbxSprachen.TabIndex = 1
         '
         'DataGridView
         '
         Me.DataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.DataGridView.Location = New System.Drawing.Point(15, 82)
+        Me.DataGridView.MultiSelect = False
         Me.DataGridView.Name = "DataGridView"
+        Me.DataGridView.RowHeadersVisible = False
         Me.DataGridView.Size = New System.Drawing.Size(974, 452)
         Me.DataGridView.TabIndex = 14
         '
@@ -87,7 +89,7 @@ Partial Class frmSprachen
         'Label3
         '
         Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(209, 40)
+        Me.Label3.Location = New System.Drawing.Point(165, 40)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(43, 13)
         Me.Label3.TabIndex = 5
@@ -95,7 +97,7 @@ Partial Class frmSprachen
         '
         'txtControl
         '
-        Me.txtControl.Location = New System.Drawing.Point(212, 56)
+        Me.txtControl.Location = New System.Drawing.Point(168, 56)
         Me.txtControl.Name = "txtControl"
         Me.txtControl.Size = New System.Drawing.Size(150, 20)
         Me.txtControl.TabIndex = 10
@@ -103,7 +105,7 @@ Partial Class frmSprachen
         'Label4
         '
         Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(402, 40)
+        Me.Label4.Location = New System.Drawing.Point(319, 40)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(58, 13)
         Me.Label4.TabIndex = 6
@@ -111,42 +113,42 @@ Partial Class frmSprachen
         '
         'txtSubcontrol
         '
-        Me.txtSubcontrol.Location = New System.Drawing.Point(405, 56)
+        Me.txtSubcontrol.Location = New System.Drawing.Point(322, 56)
         Me.txtSubcontrol.Name = "txtSubcontrol"
-        Me.txtSubcontrol.Size = New System.Drawing.Size(150, 20)
+        Me.txtSubcontrol.Size = New System.Drawing.Size(100, 20)
         Me.txtSubcontrol.TabIndex = 11
         '
         'Label5
         '
         Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(600, 40)
+        Me.Label5.Location = New System.Drawing.Point(699, 40)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(46, 13)
-        Me.Label5.TabIndex = 7
+        Me.Label5.TabIndex = 8
         Me.Label5.Text = "DE-Text"
         '
         'txtDE
         '
-        Me.txtDE.Location = New System.Drawing.Point(603, 56)
+        Me.txtDE.Location = New System.Drawing.Point(702, 56)
         Me.txtDE.Name = "txtDE"
-        Me.txtDE.Size = New System.Drawing.Size(170, 20)
+        Me.txtDE.Size = New System.Drawing.Size(230, 20)
-        Me.txtDE.TabIndex = 12
+        Me.txtDE.TabIndex = 13
         '
         'Label6
         '
         Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(812, 40)
+        Me.Label6.Location = New System.Drawing.Point(460, 40)
         Me.Label6.Name = "Label6"
         Me.Label6.Size = New System.Drawing.Size(67, 13)
-        Me.Label6.TabIndex = 8
+        Me.Label6.TabIndex = 7
         Me.Label6.Text = "Übersetzung"
         '
         'txttranslate
         '
-        Me.txttranslate.Location = New System.Drawing.Point(815, 56)
+        Me.txttranslate.Location = New System.Drawing.Point(463, 56)
         Me.txttranslate.Name = "txttranslate"
-        Me.txttranslate.Size = New System.Drawing.Size(170, 20)
+        Me.txttranslate.Size = New System.Drawing.Size(233, 20)
-        Me.txttranslate.TabIndex = 13
+        Me.txttranslate.TabIndex = 12
         '
         'Label7
         '

UID/Programme/frmSprachen.vb

@@ -75,10 +75,11 @@ Public Class frmSprachen
                     .Columns("trs_progId").Visible = False
                     .Columns("trs_progName").Visible = False
                     .Columns("trs_object").HeaderText = "Object"
-                    .Columns("trs_object").Width = 150
+                    .Columns("trs_object").Width = 152
                     .Columns("trs_control").HeaderText = "Control"
-                    .Columns("trs_control").Width = 150
+                    .Columns("trs_control").Width = 155
                     .Columns("trs_subControl").HeaderText = "Subcontrol"
+                    .Columns("trs_subControl").Width = 100
                     .Columns("trs_sprache").HeaderText = "Spr"
                     .Columns("trs_sprache").Width = 40
                     .Columns("trs_text").HeaderText = "Übersetzung"
@@ -143,4 +144,20 @@ Public Class frmSprachen
             MsgBox(ex.Message)
         End Try
     End Sub
+
+    Private Sub txttranslate_TextChanged(sender As Object, e As EventArgs) Handles txttranslate.TextChanged
+
+    End Sub
+
+    Private Sub Label6_Click(sender As Object, e As EventArgs) Handles Label6.Click
+
+    End Sub
+
+    Private Sub txtDE_TextChanged(sender As Object, e As EventArgs) Handles txtDE.TextChanged
+
+    End Sub
+
+    Private Sub Label5_Click(sender As Object, e As EventArgs) Handles Label5.Click
+
+    End Sub
 End Class