问个 Command 按钮的问题 - 编程论坛

#2

chen35232014-12-07 09:24

大哥：只给了不重要的界面，无内涵，只能猜，一般焦点停在text1的第一个字符。正如问“为什么我的钱包每天都在瘦？”

#3

txxb2014-12-07 11:21

^_^,不好意思，帮看看
Private Sub Command26_Click() '后退键
Call qingshuru
If Text1.Text <> "" Then
Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1)
End If
Text1.SetFocus '焦点停在输入框
Text1.SelStart = Len(Text1.Text) '焦点在文本最后
End Sub
’================================================================
Private Sub Command25_Click() '等于号按钮
If Text1.Text = "请输入算式" Then
    Text1.Text = ""
ElseIf Text1.Text = "" Then
    Text2.Text = ""
Else
    t = Text1.Text
    Call hunhe
ling:   If p = 1 Then
            Text2.Text = "错误，除数不能为零。"
        Else
            If h < 1 And h > -1 Then
                Text2.Text = "=" & Replace(h, ".", "0.")
            Else
                Text2.Text = "=" & h
            End If
        End If
End If
Text1.SetFocus '焦点停在输入框
Text1.SelStart = Len(Text1.Text) '焦点在文本最后
End Sub

#4

wmf20142014-12-07 12:31

这也做的出来呀！学习了。

#5

yangfrancis2014-12-07 14:00

上面代码跟等于号的闪动没有关系吧？

#6

txxb2014-12-07 14:05

经过测试，跟这个有关：

Text1.SetFocus

去掉任何一个Text1.SetFocus，等于号就不闪了。

#7

chen35232014-12-07 17:03

祝贺你

#8

txxb2014-12-07 17:13

问题是那几个按钮都想用Text1.SetFocus

#9

yangfrancis2014-12-07 21:11

问题能解决已经是好事了啊。凑合了吧