[VB.NET] Copia di testo da un form all'altro

[Mircodj]

raga ho bisogno del vostro aiuo. Vi devo chiedere due cose|
Nel form 2 ho 2 textBox con scritto alcune cose all'interno io vorrei che quando premo su un bottone presente sul form2 mi venga visualizzato il form3 contenente a sua volta 2 textBox e vorrei che automaticamente dopo il click mi venga copiato il cintenuto dei textBox dal form 2 al form 3.
Spero di essermi spiegato
La seconda cosa che vorrei sapere è:
Come faccio a stampare il contenuto dei TextBox?
Grazie per l'aiuto

[Luke(BI)]

bhe quando premi il tasto nel form 3


TexBoxsForm3_1.text = form2.TexBoxsForm2_1.text
TexBoxsForm3_2.text = form2.TexBoxsForm2_2.text

punti al form 2

funzia?

[Luke(BI)]

dici andare diretto alla stampante?

Printer.Print TexBoxsForm3_1.text
Printer.endDoc



così va diretto altrimenti devi passare da un report con db

ciao ciao
fammi sapere

[Mircodj]

raga ho ancora delle difficolta purtroppo.
vi ripongo il problema
1)ho 10 txtBox.txt nel Form 2 che visualizzano una query messa nel db
2) ho un pulsante con scritto stama
che mi deve visualizzare il form 3 che contiene altri 10 txtBox con nome diversi da quelli nel form 2
Io vorrei che il contenuto di ogni txtBox del form2 venga copiato nei txtBox del form3 e poi che vengano stampati.
La stampa non è un problema perchè se voglio puo essere fatta anche con un altro bottone nel form 3
io adesso vorrei sapere come faccio a copiare il contenuti del form2 nel form 3
es:
valore Nome.text form2 deve essere copiate nel Campo1.Text del form3
valore Indirizzo.Text form2 deve essere copiate nel Campo2.Text del form3
e cosi via.
Mi è stato consigliato questo codice solo che non va

TexBoxsForm3_1.text = form2.TexBoxsForm2_1.text 
TexBoxsForm3_2.text = form2.TexBoxsForm2_2.text

come posso fare?
e poi come faccio a stampare il contenuto dei TextBox del form 3
mi è stato consigliato questo codice

Printer.Print TexBoxsForm3_1.text 
Printer.endDoc

solo che mi dice che Printer non è dichiarato
come devo fare?
ragazzi vi ripeto che io adesso sto imparando con vn.net e quindi non date nulla per scontato!
Vi pregherei di rispondermi perchè entro stasera devo consegnare il prog al mio amico e sono nei guai
grazie mille a chi mi aiuterà

[Mircodj]

raga ho ancora delle difficolta purtroppo.
vi ripongo il problema
1)ho 10 txtBox.txt nel Form 2 che visualizzano una query messa nel db
2) ho un pulsante con scritto stama
che mi deve visualizzare il form 3 che contiene altri 10 txtBox con nome diversi da quelli nel form 2
Io vorrei che il contenuto di ogni txtBox del form2 venga copiato nei txtBox del form3 e poi che vengano stampati.
La stampa non è un problema perchè se voglio puo essere fatta anche con un altro bottone nel form 3
io adesso vorrei sapere come faccio a copiare il contenuti del form2 nel form 3
es:
valore Nome.text form2 deve essere copiate nel Campo1.Text del form3
valore Indirizzo.Text form2 deve essere copiate nel Campo2.Text del form3
e cosi via.
Mi è stato consigliato questo codice solo che non va


code:--------------------------------------------------------------------------------
TexBoxsForm3_1.text = form2.TexBoxsForm2_1.text
TexBoxsForm3_2.text = form2.TexBoxsForm2_2.text
--------------------------------------------------------------------------------

come posso fare?
e poi come faccio a stampare il contenuto dei TextBox del form 3
mi è stato consigliato questo codice

code:--------------------------------------------------------------------------------
Printer.Print TexBoxsForm3_1.text
Printer.endDoc
--------------------------------------------------------------------------------

solo che mi dice che Printer non è dichiarato
come devo fare?
ragazzi vi ripeto che io adesso sto imparando con vn.net e quindi non date nulla per scontato!
Vi pregherei di rispondermi perchè entro stasera devo consegnare il prog al mio amico e sono nei guai
grazie mille a chi mi aiuterà

[ladyBlu]

io non so come puoi stampare, però ti passo il codice per passare i valori da form2 a form3.

Button1 = bottone che apre il form3 al quale passa i valori

chiaramente devi sostituire i nomi delle textbox, io li ho scritti così come sono di default.

