加载按钮代码（添加按钮代码）

本篇文章给大家谈谈加载按钮代码，以及添加按钮代码对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、VB如何用代码创建一个按钮
• 2、vb方面基础问题，我想设计一个按钮，按一下就加载一个check,在代码上要怎样写
• 3、vb中单击加载按钮在picture1中加载图片单击清除按钮,清除picture1中图片,
• 4、我用如下方法在excel 2007 功能区的加载项中，通过代码 加载按钮后，这些按钮该怎么引用已定义的宏？ Sub
• 5、跪求JS大神看看这段代码怎样改为点击按钮加载更多
• 6、as3.0多个按钮加载多个swf代码怎么写

VB如何用代码创建一个按钮

思路

两种方式：

1、通过动态按钮方式创建，

2：通过控件数组方式创建。

个人倾向于通过控件数组的方式。一般应用都是有规律的创建的，所以用控件数组合适些。

举例

' 先在窗体上添加一个标准按钮

' 在属性窗口中，把它的 Index属性设置成 0

'        名称改为 cmdDynCmd （其它的名称也行，注意后面的说明）

'        Visible 可以设置成 False

Option Explicit

Private lCmdIndex As Long

Private Sub LoadCmdButton()

'这儿就是加载动态按钮的

   Dim i

   For i = 0 To NNN   '这儿NNN等于你需要的按钮数减1，可以用变量的

   '你应该能通过你的“数据库中"a"表中"名称"字段”项目数 来确定值为多少

   ' *** 注意这儿的 cmdDynCmd 就是设计时确定的按键名称 ***

      If (lCmdIndex  0) Then Load cmdDynCmd(i)

      cmdDynCmd(i).Visible = True

      '这儿的 Caption 属性，你自己用代码跟你的 数据库中"a"表中"名称"字段内容关联

      cmdDynCmd(i).Caption = "动态按钮"  i + 1

      '这儿的 x 、y 你可以根据 i 的值来进行计算

      cmdDynCmd(i).Top = X

      cmdDynCmd(i).Left = Y

      '直接 cmdDynCmd(i).move x, y也行

   next

End Sub

' 这儿就是动态按钮的事件代码

' 根据 Index 判断是哪个按钮触发了事件

' 跟你事先设计好的控件数组完全是相同的用法

' ***** 注意！！！注意这儿的 cmdDynCmd 就是设计时确定的按键名称

Private Sub cmdDynCmd_Click(Index As Integer)

   MsgBox "你点击的是第 "  Index + 1  " 个动态按钮。", 64

   '具体事件代码只能你自己写

End Sub

vb方面基础问题，我想设计一个按钮，按一下就加载一个check,在代码上要怎样写

Dim xI As Integer

Private Sub Command1_Click()

xI = xI + 1

Set Object = Form1.Controls.Add("VB.Checkbox", "Check" xI)

With Object

.Visible = True

.Caption = "Check" xI

.Width = 1000

.Height = 500

.Top = 400 * xI

.Left = Check1.Left

End With

End Sub

Private Sub Form_Load()

xI = 1

End Sub

搞定。

vb中单击加载按钮在picture1中加载图片单击清除按钮,清除picture1中图片,

先创建一个窗口，两个COMMAND控件，一个Picture1图片控件，相关代码如下：

Private Sub Command1_Click() '加载

Picture1.Picture = LoadPicture("c:\aa.jpg")

End Sub

Private Sub Command2_Click() '清空

Picture1.Picture = Nothing

End Sub

我用如下方法在excel 2007 功能区的加载项中，通过代码 加载按钮后，这些按钮该怎么引用已定义的宏？ Sub

我用如下方法在excel 2007 功能区的加载项中，通过代码 加载按钮后，这些按钮该怎么引用已定义的宏？

Sub NowToolbar()

Dim arr As Variant

Dim id As Variant

Dim i As Integer

Dim Toolbar As CommandBar

On Error Resume Next

Application.CommandBars("MyToolbar").Delete

arr = Array("选择修改模版", "设置方案项目", "审核", "保存方案到本地", "另存为", "退出")

id = Array(9893, 284, 9590, 9614, 707, 986)

Set Toolbar = Application.CommandBars.Add("MyToolbar", msoBarTop)

With Toolbar

.Protection = msoBarNoResize

.Visible = True

For i = 0 To 5

With .Controls.Add(Type:=msoControlButton)

.Caption = arr(i)

.FaceId = id(i)

.BeginGroup = True

.Style = msoButtonIconAndCaptionBelow

End With

Next

End With

Set Toolbar = Nothing

End Sub

跪求JS大神看看这段代码怎样改为点击按钮加载更多

$(window).scorll 这几个 改成 $("选择器").click 选择器 指定你要点击的元素即可

as3.0多个按钮加载多个swf代码怎么写

你先新建个fla，然后打开组件面板，拖一个按钮组件到舞台，然后删除，把下面的代码贴到第一帧，然后放8个swf到fla的目录，并依次命名为mc_1.swf,mc_2.swf,...mc_8.swf，完成后调试这个fla看看是不是你想要的结果。

import fl.controls.Button;

stop();

var btNum:Number = 8;

var bt_x:Number = 50;

var bt_y:Number = 340;

var loader:Loader = new Loader();

var mcArr:Array = new Array();

for(var i:int = 1;i=btNum;i++){

var button:Button = new Button();

if(i/4 = 1){

button.x = (i-1) * 100 + bt_x + i * 10;

button.y = bt_y;

}else{

button.x = (i-1 - 4) * 100 + bt_x + (i-4) * 10;

button.y = bt_y + 30;

}

button.label = i+"";

button.addEventListener(MouseEvent.CLICK,clickHandle);

addChild(button);

}

function clickHandle(e:MouseEvent):void{

if(mcArr.length = 1){

removeChild(mcArr[0]);

mcArr.splice(0,1);

}

var bt:Button = e.target as Button;

var loader:Loader = new Loader();

var url:URLRequest = new URLRequest();

switch(bt.label){

case "1":

url.url = "mc_1.swf";

break;

case "2":

url.url = "mc_2.swf";

break;

case "3":

url.url = "mc_3.swf";

break;

case "4":

url.url = "mc_4.swf";

break;

case "5":

url.url = "mc_5.swf";

break;

case "6":

url.url = "mc_6.swf";

break;

case "7":

url.url = "mc_7.swf";

break;

case "8":

url.url = "mc_8.swf";

break;

}

loader.contentLoaderInfo.addEventListener(Event.COMPLETE,loadComplete);

loader.load(url);

}

function loadComplete(e:Event):void{

var mc:MovieClip = e.target.content as MovieClip;

addChild(mc);

mc.play();

mcArr.push(mc);

}

关于加载按钮代码和添加按钮代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。