+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=22158)
طلب كود - hikmat - 18-10-17
انا اعمل غلى موديول مرتبط مع اثنين فورم
المطلوب اريد كود يعيد او يرجع اسم الفورم الحالية من الموديول
مثال
لدي فورم اسمه تعديل وفورم اخر اسمه اضافة وموديل اسمه ماي موديول
اريد ضمن الموديول كود يصل الى اسم الفورم الحالية
RE: طلب كود - silverlight - 18-10-17
هذه دالة تصلح ببإستخدام مع أي كونترول و تصلح مع الفورم أيضا
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
مثال مع الفورم
PHP كود :
Dim s as String = GetWindowText(Me.Handle)