nesQuick
Lt. Junior Grade
- Registriert
- Aug. 2007
- Beiträge
- 384
HI ich habe hier auf einer Homepage ein "Code" Frrakment gefunden, kannaber da ich 0 Ahnung von VB habe nichts damit anfangen.
ES geht darum das ich eine lösung suche alt + tab zu deaktivieren, das soll der code angeblich können am besten eine exe die ich mit div. Parametern aus einer Batch erraus aufrufen kann.
Quelle: http://www.vb-fun.de/cgi-bin/loadframe.pl?ID=vb/tipps/tip0035.shtml
Mit den Datein die dabei sind kann ich leider auch nix anfangen.
Hoffe ihr könnt mir weiterhelfen.
Dankeschön schonmal
nesQuick
ES geht darum das ich eine lösung suche alt + tab zu deaktivieren, das soll der code angeblich können am besten eine exe die ich mit div. Parametern aus einer Batch erraus aufrufen kann.
Code:
Option Explicit
Private Declare Function SystemParametersInfo Lib "user32" _
Alias "SystemParametersInfoA" (ByVal uAction As Long, _
ByVal uParam As Long, ByRef lpvParam As Any, _
ByVal fuWinIni As Long) As Long
Private Sub Command1_Click(index As Integer)
Dim Text As String
Text = "Die Tastenkombination >Alt + Tab< wurde "
Command1(0).Visible = Command1(0).Visible Xor -1
Select Case index
Case 1
Text = Text & "aktiviert."
AltTabTasteSchalten False
Case Else
Text = Text & "deaktiviert."
AltTabTasteSchalten True
End Select
Label1.Caption = Text
End Sub
Private Sub Command2_Click()
AltTabTasteSchalten False
Unload Me
End
End Sub
Private Sub AltTabTasteSchalten(Zustand As Boolean)
Dim vorher
SystemParametersInfo 97, Zustand, vorher, 0
End Sub
Quelle: http://www.vb-fun.de/cgi-bin/loadframe.pl?ID=vb/tipps/tip0035.shtml
Mit den Datein die dabei sind kann ich leider auch nix anfangen.
Hoffe ihr könnt mir weiterhelfen.
Dankeschön schonmal
nesQuick