与百例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
分享到:
相关推荐
filemanager.zip 文件管理器(8KB) 52,mousedemo.zip 一些鼠标例子演示(3KB) 53,calendar.zip 一个小小的日历程序(4KB) 54,hotkey.zip VB编程中热键应用一例(3KB) 55,noalt+f4.zip ...
(需中文VB5.0 SP3支持)(18KB) 80,g002_tmrchess.ZIP 一个好用的象棋控件(30KB) 81,g001_tilepuz.ZIP 一个 Puzzle 游戏控件(57KB) 82,cracbar.EXE Active Bar 2.0 的破解程序(48KB) 83,s018_...
(需中文VB5.0 SP3支持)(18KB) 80,g002_tmrchess.ZIP 一个好用的象棋控件(30KB) 81,g001_tilepuz.ZIP 一个 Puzzle 游戏控件(57KB) 82,cracbar.EXE Active Bar 2.0 的破解程序(48KB) 83,s018_...
zbfdbt.zip 用VB6写的浮动文本按扭控件(有源代码)(21KB) 79,Polyform.zip 创建不规则窗口(有例子)(94KB) 80,eyes.zip 跟着鼠标转的眼睛控件(有源代码)(6KB) 81,resize.zip 在调整窗体大小...
zbfdbt.zip 用VB6写的浮动文本按扭控件(有源代码)(21KB) 79,Polyform.zip 创建不规则窗口(有例子)(94KB) 80,eyes.zip 跟着鼠标转的眼睛控件(有源代码)(6KB) 81,resize.zip 在调整窗体大小...
(4KB) 85,mp3play.ZIP mp3播放器VB源代码,含MP3控件(174KB) 86,textefx.ZIP 用VB实现字体特效动画 VB源码(9KB) 87,screensaverx.zip 屏幕保护源代码(47KB) 88,mario.zip 超级玛丽游戏...
(需中文VB5.0 SP3支持)(18KB) 80,g002_tmrchess.ZIP 一个好用的象棋控件(30KB) 81,g001_tilepuz.ZIP 一个 Puzzle 游戏控件(57KB) 82,cracbar.EXE Active Bar 2.0 的破解程序(48KB) 83,s018_...
ballon_tip_src.zip 一个很酷的TOOLTIP(4KB)<END><br>80,grid_strl_src.zip MFC网格控件(57KB)<END><br>81,grid_strl_demo.zip MFC网格控件演示程序(115KB)<END><br>82,tabwnd.zip 标签视(37KB)<END><br...
用这个类就能轻松搞定(21KB)<END><br>17,fontcombo.zip 这是一个用于选择字体的组合框类库,而且直接可以预览(46KB)<END><br>18,icon_comb.zip 这是一个选择图标的组合框的类(2KB)<END><br>19,mrucombo.zip...