Codice

Codice Vb.Net che scrivo man mano che proseguo nell'apprendimento

Uk Vs2008 Resources

Non voglio mettermi in concorrenza con Raffaele, ma leggendo un pò di post qua e là  ho trovato questo interessante elenco di risorse per Vs2008. Technorati tags: Visual Studio 2008

HyperAddin

Dal blog di Html.IT leggo solo ora di questo interessante Addin per Visual Studio 2005 e 2008.Sicuramente da provare. Technorati tags: Addin, Visual Studio

Regular Expression

Prendo spunto da un mio messaggio sul forum per fare una dolorosa ammissione della mia incapacità nel risolvere un problema con una regular expression che ho cercato di "risolvere" in questi giorni. Secondo alcune richieste la regola di input doveva contenere, tra le altre, il controllo che la stessa non dovesse contenere più di due caratteri consecutivi uguali.La regular expression che ho prodotto per risolvere le altre richieste è la seguente e la posto per risolvere magari a qualcun  altro questa necessità, ed anche con la speranza che qualcuno possa avere un'idea migliore di quella che ho deciso di prendere:controllare l'ultimo requisito da codice..  ... ^.(?=.*\w{8,})(?=.*[.;$!@-])(?!.*\s).*$ La...

Impostare dei checkbox con Crystal Report

Sono due giorni che mi sto dedicando alla reportistica dell'applicativo web aziendale.Per scelte che non voglio sindacare in questa sede, è stato scelto a suo tempo Crystal Report.Mi sono adeguato ed ora eccomi qua a scrivere questa cosetta che mi/vi potrà tornare utile in futuro. Per formattare un campo di tipo boolean di una tabella in modo che compaia un checkbox, selezionato o meno a seconda del valore del campo stesso, sembra non esiste altro modo, in Crystal Report, che di creare un campo formula contenente il seguente snippet: If {Table.CampoBoolean} = True ThenFormula = Chr(84)ElseFormula= Chr(163)end if Impostare il tipo di formula con...

Crystal Report Odissey

Senza parafrasare nessun titolo fantascientifico specifico, volevo segnalare che grazie a questo post , e dopo aver girovagato una giornata sul sito della Business Object, sono riuscito a fare il deploy di un applicativo web su un server in produzione e... miracolo ( è il caso di dirlo dopo svariate peripezie).. funziona!!. Il problema che mi si era presentato era identico a quello discusso nel post, quindi non aggiungo altro.

Video su Asp.Net

Aggiungerei al precedente post il link alla sezione video di asp.net, alcune cose sono molto interessanti secondo me, vedi ad esempio la sezione di migrazione da altre tecnologie verso asp.net... basta, per oggi non vi disturbo più.. powered by IMHO 1.3

Tip from Scott on Database Deployment

Ho iniziato un paio di anni fa la programmazione su Web in senso assoluto, ma ho subito capito che il suo blog va seguito "for ever"..  Sto esagerando? (beh ho anche i miei miti nostrani.. Lorenzo,Igor, Corrado, Raf,Adrian,aiut.. non ho + spazio.. gli altri non me vogliano ma ci sono tutti..) Interessante questo tip, ma direi tutta la serie. powered by IMHO 1.3

Validatore xml

