تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كود run
#1
الأخوة الكرام خبراء vb.net
السلام عليكم ورحمة الله وبركاتة
هذا الكود يقوم بتشغيل أمر من أوامر run
ولكنة يظهر نافذة الدوس وهذا ما لا أرغب فبة
Shell("cmd.exe /c regedit")
فكيف يعمل الكود بدون إظهار نافذة الدوس
وشكرا
تقبلوا تحياتي : طنطاوى أحمد أمين
صاحب ومدير موقع برامج طنطاوى
http://www.tantawysoft.com
بريد الموقع : admin@tantawysoft.com
tantawyamen@gmail.com
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم
أرجو إغلاق الموضوع ، الحمد لله تم حل المشكلة بنجاح
تقبلوا تحياتي : طنطاوى أحمد أمين
صاحب ومدير موقع برامج طنطاوى
http://www.tantawysoft.com
بريد الموقع : admin@tantawysoft.com
tantawyamen@gmail.com
الرد }}}}
تم الشكر بواسطة: سعود
#3
والله ظليت ابحث عن الطريقة بالانجليزي والعربي مالقيت.
لكن الحمدلله مادام انك حصلت على الطريقة.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#4
شاكر أهتمامك جدا
تقبلوا تحياتي : طنطاوى أحمد أمين
صاحب ومدير موقع برامج طنطاوى
http://www.tantawysoft.com
بريد الموقع : admin@tantawysoft.com
tantawyamen@gmail.com
الرد }}}}
تم الشكر بواسطة:
#5
ياريت الاستاذ طنطاوى توضح الطريقة بحيث نستفيد منها
الرد }}}}
تم الشكر بواسطة:
#6
هذا مثال لعمل واجه 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
الرد }}}}
تم الشكر بواسطة: khodor1985


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم