Form avec boutons dynamiques sous vb6

Soyez le premier à donner votre avis sur cette source.

Vue 8 208 fois - Téléchargée 1 325 fois

Description

J'ai déjà déposé une source de ce type sur VBFrance, mais elle était pour VBA Excel.
Suite à une remarque récente d'un des membres (BOBODA), j'ai adapté mon code à VB6, qui est plus facile car il gère les groupes de contôles contrairement à VBA, et celà permet donc de se passer de module de classe.
Par contre, je n'ai pas considéré VB.Net, car il ne gère plus les groupes de contrôles...et il faut donc jongler comme avec VBA. Quel progrès! Vont-ils un jour réintégrer toutes les bonnes choses que l'on a perdu en passant de VB6 à VB2008?
En tout cas le code est largement commenté pour permettre toute adaptation au besoin de chacun.
Il contient une petite astuce utile pour positionner un msgbox, à l'aide de fonctions API.
Il utilise le registre pour sauver tous les paramètres des boutons créés.

Source / Exemple :


voir zip

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
301
Date d'inscription
lundi 27 février 2006
Statut
Membre
Dernière intervention
17 décembre 2017

Vraiment désolé: la fonction DeleteSetting renvoie une erreur quand une des sections n'existe pas, et au 1er chargement du code, la section "NomsBoutons" n'est pas encore créée....Et çà plante à la fermeture qui appelle cette fonction!
Il faut donc dans le module1, dans la sub SupValues qui contient cette fonction, rajouter tout bêtement "On Error Resume Next" avant la ligne DeleteSetting "AjoutBoutons", Section, KeyName.
Je vais actualiser mon code sur le site.
Encore navré pour cette bourde.
Messages postés
280
Date d'inscription
jeudi 24 mars 2005
Statut
Membre
Dernière intervention
18 mars 2009

Sans trop vouloir parcourir le code bien que je sois particulièrement interessé à tout ce qui est dynamique, je dirais que ton code ne donne rien chez moi, sauf une erreur en quittant sur \\DeleteSetting "AjoutBoutons", Section 'supprime la section et toutes ses clés//
Messages postés
11
Date d'inscription
lundi 13 mars 2006
Statut
Membre
Dernière intervention
8 octobre 2008

Les codes sont bien commentés et très utiles surtout pour nous les débutants et ça marche. Je te remercie beaucoup MimiZanZan.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.