Visual Basic

Ashfield wrote:

you cannot just copy them.

Paul Conrad wrote:

He didn't say anthing about just copying, but registering

Ashfield wrote:

vague question, guesswork answer

Zaegra wrote:

You could also try underlining the label and giving it a blue color, so it looks like a link

Dim fs As System.IO.FileStream = System.IO.File.OpenWrite(newFilename)
Dim img As Bitmap = Image.FromFile(filename)

' Write Header
fs.WriteByte(0)
fs.WriteByte(0)
fs.WriteByte(img.Width)
fs.WriteByte(img.Height)

' Convert colour to 1bit and packet bits into byte
Dim iByte As Byte = 0
Dim iCurrentBit As Integer = 7
For y As Integer = 0 To img.Height - 1
    For x As Integer = 0 To img.Width - 1

        Dim clr As Color = img.GetPixel(x, y)
        If (clr.R > 128) And (clr.G > 128) And (clr.B > 128) Then
            iByte = iByte Or (1 << iCurrentBit)
        End If

        If (x >= img.Width - 1) And (x Mod 8) Then
            fs.WriteByte(iByte)
            iByte = 0
            iCurrentBit = 7
        ElseIf iCurrentBit = 0 Then
            fs.WriteByte(iByte)
            iByte = 0
            iCurrentBit = 7
        Else
            iCurrentBit -= 1
        End If

    Next
Next

fs.Close()