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Â¥µÄ·½·¨¾ÍÐÐ
лл````
Ïà¹ØÎÊ´ð£º
±ÈÈç½ø³Ì¼ÓÔØеijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
ÒªÓÃvb´òÓ¡Ò»ÌõÏߣ¬³¤¶ÈÊÇ100ºÁÃ×Ôõôд£¿
¹Ø×¢
VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)
Printer.ScaleMode = vbMillimeters
Print ......
VBżѧµÃ²»´í£¬ÏÖÔÚ´óÒ»£¬¸ßÈýµÄʱºò¾ÍѧVBÁË£¬ÏÖÔÚѧУÀﶼÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£
żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣
Select¡¢If½á¹¹¡¢For NextÑ»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......
ÓÐûÓк¼ÖݵÄÅóÓÑ£¬ÊìϤVBµÄ£¬ÓÐÐËȤ×öµÄ»°ÁôÏÂÁªÏµ·½Ê½
VB6 OR VB.NET?
¿Éϧ²»ÔÚº¼ÖÝ,遠³Ì¿É·ñ?
ÐǪ̈ÁªÏµ·½Ê½ÄØ
ÎÒÒ²ÁªÏµÒ»Ï£¬²»¹ýÔÚÄþ²¨
¿ÉϧÎÒÒ²²»ÔÚº¼ÖÝ
±±¾©µÄÐв»£¿
ÎÒÔÚËÕÖÝ£¬ ......