VB MsgBox funktion har ingen midler til at centrere tekst , du vil vise med funktionen . Men du kan oprette en tilsvarende funktion, der gør skærmen centreret tekst . En metode til at skabe denne funktion er at designe en brugerdefineret formular med en etiket, der dynamisk repositions selv når formular, der indeholder etiketten ændres. Designe Form
Det første skridt i at skabe din egen MsgBox funktion, hvis tekst, du kan dynamisk centrere er at designe brugerdefinerede formular , der vil vise teksten . Dette indebærer at skabe en VB Windows-formular projekt. Inde VB udvikling miljø, " Control" og "N" samtidig trykke og derefter klikke på Windows-formular element til at skabe et sådant projekt.
Label Kontrol
Når formen design vises en Label kontrol trække fra Toolbox til formularen . Placer etiketten overalt, dit program vil centrere etiketten. Men har du brug for at angive, at teksten i Label skal være centreret . For at gøre dette , klik på " Text Ret " ejendom i vinduet Egenskaber . VB vil vise en lille formular med ni knapperne på det . Hver knap angiver en tilpasning mulighed for etikettens tekst . Klik på den midterste knap for at angive, at Label tekst skal være centreret . Tilføj en tekst til etiketten ved at skrive , at teksten i "Tekst " ejendom i vinduet Egenskaber . For eksempel , skriv " Her er noget tekst jeg gerne på centrum."
Programmering Window
Efter at designe formularen til at simulere funktionen MsgBox Indtast programmeringen vindue, hvor du kan skrive erklæringer om, at centret Label kontrol holder teksten. Ved at trykke " F7 " bringer dig til dette vindue.
Form Events
VB formularer kan tage enhver størrelse brugeren ønsker at trække dem til . Denne adfærd betyder, at din tekst vil ikke sandsynligt blive centreret , medmindre du kan registrere, når formularen er skaleret , og ændre placeringen af etiketten, som holder din tekst i overensstemmelse hermed . Windows Event -funktioner gør giver en måde at opdage resizing og andre arrangementer. Den specifikke begivenhed funktion kræves til at skrive udsagn, dynamisk center tekst er Paint begivenhed. Når VB nødt til at gentegne form er denne begivenhed funktion anvendes. Ændre størrelse udløser denne begivenhed , som betyder form, dukke op igen bagfra andet program vindue.
Tilpasning Paint event
Angiv til VB du vil skrive din tekst - centrering program Paint begivenhed ved at vælge denne begivenhed fra programmeringen vinduets drop- down lister. Klik på " Form begivenhed" fra yderste venstre drop- down listen ovenfor programmeringen vindue, klik så på " Paint " element fra længst til højre drop- down listen. VB vil vise den tomme Paint funktion for dig at udfylde med dine egne udtalelser .
Beregninger for Centrering
Brug af Paint erklæring til centret en Label kontrol indebærer et par grundlæggende beregninger. Du vil udføre disse samme beregninger for at centrere tekst på fysiske medier , som et stykke papir. Indsæt følgende udsagn i Paint -funktionen. Disse udsagn beregne længst kant Label kontrol , hvis tekst du centrering . Den erklæring kommentarer forklare hvert trin i beregningen . Test din MsgBox emulator til centrering tekst ved at trykke på " F5 " tastatur nøgle. Når programmets formular vises , skal du trække et af dens hjørner for at ændre formularen. Din tekst vil forblive centreret.
'Get størrelse etiket ' Get størrelse formular ' Trække label størrelse fra formular size' Divide med 2 ' Set label.left at resultere
Dim w, w2 , difw = Me.Size.Widthw2 = Label1.Size.Widthdif = w - w2dif = DIF /2Label1.Left = DIF
