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

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


字符串中包含双引号-VB资料 字符串中文的问题 -VB资料 巧用CLIPBOARD建立图像数据库-VB资料 在VB中存取数据库中的图片 Access97的报表解决方案-VB资料 Access下如何使用通用对话框-VB资料 ADO简介 -VB资料 ADO三大对象的属性、方法、事件及常数(二)-VB资料 ADO三大对象的属性、方法、事件及常数(三)-VB资料 ADO三大对象的属性、方法、事件及常数(一)-VB资料 Data 控件使用有密码的 Access 数据库 -VB资料 Excel、Access、VB的结合应用 Microsoft SQL Server 7.0安装问题(二)-VB资料 主题: MDB文件的导出 使用 DAO-VB资料 Microsoft Access秘密、技巧和陷阱-VB资料 SQL的基本操作(1.数据类型) -VB资料 SQL的基本操作(2.数据库的相关操作)-VB资料 SQL的基本操作(3.表的相关操作) -VB资料 SQL的基本操作(4.数据的检索)-VB资料 SQL在VB中的使用及访问远程数据库 Text 转换为 Access MDB -VB资料 VB5.0数据库基础 非编程方式访问数据库-VB资料 VB用编程方式访问数据库 VB 5.0数据库设计技术讲座(4) VB5.0数据库编程经验小集 VB5在处理数据库时的几个“BUG” VB6.0中的几个新增数据库工具 VB处理数据库时求数据表记录总数的最佳方法 VB访问数据库的方案比较 VB数据库编程经验两则 为什么设计时控件的属性不可以修改?在线等候 触发器(ORACLE)!!!!!!!!! 怎样给CTreeCtrl的各项前加上图标?在线等待 如何在ORACLE过程中建立事务? 如何给窗口增加一个timer事件 怎样执行加的对话框 public变量怎样声明 任何用beginthread写这段代码? 欢迎捧场,一个mm的论坛 windows2000 Professional作服务器可多少人同时访问? 在web应用程序里使用System.Windows.Forms.MessageBox.Show? 100分求助!Delphi中如何open一个含游标Oracle的过程,为什么总是“Error creating cursor handle” 关于数据库连接池的使用问题? 急,急,急,ODBC连接错误 怎样判断一个文件是否存在?怎样彻底删除一个文件? 错误处理,关于Exception急等 寻求:《com原理与应用》的电子版下载? 关于页面刷新的问题? 关于网络流量计算,紧急,在线等待,高手请指教 寻mp3控件,要能读取其tag信息. 请问如何将IE分成两部分,左边是一个APPLET写的tree,右边响应树中节点的事件(链接页面)? 如何才能得到本程序的cpu占有率?而不是总的cpu占有率? 如何编程枚举网上邻居 课件招标!!凡是我觉的有帮助的回答都给分!分不够可以再加!!先来100分!! 谁是高手?在线等待,立马给分! 发邮件问题 单挑高手:一个可变的字符串变量记录着类名(classname),怎么样根据这个符串的值创建所含信息的类实例?? 大放分!!!即放即給 一个在桌面上产生雪花的小程序,请帮忙修改。 请教一个程序速度的问题 辽宁沈阳的凯夫集团有知道情况的么? 好书是那本? 再请saucer(思归, MS .NET MVP),你帮忙得问题用你的方法解决了一半,还差一点。 关于界面控键问题! 为什么在设计时控件的属性不可以修改?在线等候 我的ROOT口令忘了,我该怎么办? 在RedHat8.0上安装Kylix3出现的问题?(关于文件包glibc检查出错)??????? VSS: Unable to check out the file <file> because it is already checked out. 一个暴难问题,关于两台电脑通过一个modem上网的问题。谢谢。 谁是高手,立马给分! 如何使ListControl 内容排序? 无法安装sql2000! 关于inport()和outport()的问题! 哪位仁兄手上有灰度图像的傅立叶变换和反变换的程序代码? 请教高手!死机问题 如何可以让网页内容置中显示,不管客户端的分辨率是多少? 大家注意Acrobat 5与BDE有冲突!! 怎样向客户端输出数据 如何判断一个变量是否定义过?使用if(var)的方法不行,报错 Interbase树形结构和递归调用问题,高手请进!!急!!!! 有谁知道哪有pb8.0汉化版出售。本人是个十足的英语盲! 魏大勋被曝插足马苏孔令辉恋情郭美美见导演 欲进军娱乐圈拍电影梦鸽工作被叫停 总政歌舞团否认此说法赵忠祥捧杨钰莹上春晚 称其当春晚主持男子遭34车碾身亡 涉案车辆无一救援不让学生社交 日本京都大学餐桌设隔板美国:即便英国拒绝也会寻找其他叙利亚日本柔道黑带女站务员过肩摔 撂倒逃票澳洲一所小学报晓公鸡失窃 民众捐23洪水冲走一切 西伯利亚棕熊闯民宅找食白宫称必要时将自行提供叙利亚行动合法欧洲央行欲引入性别配额制度 女性高管美国税局严打避税 瞄准有海外退休计划印度成功发射首颗国产国防卫星澳洲全职爸爸10年翻一番 “主夫”工洪水冲走一切 西伯利亚棕熊闯民宅找食澳洲一所小学报晓公鸡失窃 民众捐23日本柔道黑带女站务员过肩摔 撂倒逃票不让学生社交 日本京都大学餐桌设隔板西班牙\"西红柿节\"首次收门票微信故障引争议 对服务器承载力质疑中消协:46.4%受访者称网购维权渠江苏代表关注省界边缘部分地区未通高铁“两高”报告赞成率均为91.83%,警惕日本怪胎战舰进南海 它的危害比美全球最大铜矿罢工 工会再度拒绝重启谈与你有关的这20件大事,现在都有说法惠东首届中国冬种马铃薯之乡旅游文化节洋码头开启“3·16洋物节” 引领品以车会友 云联汽车俱乐部自驾游美高官:奥巴马\"重返亚太\"战略\外媒:中国在内蒙部署天波雷达 探测半学习时报刊文纪念王震逝世24周年确保2020年形成一部具有中国特色、蔡英文掌中华文化总会“冻”中华?云姨夜话|因为那件事,他开着奔驰种下邮乐如何将农村小店转变成世界最大的零土耳其政治家为报复荷兰 欲砍下荷兰牛余秋雨:歌德只读过《风月好求传》,这金湖国际半程马拉松奖牌公布 荷花主题“十三五”期间 重庆城镇社区养老服务重庆白居寺长江大桥主塔桩基础施工全部
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