ÈçºÎÓÃVB±àдPPPOE²¦ºÅ³ÌÐò?
ÔÚ°Ù¶ÈÉÏÒ²ÕÒÁËһЩ´úÂë,²âÊÔÖз¢ÏÖ,ÊÇÔÚϵͳÖд´½¨Ò»¸öPPPOE²¦ºÅ,È»ºóÔËÐÐ,µ¯³öÒ»¸öϵͳ×Ô´øµÄ²¦ºÅ´°¿Ú
¿É²»¿ÉÒÔ²»µ¯³öÕâ¸ö´°¿Ú??
Â¥ÉϵÄÄÜ·ñ¸ø¸öÍêÕûµÄ,Á½¸ö´úÂë±äÁ¿º¯Êý²»Í¬,ºË¶ÔÊ®·ÖÂé·³,µ÷ÊÔ×ÜÊÇ´íÎó
ѧϰÖÐ.................
ÒѾ½â¾ö.ÔÀ´ÊÇÄ£¿éÀï×Ô¶¨Ò庯Êý²»Í¬¿ÉÒÔ½â¾ö
UP UP UPUPUPUPUPUPUP
Ïà¹ØÎÊ´ð£º
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
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 ......