怎么动态的设置画笔颜色? 5C

现在有二进制的数组,或者十六进制的数组,请问应该怎么设置画笔颜色,让接收到的动态数值表示颜色的不同,从而画出彩色图像

2个回答

我不确定你是用什么语言。但是 从颜色上来说 就是 RGB red green blue 三个颜色。16禁止表示 0xFF 0xFF 0xFF 这是 red是255 green是255 blue是255 是白色

Drizzly_
Drizzly_ 回复年华里谁在叹息: 这么问我有点无能为力了。
2 年多之前 回复
qq_29448957
年华里谁在叹息 我是想在app里面显示画图的,已经有了RGB数组数据,就是不知道该如何设定到每个点的颜色去
2 年多之前 回复

用这个方法
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.BackColor = Color.White '窗体变为白色底色背景
'----------------------------------------创建颜色
Dim myColor As Color '创建color
Dim rr As Integer
Dim gg As Integer
Dim bb As Integer
rr = CInt(Rnd() * (255 - 0 + 1)) + 0 '产生0-255的随机数 CInt(Rnd() * (n - m + 1)) + m 注意随机数是m到n,n在前头
gg = CInt(Rnd() * (255 - 0 + 1)) + 0 '产生0-255的随机数 CInt(Rnd() * (n - m + 1)) + m
bb = CInt(Rnd() * (255 - 0 + 1)) + 0 '产生0-255的随机数 CInt(Rnd() * (n - m + 1)) + m
myColor = Color.FromArgb(rr, gg, bb) '定义color的颜色,

    '----------------------------------------创建graph和画笔
    Dim n As Graphics = Me.CreateGraphics   '用窗体控件的CreateGraphics方法,创建CreateGraphics对象,书上写的,后面慢慢琢磨
    Dim x As Pen = New Pen(myColor, 50)      '创建画笔,,颜色用mycolor,后面5是宽度


    '----------------------------------------转换vs的坐标为数学坐标
    n.TranslateTransform(800, 800) '坐标原点移位到中间,
    n.ScaleTransform(1, -1) '坐标x不变,y反向,这个就和数学坐标一致了
    n.DrawLine(x, -800, 0, 800, 0)   '用x2的钢笔,绘制X轴线
    n.DrawLine(x, 0, 800, 0, -800)   '用x2的钢笔,绘制y轴线

    '----------------------------------------绘制图形
    Dim a, b, c, d As Integer
    Dim i As Integer
    For i = 1 To 2 Step 1

        a = CInt(Rnd() * (100 - 500 + 1)) + 500 '产生100-500的随机数  CInt(Rnd() * (n - m + 1)) + m 注意随机数是m到n,n在前头
        b = CInt(Rnd() * (100 - 500 + 1)) + 500 '产生100-500的随机数  CInt(Rnd() * (n - m + 1)) + m 注意随机数是m到n,n在前头
        c = CInt(Rnd() * (100 - 500 + 1)) + 500 '产生100-500的随机数  CInt(Rnd() * (n - m + 1)) + m 注意随机数是m到n,n在前头
        d = CInt(Rnd() * (100 - 500 + 1)) + 500 '产生100-500的随机数  CInt(Rnd() * (n - m + 1)) + m 注意随机数是m到n,n在前头
        Dim p1 As Point = New Point(a, b) '把其中两个随机数定义为点的坐标1
        Dim p2 As Point = New Point(c, d) '把其中两个随机数定义为点的坐标2
        n.DrawLine(x, p1, p2) '画直线用随机点1点2连接
    Next



End Sub

    我也是菜鸟一个,代码没有优化,但是可以用,
Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问