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

📄 020103.htm

📁 提供一个VB学习教程,入门级。来源于网上
💻 HTM
字号:
<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>
        滑块Slider控件:<br>
        <br>
        与滚动条类似,但滑块控件可选择1个范围。&nbsp;<br>
        移动滑块时引发:scroll事件,发生在click事件之前。&nbsp;<br>
        在控件的value属性值变更之后引发:change事件,与scroll事件不完全相同,scroll注重"滑块"移动,change注重"value值改变"。&nbsp;<br>
        返回在界面中控件的刻度数目:GetNumTicks方法:&nbsp;<br>
        min属性:滑块的最小值。&nbsp;<br>
        max属性:滑块的最大值。&nbsp;<br>
        smallchange属性:在键盘上按下左箭头键或右箭头键时,滑块移动的刻度数。&nbsp;<br>
        largechange属性:在键盘上按下pageup,pagedown键或鼠标单击滑块左右侧时,滑块移动的刻度数。&nbsp;<br>
        value属性:滑块的当前值。<br>
 显示的刻度标记的样式。如在滑块上面还是下面等:tickstyle属性: 刻度出现频率:tickfrequency属性,决定在控件中出现多少个刻度,如设置min=0, max=100,那么,tickfrequency=5,每递增5就出1个刻度,共会有21个刻度。&nbsp;<br>
        运行时是否可选择范围: SelectRange属性,为true可选择范围。&nbsp;<br>
        selstart属性:选择范围的起点。&nbsp;<br>
        sellength属性:选择范围的长度。<br>
        清除slider控件的当前选择: ClearSel方法。&nbsp;<br>
        1个选择范围的简例(用Shift键同时按下进行选择):<br>
 Private Sub Slider1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)<br> 
 If Shift = 1 Then&nbsp;<br>
  Slider1.SelectRange = True&nbsp;<br>
  Slider1.SelStart = Slider1.Value&nbsp;<br>
        End If&nbsp;<br>
        End Sub&nbsp;<br>
        Private Sub Slider1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)&nbsp;<br>
        If Shift = 1 Then&nbsp;<br>
  Slider1.SelLength = Slider1.Value - Slider1.SelStart&nbsp;<br>
        End If&nbsp;<br>
        End Sub   
        <p align="center">
        <br>
        &lt; <a href="020102.htm">上一页</a>--<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="020104.htm">下一页</a>    
        &gt;<br>
        </p>
      </td>
    </tr>
  </table>
  </center>
</div>

</body>

</html>

⌨️ 快捷键说明

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