📄 vbex6preview.htm
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Author" content>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<title>VB6 实战讲座</title>
</head>
<body bgcolor="#FFFFFF" text="#202020" link="#FF0000"
vlink="#0000FF" alink="#FF0000">
<h1 align="center"><font color="#800000">Visual Basic 6.0
实战讲座</font></h1>
<p align="center"><font color="#008000">让您充分发挥 Visual
Basic 战力的学习书 </font></p>
<hr>
<h2><font color="#800000">本书实用功能预览</font></h2>
<hr>
<p><font color="#0000FF">如何设置命令钮(CommandButton)的前景颜色？(第
3章, p.98-101)</font></p>
<hr>
<blockquote>
<p>跟其他控件所不同的是命令钮并没有
ForeColor (前景颜色)属性， 所以命令钮并没有设置前景(文字)颜色的功能。
不过这个问题也不是无解，笔者的方法是借助
PictureBox 控件来达成目的， 而完成的子程序如下：</p>
<blockquote>
<pre><font color="#000080">' 参数一 Color: 传入颜色
' 参数二 cmd: 传入命令钮的名称
' 参数三 pic: 传入PictureBox的名称
Sub SetCommandForeColor(Color As Long, cmd As CommandButton, pic As PictureBox)
' 清除PictureBox的背景
pic.Cls
pic.AutoRedraw = True
' 将命令钮的BackColor、Font┅等属性设置给PictureBox
pic.BackColor = cmd.BackColor
Set pic.Font = cmd.Font
pic.Width = cmd.Width
pic.Height = cmd.Height
' 设置PictureBox的前景颜色
pic.ForeColor = Color
' 将文字输出於PictureBox中央的位置
pic.CurrentX = (pic.Width - pic.TextWidth(cmd.Caption)) / 2
pic.CurrentY = (pic.Height - pic.TextHeight(cmd.Caption)) / 2
pic.Print cmd.Caption
' 清除命令钮原来的标题
cmd.Caption = ""
' 将PictureBox的图像设置给命令钮
Set cmd.Picture = pic.Image
pic.AutoRedraw = False
End Sub
</font></pre>
</blockquote>
<p>使用 SetCommandForeColor 子程序来设置命令钮的前景颜色时，请注意以下几件事情：</p>
<ol>
<li>命令钮的Style属性必须在设计阶段先设置成
"1 - 图片外观"。</li>
<li>将 PictureBox 的 Visible 属性设置成 False，
因为 PictureBox
的用途是帮命令钮产生有颜色的文字，
而不是要显示在表单上。</li>
<li>将 PictureBox 的 BorderStyle 属性设置成
"0 - 没有框线"。</li>
<li>调用 SetCommandForeColor 子程序时， 参数一传入颜色、 参数二传入命令钮的名称、
参数三传入
PictureBox 的名称。</li>
<li>SetCommandForeColor 子程序每次执行时会将命令钮的 Caption
属性设置成 ""，因此调用
SetCommandForeColor 之前必须先设置好命令钮的Caption属性，例如：</li>
</ol>
<blockquote>
<pre><font color="#000080">Command1.Caption = "命令钮的标题" ' 此一语句不可省
SetCommandForeColor vbRed, Command1, Picture1
</font></pre>
</blockquote>
<p> </p>
</blockquote>
<p> </p>
<hr>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -