以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 不同的TabControl1页面功能不同 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114989) |
-- 作者:yangwenghd -- 发布时间:2018/2/27 12:30:00 -- 不同的TabControl1页面功能不同 能帮忙看看这个吗?就是在选择了TabControl1不同的页面后 按钮的功能不同,感谢 感谢 If e.Forms("平板单词窗口").Controls("TabControl1").SelectedIndex = 1 Then Dim t As Table = Tables("平板单词窗口_Table1") If Forms("平板单词窗口").Controls("CheckBox2").Checked Dim idx As Integer = Rand.Next(t.rows.count) t.Position = idx Else If t.Position < t.Rows.Count - 1 t.Position = t.Position + 1 Else t.Position = 0 End If End If End If If e.Forms("平板单词窗口").Controls("TabControl1").SelectedIndex = 2 Then Dim sp As New DotNetSpeech.SpVoice() sp.Speak(e.Form.Controls("Label26").Text, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync) End If |
-- 作者:有点甜 -- 发布时间:2018/2/27 12:32:00 -- If e.Forms("平板单词窗口").Controls("TabControl1").SelectedIndex = 1 Then
改成
If Forms("平板单词窗口").Controls("TabControl1").SelectedIndex = 1 Then |
-- 作者:yangwenghd -- 发布时间:2018/2/27 15:16:00 -- 感谢 感谢 可以把这个改为循环的吗?就点一下下一页,第一下又下一页,感谢 感谢 Forms("手机单词窗口").Controls("TabControl1").SelectedIndex = 2 \'点击后立刻显示TabControl的页面
|
-- 作者:有点甜 -- 发布时间:2018/2/27 16:11:00 -- Dim tab As WinForm.TabControl = Forms("手机单词窗口").Controls("TabControl1") If tab.SelectedIndex < tab.TabPages.Count - 1 Then tab.SelectedIndex += 1 Else msgbox("已经是尽头") tab.SelectedIndex = 0 End If |