combobox

Question

Salut a tous,

j'ai un petit probleme, j'utilise une combobox
pour que l'utilisateur puisse choisir sa langue
et j'aimerais que lorsque le combobox est sur francais et qu'il passe sur anglais par exemple, que la langue change automatiquement et que les captions se mettent a jour. Je pense qu'il faut utiliser la methode on_change de visual basic mais je n'y arrive pas. 
Je suis donc pour l'instant oblige de cliquer sur un bouton 'changer' pour pouvoir prendre en compte les modifs de langue. 
Voila d'avance a tous ceux qui pourront m'aider.
Salut et bon code a tous.

cs_rene38 · Answer

Private Sub Form_Load()
    Combo1.Clear
    Combo1.AddItem "Français"
    Combo1.AddItem "Anglais"
End Sub

Private Sub Combo1_Click()
Select Case Combo1.Text
    Case "Français"
        Command1.Caption = "&Ouvrir"
        'etc ... lancement du sub voulu
    Case "Anglais"
        Command1.Caption = "&Open"
        ' etc ... lancement du sub voulu
    Case Else
End Select
End Sub

FaroukVazaha · Answer

A adapter pour tes combo

N&#233;cessaire :


une form appell&#233;e Form1
un module appell&#233; module1


Sur la form1 :
 - un bouton appell&#233; command1
 - un bouton appell&#233; command2
 - un bouton appell&#233; command3
 - trois option1 index&#233; de 0 &#224; 2
  option1(0) = "Fran&#231;ais"
  option1(1) = "Anglais"
  option1(2) = "Italien"


A chaque click sur le Command2, le Bouton Command1 changera la valeur de son Libell&#233; (Caption)
Un click sur Command3 ferme le pgm


CODE DE LA form1:


Sub Form_Load()
    TblCaptionBtn(0, 1) = "Fran&#231;ais"
    TblCaptionBtn(1, 1) = "Anglais"
    TblCaptionBtn(2, 1) = "Italien"
' Etc...,
' incr&#233;menter pour les langues suppl&#233;mentaires, sans oublier
' la d&#233;claration dans le module1


' Et j'ajoute ceci juste pour &#233;viter d'avoir le bouton 
' command1 sans indication au d&#233;part du pgm
    Option1(0).Value = True
    Command2_Click
End Sub


Sub Command2_Click()
' Il faut trouver la langue selectionn&#233;e
' Le d&#233;part est &#224; z&#233;ro donc le nombre de langue est diminu&#233; de une unit&#233;
    For ValIndexOption = 0 To NbLangue - 1
        If Option1(ValIndexOption).Value = True Then
            ' L'indice de la langue est trouv&#233; et il faut ...
            Langue = ValIndexOption
            ' ... sortir proprement de la boucle for-next
            ' (EXIT FOR pourrait suffire, mais ....)
            ValIndexOption = NbLangue - 1
        End If
    Next
    Command1.Caption = TblCaptionBtn(Langue, 1)
End Sub


Sub Command3_Click()
    End
End Sub



CODE DU module1


Public Langue, NbLangue As Integer
public ValIndexOption As Integer
Public TblCaptionBtn(3, 1) As String


Sub main()
    Load Form1
    Form1.Show
End Sub


Bien sur Dans le Menu "Projet" Option "Propri&#233;t&#233;s de Projet1..."
L'objet de d&#233;marrage est "Sub Main"


En esperant que cela t'aideras.....;

Combobox

2 réponses

Discussions similaires