[Beta] SmallPad

Pes1899.vb

Farmulator

Beiträge: 483

Dabei seit: 12. Mai 2009

Hilfreich-Bewertungen: 3

21

Donnerstag, 27. Mai 2010, 11:40

Visual Basic Quellcode

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
        PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
        PrintDocument1.Print()

    End If
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, _
ByVal e As System.Drawing.Printing.PrintPageEventArgs) _
Handles PrintDocument1.PrintPage
    e.Graphics.DrawImage(PictureBox1.Image, 0, 0)
End Sub
End Class

Das habe ich hier im Forum gefunden. Vom drucken weiß ich nichts

Farmulator: 70%

Zum Seitenanfang

chenjung

Registrierter Benutzer

Beiträge: 19

Dabei seit: 21. Mai 2010

Wohnort: Marburg / Hessen

Hilfreich-Bewertungen: 6

22

Donnerstag, 27. Mai 2010, 11:43

Na das bekommen wir noch hin =D Vielen dank erstmal für deine Schnelle Hilfe!!!

Die Grundfunktion Öffnen und Speichern geht! Dafür danke ich dir vielmals

Ich werd jetzt versuchen, wenn man auf "Neu" drückt, das die Massagebox neugeladen wird (also Leer)

Vielen dank

>>

<<

65%

Offizelle HP zu SmallPad

Zum Seitenanfang

jvbsl

Noob

Beiträge: 7 206

Dabei seit: 7. April 2010

Hilfreich-Bewertungen: 397

23

Donnerstag, 27. Mai 2010, 11:45

es darf natürlich nicht außerhalb des Druckerrandes sein...DrawString macht keine automatischen Zeilenumbrüche am Seitenende, was höchstwahrscheinlich zu Problemen führen wird, dafür musst du eine eigene Logik Entwickeln, guck dir dazu am besten mal die Eigenschaft e an(Bounds usw.)

Ich wollte auch mal ne total überflüssige Signatur:
---Leer---

Zum Seitenanfang

Pes1899.vb

Farmulator

Beiträge: 483

Dabei seit: 12. Mai 2009

Hilfreich-Bewertungen: 3

24

Donnerstag, 27. Mai 2010, 11:45

Zitat

Massagebox

Farmulator: 70%

Zum Seitenanfang

chenjung

Registrierter Benutzer

Beiträge: 19

Dabei seit: 21. Mai 2010

Wohnort: Marburg / Hessen

Hilfreich-Bewertungen: 6

25

Donnerstag, 27. Mai 2010, 11:48

Ich meinte RichTextBox1 (dort gebe ich ja den Text ein)

@ jvbsl: Also ab e. xxxx ?

Auch wieder ein Rätsel, ich kann mit dem Quellcode:

Visual Basic Quellcode

1
2
3

 Private Sub KopierenStrgCToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KopierenStrgCToolStripMenuItem.Click
        Clipboard.SetText(RichTextBox1.Text)
    End Sub

Meinen geschrieben Text aus meinem Editor Kopieren und Strg+V wieder einfügen, aber wenn ich:

Visual Basic Quellcode

Private Sub EinfügenStrgVToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EinfügenStrgVToolStripMenuItem.Click
        Clipboard.GetText(RichTextBox1.Text)

    End Sub

wieder den Text einfügen will, geht das nicht? Warum das denn?

Update:
Font kann man nun Ändern, ebenso die größe, allerdings geht es nicht bei jeden Font!
Drucken geht noch nicht
Die neue BETA kommt demnächst Online

>>

<<

65%

Offizelle HP zu SmallPad

Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »chenjung« (27. Mai 2010, 13:40)

Zum Seitenanfang

Mr. Anonym

GDI+ Lover.

Beiträge: 312

Dabei seit: 11. Dezember 2009

Frühere Benutzernamen: Mr. Anonym

Hilfreich-Bewertungen: 77

26

Donnerstag, 27. Mai 2010, 14:37

