Office中国论坛/Access中国论坛

标题: [原创]窗口可以更专业了(源码) [打印本页]

作者: cgsilicone 时间: 2007-1-23 17:43
标题: [原创]窗口可以更专业了(源码)
本帖最后由 cgsilicone 于 2011-10-20 16:37 编辑
窗口标题栏图标可以变为任意图标，缩小窗口后任务栏上的图标也变成了设置的图标，可以使你的access窗口看起来象普通程序的窗口。

图标放在数据库中，不需要附带图标文件。

同时提供图标文件导入数据库的代码。

中文写代码，再不用写注释了，回复获得源码！

源码密码是:zdcktb

源码如下：

作者: myjoyj 时间: 2007-1-23 19:02
--__--

密码要的哈...

作者: cgsilicone 时间: 2007-1-23 19:05
本帖最后由 cgsilicone 于 2012-4-18 13:02 编辑
{:soso_e100:}

作者: leoxu_1982 时间: 2007-1-23 19:16
那我回下看下密码

作者: wzh 时间: 2007-1-23 20:15
ok oook

作者: xmxiaohe 时间: 2007-1-23 20:48
look

作者: xmxiaohe 时间: 2007-1-23 20:48
lookkkkkkkkkkkkk

作者: iamee 时间: 2007-1-23 21:36
这年头什么都要密码~~~~~~~~~~~

作者: myjoyj 时间: 2007-1-23 21:43
晕...回的太早了...

作者: andymark 时间: 2007-1-23 21:44
这前也发了个类似的

http://www.office-cn.net/forum.php?mod=viewthread&tid=39038&replyID=&skin=1

作者: cgsilicone 时间: 2007-1-23 22:33
本帖最后由 cgsilicone 于 2011-12-31 09:55 编辑

以下是引用andymark在2007-1-23 13:44:00的发言：

这前也发了个类似的

http://www.office-cn.net/forum.php?mod=viewthread&tid=39038&replyID=&skin=1

区别很大哈，本示例图标在数据库中，不需要附带图标文件，任务栏上的图标也变成了设置的图标。仔细对比对比。

作者: andymark 时间: 2007-1-23 22:45
[attach]22787[/attach]

作者: cgsilicone 时间: 2007-1-23 22:49
本帖最后由 cgsilicone 于 2011-10-20 16:16 编辑
{:soso_e100:}

作者: 一点通 时间: 2007-1-23 23:06
例子不错,充分利用系统资源,要求不是特别的话,以后发布软件时可不用再附加图片了,等公布源码时加为精华,以下是部份节选的模块

  Dim hIcon As Long
  Dim 数据长度 As Integer
  Dim 图标数据 As String
  Dim 数据组() As Byte
  Dim i As Integer

  图标数据 = DLookup("图标数据", "图标", "图标名称='" & 图标名称 & "'")
  数据长度 = Len(图标数据) / 2
  ReDim 数据组(数据长度) As Byte

  For i = 0 To 数据长度 - 1
数据组(i) = Val("&H" & Mid(图标数据, i * 2 + 1, 2))
  Next i

hIcon = CreateIconFromResource(数据组(0), 数据长度, 1, &H20000)

If hIcon <> 0 Then
   Call SendMessage(hwnd, &H80, 0, ByVal hIcon)
   设置图标 = True
Else
   设置图标 = False
End If

作者: tmtming 时间: 2007-1-23 23:20
学习下

作者: tmtming 时间: 2007-1-23 23:25
回复了，为什么还是没密码？？？？？？？？

作者: cgsilicone 时间: 2007-1-23 23:26
标题: 公布密码
本帖最后由 cgsilicone 于 2011-10-20 16:15 编辑
密码:zdcktb

作者: myszh 时间: 2007-1-24 00:57
look[em02]

作者: 高峡出平湖 时间: 2007-1-24 01:07
不懂

作者: e_formula 时间: 2007-1-24 02:24
[em02]

作者: fjwen 时间: 2007-1-24 05:21
学习了.

作者: sktv2001 时间: 2007-1-24 05:51
感谢中

作者: appleking 时间: 2007-1-24 07:09
[em01]

作者: WDLRCZT 时间: 2007-1-24 07:38
支持

作者: 07688971217 时间: 2007-1-24 08:19
yao

作者: 07688971217 时间: 2007-1-24 08:22

作者: yinwenjun 时间: 2007-1-24 16:32
请问图标数据从何而来

作者: accessxj 时间: 2007-1-24 19:17
test

作者: 5988143 时间: 2007-1-24 22:42
謝謝分享哈

作者: dv菜鸟 时间: 2007-1-25 01:49
看看，好像不错的样子。学习一下啦[em07]

作者: fl_ss1 时间: 2007-1-25 01:59
不错，学习了。

作者: 小宜 时间: 2007-1-25 05:51
ok!

作者: alidon 时间: 2007-1-25 17:19
看下~~

作者: cgsilicone 时间: 2007-1-25 22:30
标题: 有最新修改，可以任意添加图标，请试用
好就回复一下!

作者: touken 时间: 2007-1-25 23:23
hao 看看了

