添加Imgae控件,在Image中添加图片然后调用Picture1(pre).Picture = Image1.Pictureprivate sub cmdstart_click() nt = timer end sub 同时去掉private sub form_load() nt = timer end sub
8,VB制作打地鼠游戏
Private Sub CmdStart_click() nt = Timer End Sub 同时去掉Private Sub Form_Load() nt = Timer End Sub请不要问这种不难但是程序肯定很长的问题,其实只要你有学过vb,这个问题不难,而只是懒而已,你应该自己编着,遇到难题了才来问。你可以用自定义鼠标来作为锤子,用图片的显示与隐藏visible属性来表示地鼠的出现与消失。