Kód VB Center textu v správe Box

Funkcia MsgBox VB nemá žiadne prostriedky do centra text , ktorý chcete zobraziť , pomocou funkcií . Avšak , môžete vytvoriť rovnakú funkciu, ktorá robí zobrazenie na stred textu. Jeden prístup k vytvoreniu tejto funkcie je navrhnúť vlastný formulár štítkom , ktorý dynamicky premiestni sa kedykoľvek formulár obsahujúci štítok je veľkosť . Navrhnite formulár

Prvým krokom pri vytváraní svojej vlastnej MsgBox funkcie , ktorej text môžete dynamicky recenter je navrhnúť vlastný formulár , ktorý sa zobrazí text . To zahŕňa vytvorenie projektu VB Windows Form . Vnútri vývojové prostredie VB , stlačte tlačidlo " Control " a " N " súčasne , kliknite na položku Windows Form vytvoriť takýto projekt .
Label Control

zobrazí sa okno návrhu formulára pretiahnite ovládací prvok Label z panela nástrojov do formulára . Umiestnite štítok kdekoľvek , váš program sa zameria na štítku . Avšak , vy potrebujete určiť , že text vo vnútri štítku musí byť v strede . Ak chcete urobiť, kliknite na tlačidlo " Text Zarovnať " vlastnosť v okne Vlastnosti . VB sa zobrazí malý formulár s deviatimi tlačidlami na to . Každé tlačidlo naznačuje možnosť zarovnanie textu popisku . Kliknite na prostredné tlačidlo určíte , že sa text štítku sa musí sústrediť . Pridať nejaký text na štítku zadaním , že text v " Text " vlastnosť v okne Vlastnosti . Zadajte napríklad "Tu je nejaký text by som chcel sústrediť . "
Programovanie Window

Po navrhnutí formulára simulovať funkciu MsgBox , zadajte programovacie okno , v ktorom môžete zadať príkazy , ktoré centrum na ovládací prvok Popis drží textu. Stlačením tlačidla " F7 " vás privedie do tohto okna .
Formulár Udalosti

formy VB môže mať akúkoľvek veľkosť užívateľ chce pretiahnuť . Toto správanie znamená , že váš text nebude pravdepodobne v stredu , ak môžete zistiť , kedy sa zmene veľkosti formulára a zmeniť pozíciu Label , ktorá drží svoj ​​text podľa toho . Funkcia udalostí systému Windows poskytujú spôsob , ako detekovať zmenu veľkosti a ďalších akcií . Požadované, v ktorom zadajte príkazy , ktoré dynamicky centrum text je Paint udalosť špecifická funkcia udalosť . Kedykoľvek VB potrebuje prekresliť formulár , táto funkcia udalosť sa používa . Zmena veľkosti aktivuje túto udalosť , rovnako ako forma objaviť spoza okna iné aplikácie .
Prispôsobenie Paint udalosť

Uveďte VB Ak chcete zadať text , centrovanie program paint udalosť vybraním túto udalosť z rozbaľovacích zoznamov programovacieho okna . Kliknite na " Form udalosť " z úplne vľavo rozbaľovacieho zoznamu nad programového okna a potom kliknite na tlačidlo " Paint " položku z najviac vpravo rozbaľovacieho zoznamu . VB sa zobrazí prázdne funkciu Paint pre vás naplniť svoje vlastné vyhlásenie .
Výpočty pre centrovanie

Pomocou príkazu Maľovanie na stred ovládacieho prvku Label zahŕňa niekoľko základných výpočty . Vy by ste vykonávať tie isté výpočty na stred textu na fyzických médiách , ako kus papiera . Vložte nasledujúce príkazy vo funkcii Paint . Tieto výkazy vypočítať vľavo okraj ovládacieho prvku Label , ktorého znenie ste centrovanie . Komentáre výkazu je vysvetliť každý krok výpočtu . Otestujte si svoje MsgBox emulátor pre centrovanie textu stlačením tlačidla " F5 " klávesnice kľúč . Akonáhle sa zobrazí formulár programu , pretiahnite jeden z jeho rohov zmeniť veľkosť formulára . Váš text zostane v stredu .

" Získať veľkosť štítku " Získať veľkosť forme " Odpočítať veľkosť štítku od veľkosti forma " Divide o 2 " Sada label.left viesť klipart

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

• Predchádzajúca strana: Čo je VB Script Používa sa pre 
• Ďalšia strana: Xcode Tutorial Web Browser