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

ÓйØÓÚVBµÄÎÊÌâ - VB / Êý¾Ý¿â(°üº¬´òÓ¡£¬°²×°£¬±¨±í)

ÎÒÒª×öÒ»¸ö½øÏú´æµÄÈí¼þ µ«ÊÇ µÚÒ»¸öÄÑÌâÊÇÔõôÉèÖÃȨÏÞÄØ ±ÈÈ糬¼¶¹ÜÀíÔ±½øÈëµÄ»°¾Í¿ÉÒÔ½øÐÐËùÓвÙ×÷µ«ÊÇÆÕͨ¹ÜÀí


Ô±½øÈ¥µÄ»° Ö»ÄܽøÐÐһЩС²Ù×÷ Ëû²Ù×÷µÄ»°¾Í»áÌáÐÑËû ÄúÎÞȨ²Ù×÷Õâ ¸ö ÔõôʵÏÖÄØ
Êý¾Ý¿âÖеÄÈËÔ±¹ÜÀí±í¼Ó¸ö±ê־룬Èç¡°1¡±±íʾ³¬¼¶¹ÜÀíÔ±£¬¡°0¡±±íʾÆÕͨ¹ÜÀíÔ±µÈ£¬È»ºóÔÚ³ÌÐòÖнøÐÐÅжÏÇø·Ö¹¦ÄÜ¡£

ÉèÖÃÒ»¸öÈ«¾Ö+1Â¥µÄ¡£

ÓÃÒ»¸öÓû§±íºÍ¹¦Äܱí¾Í¿ÉÒÔʵÏÖÁË¡£

if Óû§="³¬¼¶Óû§" then
  ´°Ìå»ò²Ëµ¥.Enabled=true
else Óû§="ÆÕͨÓû§" then
  ²¿·Ö´°Ìå»ò²Ëµ¥.Enabled=false

enidf


½¨Á¢Óû§È¨ÏÞ¼ÓÃÜ±í£¬ÔÚ³ÌÐòÖиù¾ÝȨÏÞ¸øÓÚ²»Í¬µÄ²Ù×÷¹¦ÄÜ¡£


Ïà¹ØÎÊ´ð£º

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......

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

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

VBÏÂOCX¿É·ñʵÏÖÈçϹ¦ÄÜ£¿ - VB / ÍøÂç±à³Ì

ÎÒÏëÓÃVB×öÒ»¸öOCX£¨´¿²ËÄñ£¬ÁÙʱÐèÒªÓÃVB×öµã¶«Î÷£¬ÌØÀ´Çë½Ì£©£¬AÓû§£¨IP£º192.168.0.1£©ÓëBÓû§£¨IP£º192.168.0.2£©½øÐеã¶ÔµãµÄ·¢ËͽÓÊÕÏûÏ¢
ÒªÇó²ÉÓÃOCX·½Ê½£¬±ÈÈçAÓû§ÖªµÀBÓû§IP£¬ÎÒÖ±½Ó´«²Î£¨BµÄIP£©ÖÁOCX ......

VBµ÷ÓÃEXCEL»æÍ¼£¬ÈçºÎÐÞ¸ÄXÖá×ø±ê - VB / »ù´¡Àà

СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
  objExlApp.Charts.Add
  objExlApp.ActiveChart.ChartType = xlLine
  objExlApp.ActiveChart.HasLegend = True
  objExlApp. ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