010301.htm

来自「提供一个VB学习教程,入门级。来源于网上」· HTM 代码 · 共 66 行

HTM

66 行

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0033)http://www.xxby.com/vb/010301.htm -->
<HTML><HEAD><TITLE>vb study</TITLE>
<META http-equiv=Content-Language content=zh-cn>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE>TD {
	FONT-SIZE: 9pt
}
A:link {
	FONT-SIZE: 9pt; COLOR: #0033cc; TEXT-DECORATION: none
}
A:visited {
	FONT-SIZE: 9pt; COLOR: #0066cc; TEXT-DECORATION: none
}
A:active {
	FONT-SIZE: 9pt; COLOR: #ff0000; TEXT-DECORATION: none
}
A:hover {
	FONT-SIZE: 9pt; COLOR: #000000; TEXT-DECORATION: underline
}
</STYLE>

<META content="MSHTML 6.00.2800.1106" name=GENERATOR></HEAD>
<BODY>
<DIV align=center>
<CENTER>
<TABLE cellSpacing=0 cellPadding=0 width="98%" border=0>
  <TBODY>
  <TR>
    <TD width="100%"><A href="http://www.xxby.com/vb/010301.htm#">你的位置</A>：<A 
      href="http://www.xxby.com/" target=_blank>华生小屋</A>--<A 
      href="http://www.xxby.com/vb/010301.htm#">VB学习</A>--<A 
      href="http://www.xxby.com/vb/010301.htm#">基本控件</A></TD></TR>
  <TR>
    <TD width="100%">
      <P align=center>命令按纽Command对象</P></TD></TR>
  <TR>
    <TD width="100%"><BR>★ 命令按纽command对象的caption属性：修改标题。<BR>★ 
      最简单的模拟"图形按纽"效果就是用一个加载图片的image或picturebox，然后在它的mousedown和mouseup事件中改变它的appearance是否为立体或平面。好象有点接近"工具栏按纽"的味道(picturebox还可改变它的backcolor属性为"&amp;H00E0E0E0"与"&amp;00C0C0C0"使按下与抬起时色不同)。<BR>★ 
      图形按纽的创建：1，在窗体上设置一个按纽Command控件，将其style（图形按纽模式）属性设为1--图形模式（如果0就是--标准WINDOWS模式）；<BR>2，在代码FORM 
      LOAD事件中设置command1的picture(弹起时图形），downpicture（按下时图形），disabledpicture(失效时图形）属性，要用loadpicture函数指明具体路径。<BR>3，可作其他一些辅助工作，如将caption设为空，即纯图形按纽，backcolor设为想需要的背景色，等等。<BR>4，如果要让按纽能保持"按下"状态，即开关式三态按纽，请改用Check控件。也可以在Command按纽上用另一个对象picture来配合，按下时替换为picture图片。不过效果不好，例下：<BR>Private 
      Sub Command1_Click()<BR>Command1.Visible = Not Command1.Visible 
      --每次单击时就互换一次<BR>Picture1.Visible = Not Picture1.Visible<BR>End 
      Sub<BR>Private Sub Form_Load()<BR>Command1.Picture = 
      LoadPicture("e:\dmt\ico\face2.ico") "弹起"时图片<BR>Picture1.Height = 
      Command1.Height --两个对象同步<BR>Picture1.Width = 
      Command1.Width<BR>Picture1.Left = Command1.Left<BR>Picture1.Top = 
      Command1.Top<BR>Picture1.Visible = False<BR>Command1.Visible = 
      True<BR>Picture1.Picture = LoadPicture("e:\dmt\ico\face3.ico") 
      "按下"时图片<BR>End Sub<BR>Private Sub Picture1_Click()<BR>Picture1.Visible = 
      Not Picture1.Visible --每次单击就互换一次<BR>Command1.Visible = Not 
      Command1.Visible<BR>End Sub<BR>★ 
      为命令按纽对象（COMMAND1）添加访问键，在其caption属性中标题文字后用"&amp;+字母" 
      指定一个字母为该按纽访问键（与菜单一样）。<BR>★ 
      按纽command对象的default属性：如果为True，运行时，不管焦点在何处，按回车键，都触发此按纽事件；<BR>★ 
      按纽command对象的cancel属性：如果为True，运行时，不管焦点在何处，按ESC键，都触发此按纽事件。<BR>★ 
      按纽command对象的value属性：运行时是否自动按下按纽。如果值为true，则触发该按纽的click事件。如command1.value=true，运行这行代码等价于用鼠标按下该按纽（只能在代码中设置），有意思。而且，要自动按下按纽实际还可直按调用"command1_click"事件，如：<BR>if 
      lxn&gt;100 then<BR>command1_click<BR>end 
      if<BR>引申为：对任一事件过程只要在其声明的作用范围可见处(Private还是Public)都可随意调用。<BR>[问题：如果一个事件有参数，如keydown等，该如何调用？] 

      <P align=center><BR>&lt; <A 
      href="http://www.xxby.com/vb/010202.htm">上一页</A>--<A 
      href="http://www.xxby.com/" target=_blank>华生小屋</A>--<A 
      href="http://www.xxby.com/vb/010401.htm">下一页</A> 
&gt;<BR></P></TD></TR></TBODY></TABLE></CENTER></DIV></BODY></HTML>

010301.htm - 源码说明

本页面展示了「提供一个VB学习教程,入门级。来源于网上」中的 010301.htm 源码文件，采用 HTM 编程语言编写，共 66 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与教程相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?