UC知道VB编程Call From_Load后不能加（）的问题
来源：百度知道 编辑：UC知道 时间：2024/05/16 14:02:34
Private Sub Form_Load()
Frame1.Visible = False
Text1.Enabled = False
CmdClear.Enabled = False
Text1.BackColor = &H808080
Form1.Height = Form1.Height / 2
End Sub
Private Sub CmdONOFF_Click()
If Frame1.Visible Then
Call From_Load --这个，后面不能加括号啊，急，加了他就自动删掉了，好是郁闷，而且工程测试也总失败，每次都是这个的问题，高手解答下，我在做函数计算器...
自学教科书《Visual Basic 6.0程序设计实践指导》浙江科学技术出版社出版的，第19~20页那篇
Else
Form4.Height = Form4.Height * 2
Frame1.Visible = False
Text1.Enabled = True
CmdClear.Enabled = True
Text1.BackColor = &H80000005
Text1.SetFocus
End If
End Sub
Private Sub CmdClear_Click()
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub CmdSin_Click()
Dim arf As Single, fx As Single
arf = Val(Text1, Text)
fx = Sin(arf * 3.1415926 / 180)
Text1.Text = Str$(fx)
End Sub
Frame1.Visible = False
Text1.Enabled = False
CmdClear.Enabled = False
Text1.BackColor = &H808080
Form1.Height = Form1.Height / 2
End Sub
Private Sub CmdONOFF_Click()
If Frame1.Visible Then
Call From_Load --这个，后面不能加括号啊，急，加了他就自动删掉了，好是郁闷，而且工程测试也总失败，每次都是这个的问题，高手解答下，我在做函数计算器...
自学教科书《Visual Basic 6.0程序设计实践指导》浙江科学技术出版社出版的，第19~20页那篇
Else
Form4.Height = Form4.Height * 2
Frame1.Visible = False
Text1.Enabled = True
CmdClear.Enabled = True
Text1.BackColor = &H80000005
Text1.SetFocus
End If
End Sub
Private Sub CmdClear_Click()
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub CmdSin_Click()
Dim arf As Single, fx As Single
arf = Val(Text1, Text)
fx = Sin(arf * 3.1415926 / 180)
Text1.Text = Str$(fx)
End Sub
Call From_Load
你的是from！而且Form_Load不能call吧？
这样
Call Form_Load()才是正确的
有Call后面要加()，没有Call就不加
1 form_load是可以call的 不过form_load是个初始化方法 如无必要 一般不会call它
2 call可以不用加括号 因为你创建的是无参过程
3 你的代码没什么问题
你在当前页面添加
Private Sub xx()
Print 1
End Sub
在出错的地方换成call xx试试
我怀疑是不是你的私有form_load方法不在当前模块中 所以找不到call的时候方法定义
程测试也总失败 能把错误提示信息贴出来就好了
call Form_Load
Form_Load
以上两个都可以的。
你仔细看下，你的是From其他的同楼上
Call Form_Load