高手请教个问题：VB可以更改窗口的图表吗？

Question

To:  hoozi(hoozi)　
说点关键的行不行

Answer 1

DrawIcon 在指定的位置画一个图标
ExtractIcon 判断一个可执行文件或DLL中是否有图标存在，并将其提取出来
我想这两个api回帮上你忙

Answer 2

可以改呀。form--属性---icon--
它的图标只能是*.ico或*.cur文件。
也可试试的。
：）

Answer 3

Declare Function LoadIcon& Lib "user32" Alias "LoadIconA" (ByVal hInstance As Long, ByVal lpIconName As String)
Declare Function LoadIconBynum& Lib "user32" Alias "LoadIconA" (ByVal hInstance As Long, ByVal lpIconName As Long)
从指定的模块或应用程序实例中载入一个图标。其中，LoadIconBynum是LoadIcon函数的类型安全声明

Answer 4

没那么麻烦，vb的例子中就有改图标的。可以在窗体中加在一个image控件，让me.icon=image1.picture就可以了

Answer 5

To:xfflean(雄)　
这个函数可以该其他窗体的图标吗？
可不可以说详细一点呀，或着是举个例题。To:MrBen
我说过了，不是VB程序的窗体，而是别的窗体的图标

Answer 6

Use LoadIcon can  retieve a handle of Icon
Use SetClassLong :SetClassLong(hWnd,GCL_HICON,hIcon)
You can try it, I'm not sure it can work properly.

Answer 7

Form1.icon="你的icon文件的路径.文件名"

Answer 8

回复人：　wts(天胜)　(2001-10-17 21:46:43)  得0分 
Form1.icon="你的icon文件的路径.文件名"  
回复人：　piaoyang80(飘洋)　(2001-10-18 16:01:40)  得0分 
up  
回复人：　piaoyang80(飘洋)　(2001-10-18 16:03:02)  得0分 
up   

Answer 9

使用FindWindow找到窗口，使用SendMessage(hwnd,WM_SETICON,ICON_SMALL,hicon)设置新的图标
hwnd: FindWindow返回
WM_SETICON: 设置窗口的ICON
ICON_SMALL: 设置标题栏的ICON,如果是ICON_BIG，则设置ALT+Tab中窗口的ICON
hicon:使用LoadIcon 返回

Answer 10

hydnoahark(诺亚方舟)　is right ,I forgot this message :(

Answer 11

To>hydnoahark(诺亚方舟)
hwnd,WM_SETICON,ICON_SMALL,hicon
这些变量的值是怎么得到的呀

Answer 12

to:xfflean(雄)
Declare Function LoadIcon& Lib "user32" Alias "LoadIconA" (ByVal hInstance As Long, ByVal lpIconName As String)
参数hInstance指的是什么? 

Answer 13

>>参数hInstance指的是什么? 
这个指保存这个ICON的Application句柄。如果你用系统ICON，使用ByVal 0&即可

Answer 14

诺亚方舟是对的.
hInstance :Long，一个DLL的模块句柄；或者一个实例句柄，指定包含了图标的可执行程序
我没有进入此帖看不到你发问,sorry

Answer 15

在form的属性icon中改，或者在窗体上放置image，然后用'form.icon=image.picture
就可以了！