VB工程--百例81--字体演示
来源:互联网 发布:js中正则表达式的使用 编辑:程序博客网 时间:2024/06/12 08:55
与百例79-80例相类似
Option Explicit
Private Sub chk1_Click()
If chk1.Value = 1 Then '若复选框chk1的值为1
Label2.FontUnderline = True '标签框中的文字加下划线
Else '否则
Label2.FontUnderline = False '标签框中的文字不加下划线
End If
End Sub
Private Sub chk2_Click()
If chk2.Value = 1 Then
Label2.FontStrikethru = True
Else
Label2.FontStrikethru = False
End If
End Sub
Private Sub Command1_Click()
cdl1.ShowFont
'打开“字体”对话框
Label2.Font = cdl1.FontName
'标签框中文字的字体是“字体”对话框中所选择的字体
Label2.FontBold = cdl1.FontBold
'标签框中文字的字体是否加粗显示“字体”对话框中所选择的字体
Label2.FontItalic = cdl1.FontItalic
'标签框中文字的字体是否倾斜“字体”对话框中所选择的字体
End Sub
- VB工程--百例81--字体演示
- VB工程-- 百例79--字体屏保
- VB工程---百例45--同心圆.
- VB工程--百例47--球体.
- VB工程---百例75--状态栏
- VB工程--百例76--工具栏
- [VB]局部钩子演示
- VB工程7---百例1 改编
- VB工程9--百例3--改编
- VB工程10---百例12--密码校验
- VB工程11---百例13--求和
- VB工程12--百例16--比较大小
- VB工程15---百例28---图像缩放
- VB工程17--百例25--古诗测试
- VB工程18--百例34--喷泉
- VB工程19--百例37--交通红绿灯
- VB工程20---百例43----群星闪烁
- VB工程--百例43--图形绘制
- windows下编程控制摄像头的详细介绍
- 《數字圖像處理基礎》第5章 圖像噪聲的抑制 要點歸納
- 指针(二)
- 全国各地车牌查询表
- 对话框和控件的背景和颜色定制
- VB工程--百例81--字体演示
- Asp.Net复杂表格:应用 Repeater 创建复杂表头的表格
- 噪聲與濾波
- 转载最全的Android资料
- Android学习笔记(一)搭建开发环境
- c++中 子类对象与父类对象的内存关系
- C# 使用 HttpWebRequest 保持会话上传文件到 HTTP
- python中括号和方括号的问题
- sshpass: 用于非交互的 ssh 密码验证