能帮忙看看这个吗?就是在选择了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