select case button.key

[fungo]

Ciao gente, come mai la funzione select non funge?


Private Sub TlbMain_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case ico01
TlbMain.Visible = False
fraToolbar.Caption = TextTlbAnagrafica
With TlbCercaFornitori
.Visible = True
.Height = 780
.Left = 105
.Top = 240
.Width = Screen.Width - 20 * Screen.TwipsPerPixelY
End With
Case ico05
Unload frmMain
End Select
end sub

mentre se uso il metodo if si.



Private Sub TlbMain_ButtonClick(ByVal Button As MSComctlLib.Button)
If Button.Key = "ico01" Then
TlbMain.Visible = False
fraToolbar.Caption = TextTlbAnagrafica
With TlbCercaFornitori
.Visible = True
.Height = 780
.Left = 105
.Top = 240
.Width = Screen.Width - 20 * Screen.TwipsPerPixelY
End With
End If
'iconcina ico05 chiusura applicazione
If Button.Key = "ico05" Then
Unload frmMain
End If
End Sub

Grazie

[ladyBlu]

se ico01 è una stringa devi scrivere così:

Private Sub TlbMain_ButtonClick(ByVal Button As MSComctlLib.Button) 
   Select Case Button.Key 
          Case Is = "ico01"
                  TlbMain.Visible = False 
                  fraToolbar.Caption = TextTlbAnagrafica 
                  With TlbCercaFornitori 
                       .Visible = True 
                       .Height = 780 
                       .Left = 105 
                       .Top = 240 
                       .Width = Screen.Width - 20 * Screen.TwipsPerPixelY 
                 End With 
          Case Is = "ico05"
                 Unload frmMain 
   End Select 
end sub

[fungo]

Ci risentiamo ladyBlu,

Grazie del tuo aiuto. Alla prossima