◆◆◆◆◆请问，如何将一图象（bmp,jpg,gif等）以16色显示出来（用image,活picture活其他）？还有另外的几个问题！

3,请问用point(x,y)得到某点的颜色值后，如得到16776953，请问这个8为数如何表达一个颜色的，每位数是什么意思？
16776953转化为16进制为FF，FE，F9 分别代表RGB三原色。

解决方案 »

  1.   

    问题3
    8为数是1*R+256*G+65536*B
      

  2.   

    找了2篇文章，参考参考：（好用可要给多点分哦）
    简单介绍透明位图的实现方法   透明位图在VB中的实现方法及应用　　在VB中显示位图,通常都是通过各种控件实现的。通过控件显示的位图,或全部或局部,始终是以一个规则的矩形图像出现在屏幕上,无法做到只显示位图中某个不规则的局部图像,而使位图的其它部分具有透明性以露出其下原有的屏幕显示,即所谓“透明位图”,因此透明位图的实现只能另辟蹊径。下面,笔者将向大家介绍一种方法。　　原理　　其实,Windows中随处可见的图标就是一个透明位图的典型实例。
    　　图标是由两个单独的位图组成的。第一个位图是由黑色（颜色位全为0）背景与彩色图标图案组成的,该位图将与当前屏幕显示通过异或（XOR）操作结合起来,故称其为XOR位图。第二个位图是由白色（颜色位全为1）背景与黑色（颜色位全为0）图标图案组成的,该位图将与当前屏幕显示通过与（AND）操作结合起来,故称其为AND位图。图标的显示是通过两个步骤完成的：　　当前屏幕显示与AND位图通过AND操作结合起来；
    　　当前屏幕显示与XOR位图通过XOR操作结合起来。　　大家知道,1与任何数值AND操作的结果将维持原数值,而0与任何数值AND操作的结果则是0,因此在步骤1中,AND位图中白色（1）与屏幕显示经过AND操作后被原色彩屏蔽,而黑色（0）则将原色彩屏蔽。步骤1结束后,屏幕上将留下一个黑色的图标图案。在随后的步骤2中,由于0与任何数值异或的结果都将是原数值,因此,XOR位图与屏幕显示经过异或操作后,位图和屏幕中的黑色部分都将被各自对应的彩色部分屏蔽。步骤2结束后,一个形状不规则的图标图案就出现在屏幕上了。这就是图标显示的原理。　　方法　　首先,根据源位图和应用需求,制作出AND位图和XOR位图,然后,按照上述步骤,依次将AND位图和XOR位图与屏幕显示结合起来,便可实现透明位图了。
    　　AND位图和XOR位图的制作,在许多图像处理软件中都可以轻而易举地完成,笔者不再详细描述。AND位图和XOR位图与屏幕显示的结合,可以通过像素迭加时的光栅操作完成,具体实现可以使用VB4中为Form和PictureBox新增的方法PaintPicture。该方法的功能是将一个图像文件的内容传送到Form或PictureBox的显示屏幕上,也就是将源图像中的像素与当前显示屏幕上对应的像素叠加在一起。PaintPicture的语法为：object.PaintPicturepicture,x1,y1,width1,height1,x2,y2,width2,height2,opcode。其中,object是调用方法的Form或PictureBox对象实例；picture指定源图像,该参数必须是Form或PictureBox控件的Picture属性；x1,y1指定目标对象中用于摆放被传送图像的矩形区域左上角的逻辑坐标点；width1,height1指定目标对象中用于摆放被传送图像的矩形区域的宽度和高度；x2,y2指定源图像中被传送的矩形区域左上角的逻辑坐标点；width2,height2指定源图像中被传送部分的宽度和高度；opcode指定传送过程中使用的光栅操作代码值,AND操作代码值为H8800C6,XOR操作代码值为H660046。　　实例　　下面,本文介绍一个透明位图的应用实例,实例演示一个卡通人物在窗口顶部循环地从左到右穿越窗口的动画。动画的播放采用PictureClip控件和Timer控件来实现,动画画面的显示则使用本文的透明位图技术。
    　　新建一个VB项目,在Form1中加入一个Timer控件Timer1,两个PictureClip控件bmpXOR和bmpAND,将它们的Picture属性分别设置为XOR.BMP和AND.BMP,这两个位图就是透明位图所使用的XOR位图和AND位图,如右所示。
    　　在Form的Generaldeclaration部分加入下列常量声明：　　Const SRCAND As Long=＆H8800C6
    　　Const SRCINVERT AsLong=＆H660046
    　　Const StepLength = 10
    　　Const AnimateSpeed = 100　　项目代码如下：
    　　Private Sub Form_Load（）
    　　　Me.ScaleMode=3
    　　　With bmpAND
    　　　　.Cols=4
    　　　　.Rows=2
    　　　End With
    　　　With bmpXOR
    　　　　.Cols=4
    　　　　.Rows=2
    　 　　End With
    　　　Timer1.Interval=AnimateSpeed
    　　EndSub　　Private Sub Timer1_Timer（）
    　　　Static CurPic As Integer
    　　　Static CurX As Single
    　　　Me.Refresh
    　　　If CurPic > bmpAND.Cols＊bmpAND.Rows-1 Then CurPic=0
    　　　If CurX > Me.ScaleWidth Then CurX=0
    　　　Me.PaintPicture bmpAND.GraphicCell（CurPic）,CurX,0,,,,,,,SRCAND
    　　　Me.PaintPicture bmpXOR.GraphicCell（CurPic）,CurX,0,,,,,,,SRCINVERT
    　　　CurPic=CurPic+1
    　　　CurX=CurX+StepLength
    　　End Sub　　按F5运行,Form1中就会出现一个在窗口顶部从左到右循环地行走的卡通人物。人物行走的速度和步长可以通过常量AnimateSpeed和StepLength控制。为了检验透明位图的效果,可以为Form1设置各种背景。您会看到,使用透明位图技术显示的动画与各种背景都能自然地融合在一起,如同事先渲染生成的动画影片一样。这就是透明位图技术希望达到的目的。  将真彩色图像变为256色灰度(BIG5码):
    将RGB想成3D之X,Y,Z轴,则BMP的RGB为(r,g,b)与座标(Y,Y,Y)距离最小时的Y即为灰阶值
    Y = 0.29900 * R + 0.58700 * G + 0.11400 * B
    整数化
    Y = ( 9798*R + 19235*G + 3735*B) / 32768
    RGB(Y, Y, Y)就可以了需一个内有彩色图的PictureBox, CommandBox
    Option Explicit
    Private Declare Function GetPixel Lib "gdi32" _
    (ByVal hdc As Long, ByVal x As Long, ByVal Y As Long) As Long
    Private Declare Function SetPixelV Lib "gdi32" _
    (ByVal hdc As Long, ByVal x As Long, _
    ByVal Y As Long, ByVal crColor As Long) As Long
    Private tmpPic As PicturePrivate Sub Form_Load()
    Picture1.ScaleMode = 3 '设为Pixel
    Picture1.AutoRedraw = True '设定所有Pixel的改变不立即在pictureBox上显示
    Set tmpPic = Picture1.Picture
    End SubPrivate Sub Command1_click()
    Dim width5 As Long, heigh5 As Long, rgb5 As Long
    Dim hdc5 As Long, i As Long, j As Long
    Dim bBlue As Long, bRed
      

  3.   

    分解颜色为RGB
    To break an RGB color value into its components, use: 
        red = color Mod 256
        green = (color \ 256) Mod 256
        blue = color \ 256 \ 256 There are some system colors that have funny values like &H8000000F&. Unfortunately they don't work this way
      

  4.   

    我们在编制程序的时候，特别是数据库软件，经常会遇到这样一个问题：在文
    本框中输入完后，用户习惯性的按下回车键。但是系统“嘀”的一声，并没有象想
    象那样跳入下一行或者其他的什么。那么能不能让程序在输入完后干其他的事呢？
    试一试下面的代码吧。
    Sub Text1_keyPress(KeyAscii As Integer)
    　
    If KeyAscii=13 Then
    SendKeys"{tab}"
    End If
    End Sub
      

  5.   

    2.  chr(13) & chr(10)
      

  6.   

    5.
    API----Bitblt
    Public Declare Function BitBlt Lib "gdi32" Alias "BitBlt" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
      

  7.   

    GaoYang(高阳):
    还没解决
    但是很多人吵着要分，所以给分了。请你把你的解决方案告诉我
    我会在另外的地方给分你的！