settembre 2005 Blog Posts

Intercettare il click sulla RowHeader Di una DataGrid con VB.NET

Il click sulla RowHeader è un evento definito "Protected" per cui per intercettarlo normalmente bisognerebbe definire una nuova classe che eredita da DataGrid e fare quindi l'override del gestore del comando.   Per ottenere il medesimo risultato senza dover ereditare da DataGrid è possibile percorrere un'altra strada resa possibile dalla presenza della classe HitTestInfo.   Si cominicia con l'aggiungere l'evento click alla DataGrid (nel mio esempio dataGrid1)   AddHandler Me.dataGrid1.Click, AddressOf Me.DataGrid1Click   Ed il relativo gestore:   Private Sub DataGrid1Click(sender As System.Object, e As System.EventArgs)    Dim pt As Point = DataGrid1.PointToClient(Cursor.Position)    Dim hti As DataGrid.HitTestInfo = DataGrid1.HitTest(pt)        MessageBox.Show(hti.Type.ToString) 'oggetto clicccato        If hti.Type = DataGrid.HitTestType.RowHeader Then           MessageBox.Show("Beccato")        End If End Sub   L'esempio...

GetVolumeInformation con C# e VB.NET

Ho sviluppato questa classe wrapper per il recupero delle informazioni relative a:   Nome Volume Tipo Volume Numero di Serie del Volume Dimensione massima di un elemento in caratteri Indicatori (flags) del Volume   Versione per C# Versione per VB.NET  

Creare una nuova scadenza su Outlook tramite automazione con VB.NET

Questa piccola classe esemplifica come si può creare una nuova scadenza su Outlook con VB.NET.   E' stata predisposta per generare un appuntamento di un'ora a partire da una certa data con il promemoria 15 minuti prima dell'inizio dell'appuntamento.   Naturalmente tutti questi parametri (e anche altri!) possono essere impostati e/o personalizzati in altri modi.   ' ' Created by SharpDevelop. ' User: Luciano ' Date: 08/09/2005 ' Time: 22.35   Imports System   Namespace CreateScadenzeOutlook         Public Class WrapperOutlook                   Public Sub New()             End Sub           Public Shared Sub CreaScadenza(pData As Date, pOggetto As String, pBody As String, pLocation As String)                   Dim olApp As New Outlook.ApplicationClass                   Dim olName As outlook.NameSpaceClass                   olName = olApp.GetNamespace("MAPI")                   Dim olAppt As...

Quesito informatico 3 Settembre 2005

Un piccolo problema informatico   Dati una serie di elementi ciascuno riportante:   Data inizio Data fine Quantità   Il problema da risolvere è il mettere insieme i frammenti in modo tale che alla fine ne risulti una serie elementi con la sommatoria delle quantità per i periodi indicati. Esempio partendo da una serie:   Data inizio Data fine Quantità 01/01/2005 31/12/2005 2 01/01/2005 31/03/2005 1 01/03/2005 30/04/2005 1 01/09/2005 27/12/2005 1   Ne risulti una serie come questa (spero di non avere sbagliato a calcolarla) e cioè con tutte le quantità riferite alle date inizio / fine.   Data inizio Data fine Quantità 01/01/2005 28/02/2005 3 01/03/2005 31/03/2005 4 01/04/2005 30/04/2005 3 01/05/2005 31/08/2005 2 01/09/2005 27/12/2005 3 28/12/2005 31/12/2005 2     Vorrei avere delle proposte di algoritmi per la soluzione del problema. Le risposte nel linguaggio di programmazione che più vi aggrada. Provvederò a pubblicare le soluzioni e i riferimenti...

Copyright © Luciano Bastianello

Design by Bartosz Brzezinski

Design by Phil Haack Based On A Design By Bartosz Brzezinski