[RISOLTO] Generazione automatica di vettore di bottoni con etichetta localizzata

[allegfede]

Esigenza:
fare un widget che rappresenti i giorni della settimana sotto forma di "interruttore" che possono essere accesi o spenti e che abbiano nome "etichetta" il nome del giorno della settimana.

Interessante sarebbe che in base alla localizzazione, il primo pulsante del vettore i oggetti (di 7 elementi), si chiami Lunedi' in italia, ma Sunday in America del nord.
Infatti per gli anglosassoni il primo giorno della settimana e' domenica.

Qualcuno ha mai avuto un'esigenza del genere?

Qualche trucchetto interessante?

PS: questa "maschera di valiidita'" verra' salvata come binario 1001001 nel db a rappresentare quando il giorno N-simo e' abilitato (1) o no (0)

[vuott]

Non debbo certo dirti io di cominciare almeno a proporre un possibile codice dell'aggeggio che vuoi realizzare.

[Gianluigi]

Prima di mettermi a ragionare su un componente nuovo vorrei chiederti:
Dovrebbe essere una specie di ibrido fra un ToogleButton e un MenuButton dal quale scegliere il nome del bottone?
Altrimenti occorre che ti spieghi meglio.

 

[allegfede]

non un vero e proprio componente, una sub veloce per fare questo comodo inserimento.

Per ora ho fatto cosi':

Codice: [Seleziona]

' Gambas class file
Public WeekButton As New ToggleButton[7]  'vettore dei bottoni di validita' settimanale

Public Sub SetInterface()
Dim i As Integer
Dim Bottone As ToggleButton
Dim GiorniDellaSettimana As String[] = Split("lunedì martedì mercoledì giovedì venerdì sabato domenica", " ")

  'creazione bottoni weekday
  WeekButton = New ToggleButton[7]
  For i = 0 To 6
     With bottone = New ToggleButton(Frame_Strategy) As "Tasto"
       .Text = GiorniDellaSettimana[i]
       .Width = 70
       .Height = TextBox_Nome.Height
       .Top = TextBox_Nome.Top
       .Value = True
       If i = 0 Then
          bottone.Left = TextBox_Nome.Left + TextBox_Nome.Width + 5
          Else
            bottone.Left = WeekButton[i - 1].Left + WeekButton[i - 1].Width + 5
       Endif
     End With
     WeekButton[i] = bottone
  Next

end

ma come e' evidente e' tutto un po' hard-coded ....

[Gianluigi]

Ok do un'occhiata e poi ti faccio sapere se posso aiutare.

 

[allegfede]

ho anche aggiunto la gestione dell'evento click per il vettore di oggetti

Codice: [Seleziona]

Public Sub tasto_Click()
Dim indice As Integer

  indice = WeekButton.find(Last)
  
  If indice = -1 Then Return

  WeekButton[indice].Font.Bold = WeekButton[indice].Value
End

[vuott]

Alcuni chiarimenti:

1) questo "Frame_Strategy", che suppongo sia un Oggetto Frame, va posto sul Form ? Voglio dire: chi è il suo Genitore ?

2) circa " Public WeekButton As New ToggleButton[7] ", avendo riutilizzato la parola-chiave "New" nella sotto-procedura, puoi anche evitare di creare quell'array di oggetti ToggleButton qui all'esterno. Puoi scegliere, insomma, come hai fatto appunto con l'oggetto "Bottone".

3) circa " Dim GiorniDellaSettimana As String[] = Split("lunedì martedì mercoledì giovedì venerdì sabato domenica", " ") ", ma... perché non effettui più semplicemente una dichiarazione esplicita e diretta dell'array ?    Ossia:
 

Codice: [Seleziona]

Dim GiorniDellaSettimana As String[] = ["lunedì", "martedì", "mercoledì", "giovedì", "venerdì", "sabato", "domenica"]

   

[vuott]

...devo aggiungere che non riesco a vedere apparire nessun tasto.

Scusami, puoi allegare il progetto funzionante di quel semplice codice ?

[Gianluigi]

...devo aggiungere che non riesco a vedere apparire nessun tasto.

Scusami, puoi allegare il progetto funzionante di quel semplice codice ?

+ 1 

[allegfede]

si e' un frame ... fanne uno qualunqu su un form.

tutto il codice e' grosso e dipende da moduli esterni, database etc.

si e' vero, potrei fare direttaemnte il vettore, ma vorrei avere una primitiva interna che mi dica in base al "locale":
1) da che giorno della settimana parte l'utente tipo (gb.firsdayofweek)
2) una funzione che in base al "locale" mi dica se 0=lunedi o 0=dominca etc tipo weekdayname(i)=stringa_opportuna

[Gianluigi]

Scusa ma sto per uscire e potrò rivedere la cosa domani, ma tanto per capirci tu vorresti qualcosa di simile? Che facesse cosa?

Codice: [Seleziona]

' Gambas class file

Private $sGiorni As String[] = ["Lunedì", "Martedì", "Mercoledì", "Giovedì", "Venerdì", "Sabato", "Domenica"]
Private $sDay As String[] = ["Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"]
Private $sWeek As String[]

Public Sub Form_Open()

  If System.Language = "it_IT.UTF-8" Then
    $sWeek = $sGiorni
  Else
    $sWeek = $sDay
  Endif
  SpinBox1.Value = 1

End

Public Sub SpinBox1_Change()
  
  ' simula ciò che decide il n. giorno
  
  If SpinBox1.Value = 0 Then SpinBox1.Value = 1
  ToggleButton1.Text = $sWeek[SpinBox1.Value - 1]

End

Public Sub ToggleButton1_Click()

  ' Cosa deve fare?

End

[vuott]

tutto il codice e' grosso e dipende da moduli esterni, database etc.

T'ho capito, ma....... cioè...... mettiti nei nostri panni.   

Cerca di scrivere qualcosa di breve e funzionante. Eh !

[Gianluigi]

tutto il codice e' grosso e dipende da moduli esterni, database etc.

T'ho capito, ma....... cioè...... mettiti nei nostri panni.   

Cerca di scrivere qualcosa di breve e funzionante. Eh !

 

Io mi accontenterei di capire cosa caspita vuole fare, possibilmente senza codice 

[allegfede]

moh, capire mi sembra un po' troppo ...
al limite potete intuirmi

allegato mini test

PS: gianluigi, buona idea, ma sarebbe figa una cosa "generalizzata" in base al paese del mondo (arabo, russo, greco, etc )

PPS: un file delle stringhe come android? ed i riferiemnti alle label/text che puntano alla stringa n-esima?

[Gianluigi]

Qualcosa ho fatto e qualcosa non ho capito

 

Ok, ora ho capito e per me va bene anche l'allineamento 

Sei d'accordo? Non trovi che così possa funzionare bene?