منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
قراءة لون لخلفية الزر من قيمة في التكست بوك - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : قراءة لون لخلفية الزر من قيمة في التكست بوك (/showthread.php?tid=33490)



قراءة لون لخلفية الزر من قيمة في التكست بوك - Mohammed Nafa - 21-02-20

السلام عليكم ورحمة الله وبركاته...
read color number for button.colorback from textbox in vb.net
ارجو المساعدة في قراءة قيمة اللون من التكست بوكس الذي تم تحميله من ملف تكست لتغيير لون الزر كما هو في المثال ... حيث لا يمكن التنفيذ للخطأ التالي :
Conversion from string "ff80ffff" to type 'Integer' is not valid.

Private Sub ButtonAC_Click(sender As System.Object, e As System.EventArgs) Handles ButtonAC.Click
        Dim colors As DialogResult
        Dim colorValue As Integer

        colors = ColorDialog1.ShowDialog
        If colors = Windows.Forms.DialogResult.OK Then
            ButtonAC.BackColor = ColorDialog1.Color
            TextBoxAC.Text = ColorDialog1.Color.Name
            colorValue = TextBoxAC.Text
            ButtonA.BackColor = Color.FromArgb(colorValue)
        End If

    End Sub



RE: قراءة لون لخلفية الزر من قيمة في التكست بوك - alsalamoni - 21-02-20

(21-02-20, 04:16 PM)Mohammed Nafa كتب : السلام عليكم ورحمة الله وبركاته...
read color number for button.colorback from textbox in vb.net
ارجو المساعدة في قراءة قيمة اللون من التكست بوكس الذي تم تحميله من ملف تكست لتغيير لون الزر كما هو في المثال ... حيث لا يمكن التنفيذ للخطأ التالي :
Conversion from string "ff80ffff" to type 'Integer' is not valid.

Private Sub ButtonAC_Click(sender As System.Object, e As System.EventArgs) Handles ButtonAC.Click
        Dim colors As DialogResult
        Dim colorValue As Integer

        colors = ColorDialog1.ShowDialog
        If colors = Windows.Forms.DialogResult.OK Then
            ButtonAC.BackColor = ColorDialog1.Color
            TextBoxAC.Text = ColorDialog1.Color.Name
            colorValue = TextBoxAC.Text
            ButtonA.BackColor = Color.FromArgb(colorValue)
        End If

    End Sub

كود :
TextBoxAC.Text = ColorDialog1.Color.ToArgb



RE: قراءة لون لخلفية الزر من قيمة في التكست بوك - Mohammed Nafa - 21-02-20

بارك الله بكم، وجزاكم الله كل خير ....


RE: قراءة لون لخلفية الزر من قيمة في التكست بوك - alsalamoni - 21-02-20

(21-02-20, 06:33 PM)Mohammed Nafa كتب : بارك الله بكم، وجزاكم الله كل خير ....

العفو اخي