منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] كود run - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [VB.NET] كود run (/showthread.php?tid=760)

كود run - tantawy - 28-10-13

الأخوة الكرام خبراء vb.net
السلام عليكم ورحمة الله وبركاتة
هذا الكود يقوم بتشغيل أمر من أوامر run
ولكنة يظهر نافذة الدوس وهذا ما لا أرغب فبة
Shell("cmd.exe /c regedit")
فكيف يعمل الكود بدون إظهار نافذة الدوس
وشكرا

RE: كود run - tantawy - 29-10-13

السلام عليكم
أرجو إغلاق الموضوع ، الحمد لله تم حل المشكلة بنجاح

RE: كود run - سعود - 29-10-13

والله ظليت ابحث عن الطريقة بالانجليزي والعربي مالقيت.
لكن الحمدلله مادام انك حصلت على الطريقة.

RE: كود run - tantawy - 29-10-13

شاكر أهتمامك جدا

RE: كود run - ali.alfoly - 29-10-13

ياريت الاستاذ طنطاوى توضح الطريقة بحيث نستفيد منها

RE: كود run - abo_ramas - 06-09-15

هذا مثال لعمل واجه Run للاستخدام




تحميل الأداة  هناااااااااااااااااا

السورس

كود :
Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Try
           Diagnostics.Process.Start(ComboBox1.Text)
       Catch ex As Exception
           MsgBox(ex.Message & ". Please type correct name the project.", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, ComboBox1.Text)
       End Try
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Me.Close()
   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       Dim rs As MsgBoxResult
       OpenFileDialog1.Filter = "Program File|*.exe"
       OpenFileDialog1.Title = "Select the file to open."
       rs = OpenFileDialog1.ShowDialog
       If rs = MsgBoxResult.Ok Then
           ComboBox1.Text = OpenFileDialog1.FileName
       End If
   End Sub
End Class