我是想要在textbox里的字，单击斜体字按钮，文字会改变成斜体，再按粗体字按钮，文字会变成粗体及斜体，再按按粗体按钮，粗体属性消失，但斜体属性也会消失。我就是一直想不明白该怎么写
ç¨RichtextBox
'--------------------
ç¾åº¦VB2010(VB.NET)å§å»ºè®¾åå±ä¸,éè¦ä½ çæ¯æå帮å©!!!
å¿«å å ¥æ们å§!åè¡¨ä½ ççé®,ç»éª,ç¨åº,å享..
让æä»¬å ±åè¿æ¥!
'--------------------
ç¾åº¦VB2010(VB.NET)å§å»ºè®¾åå±ä¸,éè¦ä½ çæ¯æå帮å©!!!
å¿«å å ¥æ们å§!åè¡¨ä½ ççé®,ç»éª,ç¨åº,å享..
让æä»¬å ±åè¿æ¥!
åèèµæï¼http://tieba.baidu.com/f?kw=vb2010
温馨提示：答案为网友推荐，仅供参考
第1个回答 2013-04-26
Dim cx As New FontStyle
If Opt.粗体 Then
cx = cx + FontStyle.Bold
End If
If Opt.斜体 Then
cx = cx + FontStyle.Italic
End If
mfont = New Font(CType(Opt.字体, String), Opt.大小, cx)
If Opt.粗体 Then
cx = cx + FontStyle.Bold
End If
If Opt.斜体 Then
cx = cx + FontStyle.Italic
End If
mfont = New Font(CType(Opt.字体, String), Opt.大小, cx)
