有谁看看这个VB程序有什么错误

来源：百度知道 编辑：UC知道 时间：2024/05/22 00:50:01
Private Sub Form_Click()
Picture3.Picture = Picture1.pictuer
Picture1.Picture = Picture2.Picture
Picture2.Picture = Picture3.Picture
Picture3.Picture = LoadPicture()
End Sub

Private Sub Form_Load()
Picture1.Picture = loadPictuer("D:\photoshop\110661c3745.jpg")
pictuer2.Picture = loadPictuer("D:\photoshop\1107240a5a9.jpg")
End Sub

当我运行的时候它显示 编译错误：子程序或函数未定义

Private Sub Form_Load()
Picture1.Picture = loadPictuer("D:\photoshop\110661c3745.jpg")
pictuer2.Picture = loadPictuer("D:\photoshop\1107240a5a9.jpg")
End Sub
Private Sub Form_Load()显示的是黄色
loadPictuer显示蓝色

Private Sub Form_Click()
Picture3.Picture = Picture1.pictuer '最后一个单词拼写错误
Picture1.Picture = Picture2.Picture
Picture2.Picture = Picture3.Picture
Picture3.Picture = LoadPicture() '括号内应该有""
End Sub

Private Sub Form_Load()
Picture1.Picture = loadPictuer("D:\photoshop\110661c3745.jpg") 'loadPictuer拼写错误，应该是loadPicture
pictuer2.Picture = loadPictuer("D:\photoshop\1107240a5a9.jpg") 'loadPictuer拼写错误，应该是loadPicture

End Sub

注意控件名及属性的正确写法：
Private Sub Form_Click()
Picture3.Picture = Picture1.Picture
Picture1.Picture = Picture2.Picture
Picture2.Picture = Picture3.Picture
Picture3.Picture = LoadPicture()
End Sub

Private Sub Form_Load()
Picture1.Picture = LoadPicture("D:\photoshop\110661c3745.jpg")
Picture2.Picture = LoadPicture("D:\photoshop\1107240a5a9.jpg")