以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  选择TabControl1页面执行代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98019)

--  作者:yangwenghd
--  发布时间:2017/3/22 17:33:00
--  选择TabControl1页面执行代码
怎么当点击TabControl1页面1 后执行 下面的代码啊 
感谢 感谢 
Forms("听想练习窗口").Controls("Button1").PerformClick

--  作者:有点蓝
--  发布时间:2017/3/22 17:48:00
--  

参考:http://www.foxtable.com/webhelp/scr/0833.htm

 

 


--  作者:yangwenghd
--  发布时间:2017/4/24 8:14:00
--  
If .Value IsNot Nothing Then
    If Forms("主窗口").Controls("TabControl2").SelectedIndex = 0
    End If
    Dim obja As GlobalKeyDown = GlobalKeyDown.getInstance
    RegisterHotKey(obja.Handle, 120, KeyModifiers.none, 32) \' 快捷键大小写+空格
End If

能帮忙看看这个吗?选择 TabControl2 页面后 执行下面代码? 感谢 感谢了 

--  作者:有点色
--  发布时间:2017/4/24 8:42:00
--  

 这段代码没必要在点击的时候写,你可以直接写在AfterLoad事件

 

    Dim obja As GlobalKeyDown = GlobalKeyDown.getInstance
    RegisterHotKey(obja.Handle, 120, KeyModifiers.none, 32) \' 快捷键大小写+空格

 

处理快捷键的时候,你判断当前控件是不是TabControl2就行了。


--  作者:yangwenghd
--  发布时间:2017/4/24 8:53:00
--  
是的 感谢 感谢 判断 TabControl2在不同的页面执行不同的代码,比如 在TabControl2 页面1 执行楼上的代码,如果点击TabControl2页面2就执行其他的代码 可以吗 感谢 感谢 
--  作者:有点色
--  发布时间:2017/4/24 9:00:00
--  

SelectedIndexChanged 事件写代码

 

If e.Sender.SelectedIndex = 0 Then

 

ElseIf e.Sender.SelectedIndex = 1 Then

 

End If


--  作者:yangwenghd
--  发布时间:2017/4/24 16:37:00
--  
谢谢 可以了