منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : طلب كود
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
انا اعمل غلى موديول مرتبط مع اثنين فورم 
المطلوب اريد كود يعيد او يرجع اسم الفورم الحالية من الموديول
مثال
لدي فورم اسمه تعديل وفورم اخر اسمه اضافة وموديل اسمه ماي موديول 
اريد ضمن الموديول كود يصل الى اسم الفورم الحالية
هذه دالة تصلح ببإستخدام مع أي كونترول و تصلح مع الفورم أيضا

PHP كود :
  Public Function GetWindowText(hwnd As IntPtr) As String
        If hwnd 
<> IntPtr.Zero Then
            Dim ctrl 
As Control TryCast(Control.FromHandle(hwnd), Control)
 
           Return ctrl.Invoke(New Func(Of String)(Function() ctrl.Text))
 
       End If
 
       Return String.Empty
 
   End Function 
فقط مرر Handle الصحيح لها
مثال مع الفورم
PHP كود :
Dim s as String GetWindowText(Me.Handle