/ Forside/ Teknologi / Udvikling / VB/Basic / Tip
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Find et program, og luk det.
Er bedømt af 3 brugere
Fra : niller
Vist : 606 gange

Dato : 17-12-00 12:45

Her er et tip om, hvordan du kan finde et bestemt program, og derefter lukke det.

Start med et module og tilføj :

-----------------------------------------------
Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Declare Function PostMessage Lib "user32" Alias _
"PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long

Public Const WM_CLOSE = &H10
-----------------------------------------------

Derefter kan du tilføje følgende til din form :

Private Sub Command1_Click()
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "Calculator")
Debug.Print winHwnd
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
If RetVal = 0 Then
MsgBox "Fejl : kan ikke lukke programmet."
End If
Else
MsgBox "Programmet er ikke åben."
End If
End Sub



 
 
Bedømmelse

Fra : PeterPirat


Dato : 20-04-01 09:26



Bedømmelse

Fra : katrin


Dato : 23-06-02 00:59



Bedømmelse

Fra : Rellom


Dato : 15-08-02 05:41



Du har følgende muligheder
Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.
Søg
Reklame
Statistik
Spørgsmål : 177551
Tips : 31968
Nyheder : 719565
Indlæg : 6408825
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste