Question

vb "单击窗体,则在窗体上出现一个文本框,并且文本框的颜色和位置定是随机变化"怎么做怎

Answer 1

Private WithEvents NewText As TextBox

Dim x, y, a, c1

Private Sub form_Click()

c1 = RGB(Rnd(1) * 255, Rnd(1) * 255, Rnd(1) * 255)

x = Rnd(1) * Form1.Width

y = Rnd(1) * Form1.Height

a = a + 1

Set NewText = Controls.Add("VB.TextBox", "Text" & a, Form1)

NewText.Move x, y

NewText.BackColor = c1

NewText.Visible = True

End Sub