You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
55 lines
2.5 KiB
55 lines
2.5 KiB
Public Class frmGenBarcodekleber
|
|
|
|
Private Sub ToolBar1_ButtonClick_1(sender As Object, e As ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
|
|
Me.lblDescFont.Visible = True
|
|
Me.lblDescFontsize.Visible = True
|
|
Me.lblLabelformat.Text = DivFnkt.Get_Office_2010_Param(8)
|
|
Me.lblLabels.Text = DivFnkt.Get_Office_2010_Param(11)
|
|
Me.lblColumns.Text = DivFnkt.Get_Office_2010_Param(15)
|
|
Me.lblFont.Text = DivFnkt.Get_Office_2010_Param(14)
|
|
Me.lblFontsize.Text = DivFnkt.Get_Office_2010_Param(13)
|
|
Me.lblMarginTop.Text = DivFnkt.Get_Office_2010_Param(21)
|
|
Me.lblMarginleft.Text = DivFnkt.Get_Office_2010_Param(22)
|
|
End Sub
|
|
|
|
Private Sub frmGenBarcodekleber_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Me.RadioButton1.Checked = False
|
|
Me.RadioButton1.Checked = True
|
|
Me.cbanzahlseiten.Text = 1
|
|
If DivFnkt.Get_Office_2010_Param(17) = "False" Then
|
|
Me.RadioButton2.Enabled = False
|
|
Else
|
|
Me.RadioButton2.Enabled = True
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
|
|
'Me.lblDescFont.Visible = False
|
|
'Me.lblDescFontsize.Visible = False
|
|
Me.lblLabelformat.Text = DivFnkt.Get_Office_2010_Param(10)
|
|
Me.lblColumns.Text = DivFnkt.Get_Office_2010_Param(16)
|
|
Me.lblLabels.Text = DivFnkt.Get_Office_2010_Param(12)
|
|
Me.lblFont.Text = DivFnkt.Get_Office_2010_Param(18)
|
|
Me.lblFontsize.Text = DivFnkt.Get_Office_2010_Param(19)
|
|
Me.lblMarginTop.Text = DivFnkt.Get_Office_2010_Param(23)
|
|
Me.lblMarginleft.Text = DivFnkt.Get_Office_2010_Param(24)
|
|
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Dim w As New WordLib()
|
|
If Me.RadioButton1.Checked = True Then
|
|
w.Create_Labels(Me.lblLabelformat.Text, Me.lblLabels.Text, Me.lblColumns.Text, Me.lblFont.Text, Me.lblFontsize.Text, 1, Me.cbanzahlseiten.Text, Me.lblMarginTop.Text, Me.lblMarginleft.Text)
|
|
Else
|
|
w.Create_Labels(Me.lblLabelformat.Text, Me.lblLabels.Text, Me.lblColumns.Text, Me.lblFont.Text, Me.lblFontsize.Text, 2, Me.cbanzahlseiten.Text, Me.lblMarginTop.Text, Me.lblMarginleft.Text)
|
|
|
|
End If
|
|
w = Nothing
|
|
Me.Close()
|
|
End Sub
|
|
End Class |