VB工程---实例72--下拉式菜单

Option Explicit
Private Sub Form_Load()
With lbl1
.Visible = False '没有注意到前面的"." 犯错了 以后记住
.Left = (pic1.ScaleWidth - lbl1.Width) / 2 标签框在图片框中水平居中
.Top = (pic1.ScaleHeight - lbl1.Height) / 2 标签框在图片框中垂直居中
End With
End Sub

Private Sub mntext_Click()
lbl1.Visible = True
pic1.Picture = LoadPicture()
End Sub

Private Sub mnupicture_Click()
pic1.Visible = True
lbl1.Visible = False
pic1.Picture = LoadPicture("F:我的图片风景图片Tulips.jpg")
'相片路径不会输入，只用粘贴复制即可
End Sub

Private Sub mnupt_Click()
lbl1.Visible = True
pic1.Picture = LoadPicture("F:我的图片风景图片Tulips.jpg") '加载图片
End Sub

Private Sub mnuquit_Click()
End
End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!