我好像在哪见过你 口琴:VB,关于改变窗体图标
来源:百度文库 编辑:中科新闻网 时间:2024/05/13 14:06:34
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