GESTIONE REGISTRAZIONI
BruNews
Messages postés
21040
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
-
12 nov. 2006 à 00:05
swisstt Messages postés 1 Date d'inscription mercredi 1 novembre 2006 Statut Membre Dernière intervention 15 novembre 2006 - 15 nov. 2006 à 03:18
swisstt Messages postés 1 Date d'inscription mercredi 1 novembre 2006 Statut Membre Dernière intervention 15 novembre 2006 - 15 nov. 2006 à 03:18
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/40290-gestione-registrazioni
https://codes-sources.commentcamarche.net/source/40290-gestione-registrazioni
15 nov. 2006 à 03:18
Sechaud grazie
ci sono ancora problemi da risolvere con i bottoni per spostare i elementi su e giu
12 nov. 2006 à 15:34
Deux petites remarques:
1°_Si on sort par CmdClose on ne sauve pas, contrairement à la croix.
Il suffit de recopier la partie qui le fait, dans CmdClose
Dim X, intFree As Integer
intFree = FreeFile
Open App.Path & "\Sites.dat" For Output As #intFree
For X = 1 To lvSites.ListItems.Count
Write #intFree, lvSites.ListItems(X).Text, lvSites.ListItems(X).SubItems(1), lvSites.ListItems(X).SubItems(2), lvSites.ListItems(X).SubItems(3)
Next X
End
End Sub
2°_Si on met le lblKey à Visible, on constate que le dernier ajoût ne s'affiche pas dans lblKey.On ne le voit qu'après rechargement du programme.
12 nov. 2006 à 01:30
Prendi cento euro con traduzione ?
++
12 nov. 2006 à 00:05
Gestione registrazioni una tabella per gestire le registrazioni sito,username,password,e-mail
Tableau pour gérer les enregistrements de site,username,password,e-mail
---------------
gstrMess = "Nessun elemento selezionato oppure campi vuoti"
gstrMess = "Aucun élément sélectionné ou champs vides"
...
gstrMess = "Selezionare un nome nell' elenco."
gstrTitle = "Error...Rimuovi"
gstrMess = "Sélectionner un nom dans la liste."
gstrTitle = "Erreurr...Enlève"
...
gstrMess = "Riempire i campi vuoti."
gstrTitle = "Error...Aggiungi "
gstrMess = "Remplir les champs vides."
gstrTitle = "Erreur...Ajoute "
-------
Boutons:
svuota : vider
rimuovi : enlever
salva e esci : sauve et quitte
edita : edite
aggiungi : ajoute