SETUP USERFORM

[cd7019]

Ciao,

ho scoperto da poco le userform, però ho un problema x il settaggio.
Ho creato 4 textbox e 1 CommandButton1.
Desidero che:
1) quando mi sposto da una textbox all'altra le minuscole diventino subito maiuscole.
2) quando uso il tasto TAB o il tasto INVIO mi sposto da una textbox all'altra secondo una sequenza ben precisa (textbox1,textbox2,textbox3,textbox4,CommandButton1), adesso ho un'altra sequenza.
3) il comando like "*" & TextBox4.Value & "*" non riconosce le maiuscole e le minuscole, come posso disattivare questa differenza?


Grazie

[cd7019]

4) E' possibile aggiungere dei separatori (linee verticali) tra una colonna e l'altra in una ListBox?

Codice: Seleziona tutto

With ListBox1
.Clear
.ColumnWidths = "70;30;70;100"
.ColumnCount = 4
.BoundColumn = 4
. ???  SEPARATORI  ???
    For R = 1 To Rmax
            .AddItem
        For C = 1 To 4
            .List(R - 1, C - 1) = MAGR(R, C)
        Next C
    Next R
End with

Grazie

[ricky53]

Ciao,
per il punto 1.
prova con

Codice: Seleziona tutto

Private Sub TextBox1_AfterUpdate()
    TextBox1 = UCase(TextBox1)
End Sub

Private Sub TextBox2_AfterUpdate()
    TextBox2 = UCase(TextBox2)
End Sub

'..... prosegui TU con le altre TextBox


Il codice va copiato nella stessa finestra ove hai le altre macro che utilizzano le TextBox



per il punto 3.

nella finestra ove hai l'istruzione
like "*" & TextBox4.Value & "*"

prima dell'inizio di tutte le macro devi inserire la seguente istruzione

Codice: Seleziona tutto

Option Compare Text

[Anthony47]

In aggiunta a quanto gia' detto da Ricky, sopra...

Per impostare la sequenza di tabulazione: selezioni la form, tasto dx, scegli "Ordine di tabulazione".

Per mettere in maiuscolo il testo di un testbox puoi anche usare l' evento TextBoxN_Exit, aggiungendo nel codice della userform, per ogni textbox, qualcosa come

Codice: Seleziona tutto

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = UCase(TextBox1.Text)
End Sub


Il listbox non e' formattabile; puoi pero' inserire le intestazioni di colonne che saranno separate e rimangono visibili in testa all' elenco; oppure aggiungi 3 colonne in piu' (nel tuo esempio) e le popoli con il carattere "|" cioe' il carattere Asc(124).
Il risultato sara' come da immagine:

invia immagini


Ciao

[cd7019]

Grazie mille.

Avrei ancora una domanda:
Quando il testo è più lungo della colonna è possibile ridurlo, come con le celle: cells(1,1).ShrinkToFit = True?

Grazie

[Anthony47]

Non credo si possa fare, per quello che ne so. E non si puo' nemmeno fare "testo a capo".
Potresti pensare di usare un textbox di appoggio, con MultiLine = True e WordWrap = True, in cui visualizzare l' intero testo della riga selezionata.

Ciao

[Zer0Kelvin]

Potresti pensare di usare un textbox di appoggio, con MultiLine = True e WordWrap = True, in cui visualizzare l' intero testo della riga selezionata.
Ciao

Metodo facile ed efficace.
Inserisci una TextBox (es: textBox1) e nell'evento

Codice: Seleziona tutto

Private Sub ListBox1_Change()
    If Me.ListBox1.ListIndex > -1 Then
        Me.TextBox1.Value = Me.ListBox1.Value
    End If
End Sub


o qualcosa di simile, secondo le tue esigenze.
In alternativa dovresti calcolare la larghezza in punti del testo da visualizzare, ed adeguare le dimensioni del font, o del campo della ListBox

Al posto della TextBox va bene anche una Label.