تقييم الموضوع :
  • 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 ك ب / التحميلات : 28)
الرد
تم الشكر بواسطة: 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال حول الكتابة داخل ريتش تيكست بوكس Lathe1 1 24 منذ 32 دقيقة مضت
آخر رد: ابراهيم ايبو
  [سؤال] مساعدة برنامج الصندوق المالي saqaf 2 126 , 04:10 AM
آخر رد: saqaf
  عدم القدرة على الحفظ داخل ملف MDF Owz 4 80 24-02-21, 06:27 PM
آخر رد: العتيق
  ممكن تحويل الكود من سي شارب لي فيجوال بيسك اليوم السابع 2 125 24-02-21, 05:57 PM
آخر رد: الماجيك مسعد
  ممكن التعديل في كود البحث المرفق أبووسم 0 44 24-02-21, 01:03 AM
آخر رد: أبووسم
  كيف يمكن تحديد ادخال البيانات داخل مربع النص بحروف فقط أبو عبدالله الحلواني 7 283 20-02-21, 04:40 PM
آخر رد: أبو عبدالله الحلواني
  ممكن كود عرض ال URL المفتوحه على متصفح جوجل كروم او فيرفوكس ahmed112001 1 94 17-02-21, 08:48 PM
آخر رد: Basil Abdallah
  هل ممكن أضع pdf في البرنامج نفسه..يقدر المستخدم يقرأه فقط عند فتح البرنامج؟ Alziny 2 122 16-02-21, 11:30 PM
آخر رد: Alziny
  [سؤال] كيف ممكن اعدل في Crystal Reports dubai.eig 2 115 16-02-21, 07:31 PM
آخر رد: dubai.eig
  [سؤال] ممكن مساعدة عاصم النجار 3 132 16-02-21, 01:00 AM
آخر رد: ابراهيم ايبو

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


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