能帮忙看看这个吗？就是在选择了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
加好友 
发短信
Post By：2018/2/27 12:30:00 [只看该作者]
