Archief - Q: Visual Basic 6.0

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
t

tarGET ME

Legacy Member
ik weet niet of ik in het juiste forum zit, dit leek me het meest gepaste


Als ik in vb een tekstvak hoe kan ik er dan voor zorgen dat ik alleen nummerieke waarden kan ingeven, geen letters.


dank u

greets
C

Cakeman

Legacy Member
Bij de onkeypress event van die tekstbox kijken welke toets ingedrukt is.
Ik geloof dat er een dergelijk voorbeeldje in MSDN staat.

Die onkeypress event heeft een parameter die de ascii waarde van de ingedrukte toets bevat. Je kan dan kijken of die ascii waarde overeenkomt met de ascii waardes van cijfers, backspace of delete. Indien dat niet zo is, zet je die waarde op null of 0.

Ik ben niet zeker dat het exact zo werkt, aangezien ik al heel lang geen VB meer gedaan heb en de 6.0 staat niet meer geïnstalleerd hier.
O

Obliv`

Legacy Member
Code: 
select case -1
    case e.keychar.isnumber(e.keychar)
        e.handled = false
    case else
        e.handled = true
end select

dit is zo in vb.net, ken vb6.0 niet maar veronderstel da het ongeveer hetzelfde is. heb het wel nie getest maar in vb.net werkt het zeker

groetjes
O

Obliv`

Legacy Member
da moet natuurlijk zoals hier beetje boven al gezegt is wel in uwe onkeypress event staan eh
S

Spacy2003

Legacy Member
Code: 
Private Sub Text1_KeyPress(KeyAscii As Integer)

    Select Case KeyAscii
        Case 44 To 57, 8       
        'Case 13 --- eventueel voor een enter command die je onder deze case zet
        Case Else
            KeyAscii = 0
        End Select
            
End Sub

zo doe je dit ;)
d

de jerre

Legacy Member
ik heb ook een vraagje. ik ben bezig met een programma te maken om te berekenen hoeveel een auto je kost op invoerbare termijn (in jaren) en zo mijn allereerste oefening te maken. ik gebruik de vbtutor van www.vbtutor.net en heb tot dusver deze codes:
Code: 
Private Sub bereken_Click()
txt1 = Val(Text1.Text)
txt2 = Val(Text2.Text)
txt3 = Val(Text3.Text)
txt4 = Val(Text4.Text) [COLOR=RoyalBlue]deze zijn allemaaal tekstvakken die dienen[/COLOR]
txt5 = Val(Text5.Text) [COLOR=RoyalBlue]ingevuld te worden in cijfers[/COLOR]
txt6 = Val(Text6.Text)
gas = Val(brandstofL.Text) [COLOR=SeaGreen]--> dit is een combobox en weet niet of het juiste commando is[/COLOR]tussenstap = (txt1 + txt2 + txt3 + txt4 + txt5 + txt6 + gas)
resul = tussenstap / 100
resultaat1.Text = Str$(resul)
End Sub

nu als ik mijn programma draai ik vul waardes in en druk op de knop (bereken in dit geval) dan geeft hij een error, nl.: "compile error, method or data member not found" en in mijn code laat hij de ".Text =" uit laatste regel geselecteerd staan en de "private sub bereken_click" geel oplichten. ik weet niet zo goed wat hij bedoelt en nog minder hoe het op te lossen.

Alvast bedankt,

Grtz, Jerre.
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan