VBÊÇÓïÑÔÂ𣿻¹ÊÇÀà¿â£¿
¾³£Ìý±ðÈË˵VBÓïÑÔʲôµÄ£¬ÎÒ¾ÍÓôÃÆÁËΪʲôVBÊÇÓïÑÔ£¿
ΪʲôVB×ö½çÃæ¾ÍÄÇôÇáËÉ£¿Ö±½Ó¡®ÍÏ¡¯¾Í×öºÃ½çÃæÁË¡£
¿ÉC/C++ÄØ¡£Èç¹û²»ÓÃÀà¿âµÄ»°×ö¸ö½çÃæ»¹ÒªÐ´ºÃ¶à´úÂ룬³ý·ÇÓÃMFCµÈÀà¿âÖ±½Ó¡®ÍÏ¡¯¾Í¸ã¶¨ÁË¡£
ËùÒÔÎÒ¸öÈ˾õµÃVB²»ÊÇÓïÑÔ£¬VBÊǺÍMFCÒ»Ñù ÊÇÒ»ÖÖÀà¿â¡£
ÎÒµÄÀí½â¶Ô²»£¿
·â×°µÄ³ÌÐò²»Í¬Ôì³ÉµÄÊӽDz»Í¬
´ò´í,ÊÇ
·â×°µÄ³Ì¶È²»Í¬Ôì³ÉµÄÊӽDz»Í¬
ÊÇÓïÑÔ.
basicÊÇÓïÑÔ
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË
Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......