您的位置：程序门 -> vb -> 基础类

求教高手：vb界面可以优化msgbox像vista 那样淡出淡入的漂亮效果吗？在普通的显卡上显示。

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

求教高手：vb界面可以优化msgbox像vista 那样淡出淡入的漂亮效果吗？在普通的显卡上显示。[已结贴,结贴人:kelvin357]

发表于：2008-01-16 09:38:32 楼主

求教高手：vb界面可以优化msgbox像vista 那样淡出淡入的漂亮效果吗？在普通的显卡上显示。
另外我还想把界面改成windows xp这样的风格有例子看看吗，谢谢````

发表于：2008-01-16 10:57:041楼得分:20

xp风格

首先创建一个文件，文件名一定要是这样的格式：“exe名.manifest”，其中“exe名”是你生成exe后的文件名。如：你生成后的文件是“myexe.exe”，则你先要在放有“myexe.exe”文件的同一目录创建一文件“myexe.exe.manifest”，里面写上以下内容：

<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestversion="1.0">
<assemblyidentity version="1.0.0.0" processorarchitecture="x86" name="company.product.ffdshow.ax" type="win32" />
<description> windowsＥＸＥＣutable </description>
<dependency>
<dependentassembly>
<assemblyidentity type="win32" name="microsoft.windows.common-controls" version="6.0.0.0" processorarchitecture="x86" publickeytoken="6595b64144ccf1df" language="*" />
</dependentassembly>
</dependency>
</assembly>

然后再在你的程序里面加入以下代码：

private declare sub initcommoncontrols lib "comctl32.dll" （)

private sub form_initialize（)
initcommoncontrols
end sub

这样你的控件就不再是vb6提供的平凡的模式，而是xp的样式！

发表于：2008-01-16 10:58:332楼得分:1

或者你再程序里加入

vb.net code

private   declare   sub   initcommoncontrols   lib   "comctl32.dll"   （)   

private   sub   form_initialize（)   
initcommoncontrols   
end   sub

这段代码后，用exescope打开你的文件点工具栏上的 xp样式，就好了

发表于：2008-01-16 12:52:273楼得分:9

只要你可以获得它的窗口句柄，就什么都好说！
得到窗口句柄后，使用setlayeredwindowattributes函数再加个定时器就可以实现了！

发表于：2008-01-16 13:56:374楼得分:0

sandrer，能跟据你的思路，给个示例吗，我是新手，哪个效果更好的，给高分一点

发表于：2008-01-17 11:24:015楼得分:20

setlayeredwindowattributes
这个我在色球的制作当中也用到过。目前的v1.04版本还是应用这个函数来实现透明度渐变效果的。
www.colorlinez.cn

不过下一版本v1.1中，将取消该函数的使用

下一篇：请问如何将字符串"20071010"转化为日期型?（不是"2007-10-10")
上一篇：为何用 name as 移动文件有时能行有时不行？