login  Naam:   Wachtwoord: 
Registreer je!
 Forum

tekenen met VB.net (Opgelost)

Offline kickasgamer - 12/01/2008 22:10
Avatar van kickasgamerPHP ver gevorderde ik zoek dus tutorials over tekenen in VB.net of iemand die me wat uitleg kan geven erover, want ik ga een volgend programma maken waar ik je bepaalde vormen kan kiezen bv cirkel of vierkant en dan wordt dan getekend.

hoe en met welke functies 
alvast bedankt

8 antwoorden

Gesponsorde links
Offline Abbas - 12/01/2008 23:57 (laatste wijziging 13/01/2008 03:16)
Avatar van Abbas Gouden medaille

Crew .NET		 Ok, ik heb zelf een beetje moeten zoeken want ik kende de Drawing Class al in C# maar echt vormen gaan tekenen had ik nog niet gedaan met VB.NET. De code is een zelfgeschreven functie die vier parameters meekrijgt: x, y, width en height. Dit dient om te bepalen waar de vorm moet getekend worden en hoe groot.

vbnet code - Bekijk de code zonder highlighting - Klap code in 
  1. 'Deze voer integers kunnen in jouw geval van een textbox komen
  2. Dim a, b, c, d As Integer
  3. a = 10
  4. b = 10
  5. c = 250
  6. d = 300
  7.  
  8. 'klasse Graphics in een variabele steken
  9. Dim tekenen As Graphics
  10.  
  11. 'subroutine om een rechthoek te tekenen
  12. Private Sub TekenRechthoek(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer)
  13.  
  14.     'een struct van het type rectangle declareren
  15.     Dim vierhoek As Rectangle
  16.  
  17.     'de huidige form instellen als de form waar moet getekend worden
  18.     tekenen = Graphics.FromHwnd(ActiveForm().Handle)
  19.  
  20.     'alles meegeven dat nodig is (x en y positie en breedte/hoogte)
  21.     vierhoek = New Rectangle(x:=a, y:=b, Width:=c, Height:=d)
  22.     'de figuur tekenen
  23.     tekenen.DrawRectangle(Pens.Black, rect:=vierhoek)
  24.  
  25. End Sub
  26.  
  27. Private Sub TekenCirkel(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer)
  28.  
  29.     'hier geldt hetzelfde alleen dan voor een cirkel
  30.     Dim cirkel As RectangleF
  31.  
  32.     tekenen = Graphics.FromHwnd(ActiveForm().Handle)
  33.     cirkel = New RectangleF(x:=a, y:=b, Width:=c, Height:=d)
  34.     tekenen.DrawEllipse(Pens.Black, rect:=cirkel)
  35.  
  36. End Sub

Je kan de functies aanroepen op deze manier als de waardes van de parameters van TextBoxen komen:

vbnet code - Bekijk de code zonder highlighting - Klap code in 
  1. TekenRechthoek(CType(TextBox1.Text, Integer), CType(TextBox2.Text, Integer), CType(TextBox3.Text, Integer), CType(TextBox4.Text, Integer))
Offline kickasgamer - 13/01/2008 19:44
Avatar van kickasgamer PHP ver gevorderde dat lijkt me een zeer handige functie, maar ik heb ook wat rond gezocht op het internet en daar leken me een paar voor gemaakte functies te zijen, zoiets als GD in php, zijn die er echt ?
Offline Wim - 13/01/2008 19:47
Avatar van Wim Crew algemeen Ja...

zoek maar eens op het object "pen"
Offline Abbas - 13/01/2008 19:53
Avatar van Abbas Gouden medaille

Crew .NET		 Jups, inderdaad! De Class "Pen" is vergelijkbaar met de GD Library van PHP.
Offline kickasgamer - 13/01/2008 22:04
Avatar van kickasgamer PHP ver gevorderde en die pen class is zo de algemene class met verschillende functies erin ?
Offline Abbas - 13/01/2008 22:27
Avatar van Abbas Gouden medaille

Crew .NET		 Jups, je kan eens kijken bij de Graphics en de Pen Class. Hiermee kan je toch veel doen.
Offline kickasgamer - 14/01/2008 21:13 (laatste wijziging 14/01/2008 21:42)
Avatar van kickasgamer PHP ver gevorderde ja ik ben nu die class een beetje aan het bestuderen, maar tis in het begin want proberen enz
Offline Abbas - 14/01/2008 22:12
Avatar van Abbas Gouden medaille

Crew .NET		 Die klasse zit eigenlijk heel logisch in elkaar hoor, alles wijst zichzelf uit! 
Gesponsorde links
Dit onderwerp is gesloten.
Actieve forumberichten
© 2002-2024 Sitemasters.be - Regels - Laadtijd: 0.18s