甘肃农业大学信息科学技术学院：Visual?Basic?程序设计（二）：Example-2

【例2-3】 图片框中LoadPicture函数的应用。
Private Sub Command1_Click()
Picture1.Picture = LoadPicture("D:\zhumlm.jpg") '加载图片
End Sub
Private Sub Command2_Click()
Picture1.Picture = LoadPicture("") '删除图片
End Sub
【例2-4】 执行如下程序段后，命令按钮分别显示如图2.11的状态.
Private Sub Form_Load()
Command1.Picture = LoadPicture("CLOCK05.ICO")
' 程序启动装入 图标
Command1.DownPicture = LoadPicture("KEY04.ICO")
' 鼠标按下装入 图标
Command1.DisabledPicture = LoadPicture("MSGBOX01.ICO")
' 按钮无效装入 图标
End Sub
Private Sub Command1_Click()
Command1.Enabled = False
End Sub