Private Sub Command2_Click() Picture1.AutoSize = True Do xx = Rnd * Picture2.Width yy = Rnd * Picture2.Height Picture2.PaintPicture Picture1.Picture, xx, yy,Picture1.Width,Picture1.Height DoEven...
把控制权交给操作系统,以响应窗口重画、最大化、最小化等要求,避免出现应用程序不响应操作系统请求而被操作系统误以为死机了。 举个例子:在窗口中放一个textbox,然后写程序,循环从1到10万,然后循环体里面就是把这个数写到textbox里面,如果没有DoEvents,程序运行的时候就是死机一样,然后直到最后窗口显示10万,中间数字什么也看不见; 如果在每次写了textbox以后,都来一下DoEvents,窗口就会重画,运行的时候就能看见textbox里面的数一个一个的长上去。