Public Class Form2

  Private Sub Button1_Click(ByVal sender As System.Object, _
                            ByVal e As System.EventArgs) _
                            Handles Button1.Click

        Dim fStampa As New Form3

        With fStampa
            .TextBox1.Text = TextBox1.Text
            .TextBox2.Text = TextBox2.Text
            .TextBox3.Text = TextBox3.Text
            .TextBox4.Text = TextBox4.Text
            .TextBox5.Text = TextBox5.Text
            .TextBox6.Text = TextBox6.Text
            .TextBox7.Text = TextBox7.Text
            .TextBox8.Text = TextBox8.Text
            .TextBox9.Text = TextBox9.Text
            .TextBox10.Text = TextBox10.Text
        End With

        fStampa.ShowDialog()

        fStampa.Dispose()

  End Sub

End Class

ciao ciao


PS.
un piccolo appunto...
è inutile che apri più discussioni su uno stesso argomento. se qualcuno ti sa rispondere lo fa di certo, non è necessario martellare con più discussioni.
e tra l'altro è vietato dal regolamento del forum.
in futuro sii più paziente...
...consiglio da utente ad utente

[alka]

Originariamente inviato da ladyBlu
PS.
un piccolo appunto...
è inutile che apri più discussioni su uno stesso argomento. se qualcuno ti sa rispondere lo fa di certo, non è necessario martellare con più discussioni.
e tra l'altro è vietato dal regolamento del forum.
in futuro sii più paziente...

Quoto. Ho provveduto ad unire le discussioni in modo che quella nuova funga da semplice precisazione e approfondimento di quella vecchia.

Ciao a tutti!

[Mircodj]

raga vi ringrazio funziona
adesso vorrei sapere solo come stampare i txtBox?
Sapete aiutarmi

[ladyBlu]

ho fatto una ricerca sull'msdn del .net e ho trovato il metodo per stampare.

Dunque, ho dichiarato una variabile stringa "strDoc" nella quale ho memorizzato il valore delle textbox, uno per ogni riga.

"C:\App.txt" = path + nome del file che ho creato come appoggio per la stampa.

Imports System.IO
Imports System.Drawing.Printing

Public Class Form3

    Private printFont As Font
    Private streamToPrint As StreamReader
    Private Shared filePath As String

    ' Print the file.
    Private Sub Printing()
        Try
            streamToPrint = New StreamReader("C:\App.txt")
            Try
                printFont = New Font("Arial", 10)
                Dim pd As New PrintDocument()
                AddHandler pd.PrintPage, AddressOf pd_PrintPage
                ' Print the document.
                pd.Print()
            Finally
                streamToPrint.Close()
            End Try
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    ' The PrintPage event is raised for each page _
        to be printed.
    Private Sub pd_PrintPage(ByVal sender As Object, _
                             ByVal ev As PrintPageEventArgs)

        Dim linesPerPage As Single = 0
        Dim yPos As Single = 0
        Dim count As Integer = 0
        Dim leftMargin As Single = ev.MarginBounds.Left
        Dim topMargin As Single = ev.MarginBounds.Top
        Dim line As String = Nothing

        ' Calculate the number of lines per page.
        linesPerPage = _
            ev.MarginBounds.Height / printFont.GetHeight(ev.Graphics)

        ' Iterate over the file, printing each line.
        While count < linesPerPage
            line = streamToPrint.ReadLine()
            If line Is Nothing Then
                Exit While
            End If
            yPos = _
                topMargin + count * printFont.GetHeight(ev.Graphics)
            ev.Graphics.DrawString(line, printFont, Brushes.Black, _
                                leftMargin, yPos, New StringFormat())
            count += 1
        End While

        ' If more lines exist, print another page.
        If Not (line Is Nothing) Then
            ev.HasMorePages = True
        Else
            ev.HasMorePages = False
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, _
               ByVal e As System.EventArgs) Handles Button1.Click

        Dim fFile As StreamWriter
        Dim strDoc As String =""
        
        strDoc = TextBox1.Text + vbCrLf
        strDoc = strDoc + TextBox2.Text + vbCrLf
        strDoc = strDoc + TextBox3.Text + vbCrLf
        strDoc = strDoc + TextBox4.Text + vbCrLf
        strDoc = strDoc + TextBox5.Text + vbCrLf
        strDoc = strDoc + TextBox6.Text + vbCrLf
        strDoc = strDoc + TextBox7.Text + vbCrLf
        strDoc = strDoc + TextBox8.Text + vbCrLf
        strDoc = strDoc + TextBox9.Text + vbCrLf
        strDoc = strDoc + TextBox10.Text + vbCrLf

        fFile = File.CreateText("C:\App.txt")
        fFile.WriteLine(strDoc)
        fFile.Close()

        Printing()
        File.Delete("C:\App.txt")
    End Sub


End Class

è abbastanza semplice da comprendere, studiatelo un po' e magari adattalo alle tue esigenze.

Buon lavoro!

[Mircodj]

LadyBlu grazie
Funziona solo che c'è un problema i txtBox li stampa uno sotto l'altro e invece io nel mio form ho
l'articolo a destra il prezzo a sinistra
lui sampa
articolo
Prezzo
articolo
prezzo
cosa devo modificare per dirgli di stampare in modo corretto