ثلاث اسئلة في الفجيوال بيسك

وينك ياشباب

فيش حد بجاوب

فقط احتاج لحل السؤال الاخير تبع كيف تحمل Skin

الرجاء ان تجدوا لي الحل

خطوة خطوة

مع تحياتي

اقتباس

ولكن اريد ان اعرف ماهو الاجراء المستخدم لإخفاء الصورة عند ذهاب مؤشر الماوس عن الزر

use the MouseLeave Event

اقتباس

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

Use Class Random to change your mouse pic randomly..

Hope this helps...

اسف في عدم تنسيق الاجابة

اضف صورة وزر للفورم

عند مرور الماوس تظهر الصورة

Private Sub PictureBox1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseEnter
PictureBox1.Image = System.Drawing.Image.FromFile("C:\vb.jpg")
End Sub

لاخفاء الصورة :

Private Sub PictureBox1_MouseLeave1(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave
PictureBox1.Image = Nothing
End Sub

وبالنسبة للزر :

Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
Button1.Image = System.Drawing.Image.FromFile("C:\vb.jpg")
End Sub

Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
Button1.Image = System.Drawing.Image.FromFile("C:\bi.jpg")
End Sub

اما سؤالك الاخير لم اتعامل مع الاداة ..

AxSkin1.LoadSkin("Galaxy.skn")

Ax2Skin1.ApplySkin(0)

1/ أدرج الاداة على الفورم

2/ ضع ملف الاسكن وليكن Web-II.skn داخل دليل معين مثلا d:\

3/ في حدث load اكتب ما يلي مع مراعاة الاقواس

Dim skin As New ACTIVESKINLib.SkinClass

AxSkin1.LoadSkin("d:\Web-II.skn")

AxSkin1.ApplySkin(Me.Handle.ToInt32)

عندما ترغب في قراءة الصورة من المسار بدون تحديده اكتب

Application.StartupPath

للتحسين