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

Çë½ÌvbÖÐÔõô°´¸ñʽÊä³öÊý×é

vbÖУ¬°´
1£¬2£¬3£¬4£¬...
2£¬3£¬4£¬56£¬...
5£¬6£¬7£¬8£¬...
¡£¡£¡£

ÕâÑùµÄ¸ñʽ¶ÁÈëÁËÊý×飬ÏÖÔÚÏë°ÑÊýÖµ°´Ô­À´µÄÅÅÁз½Ê½Êä³öµ½csvÎļþÖÐ

Çë½ÌÓ¦¸ÃÔõô²Ù×÷£¬Ð»Ð»Äú°ïÖú
ÓÃSplitº¯Êý
±ÈÈçÒ»ÐÐÎı¾
Dim a As String
a="1,2,3,4,5,6,78,9"
Dim UU() As String
UU=Split(a,",")
ÕâÑù¾ÍÒÔ","Ϊ·Ö¸î·ûºÅ·Ö¸îµ½UUÊý×éÀïÁË,Èç
Msgbox "UU(0):" & UU(0)
½á¹ûÊÇ "UU(0):1"

Splitº¯ÊýÏêϸµÄÄã×Ðϸ¿´¿´MSDN°É

VB code:
Dim s$(3)
s(0) = "1": s(1) = "2": s(2) = "3": s(3) = "4"
MsgBox Join(s, ",")


ÔËÐнá¹û£º¡°1,2,3,4¡±
²»ÖªµÀÂ¥Ö÷ÊÇ·ñÕâ¸öÒâ˼£¿

лл¥ÉÏÁ½Î»£¬
ÎÒûÓн²ÊöÇå³þÒâ˼¡£

ÎÒÒѾ­ÓÐÁËÕâÑùÒ»¸öÊý×飬
ÏÖÔÚÏë°ÑËüÔ­ÑùÊä³öÀ´¡£
¼ÙÈçÒѾ­ÓÐÁËÕâÑùµÄÊý×é
array£¨x£¬y£©

ÎÒÒªÍêÕûÊä³öÕâ¸öÊý×éµ½Ò»¸öÎļþ£¬
ÅųÉx+1ÐУ¬y+1ÁУ¬×Ô¶¯ÓöººÅ·Ö¸î£¬±£´æÎªcsv»òÎı¾Îļþ¡£

ÔõôʵÏÖ£¿



ÊÔÊÔ¿´£¬²»ÖªµÀÊDz»ÊÇÂ¥Ö÷ÒªµÄ½á¹û
VB code:
Private Sub Command1_Click()
Dim s$(3, 2), ss$
For i = 0 To UBound(s)
For j = 0 To UBound(s, 2)


Ïà¹ØÎÊ´ð£º

¡¾¼±Çó¡¿VBÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

VB µÄ PictureBOX ¿Ø¼þ»æÍ¼ÎÊÌâ - VB / ¿Ø¼þ

³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ­½â¾ö¡£
  Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
  Picture1.Left = -HScroll1.Value + bcW ' ......

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½Ó - VB / »ù´¡Àà

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
  ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
  ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......

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


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

vb - VB / »ù´¡Àà

Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ

ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