VB.net 2010 视频教程 VB.net 2010 视频教程 VB.net 2010 视频教程
当前位置:
主页 > 编程开发 > vb >
  • vb教程之用VB编程实现任意修改Windows桌面背景

  • 2017-09-21 16:23 来源:未知
文/YUANXIANG_W

  众所周知在Windows中可以通过属性面板任意修改背景图案,要在VB的程序设计中实现这一功能其实也很方便,具体实现方法如下:

  首先在VB中创建一个窗体并在其中加入一个命令按钮,第一步在窗体的通用段中输入以下代码:


  Const SPI_SETDESKWALLPAPER = 20

  Const SPIF_UPDATEINIFILE = &&H1

  Private 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

  注:如果以上的声明放在“一般???rdquo;下,应在Const之前加上Public保留字,并且将Private保留字去掉。

  然后在命令按钮中的Click事件中输入以下代码:

  '将桌面图片设定成c:\windows\CIRCLES.bmp

  Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0,"c:\windows\CIRCLES.bmp", SPIF_UPDATEINIFILE)

  '将桌面图片清除

  Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0,"",SPIF_UPDATEINIFILE)

  但以上程序设定图片之后,必须等到下次Windows重新启动时才生效,如果要设定之后立刻生效,则程序须修改如下:

  Const SPIF_SENDWININICHANGE = &&H2

  Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:\windows\CIRCLES.bmp", SPIF_UPDATEINIFILE + SPIF_SENDWININICHANGE )

  此外如果只有本次使用Windows时改变桌面图片(下次开机时还原原状),则程序如下:

  Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:\windows\CIRCLES.bmp", SPIF_SENDWININICHANGE ) '去掉SPIF_UPDATEINIFILE
相关教程
  • 北京市纪委监委通报:副局级干部55次坐头等舱被处分 2019-02-15
  • 十九大精神宣讲进民企 2019-02-15
  • 中国光大银行获第十二届人民企业社会责任奖年度扶贫奖 2019-01-30
  • 2018中国灯饰照明行业品牌论坛成功举办 2019-01-30
  • 你真是越活越转,越活越蠢。[哈哈] 2019-01-27
  • 互联网资产管理须持牌经营 2018-12-09
  • 新闻中心给记者留下美好记忆 2018-12-09
  • 险企偿付能力2017年“成绩单”:3家不达标 7家被关注 2018-12-07
  • 【学习时刻】清华大学周绍杰:坚定不移地贯彻落实新发展理念 2018-12-07
  • 建立市场经济,原本的计划经济哪里去?坚持集体的南街村没有到户就没有建立市场经济,是不是还在搞计划经济?看其实现公有资本在其所有者们进行分配应是计划经济。 2018-10-30
  • 市场经济就是一种唯利是图的经济,是一种波动、走极端的经济,新时期的发展方式与结果就是如 此。那么指望市场经济来解决需要与不平衡的矛盾,对症下药了吗? 2018-10-30
  • 比利时30大胜巴拿马 卢卡库梅开二度 强队总算没有都凉凉 2018-10-18
  • 新科欧洲状元 五盾军团能否延续法兰西之夏荣耀 2018-10-18
  • 河北一保时捷车主疑遭枪击 警方悬赏9万元通缉 2018-09-26
  • 【十九大·理论新视野】动漫:“社会主义现代化强国”如何建成 2018-09-26
  • 402| 429| 520| 51| 518| 393| 796| 260| 1000| 402| 130| 827| 375| 143| 519|