Imports System
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Drawing.Text
Imports System.Drawing.Imaging
Public Class MainClass
Shared Sub Main()
Dim cp As ColorPalette
Dim bmp As Bitmap = New Bitmap("figure2.bmp")
cp = bmp.Palette
Dim c As Color
For Each c In cp.Entries
Console.WriteLine( c.ToString())
Next
End Sub
End Class
|