PDA

View Full Version : حرفه ای: قراردادن تصویر روی دکمه


silverado
یک شنبه 19 بهمن 1393, 10:51 صبح
سلام . کسی میدونه چطور روی دکمه با کد نویسی عکس بزارم
مثلا xp button
vbhamed
یک شنبه 19 بهمن 1393, 13:09 عصر
سلام
از دکمه های کامپوننت Codejock استفاده کنی خیلی راحت تری
YasserDivaR
جمعه 24 بهمن 1393, 19:27 عصر
فایل ضمیمه شد
شما می تونید بهترین ابزار رو دانلود کنید
vbhamed
شنبه 25 بهمن 1393, 09:41 صبح
سلام
ولی این کنترل با تایمری که داره اونم با Interval = 1 اصلا ابزار بهینه های نیست و در عملکرد برنامتون به شدت تاثیر منفی میزاره
ضمنا کد مربوط به کلیک باید در رویداد MouseUp کنترل نوشته بشه تا پاسخ دهی آنی داشته باشه، الان اگر روی دکمه چندین بار به سرعت کلیک کنید می‌بینید که به نسبت کلیک شما پاسخ نمیده
YasserDivaR
دوشنبه 27 بهمن 1393, 14:37 عصر
میشه رفع مشکلش کنین؟؟ممنون
vbhamed
دوشنبه 27 بهمن 1393, 17:40 عصر
سلام
روش رفع مشکل رو که در پست قبلی گفتم، ولی با وجود اینهمه کامپوننت بهتر چه نیازی به استفاده از این هستش؟
gorg313
دوشنبه 27 بهمن 1393, 18:50 عصر
سلام بهترين راه اينه که از کامند پيش فرض وي بي 6 استفاده کنيد
چون اکثر کامپوننت ها سخت ريجستر ميشن و حجم برنامه
اينم عکس نمونه ضميمه کردم خيلي هم جالب ميشه حتي رنگ هم مي تونيد براش بذاريد

1 - کامند روم فرم بذار
2- گزينه Style را به صورت 1_Graphical
3- گزينه Picture و انتخاب تصوير

128537
setroyd
سه شنبه 28 بهمن 1393, 09:38 صبح
به نظر من تایمر خیلی بیمورده تو این usercontrol، این رو میشه راحت به 3 تا 4 تا روش بهینه نوشت ! من نظرم اینه اگه مانور روی عکس میخواین بدین از alpha image control استفاده کنین اونم از ocx نه از usercontrol چون یوزر کنترلش یجورایی تو فرم به مشکل میخوره . یا....... ماشالا نت پر کامپوننت اونم برای vb6 حالا اگه چیزی پیدا نکردی که پاسخگوی کارت باشه یه pm بده برات مینویسم یه یوزر کنترل اگه بیکار بودم .
silverado
سه شنبه 05 اسفند 1393, 08:37 صبح
دوستان منظور من با کد نویسی هست . این که style رو تغییر بدی میدونم چیه اما با کد نمی دونم چطوری بذارم
یعنی همین کارهایی رو که به صورت visual انجام می دیم با کد بشه انجام داد
setroyd
سه شنبه 05 اسفند 1393, 22:56 عصر
Private Const GWL_STYLE& = (-16)
Private Const Graphical_Style As Long = (1409351691)
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Sub Command1_Click()
Dim lWindowStyle As Long
SetWindowLong Command1.hwnd, GWL_STYLE, Graphical_Style
Command1.Picture = Picture1.Picture
End Sub



اگه درست مطرح کنید سوال رو زودتر جواب میگیرید .