Displaying 1 result from an estimated 1 matches for "dlssrow".
Did you mean:
dassow
2003 Sep 30
0
VB Code to convert BMP to LSS for splash screens
...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 current As Byte
Dim prev As Byte
Dim rowBuffer() As Byte
Dim dBitmapRow As String
Dim dBuffer As String
Dim dLSSRow As String
sourcefile = "I:\PXE Server\splash.bmp"
outputfile = "I:\PXE Server\splash.lss"
Set fileSystem = CreateObject("Scripting.FileSystemObject")
If fileSystem.FileExists(sourcefile) Then
Open sourcefile For Binary As #1
If...