|
Página 1 de 1
|
| Autor |
Mensaje |
 didier18 
Aprendiz
Registrado: Junio 2014
Mensajes: 84
Edad: 66 Ubicación: 
|
 ComboBox De Pobre
Hola amigos
Cansado de ComboBox Extender comer una parte de la pantalla cuando se excede de 20 artículos ...
Pruebe el ComboBox De Pobre ...: o
También funciona bien con componentes 'gb.gui' con 'gb.qt4'
Codificado con Gambas3.5.3
Todo está en el código y las modificaciones o mejoras son bienvenidos.
Adición de menús Archivo / Salir, Lengua y diferentes traducciones ...
Un ejemplo en el ejemplo: D ...
|
| Descripción: |
|
Descargar |
| Nombre del archivo: |
Cbbx_du_pauvre_avec_traductions.tar.gz |
| Tamaño: |
6.91 KB |
| Descargado: |
65 veces |
|
| Descripción: |
|
Descargar |
| Nombre del archivo: |
Cbbx_du_pauvre_avec_traductions.tar.gz |
| Tamaño: |
6.91 KB |
| Descargado: |
65 veces |
|
| Descripción: |
|
Descargar |
| Nombre del archivo: |
Cbbx_du_pauvre_avec_traductions.tar.gz |
| Tamaño: |
6.91 KB |
| Descargado: |
65 veces |
última edición por didier18 el Domingo, 22 Junio 2014, 10:19; editado 2 veces |
#1 Domingo, 22 Junio 2014, 10:11 |
|
 |
