En grafisk equalizer lar deg se hvor innstillingen ligger visuelt. Innstillinger på equalizer inkluderer " tone " og " volum ". Volumet er normalt representert som en glidende knapp på en linje som representerer en høy og en lav rekkevidde . Skyve knappen til null slår av lyden, mens skyve det opp til 8 er det høyere. Hash merker eller faktiske tall kan være der for å indikere de høye og lave verdier. Instruksjoner
en

åpne et nytt Visual Basic.NET Windows Forms Application Project. Legg til en " trackbar " kontroll for hver kontrolleren på equalizer . Volum , diskant og bass er vanlige equalizerkontrollene . Du bør også legge til en "play" og " stopp " eller "pause" -knapp i skjemaet .
2

Still plassering, navn , minimumsverdi , maksimumsverdi , orientering og størrelse hver " trackbar " kontroll. Plasseringen er satt av xy koordinat på skjemaet, er orientering horisontal eller vertikal og størrelse er også representert ved de xy punktposisjonene : en

Me.tbBass.Location = Ny System.Drawing.Point ( 58 , 148 ) Me.tbBass.Minimum = - 10Me.tbBass.Maximum = 10Me.tbBass.Name = " tbBass " Me.tbBass.Orientation = System.Windows.Forms.Orientation.VerticalMe.tbBass.Size = Ny System.Drawing.Size ( 56, 194 )
3

Definer en enhet kontroll for å spille lyd til prosjektet . Du kan bruke " SoundPlayer " class in. NET Framework 4 , eller kanskje du vil registrere en tredjepart OCX og referere til den i programmet. Den tredjeparts kontroll er referert i koden som "Private WithEvents myWave Som NewOCX.WaveDevice , " hvor " NewOCX " representerer en tredjeparts kontroll er registrert på maskinen . Microsoft SoundPlayer er referert som "Private spiller som SoundPlayer " og " Import System.Media " er også nødvendig i " Erklæringer "-delen av koden din .
4

Bruk " AddHandler " ; metode for å fange opp den nye verdien når brukeren glir en av equalizerkontrollene opp eller ned : en

AddHandler tbBass.ValueChanged , AddressOf tb_ValueChanged

Erklærer " tb_ValueChanged "-funksjonen med en referanse til en funksjon som heter " ChangeGain " som faktisk gjør jobben .

Private Sub tb_ValueChanged ( ByVal avsenderen som objekt , ByVal e Som System.EventArgs ) ChangeGain ( ) End Sub

Inne i " ChangeGain "-funksjonen er en oppfordring til å oppdatere verdien av equalizeren objekt som referanser som komponent identifisert i" trackbar : "

equalizer.SetGain ( 0 , tbVolume.Value ) equalizer.SetGain ( 1 , tbBass . Value) equalizer.SetGain ( 2 , tbTreble.Value )