PDA

نسخه کامل مشاهده نسخه کامل : سطح شیبدار



ADRIEN
25-02-2007, 03:18
با سلام
دوستان لطفا راهنمایی کنید
-چطوری میشه یه سطح شیبدار رسم کرد که مقدار شیب اون بر حسب درجه ای که بهش میدیم تغییر کنه؟
منظورمو خوب رسوندم دیگه:[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

ADRIEN
25-02-2007, 12:55
این جواب ما چی شد؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟

_H2_
25-02-2007, 14:44
سلام
این کد دقیقاَ همین کار را انجام میدهد



Dim iAngle As Single = -15
Dim pCenter As New System.Drawing.Point(50, 50)
Const iWidth As Integer = 150

With Me.CreateGraphics

Call .DrawLine(System.Drawing.Pens.Blue, pCenter.X, pCenter.Y, pCenter.X + iWidth, pCenter.Y)
.PageUnit = GraphicsUnit.Pixel
.TranslateTransform(pCenter.X, pCenter.Y)
.RotateTransform(iAngle)
Call .DrawLine(System.Drawing.Pens.Blue, 0, 0, iWidth, 0)

End With

البته بهتر است این کد در رویداد Paint قرار گیرد تا به صورت خودکار, با درخواست ویندوز رسم شود، اگر چنین کردید به جای تابع Me.CreateGraphics از e.Graphics استفاده کنید.
ضمناَ برای رسم متن هم میتوانید از DrawString استفاده کنید ولی باید شرایط فونت، ارتفاع، RightToLeft ، تراز متن، رنگ و... را شخص کنید.:) :)

_H2_
25-02-2007, 14:48
سلام
میبخشید انگار اینجا از LeftToRight خبری نیست ، تمام پرانتزها خراب شدند.
خودتان درستشان کنید.
البته با کپی کردن مشکلی ندارند.

اگر راهی دارد یادم دهید تا دیگر این بلا سر جوابهایم نیاید. (پرانتزها را میگویم)

ADRIEN
26-02-2007, 01:18
بابا ایولا دمت گرم
کارم راه افتاد
مرسییییییییی

hamidreza_buddy
26-02-2007, 15:30
سلام
میبخشید انگار اینجا از LeftToRight خبری نیست ، تمام پرانتزها خراب شدند.
خودتان درستشان کنید.
البته با کپی کردن مشکلی ندارند.

اگر راهی دارد یادم دهید تا دیگر این بلا سر جوابهایم نیاید. (پرانتزها را میگویم)

از tag ی code استفاده کنید:
قبل از کدتان این را قرار دهید:
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
البته بدون space بین [ و /

_H2_
27-02-2007, 10:11
سلام
جناب آقای hamidreza_buddy از راهنمایی ارزشمندتان ممنوم.