⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 vbex6preview.htm

📁 Active Server Pages 网页制作教程看之前请传到ASP空间。或者本地用iis。或安装pws内有说明
💻 HTM
字号:
🔍 
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Author" content>
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.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 = &quot;&quot;

    ' 将PictureBox的图像设定给命令钮
    Set cmd.Picture = pic.Image

    pic.AutoRedraw = False
End Sub
</font></pre>
    </blockquote>
    <p>使用 SetCommandForeColor
    子程序来设定命令钮的前景颜色时，请注意以下几件事情：</p>
    <ol>
        <li>命令钮的Style属性必须在设计阶段先设定成
            &quot;1 - 图片外观&quot;。</li>
        <li>将 PictureBox 的 Visible 属性设定成 False，
            因为 PictureBox
            的用途是帮命令钮产生有颜色的文字，
            而不是要显示在窗体上。</li>
        <li>将 PictureBox 的 BorderStyle 属性设定成
            &quot;0 - 没有框线&quot;。</li>
        <li>调用 SetCommandForeColor 子程序时，
            参数一传入颜色、
            参数二传入命令钮的名称、 参数三传入
            PictureBox 的名称。</li>
        <li>SetCommandForeColor
            子程序每次执行时会将命令钮的 Caption
            属性设定成 &quot;&quot;，因此调用
            SetCommandForeColor 之前必须先设定好命令钮的Caption属性，例如：</li>
    </ol>
    <blockquote>
        <pre><font color="#000080">Command1.Caption = &quot;命令钮的标题&quot;	' 此一叙述不可省
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 + -