Microsoft Visual Studio 2019, Visual Basic - ColorDialog

Question

Witam.

Tworzę program w języku Visual Basic. Mam problem z oknem wyboru koloru, a konkretnie szukam jakiegoś zdarzenia typu "zmieniono kolor", "kliknięto przycisk OK". W oknie dialogowym wybiera się kolor tła programu, który jest zapisywany na zmiennej. W zdarzeniach tego elementu znalazłem tylko takie: "HelpRequest" - kliknięto przycisk pomoc. Na razie stworzyłem pętlę, które jest pusta, nie ma w niej żadnych poleceń, a powtarzana jest, dopóki kolor w oknie dialogowym jest taki sam, jak na zmiennej. Niby wszystko jest dobrze, ale pojawia się błąd, gdy zostanie otwarte okno zmiany koloru, i od razu zamknięte, bez zmieniania koloru. W końcu kolor w oknie dialogowym wciąż jest ten sam, jaki na zmiennej, więc pętla ciągle się powtarza w nieskończoność, przez co program się zawiesza, pojawia się komunikat, że program nie odpowiada, oraz muszę go zamykać poprzez menedżera zadań. Z góry dziękuję za pomoc.

Comments

Przepraszam, że nic nie wnoszę do Twojego pytania, ale ciekawi mnie, jakimi kryteriami kierowałeś się, że ze wszystkich języków kompilowanych do CIL wybrałeś akurat VB?

---

Jeżeli Microsoft Visual Studio 2019 to chodzi dokładnie o VB.NET, jak ktoś chce "robić" apki dla windows-a, na początek wybór nie taki najgorszy.

Answer 1

Ja bym zrezygnował z tej pętli, a jak użytkownik nie chce zmienić kolor, zmienił zdanie, gdy już ma otwarty ColorDialog.  

Może porostu dodaj do projektu PictureBox i w nim pokazuj wybrany kolor, wtedy nie potrzebujesz zmiennej do przechowywania koloru, bo np.: PictureBox1.BackColor będzie przechowywał wybrany kolor.

 

Przykład

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "Wybierz kolor"

        ' Domyslny kolor - uruchomienie programu
        PictureBox1.BackColor = Color.Black
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' Ostatio wybrany kolor
        ColorDialog1.Color = PictureBox1.BackColor

        ColorDialog1.ShowDialog()
        PictureBox1.BackColor = ColorDialog1.Color
    End Sub

End Class

Comments

Dziękuję, po prostu nie wiedziałem, że program po otwarciu ColorDialog, zanim wykona kolejne polecenia, czeka za zamknięcie ColorDialog ;-)