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