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

一个自动更换墙纸的小软件-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


盘点开发者最喜爱的Swift技巧 2017年,开发者还能从移动广告中收获什么? 《近匠》茄子快传,让设备更好地连接 面向移动应用程序的DevOps五大挑战和十个最佳实践 Ruby 2.2.0发布,支持回收Symbol类型对象 听UnitedStack、IBM、HP专家如何谈“OpenStack 存储”技术 专访POWER 8编程挑战赛选手孙冬冬:从C语言到人工智能、深度学习的技术演变 盘点2014:十家最酷的大数据创业公司 盘点2014:最受关注的十大云服务创业公司 基于Kubernetes构建Docker集群管理详解 漫画:编程语言学习曲线 彩云天气: 328万元大奖背后的故事 iOS开发的22个奇谲巧技 谁是最受欢迎IT企业?技术、薪酬、发展空间、创新能力大评比 Jolt Awards 2015最佳编程工具奖榜单揭晓,Cloud9 IDE众望所归! 展望2015:数据中心行业的十大预测 亚信CTO金亚东:传统企业向产业互联网转型的两条路径 微信评论功能开启将成净土还是地狱 如何定位Android NDK开发中遇到的错误 流行从这里开始,MDCC 2014十大人气产品榜单揭晓! 专访POWER 8编程挑战赛选手唐刚:大数据计算永远是主角 微信公众号认证命名松绑,您怎么看? LambdaNet:纯Haskell实现的人工神经网络库 专注模式识别,易道博识为海量信息输入提供便捷之门 【问底】Michael G. Noll:整合Kafka到Spark Streaming——代码示例和挑战 2014年手游和社交游戏行业重要趋势解读 腾讯副总裁罗道锋:共建全国最大安全云库 5分钟内数据精准共享 Connected Cycle 一举两得的智能自行车踏板 CES可穿戴产品前瞻:汽车厂商入局智能手表领域 果断Mark!国外程序员收集整理的PHP资源大全 Google 2015项目前瞻:智能隐形眼镜、Google X、Ara 请大家看过来,apache配置文件是否有错,超紧急求救! 如何让Edit1->Text 等于float类型的变量? 为何提示不能创建对象?急死我了 在对话框类中怎样向视图类发送刷新视图的消息?谢谢 急,在线等!同样的打印程序(套打),为什么在不同的操作系统下面打印的位置有差别,怎么才能做到同一打印程序在不同的打印机和不同的系 DELPHI+SQL 想要怎么学习才能快速成长 哪个前辈指点指点 请你们指教好吗 串口通信问题 一个排序的问题! JBuilder下的编辑问题 急呀!vba高手帮帮忙? 动态类型转换 关于软件测试,测试结论 大家进来说说 如何在当前目录下调出一个CHM格式的文档? 为什么动态增加的WebBrowser1.Align不能为alClient啊? 怎样通过代码实现CTRL+C和CTRL+V的功能? 有两个问题要问,很难的哟,谁来挑战一下!! 在dll中能不能声明一些类,供外部程序调用?能给个例子最好; 各位,请帮我看看! weblogic6.1中配置好了oracle9i的连接池,名为oracle9,但是编程工程中如何使用这个连接池,希望答复!! MSXML2.XMLHTTP 是什么组件? 颜色填充 我要用到GPRS的知识,了解者请赐教! 请问在程序运行期间执行label1.text="***"怎么不变啊! 大家帮我看看,为什么不能选择divx压缩? 打开excel文件时提示“重载open方法未获得1参数” 帮忙写报表查询,我搞不定,请求帮忙!!!比较复杂!!!! 自定义标志的问题 着急! 今天在CSDN上终于变成三个绿色的小三角了,高兴……散分(前十位每人10分)! 如何把一个文件中text的值传到另一个文件中去? 路由器如何设置?? apache2配置文件问题,请大家指点迷 PPS文件用什么软件打开,谢谢! 填充颜色 svhost.exe程序错误 求HOOK例子 php得到xml文档中的中文无法正常显示问题 高手请指教一下思路!!!!!!!! 奇怪的乱码问题!急急!在线等待! 填充算法 今天我过生,放分(来者有分) 日期时间换算问题 填充算法 哪里可以下到SpatialWare for SQL Server 的解密文件 怎么拖动一个控件拖动一个窗口 tomcat4的server.xml配置文件是否有问题,请大家帮忙! 填充算法 谁能给我JDK1.4下载的地址啊?谢谢了,TOMCAT的也要! 请问各位同仁,如何关闭SHELLEXECUTE()打开的应用程序。 有没有图形化的TrackBar! 填充算法 It is a pleasure.用于何种场合? it is my pleasure. It is a pleasure.和It is my pleasure.的意思相同吗?使用场合有何不同?还有with pleasure.和它们两个有何异同. 已知6^a=5,10^b=2,求lg20/lg5 “客何为者”中“何为”的用法 m=lg20-lg0.001=lg=lg20000=lg2+lg10 4 是怎么算出等于4.3 0.5的x次方等于10 我的做法是lg10/ig0.5=lg20 约1.3010 错在什么地方? 近期谁有好听的英文歌呢?Thank you 我女儿小学四年级英语经常考不好,想给她多做做题,有没有练习试卷,在上海上学(上海的书本内容跟各地方的好像不一样) lg20,lg200等于多少 英语不好,谁能帮我提高提高? 李克强:改革已进深水区 必须敢于打破伊朗最高领袖对核谈“不乐观”国际晚班车:外交官的家庭生活国际财经一周大事回顾中国上市公司三季报业绩再涨 四季度增朴槿惠:日本应向德国学习正视历史错误世界主要城市11月4日天气预报萨耶赫:“非洲要重返经济危机前高速发浙江普陀山大型翡翠观音宝像开雕载70人船只在缅甸海域倾覆 已找到8美共和党议员称国安局或监听奥巴马电话云南文博会拍卖推出云南翡翠拍卖第八期褚军:搭建资本优势平台 把握金融市场澳大利亚议员“点燃”河水 呼吁关注环政府机关事业单位首试点标准化物业管理“华光礁1号”沉船特展亮相南京黑龙江:注重农产品营销 加快品牌创建黄土高原上的扶贫人 村民眼中的“自家百色民警利用电信诈骗案侦办平台30分钱乘旦《世界现代化历程》出版 现代化80后大叔这样装修87㎡两居,真是美炒股这12大错误阻碍你赚钱!嗜血为王随身携带个地球不二酒店不灭人王超级时空穿梭机校园如此多娇纵侠天下天下公敌终极狂少混都市绝世仙帝傲视天苍喜庆堂旅游金台寺旅游御温泉旅游南滚河国家公园旅游佤山云海旅游孟林旅游孟府旅游孟庙旅游平水桥公园旅游山海关总兵府旅游莲花湖公园旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