VB程序实现XP效果的界面

2016-02-19 13:35 17 1 收藏

最近很多朋友喜欢上设计,但是大家却不知道如何去做,别担心有图老师给你解答,史上最全最棒的详细解说让你一看就懂。

【 tulaoshi.com - 编程语言 】

具体的实现方法如下:  

  ①:在你的窗体加入代码。如果是多个窗口,可以将此代码放到模块中。  

  代码如下:  

  '声明API函数
  PrivateDeclareSubInitCommonControlsLib"comctl32.dll"()
  PrivateSubForm_Initialize()
  InitCommonControls
  EndSub 

  注意:千万不要在Form_load()事件下写InitCommonControls这句话,否则你的窗体会启动不了。(不要怪我没告诉你啊~~~~) 

  ②:建立一个和你的.exe同名的.exe.manifest文件(假如:如果你最后编译好的文件名为WindowXPStyle.exe,则建立一个文件名为WindowXPStyle.exe.manifest的文件),并且此文件必须存在于和你Exe文件的同一目录下。 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

  以WindowXPStyle.exe为例,则这个WindowXPStyle.exe.manifest的文件的内容如下:  

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

  
   
  version="1.0.0.0"
  processorArchitecture="X86"
  name="CompanyName.ProductName.YourApp"
  type="win32"
  /
  Yourapplicationdescriptionhere.
  
  
  type="win32"
  name="Microsoft.Windows.Common-Controls"
  version="6.0.0.0"
  processorArchitecture="X86"
  publicKeyToken="6595b64144ccf1df"
  language="*"
  /
  
  
   

  将以上内容保存为WindowXPStyle.exe.manifest。并且和执行文件放在一个目录下(一定要记住)。  

->

来源:http://www.tulaoshi.com/n/20160219/1604698.html

延伸阅读
用VisualBasic我们可设计出形形色色符合用户要求的应用程序,它确实是一种很好的用户程序开发工具,可VB提供的基本控件中都没有闪烁属性设置,使应用程序界面缺乏“活性”,近期笔者设计软件封面时,就要求字体不断地闪烁,为此,经反复分析、实践,最后终于成功地实现字体闪烁效果,现将设计过程说明如下: (1)创建一个新目标文件(project1...
1.插入自定义资源(Custom),将资源类型(Resource Type)设为“24”。 2.将资源ID“IDR_DEFAULT1” 改为“1”。 3.将下列文本复制到该资源的十六进制编辑器中。 ?xml version="1.0" encoding="UTF-8" standalone="yes"? assembly  xmlns="urn:schemas-microsoft-com:asm.v1"  manifestVersion="1.0" assemblyIdentity  &...
摘要:本文给出了一个用VB5.0实现的鼠标绘图程序,对程序的主要功能及实现细节作了详细说明,并给出了部分源程序. 关键词:VB5.0,可视化程序设计 1.引言 MicroSoft公司推出的新一代可视化程序设计语言VB5.0以其功能强大和简单易学而深受广大程序设计人员的喜爱,人们用它开发出了许多绚丽多彩的应用程序,可以这样说,VB5.0将成为最流...
编写快速高效的Windows程序是我们的实际需要。当前越来越多的专业和非专业编程人员都倾向于用VB来编写一些Windows下的应用软件。但不可否认:VB所写的应用软件由于不是真编译代码,逊色于用C++和后起之秀Delphi编写的应用程序。以下参考有关资料并结合日常的使用经验,来谈谈如何在最大程度上弥补VB的这些不足,从而写出更加有效的Windows程序...
Type POINTAPI x As Long y As LongEnd TypeDeclare Function GetCursorPos Lib "user32" Alias "GetCursorPos" _ (lpPoint As POINTAPI) As Long'隐藏MousePublic Sub toHideCursor()ShowCursor 0End Sub'显示MousePublic Sub toShowCursor()ShowCursor 1End Sub

经验教程

472

收藏

66
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部