none
probleme de lecture combobox1.text RRS feed

  • Question

  • bonjour ,
    dans mon combobox1.text = aucun article , Fusil coup-par-coup ,Pistolet puissant ..etc
    voici mes codes :

    writer.Position = &H1C30
            If (Me.ComboBox1.Text = "aucun article") Then
                writer.WriteChars(ComboBox1.Text)
            ElseIf (Me.ComboBox1.Text = "Fusil coup-par-coup") Then
                writer.WriteChars(Me.ComboBox1.Text)
            ElseIf (Me.ComboBox1.Text = "Pistolet puissant") Then
                writer.WriteChars(Me.ComboBox1.Text)
            End If

    mon problème viens quand je change d'arme dans mon combobox1.text = Fusil coup-par-coup par Pistolet puissant mais quand j'enregistre ça fonctionne bien mais quand j' ré-ouvre mon fichier. il m'affiche dans mon combobox.text = Pistolet puissantup

    voici en image :

    pouvez-vous m'aider a résoudre ce petit problème.merci

    mercredi 12 février 2014 15:03

Réponses

  • Bonjour,

    j'ai trouver la solution a mon problème.

    Voici la solution a mon probleme :

    writer.WriteChars(Me.ComboBox1.Text.PadRight(30, ChrW(vbNullString)))

    merci de votre aide .

    • Marqué comme réponse zorro591 jeudi 13 février 2014 13:27
    jeudi 13 février 2014 13:27

Toutes les réponses

  • Bonjour,

    Et ton fichier il contient quoi ?

    Sinon, je ne comprends pas à quoi sert la sélection du champ de IF, puisque tu enregistres de toute façon, il n'y a pas besoin de tester, juste enregistrer en fin.... voir aussi comment est géré le fichier...

    Cordialement.



    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire


    mercredi 12 février 2014 21:32
  • Bonjour,

    Pouvez-vous nous montrer le contenu du fichier en hexa que vous souhaitez modifier ?

    Pouvez-vous nous montrer le code qui lit le fichier ?

    Cordialement


    Gilles TOURREAU - MVP C#
    Architecte logiciel/Consultant/Formateur Freelance - P.O.S Informatique
    Blog : http://gilles.tourreau.fr - Suivez-moi sur Twitter
    - MCPD : Enterprise Developper / Windows Developper 3.5 / ASP .NET 3.5/4.0
    - MCSA : SQL Server 2012
    - MCITP : SQL Server 2008 Developper
    - MCTS : ADO .NET 3.5 / SQL Server 2008 Developper / Windows Forms 3.5 / ASP .NET 3.5/4.0 / TFS 2010 / Windows Azure

    mercredi 12 février 2014 23:50
    Modérateur
  • bonjour,

    voici le code de lecture :

    Dim reader As New Reader(Me.FilePath, Endian.Little, 0)
            reader.Position = &H1C2C
            Me.NumericUpDown1.Value = Reverse(New Decimal(reader.ReadInt32))
            If (Convert.ToDouble(Me.NumericUpDown1.Value) = Microsoft.VisualBasic.CompilerServices.Conversions.ToDouble("-1")) Then
                Me.ComboBox1.Text = "aucun article"
                Me.NumericUpDown1.Enabled = False
            Else
                reader.Position = &H1C30
                Me.ComboBox1.Text = reader.ReadChars(30)
                Me.NumericUpDown1.Enabled = True
            End If

    voici en image mon problème dans HXD :

    voici en image mon projet :


    merci de votre aide.


    • Modifié zorro591 jeudi 13 février 2014 03:53
    jeudi 13 février 2014 03:50
  • Bonjour Zorro n°591,

    Je ne connais pas les directives de la méthode d'accès au fichier que tu utilises.... Mais pourquoi ne pas utiliser un fichier texte en lecture séquentielle avec séparateur pour le nombre d'article, par exemple "#" comme lettre réservée, ça ferait "fusil#3", et après tu ferais ton traitement sur la chaîne, séparant l'article et la quantité à l'aide du "#", au lieu d'utiliser des positions fixes dans ton fichier, ce qui peut apporter d'autre contrainte en cas d'insertion entre deux éléments fixes ? Ne veux-tu pas non plus un tri alphabétique de tes articles ?

    D'autre part, si j'ai bien compris ton image, tu veux gérer un stock dont chaque ligne contienne le nom de l'article et sa quantité ? Et le bouton open il fait quoi ?

    Tu fais comme tu veux, mais généralement on sépare l'enregistrement, la gestion, la modification et l'impression, veux-tu que je te fasse un petit programme selon ce que tu voudrais faire ?

    Au plaisir.



    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire


    jeudi 13 février 2014 10:31
  • Bonjour,

    j'ai trouver la solution a mon problème.

    Voici la solution a mon probleme :

    writer.WriteChars(Me.ComboBox1.Text.PadRight(30, ChrW(vbNullString)))

    merci de votre aide .

    • Marqué comme réponse zorro591 jeudi 13 février 2014 13:27
    jeudi 13 février 2014 13:27