En programmerer har flere alternativer for hvordan man implementerer strektegning i Visual Basic. Flere klasser er tilgjengelige for å bistå i å tegne linjer , eller du kan skrive din egen funksjon for å gjøre jobben for deg. Du kan bestemme om programmet vil trekke linjer på design tid , løpe tid eller begge deler basert på behovene til programmet. Tegning Lines på design tid

PaintEventArgs klassen tillater deg å trekke linjer med definerte endepunkter , slik at du kan lage figurer utover enkle kvadrater og rektangler ved å bruke en funksjon i stedet for å trekke dem med musen . For eksempel kan du definere en funksjon ved å skrive " Private Sub LineDraw ( ByVal avsenderen som System.Object , ByVal e Som System.Windows.Forms.PaintEventArgs ) Håndtak Me.Paint " og lage et objekt i funksjonen ved å skrive " Dim drawPen som New Drawing.Pen ( Color.color_choice , bredde ) " , erstatte " farge " med en faktisk farge og" bredde " med et heltall. Du tegner selve linjen ved å skrive " e.Graphics.Drawline ( drawPen , x1 , y1 , x2 , y2 )" og erstatte x og y-verdier med koordinatene hans linjens endepunkter . Du kan ringe DrawLine funksjon så mange ganger du trenger å trekke linjer .
Tegning linjene under kjøring

Du kan lage et program som lar brukeren trekke linjer og former når programmet kjører . Du kan bruke Bitmap og grafikk klasser for å opprette objekter som tillater brukeren å tegne. Du programmere skjemaets mousedown , mouseMove og mouseup funksjoner for å svare på samme måte som en blyant . Du kan opprette fire heltallsvariabler å lagre endepunktene på linjen. Når brukeren klikker et sted på skjemaet, lagrer programmet x1 og y2 koordinater. Når brukeren drar sin mus til et annet sted og slipper knappen , trekker Bitmap klassen en linje fra x1, y1 til x2 , y2 . Programmereren kan opprette en funksjon som bare vil trekke rette linjer , uansett hvor brukeren drar sin mus til .
Mixed

Du kan legge til en referanse til den PowerPacks navnerommet som inneholder LineShape klasse og tilsett LineShape kontroll til verktøykassen og deretter drar verktøyet på skjemaet for å opprette en linje. Du kan deretter dra endepunktene til linjen for å endre formen eller manuelt endre x -og y- koordinatverdier i vinduet Egenskaper. Du kan også endre andre attributter , inkludert bredden og fargen på linjen . Hvis du ønsker å tillate brukere å trekke linjer ved hjelp av LineShape verktøyet, kan du definere en ShapeContainer objekt som bruker skjemaet som et lerret og en LineShape objekt som trekker på ShapeContainer objektet . Den LineShape objektet kan bruke startpunkt og endepunkt funksjoner for å få musens x og y koordinater for å trekke linjer .