VB6实现自定义windows的字体对话框修改字体
2016-08-16 10:39
295 查看
昨天没有时间把给Kivi的代码发上来,今天补上,仅仅是提供给一些VB的初学者和Kivi同学,如果需要大家可以下载下来看看,VB6是个很老的工具了,不过现在本科的理科同学学还是有需要的
这是一个非常简单的VB Form应用要求分别使用windows的系统自带字体对话框和自己制作一个字体对话框实现对一个文本区域的文本的字体的修改,要求自己制作的能够实现Windows自带的字体对话框的功能。
字体对话框大家应该用过,可以实现对某个VB控件显示的字体的字体名、字号、加粗
倾斜等显示效果的修改,通常大家使用的比较多,所以界面我就不截图了,为了方便
kivi学习所以源代码的注释比较详细,如果大家看过了还有不懂的话,可以直接留言
我一般晚间会给大家回复
源代码下载地址:
http://www.lidaren.com/code/DemoFontDialog.zip
特殊代码说明:
这里我加了*的这一行,在显示VB字体对话框之前一定要设置flags的参数,否则会出现
系统找不到字体的错误。
Flags 属性可以是下面的Visual Basic常数
cdlCFScreenFonts(屏幕字体)
cdlCFPrinterFonts(打印机字体)
cdlCFBoth(既可以是屏幕字体又可以是打印机字体)
另外很郁闷的是VB当中没有定义Font这个对象,大家可以使用Object,这里我
用的是直接赋值,方便VB初学者,Kivi included!
具体大家可以参阅:http://www.bianceng.cn/Programming/vb/200705/557.htm
--------------------------------------------------------------------------------------
- 版权声明:
- 如在本页面内无特别说明,本文内容均为[李大仁博客]原创,本文版权归[李大仁博客]所有。
- 欢迎转载,转载请务必在文章页面明显位置提供原文链接并注明出处。欢迎您在转载本文时保留本段声明。
- 文章标题:[VB]Visual Basic6实现自定义windows的字体对话框修改字体
- 独立博客:李大仁博客
- 永久链接:http://www.lidaren.com/archives/329
--------------------------------------------------------------------------------------
以上内容由博客自动发布工具自动发布,最终显示内容和效果会与原文内容有所偏差,敬请谅解。
这是一个非常简单的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
--------------------------------------------------------------------------------------
- 版权声明:
- 如在本页面内无特别说明,本文内容均为[李大仁博客]原创,本文版权归[李大仁博客]所有。
- 欢迎转载,转载请务必在文章页面明显位置提供原文链接并注明出处。欢迎您在转载本文时保留本段声明。
- 文章标题:[VB]Visual Basic6实现自定义windows的字体对话框修改字体
- 独立博客:李大仁博客
- 永久链接:http://www.lidaren.com/archives/329
--------------------------------------------------------------------------------------
以上内容由博客自动发布工具自动发布,最终显示内容和效果会与原文内容有所偏差,敬请谅解。
相关文章推荐
- 自定义spinner实现修改字体大小、颜色等
- 图形的绘制,如何使用自定义画笔(颜色,线宽,线形)。如何为程序中添加选项菜单和选项设置对话框,如何使用标准颜色对话框,如何使用字体对话框,在选项对话框中实现预览功能。实现选项对话框和窗口类中的数据交换。如何改变对话框和控件的背景色,如何改变控件的文本颜色,
- 修改VCL源码实现自定义输入对话框
- [转帖] Java5/6中的字体自定义设置与美化(Linux/Windows)
- JQuery实现自定义对话框的代码
- 实现自定义Windows窗体样式,酷!
- 如何制作Windows自定义边框的对话框
- MFC 笔记 申请设备子类 加入图片 自定义字体 修改窗口标题
- 实现自定义对话框程序快捷键的两种方法
- 给windows mobile cab安装包添加setup.dll实现自定义操作(转)
- 修改注册表实现在桌面上显示Windows版本
- 通过修改注册表实现Windows 隐藏账户
- 基于多线程技术和自定义消息编程实现Windows 9x异步串行通信
- Ext JS 中实现自定义验证 密码修改 确认密码
- 修改对话框字体及其大小
- maximo 自定义高级数据选择对话框(非表域实现)
- 如何将 Windows 的字体修改的更圆滑。
- 用VBScript实现对Windows注册表的修改
- Java5/6中的字体自定义设置与美化(Linux/Windows)补充说明
- 实现真正的非全屏窗口和自定义消息对话框