14.07.2014 Aufrufe

Handbuch BasicMaker 2010 - SoftMaker

Handbuch BasicMaker 2010 - SoftMaker

Handbuch BasicMaker 2010 - SoftMaker

MEHR ANZEIGEN
WENIGER ANZEIGEN

Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.

YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.

Tipps für die Vereinfachung von Schreibweisen<br />

Wenn Sie sich nun langsam wundern, ob wirklich so viel Tipparbeit nötig ist, um ein einzelnes Dokument anzusprechen,<br />

können wir Sie beruhigen: ist es nicht! Es gibt diverse Abkürzungen, die Ihnen viel Zeit ersparen.<br />

Verwenden der With-Anweisung<br />

Die erste Abkürzung ist, dass Sie zum Zugriff auf mehrere Eigenschaften eines Objekts die With-Anweisung verwenden<br />

können.<br />

Zunächst die herkömmliche Schreibweise:<br />

tm.Application.Left = 100<br />

tm.Application.Top = 50<br />

tm.Application.Width = 500<br />

tm.Application.Height = 300<br />

tm.Application.Options.CreateBackup = True<br />

MsgBox tm.Application.ActiveDocument.Name<br />

Dieser Code sieht bei Verwendung der With-Anweisung wesentlich übersichtlicher aus:<br />

With tm.Application<br />

.Left = 100<br />

.Top = 50<br />

.Width = 500<br />

.Height = 300<br />

.Options.CreateBackup = True<br />

MsgBox .ActiveDocument.Name<br />

End With<br />

Objektvariablen einrichten<br />

Die nächste Arbeitsvereinfachung ist, dass Sie sich eigene Objektvariablen für den schnellen Zugriff einrichten können.<br />

Vergleichen Sie folgende Anweisungen:<br />

Umständlich:<br />

Sub Kompliziert<br />

Dim tm As Object<br />

Set tm = CreateObject("TextMaker.Application")<br />

tm.Application.Visible = True ' TextMaker sichtbar machen<br />

tm.Application.Documents.Add ' Dokument hinzufügen<br />

tm.Application.ActiveDocument.Left = 100<br />

tm.Application.ActiveDocument.Top = 50<br />

tm.Application.ActiveDocument.Width = 222<br />

tm.Application.ActiveDocument.Height = 80<br />

End Sub<br />

Einfacher:<br />

Sub Besser<br />

Dim tm As Object<br />

Dim NeuesDokument As Object<br />

Set tm = CreateObject("TextMaker.Application")<br />

tm.Application.Visible = True ' TextMaker sichtbar machen<br />

NeuesDokument = tm.Application.Documents.Add ' Dokument hinzufügen<br />

NeuesDokument.Left = 100<br />

NeuesDokument.Top = 50<br />

NeuesDokument.Width = 222<br />

NeuesDokument.Height = 80<br />

End Sub<br />

Nachdem Sie im unteren Beispiel in der Objektvariablen "NeuesDokument" eine Referenz auf das Dokument angelegt<br />

haben (die von der Add-Methode der Sammlung Documents praktischerweise zurückgegeben wird), können Sie über<br />

diese Objektvariable viel handlicher auf das neue Dokument zugreifen.<br />

<strong>Handbuch</strong> <strong>BasicMaker</strong> <strong>2010</strong> <strong>BasicMaker</strong> und TextMaker 55

Hurra! Ihre Datei wurde hochgeladen und ist bereit für die Veröffentlichung.

Erfolgreich gespeichert!

Leider ist etwas schief gelaufen!