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

一个自动更换墙纸的小软件-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用API函数改进ListView控件的显示效果 VB用API函数控制光驱的开关 VB用注册表保存数据(VB函数篇) 有关Tray系统盒的VB API函数 在VB中调用API函数动态改变及恢复屏幕设置 在VB中控制Ctrl+Del+Alt键 在VB中使用API函数 (之二) 在VB中使用API函数 (之三) 在VB中使用API函数 (之四) 在VB中使用API函数 (之五) 在VB中使用API函数 (之一) 在VB中用API实现多媒体 VB怎样用VB在应用程序中调用API VB怎样在DELPHI中使用API函数 指定文件夹-VB资料 VB5中注册控件三法 Bug:维护 Internet Transfer Control 之 Username 及 Pass VB对低层硬件访问控制 HitTest的妙用 -VB资料 ListBox项的控制-VB资料 VB 6.0中类聚集关系的实现 VB6编程中如何获取硬盘分区信息 VB的坐标系统综述 VB调用C程序动态链接库的方法 VB对低层硬件的访问控制 VB软件开发中的错误捕获及处理技术 VB中Combo的一种输入检查制约方法的实现 VB中Winsock控制的UDP协议的使用 VB中的时间处理问题 Windows操作平台下CGI的实现 -VB资料 按下某组键(HotKey)便执行某程式-VB资料 请问怎么用coff2omf,把Strmiids.lib、Quartz.lib、Strmbase.lib转化成BCB可以接受的格式 JDBC for mysql 的使用 -------问题 偶有重回delphi修炼了,当年偶的师傅还在吗?老千,老鱼,chech,小新,老鬼,你们过的怎样?? 你现在正在看的这种页面如何实现? 我很喜欢delphi,但老板要我转学单片机,请兄弟们说几句,是福是祸?up、gz有分! vb的安装问题 请问如何在两个数据库之间进行联合查询? 迷 !!!!!! 天使的旁边是魔鬼 数据集排序问题 哪里有 MS viso 下载,谢! 用DATAREPORT设计报表,这个怎样设计? ASP写的计数器程序问题 天女散分:process basename 中文叫什么,进程什么名? 数据库句柄清除问题 请问我用JBuilder + weblogic61 编写的 EJB,在我拿到别的地方部署,是不是只拿 XEjb.jar和客户端 就行了? 如何让两个byte类型的变量a和b进行异或(^)操作,然后将结果存入另一个byte中? 我也来一个关于ACCESS的问题,高分请教。在线等待 CDC问题:怎样从屏幕尺寸转换到厘米呢?反之呢? VC中如何给动态产生的控件写事件方法?在线等! 》》怎么没有人解决这个问题呀,谁解决,我给分!!!!! 为什么快捷方式不能用? ★★★有没有像“delphi属性编辑框”一样的控件或是源码(100-1000分)★★★ 谁有RealPlay格式详细信息 500分求救! 请问大家那里有jrun 4下载 如何自己析构单文档模板? MASM32中标号的疑问 这个错误该如何改 关于在OUTLOOK中如何自创模板的问题? com系列丛书那里有卖 一个关于鼠标事件的简单问题 为什么我在JSP中能得到TEXT文本中的数据,却得不到在SELECT中的数据呢? 求救!为什么我的ACESS数据库文件会莫名其妙的达到25M,我还没输任何数据呢?而生成MDE后只有500K? 我要一个功能强大的弹出日历 Viva La Costa Rica! 我再也不看Chinese Team的比赛了! 如何做jar包呢?还有如何做bak呢?大家救救我吧。 《inside the c++ object model》问题 这句是什么意思??? 问一个Win2000Server域用户客户端登陆问题。 小问题:在线等待:) 如何删除一个ini文件中的关键项目?急 求救!为什么我的ACESS数据库文件会莫名其妙的达到25M,我还没输任何数据呢?而生成MDE后只有500K? 求教关于c++builder的图象预处理的源代码。50分!!还有金钱相送! access的问题 郁闷!!关于数据窗口一个奇怪的问题!! 如何实现断点续传 寻求《软驱监控程序》!!!!!!!!!!!!!!价格面议 用imp恢复数据库,要做什么准备呀? 刚才给分失败,重新散分! 关于SQLserver数据库和MDB数据库的句语问题!!! 求文档: 秦朝是如何做到“法令一出”,天下之事无大小,皆于上”的 中国什么时候是奴隶制 纯牛奶是纯净物吗 秦朝初年 法令初一 天下之事无大小皆诀于上 上指 周朝建立,武王克商的时间是公元前1066年的说法的原因?夏商周断代工程公布的《夏商周年表》,周朝建立,武王克商时间是前1046年.所以《新华字典》10版写的:周朝是始于 前1046年.而在《夏商 化学中牛奶是纯净物吗? 司马迁说,法令出一 ,天下之事无大小,皆决于上.说说司马迁这样评论秦朝政治的理由 周朝建立,武王克商时间公元前1066年的说法的原因?夏商周断代工程公布的《夏商周年表》,周朝建立,武王克商时间是前1046年.所以《新华字典》10版写的:周朝是始于 前1046年.而在《夏商周年 公元前1046年( )伐纣灭商.建立周朝. 秦朝在今天的珠江流域一带设置的三个郡,并简要说明朝郡县制度的职责 公元前一零肆六年,周武王伐纣灭商,建立周朝,史称什么 牛奶为什么不是纯净物 在醋酸电离的过程中,加入碳酸钠后,为什么氢离子数量减少,导电能力减弱 中国封建社会平均多少年换一个朝代? 大约公元前1046年,周武王灭商,建立西周,至今大约多少年? 向醋酸中加入碳酸钠,和向碳酸钠中加入醋酸有何不同? 中国封建社会有几个朝代?具体时间? 英语翻译cang yeu cang buon~xin loi kong co tinh roi,em chuc anh hanh phuc ,vui mung!trinhvanchin 兄 还有这 chung ta phai vui mung ,hanh phuc! 怎样用万用表的电阻档判断是否通断,短路,烧毁等 中国封建社会的最高峰是哪个朝代 英语翻译这就交给我吧这句话越南语怎么说用越南语输入甚好 如何判断保险丝断了(是微波炉没电,家里没有万用表) 我国的奴隶制时期是哪个朝代学历史的时候一直懵懵的...我国有过像罗马那时侯的奴隶买卖的朝代吗/?是哪个朝呢?我国又是从什么时候从奴隶制过渡到封建制的呐?请大家帮帮忙了~~~ 越南语谁会啊帮下忙看看chog yeu e xjn loj vj tat ca e rat yeu a va cug thuog bo me nhug e ko co cach nao khac nen e dah phaj xa a mot thoj gjan hay thu loj cho e e yeu a chog yeu cua e e yeu a 万用表的保险可以换成自恢复保险吗?200ma 250v的 中国第一个出现奴隶制的王朝 此虫叫啥名? 用万用表测电压,结果冒火花,保险丝也烧了,怎么回事?昨天我开灯,由于灯泡老化,灯泡一下子就烧掉了,而且保险丝也烧了.保险丝弄好以后,我用万用表测插座的电压,结果冒火花了,保险丝又烧 牛奶是不是混合物 氢氧化钙与硫酸反应方程式 万用表里200mA250V的保险管烧断了,可否用3A 250V的代替万用表里200mA250V的保险管烧断了,找不到一样的保险管,能用其他型号的代替吗?,3A 250V的可以吗?,目前市场上只标有250V的保险管电流是多大? 纯牛奶属于是混合物吗 硫酸铁与氢氧化钙反应方程式是不是FeSO4+Ca(OH)2+Fe(OH)2+CuSO4沉淀 我国古代皇帝制度的主要特点有哪些? 为什么说牛乳是混合物? 周朝建立,定都镐京,又称( ),史称西周.又称什么? 皇帝尽并兼天下诸侯后采取怎样的措施来管辖原来诸侯领地的 一车行驶了200m收到的阻力为648N,汽车产生的功率是72KW,求牵引力是多少 周朝定都在镐,镐是如今的什么城市,要第三单元的.最好全是选择题.长安县是如今的西安吗神仙姐姐你回答很好,不过西安更适合。 偏铝酸钠、氯化钠、碳酸钠和硝酸银能否用一种试剂就可加以区别? 受到的阻力是车重的0.05倍,诺行驶100km,汽车牵引力所做的功为多少? "牛奶是一种均匀而稳定混合物"这句话对吗? 中国的春秋战国时期是奴隶制社会吗教科书上说人类社会都要经历奴隶制阶段,但我感觉中国古代好像一直没那么多奴隶吧,春秋时期的老百姓不是都很自由吗,不是叫庶民吗 用硫酸铝制取氢氧化铝为什么不用氢氧化钙 周朝兴起并定都于哪个流域 中国奴隶制社会的起源与西方奴隶制社会的起源是公元前几年?西方奴隶制社会是起源于古埃及,公元前3500年还是公元前3000年?中国奴隶制社会是起源于夏朝,公元前2000年吗? 氢氧化钙与氯化铜反应的离子方程式,氢氧化钙为什么要拆成离子? 谁会越南语的,快来帮下忙.我这里没一个人懂,拿着邮政的EMS单子,不知道该在哪里写,Nguyen Thanh Hai.So 7 I e duan,Cua nam,Hoan Kiem dist.Ha noi.Viet man.Tel,0913540876上面这段话可能是写的一个地址,我要照着 中国是不是奴隶制社会? 周武王在——(今河南新乡)大败商朝军队,商朝灭亡 我国封建社会就开始出现有掌管军事的部门--兵部,最早设立兵部的是( ). 在一定温度下,冰醋酸加水稀释过程中溶液的导电能力如图所示,请回答:若实验测得c点溶液中c(ch3cooh)=0.1mol/L,c(ch3coo-)=0.01mol/L,则该条件下ch3coohd的电离常数 熔融态的氢氧化钠是强电解质吗? 足量的碳酸镁和足量的碳酸钙与质量都为10g的稀盐酸反应生成二氧化碳谁的多?(不考虑碳酸镁溶于水)追问我是初中生,我认为稀盐酸质量相等所以产生二氧化碳的质量相等,因为不确定碳酸 关于新型玻璃的作文 2ml冰醋酸逐渐加水(过量)导电能力逐渐增强吗?还是先增强后减弱? NaCl溶液赫然熔融的NaOH哪个是电解质 法令出一,别黑白而定一尊,天下之事无小大皆决于上,从这可以看到皇帝制度什么内容? 中国的原始社会 奴隶制社会 封建主义社会 资本主义社会 社会主义社会 共产主义社会时期起止阶段如题不要从网上截的,没工夫去看 大理石是不是电解质 烧碱是不是电解质
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