Bit Mask

[Xkape]

Hello everyone,

I am working on a small project with font controls, and it has 3 checkbox controls Bold, Italic, and Underline. With a textbox at the bottom of the form, with a word.

When you check the Bold the text goes bold, etc

Question?
How do you make all three work at the same time?

Like this Sample text

Here is some of the code

If CheckBoxBold.Checked = True Then
txtSample.Font = New System.Drawing.Font(txtSample().Font, 1)
ElseIf CheckBoxItalic.Checked = True Then
txtSample.Font = New System.Drawing.Font(txtSample().Font, 3)
ElseIf CheckBoxUnderline.Checked = True Then
txtSample.Font = New System.Drawing.Font(txtSample().Font, 7)
Else
txtSample.Font = New System.Drawing.Font(txtSample().Font, 0)
End If

Is there something that goes into the formload event?

Thanks for the help,
J

 

[Divil]

You have to combine values:

Dim myStyle As FontStyle

If CheckBoxBold.Checked Then myStyle = myStyle Or FontStyle.Bold
If CheckBoxItalic.Checked Then myStyle = myStyle Or FontStyle.Italic
If CheckBoxUnderline.Checked Then myStyle = myStyle Or FontStyle.Underline

txtSample.Font = New Font(txtSample.Font, myStyle)

Try something like that.

 

[Xkape]

Thanks for the advice. However this is what I ended up with.

Dim FontBMask As Integer


Private Sub frmFontFun_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ff As FontFamily
For Each ff In System.Drawing.FontFamily.Families
If Not ff.Name = "Monotype Corsiva" Then
ComboBox1.Items.Add(ff.Name)
End If
Next
ComboBox1.Text = ComboBox1.Font.Name
FontBMask = 0
End Sub

Private Sub CheckBoxBold_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBoxBold.CheckedChanged
If CheckBoxBold.Checked = True Then
FontBMask = FontBMask + 1
Else
FontBMask = FontBMask - 1
End If
txtSample.Font = New System.Drawing.Font(txtSample().Font, FontBMask)
End Sub

Private Sub CheckBoxUnderline_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBoxUnderline.CheckedChanged
If CheckBoxUnderline.Checked = True Then
FontBMask = FontBMask + 4
Else
FontBMask = FontBMask - 4
End If
txtSample.Font = New System.Drawing.Font(txtSample().Font, FontBMask)
End Sub
End Class