Re: idea for comboimage

Hmm, still doesn't help. I fiddled around with it and found that this
works a treat:

Option Explicit
Private Sub Form_Load()
Dim ii As Integer

    ImageCombo1.ComboItems.Clear
    For ii = 1 To 10
        ImageCombo1.ComboItems.Add ii, "key" & ii, ii & "pippo", 1
    Next
End Sub

Private Sub ImageCombo1_KeyPress(KeyAscii As Integer)
Dim bInCombo As Boolean
Dim ii As Integer
Dim lLen As Long
Dim szKeyAsciiPress As String

    If KeyAscii <> vbKeyReturn Then
        szKeyAsciiPress = LCase(Chr(KeyAscii))
        lLen = Len(szKeyAsciiPress)
        bInCombo = False
        For ii = 1 To ImageCombo1.ComboItems.Count
            If LCase(Left(ImageCombo1.ComboItems(ii).Text, lLen)) =
szKeyAsciiPress Then
                bInCombo = True
                ImageCombo1.ComboItems(ii).Selected = True
                Exit For
            End If
        Next
      End If
End Sub

What would be really nice though, is if the combobox were unlocked, it
did a sort of auto-complete type thing. There are some places where the
box is unlocked to allow the user to type in stuff themselves.

Regards, Dave.

-----Original Message-----
From: frank_lupo [mailto:frank_lupo@email.it]
Sent: 22 August 2002 09:29
To: Dave Page
Cc: pgadmin-hackers
Subject: RE: [pgadmin-hackers] idea for comboimage


if you modify result timer "Timer - vTimer > 0.6" is not necessary press
a key twice



Hi  Frank,
That  just about fixes it, but I still find that sometimes (can't see a
pattern) I have to press a key twice to get the right  value.
Regards, Dave


Bye !! Frank Lupo (Wolf) !!
----
Prendi GRATIS l'email universale che... risparmia: clicca qui

Sponsor:
Con questo elettrostimolatore in soli 10 minuti potete esercitare circa
600 volte i vostri addominali. Vieni a Scoprire Ab Gymnic!
Clicca qui