跪求答案，在线等待，不够可加分

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

...全文

21 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

changechange 2003-10-18

打赏
举报

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 = 400
ctlNew.Visible = True
ctlNew.AutoSize = True
ctlNew.BorderStyle = 1
'ctlNew.Picture = LoadPicture(App.Path & "\icon\pic.jpg")
Set ctlNew1 = Me.Controls.Add("VB.Label", "LabelNew")
ctlNew1.Caption = Me.Caption
Set ctlNew1.Container = ctlNew '把label放到picture中
ctlNew1.AutoSize = True
ctlNew1.BackStyle = 0
ctlNew1.Left = Me.Width / 2 - ctlNew1.Width / 2
ctlNew1.Top = 0
ctlNew1.Visible = True
ctlNew1.ZOrder 0

changechange 2003-10-18

打赏
举报

Private Sub Form_Load()
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", ctlNew)
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

End Sub