166
Programmazione / Re:PDF Writer - Stampa nell'ultima pagina
« il: 02 Marzo 2017, 08:57:57 »
Se puoi allegare la classe possiamo aiutarti
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.
A proposito, perché non hai fatto un esempio con button qui, visto il titolo, e uno con check la?:-\Mi viene più naturale pensare a un check dentro la griglia che un button....
A me la tabulazione rimane confinata all'interno della tableview, non c'è il sistema di farla uscire in modo da ottenere il comportamento atteso da chi non usa il mouse?Si è vero anche quà al mio punto di vista va bene così, basta mettere dei controlli per uscire dal focus della griglia, premendo un tasto a scelta tipo che ne so.. F2
Perché non hai messo il codice fra cancelletti? Voi anziani dovete dare l'esempio
Public Sub TableView_KeyPress()
Dim i As Integer
Select Case Key.Code
Case Key.Right, Key.Left, Key.Return, Key.Enter
If TableView1.Column = $colCheck - 1 Or $colCheck + 1 Then
$bNoEvent = True
Endif
Case Key.Tab
Stop Event
Desktop.SendKeys("\n")
Case Key.BackTab
Stop Event
If TableView1.row = 0 And TableView1.Column = 0 Then
Return
Endif
i = TableView1.Column
If TableView1.Column = 0 Then
i = TableView1.Columns.Max + 1
TableView1.Row = TableView1.Row - 1
Endif
If TableView1.Column = $colCheck + 1 Then
$bNoEvent = True
TableView1.MoveTo(TableView1.Row, i - 2)
Else
TableView1.MoveTo(TableView1.Row, i - 1)
Endif
TableView1.Edit
End Select
End
abbiamo fatto un passo avanti. adesso lo legge. però sulla lettura ho il problema iniziale. omette il primo numero e si inventa l'ultimo!intendi che lo stampa corretto ma quando lo leggi con la pistola trasla a dx tutto il codice?
barcode = Right(String(length - 1, "0") & barcode, length - 1)
' Else If (Not _TestCheckDigit(barcode)) ThenSembra funzionare.. sembra perchè come ti ho detto non conosco i codici a barre.
' Error.Raise("Incorrect check digit")