[原創(chuàng)]窗口可以更專業(yè)了(源碼)

cgsilicone

以下是引用andymark在2007-1-23 13:44:00的發(fā)言：


這前也發(fā)了個類似的

http://m.mzhfr.cn/forum.php?mod=viewthread&tid=39038&replyID=&skin=1

區(qū)別很大哈，本示例圖標(biāo)在數(shù)據(jù)庫中，不需要附帶圖標(biāo)文件，任務(wù)欄上的圖標(biāo)也變成了設(shè)置的圖標(biāo)。仔細(xì)對比對比。

andymark

cgsilicone

{:soso_e100:}

一點(diǎn)通

例子不錯,充分利用系統(tǒng)資源,要求不是特別的話,以后發(fā)布軟件時可不用再附加圖片了,等公布源碼時加為精華,以下是部份節(jié)選的模塊

  Dim hIcon As Long
  Dim 數(shù)據(jù)長度 As Integer
  Dim 圖標(biāo)數(shù)據(jù) As String
  Dim 數(shù)據(jù)組() As Byte
  Dim i As Integer

  圖標(biāo)數(shù)據(jù) = DLookup("圖標(biāo)數(shù)據(jù)", "圖標(biāo)", "圖標(biāo)名稱='" & 圖標(biāo)名稱 & "'")
  數(shù)據(jù)長度 = Len(圖標(biāo)數(shù)據(jù)) / 2
  ReDim 數(shù)據(jù)組(數(shù)據(jù)長度) As Byte
   
  For i = 0 To 數(shù)據(jù)長度 - 1
    數(shù)據(jù)組(i) = Val("&H" & Mid(圖標(biāo)數(shù)據(jù), i * 2 + 1, 2))
  Next i

hIcon = CreateIconFromResource(數(shù)據(jù)組(0), 數(shù)據(jù)長度, 1, &H20000)
   
   If hIcon <> 0 Then
     Call SendMessage(hwnd, &H80, 0, ByVal hIcon)
     設(shè)置圖標(biāo) = True
Else
      設(shè)置圖標(biāo) = False
End If

tmtming

學(xué)習(xí)下

tmtming

回復(fù)了，為什么還是沒密碼？？？？？？？？

cgsilicone

密碼:zdcktb

myszh

look[em02]

高峽出平湖

不懂

e_formula

[em02]