Avevo la necessità, in un progetto 2005, di controllare se un documento xml generato in base ad uno schema, fosse well-formed, così, per non farlo direttamente su http://www.xmlforasp.net/SchemaValidator.aspx dove avevo trovato un validatore on-line, ho pensato di provare a fare qualcosa del genere in VB2005. Ho creato così una classe il vb2005 ed ho notato che in effetti qualcosa è cambiato rispetto alla precedente versione, che qui ho commentato Imports System.XmlPublic Class XMLImport    Public XMLError As String    Private Sub XMLEvent(ByVal sender As Object, ByVal e As System.Xml.Schema.ValidationEventArgs)        XMLError += (e.Message & vbCrLf)    End Sub    Public Function LoadXMLData(ByVal XMLData As String, ByVal XSDSchema As String) As Boolean        XMLError = String.Empty        'Crea il documento XML utilizzando il codice passato in XMLData        Dim MyXMLDocument As New System.Xml.XmlDocument        Dim MyXSDTextReader As New System.IO.StringReader(XSDSchema)        'crea lo schema con l'handler all'evento di validazione che mi interessa        Dim MyXMLSchema As System.Xml.Schema.XmlSchema = System.Xml.Schema.XmlSchema.Read      (MyXSDTextReader, New System.Xml.Schema.ValidationEventHandler(AddressOf XMLEvent))        Dim MyXMLTextReader As New System.IO.StringReader(XMLData)        MyXMLDocument.Load(MyXMLTextReader)        MyXMLDocument.Schemas.Add(MyXMLSchema)        MyXMLDocument.Validate(New System.Xml.Schema.ValidationEventHandler(AddressOf XMLEvent))       'Obsolete(framework 1.1):         'Dichiara l'XML Reader        'Dim Myreader As XmlReader = XmlReader.Create(MyXMLTextReader)        ''Myreader.Settings.ValidationType = ValidationType.Schema        'Myreader.Settings.Schemas.Add(MyXMLSchema)        'Dim MyXMLValidatingReader As New System.Xml.XmlValidatingReader(MyXMLTextReader)        'MyXMLValidatingReader.Schemas.Add(String.Empty, XSDSchema)        'MyXMLValidatingReader.ValidationType = System.Xml.ValidationType.Schema        'MyXMLDocument.CreateDocumentFragment()        'MyXMLSchema.SourceUri = XSDSchema    End Function    Public Sub Dispose()        MyBase.Finalize()    End SubEnd Class Per provarlo :     Private Sub FormXmlValidator_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        LoadFile()    End Sub    Private Sub Validate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Validate.Click        'dichiaro la classe XmlImport        Dim Myreader As New XMLImport        'richiamo il metodo a cui passare i due parametri stringa precedentemente caricati in due textbox        Myreader.LoadXMLData(txtxml.Text, txtXsd.Text)        'controllo se il reader contiene errori di validazione        If Myreader.XMLError <> String.Empty Then            MessageBox.Show(Myreader.XMLError, "Importazione Xml", MessageBoxButtons.OK, MessageBoxIcon.Error)        Else            MessageBox.Show("Documento Xml Well-Formed", "Importazione Xml", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)        End If    End Sub    Public Sub LoadFile()        'legge il file xml        Dim MyfileXml As New System.IO.StreamReader("xsd\sidocup.xml", True)        txtxml.Text = MyfileXml.ReadToEnd        MyfileXml.Close()        'legge il file xsd        Dim MyfileXsd As New System.IO.StreamReader("xsd\sidocup.xsd", True)        txtXsd.Text = MyfileXsd.ReadToEnd        MyfileXsd.Close()    End Sub Magari ha bisogno di essere perfezionato o forse ci sono altri metodi più veloci, ma per i miei scopi è andato più che bene. Attendo critiche e insulti powered by IMHO 1.3

Content-type is dead

Personalmente ci sono incappato in più di qualche occasione, ma se lo dice lui..ci possiamo credere. Fonte: blog Ian Hickson powered by IMHO 1.3

The Design Guidelines

Interessantissima disquisizione sul blog di Cwalina : http://blogs.msdn.com/kcwalina/default.aspx powered by IMHO 1.2

Array in Net

