Welkom op de Nederland Computer Kennisnetwerk!  
 
Zoeken computer kennis
Home Hardware Netwerken Programmering Software Computerstoring Besturingssysteem
Computer Kennis >> Software >> Microsoft Access >> Content
Hoe maak je een Scrolling Marquee Text Box In Microsoft Access
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 .

Previous: Next:
  Microsoft Access
·Hoe te verwijderen duplicaten …
·Hoe je Fit een Excel Sheet op …
·Helpen om Verwijder Alleen lez…
·Lijst met sneltoetsen voor Off…
·Hoe maak je een Excel- titel F…
·Hoe te openen een Word- docume…
·Hoe kan ik een Word- extract v…
·Hoe te wijzigen Microsoft Exce…
·Data Analysis & Decision Makin…
  Related Articles
Hoe maak je een Tilde gebruiken in een W…
Hoe kan ik een Umlaut gebruiken in een W…
Hoe maak je een Holiday Nieuwsbrief op u…
Hoe maak je een viervoudige Wenskaart ma…
Hoe maak je een Tent - Fold Wenskaart Ma…
Hoe te Spelling en grammatica fouten te …
Hoe kan ik een document Zoom in Word 200…
Hoe je tekst rond een afbeelding in Word…
Hoe je de uitlijning van de tekst wijzig…
  Software Articles
·Hoe maak je een website te publiceren Me…
·Hoe te Audio op VLC omzetten 
·Hoe je opmaken opslaan wanneer e-mailen …
·Hoe maak je een Kopbal op Word 2007 Bewe…
·Hoe maak Dingen Overlap in Illustrator 
·Hoe maak je een hyperlink toevoegen aan …
·Hoe te DSN Verwijder uit een ODBC -regis…
·Wat is Stop Zilla ? 
·Hoe te Borders in Word Creëren 
Copyright © Computer Kennis http://www.nldit.com