Tekil Mesaj gösterimi
CETQ
CETQ - ait Kullanıcı Resmi (Avatar)
Uzman Üye
Üyelik tarihi:
02/2011
Mesajlar:
1.297
Konular:
165
Teşekkür (Etti):
Teşekkür (Aldı):
Ticaret:
(0) %
10-08-2013 00:41
#10
Alıntı:
l2onaldo´isimli üyeden Alıntı Mesajı göster
Mesela List1.deki herhangi bir item metin2.exe ise msg box ile hata verdirmesini istiyorum
exe çalışıp çalışmadığını kontrol edeceksen listbox ile uğraşma

Dim objWMIService, colProcesses

Set objWMIService = GetObject("winmgmts:")

Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process where name='metin2.exe'")

If colProcesses.Count Then

MsgBox "Çalışıyo" ' Çalışıyosa verilecek hata

Else

MsgBox "Çalışmıyo" ' Çalışmıyosa verilecek hata

End If

#################################################

listbox la yapıcam dersen

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
List1.ListIndex = i
If List1.Text = "metin2.exe" Then
MsgBox " your item has been founded" & i, vbInformation + vbOKOnly, "founded" ' metin2.exe listboxda var ise verilecek mesaj
Exit Sub
End If
Next i
MsgBox " Not founded" ' metin2.exe listboxda yok ise verilecek mesaj
End Sub
Konu CETQ tarafından (10-08-2013 00:46 Saat 00:46 ) değiştirilmiştir.