منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مرحبا بكم اخوتى Angel

انا كنت بعمل برنامج بالفيجوال بيسيك 2008 ومحتاج كودين من محترفين الفيجوال بيسيك Huh

الاول :- كود للتحكم فى مكان label1 على النموزج بالماوس
الثانى:- حفظ الصوره الموجوده فى picturebox1 على الجهاز باكتر من امتداد Big Grin

ارجو منكم اخوتى مساعدتى ضرورى وارسال الاكواد المطلوبه
السلام عليكم ورحمة الله وبركاته

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

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 

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

شكرا لك لكن انا اريد كود الحفظ يكون على سطح المكتب Big Grin

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

نسيت اقول لحضراتكم Angel

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

روفا

WAEL ABED

روفا