VIDÉOTHÈQUE VB/XML

Commentaire de koalafou13 le 20/04/2007 20:12:43

Merci beaucoup!!! J’attends avec impatience

Commentaire de koalafou13 le 20/04/2007 20:33:52

Merci, je vais voir de quoi il s'agit car je l'avait testé avant et je n'avais jamais eu le problème dont tu me parle!
Quel genre de problème réside pour la fenêtre Adm.vb?
Merci beaucoup

Commentaire de koalafou13 le 20/04/2007 20:44:10

Je viens de regarder mon programme, en faite pour la fenêtre Adm.vb, il faut sélectionner tous les champs sinon on ne peut enregistrer un média. (C’est de ça que tu me parles?)!

Je comprends pourquoi tu as une erreur!
Tu as voulu utiliser la procédure ActualiserToolStripMenuItem_Click !
Or j'ai oublié de l'enlever car je réinitialise les listes à chaque modification!
Cette procédure était appelée lors du clic sur le menu actualisé (qui n'a plus lieu d'être)

ainsi, si tu ragarde bien le code:

        listeFilm.Items.Clear()
        fonction.init()

        Dim i As Integer
        Dim nb_tot_film As Integer = fonction.get_nb_film(videotheque)
        Dim valeur As String

        'initialisation de la liste de films
        For i = 1 To nb_tot_film
            valeur = fonction.get_attribut("Titre", i, videotheque)
            listeFilm.Items.Add(valeur)
        Next i

fin code

videotheque n'a pas de valeur! sinon, as tu remarqué d'autres erreurs?

merci beaucoup ;-)

Commentaire de OneHacker le 20/04/2007 21:49:26

Je sais pas laquelle désolé mais je parle du texte dans le code pas du fond.

Commentaire de koalafou13 le 21/04/2007 10:44:30

1-peut être t'es tu trompé entre le Adm.Designer.vb et Adm.vb
Adm.Designer.vb gère les propriétés d'affichage de la form Adm
Adm.vb gère les actions associées aux éléments de la form

2-regarde si par inadvertance que tu n'es pas tout mis en commentaire (chez moi les commentaires sont en vert mais bon..)

à plus tard

Commentaire de OneHacker le 21/04/2007 11:59:19

Ah non ca marche tout seul maintenant :p

Commentaire de OneHacker le 21/04/2007 18:55:15

Oui, de mon côté le code que j'ai mis pour que les fenêtre enfants suivent ne marche pas à tout les coups, je pense qu'il faudrait un peu nettoyer ton code. Et si je fait ça c'est parceque sur mon écran je peux meme pas rajouter accèder aux boutons ok des fenêtre enfants comme pour ajouter, modifier,supprimer.

Commentaire de koalafou13 le 23/04/2007 19:50:13

désolé pour le retard mais j'étais en plein boulot! se ne sont pas des fenêtres filles, elles n'ont aucun lien d'existence avec la fenêtre dite "principale"

dans mon projet j'ai créé 6 forms. normalement elles devraient être toutez affichée au lancement de l'application, mais j'ai initialisé le form.visible=false pour les forms que je ne veux pas voir.

Pourquoi veux tu que je mette à jour l'archive? je n'ai pas fait d'autre modif sur le programme, le but premier de ma démarche était de savoir si le traitement du fichier xml que je faisais était correct, si il n'y avait pas d'autre moyen plus optimisé pour faire la même chose. Ce qui relève de l'affichage n'était pas ma préocupation première.

dsl j'ai pas de MSN ni autre d'ailleur

pour que les fenêtres se suivent essai ça:

Private Sub Interface_principale_LocationChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LocationChanged

        (dans la form dite principale)
        Dim pose_x As Integer = Me.Location.X
        Dim pose_y As Integer = Me.Location.Y
        
        (form1 est le nom de la form que tu veux faire suivre)
        form1.location.x = (pose_x) + (form1.pose_x)
        form1.location.y = (pose_y) + (form1.pose_y)

End Sub

bon je te donen vite fait une idée je n'ai pas testé et ca ne marchera surement pas dans cet exemple car il faut gérer si la form est déplacé vers le haut ou vers le bas, vers la gauche ou vers la droite.. ce qui engendrerait surment un calcul différent de ma simple addition mais je te donne juste une piste vite fait car je n'ais pas beaucoup de temps devant moi donc recherche dans cette direction!

lorsque ta form principale bouge tu compare la nouvelle position par rapport à l'ancienne puis tu applique le déplacement aux autres forms

ex:
form principale
x=100
y=100

nouvelle position
Nx=200
Ny=200

Nx-x=100
Ny-y=100

la form à fait un déplacement de 100;100
donc les autres forms doivent aussi faire un déplacement de 100;100

ainsi:

form1.location.x=form1.location.x + (Nx-x)
form1.location.x=form1.location.y + (Ny-y)

