Newsgroup: it.comp.lang.visual-basic
Titolo: Ho quasi finito il mio baby editor

Ciao a tutti, ho quasi portato a termine il progetto Baby Editor, mi manca
solo una cosa. Ho aggiunto una status bar, con tre pannelli, due dei quali
visualizzeranno ora e data e l'ultimo dovrebbe visualizzare il numero di
righe che l'utente ha scritto. Sapete come si fa a fare ciň? Spero di si,
ora vi saluto e alla prossima posterň l'eseguibile dell'editor, sempre che
voi me lo permettete. Ciao!!
Pier Paolo "lupin^^" Soriente - 
hiv...@tin.it

 voi me lo permettete. Ciao!!
Con il metodo GetLineFromChar del RichTextBox
Riga corrispondente alla posizione del cursore:
x = RichTextBox1.GetLineFromChar(RichTextBox1.SelStart) + 1
Numero totale di righe:
x = RichTextBox1.GetLineFromChar(Len(RichTextBox1.Text)) + 1
Mi permetto un piccolo suggerimento (o meglio ti espongo una mia fobia...);
ti prego NON mettere la data e l'ora nella status bar!
E' una delle cose meno utili al mondo ma che mettono tutti perche' e' facile
da implementare: se voglio vedere l'ora sul PC guardo in basso a destra e
generalmente sono abbastanza cosciente da sapere che giorno e' ;-)
Una volta avrei detto lo stesso dei pannelli con lo stato di NUM LOCK, CAPS
LOCK ecc. ma visto che nelle moderne tastiere senza fili hanno pensato bene
di togliere i led per risparmiare le pile forse in futuro torneranno
utili...
Scusami, le piccole fissazioni dell'informatico :-)
--
Luca Dormio
luca....@tin.it

 wrote in message
news:jG4V6.25554$Vk3.2...@news2.tin.it...


A me serve per una text box, non sai come fare? Rsipondimi perfavore. Ciao!!
Pier Paolo "lupin^^" Soriente - 
hiv...@tin.it
Luca Dormio <lucaFAV...@tinFAVA.it> wrote in message
9g2nlk$suv$1...@fe1.cs.interbusiness.it...


 wrote in message
992276014.713033@fire-int...


 righe che l'utente ha scritto. Sapete come si fa a fare ciň? Spero di si,
Devi usare L'API  SendMessage :
Es:
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 RILEVA_NUMERORIGHE = &HBA
Private Sub ContaNumeroRighe()
Dim NumeroRighe     As Long
    NumeroRighe = SendMessage(Text1.hwnd, RILEVA_NUMERORIGHE, 0&, 0&)
    Statusbar.Panel("ID").text = NumeroRighe
End Sub
By Utente Win2k.

Ciao a tutti, ho quasi portato a termine il progetto Baby Editor, mi manca
Cosa fa il tuo BabyEditor?
Saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 242, 152
  VBR - Vero Birro Romagnolo®, diffidate dalle imitazioni!
 Opel/ECC Calibrezio EVO-VI --- Kawasaki "Gas Gas" ZZ-R 1100
 ICQ# 36893168 - IRCNet: bugbarbeq, @ on #linux-it & #NetBSD
   On contrary of popular belief, Unix *IS* user friendly:
    it just appears to be selective who it is friend with

 Ciao a tutti, ho quasi portato a termine il progetto Baby Editor, mi manca
ci dai qualche anticipazione su come e' venuto fuori???
Antonio.

 wrote in message
3B25E922...@tiscalinet.it...


 A me serve per una text box, non sai come fare? Rsipondimi perfavore.
Ciao!!
[SNIP]
Per il textbox devi usare l'API SendMessage con il parametro
EM_GETLINECOUNT... ma scusa non eri gia' passato al RichTextBox per il tuo
editor?!?
Public Declare Function SendMessage Lib "user32" _
 Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
 ByVal wParam As Long, lParam As Any) As Long
Public Const EM_GETLINECOUNT = &HBA
x = SendMessage(Text1.hWnd, EM_GETLINECOUNT, 0&, 0&)
Ciao
--
Luca Dormio
luca....@tin.it

Private Const RILEVA_NUMERORIGHE = &HBA
AAAAAAAHHH!!!
Cos'è quest'aberrazione???
Private Const EM_GETLINECOUNT = &HBA&
Dai un'occhio anche a tutte le const EM_*
Ciao