有没有做VB的程序啊?有急事请教

woaini

请斑竹手下留情!!!我的联系方式QQ:68119968,一直在线

wjght13 - 老村长

毕竟好几年没有弄过了！

woaini

顶起来,谁比较熟悉啊,关于应用程序日志的

bio

唉,找人帮忙也把需求写的详细一些么,就这么一个泛泛的东西,难道LZ还希望别人直接来一句" 这个我会"么?

woaini

我做了个系统,现在想做一个日志,可以记录没次登陆的id,操作,时间

woaini

晚上兄弟多,顶一下

rabbittony

没有debug,仅供思路参考

Public Function WriteLog(LogMsg As String)
    Dim logPath As String

    fileNamePrefix = format(Date, "yyyymmdd") + ".log"
    Open logPath + fileNamePrefix For Append As #1
    Print #1, format(Time, "hh:mm:ss") + ": " + LogMsg
    Close #1

End Function

woaini

给rabbittony兄弟送花!!!谢谢兄弟,我试一下,没弄过这东西

appxp

1.Start Microsoft Visual Basic. Open a new ActiveX DLL project. This will add Class1 to the new project.
2.Change the Name property of Class1 to "Logging" .
3.From the Project menu, click Project1 Properties.
4.Change the Name of the Project to "AppMessages".
5.Add the following code to the Logging class:
      Public Enum eLogModes
          mLogAuto = 0
          mLogOff = 1
          mLogToFile = 2
          mLogToNT = 3
          mLogOverwrite = &H10
          mLogThreadID = &H20
      End Enum

      Public Sub StartLog(logTarget As String, logMode As eLogModes)
          App.StartLogging logTarget, logMode

      End Sub

      Public Sub AddLogEvent(LogBuffer As String, EventType As _
      LogEventTypeConstants)
          App.LogEvent LogBuffer, EventType
      End Sub
6.From the File menu, click Make AppMessage.DLL


7.From the File menu, click New project. Click Yes to Save the AppMessage source code for later use.
Select Standard EXE. Click OK.
From the Project menu, click References.
Turn on the reference to "AppMessages." Click OK.

To Form1, add the following code:
       Private Sub Form_Load()
           Dim t As New AppMessages.Logging
           t.StartLog "C:\TEMP\Test.log", mLogToFile
           t.AddLogEvent "Form Loaded", vbLogEventTypeInformation
           Set t = Nothing
       End Sub
8.From the Run menu, click Start. A new file "Test.log" will be created and placed into the C:\TEMP folder. This file will contain the information:

"Information Application C:\TEMP\Test.log: Thread ID: -316429 ,Logged: Form Loaded"

[ Last edited by appxp on 2005-5-29 at 07:51 ]