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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 600 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
Photo [VB.NET] مشكلة في شكل الفورم abuyazan 5 293 27-02-24, 09:38 PM
آخر رد: aljzazy
Sad ممكن حل لهذا المشكل melad2002 0 240 30-01-24, 08:01 PM
آخر رد: melad2002
  [VB.NET] مشكلة ظهور textbox بعد حذفه من الفورم مبرمج صغير 1 1 221 27-01-24, 02:04 AM
آخر رد: مبرمج صغير 1
  ممكن استفسار عن m3u8 malekmohamed155 0 232 20-01-24, 07:47 PM
آخر رد: malekmohamed155
  [VB.NET] استدعاء بيانات في TextBox بناء على combobox loay775 2 264 18-01-24, 05:07 PM
آخر رد: loay775
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 275 18-01-24, 05:04 PM
آخر رد: loay775
  [VB.NET] كيف يمكنني استظافة سوفت وير برنامج ادارة جهاز السي بي سي في المختبر الى برنامجي الحزين اليماني 2 282 15-01-24, 10:39 PM
آخر رد: الحزين اليماني
  [VB.NET] إعادة استدعاء البيانات من قاعدة بيانات اكسس والاهم الصورة مبرمج صغير 1 1 273 13-01-24, 01:17 PM
آخر رد: مبرمج صغير 1

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


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