VB Code till Center text i en meddelanderuta

July 11

VB: s MsgBox funktion har inte på något sätt till centrum text som du vill visa med funktionen. Du kan dock skapa en motsvarande funktion som gör displayen centrerad text. Ett sätt att skapa denna funktion är att utforma ett anpassat formulär med en etikett som dynamiskt omplacerar sig när formuläret innehåller etiketten storlek.

Utforma Form

Det första steget i att skapa din egen MsgBox funktion vars text du kan dynamiskt centrera är att utforma det anpassade formuläret som kommer att visa texten. Detta handlar om att skapa en VB Windows-formulär projektet. Inne VB utvecklingsmiljö, tryck på "Control" och "N" samtidigt, och klicka sedan på Windows-formulär objektet för att skapa ett sådant projekt.

etikett Kontroll

När formen designfönstret visas, dra en Label-kontrollen från Verktygslådan på formuläret. Placera etiketten helst; programmet kommer att centrera etiketten. Däremot behöver du ange att texten i etiketten måste vara centrerad. För att göra detta, klicka på "Text Justera" egendom i fönstret Egenskaper. VB visar en liten form med nio knappar på den. Varje knapp visar ett justeringsalternativ för etikettens text. Klicka på mittenknappen för att ange att Label texten måste vara centrerad. Lägg till lite text till etiketten genom att skriva texten i "Text" egendom i fönstret Egenskaper. Till exempel, typ "Här är några text jag skulle vilja centrum."

programmering Fönster

Efter att utforma formuläret för att simulera MsgBox funktionen anger programmeringsfönstret, där du kan skriva uttalanden som centrum Label-kontrollen håller texten. Genom att trycka "F7" ger dig till detta fönster.

Form Händelser

VB former kan ta vilken storlek användaren vill dra dem till. Detta beteende innebär att din text kommer sannolikt inte vara centrerad om du kan upptäcka när formuläret storlek, och ändra placeringen av den etikett som håller din text i enlighet därmed. Windows händelsefunktioner ger en sätt att upptäcka storleksändring och andra evenemang. Den specifika händelsen funktion krävs för att skriva uttalanden som dynamiskt centrum text är Paint händelsen. När VB måste rita formen, är denna händelse funktion som används. Storleksändring utlöser denna händelse, liksom formen återkommer bakifrån annan programfönstret.

Anpassa Paint Händelse

Ange till VB du vill skriva din text-centre program i Paint händelse genom att välja denna händelse från fönstrets programmeringsrullgardinslistor. Klicka på "Form händelse" från den vänstra listrutan ovanför fönstret programmerings, klicka sedan på "Paint" objekt från den högra listrutan. VB visar tom Paint funktion för dig att fylla med dina egna uttalanden.

Beräkningar för centrering

Använda Paint uttalande att centrera en Label-kontrollen innebär några grundläggande beräkningar. Man skulle kunna utföra samma beräkningar till centrum text på fysiska media, som en bit papper. Klistra in följande uttalanden i Paint funktionen. Dessa uttalanden beräkna den vänstra kanten av Label-kontrollen vars text du centrering. Uttalandet kommentarer förklara varje steg i beräkningen. Testa din MsgBox emulator för centre text genom att trycka på "F5" tangent. När programmet blankett visas, drar ett av sina hörn för att ändra storlek på formen. Din text förblir centrerad.

' Get size of label
' Get size of form
' Subtract label size from form size
' Divide by 2
' Set label.left to result

Dim w, w2, dif
w = Me.Size.Width
w2 = Label1.Size.Width
dif = w - w2
DIF = DIF / 2
Label1.Left = dif


        

Välkommen till dig för att skicka en kommentar:

            
            
            
            

© 2022 Astrixsoft.com | Contact us: webmaster# astrixsoft.com