+
+Welkom in Visual Basic World!
+
+
+
+
+<![CDATA[Als u deze tekst ziet, kan uw internet-browser geen frames lezen. Klik
+<a href="frame_left.html">HIER</a>
+voor naar mijn pagina's te gaan.]]>
+
+
\ No newline at end of file
diff --git a/static/museum/1998/java2.html b/static/museum/1998/java2.html
new file mode 100755
index 00000000..feccb211
--- /dev/null
+++ b/static/museum/1998/java2.html
@@ -0,0 +1,45 @@
+
+
+java script
+
+
+
+
Typ je favorite kleur
+in: (in code) !
+Om je site zo veel mogelijk van animaties te voorzien, gebruik je best javascript.
+Natuurlijk moet je het programmeren een beetje begrijpen. Daarvoor koop je een boek.
+ Je kan ook op iemand zijn site gaan kijken en dan de scripts "pikken". Hier heb je
+alvast enkele voorbeelden. De bar boven deze site is ook gemaakt van java. Je kan een
+chatbox maken van java. Dat is dan wel nogal moeilijk. Er bestaan nog andere codes via HTML.
+Zo kan je i.p.v. javascript Visual Basic script programmeren. Dat gaat zo: script language="VBscript"
+Klik hier om naar de donna-site te gaan. Je kan daar
+chatten (via java) maar de buttons die daar gemaakt zijn, zijn niet van java, maar van
+Macromedia Flash. Dat is nog ingewikkelder.Klik hier om naar een site te gaan, bordevol
+ java, flash, animaties, ... Zoek het uit!
+
+Dit kijkt wat voor een Browser je gebruikt...
+
+
+
SLUITEN (dit is óók java...)
+
+
+
\ No newline at end of file
diff --git a/static/museum/1998/java_d.jpg b/static/museum/1998/java_d.jpg
new file mode 100755
index 00000000..f8654b5e
Binary files /dev/null and b/static/museum/1998/java_d.jpg differ
diff --git a/static/museum/1998/java_l.jpg b/static/museum/1998/java_l.jpg
new file mode 100755
index 00000000..958f51c1
Binary files /dev/null and b/static/museum/1998/java_l.jpg differ
diff --git a/static/museum/1998/javalogo.gif b/static/museum/1998/javalogo.gif
new file mode 100755
index 00000000..3f696149
Binary files /dev/null and b/static/museum/1998/javalogo.gif differ
diff --git a/static/museum/1998/lijn.gif b/static/museum/1998/lijn.gif
new file mode 100755
index 00000000..9c49fd12
Binary files /dev/null and b/static/museum/1998/lijn.gif differ
diff --git a/static/museum/1998/lijn.html b/static/museum/1998/lijn.html
new file mode 100755
index 00000000..260ec8ee
--- /dev/null
+++ b/static/museum/1998/lijn.html
@@ -0,0 +1,262 @@
+
+
+
+
+Perspicacity Headliner
+
+
+
+
+
+Downloads
+
+
+
+
+
VB-Links
+
Hier vind je een beetje Visual Basic links die ik tamelijk de moeite waard vind. onder het logo vind je een korte uitleg over de site
+
+
Welkom in VB-World!
+
+
+
+
Welkom in « VB-world! » Hier kan men veel voorbeeldprogrammas vinden om te leren. Klik op de koppelingen (zie links) om broncodes te bekijken. Deze wereld is alleen bestemd voor Visual Basic Programmeurs. De anderen kunnen ook Terug naar « home » gaan voor andere onderwerpen.
[WGP] software: Dit is zelfgemaakte software die je kan downloaden en je misschien op ideën kan brengen. Maar deze soft is ook geschikt voor notities, ontspanning, berekeningen, … Voor meer info, zie [WGP] Software
+
Nieuw: Hide-And-Seek van [WGP] Soft
+
+
+
Nieuwe Software: Hide-And-Seek Download now! (lees eerst LEESMIJ!!!!!)
Producten van [WGP]
+
+
+
[WGP] Software
Hide-And-Seek Hoe installeren?
+1) om dit programma te
+downloaden heb je speciale drivers nodig. Deze kan je verkrijgen (zie
+onder) Voor screenshots, kijk ook onderaan.
+
+2) Je moet een
+unzip-programma bezitten, en als je dat niet hebt, download het
+dan ook (zie onder)
+
+Overeenkomsten
+
+3) Wouter Groeneveld heeft
+dit gemaakt, niemand mag dat dan ook proberen na te maken of te
+kopiëren. Deze soft is van [WGP] software liberary, een product
+van [WGP]. Om deze programma's te doen werken moet je de alenea
+"hoe installeren?" lezen.
+
+4) Om deze programma's te kunnen installeren, moet je alle
+drivers installeren. die download je en lees dan de LEESMIJ. klik ook HIER
+ om deze leesmij te lezen (gebruiksaanwijzing)
+
+
+Downloaden van drivers, programma's
+en benodigtheden.
+
+
Java script rekenmachine
+
+
+
+Java script: rekenmachine
+
+
+
+
+
+
+
+
+
+Screenshots van Planet Blupi
+
+
+
+
+
+ Screenshots
+
+
+
+Unreal game
+
+
+
+
+
+
+
+
+
+
+Er is weeral een fantastishe shoot-'m-up game uit: Unreal.
+
+
+
+
+
+boven de 18 jaar! Ik zeg er wel niet bij dat ik nog maar 13 ben...
+(OEPS)
+
+
+klik hier
+
+Om de zgn. codes van Unreal af te halen.
+
+Klik hier
+
+Om dit fantastisch spel te downloaden.
+
+http://www.planetunreal.com/ http://www.unreal.com/ http://www.unrealed.net/ http://www.freshmeat.org/unreal/ http://www.unrealnation.com/
+Enkele andere Unreal-sites.
+
Zoekmachines
+
+
+
+
+
+Wie zoekt, die vindt...
+
+
Capture Screen Module
+
+
+
+
+Capture Screen Module
+Om de module te downloaden, klik je het beste op de titel. (in .Bas vorm). Deze module werd gemaakt in Visual Basic 6, maar is ook VB4 32-BIT, VB5 & VB6 compatibel. Dat zijn ze trouwens allemaal...(Ongeveer 14 KB)
+
Gebruik:
+Set [Picture].Picture = CaptureScreen() (of een van de andere routines zie onderaan)
+
+
Verschillende Routines:
+
+ CreateBitmapPicture - Maakt een picture Object van een Bitmap bestand of palet.
+ CaptureWindow - Captures elk gegeven venster.
+ CaptureActiveWindow - Captures alleen het actief venster.
+ CaptureForm - Captures het hele formulier.
+ CaptureClient - Captures een client 'area' in een formulier.
+ CaptureScreen - Captures het hele scherm.
+ PrintPictureToFitPage - Print elk picture zo groot mogelijk.
+
+
+
Uitleg bij API Declaraties:
+
+ CreateCompatibleBitmap - Maakt een bitmap compatibel met het gespecialiseerde 'Device Context' (DC)
+ GetDeviceCaps - Retourneert gespecialiseerde informatie over die device.
+ GetSystemPaletteEntries - Retourneert een bep. aantal paletten van het systeem geassocieerd met de specifieke DC.
+ CreateCompatibleDC - Maakt een compatibele DC in het geheugen aan met de specifieke devices
+ CreatePalette - Maakt een logisch palet aan.
+ SelectPalette - Selecteert een logisch palet.
+ SelectObject - Selecteert een object in de DC
+ BitBlt - een Bit-Clock transfer van de kleur overeenstemmend met bron DC (Source) in bestemming DC (Dest.)
+ GetWindowDC - Retourneert de DC van het hele venster
+ GetDC - Retourneert de DC van een speciaal gebied, nl. 'Client area' (zie CaptureClient)
+ ReleaseDC - Bevrijd de DC van het geheugen om door andere programma's gebruikt te worden.
+ DeleteDC - Verwijderd een gekozen DC
+ GetWindowRect - Retourneert de dimensie van een 'rectanlge' van het scherm
+ GetDesktopWindow - Retourneert een opdracht naar de Desktop Window
+ GetForeGroundWindow - Retourneert een opdracht naar het voorliggende venster
+ OleCreatePictureIndirect - Maakt een nieuw object, overeenstemmend met de PICTUREDESC structuur
+
+
+
+
\ No newline at end of file
diff --git a/static/museum/2000/Codes/CreateElipses.html b/static/museum/2000/Codes/CreateElipses.html
new file mode 100755
index 00000000..61deb38a
--- /dev/null
+++ b/static/museum/2000/Codes/CreateElipses.html
@@ -0,0 +1,113 @@
+
+CreateElipses Klasse
+
+
+
+
+Create Elipses Klasse
+Om de module te downloaden, klik je het beste op de titel. (in .cls vorm). Deze module werd gemaakt in Visual Basic 6, maar is ook VB4 32-BIT, VB5 & VB6 compatibel. Dat zijn ze trouwens allemaal...(Ongeveer 15 KB)
+
Gebruik:
+
+Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
+
Verschillende Routines:
+Die zijn er veel te veel, zijt blij dat ik het gebruik al helemaal heb uitgeschreven!
+
+
Uitleg bij API Declaraties:
+
+ CreateBrushIndirect - Maak een borstel van indirecte kleuren aan
+ CreatePen - Maak een 'Pen' aan
+ SetROP2 - ?? Mail me als je het weet aub
+ GetROP2 - ?? Mail me als je het weet aub
+ SelectObject - Selecteer een object
+ DeleteObject - verwijder een object
+ Ellipse - het belangrijkste: maak een vorm van een elipse
+ GetSysColor - Zet de systeem kleuren in een variabele
+
+
+
+
\ No newline at end of file
diff --git a/static/museum/2000/Codes/Download/CaptureScreen.bas b/static/museum/2000/Codes/Download/CaptureScreen.bas
new file mode 100755
index 00000000..3d21653f
--- /dev/null
+++ b/static/museum/2000/Codes/Download/CaptureScreen.bas
@@ -0,0 +1,384 @@
+Attribute VB_Name = "CaptureScreenM"
+'#########################################################
+'# CaptureScreen Module (C) 1998 - 2000 aWhile-Soft #
+'#########################################################
+Option Explicit
+Option Base 0
+Private Type PALETTEENTRY
+ peRed As Byte
+ peGreen As Byte
+ peBlue As Byte
+ peFlags As Byte
+End Type
+
+Private Type LOGPALETTE
+ palVersion As Integer
+ palNumEntries As Integer
+ palPalEntry(255) As PALETTEENTRY ' Enough for 256 colors
+End Type
+
+Private Type GUID
+ Data1 As Long
+ Data2 As Integer
+ Data3 As Integer
+ Data4(7) As Byte
+End Type
+
+Private Type RECT
+ Left As Long
+ Top As Long
+ Right As Long
+ Bottom As Long
+End Type
+
+Private Type PicBmp
+ Size As Long
+ Type As Long
+ hBmp As Long
+ hPal As Long
+ Reserved As Long
+End Type
+
+Private Const RASTERCAPS As Long = 38
+Private Const RC_PALETTE As Long = &H100
+Private Const SIZEPALETTE As Long = 104
+
+Private Declare Function CreateCompatibleBitmap Lib "GDI32" ( _
+ ByVal hDC As Long, ByVal nWidth As Long, _
+ ByVal nHeight As Long) As Long
+
+Private Declare Function GetDeviceCaps Lib "GDI32" ( _
+ ByVal hDC As Long, ByVal iCapabilitiy As Long) As Long
+
+Private Declare Function GetSystemPaletteEntries Lib "GDI32" ( _
+ ByVal hDC As Long, ByVal wStartIndex As Long, _
+ ByVal wNumEntries As Long, lpPaletteEntries As PALETTEENTRY) _
+ As Long
+
+Private Declare Function CreateCompatibleDC Lib "GDI32" ( _
+ ByVal hDC As Long) As Long
+
+Private Declare Function CreatePalette Lib "GDI32" ( _
+ lpLogPalette As LOGPALETTE) As Long
+
+Private Declare Function SelectPalette Lib "GDI32" ( _
+ ByVal hDC As Long, ByVal hPalette As Long, _
+ ByVal bForceBackground As Long) As Long
+
+Private Declare Function RealizePalette Lib "GDI32" ( _
+ ByVal hDC As Long) As Long
+
+Private Declare Function SelectObject Lib "GDI32" ( _
+ ByVal hDC As Long, ByVal hObject As Long) As Long
+
+Private Declare Function BitBlt Lib "GDI32" ( _
+ ByVal hDCDest As Long, ByVal XDest As Long, _
+ ByVal YDest As Long, ByVal nWidth As Long, _
+ ByVal nHeight As Long, ByVal hDCSrc As Long, _
+ ByVal XSrc As Long, ByVal YSrc As Long, ByVal dwRop As Long) _
+ As Long
+
+Private Declare Function GetWindowDC Lib "USER32" ( _
+ ByVal hWnd As Long) As Long
+
+Private Declare Function GetDC Lib "USER32" ( _
+ ByVal hWnd As Long) As Long
+
+Private Declare Function ReleaseDC Lib "USER32" ( _
+ ByVal hWnd As Long, ByVal hDC As Long) As Long
+
+Private Declare Function DeleteDC Lib "GDI32" ( _
+ ByVal hDC As Long) As Long
+
+Private Declare Function GetWindowRect Lib "USER32" ( _
+ ByVal hWnd As Long, lpRect As RECT) As Long
+
+Private Declare Function GetDesktopWindow Lib "USER32" () As Long
+
+Private Declare Function GetForegroundWindow Lib "USER32" () As Long
+
+Private Declare Function OleCreatePictureIndirect _
+ Lib "olepro32.dll" (PicDesc As PicBmp, RefIID As GUID, _
+ ByVal fPictureOwnsHandle As Long, IPic As IPicture) As Long
+Public Function CreateBitmapPicture(ByVal hBmp As Long, _
+ ByVal hPal As Long) As Picture
+'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
+'
+' CreateBitmapPicture
+' - Creates a bitmap type Picture object from a bitmap and palette.
+'
+' hBmp
+' - Handle to a bitmap
+'
+' hPal
+' - Handle to a Palette
+' - Can be null if the bitmap doesn't use a palette
+'
+' Returns
+' - Returns a Picture object containing the bitmap
+'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
+'
+Dim r As Long
+Dim Pic As PicBmp
+'
+' IPicture requires a reference to "Standard OLE Types"
+'
+Dim IPic As IPicture
+Dim IID_IDispatch As GUID
+'
+' Fill in with IDispatch Interface ID
+'
+With IID_IDispatch
+ .Data1 = &H20400
+ .Data4(0) = &HC0
+ .Data4(7) = &H46
+End With
+'
+' Fill Pic with the necessary parts.
+'
+With Pic
+ .Size = Len(Pic) ' Length of structure
+ .Type = vbPicTypeBitmap ' Type of Picture (bitmap)
+ .hBmp = hBmp ' Handle to bitmap
+ .hPal = hPal ' Handle to palette (may be null)
+End With
+'
+' Create the Picture object.
+r = OleCreatePictureIndirect(Pic, IID_IDispatch, 1, IPic)
+'
+' Return the new Picture object.
+'
+Set CreateBitmapPicture = IPic
+End Function
+
+
+
+'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
+'
+' CaptureWindow
+' - Captures any portion of a window.
+'
+' hWndSrc
+' - Handle to the window to be captured
+'
+' bClient
+' - If True CaptureWindow captures from the bClient area of the
+' window
+' - If False CaptureWindow captures from the entire window
+'
+' LeftSrc, TopSrc, WidthSrc, HeightSrc
+' - Specify the portion of the window to capture
+' - Dimensions need to be specified in pixels
+'
+' Returns
+' - Returns a Picture object containing a bitmap of the specified
+' portion of the window that was captured
+'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
+
+Public Function CaptureWindow(ByVal hWndSrc As Long, _
+ ByVal bClient As Boolean, ByVal LeftSrc As Long, _
+ ByVal TopSrc As Long, ByVal WidthSrc As Long, _
+ ByVal HeightSrc As Long) As Picture
+
+Dim hDCMemory As Long
+Dim hBmp As Long
+Dim hBmpPrev As Long
+Dim r As Long
+Dim hDCSrc As Long
+Dim hPal As Long
+Dim hPalPrev As Long
+Dim RasterCapsScrn As Long
+Dim HasPaletteScrn As Long
+Dim PaletteSizeScrn As Long
+Dim LogPal As LOGPALETTE
+'
+' Get the proper Device Context (DC) depending on the value of bClient.
+'
+If bClient Then
+ hDCSrc = GetDC(hWndSrc) 'Get DC for Client area.
+Else
+ hDCSrc = GetWindowDC(hWndSrc) 'Get DC for entire window.
+End If
+'
+' Create a memory DC for the copy process.
+'
+hDCMemory = CreateCompatibleDC(hDCSrc)
+'
+' Create a bitmap and place it in the memory DC.
+'
+hBmp = CreateCompatibleBitmap(hDCSrc, WidthSrc, HeightSrc)
+hBmpPrev = SelectObject(hDCMemory, hBmp)
+'
+' Get the screen properties.
+'
+RasterCapsScrn = GetDeviceCaps(hDCSrc, RASTERCAPS) 'Raster capabilities
+HasPaletteScrn = RasterCapsScrn And RC_PALETTE 'Palette support
+PaletteSizeScrn = GetDeviceCaps(hDCSrc, SIZEPALETTE) 'Palette size
+'
+' If the screen has a palette make a copy and realize it.
+'
+If HasPaletteScrn And (PaletteSizeScrn = 256) Then
+ '
+ ' Create a copy of the system palette.
+ '
+ LogPal.palVersion = &H300
+ LogPal.palNumEntries = 256
+ r = GetSystemPaletteEntries(hDCSrc, 0, 256, LogPal.palPalEntry(0))
+ hPal = CreatePalette(LogPal)
+ '
+ ' Select the new palette into the memory DC and realize it.
+ '
+ hPalPrev = SelectPalette(hDCMemory, hPal, 0)
+ r = RealizePalette(hDCMemory)
+End If
+'
+' Copy the on-screen image into the memory DC.
+'
+r = BitBlt(hDCMemory, 0, 0, WidthSrc, HeightSrc, hDCSrc, _
+ LeftSrc, TopSrc, vbSrcCopy)
+'
+' Remove the new copy of the on-screen image.
+'
+hBmp = SelectObject(hDCMemory, hBmpPrev)
+'
+' If the screen has a palette get back the
+' palette that was selected in previously.
+'
+If HasPaletteScrn And (PaletteSizeScrn = 256) Then
+ hPal = SelectPalette(hDCMemory, hPalPrev, 0)
+End If
+'
+' Release the DC resources back to the system.
+'
+r = DeleteDC(hDCMemory)
+r = ReleaseDC(hWndSrc, hDCSrc)
+'
+' Create a picture object from the bitmap
+' and palette handles.
+'
+Set CaptureWindow = CreateBitmapPicture(hBmp, hPal)
+End Function
+
+Public Function CaptureScreen() As Picture
+Dim hWndScreen As Long
+'
+' Get a handle to the desktop window.
+hWndScreen = GetDesktopWindow()
+'
+' Capture the entire desktop.
+'
+With Screen
+ Set CaptureScreen = CaptureWindow(hWndScreen, False, 0, 0, _
+ .Width \ .TwipsPerPixelX, .Height \ .TwipsPerPixelY)
+End With
+End Function
+
+Public Function CaptureForm(frm As Form) As Picture
+'
+' Capture the entire form.
+'
+With frm
+ Set CaptureForm = CaptureWindow(.hWnd, False, 0, 0, _
+ .ScaleX(.Width, vbTwips, vbPixels), _
+ .ScaleY(.Height, vbTwips, vbPixels))
+End With
+End Function
+
+Public Function CaptureClient(frm As Form) As Picture
+'
+' Capture the client area of the form.
+'
+With frm
+ Set CaptureClient = CaptureWindow(.hWnd, True, 0, 0, _
+ .ScaleX(.ScaleWidth, .ScaleMode, vbPixels), _
+ .ScaleY(.ScaleHeight, .ScaleMode, vbPixels))
+End With
+End Function
+
+Public Function CaptureActiveWindow() As Picture
+Dim hWndActive As Long
+Dim RectActive As RECT
+'
+' Get a handle to the active/foreground window.
+' Get the dimensions of the window.
+'
+hWndActive = GetForegroundWindow()
+Call GetWindowRect(hWndActive, RectActive)
+'
+' Capture the active window.
+'
+With RectActive
+ Set CaptureActiveWindow = CaptureWindow(hWndActive, False, 0, 0, _
+ .Right - .Left, .Bottom - .Top)
+End With
+End Function
+
+Public Sub PrintPictureToFitPage(Prn As Printer, Pic As Picture)
+'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
+'
+' PrintPictureToFitPage
+' - Prints a Picture object as big as possible.
+'
+' Prn
+' - Destination Printer object
+'
+' Pic
+' - Source Picture object
+'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
+Dim PicRatio As Double
+Dim PrnWidth As Double
+Dim PrnHeight As Double
+Dim PrnRatio As Double
+Dim PrnPicWidth As Double
+Dim PrnPicHeight As Double
+Const vbHiMetric As Integer = 8
+'
+' Determine if picture should be printed in landscape
+' or portrait and set the orientation.
+'
+If Pic.Height >= Pic.Width Then
+ Prn.Orientation = vbPRORPortrait 'Taller than wide
+Else
+ Prn.Orientation = vbPRORLandscape 'Wider than tall
+End If
+'
+' Calculate device independent Width to Height ratio for picture.
+'
+PicRatio = Pic.Width / Pic.Height
+'
+' Calculate the dimentions of the printable area in HiMetric.
+'
+With Prn
+ PrnWidth = .ScaleX(.ScaleWidth, .ScaleMode, vbHiMetric)
+ PrnHeight = .ScaleY(.ScaleHeight, .ScaleMode, vbHiMetric)
+End With
+'
+' Calculate device independent Width to Height ratio for printer.
+'
+PrnRatio = PrnWidth / PrnHeight
+'
+' Scale the output to the printable area.
+'
+If PicRatio >= PrnRatio Then
+ '
+ ' Scale picture to fit full width of printable area.
+ '
+ PrnPicWidth = Prn.ScaleX(PrnWidth, vbHiMetric, Prn.ScaleMode)
+ PrnPicHeight = Prn.ScaleY(PrnWidth / PicRatio, vbHiMetric, Prn.ScaleMode)
+Else
+ '
+ ' Scale picture to fit full height of printable area.
+ '
+ PrnPicHeight = Prn.ScaleY(PrnHeight, vbHiMetric, Prn.ScaleMode)
+ PrnPicWidth = Prn.ScaleX(PrnHeight * PicRatio, vbHiMetric, Prn.ScaleMode)
+End If
+'
+' Print the picture using the PaintPicture method.
+'
+Call Prn.PaintPicture(Pic, 0, 0, PrnPicWidth, PrnPicHeight)
+End Sub
+
+
+'GEBRUIK:
+'Set [Picture].Picture = CaptureScreen()
+
diff --git a/static/museum/2000/Codes/Download/CreateElipses.cls b/static/museum/2000/Codes/Download/CreateElipses.cls
new file mode 100755
index 00000000..4599b31e
--- /dev/null
+++ b/static/museum/2000/Codes/Download/CreateElipses.cls
@@ -0,0 +1,571 @@
+VERSION 1.0 CLASS
+BEGIN
+ MultiUse = -1 'True
+ Persistable = 0 'NotPersistable
+ DataBindingBehavior = 0 'vbNone
+ DataSourceBehavior = 0 'vbNone
+ MTSTransactionMode = 0 'NotAnMTSObject
+END
+Attribute VB_Name = "CGDIEllipse"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = True
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = False
+' Class : CGDIEllipse
+' Description : Draws an ellipse, using Windows API GDI calls.
+' Source : Total VB SourceBook 6
+'
+Private Declare Function CreateBrushIndirect _
+ Lib "gdi32" _
+ (lpLogBrush As LOGBRUSH) _
+ As Long
+
+Private Declare Function CreatePen _
+ Lib "gdi32" _
+ (ByVal nPenStyle As Long, _
+ ByVal nWidth As Long, _
+ ByVal crColor As Long) _
+ As Long
+
+Private Declare Function SetROP2 _
+ Lib "gdi32" _
+ (ByVal hdc As Long, _
+ ByVal nDrawMode As Long) _
+ As Long
+
+Private Declare Function GetROP2 _
+ Lib "gdi32" _
+ (ByVal hdc As Long) _
+ As Long
+
+Private Declare Function SelectObject _
+ Lib "gdi32" _
+ (ByVal hdc As Long, _
+ ByVal hObject As Long) _
+ As Long
+
+Private Declare Function DeleteObject _
+ Lib "gdi32" _
+ (ByVal hObject As Long) _
+ As Long
+
+Private Declare Function Ellipse _
+ Lib "gdi32" _
+ (ByVal hdc As Long, _
+ ByVal nLeftRect As Long, _
+ ByVal nTopRect As Long, _
+ ByVal nRightRect As Long, _
+ ByVal nBottomRect As Long) _
+ As Long
+
+Private Declare Function GetSysColor _
+ Lib "user32" _
+ (ByVal nIndex As Long) _
+ As Long
+
+Public Enum EnumEllipsePenStyles
+ epsPS_SOLID = 0
+ epsPS_DASH = 1
+ epsPS_DOT = 2
+ epsPS_DASHDOT = 3
+ epsPS_DASHDOTDOT = 4
+ epsPS_NULL = 5
+ epsPS_INSIDEFRAME = 6
+End Enum
+
+Public Enum EnumEllipseBrushStyles
+ ebsBS_SOLID = 0
+ ebsBS_NULL = 1
+ ebsBS_HOLLOW = ebsBS_NULL
+ ebsBS_HATCHED = 2
+ ebsBS_PATTERN = 3
+ ebsBS_INDEXED = 4
+ ebsBS_DIBPATTERN = 5
+ ebsBS_DIBPATTERNPT = 6
+ ebsBS_PATTERN8X8 = 7
+ ebsBS_DIBPATTERN8X8 = 8
+End Enum
+
+Public Enum EnumEllipseHatchStyles
+ ehsHS_HORIZONTAL = 0
+ ehsHS_VERTICAL = 1
+ ehsHS_FDIAGONAL = 2
+ ehsHS_BDIAGONAL = 3
+ ehsHS_cross = 4
+ ehsHS_DIAGCROSS = 5
+ ehsHS_FDIAGONAL1 = 6
+ ehsHS_BDIAGONAL1 = 7
+ ehsHS_SOLID = 8
+ ehsHS_DENSE1 = 9
+ ehsHS_DENSE2 = 10
+ ehsHS_DENSE3 = 11
+ ehsHS_DENSE4 = 12
+ ehsHS_DENSE5 = 13
+ ehsHS_DENSE6 = 14
+ ehsHS_DENSE7 = 15
+ ehsHS_DENSE8 = 16
+ ehsHS_NOSHADE = 17
+ ehsHS_HALFTONE = 18
+ ehsHS_SOLIDCLR = 19
+ ehsHS_DITHEREDCLR = 20
+ ehsHS_SOLIDTEXTCLR = 21
+ ehsHS_DITHEREDTEXTCLR = 22
+ ehsHS_SOLIDBKCLR = 23
+ ehsHS_DITHEREDBKCLR = 24
+ ehsHS_API_MAX = 25
+End Enum
+
+Public Enum EnumEllipseRasterOps
+ eroR2_BLACK = 1
+ eroR2_NOTMERGEPEN = 2
+ eroR2_MASKNOTPEN = 3
+ eroR2_NOTCOPYPEN = 4
+ eroR2_MASKPENNOT = 5
+ eroR2_NOT = 6
+ eroR2_XORPEN = 7
+ eroR2_NOTMASKPEN = 8
+ eroR2_MASKPEN = 9
+ eroR2_NOTXORPEN = 10
+ eroR2_NOP = 11
+ eroR2_MERGENOTPEN = 12
+ eroR2_COPYPEN = 13
+ eroR2_MERGEPENNOT = 14
+ eroR2_MERGEPEN = 15
+ eroR2_WHITE = 16
+ eroR2_LAST = 16
+End Enum
+
+Private Type LOGBRUSH
+ lbStyle As Long
+ lbColor As Long
+ lbHatch As Long
+End Type
+
+' variables for static property data
+Private m_lngLeft As Long
+Private m_lngTop As Long
+Private m_lngRight As Long
+Private m_lngBottom As Long
+Private m_lngBorderColor As OLE_COLOR
+Private m_lngFillColor As OLE_COLOR
+Private m_lngBrushStyle As Long
+Private m_lngHatchStyle As Long
+Private m_intBorderWidth As Integer
+Private m_lngPenStyle As Long
+Private m_lngForegroundMixMode As Long
+
+Private Sub Class_Initialize()
+ ' Set initial values to defaults which may be overridden
+ ' with property settings
+ ' Source: Total VB SourceBook 6
+
+ m_intBorderWidth = 1
+ m_lngBrushStyle = ebsBS_SOLID
+ m_lngHatchStyle = ehsHS_HORIZONTAL
+ m_lngPenStyle = epsPS_SOLID
+ m_lngForegroundMixMode = eroR2_COPYPEN
+
+End Sub
+
+Public Property Get BorderColor() As OLE_COLOR
+ ' Returns: current value of the BorderColor property
+ ' Source: Total VB SourceBook 6
+
+ BorderColor = m_lngBorderColor
+
+End Property
+
+Public Property Let BorderColor(ByVal lngValue As OLE_COLOR)
+ ' lngValue: specify the RGB value for the color used to draw
+ ' the ellipse
+ ' Source: Total VB SourceBook 6
+
+ m_lngBorderColor = lngValue
+
+End Property
+
+Public Property Get BorderWidth() As Integer
+ ' Returns: current value of the BorderWidth property
+ ' Source: Total VB SourceBook 6
+
+ BorderWidth = m_intBorderWidth
+
+End Property
+
+Public Property Let BorderWidth(ByVal intValue As Integer)
+ ' intValue: specify the width, in pixels, of the ellipse
+ ' Source: Total VB SourceBook 6
+
+ m_intBorderWidth = intValue
+
+End Property
+
+Public Property Get Bottom() As Long
+ ' Returns: current value of the Bottom property
+ ' Source: Total VB SourceBook 6
+
+ Bottom = m_lngBottom
+
+End Property
+
+Public Property Let Bottom(ByVal lngValue As Long)
+ ' lngValue: location in pixels of the bottom of the
+ ' bounding rectangle for the ellipse
+ ' Source: Total VB SourceBook 6
+
+ m_lngBottom = lngValue
+
+End Property
+
+Public Property Get BrushStyle() As EnumEllipseBrushStyles
+ ' Returns: current value of the BrushStyle property
+ ' Source: Total VB SourceBook 6
+
+ BrushStyle = m_lngBrushStyle
+
+End Property
+
+Public Property Let BrushStyle( _
+ ByVal eValue As EnumEllipseBrushStyles)
+ ' eValue: specify the style used to fill the ellipse
+ ' Source: Total VB SourceBook 6
+
+ m_lngBrushStyle = eValue
+
+End Property
+
+Public Property Get FillColor() As OLE_COLOR
+ ' Returns: current value of the FillColor property
+ ' Source: Total VB SourceBook 6
+
+ FillColor = m_lngFillColor
+
+End Property
+
+Public Property Let FillColor(ByVal lngValue As OLE_COLOR)
+ ' lngValue: specify the RGB value for the color used to fill
+ ' the ellipse
+ ' Source: Total VB SourceBook 6
+
+ m_lngFillColor = lngValue
+
+End Property
+
+Public Property Get ForegroundMixMode() As EnumEllipseRasterOps
+ ' Returns: current value of the ForegroundMixMode property
+ ' Source: Total VB SourceBook 6
+
+ ForegroundMixMode = m_lngForegroundMixMode
+
+End Property
+
+Public Property Let ForegroundMixMode( _
+ ByVal eValue As EnumEllipseRasterOps)
+ ' eValue: The foreground mix mode defines how colors
+ ' from the pen and the colors in the existing
+ ' image are to be combined.
+ ' Source: Total VB SourceBook 6
+
+ m_lngForegroundMixMode = eValue
+
+End Property
+
+Public Property Get HatchStyle() As EnumEllipseHatchStyles
+ ' Returns: current value of the HatchStyle property
+ ' Source: Total VB SourceBook 6
+
+ HatchStyle = m_lngHatchStyle
+
+End Property
+
+Public Property Let HatchStyle( _
+ ByVal eValue As EnumEllipseHatchStyles)
+ ' eValue: specify the style used to fill the ellipse when
+ ' the BrushStyle is set to hatched
+ ' Source: Total VB SourceBook 6
+
+ m_lngHatchStyle = eValue
+
+End Property
+
+Public Property Get Left() As Long
+ ' Returns: current value of the Left property
+ ' Source: Total VB SourceBook 6
+
+ Left = m_lngLeft
+
+End Property
+
+Public Property Let Left(ByVal lngValue As Long)
+ ' lngValue: location in pixels of the left side of the
+ ' bounding rectangle for the ellipse
+ ' Source: Total VB SourceBook 6
+
+ m_lngLeft = lngValue
+
+End Property
+
+Public Property Get PenStyle() As EnumEllipsePenStyles
+ ' Returns: current value of the PenStyle property
+ ' Source: Total VB SourceBook 6
+
+ PenStyle = m_lngPenStyle
+
+End Property
+
+Public Property Let PenStyle(ByVal eValue As EnumEllipsePenStyles)
+ ' eValue: style used to draw the line.
+ ' Source: Total VB SourceBook 6
+
+ m_lngPenStyle = eValue
+
+End Property
+
+Public Property Get Right() As Long
+ ' Returns: current value of the Right property
+ ' Source: Total VB SourceBook 6
+
+ Right = m_lngRight
+
+End Property
+
+Public Property Let Right(ByVal lngValue As Long)
+ ' lngValue: location in pixels of the right side of the
+ ' bounding rectangle for the ellipse
+ ' Source: Total VB SourceBook 6
+
+ m_lngRight = lngValue
+
+End Property
+
+Public Property Get Top() As Long
+ ' Returns: current value of the Top property
+ ' Source: Total VB SourceBook 6
+
+ Top = m_lngTop
+
+End Property
+
+Public Property Let Top(ByVal lngValue As Long)
+ ' lngValue: location in pixels of the top side of the
+ ' bounding rectangle for the ellipse
+ ' Source: Total VB SourceBook 6
+
+ m_lngTop = lngValue
+
+End Property
+
+Public Sub Draw3DEllipse( _
+ lnghDC As Long, _
+ ByVal lngShadowColor As OLE_COLOR, _
+ ByVal lngHighlightColor As OLE_COLOR)
+ ' Comments : Draws two Ellipses on a selected device so that
+ ' they create a 3D effect. The ellipses are
+ ' bounded by the dimensions of a rectangle specified
+ ' in the Left, Top, Bottom and Right
+ ' properties. The normal BorderColor property
+ ' is not used with this method. Instead the two colors
+ ' for the ellipses are supplied as parameters
+ ' Parameters: lnghDC - handle to device context to receive
+ ' the image.
+ ' lngShadowColor - RGB color for the ellipse forming
+ ' the "shadow". May use VB color constants, or any RGB value
+ ' lngHighlighColor - RGB color for the ellipse forming
+ ' the "highlight".
+ ' Returns : Nothing
+ ' Source : Total VB SourceBook 6
+ '
+ Dim lngSaveBorderColor As Long
+ Dim lngSaveBrushStyle As Long
+
+ On Error GoTo PROC_ERR
+
+ ' save border color and fill style, because the properties
+ ' will be modified temporarily by this method
+ lngSaveBorderColor = m_lngBorderColor
+ lngSaveBrushStyle = m_lngBrushStyle
+
+ ' set fill style to hollow
+ m_lngBrushStyle = ebsBS_HOLLOW
+
+ ' draw an ellipse using the Shadow Color
+ m_lngBorderColor = lngShadowColor
+ DrawEllipse lnghDC
+
+ ' draw an ellipse using the HighLight color. Move the
+ ' ellipse down and to the right the width of the current
+ ' BorderWidth setting
+ m_lngBorderColor = lngHighlightColor
+
+ m_lngLeft = m_lngLeft + m_intBorderWidth
+ m_lngTop = m_lngTop + m_intBorderWidth
+ m_lngRight = m_lngRight + m_intBorderWidth
+ m_lngBottom = m_lngBottom + m_intBorderWidth
+
+ DrawEllipse lnghDC
+
+ ' restore original border color and location
+ m_lngBorderColor = lngSaveBorderColor
+ m_lngBrushStyle = lngSaveBrushStyle
+
+ m_lngLeft = m_lngLeft - m_intBorderWidth
+ m_lngTop = m_lngTop - m_intBorderWidth
+ m_lngRight = m_lngRight - m_intBorderWidth
+ m_lngBottom = m_lngBottom - m_intBorderWidth
+
+PROC_EXIT:
+ Exit Sub
+
+PROC_ERR:
+ MsgBox "Error: " & Err.Number & ". " & Err.Description, , _
+ "Draw3DEllipse"
+ Resume PROC_EXIT
+
+End Sub
+
+Public Sub DrawEllipse(lnghDC As Long)
+ ' Comments : Draw an Ellipse on a selected device. The ellipse is
+ ' bounded by the dimensions of a rectangle specified
+ ' in the Left, Top, Bottom and Right
+ ' properties.
+ ' Parameters: lnghDC - handle to device context to receive
+ ' the image.
+ ' Returns : Nothing
+ ' Source : Total VB SourceBook 6
+ '
+ Dim lngResult As Long
+ Dim lnghPen As Long
+ Dim lnghPenOld As Long
+ Dim lnghBrush As Long
+ Dim lnghBrushOld As Long
+ Dim lb As LOGBRUSH
+ Dim lngROP2ModeOld As Long
+
+ On Error GoTo PROC_ERR
+
+ ' create brushes and pens to draw the outline of the
+ ' ellipse, and to fill it with a specified color
+ With lb
+ .lbColor = TranslateVBColor(m_lngFillColor)
+ .lbHatch = m_lngHatchStyle
+ .lbStyle = m_lngBrushStyle
+ End With
+
+ lnghBrush = CreateBrushIndirect(lb)
+ lnghBrushOld = SelectObject(lnghDC, lnghBrush)
+
+ lnghPen = CreatePen( _
+ m_lngPenStyle, _
+ m_intBorderWidth, _
+ TranslateVBColor(m_lngBorderColor))
+
+ lnghPenOld = SelectObject(lnghDC, lnghPen)
+
+ If GetROP2(lnghDC) <> m_lngForegroundMixMode Then
+ lngROP2ModeOld = SetROP2(lnghDC, m_lngForegroundMixMode)
+ End If
+
+ ' draw the ellipse
+ lngResult = Ellipse( _
+ lnghDC, _
+ m_lngLeft, _
+ m_lngTop, _
+ m_lngRight, _
+ m_lngBottom)
+
+ If lngROP2ModeOld <> 0 Then
+ SetROP2 lnghDC, lngROP2ModeOld
+ End If
+
+ ' restore objects and clean up resources
+ SelectObject lnghDC, lnghBrushOld
+ SelectObject lnghDC, lnghPenOld
+
+ DeleteObject lnghBrush
+ DeleteObject lnghPen
+
+PROC_EXIT:
+ Exit Sub
+
+PROC_ERR:
+ MsgBox "Error: " & Err.Number & ". " & Err.Description, , _
+ "DrawEllipse"
+ Resume PROC_EXIT
+
+End Sub
+
+Private Function TranslateVBColor( _
+ ByVal lngColor As OLE_COLOR) _
+ As Long
+ ' Comments : Translates VB color constants for system
+ ' colors into GDI equivalents
+ ' Parameters: lngColor - RGB value for the color
+ ' Returns : Translated color, if necessary, or the original color
+ ' Source : Total VB SourceBook 6
+ '
+ Const clngHighBitMask As Long = &H80000000
+ Dim lngResult As Long
+
+ On Error GoTo PROC_ERR
+
+ If lngColor And clngHighBitMask Then
+ ' VB system constants have first bit set. If this is
+ ' set, mask it out, and retrieve the system color
+ lngResult = lngColor And Not clngHighBitMask
+ lngResult = GetSysColor(lngResult)
+ Else
+ ' otherwise, use original color
+ lngResult = lngColor
+ End If
+
+ TranslateVBColor = lngResult
+
+PROC_EXIT:
+ Exit Function
+
+PROC_ERR:
+ MsgBox "Error: " & Err.Number & ". " & Err.Description, , _
+ "TranslateVBColor"
+ Resume PROC_EXIT
+
+End Function
+
+'gebruik:
+'Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
+
+ ' Dim GDIEllipse As CGDIEllipse
+ 'Set GDIEllipse = New CGDIEllipse
+
+' With GDIEllipse
+
+ ' Draw a hatched green circle
+ ' .Left = ScaleX(X, vbTwips, vbPixels) - 100
+ ' .Top = ScaleY(Y, vbTwips, vbPixels) - 100
+ '.Right = ScaleX(X, vbTwips, vbPixels)
+ '.Bottom = ScaleY(Y, vbTwips, vbPixels)
+
+ '.BorderColor = vbYellow
+ '.BorderWidth = 1
+ '.FillColor = vbGreen
+ '.BrushStyle = ebsBS_HATCHED
+' .HatchStyle = ehsHS_DIAGCROSS
+ '.ForegroundMixMode = eroR2_COPYPEN
+ '.PenStyle = epsPS_DASH
+
+' ' Draw the ellipse. See also Draw3DEllipse
+' .DrawEllipse Me.hdc
+
+' ' Draw a 3D Oval
+' .Left = ScaleX(X, vbTwips, vbPixels)
+' .Top = ScaleY(Y, vbTwips, vbPixels)
+' .Right = ScaleX(X, vbTwips, vbPixels) + 100
+' .Bottom = ScaleY(Y, vbTwips, vbPixels) + 75
+
+' .PenStyle = epsPS_SOLID
+' .Draw3DEllipse Me.hdc, vb3DShadow, vb3DHighlight
+
+ ' End With
+
+'End Sub
+
+
diff --git a/static/museum/2000/Codes/Download/FormEffects.bas b/static/museum/2000/Codes/Download/FormEffects.bas
new file mode 100755
index 00000000..ee40d907
--- /dev/null
+++ b/static/museum/2000/Codes/Download/FormEffects.bas
@@ -0,0 +1,168 @@
+Attribute VB_Name = "modExplode"
+Option Explicit
+
+'****************************************************************
+'*Author: Carl Slutter
+'*
+'*e-mail to hardwood@erols.com
+'*
+'*Description:
+'*This module (a work in progress) currently either
+'*explodes or implodes a form.
+'*
+'*The larger the "Movement" value the slower the
+'*explosion or implosion. It is possible to have the form
+'*explode/implode from various directions although this
+'*code does not include that option.
+'*
+'* Call is ExplodeForm (or ImplodeForm) FormName, Movement
+
+'*Creation Date: Thursday 23 January 1997 2:33 pm
+'*Revision Date: Thursday 23 January 1997 2:33 pm
+'*
+'*Version Number: 1.10
+'*
+'*This code may be freely used by any individual in a personal
+'*project. If the code is modified or additional effects are
+'*added, I would appreciate receiving a copy of the revised
+'*code.
+'*However, if the code is used in a project developed
+'*in the anticipation of a profit, permission of the author
+'*must be obtained and a fee may be charged.
+'****************************************************************
+
+'Declarations
+
+#If Win16 Then
+ Type RECT
+ Left As Integer
+ Top As Integer
+ Right As Integer
+ Bottom As Integer
+ End Type
+#Else
+ Type RECT
+ Left As Long
+ Top As Long
+ Right As Long
+ Bottom As Long
+ End Type
+#End If
+
+'User and GDI Functions for Explode/Implode to work
+
+#If Win16 Then
+ Declare Sub GetWindowRect Lib "User" (ByVal hwnd As Integer, lpRect As RECT)
+ Declare Function GetDC Lib "User" (ByVal hwnd As Integer) As Integer
+ Declare Function ReleaseDC Lib "User" (ByVal hwnd As Integer, ByVal hdc As Integer) As Integer
+ Declare Sub SetBkColor Lib "GDI" (ByVal hdc As Integer, ByVal crColor As Long)
+ Declare Sub Rectangle Lib "GDI" (ByVal hdc As Integer, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer)
+ Declare Function CreateSolidBrush Lib "GDI" (ByVal crColor As Long) As Integer
+ Declare Function SelectObject Lib "GDI" (ByVal hdc As Integer, ByVal hObject As Integer) As Integer
+ Declare Sub DeleteObject Lib "GDI" (ByVal hObject As Integer)
+#Else
+ Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
+ Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
+ Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
+ Declare Function SetBkColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
+ Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
+ Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
+ Declare Function SelectObject Lib "user32" (ByVal hdc As Long, ByVal hObject As Long) As Long
+ Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
+#End If
+
+'****************************************************************
+'*Author: Carl Slutter
+'*
+'*Description:
+'*The higher the "Movement", the slower the window
+'*"explosion".
+'*
+'*Creation Date: Thursday 23 January 1997 2:27 pm
+'*Revision Date: Thursday 23 January 1997 2:27 pm
+'*
+'*Version Number: 1.00
+'****************************************************************
+
+Sub ExplodeForm(f As Form, Movement As Integer)
+ Dim myRect As RECT
+ Dim formWidth%, formHeight%, i%, X%, Y%, Cx%, Cy%
+ Dim TheScreen As Long
+ Dim Brush As Long
+
+ GetWindowRect f.hwnd, myRect
+ formWidth = (myRect.Right - myRect.Left)
+ formHeight = myRect.Bottom - myRect.Top
+ TheScreen = GetDC(0)
+ Brush = CreateSolidBrush(f.BackColor)
+
+ For i = 1 To Movement
+ Cx = formWidth * (i / Movement)
+ Cy = formHeight * (i / Movement)
+ X = myRect.Left + (formWidth - Cx) / 2
+ Y = myRect.Top + (formHeight - Cy) / 2
+ Rectangle TheScreen, X, Y, X + Cx, Y + Cy
+ Next i
+
+ X = ReleaseDC(0, TheScreen)
+ DeleteObject (Brush)
+
+End Sub
+
+
+Public Sub ImplodeForm(f As Form, Direction As Integer, Movement As Integer, ModalState As Integer)
+'****************************************************************
+'*Author: Carl Slutter
+'*
+'*Description:
+'*The larger the "Movement" value, the slower the "Implosion"
+'*
+'*Creation Date: Thursday 23 January 1997 2:42 pm
+'*Revision Date: Thursday 23 January 1997 2:42 pm
+'*
+'*Version Number: 1.00
+'****************************************************************
+
+ Dim myRect As RECT
+ Dim formWidth%, formHeight%, i%, X%, Y%, Cx%, Cy%
+ Dim TheScreen As Long
+ Dim Brush As Long
+
+ GetWindowRect f.hwnd, myRect
+ formWidth = (myRect.Right - myRect.Left)
+ formHeight = myRect.Bottom - myRect.Top
+ TheScreen = GetDC(0)
+ Brush = CreateSolidBrush(f.BackColor)
+
+ For i = Movement To 1 Step -1
+ Cx = formWidth * (i / Movement)
+ Cy = formHeight * (i / Movement)
+ X = myRect.Left + (formWidth - Cx) / 2
+ Y = myRect.Top + (formHeight - Cy) / 2
+ Rectangle TheScreen, X, Y, X + Cx, Y + Cy
+ Next i
+
+ X = ReleaseDC(0, TheScreen)
+ DeleteObject (Brush)
+
+End Sub
+
+'GEBRUIK:
+'--------
+'Private Sub Command1_Click()
+' Call ImplodeForm(Me, 2, 500, 1)
+' End
+' Set Form1 = Nothing
+'End Sub
+
+'Private Sub Form_Load()
+'Call ExplodeForm(Me, 1000)
+'End Sub
+
+
+'Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
+'Call ImplodeForm(Me, 2, 500, 1)
+'End Sub
+
+
+
diff --git a/static/museum/2000/Codes/Download/GlassFormM.bas b/static/museum/2000/Codes/Download/GlassFormM.bas
new file mode 100755
index 00000000..4c777fc9
--- /dev/null
+++ b/static/museum/2000/Codes/Download/GlassFormM.bas
@@ -0,0 +1,80 @@
+Attribute VB_Name = "GlassForm"
+Option Explicit
+
+Public Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
+Public Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
+Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
+
+Public Function GlassifyForm(frm As Form)
+Const RGN_DIFF = 4
+Const RGN_OR = 2
+
+Dim outer_rgn As Long
+Dim inner_rgn As Long
+Dim wid As Single
+Dim hgt As Single
+Dim border_width As Single
+Dim title_height As Single
+Dim ctl_left As Single
+Dim ctl_top As Single
+Dim ctl_right As Single
+Dim ctl_bottom As Single
+Dim control_rgn As Long
+Dim combined_rgn As Long
+Dim ctl As Control
+
+ If frm.WindowState = vbMinimized Then Exit Function
+
+ ' Create the main form region.
+ wid = frm.ScaleX(frm.Width, vbTwips, vbPixels)
+ hgt = frm.ScaleY(frm.Height, vbTwips, vbPixels)
+ outer_rgn = CreateRectRgn(0, 0, wid, hgt)
+
+ border_width = (wid - frm.ScaleWidth) / 2
+ title_height = hgt - border_width - frm.ScaleHeight
+ inner_rgn = CreateRectRgn( _
+ border_width, _
+ title_height, _
+ wid - border_width, _
+ hgt - border_width)
+
+ ' Subtract the inner region from the outer.
+ combined_rgn = CreateRectRgn(0, 0, 0, 0)
+ CombineRgn combined_rgn, outer_rgn, _
+ inner_rgn, RGN_DIFF
+On Error Resume Next
+ ' Create the control regions.
+ For Each ctl In frm.Controls
+ If ctl.Container Is frm Then
+ ctl_left = frm.ScaleX(ctl.Left, frm.ScaleMode, vbPixels) _
+ + border_width
+ ctl_top = frm.ScaleX(ctl.Top, frm.ScaleMode, vbPixels) _
+ + title_height
+ ctl_right = frm.ScaleX(ctl.Width, frm.ScaleMode, vbPixels) _
+ + ctl_left
+ ctl_bottom = frm.ScaleX(ctl.Height, frm.ScaleMode, vbPixels) _
+ + ctl_top
+ control_rgn = CreateRectRgn( _
+ ctl_left, ctl_top, _
+ ctl_right, ctl_bottom)
+ CombineRgn combined_rgn, combined_rgn, _
+ control_rgn, RGN_OR
+ End If
+ Next ctl
+
+ ' Restrict the window to the region.
+ SetWindowRgn frm.hwnd, combined_rgn, True
+End Function
+
+
+'Gebruik:
+'GlassifyForm [Form]
+'LET OP!
+
+'de instellingen van het formulier moeten er zo uit zien:
+'PaletteMode = 1
+'Left = 0 (of 1 voor een verschuivend effect)
+'ScaleLeft = 0
+'ScaleMode = 3 (Pixel)
+'ScaleTop = 0
+'Top moet ingevuld zijn
diff --git a/static/museum/2000/Codes/Download/OwnMsgBox.cls b/static/museum/2000/Codes/Download/OwnMsgBox.cls
new file mode 100755
index 00000000..71a2c8aa
--- /dev/null
+++ b/static/museum/2000/Codes/Download/OwnMsgBox.cls
@@ -0,0 +1,340 @@
+VERSION 1.0 CLASS
+BEGIN
+ MultiUse = -1 'True
+ Persistable = 0 'NotPersistable
+ DataBindingBehavior = 0 'vbNone
+ DataSourceBehavior = 0 'vbNone
+ MTSTransactionMode = 0 'NotAnMTSObject
+END
+Attribute VB_Name = "CMsgBox"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = True
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = False
+' Class : CMsgBox
+' Description: Wrapper class to simplify using Message Boxes
+' Source : Total VB SourceBook 6
+' Update : Code Service Pack 1
+' Enumerated type for icons
+Public Enum EnumMBIcon
+ icoCritcal = 16
+ icoQuestion = 32
+ icoExclamation = 48
+ icoInformation = 64
+End Enum
+
+' Enumerated type for button combinations
+Public Enum EnumMBButton
+ btnOKOnly = 0
+ btnOKCancel = 1
+ btnOKAbortRetryIgnore = 2
+ btnYesNoCancel = 3
+ btnYesNo = 4
+ btnRetryCancel = 5
+End Enum
+
+' Enumerated type for the default button
+Public Enum EnumMBDefaultButton
+ dfButton1 = 0
+ dfButton2 = 256
+ dfButton3 = 512
+ dfButton4 = 768
+End Enum
+
+' Enumerated type for the modal mode
+Public Enum EnumMBModal
+ mbNotModal = 0
+ mbApplicationModal = 0
+ mbSystemModal = 4096
+End Enum
+
+' Enumerated type for the return value
+Public Enum EnumMBResponse
+ mbReturnOK = 1
+ mbReturnCancel = 2
+ mbReturnAbort = 3
+ mbReturnRetry = 4
+ mbReturnIgnore = 5
+ mbReturnYes = 6
+ mbReturnNo = 7
+End Enum
+
+' Private variables to maintain property values
+Private m_lngIcon As Long
+Private m_lngButtons As Long
+Private m_lngDefaultButton As Long
+Private m_lngModal As Long
+Private m_lngHelpContextID As Long
+Private m_strHelpFile As String
+Private m_fSetForeground As Boolean
+Private m_fRightAligned As Boolean
+Private m_strTitle As String
+Private m_lngResponse As Long
+Private m_strMessage As String
+
+Public Property Get Buttons() As EnumMBButton
+ ' Returns: The current setting of the Buttons property
+ ' Source : Total VB SourceBook 6
+ '
+ Buttons = m_lngButtons
+
+End Property
+
+Public Property Let Buttons(eValue As EnumMBButton)
+ ' eValue: The buttons to show, as defined by the EnumMBButton
+ ' enumerated type.
+ ' Source: Total VB SourceBook 6
+ '
+ m_lngButtons = eValue
+
+End Property
+
+Public Property Get DefaultButton() As EnumMBDefaultButton
+ ' Returns: The current Default button setting
+ ' Source : Total VB SourceBook 6
+ '
+ DefaultButton = m_lngDefaultButton
+
+End Property
+
+Public Property Let DefaultButton(eValue As EnumMBDefaultButton)
+ ' eValue: Sets the default button as defined by the EnumMBDefaultButton
+ ' enumerated type
+ ' Source: Total VB SourceBook 6
+ '
+ m_lngDefaultButton = eValue
+
+End Property
+
+Public Property Get Foreground() As Boolean
+ ' Returns: The current Foreground setting
+ ' Source : Total VB SourceBook 6
+ '
+ Foreground = m_fSetForeground
+
+End Property
+
+Public Property Let Foreground(fValue As Boolean)
+ ' fValue: True to have the message box appear in the foreground
+ ' Source: Total VB SourceBook 6
+ '
+ m_fSetForeground = fValue
+
+End Property
+
+Public Property Get HelpContextID() As Long
+ ' Returns: The current help context id setting
+ ' Source : Total VB SourceBook 6
+ '
+ HelpContextID = m_lngHelpContextID
+
+End Property
+
+Public Property Let HelpContextID(lngValue As Long)
+ ' lngValue: Help context id for the help file, if the HelpFile
+ ' property is set.
+ ' Source : Total VB SourceBook 6
+ '
+ m_lngHelpContextID = lngValue
+
+End Property
+
+Public Property Get HelpFile() As String
+ ' Returns: The current help file setting
+ ' Source : Total VB SourceBook 6
+ '
+ HelpFile = m_strHelpFile
+
+End Property
+
+Public Property Let HelpFile(strValue As String)
+ ' strValue: Sets the name (path optional) of the help file to use
+ ' Source : Total VB SourceBook 6
+ '
+ m_strHelpFile = strValue
+
+End Property
+
+Public Property Get Icon() As EnumMBIcon
+ ' Returns: The current icon setting
+ ' Source : Total VB SourceBook 6
+ '
+ Icon = m_lngIcon
+
+End Property
+
+Public Property Let Icon(eValue As EnumMBIcon)
+ ' eValue: Sets the icon to use as defined by the EnumMBIcon
+ ' enumerated type
+ ' Source: Total VB SourceBook 6
+ '
+ m_lngIcon = eValue
+
+End Property
+
+Public Property Get Message() As String
+ ' Returns: The current setting of the Message property
+ ' Source : Total VB SourceBook 6
+ '
+ Message = m_strMessage
+
+End Property
+
+Public Property Let Message(strValue As String)
+ ' strValue: Value for the message box message text
+ ' Source : Total VB SourceBook 6
+ '
+ m_strMessage = strValue
+
+End Property
+
+Public Property Get Modal() As EnumMBModal
+ ' Returns: The current modal setting
+ ' Source: Total VB SourceBook 6
+ '
+ Modal = m_lngModal
+
+End Property
+
+Public Property Let Modal(eValue As EnumMBModal)
+ ' eValue: Sets the modal mode for the message box as defined by the
+ ' EnumMBModal enumerated type
+ ' Source: Total VB SourceBook 6
+ '
+ m_lngModal = eValue
+
+End Property
+
+Public Property Get Response() As EnumMBResponse
+ ' Returns: The user response to the message box as defined by the
+ ' EnumMBResponse enumerated type.
+ ' Source : Total VB SourceBook 6
+ '
+ Response = m_lngResponse
+
+End Property
+
+Public Property Get RightAligned() As Boolean
+ ' Returns: The current RightAligned setting
+ ' Source : Total VB SourceBook 6
+ '
+ RightAligned = m_fRightAligned
+
+End Property
+
+Public Property Let RightAligned(fValue As Boolean)
+ ' fValue: True to right align the message box, False to center
+ ' Source: Total VB SourceBook 6
+ '
+ m_fRightAligned = RightAligned
+
+End Property
+
+Public Property Get Title() As String
+ ' Returns: The current Title setting
+ ' Source : Total VB SourceBook 6
+ '
+ Title = m_strTitle
+
+End Property
+
+Public Property Let Title(strValue As String)
+ ' strValue: The title for the message box
+ ' Source : Total VB SourceBook 6
+ '
+ m_strTitle = strValue
+
+End Property
+
+Public Sub Show()
+ ' Comments : Shows the message box with the current options
+ ' Parameters: None
+ ' Returns : Nothing
+ ' Source : Total VB SourceBook 6
+ '
+ Dim lngOptions As Long
+
+ On Error GoTo PROC_ERR
+
+ ' Build the options value
+ lngOptions = m_lngIcon + m_lngDefaultButton + m_lngModal + m_lngButtons
+
+ ' Check the Right aligned value
+ If m_fRightAligned Then
+ lngOptions = lngOptions + vbMsgBoxRight
+ End If
+
+ ' If the HelpFile property is not blank, add a help button
+ If m_strHelpFile <> "" Then
+ lngOptions = lngOptions + vbMsgBoxHelpButton
+ End If
+
+ m_lngResponse = MsgBox(Prompt:=m_strMessage, Buttons:=lngOptions, _
+ Title:=m_strTitle, HelpFile:=m_strHelpFile, Context:=m_lngHelpContextID)
+
+PROC_EXIT:
+ Exit Sub
+
+PROC_ERR:
+ MsgBox "Error: " & Err.Number & ". " & Err.Description, , _
+ "Show"
+ Resume PROC_EXIT
+
+End Sub
+
+
+' Example code for the CMsgBox class
+'
+' To use this example:
+' 1. Create a new form.
+' 2. Create a command button called cmdShow
+' 3. Paste the entire contents of this module into the
+' new form's module.
+'
+'Private Sub cmdShow_Click()
+ 'Dim MsgTest As CMsgBox
+ ' Dim strRet As String
+
+ ' Instantiate the class
+ 'Set MsgTest = New CMsgBox
+
+ ' Set the message box properties
+ 'MsgTest.Title = "My Message Box"
+ ''MsgTest.Icon = icoInformation
+ ' MsgTest.Buttons = btnOKCancel
+ ' MsgTest.DefaultButton = dfButton1
+ ' MsgTest.Modal = mbApplicationModal
+ ' MsgTest.HelpFile = "Windows.hlp"
+ ' MsgTest.HelpContextID = 1000
+ 'MsgTest.Message = "This is a test."
+
+ ' Show the message box
+ ' MsgTest.Show
+
+ ' Determine the response
+' Select Case MsgTest.Response
+
+' Case mbReturnOK
+ ' strRet = "OK"
+' Case mbReturnCancel
+' strRet = "Cancel"
+' Case mbReturnAbort
+' strRet = "Abort"
+ ' Case mbReturnRetry
+ ' strRet = "Retry"
+' Case mbReturnIgnore
+' strRet = "Ignore"
+ ' Case mbReturnYes
+ ' strRet = "Yes"
+' Case mbReturnNo
+ ' strRet = "No"
+
+' End Select
+
+' Debug.Print "The example returned: " & strRet
+
+' Set MsgTest = Nothing
+
+'End Sub
+
+
diff --git a/static/museum/2000/Codes/Explode.html b/static/museum/2000/Codes/Explode.html
new file mode 100755
index 00000000..4274b7bf
--- /dev/null
+++ b/static/museum/2000/Codes/Explode.html
@@ -0,0 +1,81 @@
+
+Explode Module
+
+
+
+
+FormExplode;Implode Module
+Om de module te downloaden, klik je het beste op de titel. (in .Bas vorm). Deze module werd gemaakt in Visual Basic 6, maar is ook VB4 32-BIT, VB5 & VB6 compatibel. Dat zijn ze trouwens allemaal...(Ongeveer 6 KB)
+
Gebruik:
+Private Sub Command1_Click()
+
Verschillende Routines:
+
+ ExplodeForm - Laat het formulier bij afsluiten 'exploderen'
+ ImplodeForm - Laat het formulier bij afsluiten 'imploderen'
+
+
+
Uitleg bij API Declaraties:
+
+ SetBkColor - kies een specifierende bk-kleur voor dezer routine
+ ReleaseDC - Bevrijd de DC van het geheugen om door andere programma's gebruikt te worden.
+ GetDC - Retourneert de DC van een speciaal gebied, nl. 'Client area' (zie CaptureClient)
+ Rectangle - Maak een rechthoek
+ CreateSolidBrush - Maak een gevoelige borstel rond een bep. voorwerp en bep. kleur
+ DeleteObject - Selecteer een object
+
+
+
+
\ No newline at end of file
diff --git a/static/museum/2000/Codes/Fr_Codes.css b/static/museum/2000/Codes/Fr_Codes.css
new file mode 100755
index 00000000..a2f446f9
--- /dev/null
+++ b/static/museum/2000/Codes/Fr_Codes.css
@@ -0,0 +1,50 @@
+BODY {
+ background-color : #00FFFF;
+ color : #000000;
+ font-size : 10pt;
+ font-family : Tahoma, Verdana, Arial, Helvetica, "MS Sans Serif";
+ margin : 5px;
+}
+
+A {
+ color : #000000;
+ font-family : Tahoma, Verdana, Arial, Helvetica, "MS Sans Serif";
+ font-weight : none;
+ text-decoration : none;
+ line-height : 16pt;
+}
+
+A:Visited {
+ color : #000000;
+}
+
+A:Active {
+ color : #0000CC;
+}
+
+A:Hover {
+ color : #0000CC;
+}
+
+A.headlines {
+ color : #000000;
+ font-weight : normal;
+ text-decoration : none;
+ line-height : 10pt;
+}
+
+HR {
+ color : #000000;
+ height : 1px;
+ margin-top : 0px;
+ margin-bottom : 0px;
+}
+
+TD {
+ font-size : 8pt;
+ font-family : Tahoma, Verdana, Arial, Helvetica, "MS Sans Serif";
+}
+
+TD.filler {
+ height : 100%;
+}
\ No newline at end of file
diff --git a/static/museum/2000/Codes/Fr_Codes.html b/static/museum/2000/Codes/Fr_Codes.html
new file mode 100755
index 00000000..db0cf310
--- /dev/null
+++ b/static/museum/2000/Codes/Fr_Codes.html
@@ -0,0 +1,49 @@
+
+
+
+
+
+ Modules: CaptureScreen GlassifyForm Explode Klassen: CreateElipses OwnMsgBox GlassForm Module
+
+
+
+
+GlassForm Module
+Om de module te downloaden, klik je het beste op de titel. (in .Bas vorm). Deze module werd gemaakt in Visual Basic 6, maar is ook VB4 32-BIT, VB5 & VB6 compatibel. Dat zijn ze trouwens allemaal...(Ongeveer 6 KB)
+
Gebruik:
+GlassifyForm [Form]
+
Verschillende Routines:
+
+ GlassifyForm - Maak een bep. formulier transparant
+
+
+
Uitleg bij API Declaraties:
+
+ CreateRectRgn - Maak een rechthoek met bep. afmetingen
+ CombineRgn - Combineer de verschillende afmetingen
+ SetWindowRgn - Gebruik de afmetingen in het venster
+
+
+
+
\ No newline at end of file
diff --git a/static/museum/2000/Codes/OwnMsgbox.html b/static/museum/2000/Codes/OwnMsgbox.html
new file mode 100755
index 00000000..4274b7bf
--- /dev/null
+++ b/static/museum/2000/Codes/OwnMsgbox.html
@@ -0,0 +1,81 @@
+
+Explode Module
+
+
+
+
+FormExplode;Implode Module
+Om de module te downloaden, klik je het beste op de titel. (in .Bas vorm). Deze module werd gemaakt in Visual Basic 6, maar is ook VB4 32-BIT, VB5 & VB6 compatibel. Dat zijn ze trouwens allemaal...(Ongeveer 6 KB)
+
Gebruik:
+Private Sub Command1_Click()
+
Verschillende Routines:
+
+ ExplodeForm - Laat het formulier bij afsluiten 'exploderen'
+ ImplodeForm - Laat het formulier bij afsluiten 'imploderen'
+
+
+
Uitleg bij API Declaraties:
+
+ SetBkColor - kies een specifierende bk-kleur voor dezer routine
+ ReleaseDC - Bevrijd de DC van het geheugen om door andere programma's gebruikt te worden.
+ GetDC - Retourneert de DC van een speciaal gebied, nl. 'Client area' (zie CaptureClient)
+ Rectangle - Maak een rechthoek
+ CreateSolidBrush - Maak een gevoelige borstel rond een bep. voorwerp en bep. kleur
+ DeleteObject - Selecteer een object
+
+
+
+
\ No newline at end of file
diff --git a/static/museum/2000/Codes/codes.html b/static/museum/2000/Codes/codes.html
new file mode 100755
index 00000000..87084826
--- /dev/null
+++ b/static/museum/2000/Codes/codes.html
@@ -0,0 +1,10 @@
+
+
+
+
+<![CDATA[Als u dit leest, kan uw browser geen frames aan. het is aangeraden een nieuwere versie te downloaden.
+]]>
+
+
\ No newline at end of file
diff --git a/static/museum/2000/Codes/main.html b/static/museum/2000/Codes/main.html
new file mode 100755
index 00000000..1bfe752f
--- /dev/null
+++ b/static/museum/2000/Codes/main.html
@@ -0,0 +1,71 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+Source Codes
+
+
+Hier kan je verschillende codes verkrijgen om in jouw programma te gebruiken. Alle Source Codes zijn gemaakt in Visual Basic 6. Deze zijn dus compatibel met VB4 32-BIT, VB5 & VB6.
+
+Als je in de linkerkolom één van de codes uitkiest, zie je dat er ook uitleg bij is. Het Gebruik is uitgelegd, soms de betekenis van sommige API Declaraties, en meestal de Routines (Subs of Fucntions)
+
+
+Voor de echte code-freaks (daar ben ik bij... zo leer je veel bij!) heb ik een packed bestandje gemaakt (10 MB!) van alle codes die ik heb. Zie maar of je er iets mee kan doen. Download het hier
+
Laatste nieuws: Software Source Code Links: Bezochte keren:
+
+
+
+
+
+
+
+
+
+
+[deep]software
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/static/museum/2000/Information.html b/static/museum/2000/Information.html
new file mode 100755
index 00000000..2c99ea27
--- /dev/null
+++ b/static/museum/2000/Information.html
@@ -0,0 +1,181 @@
+
+
+
+
+
+ Info over de gebruiker
+
+
+
+
+
+
+
+
+
+
+
+
+
+Info over de surfer
+
+
+Browser:
+Datum:
+CSS Support:
+
+
+Shockwave Plugin:
+
+
+
+Paginas bekeken vandaag:
+
+Java Enabled:
+
+Schermresolutie:
+
+JavaScript Versie:
+
+
+
+
+
+
+Browser taal:
+
+
+
+
\ No newline at end of file
diff --git a/static/museum/2000/Links/Fr_Links.css b/static/museum/2000/Links/Fr_Links.css
new file mode 100755
index 00000000..b987fe79
--- /dev/null
+++ b/static/museum/2000/Links/Fr_Links.css
@@ -0,0 +1,50 @@
+BODY {
+ background-color : #00FFFF;
+ color : #000022;
+ font-size : 10pt;
+ font-family : Tahoma, Verdana, Arial, Helvetica, "MS Sans Serif";
+ margin : 5px;
+}
+
+A {
+ color : #000022;
+ font-family : Tahoma, Verdana, Arial, Helvetica, "MS Sans Serif";
+ font-weight : normal;
+ text-decoration : none;
+ line-height : 16pt;
+}
+
+A:Visited {
+ color : #7700AA;
+}
+
+A:Active {
+ color : #7700AA;
+}
+
+A:Hover {
+ color : #7700AA;
+}
+
+A.headlines {
+ color : #7700AA;
+ font-weight : normal;
+ text-decoration : none;
+ line-height : 10pt;
+}
+
+HR {
+ color : #000022;
+ height : 1px;
+ margin-top : 0px;
+ margin-bottom : 0px;
+}
+
+TD {
+ font-size : 8pt;
+ font-family : Tahoma, Verdana, Arial, Helvetica, "MS Sans Serif";
+}
+
+TD.filler {
+ height : 100%;
+}
\ No newline at end of file
diff --git a/static/museum/2000/Links/Links.html b/static/museum/2000/Links/Links.html
new file mode 100755
index 00000000..410012a0
--- /dev/null
+++ b/static/museum/2000/Links/Links.html
@@ -0,0 +1,73 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+Links
+
+
+Hier zijn een paar interessante links te vinden over Visual Basic, JavaScript, Java Applets, ...
+
Laatste Nieuws: Nieuw Programma Niet veel meer Nieuwe website (vervolg) Merry X-mas AutoUnPack 3.1.2 DirPrinter 2.3.0
Ouder Nieuws: Nieuwe website! aWhile Installer Nieuwe Ideeën Tickin' Netwerk
+
+
\ No newline at end of file
diff --git a/static/museum/2000/Nieuws/Nieuws.html b/static/museum/2000/Nieuws/Nieuws.html
new file mode 100755
index 00000000..aa034e1e
--- /dev/null
+++ b/static/museum/2000/Nieuws/Nieuws.html
@@ -0,0 +1,10 @@
+
+
+
+
+<![CDATA[Als u dit leest, kan uw browser geen frames aan. het is aangeraden een nieuwere versie te downloaden.
+]]>
+
+
\ No newline at end of file
diff --git a/static/museum/2000/Nieuws/OudNiews.html b/static/museum/2000/Nieuws/OudNiews.html
new file mode 100755
index 00000000..218ae5e5
--- /dev/null
+++ b/static/museum/2000/Nieuws/OudNiews.html
@@ -0,0 +1,101 @@
+
+
+
+
+
+
+Oud Nieuws
+
+
+
+
+Nieuwe website!
+aWhile Installer Jaja, eindelijk is het zover! De nieuwe website is af..
+Voor een groot stuk toch, niet? Volledig aangepast aan de
+snelhied van een 56. KB modem. Nu gaat die toch sneller
+dan mijn persoonlijke site vol met Applets en grote afbeeldingen,
+Dat was uiteraard de bedoeling. Ik heb de site nogal 'zakelijk' Aangekleed (geen achtergrond etc) maar Dat is
+ eens iets anders hè. Ik ben nog altijd aan het zoeken voor stomme JS scripts af te halen.
+ Afin, Veel surfgenot nu!
+
+Dit is een Automatisch installatieprogramma waar nog druk aan gewerkt wordt.
+Er zijn verschillende features aan vast gebonden, zoals registreren van 10 ocx/dll-en, invoegen van .reg bestand,
+snelkoppelingen maken, compilen (uiteraard, anders heeft het niet veel zin), en splitten in 1.44 MB voor diskettes.
+Alleen het installatie-onderdeel is af, de compiler moet ik nog maken. ik heb niet genoeg tijd, dat is het. maar heb een beetje geduld, OK?
+Ik wil alleen nog bij het installatie-stuk een hele map kopiëren, maar dat lukt me alleen met windows dialoog, en dan kan ik
+niet na elk bestand mijn ProgressBar laten vooruit gaan he! dat heeft niet veel zin. Als je suggesties hebt, mail me dan aub! ik ben
+daar al 10 jaar op aant wachten... Nee overdreven. Yust mailing, OK? Thx :-)
+
+Nieuwe Ideeën
+Tickin' Netwerk Nieuwe ideeën, en nogal veel tegelijk om die direct naar praktijk om te zetten hoor!
+Tickin' is ondertussen al tamelijk bekend, dus nu een Tickin' Netwerk versie, werkend met de WinSock OCX ActiveX Control. Eenvoudiger als
+met al die classen zitten te prullen... Maar het is nog niet correct: de stappen, en als jij per ongeluk zet voor de andere speler, aanvaard de computer dat!
+Niet mooi, maar moeilijk voorkoombaar. Ik heb echt geen tijd jong, leren enzo (rotschool) ik wil informatica! Pff da is ook zever, want de leraar
+informatica lach ik gewoon uit! Die weet nergens niets van, alleen zijn lessen... LOL :-)
+
+
+
+Nieuws
+
+
+Het Nieuws is het globale onderwerp van deze pagina. Dit wordt zo snel mogelijk vernieuwd, anders is een nieuwtje misschien een maand oud ofzo...
+Archieven zijn er ook te zien, dan moet je bij het oudere nieuws gaan snuffelen.
+
+
+
+
+Nieuwe website (vervolg) - 21/12/2000
+Merry Christmas - 24/12/2000Stom dat ik niet veel tijd had (heb), want anders was die site al lang af.
+Nu hoop ik toch dat het eindelijk zover is. Dus kijk gerust rond, normaal moet alles gaan. Ook de meeste
+programma's zijn ge-uploaded so... Als er toch log links ofzo moesten zijn die niet werken, mail me dan a.u.b.
+
+
+Jaja de kerstvakanties komen eraan dus exames ge-finished! en geen buizen dat ist belanrijkste...
+Voor mij toch want anders stak mijn pa 'de' Atlon Thunderbird processor (1 GhZ) zelf in zijne PC en ik
+had hem zo nodig... :-) echt want die PII 233 is al oud aan het worden. Wie geld heeft is altijd vertrokken!
+some christmas e-card sites: Express-it ; Greetings
+
+
+AutoUnPack Update - 26/12/2000 DirPrinter Vernieuwd - 28/12/2000De vernieuwde versie: 3.1.2. Een totaal nieuw splash screen, eindelijk integratie met
+[deep]software, dat betekend het logo en de info box. Ook die stomme wgp.dll is nu weg, het was toch een
+grote flop. Een .log file creator aan toegevoegd als er een error is dat je die erna nog kan lezen. Ook een paar
+minor bugs (k weet het zelf nog niet meer...) zijn weggehaald en de kleur is een beetje veranderd. Download het
+bij de software en iedereen is happy. Eindelijk kwam er een splash screen tevoorschijn uit Photoshop 6... En nog geen slechte ook!
+de errorhandling zit er nu ook in, [deep]software integratie en nog een paar minor bugs weggewerkt. Dit is weer goed
+voor een nieuwe versie, dus check it out bij de software. De nieuwse versie is 2.3.0 ipv 2.2.1 ofzo.
+
+Niet veel meer - 05/01/2001
+Nieuw Programma - 26/01/2001
+Ik heb een paar minor veranderingen aangebracht aan de site, om toch te laten
+zien dat ik af en toe nog wel leef... Meer winter stemming. Dit had ik eerder moeten doen, maarja.
+Voor de rest niet veel updates; beter gezegt niets! Ik weet het, maar soms wil ik ook eens een spel spelen
+en kan dat weken duren voor dat ik 'er' weer aan begin... Aanpassingen:
+Ik vond het altijd al vervelend als je met die stomme reclame over het internet begint te gooien.
+ Daarom dit programmaatje: WindowBlocker, gooit alle ongewenste vensters eruit! zeker het proberen waard, en nog klein ook!!
+
+
AutoUnPack programma
+
+
+
+
+AutoUnPack
+
Download:
Beschrijving:
Laatste Versie:
Grootte:
Externe bestanden:
+ UnAce.dll - de UnAce DLL die nodig is bij ace bestanden.UnRar.dll - de UnRar DLL die nodig is bij rar bestanden UnZip.dll - de UnZip DLL die nodig is bij zip bestanden
+
ScreenShot
+
DirPrinter programma
+
+
+
+
+DirPrinter
+
Download:
Beschrijving:
Laatste Versie:
Grootte:
Externe bestanden:
ScreenShot
+
AutoUnPack Tickin' DirPrinter PWL Decoder WindowBlocker PWLDecoder programma
+
+
+
+
+PWL Decoder
+
Download:
Beschrijving:
Laatste Versie:
Grootte:
Externe bestanden:
ScreenShot
+
Tickin programma
+
+
+
+
+Tickin
+
Download:
Beschrijving:
Laatste Versie:
Grootte:
Externe bestanden:
+Mswinsck.ocx - Kopiëer dit naar je systeem-map om via het netwerk te spelen.
+
ScreenShot
+
DirPrinter programma
+
+
+
+
+WindowBlocker
+
Download:
Beschrijving:
Laatste Versie:
Grootte:
Externe bestanden:
ScreenShot
+
Nodige systeembestanden voor mijn software
+
+
+
+
+Runtime DLL en sommige OCX bestanden
+
+Als je nog geen Msvbvm60.dll hebt, is het sterk aangeraden dit hieronder (zie tabel) te downloaden, want anders zal geen één programma werken...
+Sommige OCX bestanden die zich hieronder bevinden heb je bij sommige programma's nodig. Als je Office of iets anders op je PC hebt geïnstalleerd is dat normaal geen probleem.
+ Kijk voor alle zekerheid eens na of je er hebt in je Systeem dir van Windows.
+
+
+
+Naam bestand Informatie Grootte in KB Msvbvm60.dll MS VB6 Runtime DLL (NODIG)
+737 KB Comctl32.ocx MS Common ActiveX Control v. 6.2
+236 KB Comdlg32.ocx MS Common Dialog Control
+63 KB Mswinsck.ocx MS Winsock Control (alleen voor Tickin')
+56 KB Tabctl32.ocx TabStrip Control 32-BIT
+108 KB
+Als je een bep. bestand wilt downloaden, moet je gewoon op de naam klikken.
+ Opgelet: Mswinsck.ocx is alleen voor Tickin' (Netwerk) nodig! en Msvbvm60.dll heb je altijd nodig! voor elk programma dus.
+ Kopiëer elk systeembesand naar het systeem van windows na het unzippen.
+
+
+Software
+
+
+In deze selectie kan men mijn zelfgemaakte software downloaden. Voordat je alles download, kan je best eens eerst hier
+
+Als je in de linkerkolom één van de applicaties/toepassingen/programma's uitkiest, zie je dat er ook uitleg, een screenshot en de grootte in KB uitgedrukt bijstaat.
+
+
+
+
+<![CDATA[Als u dit leest, kan uw browser geen frames aan. het is aangeraden een nieuwere versie te downloaden.
+]]>
+
+
\ No newline at end of file
diff --git a/static/museum/2000/Text.css b/static/museum/2000/Text.css
new file mode 100755
index 00000000..610996eb
--- /dev/null
+++ b/static/museum/2000/Text.css
@@ -0,0 +1,35 @@
+BODY {
+ background-color : #00FFFF;
+ color : #000000;
+ font-size : 10pt;
+ font-family : Tahoma, Verdana, Arial, Helvetica, "MS Sans Serif";
+ margin : 5px;
+}
+
+A {
+ color : #000000;
+ font-family : Tahoma, Verdana, Arial, Helvetica, "MS Sans Serif";
+ font-weight : bold;
+ text-decoration : none;
+ line-height : 10pt;
+}
+
+
+HR {
+ color : #000000;
+ height : 1px;
+ margin-top : 0px;
+ margin-bottom : 0px;
+}
+
+BODY {
+scrollbar-face-color: #11AA11;
+scrollbar-shadow-color: #FFFFFF;
+scrollbar-highlight-color: #FFFFFF;
+scrollbar-3dlight-color: #11AA11;
+scrollbar-darkshadow-color: #FFFFFF;
+scrollbar-track-color: #FFFFFF;
+scrollbar-arrow-color: #0000BB;
+font-family: Verdana, Arial, Helvetica, sans-serif;
+text-decoration: none
+}
diff --git a/static/museum/2000/Updates/InstallCompiler/InstallCompiler.exe b/static/museum/2000/Updates/InstallCompiler/InstallCompiler.exe
new file mode 100755
index 00000000..76e17d3d
Binary files /dev/null and b/static/museum/2000/Updates/InstallCompiler/InstallCompiler.exe differ
diff --git a/static/museum/2000/Updates/InstallCompiler/InstallCompiler.txt b/static/museum/2000/Updates/InstallCompiler/InstallCompiler.txt
new file mode 100755
index 00000000..21903847
--- /dev/null
+++ b/static/museum/2000/Updates/InstallCompiler/InstallCompiler.txt
@@ -0,0 +1,4 @@
+2
+0
+3
+0
diff --git a/static/museum/2000/Updates/WindowBlocker/WindowBlocker.exe b/static/museum/2000/Updates/WindowBlocker/WindowBlocker.exe
new file mode 100755
index 00000000..a8fb84a8
Binary files /dev/null and b/static/museum/2000/Updates/WindowBlocker/WindowBlocker.exe differ
diff --git a/static/museum/2000/Updates/WindowBlocker/WindowBlocker.txt b/static/museum/2000/Updates/WindowBlocker/WindowBlocker.txt
new file mode 100755
index 00000000..a6792ea2
--- /dev/null
+++ b/static/museum/2000/Updates/WindowBlocker/WindowBlocker.txt
@@ -0,0 +1,4 @@
+1
+0
+5
+0
diff --git a/static/museum/2000/button_hiL.gif b/static/museum/2000/button_hiL.gif
new file mode 100755
index 00000000..68dd172a
Binary files /dev/null and b/static/museum/2000/button_hiL.gif differ
diff --git a/static/museum/2000/button_hiM.gif b/static/museum/2000/button_hiM.gif
new file mode 100755
index 00000000..53d59c14
Binary files /dev/null and b/static/museum/2000/button_hiM.gif differ
diff --git a/static/museum/2000/button_hiR.gif b/static/museum/2000/button_hiR.gif
new file mode 100755
index 00000000..14a1484f
Binary files /dev/null and b/static/museum/2000/button_hiR.gif differ
diff --git a/static/museum/2000/button_loL.gif b/static/museum/2000/button_loL.gif
new file mode 100755
index 00000000..27431306
Binary files /dev/null and b/static/museum/2000/button_loL.gif differ
diff --git a/static/museum/2000/button_loM.gif b/static/museum/2000/button_loM.gif
new file mode 100755
index 00000000..76fdbc35
Binary files /dev/null and b/static/museum/2000/button_loM.gif differ
diff --git a/static/museum/2000/button_loR.gif b/static/museum/2000/button_loR.gif
new file mode 100755
index 00000000..27431306
Binary files /dev/null and b/static/museum/2000/button_loR.gif differ
diff --git a/static/museum/2000/click.wav b/static/museum/2000/click.wav
new file mode 100755
index 00000000..a279f711
Binary files /dev/null and b/static/museum/2000/click.wav differ
diff --git a/static/museum/2000/computer.gif b/static/museum/2000/computer.gif
new file mode 100755
index 00000000..4c18d08f
Binary files /dev/null and b/static/museum/2000/computer.gif differ
diff --git a/static/museum/2000/home.html b/static/museum/2000/home.html
new file mode 100755
index 00000000..0d9c43d4
--- /dev/null
+++ b/static/museum/2000/home.html
@@ -0,0 +1,80 @@
+
+
+
+aWhile-Soft Home
+
+
+
+
+
+
+
+Software: de zelfgemaakte programma's met Visual Basic 6.
+Source codes: in deze selectie vind je voorbeeldprogramma's, modules & klassen.
+Nieuws: hier zijn de laatste nieuwtjes over mijn (nieuwe) software of updates, additionele informatie etc.
+Links: Verschillende links die uiteraard te maken hebben met het ontwikkelen van software zoals Visual Basic, maar ook C++, JavaScripts & JavaApplets horen daarbij....
+
+
+
+
+
+P.S.: ik ben op zoek naar een site ofzo waar je over .JS & .CSS bestanden kan leren.
aWhile Software homepage
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+<![CDATA[
+Were sorry but youve reached a web site that uses frames. You will need a
+frames-enabled browser in order to view the site.
+]]>
+
+
+
+
\ No newline at end of file
diff --git a/static/museum/2000/knopbalk.js b/static/museum/2000/knopbalk.js
new file mode 100755
index 00000000..dbca260a
--- /dev/null
+++ b/static/museum/2000/knopbalk.js
@@ -0,0 +1,290 @@
+/*____________________________
+
+ Margro Knoppenbalk
+______________________________
+
+E-mail: Margrosoft@hotmail.com
+______________________________
+*/
+
+var _toolId = 0; var _top = 0;
+var _tQueue = new Array();
+var _winWidth;
+var bImgHiL, bImgHiM, bImgHiR;
+var bImgLoL, bImgLoM, bImgLoR;
+var bImgL, bImgM, bImgR;
+var tImg, tImgCol, tImgHi, tImgColHi;
+var isNav4, isIE4;
+if (parseInt(navigator.appVersion.charAt(0)) >= 4) {
+ isNav4 = (navigator.appName == "Netscape") ? true : false;
+ isIE4 = (navigator.appName.indexOf("Microsoft") != -1) ? true : false;
+}
+function setClip(layer, l, r, t, b) {
+ if(isNav4) {
+ layer.clip.left = l; layer.clip.right = r;
+ layer.clip.top = t; layer.clip.bottom = b;
+ } else {
+ layer.style.pixelWidth = r-l;
+ layer.style.pixelHeight = b-t;
+ layer.style.clip = "rect("+t+","+r+","+b+","+l+")";
+ }
+}
+function Knopbalk(layer, layerCol, closed) {
+ this.layer = layer;
+ this.layerCol = layerCol;
+ if(isIE4) winWidth = document.body.clientWidth;
+ else if(isNav4) winWidth = window.innerWidth;
+ this.open = !closed;
+ this.Name = "knopbalk "+_toolId;
+ this.fontIntro = "";
+ this.fontOutro = " ";
+ this.sideWidth = 3;
+ this.baseHREF = "";
+ this.build = toolBuild;
+ this.addItem = toolAddItem;
+ this.writeButton = _writeButton;
+ this.writeText = _writeText;
+ this.update = toolUpdate;
+ this.setFont = setFont;
+ this.show = toolShow;
+ this.height = 23;
+ this.colHeight = 10;
+ this.bgImg = "undefined";
+ this.collapsedBgImg = "undefined";
+ this.zIndex = 0;
+ this.bgColor = "#0022FF";
+ this.collapsedBgColor = "#0022FF";
+ this.strs = new Array();
+ this.tars = new Array();
+ this.urls = new Array();
+ this.widths = new Array();
+ this.id = _toolId;
+ if(!layerCol.items) layerCol.items = new Array();
+ layerCol.items[layerCol.items.length] = this;
+ _tQueue[_toolId++] = this;
+}
+function toolUpdate() {
+ var l = this.layer;
+ if(isNav4) {
+ l.visibility = "hidden";
+ l.bgColor = this.bgColor;
+ l.background.src = this.bgImg;
+ l.top = _top;
+ l.left = 0;
+ if(this.open) _top += this.height;
+ l = this.layerCol;
+ l.visibility = "hidden";
+ l.bgColor = this.collapsedBgColor;
+ l.background.src = this.collapsedBgImg;
+ l.top = _top;
+ l.left = 0;
+ } else {
+ l.style.visibility = "hidden";
+ l.style.backgroundColor = this.bgColor;
+ l.style.backgroundImage = "url("+this.bgImg+")";
+ l.style.pixelTop = _top;
+ l.style.pixelLeft = 0;
+ if(this.open) _top += this.height;
+
+ l = this.layerCol;
+ l.style.visibility = "hidden";
+ l.style.backgroundColor = this.collapsedBgColor;
+ l.style.backgroundImage = "url("+this.collapsedBgImg+")";
+ l.style.pixelTop = _top;
+ l.style.pixelLeft = 0;
+ }
+}
+function setFont(i, j) {
+ this.fontIntro = i;
+ this.fontOutro = j;
+}
+function toolExpand(id) {
+ _tQueue[id].open = !_tQueue[id].open;
+ if(isNav4) {
+ if(_tQueue[id].open) _tQueue[id].layer.visibility = "inherit";
+ else _tQueue[id].layer.visibility = "hidden";
+ } else {
+ if(_tQueue[id].open) _tQueue[id].layer.style.visibility = "inherit";
+ else _tQueue[id].layer.style.visibility = "hidden";
+ }
+ _tQueue[id].show();
+}
+function toolAddItem(str, url, width, target) {
+ this.strs[this.strs.length] = str;
+ this.tars[this.tars.length] = target;
+ this.urls[this.urls.length] = url;
+ this.widths[this.widths.length] = width || 75;
+}
+function _sI(id, i, type) {
+ var img1, img2, img3;
+ if(isIE4) {
+ var img1 = eval("document.all.img"+id+i+"1;");
+ img2 = eval("document.all.img"+id+i+"2;");
+ img3 = eval("document.all.img"+id+i+"3;");
+ } else {
+ img1 = eval('_tQueue['+id+'].layer.document.layers.text'+id+'.document.images['+(3*i)+'];');
+ img2 = eval('_tQueue['+id+'].layer.document.layers.text'+id+'.document.images['+(3*i+1)+'];');
+ img3 = eval('_tQueue['+id+'].layer.document.layers.text'+id+'.document.images['+(3*i+2)+'];');
+ }
+ if(type == "button") {
+ img1.src = bImgL.src;
+ img2.src = bImgM.src;
+ img3.src = bImgR.src;
+ } else if(type == "button_hi") {
+ img1.src = bImgHiL.src;
+ img2.src = bImgHiM.src;
+ img3.src = bImgHiR.src;
+ } else {
+ img1.src = bImgLoL.src;
+ img2.src = bImgLoM.src;
+ img3.src = bImgLoR.src;
+ }
+}
+function _writeButton() {
+ var x = 0;
+ var l;
+ if(isNav4) l = eval('this.layer.document.layers.text'+this.id+';');
+ else if(isIE4) l = eval('this.layer.document.all.text'+this.id+';');
+ var str = "";
+ str += "";
+ if(isNav4) {
+ l.document.open();
+ l.document.write(str);
+ l.document.close();
+ } else
+ l.innerHTML = str;
+}
+function _writeText() {
+ var x = 0;
+ var l = this.layer;
+ var str = "";
+ str += "
";
+ str += "";
+ str += " \n";
+ str += "";
+ if(this.fontIntro) str += this.fontIntro;
+ str += this.strs[i];
+ if(this.fontOutro) str += this.fontOutro;
+ str += " ";
+ x += this.widths[i];
+ }
+ str += " ";
+ str += "
\n";
+ if(isNav4) {
+ l.document.open();
+ l.document.write(str);
+ l.document.close();
+ } else
+ l.innerHTML = str;
+}
+function toolShow() {
+ var t = 0;
+ for(var i = 0; i < _tQueue.length; i++) {
+ if(_tQueue[i].open) {
+ if(isNav4) _tQueue[i].layer.top = t;
+ else _tQueue[i].layer.style.pixelTop = t;
+ t += _tQueue[i].height;
+ }
+ }
+ _top = t;
+ _updateCol(this.layerCol);
+ this.shown = true;
+}
+function _updateCol(l) {
+ if(isNav4) l.top = _top;
+ else l.style.pixelTop = _top;
+ var str = "";
+ for(var i = 0, j = 0; i < l.items.length; i++) {
+ if(l.items[i].open == true) continue;
+ str += "";
+ str += " \n";
+ j++;
+ }
+ if(isNav4) {
+ l.document.open();
+ l.document.write(str);
+ l.document.close();
+ if(j > 0) l.visibility = "inherit";
+ else l.visibility = "hidden";
+ } else {
+ l.innerHTML = str;
+ if(j > 0) l.style.visibility = "inherit";
+ else l.style.visibility = "hidden";
+ }
+}
+function toolBuild() {
+ if(this.bgImg == "undefined")
+ this.bgImg = this.baseHREF + "medium.gif";
+ if(this.collapsedBgImg == "undefined")
+ this.collapsedBgImg = this.baseHREF + "medium_col.gif";
+ if(!bImgHiL) {
+ bImgHiL = new Image(); bImgHiL.src = this.baseHREF + "button_hiL.gif";
+ bImgHiM = new Image(); bImgHiM.src = this.baseHREF + "button_hiM.gif";
+ bImgHiR = new Image(); bImgHiR.src = this.baseHREF + "button_hiR.gif";
+ bImgLoL = new Image(); bImgLoL.src = this.baseHREF + "button_loM.gif";
+ bImgLoM = new Image(); bImgLoM.src = this.baseHREF + "button_loM.gif";
+ bImgLoR = new Image(); bImgLoR.src = this.baseHREF + "button_loR.gif";
+ bImgL = new Image(); bImgL.src = this.baseHREF + "button_hiL.gif"; //buttonL.gif, M, R
+ bImgM = new Image(); bImgM.src = this.baseHREF + "button_hiM.gif";
+ bImgR = new Image(); bImgR.src = this.baseHREF + "button_hiR.gif"; //tot hier
+ tImg = new Image(); tImg.src = this.baseHREF + "thumb.gif";
+ tImgCol = new Image(); tImgCol.src = this.baseHREF + "thumb_col.gif";
+ tImgHi = new Image(); tImgHi.src = this.baseHREF + "thumb_hi.gif";
+ tImgColHi = new Image();tImgColHi.src = this.baseHREF + "thumb_col_hi.gif";
+ }
+ if(!this.shown) {
+ setClip(this.layerCol, 0, winWidth, 0, this.colHeight);
+ setClip(this.layer, 0, winWidth, 0, this.height);
+ this.update(); this.show();
+ }
+ this.writeText();
+ if(isNav4) {
+ this.layer.zIndex = this.zIndex;
+ this.layerCol.zIndex = this.zIndex;
+ var buttonLayer = eval('this.layer.document.layers.text'+this.id+';');
+ buttonLayer.top = 0;
+ buttonLayer.left = 10;
+ buttonLayer.clip.width = window.innerWidth - 10;
+ this.writeButton();
+ if(this.open) this.layer.visibility = "inherit";
+ else this.layer.visibility = "hidden";
+ } else if(isIE4) {
+ this.layer.style.zIndex = this.zIndex;
+ this.layerCol.style.zIndex = this.zIndex;
+ var buttonLayer = eval('document.all.text'+this.id+';');
+ buttonLayer.style.pixelTop = 0;
+ buttonLayer.style.pixelLeft = 10;
+ setClip(buttonLayer, 0, winWidth-10, 0, this.height);
+ this.writeButton();
+ if(this.open) this.layer.style.visibility = "inherit";
+ else this.layer.style.visibility = "hidden";
+ }
+}
diff --git a/static/museum/2000/logoVB.gif b/static/museum/2000/logoVB.gif
new file mode 100755
index 00000000..4d010046
Binary files /dev/null and b/static/museum/2000/logoVB.gif differ
diff --git a/static/museum/2000/snow.gif b/static/museum/2000/snow.gif
new file mode 100755
index 00000000..63e07243
Binary files /dev/null and b/static/museum/2000/snow.gif differ
diff --git a/static/museum/2000/stylesheetselector.js b/static/museum/2000/stylesheetselector.js
new file mode 100755
index 00000000..b7d2e217
--- /dev/null
+++ b/static/museum/2000/stylesheetselector.js
@@ -0,0 +1,15 @@
+// Copyright (c) 2000 [deep]software
+// Gemaakt door *aquilla* voor [deep]software. *aquilla* maakt deel uit van de [deep]software Group.
+
+// ------------------------------------------------------------------------
+// Functies
+// ------------------------------------------------------------------------
+
+function CSSFileSelector(DefaultIEFile) {
+ if (navigator.appName == "Netscape") {
+ document.write('Jefklaks Game Experience - news
+
+
+ Jefklaks PC Game Experiences
+
+ ... funny stories about weird roleplaying characters & savegames e.d.
+
+
+
+
+
+
+
+ » Home
+
+
+
+ » Wizardry 8
+
+
+
× General Tips
+
× My Parties
+
× Bishop
+
× Ninja
+
× Samurai
+
× Monk
+
× Movies!
+
+
+
+ » Baldur's Gate 2
+
+
+
× General Tips
+
× My Parties
+
× Dual classing
+
× The Assassin
+
+
+
+ » Arcanum
+
+
+
× General Tips
+
× My Parties
+
× Magick VS Tech
+
× The Gunslinger
+
× Thieving abilities
+
+
+
+ » Downloads
+
+
+ » Links
+
+
+
+ » Others
+
+
+
+
+
+
+
+
PC Games section - Latest News
+
+
+
+
» Almost done constructing
+
+ Well hello there!
+
+
+
+
+
+
» A new site is coming up!
+
+ Yup, you heard me... I finally descided to make myself a little RPG fansite, yust for the heck of it. I like visiting someone's website - if it only contains some useless information about my favourite RPG wich I already know - yust because of THEIR experience. Well, this time, I would like to write down my own experience with different characters & parties and share it with you!
+
+
+
+
+
+
+
Jefklak enzo
+
+
+
+
+
+
PC Roleplaying Game Experiences
+
+
+
+
+
Various Linux Tips & Tricks
+
+
+
+
+ Browse Favourites // Site News // Mail Me
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/static/museum/2004/linux/index.html b/static/museum/2004/linux/index.html
new file mode 100644
index 00000000..17428e60
--- /dev/null
+++ b/static/museum/2004/linux/index.html
@@ -0,0 +1,109 @@
+
+
+
+
+
+
+ Jefklaks Linux Tips - home
+
+ Jefklaks Tux 'n Tips
+
+ ... general tips, howto's & articles for linux users
+
+
+
+
+
+
+ » Home
+
+
+
+ » Projects
+
+
+
× Kan1 Informatics
+
× Kan2 Informatics
+
+
+
+ » Articles
+
+
+ » Howtos
+
+
+ » Quick Tips
+
+
+ » Downloads
+
+
+ » Links
+
+
+ » Screenshots
+
+
+
+
+
+
+
+
+
Fresh Website Development News
+
+First of all, let me welcome you to our (actually, mine) brand new website! Please enjoy your stay.
+This is the News section. Here you will find the latest and hottest articles and howto's wich were submitted lately. To browse the archives, (under construction)
+
+
+
+
» Finally added some stuff
+
+ Yeah it was about time...
+
+
+
+
+
+
+
+Weeral een fantastisch strategisch spel, nu nog beter dan Planet Blupi.
+Dit is gewoon het einde... Geweldige schaduwen, animaties, geluiden, ...
+Meer moet dat niet zijn!! Alle mannetjes kun je crieëren d.m.v. vlees
+te verzamelen (bvb. van olifanten).