© 1999-2048 dssz.net 粤ICP备11031372号
[VB] vb程序点击command出现矩形 变色
说明: Dim a As Integer Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Form_Click() Cls Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Line (1000, 1000)-(2500, 2500), QBColor(Int(Rnd * 16)), BF End Sub<linzhongguier> 在 上传 | 大小:604