تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ممكن كود استدعاء اى برنامج داخل الفورم الرئيسيه
#1
استدعاء اى برنامج داخل الفورم الرئيسيه للبرنامج مثل برنامج اخر أو أدوات الكمبيوتر الآلة الحاسبة
الرد
تم الشكر بواسطة:
#2
هذا كود تشغيل الالة الحاسبة :

PHP كود :
Process.Start("calc"

calc : هو اسم برنامج الالة الحاسبة .

Process.Start : تشغيل عملية .
الرد
#3
(15-11-19, 10:37 AM)asemshahen5 كتب : هذا كود تشغيل الالة الحاسبة :

PHP كود :
Process.Start("calc"

calc : هو اسم برنامج الالة الحاسبة .

Process.Start : تشغيل عملية .

داخل الفورم وليس فى الخارج وشكر ا
الرد
تم الشكر بواسطة: asemshahen5
#4
إذا فتحت ملف خارجي مثل الحاسبه وبرنامجي يشتغل فوق كل البرامج كيف يمكن إظهار الحاسبه في الإمام وفي mdi
الرد
تم الشكر بواسطة: asemshahen5
#5
(24-02-20, 02:47 PM)alshandodi كتب : إذا فتحت ملف خارجي مثل الحاسبه وبرنامجي يشتغل فوق كل البرامج كيف يمكن إظهار الحاسبه في الإمام وفي mdi

جرّب أخي الشندودي وضع هذه العبارة قبل أمر الإستدعاء ..
كود :
SendToBack()

الرد
تم الشكر بواسطة: asemshahen5
#6
اسعد الله صباحك
أخي عبدالعزيز نجح الكود ولكن هناك مشكله
عندما اعمل SendToBack يفتح كل الملفات ويعود دائما في الخلف
ساقوم بعمل مثال..

- اريد لا يكون شي امامه سوى البرنامج الذي اقوم بفتحه
- وعندما اقوم بغلق البرنامج يغلق كل شي فتحته 
ولك جزيل الشكر والتقدير وكل اعضاء المنتدى الرائع


الملفات المرفقة
.zip   WindowsApplication17.zip (الحجم : 83.3 ك ب / التحميلات : 19)
الرد
تم الشكر بواسطة: asemshahen5
#7
Up........
الرد
تم الشكر بواسطة: asemshahen5
#8
(25-02-20, 07:50 AM)alshandodi كتب : اسعد الله صباحك
أخي عبدالعزيز نجح الكود ولكن هناك مشكله
عندما اعمل SendToBack يفتح كل الملفات ويعود دائما في الخلف
ساقوم بعمل مثال..

- اريد لا يكون شي امامه سوى البرنامج الذي اقوم بفتحه
- وعندما اقوم بغلق البرنامج يغلق كل شي فتحته 
ولك جزيل الشكر والتقدير وكل اعضاء المنتدى الرائع

يجب ان تحتفظ بال id الخاص بالحاسبة ليتم اغلاقها عند اغلاق البرنامج

هذا تعديل لعله يفيدك
كود :
Public Class Form1
   Private Sub فاتورةجديدهToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles فاتورةجديدهToolStripMenuItem.Click
       If Application.OpenForms.Cast(Of Form).OfType(Of Form2)().Count = 0 Then
           Dim frm As New Form2
           frm.MdiParent = Me
           frm.Show()
       Else
           Application.OpenForms.Cast(Of Form).OfType(Of Form2)()(0).WindowState = FormWindowState.Normal
           Application.OpenForms.Cast(Of Form).OfType(Of Form2)()(0).Activate()
       End If
   End Sub
   Private Sub بالجانبToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles بالجانبToolStripMenuItem.Click
       Me.LayoutMdi(MdiLayout.TileVertical)
   End Sub
   Private Sub بالتقسيمToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles بالتقسيمToolStripMenuItem.Click
       Me.LayoutMdi(MdiLayout.TileHorizontal)
   End Sub

   Private Sub تتاليToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles تتاليToolStripMenuItem.Click
       Me.LayoutMdi(MdiLayout.Cascade)
   End Sub

   Private Sub إغلاقالكلToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles إغلاقالكلToolStripMenuItem.Click
       For Each ChildForm As Form In Me.MdiChildren
           ChildForm.Close()
       Next
   End Sub


   '---------------------------------
   Dim prs As New List(Of Integer)

   Private Sub الحاسبةToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles الحاسبةToolStripMenuItem.Click
       SendToBack()
       Dim id As Integer = Process.Start("calc").Id
       prs.Add(id)
   End Sub
   Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
       For Each id As Integer In prs
           Dim processes = Process.GetProcesses
           For Each p As Process In processes
               If p.Id = id Then p.Kill()
           Next
       Next
   End Sub
   '---------------------------------


   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       SetWindowPos(Handle, HWND_TOPMOST, Left / 15, Top / 15, Width / 15, Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE)
   End Sub
End Class

الافضل ان تعمل فورم عبارة عن الة حاسبة خاص بك بشكل يخدم العمل على البرنامج

الة حاسبة بسيطة سورس كود مع الشرح بالفيديو للكود
الرد
تم الشكر بواسطة: alshandodi , asemshahen5
#9
شكرا جزيلا اخي ساجرب الكود فيما بعد
الرد
تم الشكر بواسطة: asemshahen5 , asemshahen5
#10
(28-02-20, 08:11 PM)alshandodi كتب : شكرا جزيلا اخي ساجرب الكود فيما بعد

العفو اخي
الرد
تم الشكر بواسطة: asemshahen5



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


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