Variablenproblem in VBASIC
lima-city → Forum → Programmiersprachen → Basic
-
Guten Morgen! Ich möchte den Inhalt einer String Variable an eine Currncy Variable weietergeben. ICh habe bereits sichergestellt, dass sie keine Zeichen enthält, weil ich eine Inputabfrage für ein Textfeld angelegt habe, sodass nur zahlen von 0 - 9 eingetippt werden können. Allerding muss ich noch sicherstellen, dass die Variable nicht zu lang ist, wie kann ich entweder die ZEichänge eines Strings ermitteln oder für das Textfeld angeben, dass z.B. nur 7 Zeichen eingegeben werden dürfen?
Danke im Voraus
-
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
-
Zeichenlänge:
VB6:
If Len(Text1.text) > 7 then Msgbox "Zu viele"
VB.NET:
If Text1.text.Lenght > 7 then MsgBox("Zu viele!")
VB.NET:
Text1.MaxLenght = 7
Viele Grüße
Philipp Keck -
@battlesoft: Er verwendet VB 6 oder eine ältere Version, denn in VB.Net wird Currency nicht mehr unterstützt, stattdessen Decimal.
Hier ein Beipsiel für VB 6:
Option Explicit
Private Sub Form_Load()
Me.TextBox1.MaxLength = 15
End Sub
Private Sub TextBox1_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End Sub
Private Sub CommandButton1_Click()
If IsNumeric(Me.TextBox1.Text) Then
Dim Zahl As Currency
Zahl = CCur(Me.TextBox1.Text)
If Zahl Mod 2 = 0 Then
MsgBox "Gerade Zahl"
Else
MsgBox "Ungerade Zahl"
End If
Else
MsgBox "Keine gültige Zahl."
End If
End Sub
Beitrag geaendert: 5.1.2007 15:18:37 von cbhp -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
