profnami
یک شنبه 07 شهریور 1389, 11:46 صبح
سلام . من تو برنامه ام یه قسمت گرافیکی دارم .برای رسم طرح های گرافیکی به این صورتکار کردم :
Dim sr As Graphics
sr = Me.CreateGraphics
Dim bv As New Pen(Color.Red, 3)
'-10
If ComboBox2.Text = "-10" And cmbFrequency.Text = "125" And ComboBox3.Text = "Tone" And ComboBox4.Text = "AC" And ComboBox5.Text = "AC" And ComboBox6.Text = "Noise" Then
sr.DrawLine(bv, 60, 300, 50, 318)
sr.DrawLine(bv, 50, 318, 70, 318)
sr.DrawLine(bv, 70, 318, 60, 300)
ElseIf ComboBox2.Text = "-10" And cmbFrequency.Text = "125" And ComboBox3.Text = "Tone" And ComboBox4.Text = "AC" And (CheckBox3.Checked = False Or ComboBox5.Text = "BC" Or ComboBox6.Text = "Tone") Then
sr.DrawEllipse(bv, 51, 301, 18, 18)
End If
اشیا گرافیکی درست روی فرم رسم میشن . اما وقتی فرم به هرصورت ناپدید بشه این اشیا پاک میشن . حالا چه فرم رو مینیمایز کنم چه یه پنجره ی دیگه بیاد روش اشیا پاک میشن .
این یه مشکل منه که نمیخوام این اشیا پاک بشن .
و قسمت دوم سوالم اینه که من چجوری این اشیا رو که رسم کردم پاک کنم ؟ الان برای پاک کردن این اشیا مجبورم دقیقا رو شی قبلی یه شی با رنگ Backgrand خود فرم رسم کنم !
ممنون میشم یه روش بهتر و ساده تر یر راه من بزارید
Dim sr As Graphics
sr = Me.CreateGraphics
Dim bv As New Pen(Color.Red, 3)
'-10
If ComboBox2.Text = "-10" And cmbFrequency.Text = "125" And ComboBox3.Text = "Tone" And ComboBox4.Text = "AC" And ComboBox5.Text = "AC" And ComboBox6.Text = "Noise" Then
sr.DrawLine(bv, 60, 300, 50, 318)
sr.DrawLine(bv, 50, 318, 70, 318)
sr.DrawLine(bv, 70, 318, 60, 300)
ElseIf ComboBox2.Text = "-10" And cmbFrequency.Text = "125" And ComboBox3.Text = "Tone" And ComboBox4.Text = "AC" And (CheckBox3.Checked = False Or ComboBox5.Text = "BC" Or ComboBox6.Text = "Tone") Then
sr.DrawEllipse(bv, 51, 301, 18, 18)
End If
اشیا گرافیکی درست روی فرم رسم میشن . اما وقتی فرم به هرصورت ناپدید بشه این اشیا پاک میشن . حالا چه فرم رو مینیمایز کنم چه یه پنجره ی دیگه بیاد روش اشیا پاک میشن .
این یه مشکل منه که نمیخوام این اشیا پاک بشن .
و قسمت دوم سوالم اینه که من چجوری این اشیا رو که رسم کردم پاک کنم ؟ الان برای پاک کردن این اشیا مجبورم دقیقا رو شی قبلی یه شی با رنگ Backgrand خود فرم رسم کنم !
ممنون میشم یه روش بهتر و ساده تر یر راه من بزارید