Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
LOL
#1
Throughout my like 3 years with ms, I NEVER knew about the search textbox on frmIndex xD
Reply
#2
theres a search textbox?! o.0
Reply
#3
No.
Quote:Robin:
Why aren't maps and shit loaded up in a dynamic array?
Jacob:
the 4 people that know how are lazy
Robin:
Who are those 4 people?
Jacob:
um
you, me, and 2 others?
Reply
#4
Fox Wrote:theres a search textbox?! o.0
Yes there is, it searches through the index list.

Guess Robin didn't know it either Tongue
Reply
#5
Major Wrote:
Fox Wrote:theres a search textbox?! o.0
Yes there is, it searches through the index list.

Guess Robin didn't know it either Tongue

Where is it..?
Reply
#6
At the top of frmIndex, try searching for a name you have in the list.
Reply
#7
Major, there isn't one.

You've either added it, or you're using a different source.
Quote:Robin:
Why aren't maps and shit loaded up in a dynamic array?
Jacob:
the 4 people that know how are lazy
Robin:
Who are those 4 people?
Jacob:
um
you, me, and 2 others?
Reply
#8
Only thing on my frmIndex is the list box, the ok button, and the cancel button.

Are you on drugs? O_o
Reply
#9
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 Sub
Reply
#10
You must have been high.
Reply
#11
I guess so xD
Reply


Forum Jump:


Users browsing this thread: 1 Guest(s)