رسم بیضی روی فرم

[UpgradeVB6Code]

سلام چه طوری میتونم یه بیضی روی فرمم بکشم
من با این کدها امتحان میکنم اما نمیشه...


PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Ellipse1 As Graphics
Ellipse1.DrawEllipse(Pens.Blue, 100, 100, 25, 75)
EndSub

میخوام وقتی روی Button1 کلیک شد یه بیضی رشم بشه !؟ اما این اررور میده !؟

[ghafoori]

دوست عزیز شما به Ellipse1 مقدار ندادید مثلا اگر می خواهید روی فرم رسم شود از کد زیر باید استفاده کنید


PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Ellipse1 As Graphics=me.creategraphics
Ellipse1.DrawEllipse(Pens.Blue, 100, 100, 25, 75)
EndSub

[UpgradeVB6Code]

آقا ممنون دو روز بود داشتم باهاش سرو کله میزدم !!! :قلب:

[UpgradeVB6Code]

چرا وقتی me رو تایپ میکنم بعد نقطه میزارم توی لیستی که باز میشه گزینه creategraphics
نیست ؟؟؟
باید اونو خودمون دستی بنویسیم ؟

[RezaKia]

چرا وقتی me رو تایپ میکنم بعد نقطه میزارم توی لیستی که باز میشه گزینه creategraphics
نیست ؟؟؟
باید اونو خودمون دستی بنویسیم ؟

سلام،

در 2005 به طور پیش فرض فقط گزینه های کاربردی تر نشان داده میشوند. در حقیقت این عمل معادل Do not show advanced methdes در VB 6.0 می باشد که در 2003 حذف شده بود.

اگر بعد از زدن نقطه به لیست ظاهر شده دقت کنید؛ در انتهای لیست دو گزینه وجود دارند که اولی لیست متدهای کاربردی تر و دومی تمام آنها را نمایش میدهد.

اگر شما گزینه دوم «All» را انتخاب کنید، CreateGraphics هم ظاهر میشود.


موفق باشید.