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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=39815)

فتح الفورم - محمود صالح - 28-10-21

سلام عليكم 
اريد ان اعمل public sub  لجملة  showdialog
بمعني بدل ما اكتب كل مرة 
Dim frm as new form1
 frm.showdialog()

Sub عام مثلا استدعيه show_(form1)
انا عملت sub ده بس بيجبلي form جديد

Public sub skow_(ss as form)
Dim frm as new form
Frm.showdialog
End sub

RE: فتح الفورم - أشرف كريم 2 - 28-10-21

(28-10-21, 09:20 PM)محمود صالح كتب : سلام عليكم 
اريد ان اعمل public sub  لجملة  showdialog
بمعني بدل ما اكتب كل مرة 
Dim frm as new form1
 frm.showdialog()

Sub عام مثلا استدعيه show_(form1)
انا عملت sub ده بس بيجبلي form جديد

Public sub skow_(ss as form)
Dim frm as new form
Frm.showdialog
End sub

جرب هذا الكود
كود :
Public sub skow_(ss as form)
Dim n=ss.tostring.substring(0,ss.tostring.indexof(","))
Dim frm as form=activator.createinstance(type.gettype(n))
Frm.showdialog
End sub


RE: فتح الفورم - محمود صالح - 29-10-21

(28-10-21, 11:57 PM)أشرف كريم 2 كتب :
(28-10-21, 09:20 PM)محمود صالح كتب : سلام عليكم 
اريد ان اعمل public sub  لجملة  showdialog
بمعني بدل ما اكتب كل مرة 
Dim frm as new form1
 frm.showdialog()

Sub عام مثلا استدعيه show_(form1)
انا عملت sub ده بس بيجبلي form جديد

Public sub skow_(ss as form)
Dim frm as new form
Frm.showdialog
End sub

جرب هذا الكود
كود :
Public sub skow_(ss as form)
Dim n=ss.tostring.substring(0,ss.tostring.indexof(","))
Dim frm as form=activator.createinstance(type.gettype(n))
Frm.showdialog
End sub
اخي الف شكر 
ظبط والحمد الله 
بارك الله فيك