Private Sub Command1_Click() If pic_flag Then Picture1.Visible = True Picture2.Visible = False Else Picture2.Visible = True Picture1.Visible = False End If pic_flag = Not pic_flag End Sub
在按钮点击事件中写入: static BB as boolean if bb=true then picture1.picture=loadpicture(文件名1) picture2.picture=loadpicture(文件名2) bb=flase else picture1.picture=loadpicture(文件名2) picture2.picture=loadpicture(文件名1) bb=true end if