VERSION 5.00
Begin VB.Form frmMain
BackColor = &H00000000&
BorderStyle = 3 'Fixed Dialog
Caption = "D.i.e. Moron Luxation (ML)"
ClientHeight = 3576
ClientLeft = 36
ClientTop = 264
ClientWidth = 6192
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3576
ScaleWidth = 6192
StartUpPosition = 2 'CenterScreen
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 1
Left = 2280
Top = 2040
End
Begin VB.TextBox Text1
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00000000&
Enabled = 0 'False
ForeColor = &H00C0C0C0&
Height = 612
Left = 720
MultiLine = -1 'True
TabIndex = 3
Text = "frmMain.frx":08CA
Top = 2520
Width = 5052
End
Begin VB.Label lblMF
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Music Files Finder"
BeginProperty Font
Name = "Comic Sans MS"
Size = 10.8
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 300
Left = 3360
TabIndex = 10
Top = 480
Width = 1932
End
Begin VB.Label lblPer
BackStyle = 0 'Transparent
Caption = "%"
Height = 252
Left = 3240
TabIndex = 7
Top = 3120
Width = 372
End
Begin VB.Label lblTEst
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "0"
Height = 252
Left = 2760
TabIndex = 6
Top = 3120
Width = 492
End
Begin VB.Label lblBye
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Quit"
BeginProperty Font
Name = "Times New Roman"
Size = 13.8
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 312
Left = 120
TabIndex = 9
Top = 120
Width = 504
End
Begin VB.Label lblAbout
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "&About"
ForeColor = &H00FFFF00&
Height = 192
Left = 5640
TabIndex = 8
Top = 120
Width = 420
End
Begin VB.Label lblDB
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Test DATA files and Check program Bugs..."
BeginProperty Font
Name = "Comic Sans MS"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 348
Left = 600
TabIndex = 5
Top = 2040
Width = 5268
End
Begin VB.Label lblStatus
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Status Bar:"
ForeColor = &H00E0E0E0&
Height = 372
Left = 120
TabIndex = 4
Top = 2520
Width = 612
End
Begin VB.Label lblOp
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "General && Search Options"
BeginProperty Font
Name = "Comic Sans MS"
Size = 10.8
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 300
Left = 720
TabIndex = 2
Top = 1440
Width = 2724
End
Begin VB.Label lblDataBase
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Locate Using The Database"
BeginProperty Font
Name = "Comic Sans MS"
Size = 10.8
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 300
Left = 480
TabIndex = 1
Top = 840
Width = 2892
End
Begin VB.Label lblBF
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Locate By Folder"
BeginProperty Font
Name = "Comic Sans MS"
Size = 10.8
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 300
Left = 3480
TabIndex = 0
Top = 1200
Width = 1788
End
Begin VB.Menu popupmen
Caption = "&Popup"
Visible = 0 'False
Begin VB.Menu mnuLocator
Caption = "&About Moron Luxation"
End
Begin VB.Menu mnuSep
Caption = "-"
End
Begin VB.Menu mnuDatInfo
Caption = "Data Error &Information"
End
Begin VB.Menu mnuFileType
Caption = "&FileType Error Information"
End
Begin VB.Menu mnuSeperating
Caption = "-"
End
Begin VB.Menu mnuSkins
Caption = "&Skins"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i As Integer
Dim RightVal(0 To 1) As String
Dim DefOpt(0 To 1) As String
Dim DeFolder(0 To 4) As String
Dim DefBrowse(0 To 6) As String
Private Sub Form_Load()
If App.PrevInstance = True Then
MsgBox "Moron Luxation is already running"
Unload Me
End If
Dim i As Integer
On Error Resume Next
i = FreeFile
Open App.Path & "\DATA.die" For Input As #i
Text1.Text = Input(LOF(i), i)
Close #i
oPoRaTe
On Error Resume Next
Me.Picture = LoadPicture(App.Path & "\Skinz\main.gif")
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblBF.ForeColor = RGB(255, 255, 255)
lblMF.ForeColor = RGB(255, 255, 255)
lblDB.ForeColor = RGB(30, 30, 30)
lblOp.ForeColor = RGB(255, 255, 255)
lblDataBase.ForeColor = RGB(255, 255, 255)
lblAbout.ForeColor = RGB(0, 255, 255)
lblBye.ForeColor = RGB(25, 29, 30)
Text1.Text = "NO selection"
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub lblAbout_Click()
Text1.Text = "Menu Opened - Choose one of the options"
Me.PopupMenu Me.popupmen
End Sub
Private Sub lblAbout_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblAbout.ForeColor = RGB(24, 233, 184)
Text1.Text = "Open the About Menu"
End Sub
Private Sub lblBF_Click()
frmLoading.Show
frmLoading.Refresh
Set fbf = New ByFolder
Load fbf
Unload frmLoading
fbf.Show
Me.Hide
End Sub
Private Sub lblBF_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblBF.ForeColor = RGB(200, 255, 100)
Text1.Text = "Open the 'Locate By Folder' window - Choose a folder and see the Music files in it"
End Sub
Private Sub oPoRaTe()
On Error Resume Next
For i = 1 To 500
frmOption.optBFDefault.Value = DefBrowse(i)
frmOption.txtBFDefFolder.Text = DeFolder(i)
frmOption.chkBFDeFolder = DefOpt(i)
frmOption.chkBFRight = RightVal(i)
ByFolder.chkBrow.Value = frmOption.optBFDefault.Value
Text1.Text = DefBrowse(i)
Next i
If frmOption.optBFDefault.Value = False Then
frmOption.optBFBrowseForFolder.Value = True
End If
If frmOption.chkBFDeFolder = 1 Then
ByFolder.File1.Path = frmOption.txtBFDefFolder
End If
End Sub
Private Sub lblBye_Click()
Unload Me
End Sub
Private Sub lblBye_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblBye.ForeColor = RGB(255, 255, 0)
Text1.Text = "Close D.i.e. Moron Luxation - End this useful program!"
End Sub
Private Sub lblDataBase_Click()
frmLoading.Show
frmLoading.Refresh
Set fDB = New frmDataBase
Load fDB
Unload frmLoading
fDB.Show vbModal
End Sub
Private Sub lblDataBase_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = " Open the 'Locate Using DataBase' window - Use the database to Find the Song you looking for"
lblDataBase.ForeColor = RGB(150, 100, 0)
End Sub
Private Sub lblDB_Click()
If Timer1.Enabled = True Then
MsgBox "Test is now running, please wait couple of seconds for it to end..."
Else
Timer1.Enabled = True
End If
End Sub
Private Sub lblDB_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblDB.ForeColor = RGB(100, 255, 200)
If Text1.Text = "NO selection" Then
Text1.Text = " Search for Bugs, make a brief report of Bugs, Errors, Missing Files, or show an 'All Okay' message"
End If
End Sub
Private Sub lblMF_Click()
frmLoading.Show
frmLoading.Refresh
Set fMF = New frmSearch
Load fMF
Unload frmLoading
fMF.Show vbModal
End Sub
Private Sub lblMF_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblMF.ForeColor = RGB(0, 200, 200)
Text1.Text = " Open the Death In Elevator special Search Dialog - Made especially for Moron Luxation"
End Sub
Private Sub lblOp_Click()
oPoRaTe
frmOption.Show vbModal
End Sub
Private Sub lblOp_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblOp.ForeColor = RGB(150, 125, 200)
Text1.Text = "Open the Options window - View & Change settings, Control program DATA file"
End Sub
Private Sub mnuDatInfo_Click()
MsgBox "If you have a 'DATA file Error' then please go to the Options window and select a default folder" & vbCrLf & "(in the 'By Folder' tab), Close your program and start it again." & vbCrLf & vbCrLf & "If the problem continues, Create a file named DATA.die in the" & vbCrLf & "directory where D.i.e. Moron Luxation Installed...." & vbCrLf & vbCrLf & "If the problem continues, Try restarting your Operating System! If the problem Continues after all, Contact Ben Bond and tell him about the problem"
End Sub
Private Sub mnuFileType_Click()
MsgBox "If you have a 'FileType List Error' then please go to Options and click on 'Restore Default File Types" & vbCrLf & "(in the 'Advanced Setting' tab), Close your program and start it again." & vbCrLf & vbCrLf & "If the problem continues, Create a file named FileType.dat in the" & vbCrLf & "directory where D.i.e. Moron Luxation Installed...." & vbCrLf & vbCrLf & "If the problem continues, Try restarting your Operating System! If the problem Continues after all, Contact Ben Bond and tell him about the problem"
End Sub
Private Sub mnuLocator_Click()
Text1.Text = "The About window is opened."
MsgBox "D.i.e. Moron Luxation (ML)" & vbCrLf & vbCrLf & "Programmed By Ben Bond" & vbCrLf & "Designed by Ben Bond" & vbCrLf & vbCrLf & "Copyrighted to Death In Elevator, Managed By Ben Bond. For More info Email Ben Bond - [[Email Removed]] or visit D.i.e. Official Site:" & vbCrLf & "http://come.to/DieSite or http://die.tsx.org or http://death.tsx.org or http://DieSite.hey.to" & vbCrLf & vbCrLf & "All was made by the master - Ben Bond." & vbCrLf & "Idea was stolen from: Nir Dremer - [[Email Removed]]"
End Sub
Private Sub mnuSkins_Click()
MsgBox "Skins in Moron Luxation (ML)" & vbCrLf & vbCrLf & "What is it? -Skins are just the picture that the program uses as a background" & vbCrLf & vbCrLf & "How to add your skins:" & vbCrLf & vbCrLf & "1. Enter the 'Skinz' directory in the folder where ML is installed" & vbCrLf & "Create a 'Skinz' Directory if it does not exist" & vbCrLf & vbCrLf & "2. Create 4 pictures:" & vbCrLf & "A. main.gif - Main Form background picture" & vbCrLf & "B. DB.gif - DataBase window background picture" & vbCrLf & "C. srch.gif - Search window background picture" & vbCrLf & "D. bf.gif - Locate By Folder background picture" & vbCrLf & vbCrLf & "PLEASE NOTE: It is recommended that you'll put 800 pixels * 600 [or bigger] pixels pictures", vbInformation, "D.i.e. Moron Luxation"
End Sub
Private Sub Text1_Change()
On Error Resume Next
Open "DATA.die" For Input As #1
For i = 1 To 500
Input #1, RightVal(i), DefOpt(i), DeFolder(i), DefBrowse(i)
Next i
Close #1
If Text1.Text = "" Then
oPoRaTe
End If
End Sub
Private Sub Timer1_Timer()
lblTEst.ForeColor = RGB(123, 23, 136)
lblPer.ForeColor = RGB(123, 23, 136)
lblTEst.Caption = lblTEst.Caption + 1
If lblTEst.Caption >= 100 Then
lblTEst.ForeColor = RGB(0, 0, 0)
lblPer.ForeColor = RGB(0, 0, 0)
If frmOption.txtBFDefFolder.Text = "" Then
MsgBox "Test is Done... DATA file Error was found"
Text1.Text = "Error in DATA file... Create an empty DATA.die file in the folder where Moron Luxation is installed"
ElseIf frmOption.txtFileType.Text = "" Then
MsgBox "Test is Done... Error was found in FileType list." & vbCrLf & "Please go to the Options and click on 'Restore Default FileType List'", vbCritical, "ERROR"
Text1.Text = "Error in FileType list... Create an empty FileType.dat file in the folder where Moron Luxation is installed"
Else
MsgBox "Test is Done... DATA file & FileType List are all set"
Text1.Text = "NO Errors or Bugs were found, All system works properly, No reason to worry"
End If
lblTEst.Caption = 0
Timer1.Enabled = False
End If
End Sub
