[روفا]

مرحبا بكم اخوتى
انا كنت بعمل برنامج بالفيجوال بيسيك 2008 ومحتاج كودين من محترفين الفيجوال بيسيك 
الاول :- كود للتحكم فى مكان label1 على النموزج بالماوس
الثانى:- حفظ الصوره الموجوده فى picturebox1 على الجهاز باكتر من امتداد 
ارجو منكم اخوتى مساعدتى ضرورى وارسال الاكواد المطلوبه
السلام عليكم ورحمة الله وبركاته

[WAEL ABED]

الاستفسار الاول  

PHP كود :

Public Class Form1

    Dim xXx As Integer
    Private Sub Label1_MouseDown(sender As Object, e As MouseEventArgs) Handles Label1.MouseDown
        xXx = 2
    End Sub
    Private Sub Label1_MouseMove(sender As Object, e As MouseEventArgs) Handles Label1.MouseMove
        If xXx = 2 Then Label1.Top = Label1.Top + e.Y : Label1.Left = Label1.Left + e.X
    End Sub
    Private Sub Label1_MouseUp(sender As Object, e As MouseEventArgs) Handles Label1.MouseUp
        xXx = 1
    End Sub
End Class 


الاستفسار التانى 

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1_Click
        PictureBox1.Image.Save("C:/SS.png")
    End Sub 


بالتوفيق ان شاء الله

[روفا]

شكرا لك لكن انا اريد كود الحفظ يكون على سطح المكتب   
 او تظهر نافذه لاختيار مكان الحفظ .. جربت استبدال c بـ desktop لكن منفعش

---

نسيت اقول لحضراتكم ان انا عايز الصوره تتحفظ ولو فوقها مثلا picturebox2 او label1 يتحفظو مع الصوره كجزء منها