Newsgroup: it.comp.lang.visual-basic
Titolo: vb.net componente per visualizzazione planner

Salve a tutti,
sto creando un'applicazione nella quale ho la necessità di visualizzare dei 
dati divisi per giorno in una vista settimanale (stile outlook).. 
vb.net
 mi 
pare non offra un componente di questo tipo... sapete consigliarmene uno? 
magari free... i dati verranno presi da un db ma non riempiro' il componente 
con i dati diretti in quando devo un po' manipolarli...
grazie 1000
D. 

Uno semplice ma che funziona abbastanza bene, free e con sorgenti è:
http://www.codeproject.com/KB/selection/Calendardayview.aspx

 
http://www.codeproject.com/KB/selection/Calendardayview.aspx
Ciao Luca,
sto provando ad utilizzarlo, ma con certi appuntamenti che aggiungo, mi 
visualizza una x sopra il controllo... non riesco a capire cosa ci sia che 
non li piace... ho provato anche a bypassare questi record, ma sembra che ad 
un certo punto non ne voglia piu'... qualche idea?
grazie
D.
 

 un certo punto non ne voglia piu'... qualche idea?
Sinceramente no, lo stiamo usando da un po' e un problema come quello che dici non l'ho mai riscontrato.
Abbiamo fatto qualche modifica al sorgente ma non per correggere cose del genere, così alla ciaca non saprei dirti cosa può essere...

 genere, cosě alla ciaca non saprei > dirti cosa puň essere...
potrei inviarti luca lo spezzone di codice che utilizzo per riempire il 
calendario? Non voglio farti perdere tempo ma magari sai darmi ad occhio 
qualche consiglio?
grazie 1000
D. 

 ha scritto nel messaggio 
news:4dbb...@news.x-privat.org...

Posto qui di seguito il codice. Oltre alla sub che mi riempe il calendario 
ho incollato anche le varie sub che lo gestiscono per completezza:
grazie 1000
D.
Private Sub inizia()
        Dim dr400 As OleDb.OleDbDataReader
        Dim cm400 As OleDb.OleDbCommand
        Dim sql As String
        Dim c As Integer
        Dim m_app As New Calendar.Appointment
        Dim m_date As DateTime = Now
        sql = "SELECT * FROM TABELLA"
        cm400 = New OleDb.OleDbCommand(sql, db400)
        dr400 = cm400.ExecuteReader
        Do While dr400.Read
            Dim a As DateTime = m_date
            Dim b As DateTime = m_date.AddHours(1)
            Dim de40 As String = dr400("CAMPO1")
            Dim i As Integer = 0
            Try
                c = Val(de40)
            Catch
            End Try
            m_date = FUNZIONE1(dr400("CAMPO1"), "Data")
            m_app = New Appointment()
            m_app.StartDate = m_date
            m_app.EndDate = m_date.AddHours(1)
            m_app.Subject = dr400("CAMPO2") & " Nr." & dr400("CAMPO3")
            If FUNZIONE1(dr400("CAMPO1"), "Chiuso") = "C" Then
                m_app.Color = Color.Red
            Else
                m_app.Color = Color.Yellow
            End If
            m_Appointments.Add(m_app)
            DayView1.Invalidate()
Salta:
        Loop
    End Sub
    Private Sub dayView1_ResolveAppointments(ByVal sender As Object, ByVal 
args As ResolveAppointmentsEventArgs)
        Dim m_Apps As List(Of Calendar.Appointment)
        m_Apps = New List(Of Appointment)
        For Each m_App As Calendar.Appointment In m_Appointments
            m_Apps.Add(m_App)
        Next
        args.Appointments = m_Apps
    End Sub
    Private Sub form1_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load
        DayView1.SelectionStart = Now
        DayView1.StartDate = MonthCalendar1.SelectionStart
        AddHandler DayView1.OnNewAppointment, AddressOf 
dayview1_NewAppointment
        AddHandler DayView1.OnSelectionChanged, AddressOf 
dayView1_SelectionChanged
        AddHandler DayView1.OnResolveAppointments, AddressOf 
Me.dayView1_ResolveAppointments
        AddHandler DayView1.MouseMove, AddressOf Me.dayView1_MouseMove
    End Sub
    Private Sub dayview1_NewAppointment(ByVal sender As Object, ByVal args 
As NewAppointmentEventArgs)
        Dim m_Appointment = New Appointment
        m_Appointment.StartDate = args.StartDate
        m_Appointment.EndDate = args.EndDate
        m_Appointment.Subject = args.Title
        m_Appointment.Group = "2"
        m_Appointments.Add(m_Appointment)
    End Sub 

Scusate la mia ignoranza, ho dato uno sguardo a questa applicazione che voi avete suggerito, ma come faccio ad implementarla nel mio progetto 
vb.net
 in modo da poter poi richiamare da codice tutte le funzioni che questa mette a disposizione?