跪求答案,在线等待,不够可加分
xuyu8 2003-10-17 02:42:56 使用以下方法在窗体中动态创建一个PictureBox,并在PictureBox中动态创建一个Label,但此时Label确看不见,哪个高手帮忙看看以下的程序,谢谢.
Dim ctlNew As Control
Dim ctlNew1 As Control
Set ctlNew = Me.Controls.Add("VB.PictureBox", "picNew")
ctlNew.left = 0
ctlNew.top = 0
ctlNew.Width = Me.Width
ctlNew.Height = 200
ctlNew.Visible = True
ctlNew.AutoSize = True
ctlNew.BorderStyle = 0
ctlNew.Picture = LoadPicture(App.Path & "\icon\pic.jpg")
Set ctlNew1 = Me.Controls.Add("VB.Label", "LabelNew")
ctlNew1.Caption = Me.Caption
ctlNew1.AutoSize = True
ctlNew1.BackStyle = 0
ctlNew1.left = Me.Width / 2 - ctlNew1.Width / 2
ctlNew1.top = 100
ctlNew1.Visible = True
ctlNew1.ZOrder 0