Browsing Visual Basic 6
Playing MP3 in 2 lines !
Playing MP3 with 2 lines of code !Original Author: MasterBlaster_PLCodeJust copy this code to Form_Load event and replace !path to file! to path of mp3:Set MP = Controls.
A Very Flat Std Command Button
Make a standard command button very flat ;-)Original Author: UlliCodeOption ExplicitPrivate Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd TypePrivate WindowRect As RECTPrivate Declare Function CreateRectRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long) As LongPrivate Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As LongPrivate Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As LongPrivate Sub Form_Load() Const SnippOff As Long = 3 Dim hRgn As Long With WindowRect .
Am I running in the IDE?
The proper way to find out whether your code is running in the IDE or was compiledOriginal Author: UlliCode'this code goes into a class named cEnvironmentOption ExplicitPublic Enum eEnvironment EnvironIDE = 1 EnvironCompiled = 2End EnumPublic Property Get QueryEnvironment() As eEnvironment QueryEnvironment = EnvironCompiled Debug.
Free Obsolete Versions Of VB, Basic & Other Compilers
This is a third party review on where to find Free Obsolete Versions Of VB, Basic & Other Compilers.
PantherXP 0.2 - www.pantherxp.dr-fire.org
Here is version 0.
Nested Arrays Solution
ExampleOriginal Author: UlliCodeOption ExplicitPrivate Type tNested Blah As String Blabla As LongEnd TypePrivate Type tSomething Stuff As String MoreStuff As Long aNested() As tNested Whatever As IntegerEnd TypePrivate aSomething() As tSomethingPrivate Sub Form_Click() Dim i As Long ReDim aSomething(1 To 500) For i = 1 To 500 ReDim aSomething(i).