VB-Programm starten

Code: PHP

Public Sub Logging(strLogText)

Dim fso As FileSystemObject
Dim file As TextStream
Dim dtFileDate As String
Dim strFileName As String
Dim strTime As String

Set fso = New FileSystemObject

strFileName = "mylogfile.txt"

If (fso.FileExists(strFileName)) Then
   Set file = fso.OpenTextFile(strFileName, ForAppending)
Else
   Set file = fso.CreateTextFile(strFileName, False)
End If

strTime = Format(Now(), "hh:mm:ss AMPM")

file.WriteLine strTime & " // " & strLogText

Set file = Nothing
Set fso = Nothing

End Sub

Zitat von jayjay

Ja, meine ich, wie mach ich das mit API-Call, was is so besonderes an API-Call, und wie verwend ich das

Code:

Option Explicit 

Private Const SWP_NOMOVE = 2 
Private Const SWP_NOSIZE = 1 
Private Const HWND_TOPMOST = -1 
Private Const HWND_NOTOPMOST = -2 
Private Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE 

Private Declare Function SetWindowPos Lib "user32" _ 
      (ByVal hWnd As Long, _ 
      ByVal hWndInsertAfter As Long, _ 
      ByVal x As Long, _ 
      ByVal y As Long, _ 
      ByVal cx As Long, _ 
      ByVal cy As Long, _ 
      ByVal wFlags As Long) As Long 


Public Function SetTopMostWindow(hWnd As Long, Topmost As Boolean) As Long 
    ' Function sets a window as always on top, or turns this off 
      
    ' hwnd - handle the the window to affect 
    ' Topmost - do you want it always on top or not 
     
   On Error GoTo ErrHandler 
     
   If Topmost = True Then 'Make the window topmost 
      SetTopMostWindow = SetWindowPos(hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS) 
   Else 
      SetTopMostWindow = SetWindowPos(hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS) 
      'SetTopMostWindow = SetWindowPos(hWnd, HWND_TOP, 0, 0, 0, 0, FLAGS) 
      SetTopMostWindow = False 
   End If 
      
    Exit Function 
ErrHandler: 
    Select Case Err.Number 
        Case Else 
            Err.Raise Err.Number, Err.Source & "+modAPIStuff/SetTopMostWindow", Err.Description 
    End Select 
End Function 

Private Sub Form_Load() 
    SetTopMostWindow Me.hWnd, True 
End Sub