请问如何用DELPHI控制excel的格式(比如第一列的宽度,第五行的高度),以

Posted 2023-04-09

参考技术A 参考一下？在excel中启用宏
录制宏
把要实现的格式化动作录下来
停录
编辑宏
查看其代码
所得代码为VBA形式
将之套到DELPHI中

请问如何用for循环添加事件？

以下8句代码，如何用for循环来完成呢？ btn_Land1.addEventListener(MouseEvent.CLICK, function(evt:Event) btn_Land1.ClickInfoState();)
btn_Land2.addEventListener(MouseEvent.CLICK, function(evt:Event) btn_Land2.ClickInfoState();)
btn_Land3.addEventListener(MouseEvent.CLICK, function(evt:Event) btn_Land3.ClickInfoState();)
btn_Land4.addEventListener(MouseEvent.CLICK, function(evt:Event) btn_Land4.ClickInfoState();)
btn_Land5.addEventListener(MouseEvent.CLICK, function(evt:Event) btn_Land5.ClickInfoState();)
btn_Land6.addEventListener(MouseEvent.CLICK, function(evt:Event) btn_Land6.ClickInfoState();)
btn_Land7.addEventListener(MouseEvent.CLICK, function(evt:Event) btn_Land7.ClickInfoState();)
btn_Land8.addEventListener(MouseEvent.CLICK, function(evt:Event) btn_Land8.ClickInfoState();)

你好，这个我做过，希望给你些灵感，代码如下：最好先把按钮都改成影片剪辑MovieClip，这样容易操作for (var i=0;i<8;i++) btn[i].addEventListener(MouseEvent.CLICK,btnClickHandler);function btnClickHandler(event:MouseEvent):void var btn_mc=event.currentTarget as MovieClip; mc.ClickInfoState(); 参考技术A 先建一个按钮数组
Button[] b = new Button[] btn_Land1, btn_Land2, ... , Btn_Land8 ;

然后
for ( int i = 0; i < b.length; ++i )
b[i].addEventListener(MouseEvent.CLICK, function(evt:Event) b[i].ClickInfoState();) 参考技术B for(i=1;i++;i<=8)btn_Land[i].addEventListener(MouseEvent.CLICK, function(evt:Event) btn_Land1.ClickInfoState(););可以试试