利用Vbs+ActiveX制作一款Window标准选数控件

翻译|其它|编辑:郝浩|2004-08-16 11:12:00.000|阅读 2580 次

概述:

# 界面/图表报表/文档/IDE等千款热门软控件火热销售中 >>


<SCRIPT LANGUAGE="VBScript">
<!--
Sub Layout1_OnLoad()
SpinButton1.Orientation = 0
TextBox1.Font.Size = 24
end sub
Sub SpinButton1_SpinUp()
SpinButton1.Delay = 1000
TextBox1.Text = TextBox1.Text + 1
end sub
Sub SpinButton1_SpinDown()
SpinButton1.Delay = 1000
TextBox1.Text = TextBox1.Text - 1
end sub
-->
</SCRIPT>

<DIV ID="Layout1" STYLE="LAYOUT:FIXED;WIDTH:79pt;HEIGHT:38pt;">

<OBJECT ID="TextBox1"
CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3" 
STYLE="TOP:0pt;LEFT:0pt;WIDTH:41pt;HEIGHT:20pt;TABINDEX:0;ZINDEX:0;">
<PARAM NAME="VariousPropertyBits" VALUE="746604571">
<PARAM NAME="MaxLength" VALUE="9">
<PARAM NAME="Size" VALUE="1446;1164">
<PARAM NAME="Value" VALUE="25">
<PARAM NAME="FontName" VALUE="System">
<PARAM NAME="FontEffects" VALUE="1073741825">
<PARAM NAME="FontCharSet" VALUE="134">
<PARAM NAME="FontPitchAndFamily" VALUE="34">
<PARAM NAME="FontWeight" VALUE="700">
</OBJECT>

<OBJECT ID="SpinButton1"
CLASSID="CLSID:79176FB0-B7F2-11CE-97EF-00AA006D2776" 
STYLE="TOP:0pt;LEFT:42pt;WIDTH:17pt;HEIGHT:20pt;TABINDEX:1;ZINDEX:1;">
<PARAM NAME="Size" VALUE="600;1164">
</OBJECT>

</DIV>


标签:

本站文章除注明转载外,均为本站原创或翻译。欢迎任何形式的转载,但请务必注明出处、不得修改原文相关链接,如果存在内容上的异议请邮件反馈至chenjj@evget.com


为你推荐

  • 推荐视频
  • 推荐活动
  • 推荐产品
  • 推荐文章
  • 慧都慧问
扫码咨询


添加微信 立即咨询

电话咨询

客服热线
023-68661681

TOP