[محمود صالح]

سلام عليكم 
اريد ان اعمل 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

[أشرف كريم 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

[محمود صالح]

(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

اخي الف شكر 
ظبط والحمد الله 
بارك الله فيك