سطح شیبدار

[ADRIEN]

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

[ADRIEN]

این جواب ما چی شد؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟

[_H2_]

سلام
این کد دقیقاَ همین کار را انجام میدهد

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_]

سلام
میبخشید انگار اینجا از LeftToRight خبری نیست ، تمام پرانتزها خراب شدند.
خودتان درستشان کنید.
البته با کپی کردن مشکلی ندارند.

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

[ADRIEN]

بابا ایولا دمت گرم
کارم راه افتاد
مرسییییییییی

[hamidreza_buddy]

سلام
میبخشید انگار اینجا از LeftToRight خبری نیست ، تمام پرانتزها خراب شدند.
خودتان درستشان کنید.
البته با کپی کردن مشکلی ندارند.

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

از tag ی code استفاده کنید:
قبل از کدتان این را قرار دهید:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

البته بدون space بین [ و /

[_H2_]

سلام
جناب آقای hamidreza_buddy از راهنمایی ارزشمندتان ممنوم.