TextBox e Barra di scorrimento verticale

[Carletto Ribolla]

PRESENTAZIONE è il nome della mia UserForm che apro mediante il codice sottostante.

Codice: Seleziona tutto

Private Sub CommandButton1_Click()
CuH = PRESENTAZIONE.Height      'dimensioni iniziali
CuW = PRESENTAZIONE.Width
'Resize Form
PRESENTAZIONE.Top = Application.Top
PRESENTAZIONE.Left = Application.Left
PRESENTAZIONE.Width = Application.Width
PRESENTAZIONE.Height = Application.Height
'Resize contenuto
ZoW = PRESENTAZIONE.Width / CuW        'calcola zoom
ZoH = PRESENTAZIONE.Height / CuH
If ZoW < ZoH Then RZoom = ZoW Else RZoom = ZoH
PRESENTAZIONE.Zoom = RZoom * 100
PRESENTAZIONE.Show
End Sub


Nella UserForm visualizzo un testo di circa 7000 caratteri scritti nella proprietà Text di una TextBox.
All’apertura il testo si vede correttamente ma già nella sua parte finale, tant’è che anche la barra di scorrimento verticale è tutta bassa.
Chiedo: come si potrebbe invertire l’effetto?

Grazie in anticipo per eventuali suggerimenti.

[Anthony47]

Non spieghi come carichi il testo nel textbox, ma dopo la tua Me.TextBox1.Text="Il lungo testo che voglio" prova ad aggiungere

Codice: Seleziona tutto

Me.TextBox1.SelStart = 0
Me.TextBox1.SelLength = 0

Tuttavia un esperto di comunicazione avrebbe da ridire su una "presentazione" che in una videata mostra 7mila caratteri, a meno che il tema non sia L'insonnia