说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

一个自动更换墙纸的小软件-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
一个自动更换墙纸的小软件-VB资料


烟台电信局多媒体信息分局 潘建明
  这个小软件的功能,自然无法同久已成名的WPC(wallpaper changer)相媲美,但由于是自制的,用起来又别有一番乐趣。古人言,“独乐”不如“众乐”,所以我拿出来与大家共享,又希望能让初学者对于VB编程窥见一斑。

  这个小软件所用控件仅一列表框,两文本框,两标签,两命令及一定时控件而已。

  源代码:

Declare Function SystemParametersInfo Lib "user32" _
  Alias "SystemParametersInfoA"(ByVal uAction As Long, _
  ByVal uParam As Long,ByVal lpvParam As Any,ByVal fuWinIni As Long) As Long
Dim flag As Boolean
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1 
'update Win.ini Constant
Const SPIF_SENDWININICHANGE = &H2
'update Win.ini and tell everyone

Private Sub CmdCancel_Click()
  flag = False
  Textpath = ""
  Textintval = ""
  Listfile.Clear
End Sub

Private Sub CmdOK_Click()
  Dim temp As String
  temp = Textpath.Text
  If temp = "" Then End
  If Right$(temp, 1) <> "\" Then
    temp = temp + "\"
  End If
  Listfile.Tag = temp
  temp = temp + "*.bmp"
  temp = Dir$(temp)
  While temp <> ""
    Listfile.AddItem temp
    temp = Dir$
  Wend
  Listfile.AddItem "None"
  Show
  Listfile.ListIndex = 0
  If Listfile.List(0) = "None" Then
    flag = False
  Else
    flag = True
  End If
End Sub

Private Sub Form_Load()
  flag = False
  Timer1.Interval = Val(Textintval.Text)
End Sub

Private Sub Timer1_Timer()
  Dim temp As String
  Dim bmpfile As String
  If flag Then
    temp = Listfile.Tag
    bmpfile = temp + Listfile.List(Listfile.ListIndex)
    SystemParametersInfo SPI_SETDESKWALLPAPER, 0, bmpfile, SPIF_UPDATEINIFILE
    If Listfile.ListIndex = Listfile.ListCount - 1 Then
      Listfile.ListIndex = 0
    End If
    Listfile.ListIndex = Listfile.ListIndex + 1
  End If
End Sub


