I en ruta för beräkning kan jag skriva ",12" som funkar i beräkningen, men bara för att det ska se bättre ut vill jag att man ser "0,12". Hur får jag dit nollan före kommat när jag t.ex. trycker Enter? (VB6)

/Peter

Så här kanske?

<code>
Sub Textbox1_OnKey
If KeyAscii = 13 Then
KeyAscii = 0
Textbox1.Text = CStr(CDbl(Textbox1.Text))
End If
End Sub
</code>

Det var länge sen jag använde VB6 så jag vet inte om allt heter exakt så där, men du borde förstå principen.


/Thomas

Så här ser min kod ut för "rutan" man skriver in ett värde och trycker Enter:

Private Sub txt1_KeyPress(KeyAscii As Integer)
  
    Select Case KeyAscii
   
    'Tillåt bara BackSpace,Enter,Komma,Minus,Punkt,siffror 0-9
    Case 8, 13, 44, 45, 46, 48 To 57
        'Alltid punkt som decimal avskiljare
        If KeyAscii = 44 Then KeyAscii = 46
        If KeyAscii = 13 Then
            KeyAscii = 0
              
            If Val(txt1.Text) > 0 And Val(txt2.Text) > 0 Then Call Varvtal
               
            If Val(txt1.Text) = 0 Then
                MsgBox "Du har inte skrivit in någon skärhastighet.", 48, "Hoppsan!"
                 
            Else
                txt2.SetFocus
                txt2.SelStart = 0
                txt2.SelLength = Len(txt2.Text)
            End If
            
        End If
    End Select
        
        
End Sub

txt1.Text = CStr(CDbl(txt1.Text))

KeyAscii = 0

Det borde vara rätt. Vad får du för fel?


/Thomas

Lägg in raden If Left$........... där jag visar härunder
<code>
Case 8, 13, 44, 45, 46, 48 To 57
'Alltid punkt som decimal avskiljare
If KeyAscii = 44 Then KeyAscii = 46
If KeyAscii = 13 Then
KeyAscii = 0
If Left$(txt1.Text, 1) = "." Then txt1.Text = "0" & txt1.Text 'Här
If Val(txt1.Text) > 0 And Val(txt2.Text) > 0 Then Call Varvtal
</code>

Du har KeyAscii = 0 på fel ställe. Som du har det kan man skriva bokstäver
Skall vara så här
<code>
Select Case KeyAscii
'Tillåt bara BackSpace,Enter,Komma,Minus,Punkt,siffror 0-9
Case 8, 13, 44, 45, 46, 48 To 57
'Alltid punkt som decimal avskiljare
If KeyAscii = 44 Then KeyAscii = 46
If KeyAscii = 13 Then
If Left$(txt1.Text, 1) = "." Then txt1.Text = "0" & txt1.Text
If Val(txt1.Text) > 0 And Val(txt2.Text) > 0 Then Call Varvtal

If Val(txt1.Text) = 0 Then
MsgBox "Du har inte skrivit in någon skärhastighet.", 48, "Hoppsan!"

Else
txt2.SetFocus
txt2.SelStart = 0
txt2.SelLength = Len(txt2.Text)
End If
End If
Case Else
KeyAscii = 0 'Här har jag ändrat
End Select
</code>

KeyAscii = 0 måste man väl ha vid enter (13), annars piper det väl?


/Thomas

Run-time error '13':
Type mismatch

sen blir raden: 'txt1.Text = CStr(CDbl(txt1.Text))' gulmarkerad.

Har du någon idé om felet Thomas för det är intressant att kunna göra så som du föreslår. Jag kör på SÅP:s lösning som funkar. Och så ska 'KeyAscii = 0' ligga i slutet som du påpekade Sven. Det piper inte hos mig. Kanon! 1000 tack till er båda /Peter

<b>Har du någon idé om felet Thomas för det är intressant att kunna göra så som du föreslår. </b>

Inte alls intressant. Kvalificerat "bullshit"
Thomas verkar inte förstå vad Select Case satsen gör. Gammal skåpmat.

Användaren skall bara kunna mata in siffror mm.
Sen kommer en "nisse" att skriva något om Klistra in. Så här blev min slutlösning.
<code>
Option Explicit
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>
Tack för din Feedback Peter. Det värmer att någon läser och förstår.
Mest är det "nissar" som försöker knäppa gubben på näsan. ;-)

1.
Anledningen till att du får mismatch är att din sträng innehåller '.' vilket är lika illa som att ditt tal innehåller en bokstav. I svenskt system ska det vara ','

2.
CStr(CDbl()) returnerar inte den inledande nollan. Det fungerar tvärtom, har du en nolla där tas den bort.

3.
Man kan eventuellt använda Format för att få till det på liknande Tomas sätt.

Text1.Text = Format(Text1.Text, "0.00")

Skall det vara så djä... svårt att förstå !?

Text 040 123456 är text. 0,12 är matematik

<b>Thomas verkar inte förstå vad Select Case satsen gör. Gammal skåpmat.</b>

Förklara gärna hur jag har tänkt fel med Select Case. Eller ska du ha ett knäpp till på näsan? :-)


/Thomas