+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] عرض برنامج داخل اخر (/showthread.php?tid=26461)
عرض برنامج داخل اخر - DK-x - 12-09-18
مرحبا
عندي برنامج .exe ومحتاج اعرضه داخل برنامجي كييف
توضيح:
[attachment=19454]
عندي برنامج .exe ومحتاج اعرضه داخل برنامجي كييف
توضيح:
RE: عرض برنامج داخل اخر - elgokr - 12-09-18
مرحباً اخى DK-x
لاتمام عمل ذلك عليك اتمام التالى
قم باضافة Panel و Button
ثم قم باستخدام الكود التالى داخل الفورم كاملاً
كود :
Imports System.Threading
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
Dim proc As Process
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
proc = Process.Start("notepad")
proc.WaitForInputIdle()
Thread.Sleep(1000)
SetParent(proc.MainWindowHandle, Me.Panel1.Handle)
Thread.Sleep(1000)
SendMessage(proc.MainWindowHandle, WM_SYSCOMMAND, SC_MAXIMIZE, 0)
End Sub
End Classمرفق السورس + برنامج للاختبار
السورس (2015)
كل ما عليك فقط تغيير كلمة notepad
بمسار البرنامج المطلوب تشغيله داخل البرنامج مثلPHP كود :
D:\Folder\File.exe
تحياتى لك
وتمنياتى لك التوفيق
RE: عرض برنامج داخل اخر - DK-x - 12-09-18
جزيل الشكر لك اخي elgokr 
وممكن رابط نسخة الفيجوال بيسك الي تستخدمها
وممكن رابط نسخة الفيجوال بيسك الي تستخدمها
RE: عرض برنامج داخل اخر - elgokr - 12-09-18
الشكر لله
استخدم النسخة 2015
يمكنك الاطلاع على الرابط التالى قد ييدك
تحياتى لك
وتمنياتى لك التوفيق