Çë½Ì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)
Ïà¹ØÎÊ´ð£º
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not ......
µã»÷°´Å¥ºóµ¯³ö½ø¶ÈÌõ´°¿Ú£¬ÒªÔÚ30%µÄʱºòÍ£¶Ù1Ãë 40%Í£¶Ù2Ã룬Ȼºó×ßÍê½ø¶ÈÌõºóÌáʾ±£´æ³É¹¦£¡
ÇëÎÊÈçºÎд£¿
½ø¶ÈÌõÓÃÄǸöVB6×Ô´øµÄprogressbar¿Ø¼þ,¶¨Ê±ÓÃtimer
ÎÒÔÚ±¾Õ¾ÕÒÁËÕ⼸¸öÌû,¹À¼Æ¹»ÄãÓÃ
http://topic ......