VB 4/6- und VBA-Forum - Beitragsübersicht -
ThemaVB6: Mein Text auf dem Desktop
Von Thomas
Datum 21. Oktober 2017 um 17:31:25
Frage Hallo,wie kann ich einen Text zb.Hallo Thomas
am Destop anzeigen lassen ?Gruß Thomas
Antwort:
Von Rippler
Datum 22. Oktober 2017 um 02:58:05
Antwort Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" _
(ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, _
ByVal nCount As Long) As Long

Public Function WindowText(dblX As Double, dblY As Double, strText As String, dblTxt As Double)
TextOut GetWindowDC(GetDesktopWindow), dblX, dblY, strText, dblTxt
End Function

Private Sub Command1_Click()
Dim str As String
str = "Hallo Thomas"
Call WindowText(400, 400, str, Len(str))
End Sub
[ Antwort schreiben | Zurück zum VB 4/6- und VBA-Forum | Forum-Hilfe ]
Antworten
VB6: Mein Text auf dem Desktop - Thomas 21. Oktober 2017 um 17:31:25
Re: Mein Text auf dem Desktop - Rippler 22. Oktober 2017 um 02:58:05

Ihre Antwort
(Nick-)Name   Wichtige Informationen zur Namensangabe
E-Mail (opt.)  Wichtige Informationen zur Angabe einer eMail-Adresse
Thema   Wichtige Informationen zur Angabe eines Themas
Betrifft (IDE)  Visual Basic 6 (*.exe)
Ihre Antwort
Smilies
Mehr...
FettKursivUnterstrichen   Übersicht der Tipp-KürzelÜbersicht der Projekt-KürzelÜbersicht der Bücher-Kürzel 
Homepage
Titel
Root-Smilies              
             
             
[ Zurück zum VB 4/6- und VBA-Forum | Forum-Archiv | Forum-Hilfe | Chat ]

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB.Net | .Net-Forum | DirectX | DirectX-Forum | Chat | Ausschreibungen | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 13. Dezember 2015