Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VBÌîÐ´ÍøÒ³Îı¾Çø - VB / »ù´¡Àà

ÓÐÁ½¸öÎÊÌâ
µÚÒ»¸öÎÊÌ⣺
ÍøÒ³Ô´Âë
<td><select name="question" onchange="showcustomquest(this.value)" tabindex="4"><option value="0">ÎÞ°²È«ÎÊÌâ</option>
<option value="1">ÎÒ°Ö°ÖµÄÃû×ÖÊÇ</option>
<option value="2">ÎÒÂèÂèµÄÃû×ÖÊÇ</option>
<option value="3">ÎÒµÄСѧУÃû</option>
<option value="4">ÎÒµÄÖÐѧУÃû</option>
<option value="5">ÎÒ×îϲ»¶µÄÊé</option>
<option value="6">ÎÒ×îϲ»¶µÄ¸èÇú</option>
<option value="7">ÎÒ×îϲ»¶µÄµçÓ°</option>
<option value="8">ÎÒ×îϲ»¶µÄÑÕÉ«</option>
<option value="-1">×Ô¶¨ÒåÎÊÌâ</option></select>
<input id="customquest" style="display:none" name="customquest" class="input" size="17" tabindex="5" />
</td>
Õâ¸öÊÇÑéÖ¤µÄÏÂÀ­²Ëµ¥£¬µ«ÊÇËüÐèÒªµã»÷²ÅÄܽøÐÐÑ¡Ôñ¡£

µÚ¶þ¸öÎÊÌâ£ºÍøÒ³Ô´´úÂ룺
<INPUT type=hidden value=1 name=atc_autourl></DIV><TEXTAREA onkeydown=quickpost(event) style="WIDTH: 96%"name=atc_content rows=8></TEXTAREA> 
ËüµÄֵΪatc_content£¬ÕâÎı¾ÇøÒ²Òªµã»÷»÷»î²ÅÄÜдÈë¡£

µÚÒ»¸öÎÊÌâÎÒÏëÔÚComboÖÐʵÏÖÑ¡Ôñ£¬µÚ¶þ¸öÎÒÏëÔÚtextÎı¾¿òÖÐʵÏÖ×Ô¶¯Ìîд¡£¾ßÌå´úÂëÔõôд£¿±¾È˸ÕѧVB²»¾Ã£¬´


Ïà¹ØÎÊ´ð£º

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb¶ÁÈ¡xml - VB / »ù´¡Àà

ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xm ......

vb - VB / »ù´¡Àà

xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£

hÊÇxml¸ñʽµÄ×Ö·û´®

ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿

ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......

vb²Ù×÷excel - VB / »ù´¡Àà

ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
  A 3
  A 4
  B 6
  ... ......

vbÒì²½ÎÊÌâ - VB / »ù´¡Àà

ÏÖÔÚСµÜÔÚÓÃvb6.0±àд³ÌÐò£¬Óöµ½Òì²½µÄÎÊÌ⣬¾ßÌåÈçÏ£º
µã»÷°´Å¥Aʱ£¬µ÷ÓÃÍⲿµÄdll(C++)£¬´ËdllÊÇͬ²½·µ»ØÊý¾Ý¡£´ËʱÈç¹ûÔ¶³ÌδÏìÓ¦£¬ÎҵijÌÐò½çÃæ¾Í»á¿¨ËÀ¡£Òò´ËÎÒÏëµ½ÓÃtimerÀ´ÊµÏÖÒì²½ £¬µ«ÊDz»Çå³þ¾ßÌåµÄÊµÏ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