Comment ajouter des icônes dans le programme VB

J'ai écrit un petit programme en VB et je voulais ajouter une icône

Pouvez-vous préciser où ajouter l'icône ? Je vais écrire un programme pour vous maintenant. Je me demande s'il sera utile à cet ami.

Ajoutez d'abord un nouveau formulaire dans VB. Les étapes spécifiques sont : Projet - Ajouter un formulaire - Ouvrir.

Deuxièmement, ajoutez un bouton de commande sur le formulaire : nommez-le cmddj (clic cmd) et l'attribut de légende est "Ouvrir".

Contenu affiné : "Troisièmement, sélectionnez "Microsoft Common Dialog Control 6.0" dans Projet - Composants et ajoutez le contrôle au formulaire nouvellement créé dans la boîte à outils. Notez que le contrôle n'est pas visible au moment de l'exécution et ne peut pas être redimensionné. . »

Quatrièmement, dessinez un contrôle Image sur le formulaire. L'attribut de nom de taille moyenne est Picture1.

Ajoutez ensuite un événement click au contrôle cmddj, le code est le suivant

Sous-commande privée1_Click()

Dim's As String

CommonDialog1.InitDir = ＂e:＂

CommonDialog1.ShowOpen

s = CommonDialog1.FileName

Picture1.Picture = LoadPicture(s)

Fin du sous-marin

Lorsque le programme est en cours d'exécution, cliquez sur le bouton "Ouvrir" et une boîte de dialogue apparaîtra. Recherchez ensuite l'icône souhaitée et cliquez sur "Ouvrir" pour l'ouvrir.

Je ne sais pas si ce dont je parle correspond à ce que veut cet ami. Sans moi, il y aurait un autre moyen.

Si vous souhaitez modifier l'icône du formulaire, modifiez simplement l'attribut icon du formulaire principal. Ici, je recommande d'utiliser la bibliothèque d'icônes de VB comme source d'icônes.

C'est tout pour l'instant, si ce n'est pas correct, n'hésitez pas à me recontacter.

Problème d'icône ICO du programme généré par VB6 0

Utilisez IconWorkshop ou un autre logiciel pour traiter les icônes, modifier les icônes, ajouter des icônes de petite résolution et de faible qualité. Si vous n'êtes pas sûr, sélectionnez-les toutes et enregistrez-les. Elles sont de haute qualité dans la ressource. manager. , mais l'icône du formulaire VB est de mauvaise qualité, vous devez utiliser le code du bas pour définir l'icône.

Étapes spécifiques à IconWorkshop :

Ouvrez l'icône et ajoutez plusieurs formats d'image

Juste comme ça, si vous ne vous souciez pas de la taille du fichier, vous pouvez également tous les sélectionner

Résultat :

vb2005 sera certes plus simple, mais la syntaxe de vb2005 et vb6 est très différente, le code original est quasiment inutilisable

Const privée ICON_BIG = 1

Const privée ICON_SMALL = 0

Const privée WM_SETICON = &H80

Fonction de déclaration privée SendMessage Lib "user32" Alias ​​​​"SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Fonction de déclaration privée 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)

Diminuer l'icône aussi longtemps

hIcon = ExtractIcon(App.hInstance, App.EXEName & ".exe", 0)

SendMessage hWnd, WM_SETICON, ICON_SMALL, ByVal hIcon

SendMessage hWnd, WM_SETICON, ICON_BIG, ByVal hIcon

Fin du sous-marin

Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!