pooya1072
دوشنبه 20 شهریور 1391, 02:02 صبح
سلام
من دو دستور یکسان ترسیم رو توی دو رویداد مختلف, یکی Form_Load و دیگری Form_Resize قرار دادم.
Public
ClassForm2
PrivateSub Form2_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Load
Dim HeightOfForm AsSingle = Me.Height
Dim WidthOfForm AsSingle = Me.Width
Dim XOfCenter AsSingle = WidthOfForm / 2
Dim YOfCenter AsSingle = HeightOfForm / 2
Dim G AsGraphics = Me.CreateGraphics
Dim P AsNewPen(Color.Black)
G.DrawLine(P, XOfCenter, 0, XOfCenter, HeightOfForm)
G.DrawLine(P, 0, YOfCenter, WidthOfForm, YOfCenter)
EndSub
PrivateSub Form2_Resize(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Resize
Dim HeightOfForm AsSingle = Me.Height
Dim WidthOfForm AsSingle = Me.Width
Dim XOfCenter AsSingle = WidthOfForm / 2
Dim YOfCenter AsSingle = HeightOfForm / 2
Dim G AsGraphics = Me.CreateGraphics
Dim P AsNewPen(Color.Black)
G.DrawLine(P, XOfCenter, 0, XOfCenter, HeightOfForm)
G.DrawLine(P, 0, YOfCenter, WidthOfForm, YOfCenter)
EndSub
End
Class
با لود شدن فرم اتفاقی نمیوفته ولی با تغییر اندازه فرم ترسیم به درستی انجام میشه.علت ترسیم نشدن در هنگام لود شدن فرم چیه و چطور باید این مشکل رو حل کنم؟
با تشکر
من دو دستور یکسان ترسیم رو توی دو رویداد مختلف, یکی Form_Load و دیگری Form_Resize قرار دادم.
Public
ClassForm2
PrivateSub Form2_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Load
Dim HeightOfForm AsSingle = Me.Height
Dim WidthOfForm AsSingle = Me.Width
Dim XOfCenter AsSingle = WidthOfForm / 2
Dim YOfCenter AsSingle = HeightOfForm / 2
Dim G AsGraphics = Me.CreateGraphics
Dim P AsNewPen(Color.Black)
G.DrawLine(P, XOfCenter, 0, XOfCenter, HeightOfForm)
G.DrawLine(P, 0, YOfCenter, WidthOfForm, YOfCenter)
EndSub
PrivateSub Form2_Resize(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Resize
Dim HeightOfForm AsSingle = Me.Height
Dim WidthOfForm AsSingle = Me.Width
Dim XOfCenter AsSingle = WidthOfForm / 2
Dim YOfCenter AsSingle = HeightOfForm / 2
Dim G AsGraphics = Me.CreateGraphics
Dim P AsNewPen(Color.Black)
G.DrawLine(P, XOfCenter, 0, XOfCenter, HeightOfForm)
G.DrawLine(P, 0, YOfCenter, WidthOfForm, YOfCenter)
EndSub
End
Class
با لود شدن فرم اتفاقی نمیوفته ولی با تغییر اندازه فرم ترسیم به درستی انجام میشه.علت ترسیم نشدن در هنگام لود شدن فرم چیه و چطور باید این مشکل رو حل کنم؟
با تشکر