Autre exemple fonctionnel pour la communauté pour mise à jour des labels depuis une base de données. Changement de langue par exemple. (Klaus)
Sub LabelEquips
Private Labels(52) As Label
Labels = Array As Label(Label1, Label2, Label3, Label4, Label5, Label6, Label7, Label8, Label9, Label10, Label11, Label12, Label13, Label14, Label15, Label16, Label17, Label18, Label19, Label20, Label21, Label22, Label23, Label24, Label25, Label26, Label27, Label28, Label29, Label30, Label31, Label32, Label33, Label34, Label35, Label36, Label37, Label38, Label39, Label40, Label41, Label42, Label43, Label44, Label45, Label46, Label47, Label48, Label49, Label50, Label51, Label52)
Cur = SQL1.ExecQuery("SELECT * FROM LabelDUO")
For i = 0 To Cur.RowCount - 1
Cur.Position = i
Labels(i).Text = Cur.GetString("ElementLabel")
Next
Cur.Close
End Sub