Form avec boutons dynamiques sous vb6

Soyez le premier à donner votre avis sur cette source.

Vue 8 638 fois - Téléchargée 1 370 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
mimiZanzan Messages postés 301 Date d'inscription lundi 27 février 2006 Statut Membre Dernière intervention 17 décembre 2017
8 oct. 2008 à 16:11
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.
cs_asimengo Messages postés 280 Date d'inscription jeudi 24 mars 2005 Statut Membre Dernière intervention 18 mars 2009
8 oct. 2008 à 10:20
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//
boboda Messages postés 11 Date d'inscription lundi 13 mars 2006 Statut Membre Dernière intervention 8 octobre 2008
8 oct. 2008 à 10:16
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.