RE: idea for comboimage - Mailing list pgadmin-hackers

  

  

-----Original Message-----
From: frank_lupo    [mailto:frank_lupo@email.it] 
Sent: 20 August 2002    17:17
To: Dave Page
Cc:    pgadmin-hackers@postgresql.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@email.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         n a me 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 Integer)
    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
  &n b sp;     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 Lupo (Wolf) !!

----
Prendi GRATIS l'email universale che... risparmia: clicca qui

Sponsor:
Il simbolo della rete ha compiuto da poco i 450 anni;
Ordina il tuo portafortuna su Airbook.it!
Clicca qui