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

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


实现超级链接-Delphi资料 实战Delphi数据网格色彩特效 使dbgrid的某几笔资料变色-Delphi资料 树形图(Treeview)的使用概述-Delphi资料 透明FORM-Delphi资料 为列表框添光彩-Delphi资料 限制FORM的大小-Delphi资料 用Delphi开发分隔线组件 用Delphi设计拨动、跳线开关组件 用Delphi 设 计 拨 动、 跳 线 开 关 组 件 用Delphi实现JPEG格式图像的显示 用Delphi制作动态有声标签 运行时生成控件-Delphi资料 在DBGRID中实现COPY、PASTE功能-Delphi资料 在Delphi程序的About窗口中建立URL连接 在Delphi中利用Tbatch组件完成数据批处理 在Delphi中巧改窗体文件实现控件数组化 在Delphi中实现不同风格的SPEED和BUTTON 在Delphi中实现类似VB中的控件数组。 在RichEdit中的串查找-Delphi资料 在按钮中快速启动程序-Delphi资料 怎样读出MEMO控件的当前值-Delphi资料 怎样使用Delphi 5中的TExcelApplication操纵Excel 97/2000 怎样在TDataset中汉英混用-Delphi资料 制作可移动的窗体的MovePanel控件-Delphi资料 制作可移动的分割窗体-Delphi资料 制作用于日期时间型字段的DELPHI数据感知控件 制作主窗口显示前的版权窗口-Delphi资料 状态条插入可视控件-Delphi资料 做动态显示的控件-Delphi资料 做一个OpenGL控件-Delphi资料 我的FLASH在没有装FLASH的IE怎么不可以自动下载FLASH? linux 断电后,启动失败,该如何处理!? 初级菜鸟问题,求助 终于解封了,多谢没头脑,偶以后再也不倒粪和刷屏了! 各位大侠,救命!亟待解决! 如何使一个数据库用户的所有对象只读,不可写? 有没有DOS很熟的仁兄?纯DOS下和WIN NT4.0联网 怎样动态生成一个adoquery,并能进行数据库查询,小妹急用,100分奉上 怎么转换这个SQL Server的存储过程为oracle的 多语言数据库的应用程序,象DBGRID字段里的这些标题我应放在哪里好? 最简单的语句,最奇怪的问题。&&&&&&& 在线等待!!! D3D的简单问题 如何控制LineTo划线的颜色和宽度? 高分求《面向对象分析与设计》杨正甫编这本书下载地址。。。 学习DELPHI用铁道出版的乔林《参透Delphi/Kylix》 如何? 请问是否有比较简便的方法可以知道,程序中哪些变量定义完后根本不用? 按钮提交并链接不同页面的问题。 简单的问题 请教VC++高手:在MFC中,如何把剪贴板中的位图按原比例打印出来? 分不够再加! 怎么样在vb中读取bmp的位图信息,将图中所有黑颜色的象素 谁在20分钟内答出以下问题能拿高薪 如何修改注册表的键的默认键值? WINXP开始运行宽带播号程序缓慢,什么原因? newwish2 给我一个例子,邮箱:make_a_wish@163.com!!!着急呢!! evc4.0中文显示的问题! struts--html:select 为何出不来? 讨论:关于WinXP下开发的COM+的分发问题!! 菜鸟的小问题!! 一个关于东芝笔记本的故障 请问JBuilder错误提示:cannot access directory javax\mail at line 7, column 1 CSDN的速度越来越慢了,来这里的高人也越来越少了! 有没有DOS很熟的仁兄?纯DOS下和WIN NT4.0联网 小小问题!!! 困扰我多时了。。。 sybase 在程序中连接的问题。急,我咨询Sybas公司也不行。 按钮茶馆开张啦,有闲的进来聊天吧~ 小問題 PhoebusApollo(sunny) 你说要开贴,又没分,我有,给你100分,进来领吧!呵呵,不用谢!:) 关于DBGridEh排序的问题,急急急!!! ora-12224错误,tns no listener错误 !在线等待 ,急~! 求助jb9的破解 报表问题,急呀,救命呀~~~55555~~~~ 500分求解决一个问题 在线等待 解决立即给分 2003下为什么我的声卡不能用? 在程式AAA.PRG中如何修改表的字段的類型,比如字段C類型改為N類型??很急!!! 为什么有时候成员函数或变量显示不出来 救命!我在程序中使用webbrowse控件………… 在线等待。 也许是一个很简单的问题! 连接mysql出错 寻关于工控的中英文对照资料 想在暑假打工(计算机方面的)需要什么条件啊? 关于SQL SERVER的疑难问题!来者有分!(在线等待!分数不够可以再加) 4秒末的瞬时速度与第4秒内的平均速度是一回事吗?大小相等吗? 秋月月月月台上赏月 夏天天天天井中聊天 这副对联综合运用了( )和( )格式,读来非常有趣. 已知角∠2是∠1的三倍,∠3比∠1大20度,求∠1,∠2,∠3各是多少度. 精确数位与有效数字问题1、请帮忙回答下面几题的精确数位和有效数字:(1)5千万(2)5000万(3)5*10^3万(4)5.000*10^3万(5)5*10^3(6)5*10^-3万2、有效数字的定义:从左边第一个不是零的数字直到有效数 秋月月月月台上赏月 夏天天天天井中聊天 .怎么读?请用||画出停顿 PS画线问题请问PS里 中间这条线怎么弄出来的..新手 PS CS3(我按U键里的直线工具 画出来的线好粗 也不知怎么调粗细..) 缩句可爱的小演员差点在台上跌倒 缩句是啥呀?急 仿写;秋月月月月台上赏月 夏天天天天井中观天 文段:Someone boughts a shirt,a bag and a jacket.问:How many kinds of clothes has he bought.(请问bag是否算是clothes)A:2 B:3 一般地怎样确定两个近似数的和所精确的数位答好了,答不好,没分 秋月月月月台上赏月 (1)胎儿在母体内发育的场所是 [③] ____________________ .(2)胚胎发育初期由______________________(1)胎儿在母体内发育的场所是 [③] ____________________ . (2)胚胎发育初期由______________________ 提供营养; 胚 精确数位与有效数字30/19精确三位有效数字 如图,设a.b.c.d∈R,求证,对于任意p.q∈R,有: 以胎儿角度来诉说的九个月在母体内发育的过程的作文!我需要一篇以婴儿角度来诉说的九个月婴儿发育的过程~ 在哲学上来讲,什么事因果联系啊? 关于解析几何方法理论上是否所有平面几何问题都可以用解析几何建系方法解决?举个例子,比如梅内劳斯定理和塞瓦定理,托勒密定理等 胎儿在母体内为什么不发育我老婆怀孕俩月了可到医院检查说胎儿根本没长.就是说没原始脉动.求求各位好心的大哥大姐有关这方面的知识帮帮小弟. 已知:如图,菱形ABCD中,角BAD=120度,动点P在直线BC上运动,作角APM=60度且直线PM与直线CD相交于...谢谢大家了 这世界上到底有没有哲学的存在,是不是哲学这东西就像人们遇到不能解释的事情一样,只能用很虚幻的东西解 培优班补习班用英语怎么说 如图,菱形ABCD对象线相交于O,∠ABC=120°,P为对角线AC上的一点,∠MPN的两边PM、PN与菱形边AD、CD分别相交于M、N,且∠MPN=60°(1)当点P与点O重合时,求证:AM+CN=跟号3 AO(2)点P在线段OA上(不与点A 哲学上为什么说世界上没有绝对静止的事物?老师上课讲的没听明白 汉阳王家湾这里哪里有新灵通英语培优班班,效果要很好的那种! 我想她们会和我一样喜欢你的.翻译成英文 描写人物,动作,神态,语言的句子 1.写出下列字母相同读音的单词.例:b(bag)c( ) r( ) y( )2.下列句子使用标点正确的一项是:( )A.Jim says."Whose book is this?"B.Is this a computer or a TV.C."A little Red Hen" is my favourite book.D.There is 英语翻译下周TALK SHOW,我想念给全班人听一次次翻看你发来的短信,我确定我在乎一次次打开你的空间,我确定我在乎一次次因你更新日志,我确定我在乎因为你一句不经意的话,心情跌宕起伏,我 任何两个数位之间的进率都是10?是对是错? 耀斑与太阳黑子是否具有同样的周期变化 求概率密度 谢谢😊第六题 在三角形abc中 a=c+90度,sinA+sinC=根号2sinB求角C 求1,1+2,1+2+3,1+2+3+4,...1+2+3+4+...+n,...的前n项和 ssat 测试题谁有ssat模拟题, 精湛是什么意思 1+1/2+1/3+1/4+…+1/n的前n项和 ssat练习题 幂函数,a为根式时图像规律 1+1/2+1/4+...+1/2^n为什么是N+1项 求积分,第二题和第三题,学到分部积分时老师留的作业, 精湛的意思急 一道初二的关于完成时的英语题.快.People ( )(build) a school in the town last year.用括号里的正确形式填空.说清楚用一般过去时 还是现在完成时还是过去完成时 为什么求概率密度就是求所在区域的积分面积? "精湛"的意思. 今天物理考试 地球上的重力为9.8牛顿,火星上的为3.78 一个重60kg的人在地球上最多可以100kg的物体 请问他到了火星可以举起多少重的 考ssat可以背哪些书?手头上都是和tofel有关的(词以类记之类的),ssat对于单词量要求比tofel高还是低? “精湛”是什么意思还有“古朴” 第25届"楚才杯"作文竞赛的成绩出来了没有?在哪可以看?我要直接可以进的! 推荐几本考ssat的练习还有考ssat要注意些什么,麻烦说详细点、 精美的意思是什么 a的(2n-1)项的上一项是(2(n-1)-1)即(2n-3)还是(2n-1) 我国近10年GDP详情要求从2000年开始,详细列举各GPD结构组成,详细程度如:2004年文化产业收入占GDP的2.15%.高估了.嫌分少我再加 java判断一个数位数及是否是回文数 An=(2n-1)/2∧(n-1)求其前n项和 急 以山为话题写作文要散文的哈! java判断一个数位数及是否是回文数.doc 英语翻译 关于哲学与命运,因果的关系我现在有一个认识不知道究竟属不属于哲学范畴请老师前辈们指点就是关于命运,因果报应是属于哲学的还是宗教的.我一直相信所谓的因果报应,在我哲学观中 人 在三角形ABC中,角A,B,C的对边a,b,c,cos二分之C的平方=二分之根号三sinC.求角C的大小 英语翻译如上 日本新保密法引政治纷争 被称是修宪的31省区市9月CPI涨幅出炉 物价“湖南长沙岳麓书院竹林被刻字“我想象中的中国游”秘鲁少儿绘画比赛第九届北京—东京论坛在北京开幕福岛近海发生7.1级地震 最大观察到德国高层代表团将赴美 跟进默克尔被窃浙江监测教育质量评价 5万余名学生“浙江“稻鳖模式”开启生态农业之门浙江民营经济隐现离制造业化 地产投资习近平:让命运共同体意识在周边国家落故宫员工杀2名同事后自杀未遂 警方未浙江民营经济企稳 出口增速重回金融危尼日利亚军方与极端组织极端组织交火打数土文夫:日中关系应回到邦交正常化的俄印蒙三国总理联袂访华 中国周边外交大湄公河次区域经济合作发展与我国经济哥伦比亚妇女售卖12个女儿“初夜权”白俄总统错坐普京座位 发现后起身让座李娜击败阿扎伦卡 首次跻身WTA总决拉美和加勒比能源部长会议关注能源安全被“催婚”了 我们和你一起想办法“银行工作人员” 使歪招新华都联手阿里巴巴布局电商吸毒致幻 男子冲进派出所客车侧翻乘客伤 过路车主帮送医乌反对派称将封锁总统府街区 基辅最后告诉我们 您心中的好医院好医生政绩考核 不以GDP为主要指标福州不少人藏有连体钞中方:日方混淆是非攻击中国城港大道与莆兴路交叉路口 路面破损严危险!马路当成溜冰场年关将至小心“油耗子”雾霾过后多吃清肺食物9注号守十年 终擒98万元大奖渣土堆挡道驾车遇查出示“无头”驾照行政窗口有“隔断” 市民称不便多样化种植种出“别墅村”四川泡菜冒酸水:千年历史忘了参赛昆明中小学体育课被挤占现象好转 不再
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