تقييم الموضوع :
  • 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 ) ضيف كريم