Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click PictureBox5.Visible = False If PictureBox4.Visible = False Then PictureBox1.Visible = False PictureBox2.Visible = False End If 我想让图片五先隐藏 满足条件让 图片1,2 隐藏 但是我想让图一图2隐藏缓两秒执行隐藏
Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click PictureBox5.Visible = False System.Threading.Thread.Sleep(200) If PictureBox4.Visible = False Then PictureBox1.Visible = False PictureBox2.Visible = False End If
private event ChangeImgE()'事件型的委托private sub loaded()handles me.loadedaddhandler me.changeimge,addressof changeimg '添加事件的处理end su bp rivate sub ChangeImgS()'逻辑代码在此threading.thread.sleep(200)PictureBox1.Visible=falseEnd subprivate sub ChangeImg()'用这个。把private改成public,public shared即可跨类使用。dim thr as new threading.thread(addressof changeimgt)thr.startend subprivate sub revent()raiseevent changeimgeend subprivate sub changeimgt()revent()end sub