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

VB¶ÁÈ¡TXTÎļþµ½TEXT1ÀïÃ棬TEXT1ºóÃæ³öÏÖ¿Õ¸ñ

Private Sub Command1_Click()
Open App.Path & "\°æ±¾ËµÃ÷.txt" For append As #1
Print #1, Text1.Text
Close #1 '¹Ø±Õ´ò¿ªµÄÎļþ
End Sub

Private Sub Form_Load()
Dim x As String
Open App.Path & "\1.txt" For Input As #1
Input #1, x
text1.Text = Input(LOF(1), 1)
Close #1
End Sub

COMMAND1±£´æºó´ò¿ª³ÌÐò¶ÁÈ¡1.TXTµ½TEXT1 ºóÃæ³öÏÖÁË¿Õ¸ñ±ÈÈç123456ºóÃæ¿ÕÁ˼¸¸ñ£¬ÇëÎÊÔõô²»ÈúóÃæÕ⼸¸ñ¿Õ¸ñÏÔʾµ½TEXT1ÀïÃæ°¡£¿


Ïû³ý´ÓÎı¾ÎļþÖжÁÈ¡ºóµÄ»Ø³µ·û
¡¡¡¡strLine = Replace(strLine, vbTab, "")    ½«tab·ûÌæ»»³É""
    strLine = Replace(strLine, Chr(0), "")    ½«ÐнáÊø·ûÌæ»»³É""
    strLine = Replace(strlINE, vbCrLf, vbNullString)


text1.Text = RTrim(Input(LOF(1), 1))

×îºóµÄ×Ö·û²»ÊÇ¿Õ¸ñ£¬Êǻسµ»»Ðзû,1Â¥µÄ·½·¨¾ÍÐÐ

лл````


Ïà¹ØÎÊ´ð£º

VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØеijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

vb´òÓ¡

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

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

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

´ÓVBתÐÐVB.NET~~~¿ªÊ¼µÄʱºòÈçºÎѧ»ù´¡ÈëÃÅ°¡~

VBżѧµÃ²»´í£¬ÏÖÔÚ´óÒ»£¬¸ßÈýµÄʱºò¾ÍѧVBÁË£¬ÏÖÔÚѧУÀﶼÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£
żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣
Select¡¢If½á¹¹¡¢For NextÑ­»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......

ÊìϤVBµÄ½øÀ´£¬ÓÐÏîÄ¿


ÓÐûÓк¼ÖݵÄÅóÓÑ£¬ÊìϤVBµÄ£¬ÓÐÐËȤ×öµÄ»°ÁôÏÂÁªÏµ·½Ê½
VB6 OR VB.NET?
¿Éϧ²»ÔÚº¼ÖÝ,遠³Ì¿É·ñ?

ÐǪ̈ÁªÏµ·½Ê½ÄØ

ÎÒÒ²ÁªÏµÒ»Ï£¬²»¹ýÔÚÄþ²¨

¿ÉϧÎÒÒ²²»ÔÚº¼ÖÝ

±±¾©µÄÐв»£¿

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