![]()
首先在VB中添加一个新的窗体,具体步骤:工程——添加窗体——打开即可。
第二、再在该窗体上添加一个command按钮:命名为cmddj(cmd单击)、caption属性为“打开”.
第三、执行以下 *** 作:工程——部件——选中“microsoft common dialog control6.0”在前面打勾。现在在工具箱中就有了一个新的图标,把该图标画到新建的窗体中。名字不要改。注悉竖意该图标在运行时是不可见的,所以可以放到任意位置,该图标的大小好埋也不可改变。
第四、再在窗体上画一个Picture控件。大小适中name属性为Picture1。
然后为cmddj控件添加单击事件,代码如下
Private Sub Command1_Click()
Dim s As String
CommonDialog1.InitDir = "e:"友陆蚂
CommonDialog1.ShowOpen
s = CommonDialog1.FileName
Picture1.Picture = LoadPicture(s)
End Sub
在程序运行时单击“打开”按钮会出现一个对话框,然后找到你要的图标单击“打开”就可以打开了。
不知我说的这个是不是这位朋友想要的。如果不是我这还有一个方法。
如果你是要修改窗体的图标的话,那就修改主个窗体的icon属性即可。在这儿我推荐使用VB的图标库作为图标源。
先就到这儿了,如果不对,再联系。
右键--属性--更改图标。然后在查找你的图标前敬的位置就可以了,PS:如果你想自己设计图标,本人推荐这个软件宏纳IconWorkshop 这个很好用,可以不用下载最新版本的,旧的版本也可以,旧版本可以找到注慧绝慎册码,很好同
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)