[justforit]

الاستعجال و التركيز في اشياء اخرى ظنا مني ان السائل ربما يحتاجها لاحقا هذا هو سبب نقص  الحل اللتي اقدمها للاخوة

هذا اذا انا فهمت كل السؤال

مثلا بهذا المثال انظر للموديول كتبت اكواد تحريك الفورم عبر النقر على عناصر محددة مثل 

Panel Label PictureBox

كذل ك اضفت مؤقت يقرر متى يمكن ازرار الحفظ و الحذف للصورة بناءا على تواجد  رابط الصورة

يتم التعامل مع رابط الصورة و اسنادها الى 

ImageLocation الخاصية التابة لـ PictureBox1

 و هكذا

التالي اكواد الموديول:

PHP كود :

Module Module1
    Dim scw As Integer = Screen.PrimaryScreen.WorkingArea.Right
    Dim sch As Integer = Screen.PrimaryScreen.WorkingArea.Bottom
    Dim ax, ay As Integer, dr As Boolean

    Public myform As Form = Nothing

    Public picspath As String = IO.Path.GetDirectoryName(Application.ExecutablePath) & "\FolderImage\"
    Public Title_Logo As New IO.FileInfo(picspath & "My_Logo.jpg")
    Public picfolder As String = IO.Path.GetDirectoryName(Title_Logo.FullName)

    Public Sub rep(f As Form)
        If f.Left < 0 Then f.Left = 0
        If f.Top < 0 Then f.Top = 0
        If f.Right > scw Then f.Left = scw - f.Width
        If f.Bottom > sch Then f.Top = sch - f.Height
    End Sub
    Public Sub mdown(sender As Object, e As MouseEventArgs)
        If e.Button = MouseButtons.Left Then
            dr = True
            ax = sender.MousePosition.X - myform.Left
            ay = sender.MousePosition.Y - myform.Top
        End If
    End Sub
    Public Sub mmove(sender As Object, e As MouseEventArgs)
        If dr Then
            myform.Left = sender.MousePosition.X - ax
            myform.Top = sender.MousePosition.Y - ay
        End If
    End Sub
    Public Sub mup(sender As Object, e As MouseEventArgs)
        dr = False
        rep(myform)
    End Sub
    Public Sub mcontrols(f As Control)
        If TypeOf f Is Form Then
            AddHandler f.MouseDown, AddressOf mdown
            AddHandler f.MouseMove, AddressOf mmove
            AddHandler f.MouseUp, AddressOf mup
        End If
        For Each c As Control In f.Controls
            mcontrols(c)
            If TypeOf (c) Is Panel Or TypeOf (c) Is Label Or TypeOf (c) Is PictureBox Then
                AddHandler c.MouseDown, AddressOf mdown
                AddHandler c.MouseMove, AddressOf mmove
                AddHandler c.MouseUp, AddressOf mup
            End If
        Next
    End Sub

    Public Function Isimage(img As String) As Boolean
        Try
            Dim im As New Bitmap(img)
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function
End Module 


و التالي اكواد الفورم بشكل كامل:

PHP كود :

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        myform = Me
        mcontrols(myform)

        If Title_Logo.Exists = False Then
            Me.PictureBox1.Image = My.Resources.bgp1
        Else
            Me.PictureBox1.ImageLocation = Title_Logo.FullName
        End If
        If IO.Directory.Exists(picfolder) = False Then
            IO.Directory.CreateDirectory(picfolder)
        End If
    End Sub
    Private Sub Form1_Activated(sender As Object, e As EventArgs) Handles Me.Activated
        myform = Me
    End Sub
    Private Sub btnclose_Click(sender As Object, e As EventArgs) Handles btnclose.Click
        Hide()
        Close()
    End Sub
    Private Sub btnmin_Click(sender As Object, e As EventArgs) Handles btnmin.Click
        Me.WindowState = FormWindowState.Minimized
    End Sub
    Private Sub btnselectimage_Click(sender As Object, e As EventArgs) Handles btnselectimage.Click
        Dim o As New OpenFileDialog
        If o.ShowDialog = DialogResult.OK Then
            If Isimage(o.FileName) Then
                Me.PictureBox1.ImageLocation = o.FileName
            Else
                MsgBox("الملف المحدد ليس صورة")
            End If
        End If
    End Sub
    Private Sub btndelimage_Click(sender As Object, e As EventArgs) Handles btndelimage.Click
        If Title_Logo.Exists Then
            Title_Logo.Delete()
        End If
        Me.PictureBox1.Image = My.Resources.bgp1
        MsgBox("تم حذف الصورة و عرض الصورة الافتراضية", MsgBoxStyle.Exclamation, "")
    End Sub
    Private Sub btnsaveimage_Click(sender As Object, e As EventArgs) Handles btnsaveimage.Click
        If Me.PictureBox1.ImageLocation.Trim <> "" Then
            Dim pic As New IO.FileInfo(Me.PictureBox1.ImageLocation)
            If Title_Logo.Exists Then Title_Logo.Delete()
            pic.CopyTo(Title_Logo.FullName)
            MsgBox("تم نسخ الصورة لمسار المجلد")
        End If
    End Sub
End Class