Private Sub 圖片1_Click()
MDIForm1.Picture = LoadPicture(App.Path & "\image\1.jpg")
MDIForm1.Show
End Sub
Private Sub 圖片2_Click()
MDIForm1.Picture = LoadPicture(App.Path & "\image\2.jpg")
End Sub
-------------
沒反應
另在Mdiform1如何讓圖片autosize
MDIForm1.Picture = LoadPicture(App.Path & "\image\1.jpg")
MDIForm1.Show
End Sub
Private Sub 圖片2_Click()
MDIForm1.Picture = LoadPicture(App.Path & "\image\2.jpg")
End Sub
-------------
沒反應
另在Mdiform1如何讓圖片autosize
全站熱搜
留言列表