高校问答阿尔法·罗密欧图片:VB，关于改变窗体图标
来源：百度文库 编辑：高校问答 时间：2024/04/27 00:49:19
Set Me.Icon = LoadPicture("6.ico")实现了，可只能显示成16色图标，后用Me.Icon = Image1.Picture这样的方法，在编程环境下没问题可编译为EXE文件运行窗口图标又成16色了，有什么办法没有。
二、我想让我这样生成的EXE文件在我的电脑中，在用右键菜单的执行创建快捷方式时生成桌面快捷方式，其图标也自动改换为那个6.ICO，是否可以在我的程序中实现，因为按上面一的方法改变窗体图标却不能让这样的EXE的快捷方式图标也根着改变。
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