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.273 mal aufgerufen.
Anzeige
![]() ![]() ![]() (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. |
sevOutBar 4.0 ![]() Vertikale Menüleisten á la Outlook Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. Tipp des Monats ![]() Dieter Otter Beliebige Zeichen am Anfang und Ende eines Strings entfernen Mit der Trim-Funktion lassen sich nicht nur Leerzeichen, sondern bei Bedarf auch beliebige Zeichen entfernen. Access-Tools Vol.1 ![]() Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||||||
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. |