.Net

Nel meraviglioso mondo di SharePoint!

Francesco Geri — Thu, 03 Jul 2008 10:59:30 GMT

Problema:

Se da codice imposto una proprietà di tipo data+ora di un documento contenuto in una Document Library di SharePoint mi ritrovo un valore diverso da quallo impostato. In particolare ho uno sfasamento di un'ora o due.

Soluzione:

Certo, direte voi, devi usare le date in formato UTC.

Allora vediamo coda succede in 2 casi, cioè se il file esiste e modifico la sua proprietà, oppure se il file è creato nuovo e la proprietà assegnata all'upload.

L'esempio suppone che:

ci sia un documento all'url http://myServer/mySite/myDocLib
la document library che contiene quel documento abbia una proprietà di nome myDateTimeProp

Il codice di esempio (inserito in un qualche button click) esegue l'update della proprietà del documento esistente, poi crea un nuovo documento (con il contenuto del precedente) assegnandogli un certo valore della proprietà di tipo Data.

Si noti che nel primo caso (update) si deve usare la data nel suo formato normale, nel secondo la si deve convertire in formato UTC.

Ogni altra combinazione non sembra funzionare.

    1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2     ' Esegue l'update della data:
    3     Dim urlDoc As String = "http://myServer/mySite/myDocLib/myDoc1.tif"
    4     Dim objSite As SPSite = Nothing
    5     Dim objWeb As SPWeb = Nothing
    6     Try
    7       Me.Cursor = Cursors.WaitCursor
    8       ' Crea gli oggetti SPSite ed SPWeb 
    9       objSite = New SPSite(urlDoc)
   10       objWeb = objSite.OpenWeb
   11       '' Cerca la document library
   12       Dim objItem As SPListItem = objWeb.GetListItem(urlDoc)
   13       objItem.Item("myDateTimeProp") = Now
   14       objItem.Update()
   15       Dim stream As IO.Stream = objItem.File.OpenBinaryStream()
   16       Dim props As New Hashtable
   17       props.Add("myDateTimeProp", Now.ToUniversalTime)
   18       objItem.File.ParentFolder.Files.Add("myDoc2.tif", stream, props)
   19       stream.Dispose()
   20     Catch ex As Exception
   21       MessageBox.Show(ex.ToString)
   22     Finally
   23       If Not objSite Is Nothing Then objSite.Dispose()
   24       If Not objWeb Is Nothing Then objWeb.Dispose()
   25       Me.Cursor = Cursors.Default
   26     End Try
   27   End Sub
 
Considerazioni finali
Si tratta di una mia personalissima ipotesi, ma secondo me i team di sviluppo della funzionalità di update e di quella di addnew sono distinti, separati e non comunicanti.

Testo che scompare dalle textbox multilinea in Windows Vista

Francesco Geri — Wed, 02 Jul 2008 07:08:39 GMT

Ho riscontrato in una mia applicazione uno strano comportamento.

Il testo di una textbox multilinea scompariva e riappariva passandogli sopra con il mouse. Oltre ad essere multilinea aveva anche una scrollbar verticale ed era inserita in un controllo SplitContainer che a sua volta era all'interno di una TabPage. Il comportamento si verificava solo con Windows Vista.

Per riprodurre il problema è sufficiente creare una applicazione Windows Forms, mettere un TabControl, dentro ad un suo TabPage mettere uno SplitContainer, dentro ad un pannello dello SplitContainer mettere un Textbox multilinea con Scrollbar verticale. Natuaralmente bisogna essere su un sistema con Windows Vista (su XP tutto OK...)

A questo punto basta mandare in esecuzione, scrivere del testo nella textbox muovere un po' il mouse ed osservare il comportamento.

Per risolvere il problema mi viene in auto questo post, in cui si suggeriscono due vie:

Impostare a False la proprietà UseVisualStyleBackColor del TabPage

Me.TabPage1.UseVisualStyleBackColor = False
Sostituire la textbox con una RichTextBox
Impostare la proprietà Backcolor del TabPage ad un valore diverso da Trasparent (nuova soluzione indicatami da Riccardo)

Da notare che per la prima soluzione occorre impostare la proprietà da codice, per esempio nella load della pagina, in quanto se la si imposta dalla finestra delle proprietà del TabPage la modifica non viene recepita da Visual Studio (succederà solo a me?).

