منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] مساعده كود فتح ملف exe داخل form - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] مساعده كود فتح ملف exe داخل form (/showthread.php?tid=11510)

مساعده كود فتح ملف exe داخل form - الدريساوي - 22-02-15

السلام عليكم 

كيف فتح  ملف تنفيذي exe داخل form 
مثلا هذا فتح البرنامج من المسار خارج form اريد داخل form

Process.Start("C:\Program Files\Deskshare\Security Monitor Pro 5.exe")

RE: مساعده كود فتح ملف exe داخل form - sv25b858 - 23-02-15


هل تقصد :

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Form2.Show()

    End Sub

RE: مساعده كود فتح ملف exe داخل form - الدريساوي - 23-02-15

(23-02-15, 12:05 AM)ameerah كتب : هل المقصود مثل هذا المثال
vb.net Launch application inside a form


كود :
Public Class Form1

   Declare Auto Function SetParent Lib "user32.dll" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As Integer
   Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
   Private Const WM_SYSCOMMAND As Integer = 274
   Private Const SC_MAXIMIZE As Integer = 61488

   Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
       Dim proc As Process
       proc = Process.Start("C:\Windows\system32\notepad.exe")
       proc.WaitForInputIdle()
       SetParent(proc.MainWindowHandle, Me.Handle)
       SendMessage(proc.MainWindowHandle, WM_SYSCOMMAND, SC_MAXIMIZE, 0)
       Me.BringToFront()
   End Sub

End Class

احسنت جزاك الله خيراٌ هذا المطلوب  Big Grin