تقييم الموضوع :
  • 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 تظهر
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب تعديل كود لاظهار الصور من السكانر f-www 8 1,035 22-02-17, 07:25 PM
آخر رد: عدنان الشمري
  [VB.NET] مشكلة نقل الكود من Form2 الي Form1 3asfa~mdmra 2 80 17-02-17, 02:44 AM
آخر رد: الماجيك مسعد
  توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها (تم ارفاق المشروع) اليوم مبتدئة وغداً محترفة 16 383 13-02-17, 07:43 AM
آخر رد: اليوم مبتدئة وغداً محترفة
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 60 12-02-17, 08:06 PM
آخر رد: مساعدة
  [VB.NET] تعديل ع كود اتصال 3asfa~mdmra 0 47 06-02-17, 06:51 PM
آخر رد: 3asfa~mdmra
Photo [VB.NET] مساعده في تعديل كود التنبيه قبل انتهاء التاريخ بفتره زمنيه.. Marwan9990 11 220 02-02-17, 06:12 PM
آخر رد: Marwan9990
  [سؤال] تعديل عدة سجلات ابو يوسف النواوي 2 8 163 30-01-17, 03:19 AM
آخر رد: ابو ليلى
  [VB.NET] تعديل بيسط على الكود ليصيح جاهزآ 3asfa~mdmra 0 79 27-01-17, 06:01 PM
آخر رد: 3asfa~mdmra
  [VB.NET] رجاء تصحيح الكود التالي dubai.eig 4 119 25-01-17, 03:02 PM
آخر رد: مساعدة
  [VB.NET] ممكن حل مشكلة الكود MOSTAFA.KAMEL 1 181 22-01-17, 09:37 PM
آخر رد: MOSTAFA.KAMEL

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


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