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

(09-01-21, 03:00 PM)PeterGhattas082460 كتب : [ -> ]السلام عليكم اخوتي الاعزاء
أريد كود يقوم بعرض صورة عند وضع مؤشر الماوس علي تكست بوكس مع امكانية تحديد مقاس الصورة التي ستظهر 
أريد كود زر يقوم بحفظ الصورة التي اريد عرضها ... اختار الصورة ليس من داخل البرمجة ولكن اثناء تشغيل البرنامج 

توضيح أكثر :
زر اضغط عليه يفتح لي نافذه اختار منها الصورة التي اريدها ان تظهر عند وضعي لمؤشر الماوس علي التكست بوكس
بالاضافة الي الكود الذي يتيح لي ظهور الصورة عند وضع مؤشر الماوس علي التكست بوكس 

أتمني ان اكون قد استطعت توضيح طلبي 
 

(09-01-21, 08:52 PM)محمد اسماعيل كتب : [ -> ]

(09-01-21, 03:00 PM)PeterGhattas082460 كتب : [ -> ]السلام عليكم اخوتي الاعزاء
أريد كود يقوم بعرض صورة عند وضع مؤشر الماوس علي تكست بوكس مع امكانية تحديد مقاس الصورة التي ستظهر 
أريد كود زر يقوم بحفظ الصورة التي اريد عرضها ... اختار الصورة ليس من داخل البرمجة ولكن اثناء تشغيل البرنامج 

توضيح أكثر :
زر اضغط عليه يفتح لي نافذه اختار منها الصورة التي اريدها ان تظهر عند وضعي لمؤشر الماوس علي التكست بوكس
بالاضافة الي الكود الذي يتيح لي ظهور الصورة عند وضع مؤشر الماوس علي التكست بوكس 

أتمني ان اكون قد استطعت توضيح طلبي 
 

دة كود اختيار الصورة من الجهاز وتقدر تضعة باي مكان او حدث 

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim ofd As New OpenFileDialog
       ofd.Filter = ("Image File (*.ico;*.jpg;*.bmp;*.gif;*.png)|*.jpg;*.bmp;*.gif;*.png;*.ico") 'If you like file type filters you can add them here

       If ofd.ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub
       Try
           Dim bmp As New Bitmap(ofd.FileName)
         
           PictureBox1.BackgroundImage = Nothing
           PictureBox1.Image = bmp

       Catch ex As Exception
           MsgBox(ex.Message)
           Exit Sub

       End Try
   End Sub