Per non perder l'abitudine ad usare il mio blog come bloG-notes memorizzo questa funzione che mi è servita per fare la copia di un intero archivio..(in attesa che imparo le mostruose funzionalità offerte da XML in Net). 'array bidimensionale , che ha come prima dimensione il numero di righe del datasetDim __MyArray as Array = Array.CreateInstance(GetType(Integer), MyDataSet.Tables("Data").Rows.Count, 1)'per scorrere l'insieme posso usare il metodo For Each (Integer) in __Myarray oppure   Public Function RetrieveNewId(ByVal IdOld As Integer, ByVal IdArray(,) As Integer) As Integer        'Questa funzione estrae il valore della seconda dimensione dell'array        'In Input passo il valore della prima dimensione da cercare.        'presuppongo che inserisco nel primo livello solo la IdOld e nel secondo livello la newid        'es.         'myarray(0, 0) = 2048 (old)        'myarray(0, 1) = 334  (new)        'myarray(1, 0) = 2356 (old)         'myarray(1, 1) = 230  (new)         'MsgBox(RetrieveNewId(2048, myarray))        Dim MyVCounterPrimoLivello, MyVCounterSecondoLivello As Integer        Dim z As Integer = IdArray.GetLowerBound(0), j As Integer = IdArray.GetLength(1)        For MyVCounterPrimoLivello = IdArray.GetLowerBound(0) To IdArray.GetUpperBound(0)            For MyVCounterSecondoLivello = IdArray.GetLowerBound(1) To IdArray.GetUpperBound(1)                If IdArray.GetValue(MyVCounterPrimoLivello, MyVCounterSecondoLivello) = IdOld Then                    'se lo trovo prendo il secondo livello                    Return IdArray.GetValue(MyVCounterPrimoLivello, MyVCounterSecondoLivello + 1)                End If            Next        Next    End Function Spero non vi mettiate a ridere, ma pian piano cerco di affinare le tecniche anche grazie ai preziosi consigli dei bloggers di UgiDotnet. P.S. Non me ne vogliano gli altri ma i  miei preferiti sono Andrea e  Lorenzo. powered by IMHO 1.2

Ricerca controllo in un container

Mi sono imbattuto ieri nella necessità di vedere se esiste un controllo in un container ( nel mio caso una page aspx) e ho provato a migrare la funzione in ambito win32..chissà se esiste un metodo migliore.. Public Function FindControl(ByVal objControl As Control, ByRef objContainer As Object) as boolean        Dim MyControlsArray As New ArrayList        Dim i As Integer        Try            For i = 0 To objContainer.controls.count - 1                Dim MyControl As Object = objContainer.Controls.Item(i)                If MyControl.Name = objControl.Name Then                    Return True                End If                If MyControl.Controls.Count > 0 Then                    MyControlsArray.Add(MyControl)                End If            Next            If MyControlsArray.Count > 0 Then                Dim MyArrayPosed As New ArrayList               ...

ESPLORAZIONE USO DEI DELEGATE

PROVA USO DELEGATE 'Prova uso delegatedelegate sub Pippo(byval pluto as string)dim deleg as  Pippo = new pippo(addressof Messaggio)sub Messaggio (byval msg as string)    Messagebox.Show (msg)end sub'richiamo deleg("Bravo")

Estrazione dello schema di una tabella usando i datareader

Ho trovato un modo alternativo al metodo GetOledbSchema di OledbConnection.Penso che lo utilizzerò per la classe che sto costruendo per l'accesso ai database : Public Function GetDataFromReader(ByVal cn As OleDbConnection, ByVal tabella As String, ByVal ls As ListBox) Dim cmd As New OleDbCommand Dim schemaTable As DataTable Dim myReader As OleDbDataReader Dim myField As DataRow Dim myProperty As DataColumn cn.Open() cmd.Connection = cn cmd.CommandText = "SELECT * FROM " & tabella myReader = cmd.ExecuteReader() 'Retrieve column schema into a DataTable. schemaTable = myReader.GetSchemaTable() 'For each field in the table... For Each myField In schemaTable.Rows 'For each property of the field... For Each myProperty In schemaTable.Columns 'Display the field name and value. If myProperty.ColumnName = "ProviderType" Then Dim tipo As...

Inizio apprendimento Vb Net

Sarà dura a sentire molti miei colleghi più fortunati che hanno iniziato prima di me, però sono deciso ! Dopo aver visto alcune potenti funzionalità che mi hanno affascinato : i Delegate , la gestione del subclassing così macchinosa in Vb6, e la fantastica realtà che finalmente TUTTO è un oggetto!Proseguo nell'esplorazione ..

«aprile»
domlunmarmergiovensab
31123456
78910111213
14151617181920
21222324252627
2829301234
567891011