Question

如何在按vb 6.0？

中的标签或空格时以大写形式设置第一个字母

我的代码如下

txtFirstName.Text = UCase$(txtFirstName.Text)

但在标签或空格后不会改变

Answer 1

这很简单，只需在文本框中输入按键事件...

     Future<Model> ViewWelcomeScreen() async {
    String url = '$baseurl/post/20';
   ApiService().getToken().then((value){
      token = value;
    });
    final response = await http.get(url, headers: {
      'Content-type': 'application/json',
      'Accept': 'application/json',
      'Authorization': 'Bearer $token'
    });
    print(token);
    if (response.statusCode == 200) {
      var test = json.decode(response.body);
      var jsonResponse = test['data'];
      return Model.fromJson(jsonResponse);
    } else {
      throw Exception('Failed to load data');
    }
  }

Answer 2

使用LostFocus事件

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

将相同的逻辑应用于KeyDown事件，并检查按下的键是否为空格键。

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

Answer 3

好。是的，txtFirstName是此处使用情况的一个很好的指示。.因此，我将使用（某种）标题大写，并且在Validate事件中使用它。.

Private Sub txtFirstName_Validate(Cancel As Boolean)
    Dim p As Integer ' i doubt we'll use more than 32K for a name....
    Dim mName As String
    p = 1
    ' first off lets trim any leading blanks.. assume NOTHING and make sure its all lower case..
    mName = LCase(LTrim(txtFirstName))
    Do While p > 0 And p <= Len(txtFirstName) ' start with the first non-blank
        
        Mid(mName, p, 1) = UCase(Mid(mName, p, 1))
        p = InStr(p, mName, " ")
        If p > 0 And p < Len(mName) Then p = p + 1
    Loop
    Cancel = False
    txtFirstName = mName
End Sub

每一次都有效，并且将每个单词大写。.没有添加任何代码来做TRUE标题大写，但这很接近，而且简短易行...

Answer 4

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 ...

到GSERGE

$表示应用于函数名称而不是变量名称时没有任何内容。 VBA使用$ AND B作为后缀来表示类似的功能。

VB6是VBA 可能在VB6中而不是在VBA中的人。 VB6程序主机VBA作为其编程语言。它上面的VB6是一些应用程序对象和表单包 - 没有编程语言。最好将VB6视为像Office这样的VBA主机。

如果您想要正确的案例，请参阅此WORDBASIC Ver 6代码，（2003年有助于将其转换为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

VB 6文本框中的大写

4 个答案: