Ok,
vieleicht verstehe ich das ganze nur falsch.
Imports System.ComponentModel
<ToolboxBitmap(GetType(BS_CheckButton), "BS_CheckButton.bmp")> <DefaultEvent("Click")> Public Class BS_CheckButton
'<ToolboxBitmap("C:\test.bmp")>
'#Region "Antwort aus msdn"
'Leitet nur das Click Event des Button1 and die Form weiter
Private Sub BS_Check_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BS_Check.Click
Me.OnClick(e)
End Sub
' ' Das erzeugt ein ButtonClick Event später in der Form
' 'In dem Formular hast Du dann für Dein UserControl ein zusätzliches Ereignis "ButtonClick" zur Auswahl,
' 'das nur beim Klicken auf den Button ausgelöst wird.
' 'Public Event ButtonClick As EventHandler
' 'Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' ' RaiseEvent ButtonClick(sender, e)
' 'End Sub
'#End Region
Dim PlaySound As Boolean = False
Dim BagColor As Boolean = False
Dim ChckStat As Boolean = True
''' <summary>
''' Check Changed
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub BS_Check_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BS_Check.CheckedChanged
Einstellen()
Me.Invalidate()
End Sub
''' <summary>
''' Load
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub Haeckchen_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.Size = New Size(Me.Size.Width, Me.Size.Width)
Einstellen()
End Sub
''' <summary>
''' Einstellungen
''' </summary>
''' <remarks></remarks>
Private Sub Einstellen()
If PlaySound = True Then
My.Computer.Audio.Play(My.Resources.Windows_Battery_Critical, AudioPlayMode.Background)
End If
Select Case BS_Check.CheckState
Case CheckState.Checked
ChSt = False
BS_Check.BackgroundImage = My.Resources.apply
BS_Check.CheckState = CheckState.Checked
Select Case BagColor
Case True
BS_Check.FlatAppearance.CheckedBackColor = Color.Red
Case False
BS_Check.FlatAppearance.CheckedBackColor = Color.Transparent
End Select
Case CheckState.Unchecked
ChSt = True
BS_Check.BackgroundImage = My.Resources.x
BS_Check.CheckState = CheckState.Unchecked
Select Case BagColor
Case True
BS_Check.BackColor = Color.Green
Case False
BS_Check.BackColor = Color.Transparent
End Select
End Select
End Sub
''' <summary>
''' Paint
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub BS_Check_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles BS_Check.Paint
Me.Size = New Size(Me.Size.Width, Me.Size.Width)
Runden.abrunden(BS_Check, 0, 0, BS_Check.Width, BS_Check.Height, BS_Check.Width)
End Sub
''' <summary>
''' Sound Effekt ein aus schalten
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
<Description("Sound Effect on Click, True or False"), Category("BS_CheckButton")> _
Public Property PlaySnd() As Boolean
Get
Return PlaySound
End Get
Set(ByVal value As Boolean)
PlaySound = value
End Set
End Property
''' <summary>
''' Hintergrund Farbe ein aus schalten
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
<Description("Back Color, True or False"), Category("BS_CheckButton")> _
Public Property BaCo() As Boolean
Get
Return BagColor
End Get
Set(ByVal value As Boolean)
BagColor = value
End Set
End Property
''' <summary>
''' Provisorium für der CheckStatus, welches auch später abgefragt werden kann.
''' ''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
<Description("CheckState, True or False"), Category("BS_CheckButton")> _
Public Property ChSt() As Boolean
Get
Return ChckStat
End Get
Set(ByVal value As Boolean)
ChckStat = value
End Set
End Property
End Class
Das ist eine CheckBox, die Ansicht habe ich auf Button geändert. Dann mit Bilder, Hintegrundfarben und Ton versehen.
Das funktioniert alles.
Public Class Form1
Private Sub BS_CheckButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BS_CheckButton1.Click
' Mit meinem Provisorium funktioniert auch die Abfrage. Einwandfrei
If BS_CheckButton1.ChSt = True Then
MessageBox.Show("nicht gecheckt")
Else
MessageBox.Show("gecheckt")
End If
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
' möchte aber nun hier den CheckStatus etzen, geht das nicht weil es ihn in den Eigenschaften garnicht gibt.
End Sub
End Class
Soweit sogut.
Jedoch möchte ich z.B. den CheckStatus haben.
Ich lesen mir die anderen Threads nochmal durch. Und auch die Beispiele von msdn und Gallileo.
Ich denke das ich da etwas falsch oder garnicht verstehen.
Danke
Bernd
CheckState bei Eigenem Control mitgeben
