Wish chinese can not be contained(embodyed) in the name of sub

[acj200301]

hellow ,erel ,

chinese can not be contained(embodyed) in the name of sub ,

b4a has not this function , or i have not find it ?

thank you ,

 

[Erel]

That's true. The sub name and other identifier names must be English characters and numbers.

 

[acj200301]

thanks , now , name of variable can be chinese ,

if The sub name and other identifier names can be chinese characters in the future , it will be great ,

the code will be more readable ,

 

[aeric]

You can use comments for readability

' 打印按钮
Sub BtnPrint_Click

End Sub

 

[acj200301]

You can use comments for readability

' 打印按钮
Sub BtnPrint_Click

End Sub

i do it now ,
it is not convenient that do so in place where sub is called ,

thank you

 

[aeric]

Depends on personal programming style. Maybe someone would feel more comfortable with following style.

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    Func("储存")
    Func("删除")
    Func("打印")
End Sub

Sub Func (FunctionName As String)
    Select Case FunctionName
        Case "储存"
            BtnSave_Click
        Case "删除"
            BtnDelete_Click
        Case "打印"
            BtnPrint_Click
    End Select
End Sub

Private Sub BtnSave_Click
    Log("调用'储存'函数")
End Sub

Private Sub BtnPrint_Click
    Log("调用'打印'函数")
End Sub

Private Sub BtnDelete_Click
    Log("调用'删除'函数")
End Sub

 

[Sandman]

Depends on personal programming style. Maybe someone would feel more comfortable with following style.

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("?")
     ✋("储存")
     ✋("删除")
     ✋("打印")
End Sub

Sub ✋(? As String)
    Select Case ?
        Case "储存"
            Btn?_Click
        Case "删除"
            Btn⌫_Click
        Case "打印"
            Btn?_Click
    End Select
End Sub

Private Sub Btn?_Click
    Log("调用'储存'函数")
End Sub

Private Sub Btn?_Click
    Log("调用'打印'函数")
End Sub

Private Sub Btn⌫_Click
    Log("调用'删除'函数")
End Sub

(This is a joke.)

 

[aeric]

thanks , now , name of variable can be chinese

Now, I know. thanks.

Dim 讯息 As String = $"调用'储存'函数"$
Log(讯息)

 

[acj200301]

thank you