[原创]窗口可以更专业了(源码)

cgsilicone

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


这前也发了个类似的

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

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

andymark

cgsilicone

{:soso_e100:}

一点通

例子不错,充分利用系统资源,要求不是特别的话,以后发布软件时可不用再附加图片了,等公布源码时加为精华,以下是部份节选的模块

  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

学习下

tmtming

回复了，为什么还是没密码？？？？？？？？

cgsilicone

密码:zdcktb

myszh

look[em02]

高峡出平湖

不懂

e_formula

[em02]