سوال در مورد ساخت دكمه با عكس

بازم سلام من نيخوام وقتي موس روي يه ايميج باكس حركت ميكنه عكسش عوض بشه اين كار رو هم كردم ولي ارور ميده!!!!
شما پيشنهادي ندارين؟
 

Mikhak

Active Member
چه ارروي ميده؟؟؟
واسه اين كار چند روش وجود داره
1- يه ايميج باكس درست كني و وقتي روش ميري مسير عكس ايميج باكس رو عوض كني
2- روش دوم : دو تا ايميج باكس درست كني و وقتي رو عكس بالايي ميري invisible عكس بالايي false كني و invisble عكس پاييني رو true و وقتي خارج ميشي برعكس
شما از كدوم روش استفاده كردي؟؟؟
--------------------------------
سينا
 
من از اوليش استفاده كردم و آدرس عكس رو هم تو 2 تا "" گذاشتم ولي به محض رفتن موس روي اون ارور ميده البته روش دوم هم جالبه روش كار مي كنم
ممنون
 

Mikhak

Active Member
آقا حامد گفتم چه ارروري ميده؟
----------------------------
سينا
 
با سلام و عرض معذرت كه يه كم دير شد من مينويسم
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = "c:/1.gif"
End Sub
و اون اين ارور رو ميده
Type mismatch
 
راستي من چند تا سوال ديگه هم داشتم خلاصه شرمنده خيلي مزاحمتون شدم
من ميخوام يه فرمي درست كنم كه style:0 none باشه يعني ايكون كلوز و مينيمايز نداشته باشه تا خودم يه مينيمايز گرافيكي براش درست كنم ولي 2 تا مشكل دارم
1. چنين فرمي تو تسك بار ويندوز ظاهر نميشه
2 نميدونم از چه تابعي براي مينيمايز كردن استفاده كنم هلپشم زيرو رو كردم ولي پيدا نشد
حالا چي كار كنم؟
 

Mikhak

Active Member
در مرود اون ارروري كه گفتي بايد به اين صورت به عكس مسير بدي
کد:
image1.Picture = LoadPicture("C:\1.gif")

واسه minimize كردن فرم هم از اين كد استفاده كن
کد:
Me.WindowState = vbMinimized
در مرود ساختن skin هم يه برنامه هست به اسم vbskinner pro ميتوين از اينجا دانلود كني
مخلصيم
---------------------------
سينا
 

جدیدترین ارسال ها

بالا