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

vb 6.0 string ÔõôʵÏÖ +=²Ù×÷£¿

ÈçÌâ
·Ö²½
VB code:
Dim a
Dim b
a = a + 1
a = a + b
'»òÕß
'a = a + 1 + b



Ŷ,ÊÇstringÀàÐÍ,×ßÑÛÁË¡£¡£¡£


ºÃÏñûÓÐ+=ÕâÑùµÄ²Ù×÷·û°É£¬
Ö»ÄÜÊÇ
dim str1 as string , str2 as string
str1 = "**" str2 = "**"
str1 = str1 + str2

VB²»Ö§³ÖÕâ¸öÔËÐзû
Ö»ÄÜÕâÑù£ºstrOne=strOne +strTwo
»òÕߣºstrOne=strOne & strTwo
ÍÆ¼öºóÕߣ¬ÒòΪǰÕßÐèÒªÖØÔØ¡£

¾Ù¸öÀý×Ó:
VB code:
Private Sub Command3_Click()
Dim a As String, i As Long
Dim b(10) As String
b(0) = ""
b(1) = "hehe"
b(2) = ""
b(3) = "heihei"
b(4) = "lala"

For i = 0 To 10
a = a & IIf(a = "", IIf(b(i) = "", "", b(i)), IIf(b(i) = "", "", "," & b(i)))
Next
Debug.Print a
End Sub


ÔÙÎÊÒ»¸ö

    Set Fs_Start_Cmd_tcl = CreateObject("Scripting.FileSystemObject")
    Set F_Start_Cmd_tcl = Fs_Start_Cmd_tcl.OpenTextFile(F3, ForWriting, True, 0)

³ÌÐòÌáʾOpenTextFile ûÓиú¯Êý»ò¹ý³Ì£¬ÎªÊ²Ã´°¡£¿

c = a & b


Ïà¹ØÎÊ´ð£º

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ

²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.

ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......

vb´òÓ¡

ÒªÓÃvb´òÓ¡Ò»ÌõÏߣ¬³¤¶ÈÊÇ100ºÁÃ×Ôõôд£¿
¹Ø×¢

VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)

    Printer.ScaleMode = vbMillimeters
    Print ......

VB ÔõôÄÜÌá¸ßÎı¾ÎļþµÄÑ­»·ËÙ¶È

ÌâÄ¿ÃèÊöÓ¦¸Ã²»ÊǺÜ׼ȷ¡£
ÏÖ×´ÊÇ£º¼ÙÈçÒ»¸öÎı¾Îļþ¹²100ÐУ¬ÄÇôÎÒÑ­»·´ÎÊý×î´ó¾ÍÊÇ100×100=10000Ï£¬»¨·Ñʱ¼ä·Ç³£¶à£¬ÇëÎÊÓÐûÓа취Äܹ»Ìá¸ß¶ÔÎı¾ÎļþµÄÑ­»··ÃÎÊËÙ¶È¡£·ÇÊý¾Ý¿â¼¼Êõ¡£
ÄãҪѭ»·×öʲô£ ......

ÇëÎÊVBµ÷COMµÄÎÊÌâ

ÎÒÓÃC#дÁËÒ»¸öCOM¡£

ÆäËûÓУ²¸öÀ࣬һ¸öÀà¾ÍÊÇÆÕͨ·½·¨¡£µ÷ÓÃûÎÊÌâ¡£

ÁíÒ»¸öÀàÊÇÓû§¿Ø¼þ¡£ÎÒÔÚVBÖÐÈçºÎ°ÑÄǸö¿Ø¼þÏÔʾ³öÀ´£¿


VBµ÷COMÖУ¬COM ÊǸö¿Ø¼þ¡£

лл¸ßÊÖÖ¸µã¡£

......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