1
Domande tecniche / Re:Far intervenire una procedura di debug inserendo lo Stop
« il: 25 Aprile 2024, 16:49:54 »
Grazie
19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
Nome della classe nascosto dalla dichiarazione locale: pdf
Ciao Franco,mi scuso, ma non ho fatto caso che lanci l'evento SetFocus per un pulsante.
Ma non tutti i controlli hanno l'evento SetFocus ad esempio il Button non lo ha.
Visto che ho fatto confusione, ho pensato di allegare un esempio, può essere utile?
CitazioneCase 1
If PosLavori = 0 Then
ValuePrezzoUNorm.SetFocus
Endif
ButtonConf.Background = &00FF00
ButtonConf.Enabled = True
ButtonConf.SetFocus
Come è possibile dare due SetFocus differenti nella stessa istruzione?
Prova a inserire uno Stop nel codice e a vedere/seguire il comportamento...
Eventualmente cambia l'avvio della routine setfocus su altro
Vedi se inserisci un Wait e funziona, forza la routine chiamandola direttamente ecc.
Select Case FMain.TipoBll
Case 1
If PosLavori = 0 Then
ValuePrezzoUNorm.SetFocus
Endif
ButtonConf.Background = &00FF00
ButtonConf.Enabled = True
ButtonConf.SetFocus
Case 2
TextScontrNum.SetFocus
Case 3
TextCliente.SetFocus
End Select
Private hPdf As PdfDocument
Dim Pdf As Object
Randomize
pdf = Object.New(name_Report, [formato[0], formato[1], formato[2]])
pdf.Open()
pdf.AliasNbPages()
pdf.Data(data1, data2, data3)
pdf.Output(MyReport, False)
Public Sub btzoomin_Click()
If Not hPdf Then Return
hPdf.Zoom *= Sqr(1.2)
RefreshPage
End
Public Sub btzoomout_Click()
If Not hPdf Then Return
hPdf.Zoom /= Sqr(1.2)
RefreshPage
End
Public Sub btzoomin2_Click()
If Not hPdf Then Return
hPdf.Zoom = 1
RefreshPage
End