精华内容
下载资源
问答
  • VB 颜色RGB

    2016-05-30 03:04:00
    Option Explicit Private Type RGBTYPE R As Byte G As Byte B As Byte X As Byte End Type ...Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal ...
    Option Explicit
    Private Type RGBTYPE
        R As Byte
        G As Byte
        B As Byte
        X As Byte
    End Type
    Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal y As Long) As RGBTYPE
    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
    
    Private Sub Command1_Click()
        Dim cor As RGBTYPE
        cor = GetPixel(Me.hdc, 5, 5)
        Print cor.R
        Print cor.G
        Print cor.B
    End Sub
    
    Private Sub Command2_Click()
        Dim cor As RGBTYPE
        Dim Lcor As Long
        Lcor = Me.BackColor
        CopyMemory cor, Lcor, 4
        Print cor.R
        Print cor.G
        Print cor.B
        CopyMemory Lcor, cor, 4
        Print Lcor
    End Sub

     

    转载于:https://www.cnblogs.com/youyouran/p/5540989.html

    展开全文
  • VB分割RGB颜色

    2021-02-15 17:03:58
    Private Declare Function ChooseColor Lib “comdlg32.dll” Alias “ChooseColorA” (pChoosecolor As ChooseColor) As Long Private Type ...rgbResult As Long lpCustColors As String flags As Long lCus.

    在这里插入图片描述
    Private Declare Function ChooseColor Lib “comdlg32.dll” Alias “ChooseColorA” (pChoosecolor As ChooseColor) As Long
    Private Type ChooseColor
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    rgbResult As Long
    lpCustColors As String
    flags As Long
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
    End Type
    Dim mc As Long

    Private Function VbToRGB(ByVal mColor As Long) As Variant
    Dim Blue&, Red&, Green&
    Blue = 0: Red = 0: Green = 0
    Blue = mColor \ 65536
    Green = (mColor - 65536 * Blue) \ 256
    Red = mColor - 65536 * Blue - Green * 256
    VbToRGB = Array(Red, Green, Blue)
    End Function

    Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button <> 1 Then Exit Sub
    If X > 0 And X < Me.ScaleWidth And Y > 0 And Y < Me.ScaleHeight Then
    Dim CC As ChooseColor
    CC.lStructSize = Len(CC)
    CC.hwndOwner = Me.hwnd
    CC.hInstance = App.hInstance
    CC.flags = 0
    CC.lpCustColors = String$(16 * 4, 0)
    If ChooseColor(CC) < 1 Then Exit Sub
    mc = CC.rgbResult
    Call Colorre(mc)
    End If
    End Sub

    Private Sub Form_Resize()
    Call Colorre(mc)
    End Sub

    Private Sub Colorre(ByVal C As Long)
    Dim ColorArr
    ColorArr = VbToRGB©
    Me.BackColor = C
    Me.Cls
    Print “R:” & ColorArr(0) & vbCrLf & “G:” & ColorArr(1) & vbCrLf & “B:” & ColorArr(2)
    End Sub

    展开全文
  • VB颜色RGB列表

    2010-03-05 15:33:59
    用于查颜色RGB,可以方面的从表有对照查出来,比如:红色的RGB值是多少………………?
  • VBRGB颜色模型与HSV颜色模型转换的实现 数据库下载权威资源
  • vb颜色代码与rgb互转工具 很好用实在,欢迎下载,资源共享
  • VB用RGB改颜色跟实际颜色不一样? 本软件VB\WEB都可用 本软件自带 1、拾色器 2、16进制染色码转换器() 使用方法 16进制颜色:列&H525252& 粘贴到vb颜色属性中方可
  • RGB 颜色选择器 vb编程

    2010-12-27 21:39:34
    vb编写的RGB颜色选择器 RGB 颜色选择器 vb编程
  • 实现RGB颜色的调配,使得VB设置RGB颜色时更加直观
  • 颜色变化小程序VB源代码RGB(255 * Rnd(), 255 * Rnd(), 255 * Rnd())的应用
  • vb编写的颜色代码与RGB互转工具,有源码,可以随意获取颜色代码,并且可转换为RGB,值得拥有!
  • RGB颜色值、十进制值、十六进制字符串转换,屏幕取色,VB源码,可用来查询RGB颜色值和获取屏幕区域里的颜色值和颜色代码。
  • vb.net 用RGB显示控件的颜色

    千次阅读 2019-02-21 11:27:48
    Label2.BackColor = Color.FromArgb(5, 42, 71)
    Label2.BackColor = Color.FromArgb(5, 42, 71)
    
    展开全文
  • vb调色板 调节RGB三原色 控制字体颜色 附源码
  • 颜色值转换(RGBVB十六进制)

    热门讨论 2012-05-16 11:51:23
    颜色值转换(RGBVB十六进制),在程序开发中经常要用的设置界面颜色,但是用函数非常麻烦,而且增加代码量,所以就开发了这个可以转换的工具
  • .BackColor = Color.FromArgb(255, 255, 192)
    .BackColor = Color.FromArgb(255255192)

    展开全文
  • VB取各颜色分量,将RGB转为HTML颜色.

    千次阅读 2008-10-10 21:58:00
    //取各颜色分量 Public Function GetRedValue(COLOR As Long) As Integer 取得红色值 GetRedValue = COLOR And End FunctionPublic Function GetGreenValue(COLOR As Long) As Integer 取得绿色...
  • 获得鼠标当前处的颜色RGB值 我用的是VS2010做的 VB VB.net 仅供学习交流之用 学习中
  • 获得鼠标处颜色RGB

    2012-12-19 12:29:19
    VB2010做的 主要运用API函数获得鼠标指针处的颜色值 无代码 仅供学习交流之用 学习中
  • RGB颜色表编号手册

    2018-03-09 15:42:46
    Visual Basic提供了两个选择颜色函数QBColor和RGB,其中QBColor函数能够选择 16种颜色RGB函数能够选择更多的颜色,本文档提供了VB6.0 常用的RGB函数颜色效果。
  • 可将网页颜色vb软件中用到的颜色互相转换,支持vb纯数字颜色RGB颜色,可在屏幕上截取屏幕色系,小巧简洁!
  • NPOI自带的颜色有时不能满足我们要求时,我们需要自己定义背景色,而且NPOI的颜色类型是short类型,而.Net颜色类是Color类型,怎么让它们相互之间转换呢?网上有一段代码是vb的可以解决上述问题,本人把它翻译成C#的,...
  • VB调色板,HScroll1,RGB的应用实例,利用三个滑块(拖动条)来分别调整RGB三基色,本源码可学习一下滑块的使用、颜色的渲染等。当用户改变拖动条的时候,会改变对应事件处理程序,每一个事件程序分别代表了对RGB分量...
  • 美国人用VB编写的非常好用的颜色选取器,可以通过吸管、RGB值、颜色名称,颜色滑块等对颜色进行设置,并附有利用它对文字前景色,背景色及图案颜色等改变的实例。
  • VB颜色RGB色互相转换头疼了我好一段时间,如今找到解决办法了特别贴出来与大家共享 Type RGB Red As String Green As String Blue As StringEnd TypePublic Function ColorToRGB(ByVal dwColor As Long) As RGB...
  • 获取鼠标当前位置的颜色 VB源码 您可以使用它 获得鼠标所在位置的颜色RGB
  • VB与Java颜色值的转换

    千次阅读 2012-10-14 20:35:05
    正常的 RGB 颜色的有效范围,是从 0 到 16,777,215 (&HFFFFFF&)。每种颜色的设置值(属性或参数)都是一个四字节的整数。对于这个 范围内的数,其高字节都是 0,而低三个字节,从最低字节到第三个字节,分别定义了...
  • 通常我们表达颜色都是使用RGB值表示的,今天在VB中设置RGB值居然是一个整形数字,网上各种搜资料发现这个数字是怎么来的: 数值= 65536*Blue + 256* Green + Red 转载于:...
  • 颜色变化小程序VB源代码RGB(255 * Rnd(), 255 * Rnd(), 255 * Rnd())的应用
  • vb中的颜色

    2008-06-08 22:38:00
    &amp;H00000000&amp;的格式,顺序不是RGB,而是BGR。 可以用RGB(r,g,b)函数。
  • RGB递增(递减)进行颜色变换

    千次阅读 2014-10-10 18:38:01
    VBRGB函数有三个变量,把它们分别逐渐调整到另一个值,以逐渐过渡到另一种颜色。可以用“等差数列”的方法,按照需要的次数,进行调整。 下图: 第一行表示蓝色逐渐变浅(亮)直到变成白色。 第二行表示绿色...

空空如也

空空如也

1 2 3 4 5 6
收藏数 113
精华内容 45
关键字:

vb颜色rgb