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
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()