jsbsan
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51 Ubicación:  dos hermanas, sevilla
|
Re: ComboBox De Pobre
didier18:
Citar: Cansado de ComboBox Extender comer una parte de la pantalla cuando se excede de 20 artículos ...
Pruebe el ComboBox De Pobre .
Es muy buena solución, +1, Gracias!!!
Citar: Todo está en el código
El codigo fuente no aparece, solo el ejecutable .gambas
Saludos
|
#2 Domingo, 22 Junio 2014, 20:10 |
|
|
didier18
Aprendiz
Registrado: Junio 2014
Mensajes: 84
Edad: 66 Ubicación:
|
Re: ComboBox De Pobre
Hola amigos
Ooops ... todavía puedo hacer una estupidez ...
Didier18 decididamente no tiene talento! Tampoco con la lengua o con Internet ... 
jsbsan - Puse el código directamente. No está traducido. No hay ningún componente de la 'Forma' simplemente 'Menú'.
Todo es creado por el código.
' gambas class file
'--------------------------------------------------------------------
'
' Auteur : Didier18
' Questions sur ce soft, laisser MP sur le site.
'
' Remerciements :
' Flachy Joe (simplification de ligne de code)
' spheris (tradution et exemples)
' Jack (idée de résolution sur traduction)
'
' http://www.gambasforge.org (hebergement du présent exemple)
'
'--------------------------------------------------------------------
'
Private CBBox As New ComboBox(Me)
Private CBBoxDuPauvre As New ButtonBox(Me) As "CBBoxDuPauvre"
Private CBBoxDuPauvreListe As New ListBox(Me) As "CBBoxDuPauvreListe"
Private lblOriginal As New Label(Me)
Private lblDuPauvre As New Label(Me)
Private mylanguage As String = "fr"
Public Sub _new()
End
Public Sub Form_Open() 'ce que l'on fait au lancement du programme
Dim i As Integer
Me.Center 'Centre la fenêtre dans l'écran
updatetranslation()
lblOriginal = New Label(Me) 'création d'1 label
lblOriginal.Move(20, 10, 100, 40) 'redimensionne et place le label
lblOriginal.Caption = ("ComboBox") & Chr(10) & ("Original") 'texte écrit dans le label
lblDuPauvre = New Label(Me) 'création d'1 label
lblDuPauvre.Move(150, 10, 100, 40) 'redimensionne et place le label
lblDuPauvre.Caption = ("ComboBox") & Chr(10) & ("Du pauvre") 'texte écrit dans le label
'
'------------------------------------ComboBox qt--------------------
'
For i = 0 To 30 'on remplis le Combobox
CBBox.add("Item" & i, i) 'il affichera (Item et son index) et son (index) dans le ComboBox
Next
CBBox.Move(10, 50, 100, 24) 'redimensionne et place le ComboBox
'
'------------------------------------ComboBox du pauvre--------------
'
For i = 0 To 30 'on remplis le CBBoxDuPauvreListe
CBBoxDuPauvreListe.Add("Item" & i, i)
Next
CBBoxDuPauvre.Move(150, 50, 100, 24) 'redimensionne et place le CBBoxDuPauvre
CBBoxDuPauvreListe.Move(150, 74, 100, 150) 'redimensionne et place le CBBoxDuPauvreListe
CBBoxDuPauvreListe.Visible = False 'cache CBBoxDuPauvreListe
CBBoxDuPauvre.Text = CBBoxDuPauvreListe.List[0] 'on écrit une valeur dans CBBoxDuPauvre
End
Public Sub CBBoxDuPauvre_Click() 'Lorsque l'on clique sur le bouton du ComboBox Du Pauvre
'Merci à Flachy Joe pour ce bout de code...
CBBoxDuPauvreListe.Visible = Not CBBoxDuPauvreListe.Visible 'CBBoxDuPauvreListe n'est pas visible... On le rend visible
If CBBoxDuPauvreListe.Visible Then CBBoxDuPauvreListe.SetFocus 'si CBBoxDuPauvreListe est visible alors on lui passe le focus
End
Public Sub CBBoxDuPauvreListe_Click() 'Lorque l'on clique sur 1 item de la liste
Dim i As Integer
i = CBBoxDuPauvreListe.Index 'on récupère l'index sur lequel on a cliqué
CBBoxDuPauvre.Text = CBBoxDuPauvreListe.List[i] 'on affiche dans le ComboBox Du Pauvre l'item en fonction de l'index
CBBoxDuPauvreListe.Visible = False 'puis on cache CBBoxDuPauvreListe
End
Public Sub CBBoxDuPauvreListe_KeyPress() 'ce que l'on fait si on clique sur ce menu
Dim i As Integer
i = CBBoxDuPauvreListe.Index 'on récupère l'index sur lequel on est positionné
'on affiche dans le ComboBox Du Pauvre l'item en fonction de l'index
If Key.code = Key.Return Then CBBoxDuPauvre.Text = CBBoxDuPauvreListe.List[i]
CBBoxDuPauvreListe.Visible = False 'puis on cache CBBoxDuPauvreListe
End
Private Sub updatetranslation() 'ce que l'on fait si on clique sur ce menu
'C'est ici que se passe la traduction.
'On a récupéré via le menu, la langue de translation.
'Elle est associée à la feuille du même nom...
Dim myfile As File
'on ouvre myfile (qui est dans le chemin...) en lecture
myfile = Open Application.Path & "/" & mylanguage For Read
Line Input #myfile, Me.Text 'on traduit le titre de la fenêtre
Line Input #myfile, mnu_fichier.Caption 'on traduit le menu Fichier
Line Input #myfile, mnu_quitter.Caption 'on traduit le menu Quitter
Line Input #myfile, mnu_lang.Caption 'on traduit le menu Langage
Line Input #myfile, mnu_en.Caption 'on traduit le men Anglais
Line Input #myfile, mnu_es.Caption 'on traduit le menu Espagnol
Line Input #myfile, mnu_fr.Caption 'on traduit le menu Français
Line Input #myfile, mnu_it.Caption 'on traduit le menu Italien
Line Input #myfile, mnu_ru.Caption 'on traduit le menu Russe
Line Input #myfile, lblOriginal.Caption 'on traduit le label lblOriginal
Line Input #myfile, lblDuPauvre.Caption 'on traduit le label lblDuPauvre
Close #myfile 'on ferme myfile
End
Public Sub mnu_en_Click() 'ce que l'on fait si on clique sur ce menu
mylanguage = "en" 'indique la feuille de translation
updatetranslation() 'puis on actualise
End
Public Sub mnu_es_Click() 'ce que l'on fait si on clique sur ce menu
mylanguage = "es" 'indique la feuille de translation
updatetranslation() 'puis on actualise
End
Public Sub mnu_fr_Click() 'ce que l'on fait si on clique sur ce menu
mylanguage = "fr" 'indique la feuille de translation
updatetranslation() 'puis on actualise
End
Public Sub mnu_it_Click() 'ce que l'on fait si on clique sur ce menu
mylanguage = "it" 'indique la feuille de translation
updatetranslation() 'puis on actualise
End
Public Sub mnu_ru_Click() 'ce que l'on fait si on clique sur ce menu
mylanguage = "ru" 'indique la feuille de translation
updatetranslation() 'puis on actualise
End
Public Sub mnu_quitter_Click() 'ce que l'on fait si on clique sur ce menu
Quit 'on quitte
End
Ficha 'Texto' Inglés
ComboBox The poor
File
Quit
Language
English
Spaniard
French
Italian
Russian
Original
The poor
Ficha 'Texto' español
ComboBox Del pobre
Fichero
Irse
Lenguaje
Inglés
Español
Francés
Italiano
Ruso
Original
Del pobre
Ficha 'Texto' francés
ComboBox du pauvre
Fichier
Quitter
Langage
Anglais
Espagnol
Français
Italien
Russe
Original
Du pauvre
Ficha 'Texto' italiano
ComboBox Del povero
Schedario
Lasciare
Linguaggio
Inglese
Spagnolo
Francese
Italiano
Russo
Originale
Del povero
Ficha 'Texto' ruso
ComboBox бедного человека
Файл
Отпуск
Язык
Английские
Испанец
французские
Итальянец
Русский
Оригинал
Из бедного человека
Como puede ver, no hay nada complicado.
Es sólo 'hackeo' ...
Buenos días a todos.
última edición por jguardon el Lunes, 23 Junio 2014, 14:51; editado 1 vez
Editado por jguardon, Lunes, 23 Junio 2014, 14:51: Editado para resaltar código fuente
|
#3 Lunes, 23 Junio 2014, 07:48 |
|
|
|
|
 Temas parecidos
 Temas parecidos
|
|
Página 1 de 1
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno
|
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario
|
|
|
|
|
