ComboBox以隨機亂數選定時不被變更的方法？- 藍色小舖 BlueShop

台灣最大程式設計社群網站

∣免費加入會員∣登入 ∣回首頁∣ 您好

線上人數
1569

會員總數：246272
討論主題：189809

登入

登出

歡迎您免費加入會員

討論區選單

開發工具

行動裝置開發

資料庫

多媒體 / 網管

綜合

文章區

討論區列表 >> VB.NET >> ComboBox以隨機亂數選定時不被變更的方法？

[]

[我要回覆]

ComboBox以隨機亂數選定時不被變更的方法？
價值 : 200 QP 點閱數:214 回應數:2

樓主

Ack Serkal

0	1
10	0

發送站內信

最近在做一個程式，其中有一個功能是讓使用者用下拉式選單提前指定好Combobox中的項目，再將其他使用者未決定項目的Combobox以隨機亂數作呈現。
起初的預想是：Combobox被使用者選定→Combobox.Enabled = False→按下"隨機"Button→符合"Combobox.Enabled = True"的Combobox跑隨機亂數，
但是實際執行後發現，即便Combobox.Enabled已經確定為False了，在跑隨機亂數的過程中，已選定的結果依舊會被隨機亂數產生出的結果覆蓋掉，想問各位大大有沒有辦法可以解決這個問題呢？

下列是程式的部分擷取。本人大約在前年年中時開始學習VB，所以下列程式如果有什麼拙劣之處還請見諒：

搜尋相關Tags的文章： [ VB ] , [ Combobox ] , [ 隨機 ] ,
本篇文章發表於2021-02-06 16:51

1樓

回應

P陳

Enable 是讓使用者不能用鍵盤或滑鼠修改
但還是可以用程式修改其內容的的

本篇文章回覆於2021-02-09 12:02

== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--

2樓

回應

for ref only

Public Class Form1
    Dim strS As String = ""
    Dim arrV() As String = {"AA", "FF", "CC", "123D", "WeRR", "QQQ", "236R"}

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ComboBox1.Items.AddRange(arrV)
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        RandomizeArray(arrV)

ComboBox1.Items.Clear()
        ComboBox1.Items.AddRange(arrV)
        ComboBox1.SelectedIndex = ComboBox1.Items.IndexOf(strS)
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        strS = ComboBox1.Text
    End Sub

Private Sub RandomizeArray(ByVal arrValue() As String)
        Dim max_index As Integer = arrValue.Length - 1
        Dim rnd As New Random
        For i As Integer = 0 To max_index - 1
            Dim j As Integer = rnd.Next(i, max_index + 1)

Dim temp As String = arrValue(i)
            arrValue(i) = arrValue(j)
            arrValue(j) = temp
        Next i
    End Sub

本篇文章回覆於2021-02-18 17:01

== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--

回覆

如要回應,請先登入.