Hallo diesen Code der sich hinter einen Comandbutten vebirgt benötige ich immer wieder.
Private Sub cmdActivate_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles cmdActivate.Click
gsCheckedBS = ""
If chkBS01.Checked = True Then
gsCheckedBS = gsCheckedBS & "9"
ElseIf chkBS01.Checked = False Then
gsCheckedBS = gsCheckedBS & "8"
End If
If chkBS02.Checked = True Then
gsCheckedBS = gsCheckedBS & "9"
ElseIf chkBS02.Checked = False Then
gsCheckedBS = gsCheckedBS & "8"
End If
If chkBS03.Checked = True Then
gsCheckedBS = gsCheckedBS & "9"
ElseIf chkBS03.Checked = False Then
gsCheckedBS = gsCheckedBS & "8"
End If
If chkBS04.Checked = True Then
gsCheckedBS = gsCheckedBS & "9"
ElseIf chkBS04.Checked = False Then
gsCheckedBS = gsCheckedBS & "8"
End If
If chkBS05.Checked = True Then
gsCheckedBS = gsCheckedBS & "9"
ElseIf chkBS05.Checked = False Then
gsCheckedBS = gsCheckedBS & "8"
End If
If chkBS06.Checked = True Then
gsCheckedBS = gsCheckedBS & "9"
ElseIf chkBS06.Checked = False Then
gsCheckedBS = gsCheckedBS & "8"
End If
If chkBS07.Checked = True Then
gsCheckedBS = gsCheckedBS & "9"
ElseIf chkBS07.Checked = False Then
gsCheckedBS = gsCheckedBS & "8"
End If
If chkBS08.Checked = True Then
gsCheckedBS = gsCheckedBS & "9"
ElseIf chkBS08.Checked = False Then
gsCheckedBS = gsCheckedBS & "8"
End If
If chkBS09.Checked = True Then
gsCheckedBS = gsCheckedBS & "9"
ElseIf chkBS09.Checked = False Then
gsCheckedBS = gsCheckedBS & "8"
End If
If chkBS10.Checked = True Then
gsCheckedBS = gsCheckedBS & "9"
ElseIf chkBS10.Checked = False Then
gsCheckedBS = gsCheckedBS & "8"
End If
gsIni.WertSchreiben("Checker", "YesNo", gsCheckedBS)
frmCodeBase.ShowDialog()
If gsFsOk = True Then
cmdBS01.Text = gsIni.WertLesen("frm_Activated_Aktiv", "cmdBS01", _
Nothing)
cmdBS01.Enabled = True
cmdBS02.Text = gsIni.WertLesen("frm_Activated_Aktiv", "cmdBS02", _
Nothing)
cmdBS02.Enabled = True
cmdBS03.Text = gsIni.WertLesen("frm_Activated_Aktiv", "cmdBS03", _
Nothing)
cmdBS03.Enabled = True
cmdBS04.Text = gsIni.WertLesen("frm_Activated_Aktiv", "cmdBS04", _
Nothing)
cmdBS04.Enabled = True
cmdBS05.Text = gsIni.WertLesen("frm_Activated_Aktiv", "cmdBS05", _
Nothing)
cmdBS05.Enabled = True
cmdBS06.Text = gsIni.WertLesen("frm_Activated_Aktiv", "cmdBS06", _
Nothing)
cmdBS06.Enabled = True
cmdBS07.Text = gsIni.WertLesen("frm_Activated_Aktiv", "cmdBS07", _
Nothing)
cmdBS07.Enabled = True
cmdBS08.Text = gsIni.WertLesen("frm_Activated_Aktiv", "cmdBS08", _
Nothing)
cmdBS08.Enabled = True
cmdBS09.Text = gsIni.WertLesen("frm_Activated_Aktiv", "cmdBS09", _
Nothing)
cmdBS09.Enabled = True
cmdBS10.Text = gsIni.WertLesen("frm_Activated_Aktiv", "cmdBS10", _
Nothing)
cmdBS10.Enabled = True
cmdActivate.Visible = False
cmdAllBS.Visible = False
End If
End Sub AUs faulheit dachte ich ich ruf einfach diese routine wieder und zwar so
Private Sub frm_Activated_Load(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles MyBase.Load
Call cmdBS01_Click()
End Sub nur das will nich so wie ich es will.
ist das überhaupt nöglich was ich da will.
Bin für Hilfe jeder Art dankbar.
Gruß SSA-Ali |