一個CommonDialog,一個CommandButton,一個PictureBOX
Option Explicit Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long Private Sub Command1_Click() Dim total As Long Dim p(50) As Long Dim i As Integer Me.Picture1.Cls Me.CommonDialog1.Filter = "圖標|*.Exe;*.Ico;*.Dll" Me.CommonDialog1.ShowOpen If Dir(Me.CommonDialog1.FileName) <> "" Then If ExtractIcon(App.hInstance, Me.CommonDialog1.FileName, -1) = 0 Then '如果沒有圖標 MsgBox "No Icon!" Else total = ExtractIcon(App.hInstance, Me.CommonDialog1.FileName, -1) '取得總圖標數 For i = 0 To total - 1 p(i) = ExtractIcon(App.hInstance, Me.CommonDialog1.FileName, i) '讀取每個圖標 Next i For i = 0 To total - 1 '依次顯示每個圖標 DrawIcon Picture1.hdc, 34 * i, 0, p(i) Next i End If End If End Sub
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long Priv
添加 兩個TEXT(multiline=true) 一個按鈕 Private Function isChinese(ByVal asciiv) As Boolean a = AscW(asciiv) If Len(Hex$(a)) >
http://topic.csdn.net/t/20060401/19/4656391.html Private Declare Function
http://topic.csdn.net/t/20050528/12/4041955.html http://download.csdn.net/down/2021631/huleidong Attribute VB_Name =