Die Community zu .NET und Classic VB.
Menü

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

 von 

Beschreibung 

Mit den Pfad-Apis ist es relativ einfach, diesen Effekt zu erzielen. Trotz einfacher Programmierung, ist das Resultat sehr schön.
siehe auch Tipp Tipp 450

Schwierigkeitsgrad:

Schwierigkeitsgrad 2

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 --------------

Tipp-Kompatibilität:

Windows/VB-VersionWin32sWin95Win98WinMEWinNT4Win2000WinXP
VB4
VB5
VB6

Hat dieser Tipp auf Ihrem Betriebsystem und mit Ihrer VB-Version funktioniert?

Ja, funktioniert!

Nein, funktioniert nicht bei mir!

VB-Version:

Windows-Version:

Ihre Meinung  

Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.

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.

Kommentar von zeqir am 16.11.2003 um 10:33

konnen sie mir programe schicken