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

Posted 2020-09-18 Perry Blog

可以 利用工具 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了。