vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Suche Visual-Basic Code
vb5 eingabe von klein oder großbuchstaben erkennen ? 
Autor: xverbatim
Datum: 09.01.07 16:23

hallo,

ich versuche mich gerade an einer lösung für folgendes problem.

ich muß in einer textbox eine lösung eingeben
a) z.B. "Das ist die Lösung"

nun möchte ich, daß mein Programm die Lösung auch erkennt, wenn eben die Buchstaben klein geschrieben wurde also "das ist die lösung" oder groß geschrieben wurde "DAS IST DIE LÖSUNG" oder auch gemischt "DaS IsT DIE LÖSung"

ich könnte zwar jeden einzelnen buchstaben überprüfen, aber bei mir wäre das ein ellenlanger Code und bitte daher um PROFIBEISTAND

untere Code zeigt mir an, wenn die Lösung EXAKT übereinstimmt, soll mir aber auch wie gesagt, die groß oder kleinbuchstaben durchgehen lassen und ggf. darauf hinweisen.

gruß
xverbatim

Dim antwort As String
 
Private Sub Form_Load()
antwort = "Das ist die Lösung"
 
Text1.Text = ""
End Sub
 
 
Private Sub Text1_Change()
 
Dim lang As Integer
 
lang = Len(Text1.Text)
Text3.Text = Mid$(antwort, 1, lang)
 
lang = Len(Text1.Text)
 
'HIER PROCEDURE FÜR BUCHSTABEN ERKENNEN, wenn ORGINALLÖSUNG
'Z.B. D und d wird eingeben,
'??????????????????????????????????????
If Text1.Text = Mid$(antwort, 1, lang) + Str$(32) Then
    Label1.Caption = "Kleiner, statt großer Buchstabe wurde eingebenen"
End If
 
'HIER PROCEDURE FÜR BUCHSTABEN ERKENNEN, wenn ORGINALLÖSUNG
'Z.B. d und D wird eingeben,
'??????????????????????????????????????
If Text1.Text = Mid$(antwort, 1, lang) - Str$(32) Then
    Label1.Caption = "Großer, statt kleiner Buchstabe wurde eingebenen"
End If
 
'ERKENNE GENAU DIE WÖRTER BZW. BUCHSTABEN, GROß UND KLEIN MUß EXAKT SEIN
 
If Text1.Text <> Mid$(antwort, 1, lang) Then
    Label1.Caption = " FEHLER " & Mid$(Text1.Text, Len(Text1.Text), 1)
 
    With Text1
          .SelStart = Len(Text1.Text) - 1
 
          .SelLength = Len(.Text)
    End With
 
    Text1.SetFocus
 
    Exit Sub
Else
 
If Text1.Text = "" Then Exit Sub
 
Label1.Caption = "stimmt"
 
End If
End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
vb5 eingabe von klein oder großbuchstaben erkennen ?1.275xverbatim09.01.07 16:23
Re: vb5 eingabe von klein oder großbuchstaben erkennen ?836Zardoz09.01.07 16:41
nein leider nicht wirklich684xverbatim09.01.07 16:55
keiner eine idee ? (eom)695xverbatim09.01.07 19:05
Re: vb5 eingabe von klein oder großbuchstaben erkennen ?780xverbatim09.01.07 19:55

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel