Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Styra Datainmatning

Postades av 2007-07-18 17:25:39 - Niklas Rosenberg, i forum visual basic - allmänt, Tråden har 8 Kommentarer och lästs av 803 personer

Finns det något enkelt sätt att hindra en användare att skriva in tex bokstäver i ett fält som bara skall ha siffror??


Svara

Sv: Styra Datainmatning

Postades av 2007-07-18 18:18:07 - Martin Rex

Är fältet kopplat till en databas kan du sätta egenskapet på fältet till numeriskt.


Svara

Sv:Styra Datainmatning

Postades av 2007-07-18 20:52:47 - Niklas Rosenberg

Hur menade du nu??
Man skall skriva in ett tal som jag har för att hämta data i en databas.....
Blir så konstiga fel om man skriver in en bokstav i söksträngen...
Tänkte mest om det gick att fylla i godkända tecken?


Svara

Sv: Styra Datainmatning

Postades av 2007-07-18 21:07:46 - Martin Rex

Prova detta då :

<code>
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode < 48 Or KeyCode > 57 Then
MsgBox ("fel i inmatning")
End If

End Sub
</Code>


Svara

Sv:Styra Datainmatning

Postades av 2007-07-18 23:31:19 - Sven Åke Persson

Frågan är lika gammal som VB.
Så här gör jag konsekvent. Rex förslag funkar också men bara på siffror.
<code>
Private Sub Text1_KeyPress(KeyAscii As Integer)
'Normalt bör du tillåta dessa tecken tillsammans med siffror
'BackSpace, Tab, Enter, Komma, Minustecken, Punkt och 0 - 9
Select Case KeyAscii
Case 8, 9, 13, 44, 45, 46, 48 To 57
' Tillåt
'här byter du sida på 44 och 46 efter önskemål ,komma(,) punkt(.)
If KeyAscii = 44 Then KeyAscii = 46 ' Här byter jag ut komma till punkt
' så här bör det vara konsekvent
' If KeyAscii = 44 Then KeyAscii =46
Case Is = 22 'användaren klistrar in Ctrl+V
If IsNumeric(Clipboard.GetText) Then _
Text1.Text = Replace(Clipboard.GetText, ",", ".") 'byter komma till punkt vid Ctrl+V (Klistra in)
Clipboard.Clear
Case Else
KeyAscii = 0
End Select
End Sub
</code>
Efter många års strul med Nationella inställningar <b>komma(,) vs punkt(.)</b> så använder jag alltid
<b>punkt(.)</b> i matematik när jag designar program.
Sedan använder jag <b>Val(stringexpression) resp Str$(number)</b> för omvandlingar.


Svara

Sv: Styra Datainmatning

Postades av 2007-07-19 13:42:00 - Martin Rex

Ja, den är ju klart mer heltäckande.
Jag uppfattade det som att det alltid gäller ett heltal.

Om det är OK Sven, så adopterar jag den koden och lägger i min utility-dll.


mvh
Martin


Svara

Sv:Styra Datainmatning

Postades av 2007-07-19 16:43:01 - Sven Åke Persson

Självklart, det är liksom meningen med sådana här Forum.

Sen är det bättre att använda Keypress för sådana här trix.
Keycode kör man bäst mot F kapparna och pilknapparna mfl.

Vivela Open Source code


Svara

Sv: Styra Datainmatning

Postades av 2007-07-19 16:58:00 - Martin Rex

tack för det, men det sista håller jag inte riktigt med om...
Exempelvis pil-tangenter kan vara väldigt bra att kunna känna av även KeyUp.

/Martin


edit : sorry, läste ditt inlägg för dåligt....det var ju det du sa.....


Svara

Sv:Styra Datainmatning

Postades av 2007-07-19 17:03:30 - Sven Åke Persson

Tänkte även skriva det, håller helt med,men får ofta mothugg på detta.
En enkel kod för Er som vill kolla vad Vi skriver om. En Form med en Label1

Oftast är det ett måste att sätta Formens KeyPreview = True
<code>
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Label1.Caption = KeyCode
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Label1.Caption = KeyCode
End Sub
</code>
Därefter lägger man till en
Select Case KeyCode
Case Is = 38
'Gör något
Case Is = 123
' do youre stuf
'Case osv
' ****
End Select


Svara

Nyligen

  • 19:55 kick-off med fokus på hälsa?
  • 19:53 kick-off med fokus på hälsa?
  • 16:24 Föreslå en skönhetsklinik online
  • 16:23 Föreslå en skönhetsklinik online
  • 18:42 Hvor finder man håndlavede lamper
  • 18:41 Hvor finder man håndlavede lamper
  • 16:36 Allt du behöver veta om keramiskt
  • 16:14 Vem anlitar man egentligen när tak

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 725
27 958
271 751
375
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies