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Â¥µÄ·½·¨¾ÍÐÐ
лл````
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿Ø¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓƵ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..
Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......
±ÈÈç˵ҪÔÚ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
......