VB MsgBox funksjonen har ingen måte å sentrere teksten du vil vise med funksjonen . Men kan du lage en tilsvarende funksjon som gjør displayet sentrert tekst . En måte å skape denne funksjonen er å utforme et egendefinert skjema med en etikett som dynamisk repositions seg når skjemaet inneholder etiketten er endret. Designe Form

Det første trinnet i å lage din egen MsgBox funksjon med teksten du kan dynamisk sentrere er å lage tilpassede form som vil vise teksten . Dette innebærer å skape en VB Windows Form prosjektet. Inne VB utviklingsmiljø , trykker du på " Control" og " N " samtidig , og klikk deretter Windows Form element for å skape et slikt prosjekt.
Etikett Kontroll

Når form utforming vises, flytter en etikett kontroll fra Toolbox på skjemaet . Plasser etiketten hvor som helst, programmet vil sentrum etiketten . Men trenger du å angi at teksten i Etikett må være sentrert . For å gjøre dette , klikker du på "Text Align" eiendom i vinduet Egenskaper. VB vil vise et lite skjema med ni knapper på den . Hver knapp indikerer en justering alternativ for Merkelappens teksten . Klikk på den midterste knappen for å angi at Etikettekst må være sentrert . Legg til litt tekst på etiketten ved å skrive at teksten i " Text " eiendom i Egenskaper-vinduet . For eksempel " Her er litt tekst jeg vil gjerne sentrum . "
Programmeringsvinduet

Etter utforme skjemaet for å simulere MsgBox funksjon , skriv programmeringsvinduet , der du kan skrive uttalelser som sentrum label kontroll holder teksten. Ved å trykke " F7 " bringer deg til det vinduet.
Form Hendelser

VB skjemaer kan ta alle størrelser brukeren ønsker å dra dem til . Denne atferden betyr at teksten vil sannsynligvis ikke være sentrert med mindre du kan oppdage når skjemaet er endret , og endre plasseringen av merket som holder teksten deretter. Windows hendelsesfunksjonene kan gi oss en måte å oppdage endring av størrelse og andre arrangementer . Den spesifikke hendelsen funksjon nødvendig å skrive uttalelser som dynamisk senter tekst er Paint hendelsen. Når VB må tegne skjema , er denne hendelsen funksjonen brukes . Endre størrelse utløser dette arrangementet , som gjør skjemaet gjenoppstå fra bak en annen programmets vindu .
Tilpasse Paint begivenhet

indikere til VB vil at du skal skrive inn tekst - sentrering program i Paint hendelsen ved å velge den hendelsen fra programmering vinduets drop- down lister. Klikk på " Form event" fra lengst til venstre drop- down listen ovenfor programmeringsvinduet , klikk deretter på " Paint" element fra lengst til høyre nedtrekkslisten . VB vil vise den tomme Paint funksjon for deg å fylle med dine egne uttalelser .
Beregninger for Sentrering

Bruke Paint uttalelse til sentrum en etikett kontroll innebærer noen grunnleggende beregninger . Du vil utføre de samme beregningene til sentrum tekst på fysiske medier , som et stykke papir . Lim inn følgende uttalelser i Paint funksjon . Disse uttalelsene beregne venstre kanten av merket kontroll med teksten du sentrering . Uttalelsen kommentarer forklare hvert trinn i beregningen. Test din MsgBox emulator for sentrering teksten ved å trykke " F5" tast på tastaturet . Når programmets skjemaet vises , drar ett av hjørnene for å endre størrelsen på skjemaet. Teksten vil bli sentrert .

'Get størrelsen på etiketten "Get størrelsen på skjemaet" Trekk etiketten størrelse fra form størrelse ' Divide av to ' Set label.left å resultere

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