VB小程序添加图标功能实现
用VB写了一个小程序想添加一个图标往哪儿添加图标，可以细说一下吗？我现给你编一下程序，不知对这位朋友是否有用。首先在VB中添加一个新的窗体，具体步骤：工程——添加窗体——打开即可。第二、再在该窗体上添加一个command按钮：命名为cmddj(cmd单击)、caption属性为“打开”.微调内容：“第三、在工程——部件中选中“MicrosoftCommonDialogControl6.0”，并在工具箱中添加该控件到新建的窗体中。注意该控件在运行时不可见，大小不可调整。”第四、再在窗体上画一个Picture
用VB写了一个小程序想添加一个图标
往哪儿添加图标，可以细说一下吗？我现给你编一下程序，不知对这位朋友是否有用。
首先在VB中添加一个新的窗体，具体步骤：工程——添加窗体——打开即可。
第二、再在该窗体上添加一个command按钮：命名为cmddj(cmd单击)、caption属性为“打开”.
微调内容：“第三、在工程——部件中选中“Microsoft Common Dialog Control 6.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的图标库作为图标源。
先就到这儿了，如果不对，再联系。
VB6 0生成的程序 ICO图标问题
用IconWorkshop 或者其他的软件处理图标，修改图标，添加小分辨率低质量的，如果不确定，把全部都选上去，然后保存，vb里就可以用了，在资源管理器里是高质量的，但vb窗体图标是低质量的，你需要用最下面的代码设置图标。
IconWorkshop的具体操作步骤：
打开图标以后添加多种图像格式
就像这样，如果你不计较文件大小的话，你也可以全部选上
结果：
vb2005当然会简单，但vb2005和vb6语法有很大不同，原来的代码几乎不能用
Private Const ICON_BIG = 1
Private Const ICON_SMALL = 0
Private Const WM_SETICON = &H80
Private Declare Function SendMessage Lib ＂user32＂ Alias ＂SendMessageA＂ (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ExtractIcon Lib ＂shell32.dll＂ Alias ＂ExtractIconA＂ (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Public Sub SetWindowIcon(hWnd As Long)
Dim hIcon As Long
hIcon = ExtractIcon(App.hInstance, App.EXEName & ＂.exe＂, 0)
SendMessage hWnd, WM_SETICON, ICON_SMALL, ByVal hIcon
SendMessage hWnd, WM_SETICON, ICON_BIG, ByVal hIcon
End Sub
火山引擎是字节跳动旗下企业级云与AI服务平台。聚焦大模型核心能力，依托字节自研豆包多模态大模型，凭借火山方舟一站式平台，提供模型精调、推理部署、智能应用搭建等全链路服务，结合高性能AI算力，助力各行业快速落地大模型数字化与智能化应用。
AirBuddy 3 是面向 macOS 的蓝牙外设增强工具，可集中查看 AirPods、Beats 与苹果设备电量，提供快速连接、播放控制、电量提醒、桌面小组件和多台 Mac 外设接力等功能。
AirServer macOS版可把 Mac 转换为无线投屏接收端，通过 AirPlay 或 Google Cast 接收手机、平板和电脑画面，并支持多设备同时连接、高清镜像及会话录制，适合家庭娱乐、课堂教学、会议演示和应用展示。
