En grafisk equalizer kan du se , hvor indstillingen er bosat visuelt. Indstillinger på equalizer omfatte " tone" og " volumen. " Mængden normalt repræsenteret som en glidende knap på en linje, som repræsenterer en høj og en lav rækkevidde. Skubbe knappen til nul slår lyden fra, mens du trækker det op til 8 gør det højere. Hash mærker eller faktiske tal kan være der til at angive de høje og lave værdier. Instruktioner
1
Åbn en ny Visual Basic.NET Windows Forms Application Project. Tilføj en " Trackbar " kontrol for hver controller på equalizeren. Volume, diskant og bas er fælles equalizer kontroller. Du bør også tilføje en "play " og " stop" eller " pause "-knappen til formularen .
2
Angiv placering, navn, minimumsværdi maksimal værdi , orientering og størrelse hver " Trackbar " kontrol . Placeringen er fastsat af xy koordinat på formularen, orientering er vandret eller lodret og størrelse er også repræsenteret ved de xy punkt positioner : Hej
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 enhed kontrol for at spille lyd til projektet. Du kan bruge " SoundPlayer " klasse i . NET Framework 4 , eller du måske ønsker at registrere en tredjepart OCX og reference det i din ansøgning . Den tredje - parts kontrol er refereres til i kode som "Private WithEvents myWave Som NewOCX.WaveDevice , " hvor " NewOCX " repræsenterer en tredjepartskontrol registreret på maskinen. Microsoft SoundPlayer der refereres som "Private afspiller som SoundPlayer " og " Import System.Media " er også påkrævet i " Erklæringer " i din kode.
4
Brug " AddHandler " , metode til at fange den nye værdi , når brugeren glider en af equalizeren styrer op eller ned : Hej
AddHandler tbBass.ValueChanged , AddressOf tb_ValueChanged
Erklær " tb_ValueChanged " funktion med en henvisning til en funktion kaldet " ChangeGain " , der rent faktisk udfører arbejdet.
Private Sub tb_ValueChanged ( ByVal afsender som Object , ByVal e som System.EventArgs ) ChangeGain ( ) End Sub
Inde i " ChangeGain "-funktionen er en opfordring til at opdatere værdien af det udlignende objekt, referencer, komponent er identificeret i" Trackbar : "
equalizer.SetGain (0, tbVolume.Value ) equalizer.SetGain (1, tbBass . Value) equalizer.SetGain (2, tbTreble.Value )