edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

frmSprachen: Suchfelder der Spaltenbreite angepasst.

Browse Source
This commit is contained in:
d.breimaier
2022-11-08 11:20:23 +01:00
parent 646d888cfc
commit 4604458eb4
2 changed files with 37 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
UID/Programme/frmSprachen.Designer.vb generated
View File

@@ -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.TabIndex = 12
Me.txtDE.Size = New System.Drawing.Size(230, 20)
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.TabIndex = 13
Me.txttranslate.Size = New System.Drawing.Size(233, 20)
Me.txttranslate.TabIndex = 12
'
'Label7
'

21
UID/Programme/frmSprachen.vb
View File

@@ -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