开发者热议异构统一内存访问技术(hUMA) 千万级并发实现的秘密:内核不是解决方案,而是问题所在! Apache RewriteRule重写规则语法入门 IDC:2013 Q1 Android和iOS出货量占92% WP首超黑莓 传雅虎欲10亿美元收购轻博客网站Tumblr A Beautiful Mess:如何赚男人女人的钱 CSS、JavaScript开发者必备的10款最佳工具 IBM推出API管理平台 抢占API经济市场份额 2013中国云计算榜单之一:15云平台,谁主沉浮? 移动周报:百万壁纸、85后程序媛,我为梦想代言! 电信天翼开放平台:为App开发者免费提供云存储和云主机服务 Google新的Web UI库:Ploymer 研发周报:让开发者高效编程的10个新框架 拯救行将就木的PHP:谷歌为GAE添加PHP支持 PPT集萃(一):10位业内高管分享云计算技术理念与行业趋势 得益于苹果谷歌,未来可穿戴技术市场规模可达500亿美元 雅虎11亿美元押注Tumblr三大因素:用户、社交、内容 Perceptual:英特尔感知计算挑战赛 正式启动 吴义坚:创业去!我用深度神经网络,处理语音识别 浅谈用户体验的“反面模式 可穿戴设备又一站:增强现实眼镜CastAR 数字医疗投资将破纪录 投资人看好这些细分领域 Mayer又下一城:雅虎收购Tumblr推进移动化? 前端开发利器:代码预处理工具Prepros 一个轻量级的JavaScript库:Reactor.js [探讨] 用户体验设计师现在面临怎样的机遇和挑战? PPT集萃(二):淘宝、CloudStack等分享的架构经验与最佳实践 2013中国云计算榜单之二:64家云主机+云存储,错综复杂! 看Java技术基础的eBay如何评价他们的Node.js首次尝鲜 Jolla发布首款Sailfish系统手机 无缝兼容Android应用 NPD:全球智能手机出货量2013年将首次超过功能手机 困惑--判断颜色是否相同??? (急急急)寻找:win2000/xp/nt/9x 的可安装文件开发包(IFS Kit),送大分 如何在DB2(V5.2)下面实现表的ID自动增加功能? 帖子结不了,在送300分~~~~~~~~~~ 请问oracle那些版本以上叫8i,常用的是哪个版本,有WINDOWS下使用的吗? 我看过的TOOLBAR 都是横着的,可是我现在想做一个竖立这的TOOLBAR 我该怎么做啊!我翻遍了 CODEGURU 可是没有一个这样的例子! 谁有什么好例子 多谢了!! error C2065: 'end1' : undeclared identifier 我怎么用CreateDialog 建立一个对话框呢! 谁有代码!!多谢!CreateDialog(hInst,LPCTSTR"ID_",hWnd,DlgProc); 送小分:怎样在一个对话框程序中产生一个HWND视窗? 在Windows 2000 Professional 下可以装VS.net吗? 关于文件上传问题 关于微软自己的控件下载问题!! 关于打包的问题 急求答案--请教高手:有关IIS与TOMCAT...... 请问有哪为知道,weblogic提供petstore例子,什么地方有详细说明?? 怎么样利用CHtmlViw将参数用POST的方式提交给WEB服务器 不明白.. 请问遇到连接错误该如何解决? pws的日志在什么地方? 在VBA中如何使用ClipBoard 哪里可以下载mastering delphi 6,或者其他有关delphi6的书籍。 vb和access的问题 C++Builder不支持tif或tiff格式怎么办? 为何我的TQuery为只读? 用Winsock传送文件如何判断一个文件已经传送完毕?(一定给分!) VC程序方法的请教。 请问如何禁用一个页面的cache 不好意思,怎么把引号赋给一个变量?thank 关于字体的保存,用序列化 关于oracle连接的一个简单问题 一个构件地址35分,快快来吧。 如何实现实时监测注册表的变化呢??????????? 如何锁定一个SQL SERVER的表? 哪里有Rose2000? MMGG Redhat7.2Ftp,硬盘安装问题求救! 请问怎样设置phpmyadmin带用户名和密码的登陆界面? 本来打算跳楼的,想想还是先来这试试...... 下面代码有什么用? 想问一下关于BDE和ADO组件的对应关系 就是这本《VC++技术内幕》……哎……我认了…… MSSQL2000 为什么我的log文件拼命往上涨 如何将用jsp得到的数据用javascript显示出来? 关于画声音波形曲线的问题.高手请帮帮忙(效果像flash加入声音时那样) TNND , 连个回复都不行 , 真恶心 (yeti_lee) 信用卡代理网站的可靠性 关于sqlserver联接问题帮一下了在线等待 小问题,高分啦!!:) 真的没有高手么,真的没人会么? 我为了使鼠标指向SpeedButton上时它的Caption颜色改变,在SpeedButtonMouseMove()和PanleMouseMove()中写了代码,但是很不敏感,鼠标移动快一点,就会有延时? 如何在Delphi5种调用windows自身的拨号网络实现点到点通过modem连接 求初1级作文 《真想做个XX》RT XX部分自己填 500-600字左右 以友谊为题的作文 读了《雷锋日记》的读后感》. 我真想XX【作文】已我真想XX为作文题,血一片400字左右的作文 以《珍藏友谊》为题的作文600字 急用 大家帮帮我啊 哪里有读后感,雷锋日记读后感或读雷锋日记有感,雷锋故事读后感的 一般现在时的英语短文My pian for next time 为题的英语短文,60~80词左右就好了, 求作文《这件事真令我自豪》要求:600—700字 读雷锋日记的感受 一般现在时的英语小作文 这件事令我骄傲 作文600字! 作文 友谊 两个人 写两件事 关于“怎么样快乐的生活”的作文从前,有一个牧童,破衣烂衫,每天赶着牛羊刀上岗郊野中放牧,常常放开喉咙唱着歌,他的思想自由自在,放牧的任务也完成的不错.有一天,他拾到了一串钱,装在 作文:一件令我骄傲的事意义深刻题材新颖与时具进一件事体现一个道理 英语作文过度词越多越详细越好 老师让我们写以班级为话题的作文,给我们几个题目,别样生活,美丽生活,累并快乐,如此生活才有意义,一切从这里开始,怎么写,选那个题目,我们每天中午几点来上黑板签到,还有家校联系本,老 我因XX而自豪 作文 600字不要我因祖国,奥运而自豪,这样的作文初二水平在线等 不要直接从网上拉,要拉也要拉好点的 我想要一篇关于“幸福广东”的英语作文,100词左右内个,我是初三的,请知道的朋友打一篇给我,不要发那么长的我是初三快要中考的人了。不要有那么多生词 找一篇题目为《初中生活的几件快乐事》的作文 求作文 令我自豪的一件事 英语写作过渡词过渡句致歉声明 上次发的时候和老妈吵了一架 心情不太好 在此表达歉意 对不起!找20个英语作文中的过渡词例如eventually finally 等等 过渡句一定要是承接上文或引起下文的句 《生活因友情而快乐》600字作文 要求:不少于六百字;有完整的一件事;开头点题结尾扣题:语句优美thanks a lot 读了荷兰散记后怎样理解第五自然段最后一句话 《雷锋日记》4000字的读书笔记 荷兰散记细细长长的运河,清澈如镜,一道一道纵横去来,弯弯的拱桥,多情地把柔美的影子留在潋滟的波光里.干干净净的屋子傍河而立,一幢一幢小巧玲珑,好像是奶油做成的,可爱绝顶.微风过处, 需要六篇英语文章,70词左右的. 求作文 “我和xx比辛苦” 要100字的 荷兰散记阅读理解细细长长的运河,清澈如镜,一道一道纵横去来,弯弯的拱桥,多情地把柔美的影子留在潋(lian)滟(yan)的波光里.干干净净的屋子傍河而立,一幢一幢小巧玲珑,好像是奶油做成的,可 围绕时事热点,1500字.最好围绕高一课本的知识点……跪求~ 帮我提供写英语作文常用的句子. 相当于每篇作文都差不多可以套用的句子,越多越好, 谢谢~ 《荷兰散记》句子理解站在运河旁边,我心神恍惚,根本分不清眼前的一切究竟是真实的景致,还是我不小心掉进了荷兰著名画家 高的名画里.理解这句话的意思 请帮我弄一篇有关评价低碳生活的政治论文?(800字左右)最好能告诉我论文大概的格式及写法 写一句英语作文结尾常用的句子 荷兰散记 (阅读题)细细长长的运河,清澈如镜,一道一道纵横去来,弯弯的拱桥,多情地把柔美的影子留在潋(lian)滟(yan)的波光里.干干净净的屋子傍河而立,一幢一幢小巧玲珑,好像是奶油做成的, 让我 XX 的经历 作文多来几篇. 读雷锋日记有感1000字 作文 最XX的事暑假生活就要结束了,回首暑假生活,你一定有最开心的事,最烦心的事,最搞笑的事,最无聊的事,最有趣的事.采撷其中一“最”,释放自己的心语. 你的xx让我记住了你作文 中国梦,我的梦2000字征文 我为XX干XX(事情)作文写作文我为谁干什么,有米有范文?有就可以发过来.作文内容哈- - 我和xx作文 一百字左右有关友情的短文 求作文 【一件XX的事】600字 以友情为题的作文的题目点评要6个以上的以“友情”为话题的作文题目,并对其中一个题目作分析、点评.如果回答迅速,我再加10分是作文的题目,不是作文。 关于友情的美文标题要好,开头要经典,选材要最好,形式新颖,结构完整,要有作者.我拿来当范文的,另外, 经济生活和政治生活各两篇字数随你们...不要太少就可以了 下面这句话的含义是什么(荷兰散记中的一句话雪花落在运河旁边那一幢一幢色彩缤纷的小屋上,纵然是黑夜,也处处闪着晶莹的光芒.那种美丽,是安恬又宁静的. 雷锋日记续写500字 高一政治有关经济学的800字论文 一篇政治小论文,内容有关高一《经济生活》的,字数要800字以上, 帮我把这篇英语文章压缩小一点,希望在70到90词之间My favourite computer game is called“NEED FOR SPEED CARBON”.It is an interesting and exciting game.The main character is called“Fire GT1”.He is a handsome young man.In this g 政治小论文800字 ,也可以教我怎么写 经济生活 600字求写论文,复制也行,要切合主题.(目前青年人消费状况,消费心理.企业成功途径.国内经济发展) 生命作文 作文 xx使我懂得了xx这类的作文谁会~~发几遍来~~比如妈妈是我懂的了爱~~有吗? 高一政治经济小论文,题目我买年货,或者逛花市800字以上 生命是什么?(作文) xx使我懂得了xx 作文 求一篇100字的英语短文,以日常生活内容!哪们帮帮忙,写一篇不少于100这的英语短文,要求有一般现在时,过去时,一般将来时等时态.简单介始关于自己日常生活为内容! 生命像什么作文
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn