[VB 2005-2008] Controllo PrintForm

Colgo la palla al balzo di una richiesta passata nel forum dedicato a VB & .NET. In particolare si chiede come si può fare in VB 2005 a stampare un form.

Visual Basic/Studio 2005 non offrono un controllo standard per stampare un form, come si poteva fare direttamente in VB 6.0. Tuttavia potete scaricare il Visual Basic Power Pack e, dopo averlo installato, tra i vari controlli aggiuntivi troverete anche il controllo PrintForm che permette di stampare un form su stampante, in anteprima o su file.

Il VBPP si può scaricare da qui:

Microsoft Visual Basic 2005 Power Packs 2.0
http://www.microsoft.com/downloads/details.aspx?FamilyID=92faa81e-e9c1-432c-8c29-813493a04ecd&displaylang=en

Microsoft Visual Basic Power Packs 3.0
http://msdn.microsoft.com/en-us/vbasic/bb735936.aspx

Una volta che avrete aggiunto il controllo PrintForm sul vostro form, potete, per esempio, utilizzare la seguente istruzione per vedere il form in anteprima di stampa (previa impostazione della proprietà PrintAction a PrintPreview:

PrintForm1.Print()

La proprietà PrintAction può essere impostata a PrintToPrinter o a PrintToFile, rispettivamente per inviare la stampa alla stampante o a un file specificato dalla proprietà PrintFileName.

Annunci

Pubblicato il 1 dicembre 2008 su Novità. Aggiungi ai preferiti il collegamento . 2 commenti.

  1. Salve,
    Mi chiamo Egidio ho quindici anni e sono un programmatore in erba. Ho iniziato a programmare sul tuo libro Vb 2008 insegnato a mia nonna. Mi chiedevo se esiste un estensione per visual basic che mi permette di avere un button che quando passo col mouse si illumina di verde, rosso o blu.
    Buon Proseguimento

    Mi piace

  2. Grazie Egidio per aver iniziato con il mio libro, è un vero piacere!
    Per venire al tuo problema, puoi risolvere utilizzando gli eventi Mouse_Enter e Mouse_Leave, con un codice simile a questo (3 pulsanti di nome Button1, Button2 e Button3 in un form):

    Public Class Form1
    Dim ColoreStandard

    Private Sub Form1_Load(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles Me.Load
    ColoreStandard = Button1.BackColor
    End Sub

    Private Sub Button1_MouseEnter(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles Button1.MouseEnter
    Button1.BackColor = Color.Red
    End Sub

    Private Sub Button1_MouseLeave(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles Button1.MouseLeave
    Button1.BackColor = ColoreStandard
    End Sub

    Private Sub Button2_MouseEnter(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles Button2.MouseEnter
    Button2.BackColor = Color.Green
    End Sub

    Private Sub Button2_MouseLeave(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles Button2.MouseLeave
    Button2.BackColor = ColoreStandard
    End Sub

    Private Sub Button3_MouseEnter(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles Button3.MouseEnter
    Button3.BackColor = Color.Blue
    End Sub

    Private Sub Button3_MouseLeave(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles Button3.MouseLeave
    Button3.BackColor = ColoreStandard
    End Sub
    End Class

    Praticamente prima di tutto salvi il “colore base” di un pulsante, con l’istruzione

    Dim ColoreStandard

    poi in ogni evento cambi colore (Mouse_Enter) o ripristini il colore originario (Mouse_Leave).

    Spero di aver risposto esaurientemente alla tua domanda. In caso contrario fammi sapere!

    Mi piace

Rispondi

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...

%d blogger hanno fatto clic su Mi Piace per questo: