Private Sub Form_Click()
If Text1 = 1 Then Image1.Visible = True
End Sub
Private Sub Form_Load()
Image1.Visible = False
End Sub
也可以用timer控件实现自动控件。
1.设置Visible属性
2.控制width,height
3.先用其它控件遮住,符合条件时移开该控件
.……
Private Sub Form_Load()
Image1.visible=false
If (设条件) Then
Image1.visible=true
End Sub
方法如下:
1、在适当的时候设置Visible属性;
2、在适当的时候给ImageUrl属性赋值。
以上方法能够很好地提高运行效率。