Dim X1, Y1, X2, Y2 As Integer\x0d\Dim I As Integer\x0d\Dim J As Boolean\x0d\Dim K As IntegerDim WithEvents Label1 As Label\x0d\Dim WithEvents Timer1 As TimerPrivate Sub Form_Activate()\x0d\ I = 100\x0d\ K = 100\x0d\ X1 = Me.Width / 2\x0d\ Y1 = Me.Height / 3\x0d\ X2 = X1\x0d\ Y2 = Y1\x0d\Label1.Top = Me.Height / 2 - Label1.Height / 2\x0d\ Label1.Left = Me.Width / 2 - Label1.Width / 2\x0d\End SubPrivate Sub Form_Load() Me.BackColor = &H0&\x0d\ Me.FillColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)\x0d\ Me.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)\x0d\ Me.DrawMode = 13\x0d\ Me.DrawWidth = 2\x0d\ Me.FillStyle = 7\x0d\Set Label1 = Me.Controls.Add("VB.Label", "Label1")\x0d\ Set Timer1 = Me.Controls.Add("VB.Timer", "Timer1")\x0d\Label1.Visible = True\x0d\ Label1.AutoSize = True\x0d\ Label1.BackStyle = 0\x0d\ Label1.Caption = "I LOVE YOU"\x0d\ Label1.Font.Size = 60\x0d\ Label1.ForeColor = &HFF00&\x0d\ Timer1.Enabled = True\x0d\ Timer1.Interval = 10\x0d\ Me.WindowState = 2\x0d\End SubPrivate Sub Timer1_Timer()\x0d\ Me.Circle (X1, Y1), 250\x0d\ Me.Circle (X2, Y2), 250\x0d\ \x0d\ If Y1 = Me.Height / 3 Then\x0d\ K = K - 5\x0d\ End If\x0d\ Else\x0d\ I = 100\x0d\ K = 100\x0d\ X1 = Me.Width / 2\x0d\ Y1 = Me.Height / 3\x0d\ X2 = X1\x0d\ Y2 = Y1\x0d\ \x0d\ Me.FillColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)\x0d\ Me.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) End If\x0d\ \x0d\ Me.DrawWidth = 3\x0d\ \x0d\ Me.PSet (Rnd * Me.Width, Rnd * Me.Height), RGB(Rnd * 225, Rnd * 225, Rnd * 225)\x0d\ Me.DrawWidth = 2\x0d\End SubPrivate Sub Form_Click()\x0d\ End\x0d\End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)\x0d\ End\x0d\End Sub
上一篇:近年來，十幾歲的青少年沈迷網絡世界，“費盡周折見網友”的事件屢屢發生。15歲的陜西女孩王麗（化名）不下一篇:VB：求出n個學生壹門課程中的最高成績、最低成績及高於平均成績的人數