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Â¥µÄ·½·¨¾ÍÐÐ
лл````
Ïà¹ØÎÊ´ð£º
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
ÔÚvbÕâ±à³ÌÀïËƺõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵ģ¬µ«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
......