8是

可能是允许库不一样 如果搞好菜单了再传个试试。。

貌似系统自带那个能用按键 数字和操作符退格 但是清空，存储的功能就没有

哦 想到了 可以自定义把相关的按钮联系到键盘上就能全部实现键盘输入了

谢谢H版指点。。。

哈哈 被俺搞出来啦 具体按什么键有什么功能可以参照下面这一段程序

 Procedure Get_Memory(mem_Style, flag_num)
               If gc_Expression == ""
                      MessageBox("请先输入数据")
                    Else 
                        If gc_Result == ""
                             i = 0
                             gc_temp = gc_Expression                      
                             Do while IsDigit(Right(gc_Temp, 1))
                                 i = i + 1
                                 gc_Temp = Left(gc_Temp, Len(gc_Temp) - 1)              
                             EndDo
                             If i == 0
                             gc_MemValue = gc_MemValue
                             Else
                             a = Right(gc_Expression, i)
                             gc_temp = &mem_Style + &a * flag_num
                             gc_MemValue = Transform(gc_temp)
                             EndIf
                        Else          
                             If gc_Result != Transform(&gc_Expression)
                                 i = 0
                                 gc_temp = gc_Expression                     
                                 Do while IsDigit(Right(gc_Temp, 1))
                                     i = i + 1
                                     gc_Temp = Left(gc_Temp, Len(gc_Temp) - 1)              
                                 EndDo
                                 If i == 0
                                 gc_MemValue = gc_MemValue
                                 Else
                                 a = Right(gc_Expression, i)
                                 gc_temp = &mem_Style + &a * flag_num
                                 gc_MemValue = Transform(gc_temp)
                                 EndIf
                             Else
                                 gc_temp = &mem_Style + &gc_Expression * flag_num
                                 gc_MemValue =  Transform(gc_temp)
                             EndIf
                         EndIf
                         gc_Memory = "M"
                        MessageBox("现在存储的数据是：" + gc_MemValue)
                     EndIf
        EndProc

       Procedure KeyPress(i, n) &&i为InKey()函数的返回值
           Do Case
               Case i >= 40 .and. i <= 57 && 数字 小数点 括号 和 运算符
                    gc_Expression = gc_Expression + chr(i)
               Case i == 61     && 计算结果的 '='号
                    gc_Result = Transform(&gc_Expression)
               Case i == 37     && 求一个数的百分之一 此具重复功能
                    gc_Result = gc_Expression
                    gc_Result = Transform(&gc_Expression/100)
                    gc_Expression = gc_Result
               Case i = 83 && 要求表达式的平方根请按 shift + s 此具重复功能
                    gc_Result = gc_Expression
                    gc_Result = Transform(Sqrt(&gc_Result))
                    gc_Expression = gc_Result
               Case i = 73 && 要求表达式的倒数请按 shift + i 此具重复功能
                     gc_Result = gc_Expression
                    gc_Result = Transform(1/&gc_Expression)
                    gc_Expression = gc_Result
               Case i = 127 && 退格
                    gc_Expression = Left(gc_Expression, Len(gc_Expression) - 1)
               Case i = 99 && 清空表达式请按 c 键
                    gc_Expression = ""
                    gc_Result = ""
               Case i = 67 && 清空表达式最后一个数请按 shift + c 键
                    Do while IsDigit(Right(gc_Expression, 1))
                       gc_Expression = Left(gc_Expression, Len(gc_Expression) - 1)                   
                    EndDo
               Case i = 102 && 要改变数的符号请按 f
                    If Left(gc_Expression, 1) != '-'
                       gc_Expression = Padl(gc_Expression, Len(gc_Expression) + 1, "-")
                    Else
                       gc_Expression = Right(gc_Expression, Len(gc_Expression) - 1)
                    EndIf
               Case i = 120  && 要以覆盖方式存储请按  alt + 1
                    ThisForm.Get_Memory("", 1)

               Case i = 121 && 要以增加方式存储请按  alt + 2
                    ThisForm.Get_Memory(gc_MemValue, 1)

               Case i = 122 && 要以减少方式存储请按  alt + 3
                    ThisForm.Get_Memory(gc_MemValue, -1)

               Case i = 123 && 要读取存储请按 alt + 4
                    gc_Expression = gc_Expression + Transform(gc_MemValue)
               Case i = 124 && 要清空存储请按 alt + 5
                    gc_Memory = ""
                    gc_MemValue = ""
                    MessageBox("现在存储的数是：" + gc_MemValue)
           EndCase
         ThisForm.Refresh
       EndProc                   

我也不知道怎么打包 连编了个exe 其他的文件也不大 都压缩发上来算了
看看有没有BUG



[ 本帖最后由 有容就大 于 2012-9-20 23:24 编辑 ]

是要 呵呵 我直接用=来的 有点一根经啊 不过这个改下也比较容易

55 我还是不会打包 你知道具体流程吗 让一个东东完全脱离 VFP的软件环境 和 运行库？
不过我压缩包里都用东西了 你要看效果可以在VFP里打开项目管理器 调整下菜单文件mpr的路径就可以了


[ 本帖最后由 有容就大 于 2012-9-20 23:54 编辑 ]

呵呵 是呢 又忘了 记得上次你也提醒过 ~~

555 发现一个问题 就是如果设置回车键为输出结果键 那么必须先然按钮的焦点丢失掉
这个麻烦了。。。

还有更好的方法？ 想知道