GESTION DIVX 2 (COLLECTION DIVX / DVD)

Commentaire de Urgo le 10/07/2003 20:56:27

Moche
Fait un design, j'attens pour la note

Commentaire de Saros le 11/07/2003 13:38:02

C'est vrai que là, Urgo, deux fois dans la même journée, c'est un peu fort...
Une question, tu ne te serais pas inspiré de Xtag pour la fonction de prêt ?

Commentaire de Urgo le 11/07/2003 13:50:45

En plus t'as mis une capture et ça c excellent, donc bonne prog pour la quite et si tu veux des exemples de jolies design, répond moi et je te file 1 ou 2 de mes sources ;)

Commentaire de titou250 le 11/07/2003 16:26:21

J'ai corriger la faute d'orthographe, et je veux bien 1 ou 2 exemples de "design" sous vb !
Pour la fonction de prêt, je ne me suis pas inspiré de celle de xtag, mais elle doit être semblable.
C juste un chps texte qui s'active ou non, et un bouton "enregistrer" pour mettre la base à jour.
Elle est toute simple.

Commentaire de pouda le 13/04/2004 20:44:35

ton interface est assez jolie et encor j'en suis sur que tu pourrai mieu faire bref ton code a l'iar assez complet par contre pense au débogage , a chaque clique g ne erreur ca ce resoud mia bon ca soule

Bonne continuation j te met 7/10

Commentaire de algo69 le 18/02/2005 19:36:20

salut
pas mal ton truc. Mais quand je click la liste des emprunts Erreur d'execution 35600, index hors limites

et si je click sur debogage, le code correspondant est :

CodeFilm = List.ListItems(List.SelectedItem.Index).ListSubItems(3).Text

peux tu m'expliquer why, Merci (car suis debutant)

Commentaire de titou250 le 13/03/2005 11:28:08

Pour Algo69
Je viens de réinstaller VB (que je n'utilise plus bcp !!) et j'ai regarder la source de plus prêt.
Tu as bcp de bug encore dans mon programme.
pour ton erreur, j'ai ajouter un "ORDER BY nom_film dans la requête SQL du bloc Private Sub mnulistE_Click()

Depuis ca marche (je ne sais pas trop pourquoi ??

Ensuite, il faut aussi ajouter une condition IF dans le block
Private sub List_Click() :
'-- Vérifie qu'il existe une entrée
    If Rs.BOF = True And Rs.EOF = False Then
..............
        lbl_annee.Caption = Rs!annee
    End If
    chk_pret.Visible = True

et
        ' affich les valeurs
        If Rs.BOF = True And Rs.EOF = False Then
            lbl_date = Rs!date_pret
            txt_nom = Rs!pret_film
        End If

Voila, sinon, il reste d'autres bug que je regarderai quand j'aurai 2 3 minute. LA source qui est en DL sur vbfrance corrige ces 2 bug ;)

Pour Quintus: Oui, c'est clair que c long et très chiant, mais tu n'es pas obligé de remplir toutes les cases.
Le mieux serait peut être de pouvoir lancer une recherche sur un répertoire, de prendre le nom des fichiers AVI et de les ajouter directement dans la base en les considérant comme les noms de film.
Ensuite à chacun de rajouter les info qu'il veux.. A voir donc ;)

Commentaire de quintus38 le 13/03/2005 14:00:20

c'est tres bien mais admettons que les films soivent stockés sur CD, le prgm reste le meme, sinon le fonction pour lister tous les films d'un repertoire est intéressante

Commentaire de algo69 le 13/03/2005 18:25:47

j'ai oublié de te dire aussi, quand je click sur la liste des dvd, "Erreur d'execution 35600, index hors limites

" peux tu m'eclairer cela STP ?

Commentaire de algo69 le 13/03/2005 21:32:47

merci encore titou250