Bildergalerie +++ Ereignisse +++ Spiele +++ Tipps & Tricks

'aktuelle Bildschrimauflösung zeigen Private Sub Form_Load() MsgBox CStr(Screen.Width \ Screen.TwipsPerPixelX) & " x " & CStr(Screen.Height \ Screen.TwipsPerPixelY) End Sub ...  [mehr]

'ein Timer und 2 Labels erstellen Private Type POINTAPI x As Long y As Long End Type Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Dim MousePosition As POINTAPI Private Sub Form_Load() Timer1.Interval = 10 End Sub Private Sub Timer...  [mehr]

'alle Datumsangaben einer Datei lesen Private Sub FileInfo(sFile As String) Dim vFso As Variant Dim vRet As Variant Set vFso = CreateObject("Scripting.FileSystemObject") Set vRet = vFso.GetFile(sFile) MsgBox "letzte Bearbeitung: " & Format(vRet.Dat...  [mehr]

'ein CommandButton und Listbox erstellen Public Function Drucker(lst As Object) As Boolean Dim x As Long Dim Zaehler As Long Zaehler = Printers.Count If Zaehler = 0 Then lst.AddItem "Kein Drucker installiert" Else For x = 0 To Zaehler - 1 lst.AddI...  [mehr]

Private Sub UnloadForms() Dim F As Form For Each F In Forms Unload F Set F = Nothing Next F End End Sub ...  [mehr]

'ein CommandButton und Listbox erstellen Public Function alleSchriften(lst As Object) As Boolean Dim x As Long Dim Zaehler As Long Zaehler = Screen.FontCount For x = 0 To Zaehler - 1 lst.AddItem Screen.Fonts(x) Next End Function Private Sub Command1_Click() alleSchri...  [mehr]

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Private Function UserName() As String Dim strBuffer As String Dim lRet As Long strBuffer = Space$(255) lRet = GetUserName(s...  [mehr]

Private Declare Function LockWorkStation Lib "user32.dll" () As Long Private Sub Form_Load() LockWorkStation End Sub ...  [mehr]

Function ReadFile(ByRef Path As String) As String Dim FileNr As Long On Error Resume Next If FileLen(Path) = 0 Then Exit Function On Error GoTo 0 FileNr = FreeFile Open Path For Binary As #FileNr ReadFile = Space$(LOF(FileNr)) Get #FileNr, , ReadFile Close #FileNr End...  [mehr]

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Private Function ComputerName() As String Dim strBuffer As String Dim lRet As Long strBuffer = Space$(255) lRet = GetComp...  [mehr]