منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تعديل هذا الكود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تعديل هذا الكود (/showthread.php?tid=7636)

تعديل هذا الكود - مبتدئ - 13-02-13

كود :
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 تظهر

تعديل هذا الكود - kslawy - 13-02-13

السلام عليكم ورحمة الله وبركاته

كود :
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


****
***
**
*

تعديل هذا الكود - مبتدئ - 13-02-13

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 - 13-02-13

لا تحتاج تضيفها للـ
class بل في الـ Form


تعديل هذا الكود - مبتدئ - 14-02-13

kslawy كتب :لا تحتاج تضيفها للـ
class بل في الـ Form

شكرآ اخى لاكن لم يمل الى اذا ظهر الفروم انا اريده تظهر ك dll وى ندى استدعاء dll من برنامج اخر لو وجد IDman مفتوح form2 تظهر