+- Mirage Source (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: General (https://mirage-engine.uk/forums/forumdisplay.php?fid=17)
+---- Thread: LOL (/showthread.php?tid=1339)
LOL - William - 13-10-2007
Throughout my like 3 years with ms, I NEVER knew about the search textbox on frmIndex xD
Re: LOL - Coke - 13-10-2007
theres a search textbox?! o.0
Re: LOL - Robin - 13-10-2007
No.
Re: LOL - William - 13-10-2007
Fox Wrote:theres a search textbox?! o.0Yes there is, it searches through the index list.
Guess Robin didn't know it either
Re: LOL - Matt - 13-10-2007
Major Wrote:Fox Wrote:theres a search textbox?! o.0Yes there is, it searches through the index list.
Guess Robin didn't know it either
Where is it..?
Re: LOL - William - 13-10-2007
At the top of frmIndex, try searching for a name you have in the list.
Re: LOL - Robin - 13-10-2007
Major, there isn't one.
You've either added it, or you're using a different source.
Re: LOL - Matt - 13-10-2007
Only thing on my frmIndex is the list box, the ok button, and the cancel button.
Are you on drugs? O_o
Re: LOL - William - 13-10-2007
WTF, I have no memory of adding this xD WEIRD
Add a textbox called: txtSearch
Code:
Private Sub txtSearch_Change()
Dim i As Long
If InItemsEditor = True Then
For i = 1 To MAX_ITEMS
If InStr(1, LCase(Item(i).Name), txtSearch.Text) > 0 Then
lstIndex.ListIndex = i - 1
Exit For
End If
Next i
End If
If InNpcEditor = True Then
For i = 1 To MAX_NPCS
If InStr(1, LCase(Npc(i).Name), LCase(txtSearch.Text)) > 0 Then
lstIndex.ListIndex = i - 1
Exit For
End If
Next i
End If
If InShopEditor = True Then
For i = 1 To MAX_SHOPS
If InStr(1, LCase(Shop(i).Name), LCase(txtSearch.Text)) > -1 Then
lstIndex.ListIndex = i - 1
Exit For
End If
Next i
End If
If InSpellEditor = True Then
For i = 1 To MAX_SPELLS
If InStr(1, LCase(Spell(i).Name), LCase(txtSearch.Text)) > 0 Then
lstIndex.ListIndex = i - 1
Exit For
End If
Next i
End If
If InArrowEditor = True Then
For i = 1 To MAX_ARROWS
If InStr(1, LCase(Arrows(i).Name), LCase(txtSearch.Text)) > 0 Then
lstIndex.ListIndex = i - 1
Exit For
End If
Next i
End If
End Sub
Private Sub txtSearch_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Call cmdOk_Click '13=enter key
End SubRe: LOL - Reece - 13-10-2007
You must have been high.
Re: LOL - William - 13-10-2007
I guess so xD