InstallShieldÖÆ×÷VB°²×°°ü
ÎÒÓÃInstallShield 10.0ÖÆ×÷ÁËÒ»¸öVB°²×°°ü
ÎÊÌâÊÇ£º
ÔÚ±ðµÄ»ú×ÓÉϰ²×°ºó£¬ÔÚÔËÐгÌÐòµÄʱºò£¬ÌáʾdllÕÒ²»µ½£¬²»Äܵ÷Óá£
ÎÒÔÚÖÆ×÷°²×°°üµÄʱºò£¬½«exeÎļþ¡¢iniÎļþ¡¢Í¼Ðοؼþ£¨³ÌÐòÖÐÓõ½µÄ¶«Î÷¶¼¼Ó½øÈ¥ÁË£©£¬µ«ÊÇ»¹ÊÇ»á³öÏÖÉÏÃæµÄÎÊÌâ
Ï£Íû´óÏÀÃǰïÎÒ¿´¿´°É£¬ÎÊÌâ³öÔÚÄÄÀ°²×°°üµÈ×Å·¢¸ø¿Í»§ÄØ¡«£¡¶¼¼±ËÀÁË¡«£¡
dllÎļþÒ²¶¼¼Ó½øÈ¥ÁË¡«£¡¾ÍÊÇ»áÌáʾdll´íÎ󣬰ïæ¿´¿´°É£¬ºÜ¼±ÄØ¡«£¡
ÔõôûÈ˰ïæ°¡¡«£¡
ÎÒÒª½áÌùÁË£¬À´¸ö»Ø´ðÎÊÌâµÄÈË£¬²»¹ÜÕýÈ·£¬ÎÊÌâÎÒÒѽâ¾öÁË¡«£¡
ÎÊÌâÔç½â¾öÁË£¬¾ÍµÈÀ´¸öÈ˻شðÎÊÌâÄØ¡«£¡ÎҺýáÌù¡«£¡
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
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 ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
objExlApp.Charts.Add
objExlApp.ActiveChart.ChartType = xlLine
objExlApp.ActiveChart.HasLegend = True
objExlApp. ......