[.net] apertura e chiusura dei form

[LarsenB]

ho tolto l'opzione "Option Strict -> OFF".

E' cosa buona e giusta...

Ora Locale vuole un valore booleano. L'IDE mi suggerisce di scrivere

CBool(dr("Locale"))

e di conseguenza CShort, Cdate etc....

ma volevo sapere se è corretto

In linea di massima è corretto, purchè tu sia sicuro del tipo di dato contenuto nella tua variabile, perchè altrimenti il cast può fallire con eccezione... se ci sono dubbi (non è deto che il valore così come contenuto su DB sia castabile in maniera trasparente sull'equivalente .NET, vedi ad esempio potenziali campi NULL), è meglio optare per le varie funzioni <tipo di dato>.TryCast a disposizione, che trovi descritte sull guida.

Nel tuo caso specifico, immagino, dal nome, che si stia parlando di un DataReader... se è così allora esistono già funzioni incorporate; basta non usare la sintassi "vecchio stile VB" per leggere i valori, ma quella "lunga"

Quindi, invece di 'dr("Locale")', puoi usare esplicitamente 'dr.GetBoolean(dr.GetOrdinal("Locale"))' e così via per gli altri tipi di dato

E' possibile parametrizzare l'arraylist a "Image"?
Mi sa di no vero?

Non ho capito cosa intendi...

[Frykky]

Sono faticosamente arrivato a 10 errori

La domanda dell'arraylist deriva dal fatto che nell'istruzione

Public ImgArray As New ArrayList

Private Sub cmdPrevImg_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdPrevImg.Click
        Try
            indice = indice - 1
            PictureBox.Image = ImgArray.Item(indice)
            txtImgVisualizzata.Text = indice + 1
        Catch ex As ArgumentOutOfRangeException
            Try
                indice = ImgArray.Count - 1
                PictureBox.Image = ImgArray.Item(indice)
                txtImgVisualizzata.Text = indice + 1
            Catch ex2 As ArgumentOutOfRangeException
                Exit Sub
            End Try
        End Try

lui, giustamente, mi dice che non può convertire da Object a System.Drawing.Image.

Allora pensavo che si potesse parametrizzare l'array list a Image coi Generics.
Li per li scrivevo

Public ImgArray As New ArrayList (Of Image)
ma mi dava errore.

quindi sono andato su msnd e ho visto che quello ceh volevo fare io (previa tua approvazione) si ottiene con

Public ImgArray As New Generic.List(Of Image)

[Angelo]

Da parte di frykky, che nn può postare in quanto bananato

Ciao Larsen,
torno a scassarti

Uso l'account di un mio compare perchè sono stato ingiustamente bannato (lunga storia di flame in Bar Sport :

Ho un problema enorme con i report fondamentalmente perchè non li ho mai usati e non ne vengo a capo (ma come sono facili da fare con Access no?)ù

In questo form chiamato "statistiche" devo interrogare il database per sapere quante sono le chiamate chiuse, quante quelle annullate, quante quelle prese correttamente etc.. e visualizzare tutti i dati in alcune caselle di testo

domanda 1 (facoltativa): io per farlo ho fatto 5 query e 5 txtblabla.text=[mio sqlcommand].executescalar.tostring ma sono più che certo che non è il metodo corretto : :

domanda 2: Voglio stampare questi dati appena presi dal database. Mi sono dunque fatto il mio report.rdlc con tutte le descrizioni dei campi e tutte le caselle di testo pronte per essere riempite (fondamentalmente è la stampa a video del form, stessi campi e stessi nomi).
Ora come cappero faccio a passargli i valori? Giuro che non l'ho capito!

Help

PS Sono ricchione ora posso dirlo

[Lo Special One]

Ti scrivo sempre da un altro account:

Per quanto riguarda la domanda 1 il codice per ora l'ho cambiato così

        Dim da As New SqlClient.SqlDataAdapter()
        Dim dsprova As New DataSet
        Dim dt As New DataTable()

        da.SelectCommand = hSSConn_Command
        da.Fill(dsprova, "Sessioni")
        dt = dsprova.Tables("Sessioni")

        txtTotaleRichieste.Text = dt.Rows.Count.ToString
        txtRichiesteBuonFine.Text = dt.Select("Stato='CL' and Motivo_annullamento = '   '").Length.ToString
        txtRichiesteAnnullate.Text = dt.Select("Motivo_annullamento <> '   '").Length.ToString
        'txtAbort.Text = dt.Select("Stato='AB'").Length.ToString
        txtDIS.Text = dt.Select("Motivo_Annullamento='DIS'").Length.ToString
        txtPER.Text = dt.Select("Motivo_Annullamento='PER'").Length.ToString
        txtTEC.Text = dt.Select("Motivo_Annullamento='TEC'").Length.ToString
        txtTEM.Text = dt.Select("Motivo_Annullamento='TEM'").Length.ToString
        txtWWW.Text = dt.Select("Motivo_Annullamento='WWW'").Length.ToString
        txtAttesaMedia.Text = dt.Compute("AVG(Attesa)", "").ToString
        txtDurataMedia.Text = dt.Compute("AVG(Durata)", "").ToString

meglio?

invece per la 2 ancora nulla :(

[Frykky]

Devo aver raggiunto il limite di sopportazione di LarsenB

[Frykky]

scusate ilo necroposting ma mi spiegate come mai un filesystemwatcher incluso in una form non si chiude se faccio

form.dispose
form.close
form=nothing

?

Me ne sono accorto oggi perchè questa form ha un filesystemwatcher che alla creazione di un file pdf scatena l'evento OnCreated e lo invia via ftp da un'altra parte. Oggi vado a controllare e c'erano file che non ci dovevano essere. Faccio delle prove e mi accorgo che nonostante i 3 comandi prima vengano eseguiti il filesystemwatcher continua a girare anche se l'utente crea un pdf fuori dal programma.

Ho risolto facendo

form.filesystemwatcher1.dispose
 form.filesystemwatcher1..close
 form.filesystemwatcher1.=nothing
form.dispose
form.close
form=nothing

però volevo capire perchè succedere questa cosa