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

VB工程---实例72--下拉式菜单,第1张

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

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

总结

以上是内存溢出为你收集整理的VB工程---实例72--下拉菜单全部内容,希望文章能够帮你解决VB工程---实例72--下拉式菜单所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/langs/1288291.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2022-06-09
下一篇 2022-06-09

发表评论

登录后才能评论

评论列表(0条)

保存