首页 > 代码库 > 让VB程序真正实现XP样式 (不需要*.exe.manifest)

让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了。

 

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