Question

在VB6.0结束按钮的代码怎么写 编译后一点结束按钮程序就退出 在vb.net中用的是Me.Close（）

Private Sub Command1_Click()
Dim Z, a, b As Double
Dim msg1 As Integer
Z = Text1.Text
If Z>0 Then
a = 52273.084 + (2852.18 - Z) * Math.Cos(2.478014981)
b = 80923.558 + (2852.18 - Z) * Math.Sin(2.478014981)
Else
msg1 = MsgBox("输入数据有误,请重新输入!", 5+ 32 + 0, "数据检查")
If msg1=4 Then
Text1.Text=" "
Text1.SetFocus
Text1.Text = " "
End If
Text2.Text = a
Text3.Text = b
End Sub

还有一个问题就是怎样在vb6.0中实现 结束按钮的代码编写 在vb.net是用的Me.Close()

Answer 1

结束自身窗体：unload me结束其他窗体：unload 窗体名强制结束程序：End

Answer 2

Private Sub Command1_Click()
Dim Z As Double, a As Double, b As Double
Dim msg1 As Integer
Z = Val(Text1.Text)
If Z>0 Then
a = 52273.084 + (2852.18 - Z) * Cos(2.478014981)
b = 80923.558 + (2852.18 - Z) * Sin(2.478014981)
Text2.Text = a
Text3.Text = b
Else
msg1 = MsgBox("输入数据有误,请重新输入!", VbOKCancel + VbQuestion, "数据检查")
If msg1=VbOK Then
Text1.Text=" "
Text1.SetFocus
End If
End Sub
'结束按钮：Private Sub Command2_Click() EndEnd Sub

Answer 3

如果你是想退出程序直接在结束按钮添加代码：end

Answer 4

end或者unload me