vbÖÐÈçºÎËæ»úѡȡ³µÅƺŠ- VB / ¿Ø¼þ
¢ÙÒªÇóÓÃVisualBasic6.0ÌṩµÄϵͳº¯Êý¼°³£Óÿؼþ£¬½áºÏѧϰ¹ýµÄ³£ÓÃËã·¨Íê³ÉÉè¼Æ¡£
¢ÚÔÚÉè¼Æ³ÌÐòµÄ¹ý³ÌÖУ¬ÒªÇó»áʹÓð´Å¥(commandbutton)¡¢×éºÏÁбí¿ò(combo)£¬Îı¾¿ò(text)¡¢±êÇ©(label)¡¢¿ò¼Ü(frame)¡¢¸´Ñ¡¿ò(check)µÈ»ù±¾¿Ø¼þµÄÊôÐÔ¡¢·½·¨ºÍÏà¹ØÊ¼þ¡£
¢ÛÒªÇóÔÚ³ÌÐòÖÐÄܹ»Ëæ»úÉú³ÉÒ»¸öÊý×Ö×Ö·û´®¡£×Ö·û´®µÄ³¤¶È¡¢¶ÔijЩλµÄÌØÊâÒªÇ󣨱ØÐë¾ß±¸³¤¶ÈÉèÖá¢×îºóһλÊÇ·ñ¿ÉÒÔΪ¡°4¡±¡¢ÈÎһλÊÇ·ñ¿ÉÒÔΪ4¡¢¾üÓÃÅÆÕÕ¡¢¾¯ÓÃÅÆÕÕÕâЩ×î³£¼ûÒªÇ󣩿ÉÓÉÓû§ÉèÖã¬×îÖÕÉú³É·ûºÏÒªÇóµÄ»ú¶¯³µ³µÅƺÅÏÔʾ¸øÓû§¡£
¢ÜÒªÇóʹÓÃÑ»·Ëã·¨±£Ö¤Ã¿´Îµ¥»÷Ñ¡ºÅ°´Å¥±ØÄܲúÉúÒ»¸ö·ûºÏÒªÇóµÄºÅÂë¡£
Äãµ½µ×ÏëÎÊʲô£¿²»»áÊÇÉÏÃæµÄÈ«²»¶®°É£¿
Õâ¸öÈ˺ÃÏñûÓÐѧ¹ýVB¡£¢Ù¢ÚÍêÈ«ÊÇvb»ù´¡£¬Ò»¸ö³ÌÐòÐèÒªÕâô¶à¶«Î÷Âð£¿
ÕâÊǵÀ×÷ÒµÌâ
àÅ ÊǵÀ×÷ÒµÌ⣬¾ÍÊÇûɶ˼· £¡£¡
Ï£Íû´ó¼ÒÖ¸µ¼Ò»Ï £¬ÎÒ¸ÕѧVBû¶àÉÙÈÕ×Ó£¬»ù±¾ÉÏ»¹Ã»Õ¦ÈëÃÅÄØ£¡£¡
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then 'ASCIIÂëÖÐenter¼üֵΪ13£¬ÒâΪ°´ÁËenter¼ü
Combo1.AddItem Combo1.Text, 0 '½ÓÊÕÊäÈëµÄºÅÂë
Combo1.SelStart = 0 'ÉèÖÃÆðʼ×éºÏ¿òµÄλÖÃ
Combo1.SelLength = Len(Combo1.Text) 'ÉèÖÃ×éºÏ¿òµÄ³¤¶È
End If
If KeyAscii = 27 Then 'ASCIIÂëÖÐescape¼üֵΪ27
If Combo1.ListIndex <> -1 Then
Combo1.RemoveItem Combo1.ListIndex 'ÒÆÈ¥Ñ¡Ïî
End If
End If
End Sub
Private
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......
ÓÃVB±à³Ì¶ÁÈ¡¶ÌÐÅ,µÃµ½Ò»´ó¶Ñunicode±àÂë,Çë½ÌÈçºÎת»»³ÉÎı¾
ÀýÈç:¶ÁÈ¡¶ÌÐźó(»ªÎª900C»òTC35i),´®¿ÚµÃµ½ÈçÏÂÊý¾Ý:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......