【 錡錡 ♥ 蘭蘭 】小倆口生活

Public Class Form1
Dim h As Integer = Me.ClientSize.Height
Dim w As Integer = Me.ClientSize.Width
Dim i As Integer
Dim g As Graphics = Me.CreateGraphics
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

'g.Clear(Me.BackColor)
For i = 0 To w

g.DrawEllipse(Pens.Black, i, CInt(h / 2), 1, 0)

Next
End Sub

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
Form1_Paint(Me, Nothing)
End Sub

Private Sub SinToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SinToolStripMenuItem.Click
g.Clear(Me.BackColor)
For i = 0 To w
g.DrawEllipse(Pens.Red, i, CInt(h / 2 - Math.Sin(i / 25) * 50), 1, 1)

Next
End Sub

Private Sub BrownToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrownToolStripMenuItem.Click
g.Clear(Me.BackColor)
End Sub

Private Sub RedToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedToolStripMenuItem.Click

End Sub

Private Sub SinToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SinToolStripMenuItem1.Click
'g.Clear(Me.BackColor)
For i = 0 To w
g.DrawEllipse(Pens.Blue, i, CInt(h / 2 - Math.Sin(i / 25) * 50), 1, 1)

Next
End Sub

Private Sub CosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CosToolStripMenuItem.Click
g.Clear(Me.BackColor)
For i = 0 To w
g.DrawEllipse(Pens.Red, i, CInt(h / 2 - Math.Cos(i / 25) * 50), 1, 1)

Next
End Sub

Private Sub TanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TanToolStripMenuItem.Click
g.Clear(Me.BackColor)
For i = 0 To w
g.DrawEllipse(Pens.Red, i, CInt(h / 2 - Math.Tan(i / 25) * 50), 1, 1)

Next
End Sub

Private Sub CosToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CosToolStripMenuItem1.Click
g.Clear(Me.BackColor)
For i = 0 To w
g.DrawEllipse(Pens.Blue, i, CInt(h / 2 - Math.Cos(i / 25) * 50), 1, 1)

Next
End Sub

Private Sub TanToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TanToolStripMenuItem1.Click
g.Clear(Me.BackColor)
For i = 0 To w
g.DrawEllipse(Pens.Blue, i, CInt(h / 2 - Math.Tan(i / 25) * 50), 1, 1)

Next
End Sub

Private Sub BlueToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BlueToolStripMenuItem.Click

End Sub
End Class