以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助呀?是怎么搞的?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63651)

--  作者:dariben
--  发布时间:2015/1/25 20:09:00
--  求助呀?是怎么搞的?
我给按钮click加了一段代码,但是不好用

Dim textbox1 As RibbonMenu.TextBox
Dim textbox2 As RibbonMenu.TextBox
If textbox1.Text="zbez" & textbox2.Text="123456" Then
Forms("窗口2").Open()
Else 
messagebox.Show("密码或者用户名错误,请重新输入")
End If


但是运行以后显示



.NET Framework 版本:2.0.50727.5483
Foxtable 版本:2014.11.11.1
错误所在事件:窗口,窗口1,Button1,Click
详细错误信息:
未将对象引用设置到对象的实例。




图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2015/1/25 20:11:00
--  

 菜单的引用,参考。

 

http://www.foxtable.com/help/topics/2438.htm

 


--  作者:dariben
--  发布时间:2015/1/25 20:32:00
--  版主呀,我看看的,谢谢呀~~
谢谢呀
--  作者:dariben
--  发布时间:2015/1/25 20:39:00
--  能具体讲解一下吗?
大神呀,能具体讲解一下吗?
--  作者:有点甜
--  发布时间:2015/1/25 20:43:00
--  
 不知道你想做什么啊,要引用菜单的控件还是要引用窗口的控件啊
--  作者:有点甜
--  发布时间:2015/1/25 20:45:00
--  
Dim textbox1 As WinForm.TextBox = e.Form.Controls("TextBox1").Text
Dim textbox2 As WinForm.TextBox = e.Form.Controls("TextBox2").Text
If textbox1.Text="zbez" & textbox2.Text="123456" Then
    Forms("窗口2").Open()
Else
    messagebox.Show("密码或者用户名错误,请重新输入")
End If