كود :
Public Class Class1
Private objForm As Form1
Public Sub Show()
For Each selProcess As Process In Process.GetProcesses
If selProcess.ProcessName = "IDman" Then
Exit For
End If
Next
objForm = New Form1
objForm.Show()
End Sub
End Class
هذا الكود لى انذا وجد IDman مفتوح Form1 تظهر
السلام عليكم ورحمة الله وبركاته
كود :
Private objForm As Form
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Check_IDMan() = True Then
objForm = New Form
objForm.Show()
End If
End Sub
Private Function Check_IDMan() As Boolean
Try
Dim ProcessName As String = "IDMan"
Dim ProcessesCollection() As Process = Process.GetProcessesByName(ProcessName)
If ProcessesCollection.Count > 0 Then
Return True
Else
Return False
End If
Catch ex As Exception
Return False
End Try
End Function
****
***
**
*
kslawy كتب :السلام عليكم ورحمة الله وبركاته
كود :
Private objForm As Form
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Check_IDMan() = True Then
objForm = New Form
objForm.Show()
End If
End Sub
Private Function Check_IDMan() As Boolean
Try
Dim ProcessName As String = "IDMan"
Dim ProcessesCollection() As Process = Process.GetProcessesByName(ProcessName)
If ProcessesCollection.Count > 0 Then
Return True
Else
Return False
End If
Catch ex As Exception
Return False
End Try
End Function
****
***
**
*
جزاك الله خير اخى لاكن كيف اضافه
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
فى class
kslawy كتب :لا تحتاج تضيفها للـ class بل في الـ Form
شكرآ اخى لاكن لم يمل الى اذا ظهر الفروم انا اريده تظهر ك dll وى ندى استدعاء dll من برنامج اخر لو وجد IDman مفتوح form2 تظهر