Inoltre la prima soluzione funziona per l'esempio che ho proposto sopra, ma evidentemente non funziona sempre. Tant'è che per la mia applicazione originale non ha funzionato! Per cui ho adottato la seconda.

Tutte le soluzioni hanno delle conseguenze grafiche, nel senso che modificano l'aspetto originale della form (nel primo caso lo sfondo del TabPage diventa grigetto, nel secondo il bordo della RichTextBox ha una profondità più marcata rispetto a quello del textbox, nel terzo si deve impostare un colore di sfondo) per cui nessuna delle tre è "perfetta". Tuttavia meglio di niente...

Open XML Format SDK

Francesco Geri — Fri, 18 Apr 2008 06:45:52 GMT

Pubblicato l'Open XML Format SDK (April CTP):

http://www.microsoft.com/downloads/details.aspx?FamilyId=AD0B72FB-4A1D-4C52-BDB5-7DD7E816D046&displaylang=en

Mentre la versione online dell'SDK è all'indirizzo:

http://msdn2.microsoft.com/en-us/library/bb448854.aspx

Fonte: Erika Ehrli

Trasformazione di un file XML in un file HTML tramite un XSLT

Francesco Geri — Wed, 02 Apr 2008 14:55:08 GMT

La trasformazione via codice di un file XML in HTML tramite file XSLT è molto semplice (cito liberamente da MSDN):

' Load the style sheet.
Dim xslt As New XslCompiledTransform()
xslt.Load("output.xsl")
        
' Execute the transform and output the results to a file.
xslt.Transform("books.xml", "books.html")

Il codice riportato lavora su file fisici, messi da qualche parte.
Se però non si vuole sfruttare il file system, si può usare una funzione come la seguente, che consente di fare la trasformazione senza aver file fisici in gioco.

  Function TransformXML(ByVal xDoc As Xml.XmlDocument, ByVal xsltText As String) As String
    ' Carica l'xslt
    Dim xslt As New Xml.Xsl.XslCompiledTransform()
    Dim xsltStringReader As New IO.StringReader(xsltText)
    Dim xsltXmlReader As New Xml.XmlTextReader(xsltStringReader)
    xslt.Load(xsltXmlReader)
    ' Crea il reader per l'XML in XDOC
    Dim xDocStringReader As New IO.StringReader(xDoc.OuterXml)
    Dim xDocXmlReader As New Xml.XmlTextReader(xDocStringReader)
    ' Crea il writer per l'html
    Dim htmlStringBuilder As New Text.StringBuilder()
    Dim htmlStringWriter As New IO.StringWriter(htmlStringBuilder)
    Dim htmlXmlReaderWriter As New Xml.XmlTextWriter(htmlStringWriter)
    ' Esegue la trasformazione
    xslt.Transform(xDocXmlReader, htmlXmlReaderWriter)
    ' Retuisce il contenuto html
    Return htmlStringBuilder.ToString()
  End Function

Deserializzazione di un oggetto complesso passato come parametro in un WebMethod

Francesco Geri — Mon, 17 Mar 2008 14:40:58 GMT

Se in un WebMethod si passa come parametro un oggetto complesso si può ottenere un errore del tipo: System.Web.Services.Protocols.SoapException: System.Web.Services.Protocols.SoapException: Server was unable to process request. ---> System.InvalidOperationException: There was an error generating the XML document. ---> System.InvalidOperationException: A circular reference was detected while serializing an object of type MyObjectType. at System.Xml.Serialization.XmlSerializationWriter.Writ

Componente PageSetupDialog

Francesco Geri — Fri, 22 Feb 2008 11:28:38 GMT

Il componente PageSetupDialog ha un baco (noto) per cui se (nel computer) le impostazioni di misura sono quelle metriche i valori dei margini impostati vengono convertiti in pollici, e quindi diminuiti.

In pratica, se si esegue la ShowDialog del componente l'utente può imposta il valore 10 per il margine sinistro, preme ok e voi dalla vostra applicazione leggete che ha impostato 3,9!

Il problema è descritto nell'articolo: http://support.microsoft.com/?id=814355

