102 lines
4.2 KiB
VB.net
102 lines
4.2 KiB
VB.net
Public Class frmNIMoveRenameNamenkonvention
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnAddIndexM.Click
|
|
If Not Me.cmbIndexe.Text = "" Then
|
|
'AREANLAGE-[%mARENR]-[%aKurzname]-I[%Version]
|
|
Dim text As String = "[%m" & Me.cmbIndexe.Text.ToString & "]"
|
|
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
|
|
Private Sub frmNamenkonvention_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
|
|
|
End Sub
|
|
|
|
Private Sub frmNamenkonvention_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
Try
|
|
|
|
cmbIndexe.Items.Clear()
|
|
For Each index As String In CURRENT_IndexList
|
|
cmbIndexe.Items.Add(index)
|
|
Next
|
|
If DYNAMIC_TYPE = "FILE" Then
|
|
GroupBox2.Visible = True
|
|
txtnamenKonv.Text = CURRENT_Namekonvention
|
|
Else
|
|
GroupBox2.Visible = False
|
|
txtnamenKonv.Text = CURRENT_DYNAMICFOLDER
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox("Unexpected error in frmNamenkonvention_Load: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Label3_Click(sender As Object, e As EventArgs)
|
|
|
|
End Sub
|
|
|
|
Private Sub btnVersion_Click(sender As Object, e As EventArgs) Handles btnVersion.Click
|
|
If txtnamenKonv.Text.Contains("[%Version]") Then
|
|
|
|
MsgBox("Versiontag already added!", MsgBoxStyle.Exclamation)
|
|
|
|
Exit Sub
|
|
End If
|
|
Dim text As String = "[%Version]"
|
|
Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart()
|
|
Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, text)
|
|
Me.txtnamenKonv.SelectionStart = altePosition + text.Length
|
|
End Sub
|
|
|
|
Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click
|
|
txtnamenKonv.Text = ""
|
|
End Sub
|
|
|
|
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
|
|
If DYNAMIC_TYPE = "FILE" Then
|
|
CURRENT_Namekonvention = txtnamenKonv.Text
|
|
Else
|
|
CURRENT_DYNAMICFOLDER = txtnamenKonv.Text
|
|
End If
|
|
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub btnclose_Click(sender As Object, e As EventArgs) Handles btnclose.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub btnTrennzeichen_Click(sender As Object, e As EventArgs) Handles btnTrennzeichen.Click
|
|
Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart()
|
|
Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, "_")
|
|
Me.txtnamenKonv.SelectionStart = altePosition + 1
|
|
End Sub
|
|
|
|
Private Sub btnVersionTZ_Click(sender As Object, e As EventArgs) Handles btnVersionTZ.Click
|
|
Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart()
|
|
Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, "~")
|
|
Me.txtnamenKonv.SelectionStart = altePosition + 1
|
|
End Sub
|
|
|
|
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 & "]"
|
|
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
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
If Not txtnamenKonv.Text.Contains("[%vOFilename]") Then
|
|
Dim text As String = "[%vOFilename]"
|
|
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
|
|
Private Sub frmNamenkonvention_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
|
Me.BringToFront()
|
|
End Sub
|
|
End Class |