Displaying 1 result from an estimated 1 matches for "mybmphead".
Did you mean:
mybmpheader
2003 Sep 30
0
VB Code to convert BMP to LSS for splash screens
...Integer
colors(1 To 16) As RGBColor3
End Type
Function PadHex(myByte As Byte) As String
Dim tmpStr As String
tmpStr = Hex$(myByte)
If Len(tmpStr) < 2 Then tmpStr = "0" & tmpStr
PadHex = tmpStr
End Function
Sub convertBMPtoLSS()
Dim fileSystem
Dim myBmpHeader As bmpHeader
Dim myBmpPallete(256) As RGBColor4
Dim myBmpData() As Byte
Dim myLssHeader As lssHeader
Dim DebugStr As String
Dim filename As String
Dim iColor As Byte
Dim myByte As Byte
Dim nCount As Integer
Dim run As Integer
Dim erun As Byte
Dim c...