Aide pour combobox1

Version imprimable

03/12/2013, 13h15
hacker59

Aide pour combobox1

bonjour, je voudrais votre aide pour utiliser un combobox1 avec reader.position qui affiche le résulta dans textbox1.text quand je sélectionne dans combobox1.
dans mon combobox1 : finition 1
finition 2
finition 3
platine
or

comment écrire le code? merci
03/12/2013, 14h01
Uranne-jimmy

Pour récupérer l'élément text sélectionné dans ta combobox, il y a combobox1.Text.
Pour changer le contenu d'un text box : Textbox.text = ...
Et si tu veux que ce soit dynamique sans appuyer sur un bouton, il faut passer pas l’événement combobox.selectedvaluechange ou un truc du genre, sans doute.

bonsoir, je voudrais utiliser reader.position = &H1234 avec combobox1.quand je selectionne dans combobox1 qui affiche le resulta dans textbox1.text.je voudrais savoir si c'est comme ci , on ecire le code, merci de votre reponse.
voici le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Select Case ComboBox1.SelectedIndex
    Case 0 
      reader.position = &H1234
      dim v1 as string = reader.hex(&H2)
      textbox1.text = v1
    Case 1
       reader.position = &H1235
      dim v2 as string = reader.hex(&H2)
      textbox1.text = v2
    Case 2 
      reader.position = &H1236
      dim v3 as string = reader.hex(&H2)
      textbox1.text = v3
    Case 3
       reader.position = &H1237
      dim v4 as string = reader.hex(&H2)
      textbox1.text = v4
    Case Else
       reader.position = &H1238
      dim v5 as string = reader.hex(&H2)
      textbox1.text = v5
  End Select

Vu comme ça sans la suite du programme ça à l'air bon. Mais dans ce que je vois tu peux alléger :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Select Case ComboBox1.SelectedIndex
    Case 0 
      reader.position = &H1234
    Case 1
       reader.position = &H1235
    Case 2 
      reader.position = &H1236
    Case 3
       reader.position = &H1237
    Case Else
       reader.position = &H1238
  End Select
textbox1.text = reader.hex(&H2)

Bonjour, je voudrais savoir si c'est possible j'ouvre mon fichier SYS-DATA quand je change de finition 1,2,3,platine,or dans mon combobox1 , il m'affiche pas le résulta des autres finition.
voici mon pour ouvrir le fichier:

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub OUVRIRToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles OUVRIRToolStripMenuItem.Click
        Dim dialog As New OpenFileDialog With { _
       .Filter = "Fichier|SYS-DATA", _
       .Title = "Ouvrez votre SYS-DATA" _
       }
        If (dialog.ShowDialog = DialogResult.OK) Then
            Me.FilePath = dialog.FileName
            Me.ReadFile(Me.FilePath)
        End If
    End Sub

Pour Lire Le Fichier :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Sub ReadFile(ByVal FilePath As String)
        Dim reader As New Reader(Me.FilePath, PackageIO.Endian.Little, 0)
        Select Case ComboBox1.SelectedIndex
            Case 0
                reader.Position = &H278
            Case 1
                reader.Position = &H290
            Case 2
                reader.Position = &H2A8
            Case 3
                reader.Position = &H2D8
            Case Else
                reader.Position = &H2C0
        End Select
        TextBox1.Text = reader.PeekHex(&H2)
    End Sub

Comment je peux faire pour afficher le résulta des autres finition avec OpenFileDialog? Merci de votre reponse