voila j'espère t'avoir aider!! à plus tard

Commentaire de koalafou13 le 23/04/2007 20:19:02

"Pourtant tu m'avait dit que tu l'avait modifié sur MSN." ????
Non pas du tout, tu dois confondre je n'ai pas d'adresse MSN

"Et ton code ne marche pas car les évènement des fenêtres enfants ne se déclenchent pas"
Je ne vois pas bien? J’ai téléchargé l'archive sur code source, pour voir si des erreurs provenaient de ma source, mais je ne constate rien de ce que tu me rapporte? C’est étrange!

Au final, qu'est ce qui ne fonctionne pas dans mon code? Car je ne comprends pas bien
-tu ne peux pas ajouter ni supprimer ni modifier une médiathèque?
-ou est ce juste un problème d'affichage?

Pourquoi instancier les forms?
Ce ne sont que des conteneurs, j'ai créé la Class fonction qui contient toutes les fonction nécessaires (ajout d'un noeud xml, comptage des nœud, suppression...)
Et j'instancie cette classe dans chaque forms.
Les forms n'ont aucun lien entre elles.

Je ne suis débutant en vb/poo donc j'essai de comprendre autant que toi le problème mais je n'arrive pas à voir justement le problème dont tu me parles car chez moi, l'application ne présente pas de signe particulier d'erreurs ??!

À très vite

Commentaire de koalafou13 le 24/04/2007 15:28:12

voila j'ai trouvé comment faire bouger deux forms en même temps ;-)

Commentaire de koalafou13 le 24/04/2007 15:30:21

puis:
Public Class Interface_principale

    Dim X As Integer
    Dim Y As Integer

  Private Sub Interface_principale_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

        X = Me.Location.X
        Y = Me.Location.Y

  end sub

end class

Commentaire de koalafou13 le 24/04/2007 15:31:37

ca marche très bien chez moi!
as tu  des conseils concernant le code pour le traitement du fichier XML

Commentaire de OneHacker le 24/04/2007 15:33:48

Je sais pas gérer le XML mais j'ai DL un cours dessus donc je vais voir.

Commentaire de koalafou13 le 24/04/2007 15:42:28

tien voila des infos que j'ai récolté au fur et à mesure sur le xml:

Tout d’abord, il faut créer un objet de type xmldocument. Cet objet sera la base d’exploitation du fichier xml.
-
On défini l’objet
Dim doc As XmlDocument
Puis on l’instencie
doc = New XmlDocument()

ensuite il faut créer un second objet capable de travailler sur les nœuds du xmlelement déclaré précédemment
-
on défini l’objet
Dim noeud As XmlElement
Puis on l’initialise
noeud = doc.DocumentElement

maintenant je peux récupérer la valeur des attributs de n’importe quel nœud, il m’est possible de compter le nombre de noeud
-
pour un indice donné, je récupère la valeur de l’attribut Name du noeud
noeud.ChildNodes(indice).Attributes("Name").InnerText
-
il est possible de compter le nombre de nœuds
noeud.ChildNodes.Count
-
il est possible de compter le nombre d’attributs
noeud.ChildNodes(indice).Attributes.count

Commentaire de koalafou13 le 24/04/2007 16:02:07

ah oui en effet!!

voila:
chargement du fichier xml
doc = New XmlDocument()
doc.Load("c:\gestcle\bdXml\cle.xml")

Commentaire de OneHacker le 24/04/2007 19:10:12

Ok, là j'apprends un gars à prog donc je m'en occupe ce soir.

Merci pour le code pour XML.

Commentaire de 106 le 04/05/2007 08:54:06

Bonjour,
Je m'interesse, mais je débute et je n'ai pas beaucoup de temps à consacrer.
Deux remarques :
- Tu n'as pas mis de bouton annuler sur les masques d'ajout, de modification ou de suppression d'éléments d'une médiathèque.
- Lorsque l'on déplace la fenêtre principale, les masques ouverts ne suivent pas.
Ce sont des remarques sur l'esthétique.

Autrement pas de bug rencontré.

Commentaire de koalafou13 le 09/05/2007 13:04:16

Bonjour, désolé pour cette réponse tardive, mais j'étais désespéré du coup, je ne venais plus voir!
Merci 106 pour tes remarques, mais comme le confirme OneHacker, l'interface n'est pas mon intérêt premier (en effet je pourrai mettre une msgbox sur l'évènement onclick du bouton supprimer proposant de valide ou non la suppression) mais ce qui m'intéresse c'est de savoir si mon code pouvait être développé de façon plus optimal.

@OneHacker: quel genre de projet mes tu en place?
La je suis en révision de mon BTS info que je passe lundi, donc je n'ai plus beaucoup de temps, mais dit toujours je verrai bien si je peux t'aider ;-)