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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : عندي مشكلة في برمجمة مشروع فيجول بيسك ياريت تساعدوني (/showthread.php?tid=37015)



عندي مشكلة في برمجمة مشروع فيجول بيسك ياريت تساعدوني - tareqhabib15 - 25-11-20

بدي اعمل مربع نص (text1) ,و زر  لما اضغط ع الزر يفتح الفورم اللي انا كاتبه في مربع النص ؟

مثال 
text1=form1 يفتح النموذج الاول
text1=form2 يفتح النموذج الثاني


RE: عندي مشكلة في برمجمة مشروع فيجول بيسك ياريت تساعدوني - sendbad100 - 28-11-20

السلام عليكم
يوجد موضوع مع مثال  اطلع عليه  قد يفيدك
انا لم اجربه ولم استخدمه سابقاً


مع اني افضل انك تستخدم الجمل الشرطية 
مثل 
PHP كود :
Private Sub Command1_Click()
 
 If 
Trim(Text1.Text) = "Form2" Then
        
        Form2
.Show
    
    ElseIf Trim
(Text1.Text) = "Form3" Then
        
        Form3
.Show
 
     
ElseIf Trim(Text1.Text) = "Form4" Then
     
        Form4
.Show
        
    ElseIf Trim
(Text1.Text) = "Form5" Then
   
        Form5
.Show
        
  End 
If
 
 
  

End Sub 
والافضل ان تستخدم  ComboBox   وتضع فيها كل الفورمات ويتم الاختيار منها
ان لم يكن لك استخدام اخر لما طلبته

وهذا قد يفيدك 
http://vb4arb.com/vb/showthread.php?tid=13573&pid=64587#pid64587


RE: عندي مشكلة في برمجمة مشروع فيجول بيسك ياريت تساعدوني - tareqhabib15 - 28-11-20

(28-11-20, 04:50 AM)sendbad100 كتب :
السلام عليكم
يوجد موضوع مع مثال  اطلع عليه  قد يفيدك
انا لم اجربه ولم استخدمه سابقاً


مع اني افضل انك تستخدم الجمل الشرطية 
مثل 




الف شكر و تقدير لك 
PHP كود :
Private Sub Command1_Click()
 
 If 
Trim(Text1.Text) = "Form2" Then
        
        Form2
.Show
    
    ElseIf Trim
(Text1.Text) = "Form3" Then
        
        Form3
.Show
 
     
ElseIf Trim(Text1.Text) = "Form4" Then
     
        Form4
.Show
        
    ElseIf Trim
(Text1.Text) = "Form5" Then
   
        Form5
.Show
        
  End 
If
 
 
  

End Sub 
والافضل ان تستخدم  ComboBox   وتضع فيها كل الفورمات ويتم الاختيار منها
ان لم يكن لك استخدام اخر لما طلبته

وهذا قد يفيدك 
http://vb4arb.com/vb/showthread.php?tid=13573&pid=64587#pid64587



RE: عندي مشكلة في برمجمة مشروع فيجول بيسك ياريت تساعدوني - tareqhabib15 - 28-11-20

(25-11-20, 02:30 PM)tareqhabib15 كتب : بدي اعمل مربع نص (text1) ,و زر  لما اضغط ع الزر يفتح الفورم اللي انا كاتبه في مربع النص ؟

مثال 
text1=form1 يفتح النموذج الاول
text1=form2 يفتح النموذج الثاني


الف شكر