[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

   

[خالد كامل1]

(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

احسنت اخى انس