Saya memiliki sub untuk mengubah warna latar belakang OptionButton dalam suatu kelompok ketika diklik tetapi saya tidak bisa mendapatkan pekerjaan ini dengan lancar tanpa penundaan saat beralih dengan sangat lambat. Apakah ada aproach yang lebih baik? Di sana ...

0
Vince 5 April 2021, 20:37

1 menjawab

Jawaban Terbaik

Sepertinya Anda hanya perlu mengatur warna untuk 2 opsi, bukan 50 - Anda hanya perlu mengingat di antara panggilan yang mana yang aneh, setel ulang yang, lalu atur warna untuk opt.

ToggleColor Ins instensif-spesifik (karena Anda lewat opt), sehingga bisa dalam modul biasa dan kembali bekerja untuk sesuatu seperti:

Sub toggleColor(opt As Object)
    Static optPrev As Object 'previous selection (if any)
    
    If Not optPrev Is Nothing Then
        optPrev.BackColor = &H80000011 'un-flag previous
    End If
    
    opt.BackColor = &H80000016 'flag the clicked one
    Set optPrev = opt          'remember it for next time
End Sub
1
Tim Williams 5 April 2021, 18:50