- UID
- 35509
- 积分
- 0
- 精华
- 贡献
-
- 威望
-
- 活跃度
-
- D豆
-
- 在线时间
- 小时
- 注册时间
- 2003-3-14
- 最后登录
- 1970-1-1
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?立即注册
×
Public Declare Function GetParent Lib "user32" (ByVal Hwnd As Long) As Long
Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal Hwnd As Long, ByVal lpString As String) As Long
Public Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long
Public Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Public Declare Function GetActiveWindow Lib "user32" () As Long
Public Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_SETICON = &H80
Public Const IMAGE_ICON = 1
Public Const LR_LOADFROMFILE = &H10
Sub SetIcon()
Dim Hwnd As Long
Dim Name As String
Dim hIcon As Long
Hwnd = GetParent(ThisDrawing.Hwnd)
Hwnd = GetActiveWindow
SetWindowText Hwnd, "VisualGIS 2002"
hIcon = LoadImage(0&, GISPath + "\system\gis.ico", IMAGE_ICON, 16, 16, LR_LOADFROMFILE)
If hIcon <> 0 Then
Call SendMessage(Hwnd, WM_SETICON, 0, ByVal hIcon) ' 0——任务栏上的图标
Call SendMessage(Hwnd, WM_SETICON, 1, ByVal hIcon) ' 1——标题栏上的图标
Call SendMessage(ThisDrawing.Hwnd, WM_SETICON, 0, ByVal hIcon) ' 下拉菜单最左边的图标
End If
End Sub |
|