RE: idea for comboimage

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

Browse pgadmin-hackers by date

  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