Benutz doch zum Kopieren:

	Visual Basic Quellcode
1	RichTextbox1.copy()

und zum einfügen:

	Visual Basic Quellcode
1	RichTextbox1.Paste()

und zum Ausschneiden:

	Visual Basic Quellcode
1	RichTextbox1.Cut()

Hoffe ich konnte helfen.

Meine Projekte:

FacebookTimelineUI - Schicke Controls im Facebook-Stil für deine Projekte
ISOBuilder - Aus verschiedenen Daten ganz einfach ISO's erstellen
Logon Changer - Programm zum ändern des Anmeldebildschirm-Hintergrundes

Besuch doch meinen Blog: Marin's Welt

Zum Seitenanfang

chenjung

Registrierter Benutzer

Beiträge: 19

Dabei seit: 21. Mai 2010

Wohnort: Marburg / Hessen

Hilfreich-Bewertungen: 6

27

Donnerstag, 27. Mai 2010, 14:46

Zitat von »Mr. Anonym«
Benutz doch zum Kopieren:
Visual Basic Quellcode
1
RichTextbox1.copy()
und zum einfügen:
Visual Basic Quellcode
1
RichTextbox1.Paste()
und zum Ausschneiden:
Visual Basic Quellcode
1
RichTextbox1.Cut()
Hoffe ich konnte helfen.

Danke, ich werde es mal versuchen

DANKE

Jawohl, es geht !!!! DANKEEEEE!!!!!!!!!!!!! :love:

>>

<<

65%

Offizelle HP zu SmallPad

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »chenjung« (27. Mai 2010, 15:00)

Zum Seitenanfang

martinustreveri

Deine Mama.

Beiträge: 363

Dabei seit: 26. November 2008

