Newsgroup: it.comp.lang.visual-basic
Titolo: Conteggio dati

Ciao,
ho creato in VB6 una casella di testo multiline nella quale importo i
dati di una bilancia.
vorrei creare una textbox che mi faccia vedere quanti dati ho
inserito, ma non trovo il
codice esatto... una sorta di Conteggio (MiaTextBox)
vorrei anche se non chiedo troppo, far posizionare il focus sempre
sull' ultimo valore
ricevuto dalla bilancia.
grazie
Marco

 ricevuto dalla bilancia.
Sempre ammesso che l'ipotesi iniziale sia giusta, immagino tu adesso
aggiunga il testo con qualcosa di simile:
TextBox1.Text = TextBox1.Text & vbCrLf & NuovaRiga
Usando invece
TextBox1.SelStart = TextBox1.Lenght
TextBox1.SelText = NuovaRiga & vbCrLf
dovresti ottenere l'effetto che chiedi, e contemporaneamente anche
ridurre lo sfarfallio del campo, quando i dati sono molti


Domani provo e ti dico.
So che qui non si fornisce il codice già pronto, ma mi puoi dare un
indizio
sulla variabile contatore per favore?
grazie ancora
Marco

 ha scritto nel messaggio 
news:0e709d11-e842-47ff...@d12g2000vbr.googlegroups.com...

Per quello che serve a Te � meglio utilizzare l'oggetto ListBox che mantiene 
i dati
acquisiti distinti e con proprio indice, inoltre puoi far visualizzare 
l'ultimo elemento
inserito molto facilmente.
Il codice per questo impiego � semplice
se hai problemi chiedi pure
saluti
JS 

Ciao,
per l' inserimento dei dati da bilancia il codice è questo :
Private Sub tmrReceive_Timer()
' effettua una lettura periodica dalla
' porta seriale, usando un buffer di 10 byte;
' trasferisce inoltre il contenuto del buffer in una text box.
Const BufferLen = 10
Dim ReceivedBytes As Long
Dim Buffer(1 To BufferLen) As Byte
Dim i As Long
Dim fSuccess As Integer
Dim ferror As Integer
' legge dalla porta seriale; in particolare, imposta a 0 (NULL)
' l'ultimo parametro della ReadFile, poiche' la comunicazione
' sara' sincrona (non overlapped)
fSuccess = ReadFile(hCom, Buffer(1), BufferLen, ReceivedBytes, 0)
If (fSuccess <> 0) Then
If ReceivedBytes <> 0 Then
For i = 1 To ReceivedBytes
txtReceive = txtReceive & Chr(Buffer(i))
Next i
End If
Else
ferror = Err.LastDllError
' gestione errore
End If
End Sub
E' qui che devo mantenere il focus sull' ultimo dato inserito...

 JS
Mi sa che mi devi mandare un piccolo esempio...


Aggiungi una ListBox e prova:
'...........
    For i = 1 To ReceivedBytes
        List1.AddItem Chr(Buffer(i))
    Next
    Msgbox List1.ListCount
    MsgBox List1.List(List1.ListCount -1)
'...........
-- 
---------------------------
Mauro Gamberini
Microsoft MVP - Excel
http://www.riolab.org/
http://www.maurogsc.eu/
http://social.answers.microsoft.com/Forums/it-IT/officeexcelit/threads
 
__________ Informazioni da ESET NOD32 Antivirus, versione del database delle firme digitali 5070 (20100428) __________
Il messaggio � stato controllato da ESET NOD32 Antivirus.
www.nod32.it

 ha scritto nel messaggio 
news:0e709d11-e842-47ff...@d12g2000vbr.googlegroups.com...

Per contare il numero di linee in un textbox multilinea senza usare n� 
contatori n� cicli for:
Private Declare Function SendMessage Lib "user32" _
   Alias "SendMessageA" _
  (ByVal hwnd As Long, _
   ByVal wMsg As Long, _
   ByVal wParam As Long, _
   lParam As Any) As Long
Private Const EM_GETLINECOUNT = &HBA
...
NumeroLinee = SendMessage(MiaTextBox.hwnd, EM_GETLINECOUNT, 0&, ByVal 0&)
(Tratto da 
http://vbnet.mvps.org/index.html?code/textapi/txboxlines.htm
)
Funziona anche con i richtextbox.
Ciao
Raf
 

 Mi sa che mi devi mandare un piccolo esempio...
http://programmazione.html.it/guide/lezione/1391/i-controlli-listbox-e-combobox/
E' semplicissimo come funziona.

 E' semplicissimo come funziona.
Ok, domani se ho tempo provo...
grazie
Marco