Voeg een rollende regel met behulp van een tekstvak om snel te vangen de aandacht van de gebruiker bij het gebruik van uw Microsoft Access-toepassing . In Access kunt u Visual Basic for Applications ( VBA ) om het proces van scrollende tekst te automatiseren op een controle . VBA is een programmeertaal gebruikt om Microsoft Office- toepassingen uit te breiden . Gebruik de " Form.Timer " evenement tot een sub procedure die continu de inhoud zal updaten in het tekstvak te voeren. Instructies 1 Klik op het tabblad "Create " en klik op "Form Design" naar een nieuw formulier te maken . Klik " Text Box" op de " Controls " venster , en klik op het formulier om een nieuw tekstvak toe te voegen . Met de rechtermuisknop op het tekstvak en klik op "Eigenschappen " om het scherm " Property Sheet . " Klik op het tabblad " Opmaak " , en stel de " Tekst uitlijnen " eigenschap " rechts . " Klik op de " Andere " tab , en typ " txtMarqee " naast " Naam . " Kopen van 2 de rechtermuisknop op het formulier , klikt u op ' Build Event , " en dubbelklik op" Code Builder " te lanceren de VBA- editor venster . Druk op " Ctrl " en " A " om alle standaard code te selecteren , en druk op " Delete " om de code te verwijderen . Kopieer en plak de onderstaande code om globale variabelen die je gaat gebruiken voeg 3 in je code : Dim textStr als Koord Dim padstr als Koord Dim txtScroll als Koord Dim txtLength als Geheel Dim iLength als Geheel Dim iPos als Geheel Dim iView als Geheel Dim Irem als Geheel 4 Voeg de volgende code te definiëren de tekst die door het tekstvak zal scrollen : Private Sub Form_Load ( ) txtMarqee.SetFocus txtMarqee.Text = " " textStr = " Hoe een Scrolling Marquee Text Box In Microsoft Access " padstr = " " txtScroll = textStr & padstr txtLength = Len ( txtScroll ) op Twitter iLength = Len ( padstr ) Me.TimerInterval = 500 iPos = 1 iView = 1 End Sub < br > 5 Maak een sub procedure die de " moveText " sub procedure zal roepen : Private Sub Form_Timer ( ) moveText End sub < br > 6 Maak de " moveText " sub procedure die de in het tekstvak de tekst daadwerkelijk zal scrollen : Private Sub moveText ( ) op txtMarqee.SetFocus txtMarqee.Text = Mid ( txtScroll , iPos , iView ) Irem = txtLength - ( iPos + iView - 1 ) op Twitter Als ( iPos - 1 ) < ( txtLength - iLength ) dan Als iView < 20 En iView < Irem dan iView = iView + 1 End Als Als iPos < txtLength En iView > = 20 dan iPos = iPos + 1 End Else txtMarqee.Text = " " iPos Als = 1 iView = End 1 Als End Sub Schakelaar 7 terug naar Microsoft Access en klik op het pictogram "Weergave " te start het programma . De tekst gedefinieerd in stap vier zal beginnen om door het tekstvak te bladeren .
|