看了这个代码大家就知道了 Private Sub Form_Load() Dim s As String, nl As String * 2 Timer1.Enabled = False Text1 = Timer1.Interval ss = "" nl = Chr$(13) & Chr(10) Open App.Path & "\test.txt" For Input As #1 While Not EOF(1) Line Input #1, s ss = ss & s & nl Wend Close #1 End Sub这个是要我指定这个txt 文件 我想把这个文件整进去,或是用什么方法 我想生成一个exe文件
不可能,就算TXT文件被嵌入exe,但你有读取外部文件的语句: Open App.Path & "\test.txt" For Input As #1 也会出错的。 如真能读取的话,象access数据库嵌入exe,那是教安全的,但不可能实现(因为连接字符串要指定路径)。
是要指定txt文件才可以打上去字的我想不用这个txt文件,或是把这个文件做成一个模块
这样我就可以生成一个exe文件了啊
Private Sub Form_Load()
Dim s As String, nl As String * 2
Timer1.Enabled = False
Text1 = Timer1.Interval
ss = ""
nl = Chr$(13) & Chr(10)
Open App.Path & "\test.txt" For Input As #1
While Not EOF(1)
Line Input #1, s
ss = ss & s & nl
Wend
Close #1
End Sub这个是要我指定这个txt 文件 我想把这个文件整进去,或是用什么方法
我想生成一个exe文件
Open App.Path & "\test.txt" For Input As #1
也会出错的。
如真能读取的话,象access数据库嵌入exe,那是教安全的,但不可能实现(因为连接字符串要指定路径)。