初一成绩管理系统VB2.docVIP

初一成绩管理系统VB2 Public Declare Sub Sleep Lib kernel32 (ByVal dwmilliseconds As Long) 使用方法：比如用在循环语句中循环显示多个图 for …… doevents sleep(1000) next Private Sub Command1_Click() Picture1.Picture = LoadPicture(E:\ZJB文件夹\Pictures\0092.bmp) DoEvents Sleep (1000) Picture1.Picture = LoadPicture(E:\ZJB文件夹\Pictures\1.bmp) DoEvents Sleep (1000) Picture1.Picture = LoadPicture(E:\ZJB文件夹\Pictures\2.bmp) DoEvents Sleep (3000) End Sub VB中没有撤消编辑功能要用API public declare function SendMessage Lib user32 Alias SendMessageA(byval x as long,byval y as long,byval z as long,p as any) as long 调用方法： dim t as long t=SendMessage(Tex