Scripts - Tutorials - Forum - Downloads - Showcase - Contact

Artikels

VPN vergelijken

Algemeen

Beginpagina

FAQ

Grafische worm (243)

Links

Nieuwsartikels

Nieuwsarchief

Boeken programmeren

Overzicht

Samenwerken

Webhosting

Zoek op Sitemasters

Leden

Registreren

Ledenlijst

Ons team

Links

webhostingtop10.be

Sociale media

Follow @sitemasters

Sitemasters

Adverteren op Sitemasters?

Contacteer ons

RSS

Link naar ons

Donaties

Poll

Je moet ingelogd zijn om te stemmen.

Statistieken

Linkpartners

Forum

Categorieën > VB.NET

exception handling (Opgelost) | Pagina 2

48 antwoorden

Gesponsorde links

kickasgamer - 07/01/2008 20:59
PHP ver gevorderde		Plaatscode: 4848 dit is de code, die code wat tussen comments staat was de vorige mehode ;)

Ibrahim - 07/01/2008 21:06
PHP expert		titjes schreef: [..quote..]Inderdaad! Maar dat gaat dus niet op die manier! een switch optie kan dan dus wel

Abbas - 07/01/2008 21:14
Crew .NET		Ja een switch optie kan wel! @kickassgamer: je moet die "Declare Function..." binnen je Class zetten. Dan krijg je nog twee errors, dat 'vbKey0' en 'KEY_DOWN' niet gedeclareerd zijn. Ik zal hier dan ook eens naar kijken.

kickasgamer - 07/01/2008 21:19
PHP ver gevorderde		ah ja was dom van me om dat buiten die class te zetten, maar normaal zijn die vbkey0 en KEY_DOWN voor ge maakte waardes

Abbas - 07/01/2008 21:24
Crew .NET		Alleen snap ik niet waarom je gaat kijken of er op de 0-toets geduwd wordt als je op de 0-knop klikt...

kickasgamer - 07/01/2008 21:32
PHP ver gevorderde		ah ja, dus eigenlijk moet ik nog een aparte handling doen voor de toets controle. Dus 1 controle voor alles cijfer als ze geklikt worden en een andere controle voor als ze ingetoetst worden

Abbas - 07/01/2008 21:39
Crew .NET		Jups.

kickasgamer - 07/01/2008 21:40 (laatste wijziging 08/01/2008 20:51)

PHP ver gevorderde

ok daar ga ik dan morgen aanwerken al vast bedankt

EDIT: deze error heb ik nu: statement cannot apear out a methode body.

maar ik denk dat het er aan ligt omdat het niet tussen een zo'n private sub ...

dit is hoe ik het nu heb, ik heb het zo gedaan omdat er geen klik moet zijn voor dat die toets gevoeligheid werkt

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Private Sub nr9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nr9.Click
        If verder_nieuw = True Then
            display.Clear()
        End If
        display.Text = display.Text & nr9.Text
        verder_nieuw = False
    End Sub
    'Toetsgevoeligheid
    If Getkeystate(vbKey8) And KEY_DOWN Then
    display.Text = display.Text & 8

            
Private Sub nr9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nr9.Click
        If verder_nieuw = True Then
            display.Clear()
        End If
        display.Text = display.Text & nr9.Text
        verder_nieuw = False
    End Sub
    'Toetsgevoeligheid
    If Getkeystate(vbKey8) And KEY_DOWN Then
    display.Text = display.Text & 8
 

Abbas - 08/01/2008 21:14
Crew .NET		Dat moet inderdaad niet in de Sub van die toets maar het mag niet zomaar los in je code zetten he...

kickasgamer - 08/01/2008 21:29
PHP ver gevorderde		maar waar moet het ik het dan zetten of moet ik daar een andere sub voor aan maken, bv een onload ?

Abbas - 08/01/2008 22:03

Crew .NET

Hierin:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Private Sub Form1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress

End Sub
            
Private Sub Form1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
 
End Sub

kickasgamer - 09/01/2008 21:26
PHP ver gevorderde		Nu heb ik nog 1 error dat vbkey0 niet gedeclared is maar normaal (zo zeggen ze toch in de tut) dat vbkey[toetsnaam] een voor gedeclaarde waarde

Abbas - 10/01/2008 19:44

Crew .NET

