新手学vb的问题!!!

team_six 2005-05-20 09:20:57
有以下的代码但我不明白Form1.Tag = "T"有什么做用,请各位大虾指导一下!!
Dim v As Boolean '是否按了操作符
Dim s As Integer '运算符
Dim x As Double, y As Double '操作数
Private Sub Command1_Click(Index As Integer)
If Form1.Tag = "T" Then
If Index = 10 Then
Text1.Text = "0."
Else
Text1.Text = Command1(Index).Caption
End If
Form1.Tag = ""
Else
Text1.Text = Text1.Text & Command1(Index).Caption
End If
End Sub

Private Sub Command2_Click(Index As Integer)
Form1.Tag = "T"
If v Then
x = Val(Text1.Text)
v = Not v
Else
y = Val(Text1.Text)
Select Case s
Case 0
Text1.Text = x + y
Case 1
Text1.Text = x - y
Case 2
Text1.Text = x * y
Case 3
If y <> 0 Then
Text1.Text = x / y
Else
MsgBox ("y can no 0")
Text1.Text = x
v = False
End If
Case 4
y = 0
v = False
End Select
x = Val(Text1.Text)
End If
s = Index
End Sub
...全文
74 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
gamestory 2005-05-20
  • 打赏
  • 举报
回复
Form1.Tag是为使用户保存数据而产生的属性,你完全可以把他看成是一个变量。
程序中在按下操作符后将Form1.Tag设为"T"值,然后在按数字键时判断Form1.Tag值做出不同的处理。

你看了以下的例子就会明白了:
----------------------------------------------------------------
运用了Form1.Tag语句 | 未运用了Form1.Tag语句
-----------------------------------------------------------------
按键 Text1显示的内容 | 按键 Text1显示的内容
2 2 | 2 2
+ 2 | + 2
3 3 | 3 23
+ 5 | + 25
----------------------------------------------------------------
明白了吧?Form1.Tag="T"的作用就是用来判断是否该清除Text1的内容,也就是说是否该显示另一个操作数了。你也完全可以用自己定义一个Boolean变量来判断。

还有V变量的作用是来判断操作数的类型,即是存入X变量还是Y变量,而不是用来判断是否按下操作符的。
team_six 2005-05-20
  • 打赏
  • 举报
回复
还有If v Then
那里v的值是什么啊true还是false??
team_six 2005-05-20
  • 打赏
  • 举报
回复
那Form1.Tag = "T"中的"T"可以改为其它东东吗,如"a"??
还有tag属性有没有默认值的啊,有的话是什么??
tmran 2005-05-20
  • 打赏
  • 举报
回复
是自定义的标签。用于对自己操作的记录。

7,789

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