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

نسخة كاملة : تعديل كود
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
كود :
Process.Start("chrome", "http://ar-ar.facebook.com/")
هذا الكود لفتح رابط من خلال متصفح كرووم موجود على بوتن رقم ١
كيف بقدر عدل هذا الكود ليفتح لي الرابط الذي اكتبه في تكست بوكس 1 ومن خلال المتصفح الذي اكتبه في تكست بوكس 2
ياريت المساعدة
يعني عاوز اكتب في تكست بوكس ١ اسم موقع
واكتب في تكست بوكس ٢. اسم المتصفح
لما اكبس عالبوتن بفتح الموقع من خلال المتصفح المكتوب بتكست بوكس ٢
(30-09-22, 01:14 AM)عماد سلمان منذر كتب : [ -> ]
كود :
Process.Start("chrome", "http://ar-ar.facebook.com/")
هذا الكود لفتح رابط من خلال متصفح كرووم موجود على بوتن رقم ١
كيف بقدر عدل هذا الكود ليفتح لي الرابط الذي اكتبه في تكست بوكس 1 ومن خلال المتصفح الذي اكتبه في تكست بوكس 2
ياريت المساعدة
يعني عاوز اكتب في تكست بوكس ١ اسم موقع
واكتب في تكست بوكس ٢. اسم المتصفح
لما اكبس عالبوتن بفتح الموقع من خلال المتصفح المكتوب بتكست بوكس ٢

السلام عليكم 
تفضل
كود :
       Dim url As String = TextBox1.Text
       Dim browser As String = TextBox2.Text
       Process.Start(browser, url)
كود :
Process.Start(TextBox2.Text.Trim, TextBox1.Text.Trim)
(01-10-22, 12:32 AM)anes كتب : [ -> ]
كود :
Process.Start(TextBox2.Text.Trim, TextBox1.Text.Trim)
لو سمحت اذا كان في خطأ بكتابة الرابط  او المتصفح 
ضمن التكست بوكس كبف بقدر ما انه البرنامج  يعطيني خطأ ويطيني رسالة لتصحيح الخطأ
(02-10-22, 08:22 AM)عماد سلمان منذر كتب : [ -> ]
(01-10-22, 12:32 AM)anes كتب : [ -> ]
كود :
Process.Start(TextBox2.Text.Trim, TextBox1.Text.Trim)
لو سمحت اذا كان في خطأ بكتابة الرابط  او المتصفح 
ضمن التكست بوكس كبف بقدر ما انه البرنامج  يعطيني خطأ ويطيني رسالة لتصحيح الخطأ

استخدم 
try
catch
(02-10-22, 08:44 AM)هاوي1995 كتب : [ -> ]
(02-10-22, 08:22 AM)عماد سلمان منذر كتب : [ -> ]
(01-10-22, 12:32 AM)anes كتب : [ -> ]
كود :
Process.Start(TextBox2.Text.Trim, TextBox1.Text.Trim)
لو سمحت اذا كان في خطأ بكتابة الرابط  او المتصفح 
ضمن التكست بوكس كبف بقدر ما انه البرنامج  يعطيني خطأ ويطيني رسالة لتصحيح الخطأ

استخدم 
try
catch
اذا ممكن التوضيح كيف يصبح الكود 
ماعم يضبط معي
Try
Process.Start(TextBox2.Text.Trim, TextBox1.Text.Trim)

Catch ex As Exception
MsgBox(ex.Message)

End Try

بهى الطريقه يقصد تسويه علاشان يعطيك سبب الخطى علاشان تقدر تعدل على خطاك .
(02-10-22, 11:47 AM)رضوان الجماعي كتب : [ -> ]Try
          Process.Start(TextBox2.Text.Trim, TextBox1.Text.Trim)

       Catch ex As Exception
           MsgBox(ex.Message)

       End Try

بهى الطريقه يقصد تسويه علاشان يعطيك سبب الخطى علاشان تقدر تعدل على خطاك .

 الآن انتبهت للاخ يقصد يريد معرفة الخطأ في في كتابة موقع وليس في الكود

اظن ان هذا امر مستحيل لان الشخص لا يعرف جميع دومينات المواقع في العالم.............. طلبه شبه مستحيل اعتقد والله اعلم

TextBox2.Text.Trim
ما معنى تريم ولماذا وضعت في الاخير
اعرف تريم وظيفتها للاقتصاص ما اعرف اذا لها وظيفة اخرى
(02-10-22, 12:49 PM)هاوي1995 كتب : [ -> ]
(02-10-22, 11:47 AM)رضوان الجماعي كتب : [ -> ]Try
          Process.Start(TextBox2.Text.Trim, TextBox1.Text.Trim)

       Catch ex As Exception
           MsgBox(ex.Message)

       End Try

بهى الطريقه يقصد تسويه علاشان يعطيك سبب الخطى علاشان تقدر تعدل على خطاك .

 الآن انتبهت للاخ يقصد يريد معرفة الخطأ في في كتابة موقع وليس في الكود

اظن ان هذا امر مستحيل لان الشخص لا يعرف جميع دومينات المواقع في العالم.............. طلبه شبه مستحيل اعتقد والله اعلم

TextBox2.Text.Trim
ما معنى تريم ولماذا وضعت في الاخير
اعرف تريم وظيفتها للاقتصاص ما اعرف اذا لها وظيفة اخرى

تستعمل لحذف المسافات مثلا 
hello how are you

تصبح
hellohowareyou
(02-10-22, 04:32 PM)trakktour كتب : [ -> ]
(02-10-22, 12:49 PM)هاوي1995 كتب : [ -> ] الآن انتبهت للاخ يقصد يريد معرفة الخطأ في في كتابة موقع وليس في الكود

اظن ان هذا امر مستحيل لان الشخص لا يعرف جميع دومينات المواقع في العالم.............. طلبه شبه مستحيل اعتقد والله اعلم

TextBox2.Text.Trim
ما معنى تريم ولماذا وضعت في الاخير
اعرف تريم وظيفتها للاقتصاص ما اعرف اذا لها وظيفة اخرى

تستعمل لحذف المسافات مثلا 
hello how are you

تصبح
hellohowareyou


للتصحيح : 
الوظيفة (Trim) تستخدم لحذف المسافات على جانبي العبارة قبل  و بعد   
وليست للمسافات التي بين كلمات أو مكونات العبارة النصية.
الصفحات : 1 2