📄 b980419.gb_
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>进阶篇：如何设定命令钮的「前景颜色」(ForeColor)？ Part II</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=big5">
<META NAME="Author" CONTENT="KJ Wang">
<META NAME="GENERATOR" CONTENT="Mozilla/3.01Gold (Win95; I) [Netscape]">
</HEAD>
<BODY TEXT="#202020" BGCOLOR="#FFFFFF" LINK="#FF0000" VLINK="#000080" ALINK="#FF0000">
<H2 ALIGN=CENTER><A HREF="vbex.htm">VB5 实战讲座</A></H2>
<H3 ALIGN=CENTER><A HREF="../vbweeks.htm">每周一问</A>： 挑战您的 VB 功力
(进阶篇, 98/04/19)</H3>
<P>
<HR></P>
<TABLE WIDTH="100%" >
<TR>
<TD valign="top" nowrap>Q：</TD>
<TD valign="top">如何设定命令钮的「前景颜色」(ForeColor)？<FONT COLOR="#FF0000">Part
II</FONT></TD>
</TR>
<TR>
<TD valign="top">A：</TD>
<TD valign="top"><A HREF="B980412.htm">上一周所介绍的方法</A>， 必须事先存档，
遇到必须修改标题(Caption)时， 就比较麻烦。
<P>其实我们可以在表单上布置一个 PictureBox， 并且将 PictureBox 的 Visible
设定为 False， 将 BorderStyle 属性设定为 "0 - 没有框线"， 然後利用以下方法机动地设定命令钮的前景颜色：</P>
<BLOCKQUOTE>
<P>
<HR WIDTH="100%"><BR>
<FONT COLOR="#0000FF">Command1.Caption = "命令钮的标题"<BR>
Picture1.ForeColor = RGB(255, 0, 0)</FONT> <FONT COLOR="#008000">' 先设定
PictureBox 的 ForeColor 属性<BR>
</FONT><FONT COLOR="#0000FF">SetButtonColorFromPicture Command1, Picture1</FONT>
<BR>
<FONT COLOR="#008000">' SetButtonColorFromPicture 的用途是：在 PictureBox
上面输出 Command1.Caption，<BR>
' 然後将 PictureBox 上面的图像设定给 Command1.Picture<BR>
' 请注意 Command1 的 Style 属性必须在设计阶段先设定成 "1 - 图片外观"</FONT></P>
<P>Sub <FONT COLOR="#FF0000">SetButtonColorFromPicture</FONT>(Button As
CommandButton, P As PictureBox)</P>
</BLOCKQUOTE>
<BLOCKQUOTE>
<BLOCKQUOTE>
<P>Dim Cap As String<BR>
<BR>
Cap = Button.Caption<BR>
Button.Caption = ""<BR>
P.Cls<BR>
P.AutoRedraw = True<BR>
<BR>
P.BackColor = Button.BackColor<BR>
Set P.Font = Button.Font<BR>
P.Height = Button.Height<BR>
P.Width = Button.Width<BR>
P.ScaleMode = Me.ScaleMode<BR>
<BR>
P.CurrentX = (P.Width - P.TextWidth(Cap)) / 2<BR>
P.CurrentY = (P.Height - P.TextHeight(Cap)) / 2<BR>
P.Print Cap<BR>
Set Button.Picture = P.Image<BR>
P.AutoRedraw = False</P>
</BLOCKQUOTE>
<P>End Sub</P>
<BLOCKQUOTE>
<P> </P>
</BLOCKQUOTE>
</BLOCKQUOTE>
</TD>
</TR>
</TABLE>
<P>
<HR></P>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -