منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
هل من طريقه لوضع صوره فى الفورم الرئيسي midparint - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : هل من طريقه لوضع صوره فى الفورم الرئيسي midparint (/showthread.php?tid=35978)

الصفحات: 1 2


RE: هل من طريقه لوضع صوره فى الفورم الرئيسي midparint - Anas Mahmoud - 05-08-20

عندي فكرة مجنونة شوية 

ممكن بالكود في حدث اللود للفورم الرئيسي نعمل فورم جديد نحط فيه picturebox ونخليه يبقى تابع للفورم الرئيسي ونعمله enable=false وبالتالي هيفضل ورا دايما

وعشان هو فورم فعلا هيترسم هو وكل اللي فيه طبيعي ورا الباقيين ونبقى حققنا غرضنا ، ونقدر بعد كده نتحكم في البيكتشر بوكس ، لاننا هنكون معرفينه للبرنامج كله

كود :
   Dim Pic As PictureBox
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       'كود اضافة فورم الصورة الى الفورم الرئيسي
       '======================================================================================
       Pic = New PictureBox
       Pic.SizeMode = PictureBoxSizeMode.Zoom
       Pic.Dock = DockStyle.Fill

       Dim PicForm As New Form
       PicForm.FormBorderStyle = FormBorderStyle.None
       PicForm.ShowInTaskbar = False
       PicForm.Enabled = False
       AddHandler PicForm.Load, Sub(s, ev) PicForm.Dock = DockStyle.Fill
       PicForm.Controls.Add(Pic)
       PicForm.MdiParent = Me
       PicForm.Show()
       '======================================================================================

       Pic.Image = My.Resources.blue_circle 'اسناد صورة الخلفية
   End Sub

ولما نحب نغير الصورة بسهولة جدا :

كود :
   Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
       'تغيير الصورة بسهولة
       Pic.Image = My.Resources.black_circle
   End Sub



[attachment=25380]


RE: هل من طريقه لوضع صوره فى الفورم الرئيسي midparint - خالد كامل1 - 05-08-20

(05-08-20, 03:27 AM)Anas Mahmoud كتب : عندي فكرة مجنونة شوية 

ممكن بالكود في حدث اللود للفورم الرئيسي نعمل فورم جديد نحط فيه picturebox ونخليه يبقى تابع للفورم الرئيسي ونعمله enable=false وبالتالي هيفضل ورا دايما

وعشان هو فورم فعلا هيترسم هو وكل اللي فيه طبيعي ورا الباقيين ونبقى حققنا غرضنا ، ونقدر بعد كده نتحكم في البيكتشر بوكس ، لاننا هنكون معرفينه للبرنامج كله

كود :
   Dim Pic As PictureBox
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       'كود اضافة فورم الصورة الى الفورم الرئيسي
       '======================================================================================
       Pic = New PictureBox
       Pic.SizeMode = PictureBoxSizeMode.Zoom
       Pic.Dock = DockStyle.Fill

       Dim PicForm As New Form
       PicForm.FormBorderStyle = FormBorderStyle.None
       PicForm.ShowInTaskbar = False
       PicForm.Enabled = False
       AddHandler PicForm.Load, Sub(s, ev) PicForm.Dock = DockStyle.Fill
       PicForm.Controls.Add(Pic)
       PicForm.MdiParent = Me
       PicForm.Show()
       '======================================================================================

       Pic.Image = My.Resources.blue_circle 'اسناد صورة الخلفية
   End Sub

ولما نحب نغير الصورة بسهولة جدا :

كود :
   Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
       'تغيير الصورة بسهولة
       Pic.Image = My.Resources.black_circle
   End Sub

احسنت اخى انس