按钮控制
用VB实现浮动按钮
    在微软的很多软件（如WORD）的工具栏中，都采用一种浮动按钮，即正常情况下按钮的图标呈灰，当鼠标移动到某一按钮时，该按钮自动向上凸起且变为彩，并在按钮的右下方有一标签提示该按钮的功能，鼠标移开后又自动还原，这种按钮用VB实现时，方法如下：
    1.先用绘图工具作出按钮图标后存盘（如1.bmp），再用图象处理软件将该图标转换为灰 度图或浮雕图后再存盘（如2.bmp）。
    2.运行VB，建立一新窗体（如form1）。
    3.在窗体上需要建立按钮的位置处建立一图片框（如image1），其大小和图标相同，并将 其picture属性设为2.bmp。
    4.在image1周围建立由四个长度相同的line控件（如line1～4）组成的方框，方框要比image1 控件稍大，否则达不到预计效果，将上面和左边的颜设成白，下面和右边的设成黑， 并将四个line控件的visible属性都设成false 。
    5.在程序中加入以下内容即可：
        Private Sub Image1_MouseMove(Botton As Integer,Shift As Integer,X As Single,Y As Single)
        Image1.Picture=LoadPicture("c:\1.bmp")
        Line1.Visible=True
        Line2.Visible=True
        Line3.Visible=True
        Line4.Visible=True
        End Sub
        Private Sub Form1_MouseMove(Botton As Integer,Shift As Integer,X As Single,Y As Single)
        Image1.Picture=LoadPicture("c:\2.bmp")
        Line1.Visible=False
        Line2.Visible=False
        Line3.Visible=False
        Line3.Visible=False
        End Sub
如何设计一个可中断循环的按钮。
当 程 序 进 入 循 环 而 尚 未 脱 离 时 ， 使 用 者 将 无 法 操 作 表单 上 的 控 制 控 件 ， 所 以 按 钮 也 是 无 法 操 作 的 。 想 要 设计 可 中 断 循 环 的 按 钮 ， 首 先 必 须 在 循 环 之 中 安 插vb开始按钮代码 DoEvents 叙 述 ， 例 如 ：
    While ...
循 环 内 的 处 理 工 作
    DoEvents
    Wend
DoEvents 的 作 用 是 暂 时 释 放 CPU， 让 其 他 程 序 得 以 被 执 行， 也 就 是 让 使 用 者 可 以 操 作 表 单 上 的 控 制 控 件 。
接 着 声 明 一 个 全 域 变 数 ： Dim bExit As Boolean， 然 后 在 回圈 中 增 加 以 下 的 判 断 式 ：
    While Not bExit
    循 环 内 的 处 理 工 作
    DoEvents
    Wend
    bExit = False
最 后 则 是 在 按 钮 的 Click 事 件 程 序 中 撰 写 以 下 叙 述 ：
    bExit = True
以 上 程 序 有 两 大 重 点
(1) DoEvents 让 使 用 者 可 以 按 下 命令 钮
(2) 按 钮 按 下 时 ， 将 全 域 变 数 bExit 设 定 成 True， 使 得 程 序 在 判 断 Not bExit 为 False 的 情 况下 而 脱 离 循 环 。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。