[sherf]

استدعاء اى برنامج داخل الفورم الرئيسيه للبرنامج مثل برنامج اخر أو أدوات الكمبيوتر الآلة الحاسبة

[asemshahen5]

هذا كود تشغيل الالة الحاسبة :

PHP كود :

Process.Start("calc") 


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

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

[sherf]

(15-11-19, 10:37 AM)asemshahen5 كتب : هذا كود تشغيل الالة الحاسبة :

PHP كود :

Process.Start("calc") 


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

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

---

داخل الفورم وليس فى الخارج وشكر ا

[alshandodi]

إذا فتحت ملف خارجي مثل الحاسبه وبرنامجي يشتغل فوق كل البرامج كيف يمكن إظهار الحاسبه في الإمام وفي mdi

[عبد العزيز البسكري]

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

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

كود :

SendToBack()

[alshandodi]

اسعد الله صباحك
أخي عبدالعزيز نجح الكود ولكن هناك مشكله
عندما اعمل SendToBack يفتح كل الملفات ويعود دائما في الخلف
ساقوم بعمل مثال..

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

[alshandodi]

Up........

[alsalamoni]

(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]

شكرا جزيلا اخي ساجرب الكود فيما بعد

[alsalamoni]

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

العفو اخي