Wohnort: Zuhause (:

Hilfreich-Bewertungen: 17

28

Donnerstag, 27. Mai 2010, 18:42

Hey,

Zitat

Danke, ich werde es mal versuchen DANKE

Jawohl, es geht !!!! DANKEEEEE!!!!!!!!!!!!!

da gibt es aber noch wesentlich elegantere Methoden.
Vor allem bei der RichTextBox. Schau dir mal die Selection an und wie man Texte ins Copyboard einfügt

lg.

"Five exclamation marks, the sure sign of an insane mind."

Zum Seitenanfang

chenjung

Registrierter Benutzer

Beiträge: 19

Dabei seit: 21. Mai 2010

Wohnort: Marburg / Hessen

Hilfreich-Bewertungen: 6

29

Donnerstag, 27. Mai 2010, 18:51

@martinustreveri: Ok werde ich machen! Danke

Hm, leider, gehts jetzt nicht mehr.

Die Fonts, größe und der gleichen geht nicht mehr ... :pinch:

Hm, vorhin gingen sie aber noch? Sehr Komisch. Auch den Absatz macht er nicht mehr. Wie kann das sein?

	Visual Basic Quellcode
1	RichTextBox1.Text &= zeile & vbCrLf

Sowas für den Umbruch, dachte ich, aber hilft irgendwie nichts.

Und für die Fontauswahl hatte ich dies hier:

Visual Basic Quellcode

 Private Sub SchriftartToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SchriftartToolStripMenuItem1.Click
        FontDialog1.ShowColor = True

        FontDialog1.Font = RichTextBox1.Font
        FontDialog1.Color = RichTextBox1.ForeColor

        If FontDialog1.ShowDialog() <> DialogResult.Cancel Then
            RichTextBox1.Font = FontDialog1.Font
            RichTextBox1.ForeColor = FontDialog1.Color
        End If
    End Sub

>>

<<

65%

Offizelle HP zu SmallPad

Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »chenjung« (27. Mai 2010, 19:01)

Zum Seitenanfang

VB_Gamer

Spieleprogrammierer

Beiträge: 197

Dabei seit: 17. Februar 2010

Wohnort: Walding

Hilfreich-Bewertungen: 6

30

Donnerstag, 27. Mai 2010, 19:18

Wo brauchst du denn den Umbruch-Code? Beim einlesen nicht, oder? Da geht auch:

	Visual Basic Quellcode
1	My.Computer.FileSystem.ReadAllText("Pfad")

Das macht automatisch Zeilenumbrüche.

Wieso benutzt beim Font-Code "<> DialogResult.Chancel"?

Mach doch "= DialogResult.OK"

Was geht denn nicht?

Gott schuf die Neugier und nannte Sie Mutter!

Zum Seitenanfang

chenjung

Registrierter Benutzer

Beiträge: 19

Dabei seit: 21. Mai 2010

Wohnort: Marburg / Hessen

Hilfreich-Bewertungen: 6

31

Donnerstag, 27. Mai 2010, 19:22

Also, wenn ich einen Text in der Richtextbox1 schreibe, mache ich meine Absätze.

Dann sag ich Speichern.

Dann öffne ich die .txt Datei aber weder meine Font Einstellungen noch die Absätze macht er (was er aber vorhin noch getan hat).

Ich mach gleich mal ne Video, das sagt mehr als 1000 Worte

Hier das Video

http://www.youtube.com/watch?v=Nb-8sBxp5Nk

>>

<<

65%

Offizelle HP zu SmallPad

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »chenjung« (27. Mai 2010, 20:27)

Zum Seitenanfang

martinustreveri

Deine Mama.

Beiträge: 363

Dabei seit: 26. November 2008

Wohnort: Zuhause (:

Hilfreich-Bewertungen: 17

32

Donnerstag, 27. Mai 2010, 20:56

Hey,

normalerweise kannst du die Datei einfacherweise mit My.Computer.FileSystem.WriteAllText() bzw. .WriteAllBytes() schreiben.
Da sind die Absätze aber auch dabei..

lg.

"Five exclamation marks, the sure sign of an insane mind."

Zum Seitenanfang

chenjung

Registrierter Benutzer

Beiträge: 19

Dabei seit: 21. Mai 2010

Wohnort: Marburg / Hessen

Hilfreich-Bewertungen: 6

33

Donnerstag, 27. Mai 2010, 21:43

Zitat von »martinustreveri«

Hey,

normalerweise kannst du die Datei einfacherweise mit My.Computer.FileSystem.WriteAllText() bzw. .WriteAllBytes() schreiben.
Da sind die Absätze aber auch dabei..

lg.

Danke für deinen Tipp!!

Ich werd morgen mal nachsehen, obs geht! Heute keine Lust mehr

Hm, macht er nicht, meckert als rum, das eine Anzahl fehlt? Ich seh den Walt vor lauter Bäumen nicht mehr ...

Mal sehen, vieleicht klappt es morgen!

>>

<<

65%

Offizelle HP zu SmallPad

Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »chenjung« (27. Mai 2010, 23:35)

Zum Seitenanfang

chenjung

Registrierter Benutzer

Beiträge: 19

Dabei seit: 21. Mai 2010

Wohnort: Marburg / Hessen

Hilfreich-Bewertungen: 6

34

Freitag, 28. Mai 2010, 12:08

Ich habe mal bisschen am Quellcode gearbeitet.

Also, bezüglich Absätze:

Textbox1 macht das wohl Automaitsch! (Wegen Multiline)

Die Richtextbox1 macht das nicht so wirklich von allein.

Mache ich eine Textbox, gehen die Absätze, aber die Font-Einstellungen nicht, dazu ist wohl das Format .rft nötig. Aber damit kann die Textbox nix anfangen. Daher habe ich mich eines Codes hier aus dem Forum bedient, um zu testen!

-> [VB 2008] Speichern und Öffnen Probleme

SaveFileDialog:

Visual Basic Quellcode

Dim fs As New System.IO.FileStream(SaveFileDialog1.FileName, FileMode.Create)
        Dim sw As New System.IO.StreamWriter(fs)
        For Each Line In RichTextBox1.Lines
            sw.WriteLine(Line)
        Next
        sw.WriteLine(RichTextBox1.Text)
        sw.Close()
        fs.Close()

Dort macht er zwar den Absatz, macht aber einen Buchstaben immer doppelt. Aber die Font einstellungen übernimmt er nicht (gespeichert habe ich im .rft)

Was meint ihr?

Ich meine, muss man unbedingt die Veränderung der Schrift und größe in einem "kleinen" Texteditor haben?

Denn dann wäre das alles kein Thema, einfach Textbox und Fertig

Ich Verzichte erstmal auf die Font Formatierung, und werde den Editor ohne diese Möglichkeit Fertig machen. Version 2 wird es dann bekommen!
Von daher, werde ich erstmal mit der Textbox Arbeiten!!!

>>

<<

65%

Offizelle HP zu SmallPad

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »chenjung« (28. Mai 2010, 12:17)

Zum Seitenanfang

jvbsl

Noob

Beiträge: 7 206

Dabei seit: 7. April 2010

Hilfreich-Bewertungen: 397

35

Freitag, 28. Mai 2010, 12:18

RTF: Zeilenumbruch = \par...
aber nebensache,
benutz doch einfach die RichTextBox1.Save methode sowie Load Methode, dort kannst du mit einem Enum angeben, ob du es als PlainText oder als RichTextFormatted-Text abspeichern willst, ebenso beim Laden, andernfalls könntest du es ja über die RTF Eigenschaft speichern und Laden...

Ich wollte auch mal ne total überflüssige Signatur:
---Leer---

Zum Seitenanfang

chenjung

Registrierter Benutzer

Beiträge: 19

Dabei seit: 21. Mai 2010

Wohnort: Marburg / Hessen

Hilfreich-Bewertungen: 6

36

Freitag, 28. Mai 2010, 12:27

Zitat von »jvbsl«

RTF: Zeilenumbruch = \par...
aber nebensache,
benutz doch einfach die RichTextBox1.Save methode sowie Load Methode, dort kannst du mit einem Enum angeben, ob du es als PlainText oder als RichTextFormatted-Text abspeichern willst, ebenso beim Laden, andernfalls könntest du es ja über die RTF Eigenschaft speichern und Laden...

Stimmt, mehr oder weiniger habe ich es ja auch so gemacht!

Speichern:

Visual Basic Quellcode

Private Sub SpeichernToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpeichernToolStripMenuItem.Click
        SaveFileDialog1.Filter = "Textdatei (*.txt)|*.txt|Rich Text Format (*.rtf)|*.rtf|Alle Datein (*.*)|*.*"
        SaveFileDialog1.ShowDialog()
    End Sub

Und öffnen:

Visual Basic Quellcode

Private Sub ÖffnenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÖffnenToolStripMenuItem.Click
        OpenFileDialog1.Filter = "Textdatei (*.txt)|*.txt|Rich Text Format (*.rtf)|*.rtf|Alle Datein (*.*)|*.*"
        OpenFileDialog1.InitialDirectory = FileIO.SpecialDirectories.MyDocuments
        OpenFileDialog1.Title = "Txt laden"

        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim OpenFile As String = IO.File.ReadAllText(OpenFileDialog1.FileName)
            TextBox1.Text = OpenFile
        End If
    End Sub

Tja, ist alles nicht so einfach, aber man lernt ja =D

>>

<<

65%

Offizelle HP zu SmallPad

Zum Seitenanfang

jvbsl

Noob

Beiträge: 7 206

Dabei seit: 7. April 2010

Hilfreich-Bewertungen: 397

37

Freitag, 28. Mai 2010, 12:29

Speichern macht gar nix außer einen Dialog anzeigen...Öffnen öffnet das ganze wiederum als Text...nimm die RichTextBox und nehme von dieser die Load und Save Methode...

Ich wollte auch mal ne total überflüssige Signatur:
---Leer---