vb combobox控件 如何选择其中一项使一些文本框不能用，选令一项之前不能用的，变成能用

Posted 2023-05-09

参考技术A 自己去调用事件。也就是说combobox控件的value值改变时，应该是XXXchanged 在这个事件里改变文本框的属性，ReadOnly属性控制可用不可用。自己去写吧！不用vb好长事件了。希望对你有帮助~ 参考技术B Private Sub Combo1_Click()
If Combo1.Text = "a" Then
Text1.Enabled = False
ElseIf Combo1.Text = "b" Then
Text1.Enabled = True
End If
End Sub

Private Sub Form_Load()
Combo1.AddItem "a"
Combo1.AddItem "b"
End Sub本回答被提问者采纳 参考技术C 阿斯顿发多少 暗示飞

如何基于VB中文本框的内容播放一系列音频文件？

我正在铁路公告系统上工作，希望能够从列表中获取一些信息，例如“约克，达林顿，达勒姆”，然后在按下按钮后播放相关的录音。谁能帮忙？

答案

[一种选择是创建一个词典，其中的键代表您的列表项，而值代表您希望在按下按钮后播放的声音的文件位置。然后，您可以将Dictionary绑定到控件上，其中控件的显示文本是Dictionary的Key，控件的值是Dictionary的Value。离开后，您只需获得所选控件的值即可播放。

这里是使用组合框的示例：

Private stations As Dictionary(Of String, String) Sub New() stations = New Dictionary(Of String, String) stations.Add("York, Darlington, Durham", "sound-a.mp3") 'stations.Add("...", "...") With ComboBoxStations .DataSource = New BindingSource(stations, Nothing) .DisplayMember = "Key", .ValueMember = "Value" End With End Sub Private Sub PlaySound(ByVal sender As Object, ByVal e As EventArgs) Handles ButtonPlaySound.Click If (ComboBoxStations.SelectedValue IsNot Nothing) Then My.Computer.Audio.Play(ComboBoxStations.SelectedValue.ToString(), AudioPlayMode.WaitToComplete) End If End Sub