Die Community zu .NET und Classic VB.

Startseite / Tipps / VB 5/6-Tipp 0457: Text nur mit Kontur zeichnen

VB 5/6-Tipp 0457: Text nur mit Kontur zeichnen

 von ActiveVB

Schwierigkeitsgrad:

Verwendete API-Aufrufe: BeginPath, EndPath, StrokePath, WidenPath

Download: Download des Beispielprojektes [2,06 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Projekt1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Kontrollkästchen-Steuerelement "Check1"
' Steuerelement: Kombinationsliste "cobFonts"
' Steuerelement: Textfeld "Text1"
' Steuerelement: Bildfeld-Steuerelement "Picture1"
' Steuerelement: Beschriftungsfeld "Label1"
Option Explicit
Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function StrokePath Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function WidenPath Lib "gdi32" (ByVal hdc As Long) As Long

Private Sub Check1_Click()
    Text1_Change
End Sub

Private Sub cobFonts_Click()
    Picture1.FontName = cobFonts.List(cobFonts.ListIndex)
    Text1_Change
End Sub

Private Sub Form_Load()
    Dim I As Integer
    
    For I = 0 To Screen.FontCount - 1
        cobFonts.AddItem Screen.Fonts(I)
    Next I
    
    Text1_Change
    
    'in der Hoffnung das es sich im eine TrueType-Schrift handelt
    cobFonts.ListIndex = cobFonts.ListCount - 1
End Sub

Private Sub Text1_Change()
    Picture1.Cls
    Picture1.CurrentX = 0
    Picture1.CurrentY = 0
    
    'Path anfangen
    BeginPath Picture1.hdc
    Picture1.Print Text1.Text
    EndPath Picture1.hdc
    
    If Check1.Value = vbChecked Then WidenPath Picture1.hdc
    
    'Path zichnen
    StrokePath Picture1.hdc
End Sub

'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Projekt1.vbp --------------

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 1 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.