Question

VB，关于改变窗体图标

一、我的EXE程序只有一个窗体，EXE目录下存放一个6.ICO图标文件（增加色图标，这VB是支持的），想让程序启动运行时窗体的图标能自动改变为这个外部文件的图标，这我用
Set Me.Icon = LoadPicture("6.ico")实现了，可只能显示成16色图标，后用Me.Icon = Image1.Picture这样的方法，在编程环境下没问题可编译为EXE文件运行窗口图标又成16色了，有什么办法没有。
二、我想让我这样生成的EXE文件在我的电脑中，在用右键菜单的执行创建快捷方式时生成桌面快捷方式，其图标也自动改换为那个6.ICO，是否可以在我的程序中实现，因为按上面一的方法改变窗体图标却不能让这样的EXE的快捷方式图标也根着改变。

Answer 1

Private Sub Form_Resize ()
Dim X, Y ' 声明变量。
If Form1.WindowState = vbMinimized Then
Form1.Icon = LoadPicture() ' 加载一个空白的图标。
Do While Form1.WindowState = vbMinimized
' 窗体最小化。
Form1.DrawWidth = 10 ' 设置点的大小。
' 随机选择点的颜色。
Form1.ForeColor = QBColor(Int(Rnd * 15))
' 随机设置图标的位置。
X = Form1.Width * Rnd
Y = Form1.Height * Rnd
PSet (X, Y) ' 在图标上绘制点。
DoEvents ' 允许处理其它事件。
Loop
End If
End Sub

这是同样的例子，除了用 LoadPicture 方法来设置 Icon 属性以外。这个例子可用在所有版本的 Windows 之上。

Private Sub Form_Resize ()
Dim X, Y ' 声明变量。
If Form1.WindowState = vbMinimized Then
Form1.Icon = LoadPicture("c:\myicon.ico")
' "myicon.ico" 图标必须在
' c:\ 目录中，这个例子才能正常运行。
End If
End Sub