vb moduleÄ£¿éÖе͍ÒåÎÊÌâ - VB / »ù´¡Àà
¾ÍÊÇÎÒÔÚÔËÐгÌÐòµÄʱºò£¬²éÕÒµÄʱºò°É£¬´ÓÁíÒ»¸ö´°¿Ú´«»ØÀ´Ò»¸öÖµ£¬È»ºó½øÐÐÐ޸ģ¬ÔËÓõÄÊÇÄ£¿éÖеıäÁ¿£¬µ«ÊÇûЧ¹û£¬ÎÒûÓÐÏêϸµØÑ§¹ýÄ£¿éÖÐÈçºÎ¶¨ÒåµÄ£¬²âÊÔ¹ýÁ˺ÃÏñÓ¦¸Ã¾ÍÊÇÊý¾Ýû´«¹ýÀ´ÎÒÊÇÕâÑù¶¨ÒåµÄpublic a as variant£¬Ð»Ð»´ó¼ÒÁË~
¿´ÆðÀ´Ã»ÎÊÌâ°¡£¬LZµ÷ÊÔһϴúÂ룬¿´¿´ÄãÔÚ¸ø¹«ÓñäÁ¿¸³ÖµµÄʱºòÊÇ·ñÕý³££¬ÎÒÏëÎÊÌâ¿ÉÄܳöÔÚ¸³ÖµÉÏÃæ
{{
Ïà¹ØÎÊ´ð£º
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
ÓÐÁ½¸öÎÊÌâ
µÚÒ»¸öÎÊÌ⣺
ÍøÒ³Ô´Âë
<td><select name="question" onchange="showcustomquest(this.value)" tabindex="4"><option value="0">ÎÞ°²È«ÎÊ ......