Per ovviare a questo inconveniente possiamo modificare la chiamata alla ShowDialog del componente nel modo seguente:

    1 Imports System.Drawing.Printing
    2 
    3 Public Class Form1
    4 
    5   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    6   Handles Button1.Click
    7     ' Inizializza la proprietà PageSettings 
    8     Me.PageSetupDialog1.PageSettings = New PageSettings
    9     ' Apre la finestra delle impostazioni della pagina
   10     Me.PageSetupDialog1.ShowDialog(Me)
   11     '============================================================
   12     ' Commentare il seguente IF per vedere la differenza
   13     '============================================================
   14     ' Esegue la coversione se il sistema corrente è metrico
   15     If System.Globalization.RegionInfo.CurrentRegion.IsMetric Then
   16       Me.PageSetupDialog1.PageSettings.Margins = _
   17       PrinterUnitConvert.Convert(Me.PageSetupDialog1.PageSettings.Margins, _
   18       PrinterUnit.ThousandthsOfAnInch, PrinterUnit.HundredthsOfAMillimeter)
   19     End If
   20     ' Riapre la finestra delle impostazioni
   21     Me.PageSetupDialog1.ShowDialog(Me)
   22   End Sub
   23 
   24 End Class
 

Excel VBA e Regional Settings

Francesco Geri — Tue, 19 Feb 2008 14:46:20 GMT

Il collega Osvaldo mi ha segnalato oggi che una nostra applicazione che si interfaccia con Excel tramite VBA generava il seguente errore:

System.Runtime.InteropServices.COMException (0x80028018): Old format or invalid type library. (Exception from HRESULT: 0x80028018 (TYPE_E_INVDATAREAD))

Indagando sulla cosa abbiamo visto che l’errore si verifica quando sulla macchina in cui gira l'applicazione c’è office in una lingua (es English) e le regional settings in un’altra (es. italiano).

Per risolvere il problema è sufficiente cambiare le regional settings e metterle nella lingua di excel.

Se questa soluzione non ci piace possiamo intervenire sul codice.

Se la nostra applicazione l'abbiamo già venduta e non vogliamo rilasciare la patch possiamo optare pe la terza soluzione: si può installare il Multilingual User Interface Pack per la versione speficica di office.

L’articolo che descrive e risolve il problema è il seguente:

http://support.microsoft.com/default.aspx?scid=kb;en-us;320369

Add-in per VS2005 : Collapse di una qualunque regione di codice

Francesco Geri — Thu, 14 Feb 2008 08:51:40 GMT

Oggi ho installato un add.in per VS 2005 con cui posso finalmente comprimere il codice come mi pare! Evviva! Questo è il link: http://submain.com/default.aspx?nav=products.smartoutline [...]

Documenti Word: Update del valore di custom properties inserite in Header e Footer

Francesco Geri — Mon, 17 Dec 2007 15:30:47 GMT

Definendo in un documento Word delle custom properties è poi possibile inserirne i valori nel contenuto del documento. Il seguente codice può essere utilizzato per aggiornare in automatico le custom properties ed il contenuto del documento: [vai al post]

Da oggi al cinema: "Non Usare KeyUp!" - sottotitolo: oggi ce l'ho con la Microsoft!

Francesco Geri — Wed, 05 Dec 2007 17:09:29 GMT

Ragazzi, oggi la mia stima nei confronti della Microsoft è un po' calata.

Dopo essermi lamentato della prepotenza di outlook, ora mi trovo a dovermi lamentare anche della gestione eventi di VB.NET.

Provate a mettere una bella textbox (con nome TextBox1) in un form e scrivere questo codice:

   1:     Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp

   2:        If e.KeyCode = Keys.Return Then

   3:           MessageBox.Show("Premuto invio")

   4:        End If

   5:     End Sub

Poi mandate in esecuzione, portate il focus sulla textbox e premete invio. Compare il messagebox, ri-premete invio per chiuderlo e TAC! Ricompare il messagebox.

Dunque, succede che la pressione del tasto "invio" mentre è attiva la finestra del messagebox scatena la gestione dell'evento di click sul pulsante (che chiude la fistra) e mette in coda l'evento di keyup. Questo evento viene spedido sul controllo attivo ovvero a textbox1 (dal momento che la messagebox è già chiusa e quindi non se lo può gestire).

Ci sarà una spiegazione a tutto questo, ma non voglio nemmeno saperla. Secondo me questo funzionamento non è quello che ci si aspetterebbe!

Comunque se vi capita una situazione del genere poteve ovviare al problema usando l'evento KeyDown o KeyPress al posto di KeyUp. L'importante è NON USARE KEYUP!