| |
| GUIDE |
| |
| 01/05/2007 |
| Outlook Express |
| Configurazione del famoso gestore di posta passo per passo. |
| Matteo |
| ______________________ |
| |
| 01/05/2007 |
| Excel |
| Una guida per poter utilizzare il famoso foglio elettronico Microsoft in Visual Basic .Net. |
| Matteo |
| ______________________ |
| |
| 01/05/2007 |
| Open Office.org |
| Una guida per poter utilizzare il famoso foglio elettronico open source in Visual Basic .Net. |
| Matteo |
| ______________________ |
| |
| 01/05/2007 |
| FreePops |
| Configurazione di Freepop, utilissima utility per Outlook Express. |
| Matteo |
| ______________________ |
|
| Programmare OpenOffice.org |
| |
Nel seguente documento si analizzerà il codice necessario per creare un foglio
elettronico e formattarlo in maniera adeguata. |
| |
Innanzi tutto si devono dichiarare delle variabili come object che poi utilizzeremo
per poter creare il nostro foglio elettronico. |
| |
| Dim starServiceManager, starDesktop, oCalc, oSheet As Object |
| |
Ora creiamo il foglio elettronico. |
È molto importante il primo valore della terza funzione (“private:factory/scalc”) perché
in base a quello verrà aperto un file di calcolo, se anziché “scalc” ci fosse stato “swriter”
si sarebbe aperto un documento di video scrittura. |
| |
'creo il servizio OpenOffice
starServiceManager = CreateObject("com.sun.star.ServiceManager")
'creo il desktop (è come cliccare sull'icona di openoffice)
starDesktop = starServiceManager.CreateInstance("com.sun.star.frame.Desktop")
'apro il file di openoffice
oCalc = starDesktop.loadComponentFromURL(private:factory/scalc", "_blank", 0, args)
'creo il foglio elettronico vero e proprio
oSheet = oCalc.Sheets.getByName(oCalc.currentcontroller.activesheet.name)
|
| Per questo esempio formatteremo il foglio in modo che abbia la prima cella delle prime 10 colonne di colore rosso con testo bianco grassetto. Da notare il fatto che gli indici della cella settano prima la colonna e poi la riga al contrario di quanto accade in Excel. |
| |
For i = 0 To 10
oSheet.getcellbyposition(i, 0).cellbackcolor = 3
oSheet.getcellbyposition(i, 0).charcolor = 2
oSheet.getcellbyposition(i, 0).charheight = Sheet.getcellbyposition(i, 0).charheight + 1
oSheet.getcellbyposition(i, 0).charweight = 200
Next
|
| |
| Se hai bisogno di maggiori informazioni o hai trovato delle inesattezze segnalacele |
|
|
|