asp.net画图问题，还有调色板无法访问

Question

(2003-07-26 00:52:22)   ArLi(950075)我的MSDN不全，System.Drawing.Imaging.ColorPalette 没有构造说明，我要上MSDN MS 去查一下，奇怪这东西在.net 里没有说明用法 (2003-07-26 00:52:51)   ArLi(950075)原理是这样的，为你的IMG对象定义一个调色板，此调色板是灰度的，所以你的图像也会是灰度的 (2003-07-26 00:55:13)   蓝虫-<想见你(42420734)哦，那：1.定义调色板用？2.怎样设置灰度的调色板？ (2003-07-26 00:56:13)   ArLi(950075).ColorPalette 就是定义调色板用的，但是.net 怎么禁用了，将它变成了保护级别，又是密封类不让继承，那就说明永远无法访问到，真奇怪我才发现这个问题 (2003-07-26 00:56:29)   ArLi(950075)以前beta 是可以的 (2003-07-26 00:57:23)   ArLi(950075)
应该是 o.Palette =   (2003-07-26 00:57:45)   ArLi(950075)后面的值就是System.Drawing.Imaging.ColorPalette 类，可现在不让用了，晕 (2003-07-26 01:02:57)   ArLi(950075)没法找不到，微软有构造了，但没有示例，也无从得知怎么访问。。

Answer 1

send for ArLi:from: http://www.stvb.com/shownews.asp?NewsID=2276 
  
彩色BMP档转成灰度 
  作者: cww　 
  
将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 Picture 
  
Private Sub Form_Load() 
Picture1.ScaleMode = 3  注释：设为Pixel 
Picture1.AutoRedraw = True  注释：设定所有Pixel的改变不立即在pictureBox上显示 
Set tmpPic = Picture1.Picture 
End Sub 
  
Private 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 As Long, bGreen As Long 
Dim Y As Long 
width5 = Picture1.ScaleWidth 
heigh5 = Picture1.ScaleHeight 
hdc5 = Picture1.hdc 
For i = 1 To width5 
   For j = 1 To heigh5 
       rgb5 = GetPixel(hdc5, i, j) 
       bBlue = Blue(rgb5) 
       bRed = Red(rgb5) 
       bGreen = Green(rgb5) 
       Y = (9798 * bRed + 19235 * bGreen + 3735 * bBlue) \ 32768 
       rgb5 = RGB(Y, Y, Y) 
       SetPixelV hdc5, i, j, rgb5 
   Next j 
Next i 
Set Picture1.Picture = Picture1.Image  注释：此时才真正显示Picture 
End Sub 
  
Private Function Red(ByVal mlColor As Long) As Long 
Red = mlColor And &HFF 
End Function 
Private Function Green(ByVal mlColor As Long) As Long 
Green = (mlColor \ &H100) And &HFF 
End Function 
Private Function Blue(ByVal mlColor As Long) As Long 
Blue = (mlColor \ &H10000) And &HFF 
End Function

Answer 2

不好意思呀，对vb不熟，这个是vb6的吧？
我在vb.net和vb6里面都无法编译
在vb6中，我已经拖了内有彩色图的PictureBox1, CommandBox 1错误：Private Sub Form_Load()
Picture1.ScaleMode = 3Complie error:Syntax error

Answer 3

就算不识VB，瞧瞧原理吧：GetPixel 读出每一个点，算成灰度，然后用SetPixelV 再画该点

Answer 4

这段时间我们南方闹起了 我爸爸出生以来从未有过的 旱灾
开始间隔性停电已经一个多月了我都不想上网了，敲一半不定就停电了。。上次我的路由坏了，POST 不了，不知你解决没有，再不行就参考：http://www.ccw.com.cn/htm/app/aprog/02_1_16_2.asp

Answer 5

非常感谢~最近在忙个东西一直没弄，由于无法从带有索引像素格式的图像创建 Graphics 对象。 
不老先生叫我先用其他格式创一个，然后用drawImage来弄
还没试验。你下面的地址里面没有我需要的，那几个函数我都知道。再次感谢

Answer 6

搞定，c#代码如下：再次感谢using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.HtmlControls;
  
  ...Bitmap myBitmap = new Bitmap(@"c:\sign.jpg");for(int Xcount = 0;Xcount<myBitmap.Width;Xcount++)
{
  for(int Ycount= 0;Ycount<myBitmap.Height;Ycount++)
  { 
    Color rgb5 = myBitmap.GetPixel(Xcount, Ycount);
    byte bBlue =rgb5.B;
    byte bRed =rgb5.R;
    byte bGreen =rgb5.G;
    int Y=(bBlue+bRed+bGreen)/3;
    //int Y = (9798 * bRed + 19235 * bGreen + 3735 * bBlue)/32768 ;
    NewColor = Color.FromArgb(Y, Y, Y);
    myBitmap.SetPixel(Xcount,Ycount,NewColor);
   }
}
myBitmap.Save(@"c:\1.jpg");