首页 新闻 论坛 群组 Blog 文档 下载 读书 Tag 网摘 搜索 .NET Java 游戏 视频 人才 外包 培训 数据库 书店 程序员
中国软件网
欢迎您:游客 | 登录 注册 帮助
    • 【放分放源码】VB6中使用32位图标 [已结贴,结贴人:Modest]
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • Modest
    • 等级:
    发表于：2008-05-06 18:22:12 楼主
      看到带Alpha通道的32位图标那绚丽性感的外表，对于无法逃离“爱美之心人皆有之”这句俗话的人(包括我)早就垂涎三尺了。感谢微软给我们选择美丽的机会，能让我们自己的软件也在外表上成为让别人倾慕甚至以身相许的筹码。想起来容易，做起来才发现整容工作原来还真没那么简单。对于饱读“有志者事竟成,破釜沉舟百二秦关终属楚......”的我......嗯嗯嗯，夸张的天昏地暗、飞沙走石...... 终于皇天不负苦心人(又来了，其实我官方身份是诗人。)一个Very very简单的类诞生了。

    http://blog.csdn.net/Modest/archive/2008/05/06/2399774.aspx
    300  修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • Modest
    • 等级:
    发表于：2008-05-06 18:30:061楼 得分:0
    沙发自己占了再说
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • myjian
    • 等级:
    发表于：2008-05-06 18:51:092楼 得分:5
    BD
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • myjian
    • 等级:
    发表于：2008-05-06 18:52:193楼 得分:5
    哇哈哈~~~~~铁公鸡放分了~~~~~~~~~~~~~~~~
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • myjian
    • 等级:
    发表于：2008-05-06 18:53:204楼 得分:5
    自己占沙发,不厚道
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • yangao
    • 等级:
    发表于：2008-05-06 19:10:355楼 得分:5
    接分
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-06 19:19:236楼 得分:5
    直接送我分算了
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-06 19:25:227楼 得分:5
    接分,拒绝平均给分.100分给我
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • myjian
    • 等级:
    发表于：2008-05-06 19:44:358楼 得分:5
    那是倒分.........
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • myjian
    • 等级:
    发表于：2008-05-06 19:45:089楼 得分:5
    原来散的300呀.

    那我也要100~~~~~~~~~不算倒分~~~~~~~~~嘿嘿.
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-06 19:55:5410楼 得分:5
    老大要了100分那我就把剩下的200分吃了~~哈哈
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-06 20:42:5511楼 得分:5
    都别争了，老魏要下个月1号才结贴，都少不了，哈哈...
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-06 21:36:0412楼 得分:5
    算
    引用 9 楼 myjian 的回复:
    原来散的300呀.

    那我也要100~~~~~~~~~不算倒分~~~~~~~~~嘿嘿.
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-06 21:47:3813楼 得分:5
    老魏说，后来居上，后来的分多，而且就到13楼给分!
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-06 21:51:3514楼 得分:4
    我是新人，请lz把分都给我吧~~~~ Orz
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • Modest
    • 等级:
    发表于：2008-05-06 22:53:2015楼 得分:0
    百二秦关终属楚，三千越甲可吞吴。哇咔咔
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-07 00:03:3916楼 得分:4
        Dim Icon As New Icon

    用户定义类型未定义，这个怎么解决哇？？
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-07 00:09:4817楼 得分:4
    我也来接分....

    ^_^
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-07 00:10:5018楼 得分:4
    收藏
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-07 00:11:1119楼 得分:4
    引用 15 楼 Modest 的回复:
    百二秦关终属楚，三千越甲可吞吴。哇咔咔


    不愧是诗人啊！
    -_-！

    来两句原创吧　^_^
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-07 00:13:1120楼 得分:4
    对了,老魏能不能把这个例子用NOTEPAD打开,直接给个文本代码.

    ^_^
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • myjian
    • 等级:
    发表于：2008-05-07 00:53:5221楼 得分:4
    楼上啥意思?

    老V给出的不就是源代码吗?
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • myjian
    • 等级:
    发表于：2008-05-07 00:56:4822楼 得分:4
    其实,目前这里三个星星以上的家伙(含),貌似都比较YD.

    而老V呢,是YD尚可,YY有余呀..........

    这里不得不特别提到超级绿豆这个CSDN著名的YY大师........
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-07 08:44:2123楼 得分:4
    引用 16 楼 aspd199 的回复:
        Dim Icon As New Icon

    用户定义类型未定义，这个怎么解决哇？？


    6月1号解决.哈哈...
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-07 08:52:3024楼 得分:4
    专业接分~
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • supergreenbean
    • 等级:
    发表于：2008-05-07 09:00:0525楼 得分:4
    我不怕人家说,给我250分
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-07 09:28:0226楼 得分:4
    要学会站在巨人的肩膀上，会省力不少。
    http://www.vbaccelerator.com/home/VB/Code/Controls/ImageList/Displaying_Alpha_(32bit)_Icons_with_ImageLists/article.asp
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-07 09:37:1927楼 得分:4
    顶了
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • Modest
    • 等级:
    发表于：2008-05-07 09:38:1828楼 得分:0
    to 楼上老鸟
    你的这个URL我很久前就看过，原来也是用这种方式。
    前几天突发奇想，为什么不用DrowIcon函数实现呢，肯定要简洁的多。
    于是乎研究了一下就写出了这个类。

    下面是偶和老马对话的摘录：
    魏滔序12:32:23
    主要为了能在vb中显示32位图标，麻烦死了。
    魏滔序12:32:43
    用bitblt也可以，但没DrawIcon专业。哈哈
    嗷嗷叫的老马12:33:17
    钻牛角尖的家伙 
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • supergreenbean
    • 等级:
    发表于：2008-05-07 11:19:0329楼 得分:4
    hoho, 那我也加一个我以前写的,把你的DrawIcon加到我那个里面后就完美了

    http://econet.zjgsu.edu.cn/cy_filesxxx/vbsrc/VBAnyIcon.rar
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-07 11:21:1830楼 得分:4
    你的调用例程中少了下面这些语句，否则无显示。
    前一句是由于坐标转换的关系，没什么。但是vbaccelerator的好像不要求AutoRedraw，可不可以再改进一下？
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-07 11:22:1431楼 得分:4
    上面的回复不小心点错按钮了

    你的调用例程中少了下面这些语句，否则无显示。
    前一句是由于坐标转换的关系，没什么。但是vbaccelerator的好像不要求AutoRedraw，可不可以再改进一下？
    VBScript code
    Private Sub Form_Load()
    Me.ScaleMode = vbPixels
    Me.AutoRedraw = True
End Sub
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • myjian
    • 等级:
    发表于：2008-05-07 13:14:3332楼 得分:4
    引用 25 楼 supergreenbean 的回复:
    我不怕人家说,给我250分


    //

    想说都给先堵住了-----______------

    反正这家伙在钻牛角尖........
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • Modest
    • 等级:
    发表于：2008-05-07 13:31:0933楼 得分:0
    号外号外：这里有豆子的全部经典源码，强烈建议好好学习天天向上。
    http://econet.zjgsu.edu.cn/cy%5Ffilesxxx/vbsrc/

    大家一起上，把他们经济学院的服务器搞over算了。 哇咔咔
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-07 13:38:5734楼 得分:4
    引用 25 楼 supergreenbean 的回复:
    我不怕人家说,给我250分


    我先说了:你个二百五.
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-07 15:10:5435楼 得分:4
    谢谢！正为美化犯愁呢
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-07 15:12:5536楼 得分:4
    标记
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-07 15:28:0937楼 得分:4
    提示下标越界
    Width = m_iDir.idEntries(Index).bWidth <