问个 Command 按钮的问题 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 问个 Command 按钮的问题

标题：问个 Command 按钮的问题

只看楼主

txxb

等　级：论坛游民
帖　子：104
专家分：59
注　册：2014-10-8
结帖率：96%

楼主

已结贴√ 问题点数：20 回复次数：8

问个 Command 按钮的问题

做了个计算器玩，如图，为什么点击任何按钮，等于号都跟着动，焦点一直在等于号（没有执行等于命令）

从哪些地方找原因？？

搜索更多相关主题的帖子: 计算器　

2014-12-06 21:26

chen3523

等　级：贵宾
威　望：33
帖　子：223
专家分：1165
注　册：2013-2-12

第 2 楼

得分:20

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

调试失败3次后，关机睡觉，当醒来时多有收获。

2014-12-07 09:24

txxb

等　级：论坛游民
帖　子：104
专家分：59
注　册：2014-10-8

第 3 楼

得分:0

^_^,不好意思，帮看看
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

2014-12-07 11:21

wmf2014