LOG [英] LOG
问题描述
如何在Visual Basic中创建日志???
-
Frank R. Jr.
How can u create a log in visual basic???
--
Frank R. Jr.
推荐答案
2004年9月2日星期四16:37:50 -0500，Frank R. Jr.写道：
On Thu, 2 Sep 2004 16:37:50 -0500, Frank R. Jr. wrote:
如何在视觉中创建日志basic ???
How can u create a log in visual basic???
Public Sub appLog（logItem as String）
n％= FreeFile
打开应用程序。路径& " \" &安培; App.EXEName& "&名为.log QUOT;输出为n％
打印n％，CStr（现在）& " " &安培; logItem
关闭n％
结束Sub
-
auric下划线在hotmail dot下划线com
*****
我们打算改变一个国家，而是改变一个世界。
- 罗纳德里根
Public Sub appLog (logItem as String)
n%=FreeFile
Open App.Path & "\" & App.EXEName & ".log" For Output As n%
Print n%, CStr(Now) & " " & logItem
Close n%
End Sub
--
auric underscore underscore at hotmail dot com
*****
We meant to change a nation, and instead we changed a world.
-- Ronald Reagan
对如何使其工作感到困惑我尝试输入代码并不是很好我
意味着它不会运行测试porgram
私有子表单加载（logitem为字符串）
n％= FreeFile
打开App.Path& " \" &安培; App.aim.exe& "&名为.log QUOT;输出为n％
打印n％，CStr（现在）& " " &安培; logItem
关闭n％
结束子
我做的是这里有什么问题吗？
"金的__" <无********* @ email.address>在消息中写道
news：tl ******************************** @ 4ax.com ...
confused on how to make it work i tried enter the code in did not well i
mean it wouldnt run the test porgram
Private subform Load (logitem as string)
n%=FreeFile
Open App.Path & "\" & App.aim.exe & ".log" For Output As n%
Print n%, CStr(Now) & " " & logItem
Close n%
End Sub
Is what i did is there something wrong here ?
"Auric__" <no*********@email.address> wrote in message
news:tl********************************@4ax.com...
2004年9月2日星期四16:37:50 -0500，Frank R. Jr.写道：
On Thu, 2 Sep 2004 16:37:50 -0500, Frank R. Jr. wrote:
你怎么能创建一个日志在visual basic ???
How can u create a log in visual basic???
Public Sub appLog（logItem as String）
n％= FreeFile
打开App.Path& " \" &安培; App.EXEName& "&名为.log QUOT;输出为n％
打印n％，CStr（现在）& " " &安培; logItem
关闭n％
结束子
-
在a hotic下划线下划线hotmail dot
*****
我们的意思改变一个国家，相反，我们改变了一个世界。
- 罗纳德里根
Public Sub appLog (logItem as String)
n%=FreeFile
Open App.Path & "\" & App.EXEName & ".log" For Output As n%
Print n%, CStr(Now) & " " & logItem
Close n%
End Sub
--
auric underscore underscore at hotmail dot com
*****
We meant to change a nation, and instead we changed a world.
-- Ronald Reagan
>" Auric __" <无********* @ email.address>在消息中写道
>"Auric__" <no*********@email.address> wrote in message
news：tl ******************************** @ 4ax.com ..
news:tl********************************@4ax.com.. .
2004年9月2日星期四16:37:50 -0500，Frank R. Jr.写道：
On Thu, 2 Sep 2004 16:37:50 -0500, Frank R. Jr. wrote:
你怎么能创建一个日志在Visual Basic中???
Public Sub appLog（logItem as String）
n％= FreeFile
打开App.Path& " \" &安培; App.EXEName& "&名为.log QUOT;输出为n％
打印n％，CStr（现在）& " " &安培; logItem
关闭n％
End Sub
How can u create a log in visual basic???
Public Sub appLog (logItem as String)
n%=FreeFile
Open App.Path & "\" & App.EXEName & ".log" For Output As n%
Print n%, CStr(Now) & " " & logItem
Close n%
End Sub
周五，2004年9月3日17:18:42 -0500，Frank R .Jr.写道：
混淆了如何让它工作我尝试输入代码并不好我意味着它不会运行测试porgram
私有子表单负载（logitem作为字符串）
n％= FreeFile
打开App.Path& " \" &安培; App.aim.exe& "&名为.log QUOT;输出为n％
打印n％，CStr（现在）& " " &安培; logItem
关闭n％
结束Sub
我做的是这里有什么不对吗？
On Fri, 3 Sep 2004 17:18:42 -0500, Frank R. Jr. wrote:
confused on how to make it work i tried enter the code in did not well i
mean it wouldnt run the test porgram
Private subform Load (logitem as string)
n%=FreeFile
Open App.Path & "\" & App.aim.exe & ".log" For Output As n%
Print n%, CStr(Now) & " " & logItem
Close n%
End Sub
Is what i did is there something wrong here ?
不要顶 - 发布。
我的代码将是它自己的程序 - 不要把它放到Form_Load中。尝试
这样的事情：
Private Sub Form_Load（）''注意Form_Load的外观 - 你做错了......
appLog"这里是您输入要记录的内容的对象。
End Sub
Public Sub appLog（logItem as String）
n％= FreeFile
打开App.Path& " \" &安培; App.EXEName& "&名为.log QUOT;输出为n％
打印n％，CStr（现在）& " " &安培; logItem
关闭n％
结束Sub
-
auric下划线在hotmail dot下划线com
*****
现在，有一些新消息。
Don''t top-post.
My code would be its own procedure - don''t put it into Form_Load. Try
something like this:
Private Sub Form_Load () ''note how Form_Load looks - you did it wrong...
appLog "Here is where you enter what you want logged."
End Sub
Public Sub appLog (logItem as String)
n%=FreeFile
Open App.Path & "\" & App.EXEName & ".log" For Output As n%
Print n%, CStr(Now) & " " & logItem
Close n%
End Sub
--
auric underscore underscore at hotmail dot com
*****
And now, some new news.
这篇关于LOG的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
