banner
李大仁博客

李大仁博客

天地虽大,但有一念向善,心存良知,虽凡夫俗子,皆可为圣贤。

VB6实现自定义windows的字体对话框修改字体

昨天没有时间把给 Kivi 的代码发上来,今天补上,仅仅是提供给一些 VB 的初学者和 Kivi 同学,如果需要大家可以下载下来看看,VB6 是个很老的工具了,不过现在本科的理科同学学还是有需要的

这是一个非常简单的 VB Form 应用要求分别使用 windows 的系统自带字体对话框和自己制作一个字体对话框实现对一个文本区域的文本的字体的修改,要求自己制作的能够实现 Windows 自带的字体对话框的功能。

字体对话框大家应该用过,可以实现对某个 VB 控件显示的字体的字体名、字号、加粗
倾斜等显示效果的修改,通常大家使用的比较多,所以界面我就不截图了,为了方便
kivi 学习所以源代码的注释比较详细,如果大家看过了还有不懂的话,可以直接留言
我一般晚间会给大家回复

源代码下载地址:
http://www.lidaren.com/code/DemoFontDialog.zip

特殊代码说明:

Private Sub btn_comm_Click()
cmdDlg.Flags = 1 ' 设置 Flags 标志表示 ****
cmdDlg.ShowFont ' 显示系统字体对话框
txtBox.Font.Name = cmdDlg.fontName ' 字体名称
txtBox.Font.Bold = cmdDlg.FontBold ' 加粗?
txtBox.Font.Size = cmdDlg.FontSize ' 字体大小
txtBox.Font.Italic = cmdDlg.FontItalic ' 倾斜?
txtBox.Font.Underline = cmdDlg.FontUnderline ' 下划线?
txtBox.Font.Strikethrough = cmdDlg.FontStrikethru ' 删除线
End Sub

这里我加了 * 的这一行,在显示 VB 字体对话框之前一定要设置 flags 的参数,否则会出现
系统找不到字体的错误。

Flags 属性可以是下面的 Visual

Basic 常数
cdlCFScreenFonts(屏幕字体)
cdlCFPrinterFonts(打印机字体)
cdlCFBoth(既可以是屏幕字体又可以是打印机字体)

另外很郁闷的是 VB 当中没有定义 Font 这个对象,大家可以使用 Object,这里我
用的是直接赋值,方便 VB 初学者,Kivi included!

具体大家可以参阅:http://www.bianceng.cn/Programming/vb/200705/557.htm

加载中...
此文章数据所有权由区块链加密技术和智能合约保障仅归创作者所有。