Mit nachfolgender Funktion lässt sich ein Text unter Angabe der Position, Schriftgröße und Farbe direkt auf die Form schreiben. ' in aktuelles Formular schreiben ' ' die Funktion benutzt die "Print" -Anweisung, um direkt in ein ' geöffnetes Formular zu schreiben ' Function WriteInForm(ByRef frmObj As VB.Form, _ ByVal sText As String, _ ByVal nSize As Long, _ ByVal nBold As Boolean, _ ByVal nColor As Long, _ ByVal xPos As Long, _ ByVal yPos As Long) As Long Dim FB As Boolean ' FontBold Dim FC As Long ' ForeColor Dim FS As Long ' FontSize Dim Ret As Long ' 0 = o.k., <> 0 = Fehler Dim errMsg As String ' Fehlerroutine On Error GoTo Err_WIF With frmObj ' Schriftgrösse speichern FS = .FontSize ' neue Schriftgröße setzen, falls angegeben If nSize <> 0 Then .FontSize = nSize ' Schriftattribut "Fett" speichern FB = .FontBold ' Schrift ggd. auf "Fett" setzen .FontBold = nBold ' Vordergrundfarbe speichern FC = .ForeColor ' neue Vordergrundfarbe setzen, falls angegeben If nColor <> 0 Then .ForeColor = nColor ' Position für die Textausgabe setzen .CurrentX = xPos .CurrentY = yPos ' Text ausgeben frmObj.Print sText ' Schriftgröße, -farbe und Schriftattribut zurücksetzen .FontSize = FS .FontBold = FB .ForeColor = FC End With Exit_WIF: WriteInForm = Ret Exit Function Err_WIF: With Err Ret = .Number errMsg = .Description .Clear End With MsgBox Ret & vbCr & errMsg, , "WriteInForm" Resume Exit_WIF End Function Anwendungsbeispiel: WriteInForm Me, "Beispieltext", 12, True, vbRed, 1000, 1000 WriteInForm Me, "Dieser Text wurde direkt auf die Form geschrieben", 10, False, _ vbBlue, 1000, 1500 Dieser Tipp wurde bereits 14.174 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
sevISDN 1.0 Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung TOP! Unser Nr. 1 Neu! sevDataGrid 3.0 Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |