This is probably more of a stunt than something there is a need for. But it shows one of the ways that VB6 code can be "behind" an HTML/CSS front end.
The provided stylesheet basically duplicates the look of a plain old VB6 Form. However you could tweak the CSS and add more HTML to have garish colors, gauche behaviors, spinning flaming logos, and popup ads galore.
![Name: sshot.png
Views: 16
Size: 3.9 KB]()
Here is UPrinterDemo.hta itself:
That's pretty much it. All of the heavy lifting happens in UPrinterDemo.dll's Demo class which is clean burning, eco-friendly, high performance, VB6 native machine code!
![Name: Packaged.jpg
Views: 22
Size: 27.6 KB]()
Requirements
No megalithic "framework" libraries required. Fully registration-free XCopy deployment.
This is supposed to work as far back as Windows XP, however I am uncertain whether XP SP3 is required and it probably works on XP SP2 but I have doubts about XP SP1 or before.
Only tested on Windows 10 1709.
The required DLLAsm 2.1 utility is included in VB6 source code form so you'll have to compile that first. Please see the ReadMe.txt file.
The provided stylesheet basically duplicates the look of a plain old VB6 Form. However you could tweak the CSS and add more HTML to have garish colors, gauche behaviors, spinning flaming logos, and popup ads galore.
Here is UPrinterDemo.hta itself:
Code:
<html>
<head>
<hta:application
id=HTA
applicationName="UPrinter Demo"
icon="Resources/UPrinterDemo.ico"
singleInstance=no
border=thin
borderStyle=raised
sysMenu=yes
maximizeButton=no
minimizeButton=no
contextMenu=no
showInTaskBar=yes
scroll=no
scrollFlat=no
navigable=no
selection=no
windowState=normal
version=1.0>
<title>UPrinter Demo</title>
<link rel=stylesheet href="Resources/UPrinterDemo.css">
<script language="vbscript">
Option Explicit
Private UPrinterDemo
Private Sub Continue()
UPrinterDemo.Continue
End Sub
Private Sub window_onload()
'These need to be assigned to match the layout that the
'stylesheet defines:
Const WIDTH = 320
Const HEIGHT = 241
With window
.resizeTo WIDTH, HEIGHT
.moveTo (screen.availWidth - WIDTH ) \ 2, _
(screen.availHeight - HEIGHT ) \ 2
End With
With CreateObject("Microsoft.Windows.ActCtx")
.Manifest = "Resources\UPrinterDemo.manifest"
Set UPrinterDemo = .CreateObject("UPrinterDemo.Demo")
End With
With UPrinterDemo
Set .Document = document
.Initialize
End With
End Sub
</script>
</head>
<body>
<div id=Label1>Choose a printer</div>
<!-- Note: select element with size > 1 means "not a dropdown" -->
<select id=lstPrinters size=2></select>
<button id=cmdPrint disabled>Print</button>
<div id=lblStatus class=StatusBar>Ready</div>
</body>
</html>Requirements
No megalithic "framework" libraries required. Fully registration-free XCopy deployment.
This is supposed to work as far back as Windows XP, however I am uncertain whether XP SP3 is required and it probably works on XP SP2 but I have doubts about XP SP1 or before.
Only tested on Windows 10 1709.
The required DLLAsm 2.1 utility is included in VB6 source code form so you'll have to compile that first. Please see the ReadMe.txt file.