Hallo,
ich habe 2 Probleme mit einer von mir erstellten Checkbox. Zuerst mal mein bisheriger Code.
Soweit funktioniert auch alles nur wenn ich mein steuerelement auf die form ziehe und Checked abrufe kann ich das auch so machen.
Das funktioniert auch. nur möchte ich es ändern das ich nicht sondern verwenden kann. Denn mit e. kann ich ja auch nicht aus einem Button den Zustand ändern.
Hoffe auf eure Hilfe.
ich habe 2 Probleme mit einer von mir erstellten Checkbox. Zuerst mal mein bisheriger Code.
VB.NET-Quellcode
- Public Class PitCheckBox
- Public Event PitClick(ByVal sender As Object, ByVal e As Checked_Event)
- Private Infotext As String
- Private Infoimage As Image
- Public Class Checked_Event
- Inherits EventArgs
- Public Checked As Boolean
- Public Enum EventResult
- [False]
- [True]
- End Enum
- Public Sub New(ByVal Status As EventResult)
- Checked = Status
- End Sub
- End Class
- Property PitText() As String
- Get
- Return Infotext
- End Get
- Set(ByVal value As String)
- Infotext = value
- Info.Text = Infotext
- End Set
- End Property
- Property PitImage() As Image
- Get
- Return Infoimage
- End Get
- Set(ByVal value As Image)
- Infoimage = value
- I1.Image = Infoimage
- End Set
- End Property
- Private Sub St1_Click(sender As Object, e As EventArgs) Handles St1.Click
- If St1.Tag = False Then
- St1.Tag = True
- St1.Image = My.Resources._ON
- RaiseEvent PitClick(Me, New Checked_Event(Checked_Event.EventResult.True))
- ElseIf St1.Tag = True Then
- St1.Tag = False
- St1.Image = My.Resources.OFF
- RaiseEvent PitClick(Me, New Checked_Event(Checked_Event.EventResult.False))
- End If
- End Sub
- Private Sub PitCheckBox_Load(sender As Object, e As EventArgs) Handles Me.Load
- St1.Image = My.Resources.OFF
- St1.Tag = False
- End Sub
- End Class
Soweit funktioniert auch alles nur wenn ich mein steuerelement auf die form ziehe und Checked abrufe kann ich das auch so machen.
Das funktioniert auch. nur möchte ich es ändern das ich nicht sondern verwenden kann. Denn mit e. kann ich ja auch nicht aus einem Button den Zustand ändern.
Hoffe auf eure Hilfe.