AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS12.02.2016

Browse Source
This commit is contained in:
SchreiberM
2016-02-12 09:45:43 +01:00
parent 2a36cc2a79
commit e1f073d69f
64 changed files with 25315 additions and 5580 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Global_Indexer/frmNamenkonvention.vb
View File

@@ -84,7 +84,7 @@
Me.txtnamenKonv.SelectionStart = altePosition + VERSION_DELIMITER.Length
End Sub
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnAddDate.Click
If Not Me.cmbDate.Text = "" Then
'AREANLAGE-[%mARENR]-[%aKurzname]-I[%Version]
Dim text As String = "[%v" & Me.cmbDate.Text.ToString.ToUpper & "]"
@@ -101,7 +101,15 @@
Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, text)
Me.txtnamenKonv.SelectionStart = altePosition + text.Length
End If
End Sub
Private Sub btnAddDivers_Click(sender As Object, e As EventArgs) Handles btnAddDivers.Click
If Not Me.cmbdivers.Text = "" Then
'AREANLAGE-[%mARENR]-[%aKurzname]-I[%Version]
Dim text As String = "[%v" & Me.cmbdivers.Text.ToString.ToUpper & "]"
Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart()
Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, text)
Me.txtnamenKonv.SelectionStart = altePosition + text.Length
End If
End Sub
End Class