Browsing Visual Basic 6
XNumbers MultiPrecision Math Library
A quick note about a great freeware DLL I came across recently.
DSN Module and UserName
DSN Connection Creation or modification for Access or SQL ServerIncluded is a few functions et get UserName, ComputerName, DomainName, FullUserName (Requires NT or more)By the way, GetServer, found at MicrosoftOriginal Author: Patrick GarceauSide EffectsDomainName and FullUserName does not work on win98, but who's still on 98???API DeclarationsOption ExplicitOption Compare TextPrivate Declare Function NetServerEnum Lib "netapi32" (ByVal ServerName As Long, ByVal level As Long, buf As Any, ByVal prefmaxlen As Long, entriesread As Long, totalentries As Long, ByVal ServerType As Long, ByVal domain As Long, resume_handle As Long) As LongPrivate Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pTo As Any, uFrom As Any, ByVal lSize As Long)Private Declare Function NetApiBufferFree Lib "netapi32" (ByVal Buffer As Long) As LongPrivate Declare Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As LongPrivate Declare Function GetUserName Lib "advapi32.
Yours Truly - Rnd (updated)
This little code snippet returns a truly random sequence of Rnd'sOriginal Author: UlliCodeOption ExplicitPrivate Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As Currency) As LongPrivate Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As TwoLongs) As LongPrivate Type TwoLongs l1 As Long l2 As LongEnd TypePublic Function IsCpuSuitable() As Boolean Dim c As Currency On Error Resume Next IsCpuSuitable = CBool(QueryPerformanceFrequency(c)) On Error GoTo 0End FunctionPublic Function TrueRnd() As Single 'returns a truly random sequence of rnd's Dim tl As TwoLongs Dim Seed As Long Dim Tmp As Long Do Until Seed > &H3FFFFFFF QueryPerformanceCounter tl Tmp = tl.
VbEclipse (docking MDI) - New Version 0.8.99
Version 0.
[ 3 lines of codes ]
Play a wave file with only 3 lines of codes!It works with .
A Dream!
Concat 2 Arrays (My Dream) - a simple function.
simple listbox tip/trick=> you know how control the resized height of listbox can be a pain??
you know how it can be difficult to resize the height of the listbox because it only allows you to reset its height + or - a full font height and not in incerments inbetween ? Well this little tip I found out purely by accident.