funzione MsgBox di VB non ha mezzi per centrare il testo che si desidera visualizzare con la funzione . Tuttavia, è possibile creare una funzione equivalente che fa la visualizzazione del testo centrato . Un approccio per la creazione di questa funzione è quello di progettare un modulo personalizzato con una etichetta che si riposiziona in modo dinamico ogni volta che viene ridimensionato il form contenente l'etichetta . Progettare il modulo

Il primo passo nella creazione di una propria funzione MsgBox il cui testo è possibile in modo dinamico recenter è quello di progettare il modulo personalizzato che verrà visualizzato il testo . Questo comporta la creazione di un progetto di modulo VB di Windows . All'interno dell'ambiente di sviluppo di Visual Basic , premere il tasto " Control" e "N" simultaneamente , quindi scegliere la voce di Windows Form per creare un progetto del genere .
Etichetta di controllo

Quando viene visualizzata la finestra di progettazione della forma , trascinare un controllo Label dalla Casella degli strumenti nel form. Posizionare l'etichetta ovunque ; tuo programma centrerà l'etichetta . Tuttavia, si ha bisogno di specificare che il testo all'interno dell'etichetta deve essere centrato . Per fare questo, fare clic su " Allineamento testo " proprietà nella finestra Proprietà . VB visualizzerà un piccolo modulo con nove pulsanti su di esso . Ogni pulsante indica un'opzione di allineamento per il testo dell'etichetta . Fare clic con il pulsante centrale per specificare che il testo dell'etichetta deve essere centrato . Aggiungete un po ' di testo per l'etichetta digitando il testo nella proprietà "Testo" della finestra Proprietà . Ad esempio, digitare " Ecco un po ' di testo che vorrei centro".
Finestra di programmazione

Dopo la progettazione del modulo di simulare la funzione MsgBox , inserire la finestra di programmazione , in cui è possibile digitare le dichiarazioni che il centro di controllo Label tenendo il testo . Premendo il tasto " F7" ti porta a quella finestra .
Form Eventi

forme di VB può prendere qualsiasi dimensione l'utente vuole trascinarle . Questo comportamento significa che il testo non possa essere centrato a meno che non si può rilevare quando il form viene ridimensionato , e cambiare la posizione della Label che contiene il testo di conseguenza. Funzioni degli eventi di Windows forniscono un modo per rilevare il ridimensionamento e altri eventi . La funzione di evento specifico richiesto in cui digitare le dichiarazioni che centrare il testo in modo dinamico è l'evento Paint. Ogni volta che VB ha bisogno di ridisegnare la forma , questa funzione viene utilizzata evento . Ridimensionamento innesca questo evento , così come la forma riapparendo da dietro la finestra di un'altra applicazione .
Personalizzazione Evento Paint

indicare VB si desidera digitare il tuo programma di text- centratura l' evento Paint selezionando quell'evento da elenchi a discesa della finestra di programmazione . Fare clic su " evento Form" dalla sinistra a discesa sopra la finestra di programmazione , quindi fare clic sulla voce "Paint " dall'elenco a discesa a destra . VB viene visualizzata la funzione vuota Paint per voi a riempire con le proprie dichiarazioni.
Calcoli per centraggio

Uso dell'istruzione vernice al centro di un controllo Label comporta un paio di base calcoli . Faresti eseguire questi stessi calcoli per centrare il testo su supporti fisici , come un pezzo di carta . Incollare le seguenti dichiarazioni in funzione Paint. Queste dichiarazioni calcolare il bordo più a sinistra del controllo Label il cui testo si sta centratura . I commenti della dichiarazione spiegano ogni fase del calcolo . Prova il tuo emulatore MsgBox per la centratura del testo premendo il tasto della tastiera "F5" . Quando viene visualizzata la forma del programma , trascinare uno dei suoi angoli per ridimensionare la forma . Il testo rimane centrato .

' Get dimensioni di etichetta di' Get dimensioni del modulo ' Sottrai formato etichetta dalla dimensione del modulo ' dividere per 2 'Set label.left risultare

Dim w , w2 , difw = Me.Size.Widthw2 = Label1.Size.Widthdif = w - w2dif = DIF /2Label1.Left = DIF