欢迎光临:
　　
　　非常感谢您光临枕善居。本站是一个免费的基于VB，VB.NET源代码交流的平台，为大家提供优质的专业的源代码，如果您有需要，本站可以帮助在业余时间里给您寻找代码。当然，如果您有好的代码也可以在本站发布，共享给大家。
专业VB和.NET源码、编程开发教程、图标资源、USB电脑遥控器、智能家电控制开关....更多东东请进入我的淘宝小店--->
VB及.NET新源码2011(3DVD,控件+资源) 智能多路控制(串口编程开关) 带源码!

VB源码 订阅所有【VB源码】的日志
07-02
09

VB模拟Vista窗体源码

作者:枕善居主 / 查看次数: 17512 / 评论: 19

图片来自：
网站：枕善居VB及.NET源码博客
网址http://www.mndsoft.com/blog/


    一个不错的vb模拟vista窗体源码，除了没有模糊效果外其他基本都有了。当然模糊也可以实现，只是代码不能公布。窗体可以任意调整大小，具有完整的系统菜单及事件。目前图标还不能显示，我正在想办法搞定。如果要将此效果用到自己程序上的话，只要把自己程序的窗体加入进来，然后把边框样式设置为无。启动时显示2个窗体，在移动vista窗体的时候同时移动自己的窗体就可以了，看起来就像是一个窗体。这段代码比较简单，我就没有写进去。(作者：蓝色炫影 reker@sina.com,在此感谢作者，希望作者能全部开源，造福大家[lol]）

图片来自：
网站：枕善居VB及.NET源码博客
网址http://www.mndsoft.com/blog/
编程开发 网站美化专业精美图标(PNG,BMP,ICO格式，16x16到256x256全尺寸) 盒装4DVD,全国包快递

图片来自：
网站：枕善居VB及.NET源码博客
网址http://www.mndsoft.com/blog/
【VB和.NET专业源码+解决方案+数据字典DVD(全国包快递)】 代码清单 购买后可以享受认证VIP会员及免费获取破解控件补丁




回复回复w415280797 [2009-11-22 16:40:17 |  | del]
不好，又不容易更改，做成控件该多好啊
回复回复Mndsoft [2009-10-12 19:22:12 |  | del]
呵呵。抛砖引玉而已，这些小示例仅仅提供大家参考学习而已。
引用来自 yoeoo 引用来自 yoeoo
中看不中用
回复回复yoeoo [2009-10-12 15:15:10 |  | del]
中看不中用
回复回复axe2015 [2008-06-25 17:04:53 |  | del]
原来vb可以做出这样的效果来啊?原来以vb作出来的东西都是些死板过时的东西,正考虑要学别的呢.
回复回复aiaa606 [2008-04-15 12:45:32 |  | del]
不错啊，可惜好像很耗资源
回复回复jueyuan21 [2007-11-03 15:39:18 |  | del]
呵呵，本人先[smile][smile][smile]看下，以后再来
回复回复bpmtz [2007-05-31 09:28:45 |  | del]
这个地方不赖 值得来 我一直以为vb没人用了 开发东西没借鉴很苦恼
回复回复rbky.com [2007-02-25 07:54:55 |  | del]
sadamu9527 在这给你就是个分也没法加，跟你学习了，原来竟不知道能用你那语句保存资源中的图，多谢了！这个地方来第二次，真值得再来。

哦！你说的窗口上添加其他东东的，是当然得。但可以在这个窗口体上再加个窗口体，也就是自己的程序窗口体，让他的大小状态和这个窗体一样就行了。不难做到的。我就是这样用的，绣花枕头我看不是，但应该是个枕头却不是绣花枕头，因为的确能用，就是仿真差。真正的会进行模糊，也有很多人想用vb快速模糊加细节，完整事件来真正仿真。
回复回复swx [2007-02-15 12:55:02 |  | del]
作者还要修改一下 你见过真正的Vista窗体么？有很多细节你没有模拟 包括最大化：最大化窗体是不透明的 而且你最大化其实没有真正最大化 没有趁满 应该承满的地方你放阴影了 而且Vista窗体标题栏是有条纹的 很明显:)  这个我很早就有了 不大用 因为以后大家都撞了Vista 这个就只能作为VB6纪念 了 呵呵！ 另外最大化 什么的 这个按钮 绝对不对啊  颜色应该再深一点 而且现在的Vista 按钮部分也是透明了 不是加深白色了 况且 焦点时候 关闭按钮也有颜色 :)
回复回复sadamu9527 [2007-02-12 18:04:39 |  | del]
是的。其实里面就是张PNG图片，你可以在程序窗口启动语句中加入
  Dim bytData() As Byte
   bytData = LoadResData(101, "custom")
   Open App.Path + "\1.PNG" For Binary As #1
     Put #1, , bytData
   Close #1

把它提取出来并且保存在代码目录中的1.PNG，然后进行修改（可用Macromedia Fireworks修改），并且删除以前资源文件的资源，把自己不带广告语句的修改后的PNG文件添加进去就OK了。
发表评论
您没有权限发表评论！