Skip site navigation (1) Skip section navigation (2)

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 (view raw or flat)
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

pgadmin-hackers by date

Next:From: Dave PageDate: 2002-08-22 08:18:30
Subject: Re: idea for comboimage
Previous:From: Dave PageDate: 2002-08-22 07:31:14
Subject: Re: idea for comboimage

Privacy Policy | About PostgreSQL
Copyright © 1996-2014 The PostgreSQL Global Development Group