用VFP设计计算器(2) - Tiger5392的博客

作者在 2006-09-23 09:36:00 发布以下内容

**************************************************
*-- Form: form1 (计算器2.scx)
*-- 父类: form
*-- 基类: form
*-- 作者: Tiger5392 来自www.bc-cn.net中国编程论坛(C)Copyright2006-2006
DEFINE CLASS form1 AS form

Top = 0
Left = 0
Height = 278
Width = 405
DoCreate = .T.
Caption = "Form1"
Name = "Form1"

ADD OBJECT text1 AS textbox WITH ;
  Height = 20, ;
  Left = 0, ;
  Top = 5, ;
  Width = 342, ;
  Name = "Text1"

ADD OBJECT command1 AS commandbutton WITH ;
  Top = 33, ;
  Left = 0, ;
  Height = 40, ;
  Width = 100, ;
  FontSize = 12, ;
  Caption = "BackSpace", ;
  ForeColor = RGB(255,0,128), ;
  Name = "Command1"

ADD OBJECT command2 AS commandbutton WITH ;
  Top = 33, ;
  Left = 120, ;
  Height = 40, ;
  Width = 40, ;
  FontSize = 12, ;
  Caption = "CE", ;
  ForeColor = RGB(255,0,128), ;
  Name = "Command2"

ADD OBJECT command5 AS commandbutton WITH ;
  Top = 33, ;
  Left = 300, ;
  Height = 40, ;
  Width = 40, ;
  FontSize = 12, ;
  Caption = "C", ;
  ForeColor = RGB(255,0,128), ;
  Name = "Command5"

ADD OBJECT command6 AS commandbutton WITH ;
  Top = 83, ;
  Left = 0, ;
  Height = 40, ;
  Width = 40, ;
  FontSize = 12, ;
  Caption = "MC", ;
  ForeColor = RGB(255,0,128), ;
  Name = "Command6"

ADD OBJECT command7 AS commandbutton WITH ;
  Top = 83, ;
  Left = 60, ;
  Height = 40, ;
  Width = 40, ;
  FontSize = 12, ;
  Caption = "7", ;
  ForeColor = RGB(0,0,255), ;
  Name = "Command7"

ADD OBJECT command8 AS commandbutton WITH ;
  Top = 83, ;
  Left = 120, ;
  Height = 40, ;
  Width = 40, ;
  FontSize = 12, ;
  Caption = "8", ;
  ForeColor = RGB(0,0,255), ;
  Name = "Command8"

ADD OBJECT command9 AS commandbutton WITH ;
  Top = 83, ;
  Left = 180, ;
  Height = 40, ;
  Width = 40, ;
  FontSize = 12, ;
  Caption = "9", ;
  ForeColor = RGB(0,0,255), ;
  Name = "Command9"

ADD OBJECT command10 AS commandbutton WITH ;
  Top = 83, ;
  Left = 240, ;
  Height = 40, ;
  Width = 40, ;
  FontSize = 12, ;
  Caption = "/", ;
  ForeColor = RGB(255,0,128), ;
  Name = "Command10"

ADD OBJECT command11 AS commandbutton WITH ;
  Top = 83, ;
  Left = 300, ;
  Height = 40, ;
  Width = 40, ;
  FontSize = 12, ;
  Caption = "SQRT", ;
  ForeColor = RGB(0,0,255), ;
  Name = "Command11"

ADD OBJECT command12 AS commandbutton WITH ;
  Top = 133, ;
  Left = 0, ;
  Height = 40, ;
  Width = 40, ;
  FontSize = 12, ;
  Caption = "MR", ;
  ForeColor = RGB(255,0,128), ;
  Name = "Command12"

ADD OBJECT command13 AS commandbutton WITH ;
  Top = 133, ;
  Left = 60, ;
  Height = 40, ;
  Width = 40, ;
  FontSize = 12, ;
  Caption = "4", ;
  Fore