vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
Rubrik: Oberfläche · Fenster   |   VB-Versionen: VB630.09.08
Textausgabe direkt auf die Form

Eine Funktion, mit der sich ein Text unter Angabe der Position, Schriftgröße und Farbe direkt auf die Form schreiben lässt.

Autor:   Norbert GrimmBewertung:  Views:  11.729 
ohne HomepageSystem:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10 Beispielprojekt auf CD 

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



Anzeige

Kauftipp Unser Dauerbrenner!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.
 
 
Copyright ©2000-2019 vb@rchiv Dieter OtterAlle Rechte vorbehalten.


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.