From: | frank_lupo <frank_lupo(at)email(dot)it> |
---|---|
To: | dpage <dpage(at)vale-housing(dot)co(dot)uk> |
Cc: | pgadmin-hackers <pgadmin-hackers(at)postgresql(dot)org> |
Subject: | RE: idea for comboimage |
Date: | 2002-08-22 08:07:08 |
Message-ID: | H18JVW$EB75B14DB5E1401C79D0921DE3B80B51@email.it |
Views: | Raw Message | Whole Thread | Download mbox | Resend email |
Thread: | |
Lists: | pgadmin-hackers |
Hi Frank, unfortunately that doesn't fix it.
Regards, Dave.
-----Original Message-----
From: frank_lupo [mailto:frank_lupo(at)email(dot)it]
Sent: 20 August 2002 17:17
To: Dave Page
Cc: pgadmin-hackers(at)postgresql(dot)org
Subject: Re: [pgadmin-hackers] idea for comboimage
Thanks Frank - that issue has annoyed me on and off. There's a minor bug in your code though - if you hit 6 twice, the first time it displays 6pippo, then the second time it goes blank :-(
Regards, Dave.
-----Original Message-----
From: frank_lupo [mailto:frank_lupo(at)email(dot)it]
Sent: 20 August 2002 16:16
To: pgadmin-hackers
Subject: [pgadmin-hackers] idea for comboimage
In comboimage e.g. trigger is not possible select and scrolling the name of table using keyboard.
I write the
code example to resolving this problem.
Bye !! Frank Lupo (Wolf) !!
----
Prendi GRATIS l'email universale che... risparmia: clicca qui
Sponsor:
Il nostro catalogo completo a casa tua, gratis! Vieni da Peraga, tanti prodotti introvabili per te.
Clicca qui
---------------------
For resolving bug insert this event
Private Sub ImageCombo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then KeyCode = 0
End Sub
Bye !! Frank Lupo (Wolf) !!
----
Prendi GRATIS l'email universale che... risparmia: clicca qui
Sponsor:
Un regalo, mille possibilità di scelta, una più preziosa dell'altra.
Clicca qui
-------------
Sorry the code for precedent code, are incomplete.
Private Sub ImageCombo1_KeyDown(KeyCode As Integer, Shift As
I
nteger)
If KeyCode = vbKeyReturn Then KeyCode = 0
End Sub
Private Sub ImageCombo1_KeyPress(KeyAscii As Integer)
Dim bInCombo As Boolean
Dim ii As Integer
Static szKeyAsciiPress As String
Static vTimer
If KeyAscii <> vbKeyReturn Then
If Timer - vTimer > 0.6 Then szKeyAsciiPress = ""
vTimer = Timer
szKeyAsciiPress = szKeyAsciiPress & LCase(Chr(KeyAscii))
bInCombo = False
For ii = 1 To ImageCombo1.ComboItems.Count
If LCase(Left(ImageCombo1.ComboItems(ii).Text, Len(szKeyAsciiPress))) = szKeyAsciiPress Then
bInCombo = True
ImageCombo1.ComboItems(ii).Selected = True
Exit For
End If
Next
If Not bInCombo Then szKeyAsciiPress = ""
End If
Debug.Print szKeyAsciiPress
End Sub
Bye !!
Frank
L
upo (Wolf) !!
--
Prendi GRATIS l'email universale che... risparmia: http://www.email.it/f
Sponsor:
Il simbolo della rete ha compiuto da poco i 450 anni;
Ordina il tuo portafortuna su Airbook.it!
Clicca qui: http://adv2.email.it/cgi-bin/foclick.cgi?mid=347&d=22-8
From | Date | Subject | |
---|---|---|---|
Next Message | Dave Page | 2002-08-22 08:18:30 | Re: idea for comboimage |
Previous Message | Dave Page | 2002-08-22 07:31:14 | Re: idea for comboimage |