+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] طلب كود للفيجوال بيسك 2008 (/showthread.php?tid=15500)
طلب كود للفيجوال بيسك 2008 - روفا - 16-04-16
مرحبا بكم اخوتى
انا كنت بعمل برنامج بالفيجوال بيسيك 2008 ومحتاج كودين من محترفين الفيجوال بيسيك
الاول :- كود للتحكم فى مكان label1 على النموزج بالماوس
الثانى:- حفظ الصوره الموجوده فى picturebox1 على الجهاز باكتر من امتداد
ارجو منكم اخوتى مساعدتى ضرورى وارسال الاكواد المطلوبه
السلام عليكم ورحمة الله وبركاته
RE: طلب كود للفيجوال بيسك 2008 - WAEL ABED - 16-04-16
الاستفسار الاول
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
بالتوفيق ان شاء الله
RE: طلب كود للفيجوال بيسك 2008 - روفا - 16-04-16
شكرا لك لكن انا اريد كود الحفظ يكون على سطح المكتب
او تظهر نافذه لاختيار مكان الحفظ .. جربت استبدال c بـ desktop لكن منفعش
نسيت اقول لحضراتكم
ان انا عايز الصوره تتحفظ ولو فوقها مثلا picturebox2 او label1 يتحفظو مع الصوره كجزء منها