vbµÄpicture¿Ø¼þµÄжÔØ

ÓÃvbµÄpicture¿Ø¼þ¿ÉÒÔ¼ÓÔØpicture¿Ø¼þ,ÀýÈç
Set Picture1.Container = Picture3
ÕâÑù¾Í°ÑPicture1¼ÓÔص½ÁËPicture3ÉÏ,ÄÇôÔõô´ÓPicture3жÔصôPicture1ÄØ?
Çë¸÷λÅóÓÑ°ïæ!лл!!

---

×öÁËÒ»¸öÊÔÑé,½«Picture1»¹Ô­µ½Ô­À´µÄÈÝÆ÷¾Í¿ÉÒÔÁË
VB code:
Option Explicit

Private Sub Command1_Click()
Set Picture1.Container = Picture3
End Sub

Private Sub Command2_Click()
Set Picture1.Container = Form1
End Sub

Private Sub Form_Load()
Picture1.Picture = LoadPicture("E:\½Øͼ\1.JPG")
End Sub

---

VB code:
Private Sub Command1_Click()
Set Picture1.Container = Picture3
End Sub

Private Sub Command2_Click()
Picture1.Left = -1 * Picture1.Width
End Sub

---

ÉÏÃæµÄ´úÂ벢ûÕæÕýÒÆ×ß,Ö»ÊÇ¿´²»µ½ÁË, Set Picture1.Container = Form1
ÊÇÒÆ×ßÁË,µ«Picture1ûжÔصô.Ö»ÊDz»ÔÙÒÔPicture3
×÷ÈÝÆ÷ÁË.

---

ÒýÓÃ

×öÁËÒ»¸öÊÔÑé,½«Picture1»¹Ô­µ½Ô­À´µÄÈÝÆ÷¾Í¿ÉÒÔÁË
VB codeOptionExplicitPrivateSub Command1_Click()Set Picture1.Container= Picture3End SubPrivateSub Command2_Click()Set Picture1.Container= Form1End SubPrivateSub Form_Load()
    Picture1.Picture=LoadPicture("E:\½Øͼ\1.JPG")End Sub

ѧϰ
{{-