ÓйØÓÚVBµÄÎÊÌâ - VB / Êý¾Ý¿â(°üº¬´òÓ¡£¬°²×°£¬±¨±í)
ÎÒÒª×öÒ»¸ö½øÏú´æµÄÈí¼þ µ«ÊÇ µÚÒ»¸öÄÑÌâÊÇÔõôÉèÖÃȨÏÞÄØ ±ÈÈ糬¼¶¹ÜÀíÔ±½øÈëµÄ»°¾Í¿ÉÒÔ½øÐÐËùÓвÙ×÷µ«ÊÇÆÕͨ¹ÜÀí
Ô±½øÈ¥µÄ»° Ö»ÄܽøÐÐһЩС²Ù×÷ Ëû²Ù×÷µÄ»°¾Í»áÌáÐÑËû ÄúÎÞȨ²Ù×÷Õâ ¸ö ÔõôʵÏÖÄØ
Êý¾Ý¿âÖеÄÈËÔ±¹ÜÀí±í¼Ó¸ö±ê־룬Èç¡°1¡±±íʾ³¬¼¶¹ÜÀíÔ±£¬¡°0¡±±íʾÆÕͨ¹ÜÀíÔ±µÈ£¬È»ºóÔÚ³ÌÐòÖнøÐÐÅжÏÇø·Ö¹¦ÄÜ¡£
ÉèÖÃÒ»¸öÈ«¾Ö+1Â¥µÄ¡£
ÓÃÒ»¸öÓû§±íºÍ¹¦Äܱí¾Í¿ÉÒÔʵÏÖÁË¡£
if Óû§="³¬¼¶Óû§" then
´°Ìå»ò²Ëµ¥.Enabled=true
else Óû§="ÆÕͨÓû§" then
²¿·Ö´°Ìå»ò²Ëµ¥.Enabled=false
enidf
½¨Á¢Óû§È¨ÏÞ¼ÓÃÜ±í£¬ÔÚ³ÌÐòÖиù¾ÝȨÏÞ¸øÓÚ²»Í¬µÄ²Ù×÷¹¦ÄÜ¡£
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
ÎÒÏëÓÃVB×öÒ»¸öOCX£¨´¿²ËÄñ£¬ÁÙʱÐèÒªÓÃVB×öµã¶«Î÷£¬ÌØÀ´Çë½Ì£©£¬AÓû§£¨IP£º192.168.0.1£©ÓëBÓû§£¨IP£º192.168.0.2£©½øÐеã¶ÔµãµÄ·¢ËͽÓÊÕÏûÏ¢
ÒªÇó²ÉÓÃOCX·½Ê½£¬±ÈÈçAÓû§ÖªµÀBÓû§IP£¬ÎÒÖ±½Ó´«²Î£¨BµÄIP£©ÖÁOCX ......
СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
objExlApp.Charts.Add
objExlApp.ActiveChart.ChartType = xlLine
objExlApp.ActiveChart.HasLegend = True
objExlApp. ......