通用对话框commondialog的字体(汉字)设置
书上的一个字体设置的例子,我写下来,结果就出现了汉字倒着放,但英文可以正常显示的情况
添加了common dialog控件后,界面如下:
代码如下:
由于图片太小,我把代码写下来:
Private Sub Command1_Click()CommonDialog1.Flags = cdlCFBoth Or cdlCFEffectsCommonDialog1.ShowFontIf CommonDialog1.FontName > "" ThenText1.FontName = CommonDialog1.FontNameEnd IfText1.FontSize = CommonDialog1.FontSizeText1.FontBold = CommonDialog1.FontBoldText1.FontItalic = CommonDialog1.FontItalicText1.FontStrikethru = CommonDialog1.FontStrikethruText1.FontUnderline = CommonDialog1.FontUnderlineText1.ForeColor = CommonDialog1.ColorEnd Sub