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.274 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. |
vb@rchiv CD Vol.6 ![]() ![]() Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen 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. Neu! sevCoolbar 3.0 ![]() Professionelle Toolbars im modernen Design! Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access |
||||||||||||||||
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. |