PDA

View Full Version : سوال: چرخش Picturebox nv در VB6



reza_edu
پنج شنبه 18 آذر 1389, 22:53 عصر
سلام به همه مهندسان گرامی سوال من اینه :ما تو ویبی داتنت برای چرخش Picturebox کافیه که از خاصیت Rotate استفاده کنیم اینجوری میتونیم تو هر زاویه ای با محور X یا y پیکچرباکس خودمون رو بچرخونیم من معادل این کار رو تو VB6 میخوام چه جوری میشه این کار رو انجام داد؟

butterfly8528
شنبه 20 آذر 1389, 18:25 عصر
سلام دوست عزیز .

در vb6 تابع یا دستور پیشفرضی برای این کار وجود نداره ! باید از توابع API استفاده کنید .

مدول ضمیمه شده کمکتون خواهد کرد .

موفق باشید .

reza_edu
شنبه 20 آذر 1389, 21:15 عصر
سلام ممنون از جواب شما اما دوست گرامی اما راه رو که نشان دادی شما یه مثال هم بیار تا دوزاری ما بیفته من کلی سعی کردم اما یه قسمت های رو اصلا متوجه نمیشم
Public Sub ROTATE(Destdc As Long, Angle As Currency, x&, y&, W&, H&, ImgHandle&, [TranspColor&], [Alpha As Currency = 1], [pScale As Currency = 1], [px% = -32767], [py% = -32767])
Member of Project1.RotateImageحد اقل یه توضیحی یه مثالی من متوجه نشدم:گریه:

butterfly8528
دوشنبه 22 آذر 1389, 03:11 صبح
سلام دوست عزیز .

براتون 2 مثال کامل ضمیمه کردم .

این لینک (http://www.planet-source-code.com/vb/scripts/BrowseCategoryOrSearchResults.asp?lngWId=1&txtCriteria=rotate+picture) هم بسیار مفید هست .

موفق باشید .

reza_edu
دوشنبه 22 آذر 1389, 08:16 صبح
سلام ممنون از پاسخ و مثال ها مفید بود اما چند سوال :
1. شما چه جوری سرچ کردی که این همه مثال پیدا کردی؟ من خودم رو کشتم با گوگل با یاهو و امسن هرچی میومد جز این ! یا شایدم میومد من به چشم نمی خورد :ناراحت: اما به هر حال اگه روش خواصی داره بگید ممنون میشم یا سرچر خواص که مثلا فقط راجب مسائل برنامه نویسی سرچ کنه!
2. آقا من هر چی دیدم فقط عکس داخل PIcturebox میچرخید نه خودش ! البته این مثال mage rotate Full.zip‏ (http://barnamenevis.org/attachment.php?attachmentid=63528&d=1292198897) اجرا نشد ارور داد(هنوز باهاش ورنرفتم تا درستش کنم) اصلا بزارید هدفم رو بگم شاید شما یه مثال براش داشتید من میخوام با 5 تا pICTUREBOX یه ماشین شبیه سازی کنم4 تا لاستیک بشن و 1 بدنه حالا هر کدوم از لاستیک ها باید قابلیت چر خش جدا گانه داشته باشن من قبلا یه همچین مثالی با ویبی دیدم(نه سورسش) اون رو با اکسل پیاده سازی کرده بودن پس حتما ویبی بوده! یا که خیر؟ اگه از روش چرخوندن عکس pICTUREBOX استفاده کنیم کناره های عکس خالی میشه و قسمتی شم بیرون میفته حالا شما میگید من چیکار کنم؟

reza_edu
دوشنبه 22 آذر 1389, 08:47 صبح
سلام مهندس بابا این image rotate Full.zip‏ (http://barnamenevis.org/attachment.php?attachmentid=63528&d=1292198897) مثال رو من اجرا نکرده بودم که این نوشته بالا رو نوشتم حالا که اجرا کردم دیدم به چیزی که میخواستم رسیدم واقعا دمت گرم عالی بود خیلی حال دادی جبران کنم یه کامیون تیتاپ بود:لبخند:

reza_edu
دوشنبه 22 آذر 1389, 17:16 عصر
سلام یه سوال دیگه من تو برنامه ام برای شبیه سازی حرکت ماشین از یک تایمر استفاده کردم حالا زمانی که کد زیر
DoEvents
Picture2.Cls
TranspRotate Picture2.hdc, vScroll1.Value * Rad, 128, 128, S.Width, S.Height, S.Image.handle, &HFF00FF, HScroll1(0).Value / 100, HScroll1(1).Value / 50
Picture2.Refresh رو تو برنامه ام استفاده میکنم البته تایمر رو خاصیت Interval رو برابر 10 قرار میدم و کد رو داخل تایمر به شکل زیر میزارم

Private Sub Timer1_Timer()
DoEvents
Picture2.Cls
TranspRotate Picture2.hdc, vScroll1.Value * Rad, 128, 128, S.Width, S.Height, S.Image.handle, &HFF00FF, HScroll1(0).Value / 100, HScroll1(1).Value / 50
Picture2.Refresh
End Sub
فرم برنامه هنگام Refresh شدن خیلی ناجور از بالا تا پائین Refresh میشه (البته من تو فرم اصلیم تعداد لیبل ها و Shap هام زیاده ) به نظر شما من چه کار کنم؟ تو فرم ساده هیچ مشکلی نداره اما تو فرم من چون تعداد همونای که گفتم زیاده نا فرم خودش رو نشون میده! ممنون میشم راهنمائی کنید.

butterfly8528
سه شنبه 23 آذر 1389, 00:23 صبح
سلام دوست عزیز .


. شما چه جوری سرچ کردی که این همه مثال پیدا کردی؟ من خودم رو کشتم با گوگل با یاهو و امسن هرچی میومد جز این ! یا شایدم میومد من به چشم نمی خورد :ناراحت: اما به هر حال اگه روش خواصی داره بگید ممنون میشم یا سرچر خواص که مثلا فقط راجب مسائل برنامه نویسی سرچ کنه!

کافیه کلمات کلیدی رو به همراه نام زبان برنامه نویسی در گوگل سرچ کنید . سایت www.planet-source-code.com هم پر از سورس های مختلف هست که میتوانید نهایت استفاده رو ببرید .


فرم برنامه هنگام Refresh شدن خیلی ناجور از بالا تا پائین Refresh میشه (البته من تو فرم اصلیم تعداد لیبل ها و Shap هام زیاده ) به نظر شما من چه کار کنم؟ تو فرم ساده هیچ مشکلی نداره اما تو فرم من چون تعداد همونای که گفتم زیاده نا فرم خودش رو نشون میده! ممنون میشم راهنمائی کنید.

راهی برای این مشکل به نظرم نمیرسه ، احتمالا راهی وجود نداشته باشه .

موفق باشید .