020104.htm

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

HTM
69 行
字号 
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>vb study</title><style>
<!--
td {font-size: 9pt}
A:link {text-decoration: none; color: #0033cc;font-size: 9pt}
A:visited {text-decoration: none; color: #0066CC;font-size: 9pt}
A:active {text-decoration: none; color: #ff0000; font-size: 9pt}
A:hover {text-decoration: underline; color: #000000;font-size: 9pt}
-->
</style>
</head>

<body>

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="98%">
    <tr>
      <td width="100%"><a href="#">你的位置</a>：<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="#">VB学习</a>--<a href="#">ActiveX控件</a></td>
    </tr>
    <tr>
      <td width="100%">
        <p align="center">主要ActiveX控件</td>
    </tr>
    <tr>
      <td width="100%"><br>
        状态条StatusBar控件：<br>
        <br>
        statusbar控件由多个panel面板对象组成（最多可为16个），组成1个panels集合，<br>
        PanelClick事件：单击panel对象时引发。参数Panel返回单击了哪个面板对象。<br>
        PaneldblClick事件：双击panel对象时引发。<br>
        panels属性：返回panel对象集合。<br>
        每1个panel面板的属性：在程序中，可通过text,picture,width属性动态地改变任何1个panel对象的文本，图象，宽度。斜面bevel属性：该面板是凹下（值1）还是凸出（值2）还是平面（值0）。如statusbar1.panels(1).bevel=2.关健字key属性：代码中标识1个panel 对象，如在panelclick事件中用select case panel.key来区分单击了不同的面板。样式style属性：有0-7种样式，如0为自定文本与图形(缺省),sbrtime(5)为显示时间，sbrdate值6，为显示日期等，还有检测numlock键的状态等。自动调整大小autosize属性：当状态条所在form窗体大小改变时，调整状态条大小以自动匹配，为0不会自动改变大小，为1可自动缩放，但最小宽度不会小于minwidth属性指定的宽度。为2面板的宽度与其内容匹配。<br> 
        style属性：设置statusbar控件的类型。有sbrNormal(0)为显示所有panel对象，和sbrSimple（1）为显示1个大面板，且该面板不能通过面板集合来控制。<br>
        SimpleText属性：当style属性设置为sbrSimple时，设置显示文本。<br>
        添加面板panel（也叫"窗格"），在设计时单击鼠标右键选"属性"打开属性页进行添加，在代码中用add方法添加，格式：<br>
        statusbar1.Panels.Add 索引index, 关键字key, 文本text, 样式style, 图片picture&nbsp;<br>
        statusbar1.panels.add 3,"lxn","这是第1条",0,LoadPicture("e:\dmt\face1.ico")<br> 
        1个简例：<br>
        Private Sub StatusBar1_PanelClick(ByVal Panel As MSComctlLib.Panel)<br> 
        Select Case Panel.Key<br> 
        Case "lxn"<br> 
        Beep<br>
        Case "ldd"<br> 
        Unload Me<br> 
        Case "yqs"<br> 
        StatusBar1.Panels("lxn").Text = "李新宁"<br> 
        End Select<br> 
        End Sub   
        <p align="center">
        <br>
        &lt; <a href="020103.htm">上一页</a>--<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="020105.htm">下一页</a>    
        &gt;<br>
        </p>
      </td>
    </tr>
  </table>
  </center>
</div>

</body>

</html>

020104.htm - 源码说明

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

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

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?