Hello, I'm trying to build a control: it have 6 mybuttons(they are buttons from a custom theme with a proprety called pressed that change the color of the button when=true).
I want to use it to get the endianess selected like in the following code
My goal is to have an event when the user click on one of this buttons, and also change the proprety SelectedEndianess.Code:Public Class mybtnBit Private Sub mybtnHILO_Click(sender As Object, e As EventArgs) Handles mybtnHILO.Click If mybtnFloat.Pressed = False Then mybtnHILO.Pressed = Not mybtnHILO.Pressed endianess = GetEndianess() End Sub Private Sub mybtnSigned_Click(sender As Object, e As EventArgs) Handles mybtnSigned.Click If mybtnFloat.Pressed = True Then mybtnSigned.Pressed = Not mybtnSigned.Pressed endianess = GetEndianess() End Sub Private Sub mybtn8Bit_Click(sender As Object, e As EventArgs) Handles mybtn8Bit.Click mybtn8Bit.Pressed = True mybtn16Bit.Pressed = False mybtn32Bit.Pressed = False mybtnFloat.Pressed = False mybtnHILO.Pressed = False endianess = GetEndianess() End Sub Private Sub mybtn16Bit_Click(sender As Object, e As EventArgs) Handles mybtn16Bit.Click mybtn16Bit.Pressed = True mybtn8Bit.Pressed = False mybtn32Bit.Pressed = False mybtnFloat.Pressed = False endianess = GetEndianess() End Sub Private Sub mybtn32Bit_Click(sender As Object, e As EventArgs) Handles mybtn32Bit.Click mybtn32Bit.Pressed = True mybtn16Bit.Pressed = False mybtn8Bit.Pressed = False mybtnFloat.Pressed = False SelectedEndianess = 0 endianess = GetEndianess() End Sub Private Sub mybtnFloat_Click(sender As Object, e As EventArgs) Handles mybtnFloat.Click mybtnFloat.Pressed = True mybtn16Bit.Pressed = False mybtn32Bit.Pressed = False mybtn8Bit.Pressed = False mybtnHILO.Pressed = False mybtnSigned.Pressed = False endianess = GetEndianess() End Sub Private endianess As UInt16 = 0 Property SelectedEndianess As UInt16 Set(value As UInt16) endianess = GetEndianess() End Set Get endianess = GetEndianess() Return endianess End Get End Property '0 8 bit Signed '1 8 Bit Unsigned '2 16 bit Signed Little Endian '3 16 bit Unsigned Little Endian '4 16 bit Signed Big Endian '5 16 bit Unsigned Big Endian '6 32 bit Signed Little Endian '7 32 bit Unsigned Little Endian '8 32 bit Signed Big Endian '9 32 bit Unsigned Big Endian '10 Float (not used) Private Function GetEndianess() Dim EndianessState As UInt16 If mybtnSigned.Pressed = True Then 'Signed If mybtn8Bit.Pressed = True Then '8Bit Signed EndianessState = 0 ElseIf mybtn16Bit.Pressed = True Then '16bit Signed If mybtnHILO.Pressed = True Then '16bit Signed Big Endian EndianessState = 4 Else '16bit Signed Little Endian EndianessState = 2 End If ElseIf mybtn32Bit.Pressed = True Then '32bit Signed If mybtnHILO.Pressed = True Then '32bit Signed Big Endian EndianessState = 8 Else '32bit Signed Little Endian EndianessState = 6 End If End If Else 'Unsigned If mybtn8Bit.Pressed = True Then '8Bit Unsigned EndianessState = 1 ElseIf mybtn16Bit.Pressed = True Then '16bit unsigned If mybtnHILO.Pressed = True Then '16bit Unsigned Big Endian EndianessState = 5 Else '16bit Unsigned Little Endian EndianessState = 3 End If ElseIf mybtn32Bit.Pressed = True Then '32bit unsigned If mybtnHILO.Pressed = True Then '32bit Unsigned Big Endian EndianessState = 9 Else '32bit Unsigned Little Endian EndianessState = 7 End If ElseIf mybtnFloat.Pressed = True Then 'float EndianessState = 10 End If End If Return EndianessState End Function End Class
Can you help me please?




Reply With Quote
