شغل اي برنامج في جهازك بوضعه في textbox

السلام عليكم ورحمة الله وبركاته

سوف نتعلم في هذا الدرس البسيط كيف نتعامل مع المتغيرات ونشغل اي برنامج بواسطه textbox

وزر command

افتح مشروع جديد

ضع اداة textbox وداة command

الان انقر نقرتين على command واكتب الاكواد التالييه

Private Sub Command1_Click()
Dim booo7 As String
booo7 = Text1.Text
Shell booo7
End Sub

الان مجردان تضع مسار برنامج في txetbox سوف ينفتح البرنامج عندما تضغط على زر كومند

لان العمليه وبكل بساطه

عرفنا المتغير booo7

ثم قلنا ان المتغير booo7 = Text1.Text

ثم قلنا shell booo7

اي معناه قم بتشغيل اي برنامج في text1.text

طيب عند تنفيذ البرنامج البسيط كيف تسير الامور في المتغير

لنفرض انك وضعت مسار برنامج كاسبر لفتحه

C:\Program Files\Kaspersky Lab\Kaspersky Anti-Virus Personal\kav.exe

هكذا سوف تصبح شفرات البرنامج بعد تشغيل البرنامج

Private Sub Command1_Click()
Dim booo7 As String
booo7 = Text1.Text
Shell C:\Program Files\Kaspersky Lab\Kaspersky Anti-Virus Personal\kav.exe
End Sub

اتمنى ان الصورة وضحت كما ينبغي

وبالتوفيق :lol: