none
colorDialog1 RRS feed

Yanıtlar

  • Şimdi öyle bir soru ki, insan yanıt vermeye korkuyor. 16küsür milyon renk var hepsinin ismi yok.

    Kullanıcı bilinen renk seçerse anca yazabilen kod;

    if (colorDialog1.ShowDialog() == DialogResult.OK)
        textBox1.Text = colorDialog1.Color.ToKnownColor().ToString();

    ColorDistance classını kullanarak da ismi olmayan rengin en yakın isimli rengini de bulabilirsin.


    e-mail: onay[nokta]yalciner[at]hotmail[nokta]com

    • Yanıt Olarak İşaretleyen ciko76 4 Aralık 2019 Çarşamba 13:51
    19 Kasım 2019 Salı 11:12
  • Eger hep öyle hex string seklinde ARGB geliyorsa (kontrol yok ARGB geldigi kabul ediliyor):

    Dim s As String = "ffff80ff"
    Dim bytes = Enumerable.Range(0, 4).Select(Function(x) Convert.ToByte(s.Substring(x * 2, 2), 16)).ToArray()
    Dim mycolor = Color.FromArgb(bytes(0), bytes(1), bytes(2), bytes(3))
    



    How to create a Minimal, Reproducible Example
    The way to Go.
    World's most advanced open source (object-) relational Database.
    Flutter (for mobile, for web & desktop.

    • Yanıt Olarak İşaretleyen ciko76 23 saat 47 dakika önce
    4 Aralık 2019 Çarşamba 14:52
    Yanıtlayıcı

Tüm Yanıtlar

  • Şimdi öyle bir soru ki, insan yanıt vermeye korkuyor. 16küsür milyon renk var hepsinin ismi yok.

    Kullanıcı bilinen renk seçerse anca yazabilen kod;

    if (colorDialog1.ShowDialog() == DialogResult.OK)
        textBox1.Text = colorDialog1.Color.ToKnownColor().ToString();

    ColorDistance classını kullanarak da ismi olmayan rengin en yakın isimli rengini de bulabilirsin.


    e-mail: onay[nokta]yalciner[at]hotmail[nokta]com

    • Yanıt Olarak İşaretleyen ciko76 4 Aralık 2019 Çarşamba 13:51
    19 Kasım 2019 Salı 11:12
  • Şu şekide  Kodlar veriyor bunları nasıl çalıştırabilirim ( ffff80ff ) Benim Kodları Şu şekilde

      Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
            Dim colors As DialogResult
            colors = ColorDialog1.ShowDialog()

            If colors = Windows.Forms.DialogResult.OK Then

                BackColor = ColorDialog1.Color
                TextBox1.Text = BackColor.Name.ToString
            End If

        End Sub

    Bilgisayarda text dosyası çektiriyorum Kodlar buşekilde olunca  çalışmıyor ( ffff80ff )  ama (Red) (Green) olunca  çalışıyor

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
            Try
                BackColor = Color.FromName(TextBox1.Text)
            Catch ex As Exception

            End Try

        End Sub


    • Düzenleyen ciko76 4 Aralık 2019 Çarşamba 14:01 Belirgin
    4 Aralık 2019 Çarşamba 14:00
  • Eger hep öyle hex string seklinde ARGB geliyorsa (kontrol yok ARGB geldigi kabul ediliyor):

    Dim s As String = "ffff80ff"
    Dim bytes = Enumerable.Range(0, 4).Select(Function(x) Convert.ToByte(s.Substring(x * 2, 2), 16)).ToArray()
    Dim mycolor = Color.FromArgb(bytes(0), bytes(1), bytes(2), bytes(3))
    



    How to create a Minimal, Reproducible Example
    The way to Go.
    World's most advanced open source (object-) relational Database.
    Flutter (for mobile, for web & desktop.

    • Yanıt Olarak İşaretleyen ciko76 23 saat 47 dakika önce
    4 Aralık 2019 Çarşamba 14:52
    Yanıtlayıcı
  •  Şu şekilde yaptım istediğim gibi oldu çok teşekür ederim

    Dim s As String = TextBox1.Text
            Dim bytes = Enumerable.Range(0, 4).Select(Function(x) Convert.ToByte(s.Substring(x * 2, 2), 16)).ToArray()
            BackColor = Color.FromArgb(bytes(0), bytes(1), bytes(2), bytes(3))

    23 saat 46 dakika önce