Ancora No ...
Ricapitoliamo, passo, passo
1)Creo una finestra -> With my_win_admin = New Window As "win_admin"
2) aggiungo un panel -> With my_panel_1 = New Panel(my_win_admin)
(sfondo trasparente)
3) bottoni -> With admin_btn_1 = New Button(my_win_admin) As "admin_btn1"
4) TextBox -> With admin_tb1 = New TextBox(my_panel_1) As "admin_tb1"
ecc. per altri TextBox ...
5) Label -> With admin_lab1 = New Label(my_win_admin)
ecc. uno per ogni TextBox
6) lancio la finestra con: i = my_win_admin.ShowModal()
attendo il bottone "Apply" se premuto :
Public Sub btn_admin_insert_Click()
Dim xx As TextBox
Dim rr As Boolean
For Each xx In my_panel_1.Children
If (IsNull(xx.Text) = True) Then
With Balloon
.Warning("Campo \n" & xx.Tag & "\n vuoto", xx)
.Delay = 750
End With
'Message.Warning("Campo \n" & xx.Tag & "\n vuoto", "Ok")
rr = False
xx.SetFocus
Break
Endif
rr = True
Next
If rr Then
my_win_admin.Close(2)
Else
'my_win_admin.Activate()
'xx.SetFocus
Endif
End
Appare il balloon al posto giusto, ma quando "finisce" il suo ciclo, la finesta(my_win_admin) rimane inattiva
Solo cliccandoci dentro (alla finestra) quindi di fatto attivandola, il SetFocus fa il suo dovere.
Il mio desiderio era quello di veder attivata la finestra ed relativo SetFocus del TextBox incriminato, senza doverci cliccare.
Fine balloon finestra attiva.
Qualcosa non quadra, evidentemente manca qualcosa nel codice da me scritto, ma cosa ?
Se volete estrapolo il codice e lo posto in un esempio.
Grazie
