ورود

View Full Version : درخواست کامپوننت دکمه



MiladMR
پنج شنبه 13 تیر 1392, 21:25 عصر
سلام خدمت دوستان عزیز

من یه کامپوننت نیاز دارم تا بتونم دکمه هایی مثل دکمه های بالای برنامه idm بسازم
عکس دارن و عکس ها عوض میشن

فکرمیکنم توی مجموعه CodeJoke باشه، ولی من بلد نیستم. تاپیک مربوطه توی انجمن رو هم خوندم ولی چیزی در مورد این مورد ننوشته بود

ممنون میشم با کامپوننت یا یک مثال راهنمایی فرمایید.

پیشاپیش ممنون از الطاف دوستانه اساتید محترم

m.4.r.m
جمعه 14 تیر 1392, 01:14 صبح
همون Pushbutton مربوط به codejock رو بزار روی فرم و یک عکس با پسوند png یا gif براش انتخاب کن دقت کن 2 تا تصویر که می خوای زمان رفتن روی دکمه و برگشت از روی دکمه نشونت بده رو داشته باش
در واقع تو تصویر داری این کد رو ست کن

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
PushButton1.Picture = LoadPicture("D:\Visual Basic 6.0\Persenel\Pic\add.gif")
End Sub

Private Sub PushButton1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
PushButton1.Picture = LoadPicture("D:\Visual Basic 6.0\Persenel\Pic\delete.gif")
End Sub


در رخداد form1_mosemove باید همون تصویر default باشی که اول برای دکمه انتخاب کردی ok شد ؟