作者: huangyz_xy 时间: 2007-1-26 00:03
学学

作者: guoanxiang 时间: 2007-1-26 00:29
看看

作者: yqi 时间: 2007-1-26 02:15
look

作者: NeilChen 时间: 2007-1-26 02:17
upup

作者: l_q101 时间: 2007-1-26 03:36
密码在17楼！

作者: accessone1 时间: 2007-1-26 05:00
just a look

作者: howernet 时间: 2007-1-26 07:56
看看是什么来着

作者: tmqsj 时间: 2007-1-26 16:00
那我回下看下密码

作者: kingboyszxf 时间: 2007-1-26 22:21
看看..[em02]

作者: 司空名 时间: 2007-1-26 22:45
感谢楼主的奉献

作者: liao9416 时间: 2007-1-27 00:31
学习

作者: yodong 时间: 2007-1-27 02:18
rhf rhf

作者: ccmyfriend 时间: 2007-1-27 02:29
学习中，不知道密码是多少

作者: fanren 时间: 2007-1-27 04:44
还是看看，学习学习。

作者: df 时间: 2007-1-27 06:58
gjy

作者: eddieliu 时间: 2007-1-27 07:35
学习学习

作者: kcny 时间: 2007-1-27 14:38
OK

作者: ccczzz 时间: 2007-1-27 15:22
okok

作者: szxdaj 时间: 2007-1-27 19:12
good

作者: airchinazj 时间: 2007-1-27 23:51
[em01]

作者: 冬冬 时间: 2007-1-28 10:19
ok

作者: pccat 时间: 2007-1-28 18:51
回复来看看是否那么好～～～～[em02]

作者: ui 时间: 2007-1-28 21:47
看看

作者: 老土 时间: 2007-1-28 21:59
看看，谢谢！

作者: tinklerain 时间: 2007-1-28 22:28
看看

作者: tinklerain 时间: 2007-1-28 22:33
好想看看，超级想看......

作者: 陈大林 时间: 2007-1-29 03:56
标题: ding

ding

作者: 冬冬 时间: 2007-1-29 06:35
ding

作者: laiguiyou 时间: 2007-1-29 16:10
see

作者: 阿智 时间: 2007-1-29 16:15
支持

作者: niwj 时间: 2007-1-29 16:52
应该是我需要的东西，谢谢！

作者: clmkjszx123 时间: 2007-1-29 18:47
ok ok

作者: zyz218 时间: 2007-1-29 22:31
晕...回的太早了...

作者: smalleaf 时间: 2007-1-29 23:20
想要学学。

作者: 真主 时间: 2007-1-30 00:55
请问LZ例子中的图标数据的数据是由什么转换的

作者: 宿命的风 时间: 2007-1-30 01:00

以下是引用xmxiaohe在2007-1-23 12:48:00的发言：
lookkkkkkkkkkkkk

作者: wang1950317 时间: 2007-1-30 03:15
学习！

作者: qdjqx 时间: 2007-1-30 05:00
谢谢。

作者: wintesla 时间: 2007-1-30 17:42
sit

作者: lirong 时间: 2007-1-30 19:07
看了再說

作者: ch00111233 时间: 2007-1-31 04:23
谢啦

作者: fafafa 时间: 2007-1-31 07:21
那我回下看下密码

作者: goodorbad 时间: 2007-1-31 18:54
kankan

作者: taoether 时间: 2007-1-31 22:40
标题: ddddd
密密密码

作者: taoether 时间: 2007-1-31 22:54
说实在的，我还是第一次见到用中文做变量名，过程名的。
还有这样用的，见识了。

作者: fxtest 时间: 2007-2-1 00:11
123

作者: lxe_3333 时间: 2007-2-1 18:45
看看

作者: ktdntt 时间: 2007-2-1 22:07
看看

作者: yanfeige 时间: 2007-2-2 08:10
ok

作者: flashv 时间: 2007-2-2 14:17
本人因书而来,幸会.

作者: XWQ2000 时间: 2007-2-2 16:22
[em02][em02]

作者: hug110 时间: 2007-2-2 18:44
不知道是什么好东东下来看看

作者: heqing3000 时间: 2007-2-2 19:38
顶上！

作者: walker-dong 时间: 2007-2-2 19:57
看看,谢谢

作者: 轻风 时间: 2007-2-2 20:02
看看，谢谢！

作者: 轻风 时间: 2007-2-2 21:07
我怎么看不懂[em04]

作者: tzb_889 时间: 2007-2-2 21:28
hao de

作者: holy1276 时间: 2007-2-3 02:36
我回

我看

我学

作者: rattler 时间: 2007-2-3 18:15
aa

作者: mrl 时间: 2007-2-3 20:47
看看如何…

作者: huangyicai 时间: 2007-2-3 23:22
頂

作者: hwablues 时间: 2007-2-4 00:13
DING

作者: xjliyuehua 时间: 2007-2-4 02:46
[em02][em02]

作者: t360103 时间: 2007-2-4 06:21
look

作者: t360103 时间: 2007-2-4 06:23
标题: look
look

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)