?? 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 + -