让VB程序真正实现XP样式 (不需要*.exe.manifest)

可以 利用工具 eXeScope  修改编译好的运行程序直接实现XP样式。

 

     原先为了实现XP样式而把一个文件（ XXX..exe.manifest）放入运行文件同一个目录 ，使用eXeScope  修改后，程序再也不用拖个尾巴啦～～（eXeScope把“XXX..exe.manifest”合进主文件一起了 ）

原来的程序要想实现XP样式 需要添加

 

Private Declare Function InitCommonControls Lib "Comctl32.dll" () As Long

在每个窗体的初始化添加红色代码：

 

Private Sub Form_Initialize()
InitCommonControls
End Sub

 

 

在主窗口结束处添加代码，没有这些代码，程序结束后可能提示错误。

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
End
End Sub

 

 

编译生成EXE运行文件后，用eXeScope 打开，选择菜单 编辑>>XP 样式 ，就OK了。