تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعديل هذا الكود
#1
كود :
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 تظهر
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

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


****
***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#3
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
الرد }}}}
تم الشكر بواسطة:
#4
لا تحتاج تضيفها للـ
class بل في الـ Form
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#5
kslawy كتب :لا تحتاج تضيفها للـ
class بل في الـ Form

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 1 76 أمس, 06:53 PM
آخر رد: رمضان محمد
  [VB.NET] برجاء المساعدة فى تعديل هذا الكود (htmlDocument.DocumentNode.SelectNodes) الماجيك مسعد 16 256 أمس, 05:21 PM
آخر رد: alma2
  [VB.NET] كيف اوضع ProgressBar في هذا الكود e-coder 0 54 23-05-17, 07:43 PM
آخر رد: e-coder
  [VB.NET] احتاج تعديل الكود يخص تشغيل Button حسب user domin hglogtd 4 107 22-05-17, 09:25 AM
آخر رد: hglogtd
  [VB.NET] اريد وضع مؤقت بدون تايمر داخل هذا الكود + المشروع بالكامل e-coder 0 52 19-05-17, 04:09 PM
آخر رد: e-coder
  منع تعديل التاريخ والوقت ريم النهاري 7 151 18-05-17, 09:28 AM
آخر رد: ريم النهاري
  [VB.NET] كيف اضع وقت في هذا الكود e-coder 4 133 18-05-17, 08:07 AM
آخر رد: e-coder
  اين الخطا في هذا الكود rabeh.ram 18 470 16-05-17, 10:48 PM
آخر رد: rabeh.ram
  [مشروع] ممكن تعديل علي المشروع دموع الوطن 12 208 15-05-17, 09:29 AM
آخر رد: دموع الوطن
  [كود] طلب الكود للتاريخ الميلادي كتابياُ باسم الشهر الميلادي . محمد مسافر 2 81 11-05-17, 12:42 AM
آخر رد: محمد مسافر

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم