Groß, VB-6 text-box

Zu machen, wie die ersten Buchstaben in Großbuchstaben, beim drücken von tab oder Raum in vb 6.0 ?

Mein code ist wie folgt

txtFirstName.Text = UCase$(txtFirstName.Text)

aber es ändert sich nicht nach tab-oder space -

Was ist der nutzen der $ Zeichen?
es ist old-school-VB6-syntax. VB6 nicht über eine native bedeutet, dass ändern, nur den ersten Buchstaben. Auch wir haben keine Ahnung, wo der code sich befindet oder wie (oder ob überhaupt) er aufgerufen wird.
Es ist nicht wirklich old-school-syntax. String-Funktionen in VB6 paarweise vorhanden sind - akzeptiert und zurück Variants, der andere akzeptiert und zurück Strings. Die stark typisierten diejenigen, die am Ende mit $. Beide sind nützlich in verschiedenen zusammenhängen, so, wenn Sie eine string-variable mit zu beginnen, es besser zu nutzen UCase$ als UCase.
RTrim$, UCase$ etc sind eigentlich sehr alte Schule stammt aus ROM-Basic. Die nicht-Typ-Bezeichner Anzahl (UCase) sind relative Neulinge (VB5 oder 6). Aber beide Versionen nehmen und die Rückgabe von strings. Vielleicht mit vba oder etwas anderes verwendet Variante, aber nicht VB6. Aus dem Objektkatalog (beide defs): Function UCase(String) ...Returns the specified string, converted to uppercase
String hier ist der name des Parameters, nicht der Typ. Wenn der Typ Variant der Objekt-Browser lässt es komplett. Vergleichen Sie mit UCase$(String As String). Beachten Sie auch, gibt es kein zurück mehr geben für UCase(String) wieder das bedeutet, dass der return-Typ wird ausgelassen, da es Variant. Der andere ist UCase$(String As String) As String. Dasselbe geschieht in VBA. Aber Sie haben Recht, dass das dollar-Zeichen selbst stammt von vor sehr langer Zeit.
Der MSDN-Eintrag für VBA das UCase ist anders als VB6 SP3-Objekt-Browser-Eintrag (Returns the specified string...). Ob Sie die Funktionen UCase oder UCase$ VB6 ermöglicht ein Date, String, Variant oder integer übergeben werden. Die Rendite für beide ist in der Regel ein string (VarType vbString). Aber wenn du die return-variable (`%s = UCase$()) VB6 würde eine Typ-Konvertierung (im Gegensatz zu Option Infer..., die wild gegangen). Aufgrund der schwachen Typisierung, es war immer ungesehen conversions über. Gibt es vielleicht einen Weg zu zwingen, eine Variante Rückgabe/Aufgabe, aber es ist in der Regel vbString.
Returns the specified string wirklich bedeutet", Gibt die angegebene Zeichenfolge in ein Variant/String". Die Wortwahl ist einfach, um nicht zu verwirren diese VB-Benutzer, die nicht wollen, um zu wissen, details. Ja, VB6 ist alles über implizite Konvertierungen, und man kann fast nichts, aber bevor das argument erreicht die Funktion konvertiert einen string oder eine Variante. Dasselbe mit der return-Typ, können Sie eine Variante, um eine Zeichenfolge jederzeit, so können Sie dies mit der das Ergebnis der Funktion zu. Das aber ändert nichts an der Tatsache, dass man zurückkehrt, ein String und das andere ein Variant/String.
In der Tat, der einfachste Weg ist, um die VB6-Bibliothek Typ: [entry(30), helpcontext(000F6EAB)] BSTR _stdcall _B_str_UCase([in] BSTR String); [entry(31), helpcontext(000F659B)] VARIANT _stdcall _B_var_UCase([in] VARIANT* String);.
Ja, die Umsetzung im Detail anders. Aber im Direktfenster ? vartype(UCase(42)) oder ? vartype(UCase("foo")) oder sogar ein date-literal-druckt 8, der angibt, vbString zurückgegeben, bevor eine Abtretung kann die Umwandlung geschehen. Sie sind nicht die gleiche Funktion, aber Sie sind funktionell gleich und austauschbar (passiert sogar eine Variante, es kommt wieder als String). Es sieht aus wie Sie versuchen, verwenden Sie die neue Variante anstelle von was auch immer Typ-Konvertierungen erforderlich waren, mit der alten Methode. Es macht kaum mit einer solchen Reliquie. Sorry an den OP für den hijack!
VarType ist eine normale Funktion, nicht eine Sprache konstruieren, und es wird erklärt, akzeptiert einen parameter vom Typ VARIANT*, so hat der compiler die zu packen, die wahre String zurückgegeben UCase$ in eine Variant/String vor der übergabe an VarType, die macht VarType(UCase("a")) erscheinen genau die gleiche wie VarType(UCase$("a")). Ja, Sie sind absolut austauschbar, aber der Unterschied kann wichtig werden für große Zeichenfolgen, da diese Variante-string-Konvertierung erstellt Kopien.

InformationsquelleAutor Jeevan Gharti | 2015-04-08

Verwenden Sie die LostFocus Veranstaltung

Private Sub yourTextBox_LostFocus()
    With yourTextBox
        'first letter in upper case, the rest, untouched.
        .Text = UCase(Mid(.Text, 1, 1)) & Mid(.Text, 2, Len(.Text))
    End With
End Sub

Gilt die gleiche Logik auf die KeyDown event und prüfen Sie, ob die gedrückte Taste ist die Leertaste.

Private Sub yourTextBox_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 32 Then
        With yourTextBox
            'first letter in upper case, the rest, untouched.
            .Text = UCase(Mid(.Text, 1, 1)) & Mid(.Text, 2, Len(.Text))
            .SelStart = Len(.Text) 'put the cursor at the end of the textbox...
        End With
    End If
End Sub

InformationsquelleAutor Francis Ducharme

-1

StrConv Function


Returns a Variant (String) converted as specified. 

Syntax

StrConv(string, conversion, LCID)

The StrConv function syntax has these named arguments:

Part Description 
string Required. String expression to be converted. 
conversion Required. Integer. The sum of values specifying the type of conversion to perform. 
LCID Optional. The LocaleID, if different than the system LocaleID. (The system LocaleID is the default.) 


Settings

The conversion argument settings are:

Constant Value Description 
vbUpperCase 1 Converts the string to uppercase characters. 
vbLowerCase 2 Converts the string to lowercase characters. 
vbProperCase 3 Converts the first letter of every word in string to uppercase. 

AND THERE IS MORE ...

ZU GSERGE

$ bedeutet nichts, wenn angewendet auf eine Funktion den Namen im Gegensatz zu einem Variablen Namen. VBA verwendet $ UND B als suffix zur Bezeichnung ähnlicher Funktionalität.

VB6 IST VBA die person, die das gesagt vielleicht in VB6 aber nicht in VBA. VB6-Programm host VBA als Ihre Programmiersprache. VB6 auf eigenen, sind einige app-Objekte und die Formen-Paket, nur keine Programmiersprache. Es ist am besten, zu denken, VB6 als VBA-host wie Office.

Wenn Sie möchten, um eine ordnungsgemäße Fall finden Sie das WORDBASIC-Ver 6 code (word 2003 hilfsbereit konvertiert vba).

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public Sub MAIN()
Select Case WordBasic.Int(GetModifer)
        Case 0
                WordBasic.ChangeCase
        Case 1
                WordBasic.ChangeCase 4
        Case 2
                WordBasic.ChangeCase 2
        Case 3
                ProperCase
        Case Else
                WordBasic.ChangeCase
End Select
End Sub

Private Sub ProperCase()
Dim F
Dim z
Dim a$
Dim P
F = 1
WordBasic.ChangeCase 2
WordBasic.EditBookmark Name:="SerenityChangeCase", SortBy:=0, Add:=1
z = WordBasic.GetSelEndPos()
WordBasic.CharLeft 1
        While WordBasic.GetSelEndPos() < z And Not WordBasic.AtEndOfDocument()
                WordBasic.SelectCurWord
                a$ = WordBasic.[Selection$]()
                P = 0
                If LCase(a$) = "a" Then
                        P = 1
                ElseIf LCase(a$) = "an" Then
                        P = 1
                ElseIf LCase(a$) = "as" Then
                        P = 1
                ElseIf LCase(a$) = "at" Then
                        P = 1
                ElseIf LCase(a$) = "be" Then
                        P = 1
                ElseIf LCase(a$) = "by" Then
                        P = 1
                ElseIf LCase(a$) = "in" Then
                        P = 1
                ElseIf LCase(a$) = "is" Then
                        P = 1
                ElseIf LCase(a$) = "of" Then
                        P = 1
                ElseIf LCase(a$) = "on" Then
                        P = 1
                ElseIf LCase(a$) = "or" Then
                        P = 1
                ElseIf LCase(a$) = "to" Then
                        P = 1
                ElseIf LCase(a$) = "and" Then
                        P = 1
                ElseIf LCase(a$) = "are" Then
                        P = 1
                ElseIf LCase(a$) = "for" Then
                        P = 1
                ElseIf LCase(a$) = "the" Then
                        P = 1
                ElseIf LCase(a$) = "from" Then
                        P = 1
                ElseIf LCase(a$) = "what" Then
                        P = 1
                ElseIf LCase(a$) = "with" Then
                        P = 1
                End If
                If P = 1 And F = 0 Then WordBasic.Insert LCase(a$)
                WordBasic.WordRight 1
                F = 0
        Wend
WordBasic.WW7_EditGoTo Destination:="SerenityChangeCase"
WordBasic.EditBookmark Name:="SerenityChangeCase", SortBy:=0, Delete:=1
End Sub

Private Function GetModifer()
Dim a
Dim B
Dim c
Dim X
        a = GetAsyncKeyState(16)
        B = GetAsyncKeyState(17)
        c = GetAsyncKeyState(18)
        X = 0
        If a < 0 Then X = X + 1
        If B < 0 Then X = X + 2
        If c < 0 Then X = X + 4
GetModifer = X
End Function

vbProperCase verändern wird alle ersten Buchstaben, nicht das ersten Buchstaben.
Der text hat nur ein Wort. Lesen Sie die ganze Frage, es ist jemand mit Vornamen.
Ich Lesen Sie die gesamte Frage und die habe ich nicht gefunden, "der text hat nur ein Wort" in ihm. Zur gleichen Zeit, ich bin mir bewusst, multi-word-letzten Namen, bei denen nicht alle Wörter müssen groß geschrieben werden (z.B. "der").
txtFirstName war die Ahnung
SEHR LEISE SIND SIE NICHT

InformationsquelleAutor Serenity

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.