Displaying 1 result from an estimated 1 matches for "padhex".
Did you mean:
padded
2003 Sep 30
0
VB Code to convert BMP to LSS for splash screens
...As Integer
iCompression As Long
iSizeImage As Long
iXPelsPerMeter As Long
iYPelsPerMeter As Long
iClrUsed As Long
iClrImportant As Long
End Type
Type lssHeader
magic As Long
iWidth As Integer
iHeight As 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...