![]()
Davon kann man ausgehen, wird ja zur PDFPage hinzugügt
Zitat
PDFPage.AddCenteredMM

Davon kann man ausgehen, wird ja zur PDFPage hinzugügt
Zitat
PDFPage.AddCenteredMM
lg.
|
|
Visual Basic Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
Private Sub PDFErstellenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PDFErstellenToolStripMenuItem.Click SaveFileDialog1.ShowDialog() ' Die PDF-Datei erstellen. Dim Doc As New Report(New PdfFormatter()) ' Die Schriftinformationen definieren. Dim FontDef As New FontDef(Doc, "Helvetica") Dim FontProp As New FontPropMM(FontDef, 25) ' Eine neue Seite erstellen. Dim PDFPage As New Page(Doc) ' Eine Textzeile hinzufügen. PDFPage.AddCB(80, New RepString(FontProp, "Hello World!")) ' Dokument speichern. Doc.Save("SimpleText.pdf") End Sub |




Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »chenjung« (30. Mai 2010, 20:45)
|
|
Visual Basic Quellcode |
1 |
PDFPage.AddCB(80, New RepString(FontProp, RTB.Text)) |
![]()
Visual Basic Quellcode
1 PDFPage.AddCB(80, New RepString(FontProp, RTB.Text))
Schau dir mal die Parameter der Funktion genau an.

Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von »chenjung« (30. Mai 2010, 21:48)

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »chenjung« (1. Juni 2010, 19:21)

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »chenjung« (2. Juni 2010, 15:49)
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »chenjung« (4. Juni 2010, 19:14)
|
|
Visual Basic Quellcode |
1 2 3 4 5 |
If Richtextbox1.SelectedText.Count <> Nothing Then Richtextbox1.SelectionColor = 'Hier einsetzen was du mit dem Markierten Text machen willst :D Else Richtextbox1.Text = 'Hier einsetzen was du machen willst wen nichts markiert ist, sprich mit dem ganzen Text End If |
|
|
Visual Basic Quellcode |
1 2 3 |
If Openfiledialog1.Showdialog = Windows.Forms.DialogResult.OK Then 'Speichern End If |
|
|
Visual Basic Quellcode |
1 |
Me.WindowState = FormWindowState.Minimized |
|
|
Visual Basic Quellcode |
1 |
Me.WindowState = FormWindowState.Normal |
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von »Scream« (5. Juni 2010, 09:37)
Hey Chenjung,
Ich wollte mal vorbeischauen und dir einen weiteren (^.^') Tipp geben:
Wen du nur einzelne (markierte) Stücke vom Text verändern willst (z.b Shcriftfarbe), kannst du so überprüfen ob was selektiert ist, wen ja => selektierten text verändern, wen nein => ganzen Text verändern
![]()
Visual Basic Quellcode
1 2 3 4 5 If Richtextbox1.SelectedText.Count <> Nothing Then Richtextbox1.SelectionColor = 'Hier einsetzen was du mit dem Markierten Text machen willst :D Else Richtextbox1.Text = 'Hier einsetzen was du machen willst wen nichts markiert ist, sprich mit dem ganzen Text End If
Ahja ich sehe grad du hast ein Problem mit dem Speichern:
![]()
Visual Basic Quellcode
1 2 3 If Openfiledialog1.Showdialog = Windows.Forms.DialogResult.OK Then 'Speichern End If
Noch ein Ahja:
Es wäre noch sehr schön wen du die Namen* der Buttons verändern würdest.
*![]()
Ahja³:
Unter Minimieren verstehe ich das hier:
![]()
Visual Basic Quellcode
1 Me.WindowState = FormWindowState.Minimized
nicht:
![]()
Visual Basic Quellcode
1 Me.WindowState = FormWindowState.Normal
Viel Spaß noch
MFG Scream..
na ja, so Ganz mein Ding is es net. Trotzdem, ist es dein erstes Programm?
Idee: 4,5/10
Grafik: 4,5/10
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »chenjung« (8. Juni 2010, 22:08)
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »chenjung« (9. Juni 2010, 22:00)
|
|
Visual Basic Quellcode |
1 2 3 4 5 6 7 8 9 |
Button1.Click....... Labe1.Text = "Email wird gesendet" Label1.Visible = True ProgressBar.Visible = True Sende Befehl.... Label1.Text = "eMail wurde erfolgreich versendet !" System.Thread.Sleep(1000) Label1.Visible = False ProgressBar.Visible = False |
|
|
Visual Basic Quellcode |
1 |
Label1.Text = "Die eMail wurde nicht versendet !" |

|
|
Visual Basic Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 |
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label5.Text = "Email wird gesendet" Label5.Visible = True ProgressBar1.Visible = True Label5.Text = "eMail wurde erfolgreich versendet !" System.Threading.Thread.Sleep(1000) Label5.Visible = False ProgressBar1.Visible = False Me.Close() End Sub |
Ich habe System.Threading.Thread.Sleep(1000) genommen, weil er mir |
|
Visual Basic Quellcode |
1 |
System.Thread.Sleep(1000) |
Und Label5 verschwindet während des Sendens *lol*|
|
Visual Basic Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 |
If Label5.Text = "Email wird gesendet" Then System.Threading.Thread.Sleep(500) Label5.Visible = True ProgressBar1.Visible = True Else Label6.Text = "eMail wurde erfolgreich versendet !" System.Threading.Thread.Sleep(1000) Label6.Visible = True ProgressBar1.Visible = True End If sendmail() 'Me.Close() |
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von »chenjung« (10. Juni 2010, 20:20)
|
|
Visual Basic Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try sendmail() Label1.Visible = True Label1.Text = "sende mail" ' Text vergeben ProgressBar1.Visible = True ' Marquee Style in den Eigenschaften Catch ex As Exception Label1.Text = "mail konnte nicht versendet werden" ' Text vergeben End Try System.Threading.Thread.Sleep(500) ' verweilen ProgressBar1.Visible = False ' unsichtbar, weil so oder so erledigt Label1.Visible = False ' Label unsichtbar End Sub |
|
|
Visual Basic Quellcode |
1 2 3 4 5 6 7 8 9 10 11 |
Try sendmail() Label5.Visible = True Label5.Text = "sende mail" ' Text vergeben ProgressBar1.Visible = True ' Marquee Style in den Eigenschaften Catch ex As Exception Label6.Text = "mail konnte nicht versendet werden" ' Text vergeben End Try System.Threading.Thread.Sleep(500) ' verweilen ProgressBar1.Visible = False ' unsichtbar, weil so oder so erledigt Label6.Visible = False ' Label unsichtbar |