Dat hoeft allemaal niet. Deze code is heel simpel, maar is maar om aan te tonen hoe het werkt.

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Private Sub Form1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress

    'Als er op de "Esc" toets gedrukt wordt, het programma stoppen
    If Asc(e.KeyChar) = 27 Then
        Application.Exit()
    End If
    'Alleen als er op de toets van 1 tot 9 gedrukt wordt
    'een MessageBox weergeven, anders niets oen
    If Asc(e.KeyChar) >= 48 And Asc(e.KeyChar) <= 57 Then
        MessageBox.Show(e.KeyChar)
    End If

End Sub
            
Private Sub Form1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
 
    'Als er op de "Esc" toets gedrukt wordt, het programma stoppen
    If Asc(e.KeyChar) = 27 Then
        Application.Exit()
    End If
    'Alleen als er op de toets van 1 tot 9 gedrukt wordt
    'een MessageBox weergeven, anders niets oen
    If Asc(e.KeyChar) >= 48 And Asc(e.KeyChar) <= 57 Then
        MessageBox.Show(e.KeyChar)
    End If
 
End Sub
 

kickasgamer - 10/01/2008 20:58
PHP ver gevorderde		maar moet ik dan een handling maken per button zeker. want ik ga geen message box laten zien maar een handling \| display.Text = nr van de toets wordt ingedrukt. de rest lijkt me perfect maar waar vind ik zo'n lijst van alle key nummers ?

Abbas - 10/01/2008 21:20 (laatste wijziging 10/01/2008 21:20)
Crew .NET		Neen, je moet geen Event maken voor elke knop. Dit Event detecteert of er op een toets is gedrukt en in dit event bepaal je wat er gebeurt afhankelijk van welke toets je hebt ingedrukt. Je moet dan een lijst met de ASCII-waardes van alle cijfers hebben en die dan gebruiken. Als je de code een beetje deftig bestudeert zie je dat je van de toets die is ingedrukt de ASCII-waarde ophaalt. Hier is een eenvoudige code om het getal in de TextBox "display" te zetten waarvan de toets is ingedrukt: vbnet code - Bekijk de code zonder highlighting - Klap code in Private Sub Form2_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress 'Deze if controleert of de ingetikte toets een getal is 'De ASCII-waardes 48 tot en met 57 zijn de getallen 0-9 If Asc(e.KeyChar) >= 48 And Asc(e.KeyChar) <= 57 Then display.Text &= e.KeyChar End If 'Als de komma-Boolean op False staat en de ingetoetste 'daadwerkelijk een komma is, de komma toevoegen in het vak If komma = False And Asc(e.KeyChar) = 44 Then display.Text &= e.KeyChar komma = True End If End Sub Private Sub Form2_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress 'Deze if controleert of de ingetikte toets een getal is 'De ASCII-waardes 48 tot en met 57 zijn de getallen 0-9 If Asc(e.KeyChar) >= 48 And Asc(e.KeyChar) <= 57 Then display.Text &= e.KeyChar End If 'Als de komma-Boolean op False staat en de ingetoetste 'daadwerkelijk een komma is, de komma toevoegen in het vak If komma = False And Asc(e.KeyChar) = 44 Then display.Text &= e.KeyChar komma = True End If End Sub Declareer nog een Boolean, "komma" genaamd. Deze wordt op True gezet als de komma ingetikt is. Als deze al op True staat kan je geen tweede komma ingeven, wat vrij logisch is. Als je dan op de "="-toets of op een bewerkingstoets drukt zet je deze terug op False zodat je in het volgende getal weer een komma kan gebruiken. Dus geen Event voor elke knop ofzo en je hebt geen lijst meer nodig, alleen eventueel nog voor de vier bewerkingen. Beetje duidelijk zo?

kickasgamer - 10/01/2008 21:25 (laatste wijziging 10/01/2008 21:29)
PHP ver gevorderde		super man, eens alles testen en dan ist ok EDIT: het werkt allemaal nu nog even zorgen dat die . een , wordt maar hartelijk bedankt

Abbas - 11/01/2008 01:16
Crew .NET		Graag gedaan, zo heb ik weer een tevreden klant!

kickasgamer - 11/01/2008 16:10
PHP ver gevorderde		zeker een tevreden klant en iemand die .net graag doet

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten