flexÓÐûÓÐÀàËÆvbµÄ¿Ø¼þÊý×飿
½çÃæÉÏÓкܶàtextinput¿Ø¼þ£¬Óкܶàbutton¿Ø¼þ£¬Îª±ãÓÚÉ趨ÊôÐԺ͸³Öµ£¬ÓÐûÓÐÀàËÆ¿Ø¼þÊý×éµÄ¶«Î÷¿ÉÒÔÅúÁ¿µÃ½øÐвÙ×÷£¿
ÀýÈ磺 txtCtrl1 ......txtCtrl20,button1......button20ÕâÑùµÄ
»¹ÓÐÈç¹û´Óºǫ́Êý¾Ý¿â¶ÁÈëÊý¾Ýºó£¬¸ù¾ÝÊý¾ÝµÄ¸öÊý×Ô¶¯Ñ»·½¨Á¢¿Ø¼þ£¬ÕâÑùµÄ·½·¨Ôõô×ö£¿
ÊôÐԺ͸³Öµ ¿ÉÒÔÕâÑù.
Éè¼ÆÊ±,ÏÈÉ趨ºÃÒ»¸ö, È»ºócopy¿Ø¼þ,
¸ù¾ÝÊý¾ÝµÄ¸öÊý×Ô¶¯Ñ»·½¨Á¢¿Ø¼þ
Ò²ÊÇ¿ÉÒÔµÄ, Ö»ÊÇÒ³ÃæµÄ²¼¾Ö²»Ì«ºÃ¿ØÖÆ.
for(i){
var a"+i+":Button=new Button();
aa"+i+".label="XX";
//ÕâÀïÒ²¿ÉÒÔ¶Ô²¼¾Ö½øÐÐÉèÖÃ, x=ddd,y=33;
ÈÝÆ÷.addChild(aa"+i+");
}
Â¥ÉÏ£¬copy·½·¨¿ÉÐУ¬ÖÁÓÚÑ»·Ö¸¶¨£¬¸öÈ˸оõ²»ºÃ
±ÈÈç˵ÔÚÉè¼ÆÄ£Ê½Ï½¨Á¢ÁËһЩbutton¿Ø¼þ£¬ÔÚ´úÂëÖÐ×Ô¶¯Éú³ÉÈçÏ£º
XML code:
<mx:Button x="256" y="3" label="ÏÔʾ1" color="#000000" fillAlphas="[1.0, 1.0]" fillColors="[#C3DCEF, #5FB6F9]" fontWeight="normal" id="btn1"/>
...
...
¹²ÓÐ10¸ö°´Å¥£¬id´Óbtn1µ½btn10
È»ºóÎÒ½¨Á¢Ò»¸öÊý×é
private var arrBtnItem:Array = new Array();
ͨ¹ýʲô·½·¨¿ÉÒÔ°ÑÕâЩbtn·Åµ½Êý×éÀïÄØ£¿Èç¹û¿ÉÒÔ£¬ÄÇÎÒÖ»Òª²Ù×÷ÕâЩÊý×飨ÒÔË÷ÒýºÅ´ú±í¾ßÌåµÄÄĸö°´Å¥£©¾Í¿ÉÒÔ²Ù×÷ÕâЩ°´Å¥ÁËѽ...... <
Ïà¹ØÎÊ´ð£º
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......