Textboxen gefüllt, dann drucken

  • VB.NET
  • .NET 4.5

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Quellcoder02.

    Textboxen gefüllt, dann drucken

    Grüße aus Hamburgo an alle,

    Fummel ja immer noch an meinem Quittungsblock rum.
    Nun stellt sich für mich folgendes Problem. Sollten einige Text - oder comboboxen nicht ausgefüllt sein, erscheinen sie in blau mit einer MsgBox - bitte füllen Sie alle Felder aus, dann beim Click aud die entsprechende Box wandelt sich der Hintergrund wieder in weiß.
    Nur, wenn alle Felder ausgefüllt sind, erscheint wieder die MsgBox. Am Besten hier mal der Code:

    VB.NET-Quellcode

    1. Private Sub btn_drucken_Click(sender As Object, e As EventArgs) Handles btn_drucken.Click
    2. If txt_summe.Text = "" Then txt_summe.BackColor = Color.RoyalBlue
    3. If txt_netto.Text = "" Then txt_netto.BackColor = Color.RoyalBlue
    4. If txt_nr.Text = "" Then txt_nr.BackColor = Color.RoyalBlue
    5. If cmb_eintragen.Text = "" Then cmb_eintragen.BackColor = Color.RoyalBlue
    6. If comb_emmi.Text = "" Then comb_emmi.BackColor = Color.RoyalBlue
    7. If comb_von.Text = "" Then comb_von.BackColor = Color.RoyalBlue
    8. MessageBox.Show(" Bitte füllen Sie alle blau markierten Felder aus. Danke", "Quittungsblock", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    9. End Sub
    10. Private Sub txt_summe_Click(ByVal sender As Object, _
    11. ByVal e As System.EventArgs) Handles txt_summe.Click
    12. txt_summe.BackColor = Color.White
    13. End Sub
    14. Private Sub txt_netto_Click(ByVal sender As Object, _
    15. ByVal e As System.EventArgs) Handles txt_netto.Click
    16. txt_netto.BackColor = Color.White
    17. End Sub


    Jetzt soll geprüft werden, nachdem alle Felder ausgefüllt sind, ich hatte folgendes vor, klappt aber nicht. Z,B
    If txt_euroworte.Text = "abc" Then
    PrintForm1.Print

    Fuksnukellt nicht, was mache ich denn hier falsch?? ;(

    Grüße aus Hamburg

    Viddi schrieb:

    PrintForm1.Print
    Was genau soll da passieren?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    VB-Fragen über PN / Konversation werden ignoriert!
    Hey Rod,

    er soll dann die gesamte Form ausdrucken. Das reicht mir erstmal so.
    Paralell bin ich gerade dabei den Quittungsblock ordentlich zu machen, so wie es sich gehört.

    Wenn nach einem Code sichergestellt worden ist, das alle Boxen ausgefüllt sind, soll der Drucker Gas geben.

    Hänge noch ein parr Bilder dran:


    Grüße
    Friedhelm
    Bilder
    • snip_1.PNG

      76,28 kB, 602×424, 43 mal angesehen
    • snip_2.PNG

      100,97 kB, 603×427, 51 mal angesehen
    • snip_3.PNG

      87,32 kB, 606×427, 52 mal angesehen

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Viddi“ ()

    Hej
    Wenn dann würde ich es mit einer Richtextbox machen weil da schon doe ganzen Controls Vorhanden sind auch mit einfärben und so nen Zeug ;)
    Und dann müsstest du Printformulare anlegen und fürs komplette drucken würe ich dir das Empfehlen!

    LG :D
    Projekte