用vb控件做计算器，要求文本框底色为黄色
Const LineSpace As Integer = 100Private theReg As DoublePrivate TextChange As BooleanPrivate Operator As StringPrivate Sub Form_Load()Dim X1 As IntegerDim Y1 As IntegerDim X2 As IntegerDim Y2 As IntegerDim BtnWidth As IntegerDim BtnHeight As IntegerDim ptr As IntegerCaption = "计算器"X1 = CmdNum(0)。 ...全部
Const LineSpace As Integer = 100Private theReg As DoublePrivate TextChange As BooleanPrivate Operator As StringPrivate Sub Form_Load()Dim X1 As IntegerDim Y1 As IntegerDim X2 As IntegerDim Y2 As IntegerDim BtnWidth As IntegerDim BtnHeight As IntegerDim ptr As IntegerCaption = "计算器"X1 = CmdNum(0)。
LeftY1 = CmdNum(0)。TopBtnWidth = CmdNum(0)。WidthBtnHeight = CmdNum(0)。HeightX2 = X1 BtnWidth * 3 LineSpace * 5Y2 = Y1For ptr = 1 To 10Load CmdNum(ptr)CmdNum(ptr)。
Visible = TrueNext ptrFor ptr = 0 To 10Select Case ptrCase 0CmdNum(0)。Caption = "0"CmdNum(0)。Top = Y1 BtnHeight * 3 LineSpace * 3CmdNum(0)。
Left = X1CmdNum(0)。Width = 2 * BtnWidth LineSpaceCase 1 To 9CmdNum(ptr)。Caption = CStr(ptr)CmdNum(ptr)。
Top = Y1 (2 - (ptr - 1) 3) * (BtnHeight LineSpace)CmdNum(ptr)。Left = X1 ((ptr - 1) Mod 3) * (BtnWidth LineSpace)Case 10CmdNum(10)。
Caption = "。"CmdNum(10)。Top = Y1 BtnHeight * 3 LineSpace * 3CmdNum(10)。Left = X1 2 * (BtnWidth LineSpace)End SelectNext ptrFor ptr = 1 To 6Load CmdOperator(ptr)CmdOperator(ptr)。
Visible = TrueNext ptrCmdOperator(0)。Caption = "CE"CmdOperator(1)。Caption = "C"CmdOperator(2)。Caption = " "CmdOperator(3)。
Caption = "-"CmdOperator(4)。Caption = "*"CmdOperator(5)。Caption = "/"CmdOperator(6)。Caption = "="For ptr = 0 To 6CmdOperator(ptr)。
Top = Y2 (ptr 2) * (BtnHeight LineSpace)CmdOperator(ptr)。Left = X2 (ptr Mod 2) * (BtnWidth LineSpace)CmdOperator(ptr)。
Width = BtnWidthCmdOperator(ptr)。Height = BtnHeightNext ptrCmdOperator(6)。Width = 2 * BtnWidth LineSpaceTextNum。
Text = ""TextNum。BackColor = vbYellowTextNum。ForeColor = vbBluetheReg = 0TextChange = FalseOperator = ""End SubPrivate Sub CmdNum_Click(Index As Integer)Dim tmpStr As StringtmpStr = CmdNum(Index)。
CaptionIf (Not TextChange) Then TextNum。Text = ""If tmpStr "") ThenSelect Case OperatorCase " "theReg = theReg CurNumCase "-"theReg = theReg - CurNumCase "*"theReg = theReg * CurNumCase "/"theReg = theReg / CurNumEnd SelectTextChange = FalseElseIf TextChange ThenTextChange = FalsetheReg = CurNumEnd IfTextNum。
Text = CStr(theReg)Operator = CmdOperator(Index)。CaptionIf Operator = "=" Then Operator = ""End SelectTextChange = FalseEnd Sub。
收起
