自动更换墙纸的小程序
弹出通用对话框(打开文件)
ComOpen.ShowOpen |
如果选择了墙纸图片则把图片的路径添加到列表框中去
Listfile.AddItem ComOpen.FileName End Sub |
当“退出程序”按钮被按下时,退出
Private Sub CmdExit_Click() Unload Me End Sub |
窗体加载时
Private Sub Form_Load() |
共7页。 9 1 2 3 4 5 6 7 :
Tags:
作者:佚名评论内容只代表网友观点,与本站立场无关!
评论摘要(共 0 条,得分 0 分,平均 0 分)
查看完整评论