kleiner gleich zeichen

Gabi · 2008-04-09T19:04:00+00:00

hallo leute in meiner MsgBox soll in einem Text das "kleiner gleich" zeichen erscheinen...leider kann ich in der VBA Ebene nur das "kleiner als" zeichen und danach das "ist gleich" zeichen schreiben. gefällt mir aber nicht wirklich...gibts auch das richtige...vielleicht über irgend einen code? soll ja bissl ordentlich aussehen! danke Gabi

Hallo
Wäre das eine Lösung ?
dann wäre das der Code

Private Sub UserForm_Initialize()
 Dim msgFile As String
 Dim myWEb As WebBrowser
 msgFile = "c:\test.html"
 Open msgFile For Output As #1
 Print #1, "<html>"
 Print #1, "<body bgcolor=#CCCCCC>"
 Print #1, "Das ist das "kleiner gleich"-Zeichen: ≤ "
 Print #1, "Das ist ein "grösser gleich" Zeichen: ≥"
 Print #1, ""
 Print #1, "Und das ist sonst noch irgendein Text"
 Print #1, "</body>"
 Print #1, "</html>"
 Close #1
 Set myWEb = Me.WebBrowser1
 With myWEb
 With .Container
 .ScrollBars = False
 End With
 .MenuBar = False
 .AddressBar = False
 .Navigate msgFile
 End With
End Sub

Gruss Rainer

Hi Gabi,
du hast ja wohl nicht in allen Msgboxen Sondererzeichen!?
Du müßtest nur
Option Explicit
'
Private Declare


Function MessageBoxW Lib "user32.dll" _
(ByVal hWnd As Long, ByVal lpText As Long, ByVal lpCaption As Long, ByVal uType As Long) As  _
Long
Private Declare 

Function MessageBoxA Lib "user32.dll" _
(ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As Long) _
As Long
Private Const MB_ICONINFORMATION As Long = &H40&
Private Const MB_TASKMODAL As Long = &H2000&


Sub tt()
Dim Text As String
Dim Überschrift As String
Text = "3" & ChrW(8804) & "5"
Überschrift = "Ein Beispiel"
Call MessageBoxW(0, StrPtr(Text), StrPtr(Überschrift), MB_ICONINFORMATION Or MB_TASKMODAL)
End Sub


umbasteln in



Sub MsgBox2(Text)
was easy geht, Überschrift anpassen usw.,dann halt mit suchen alle "Msgbox" in den Codes suchen, _
schauen ob Sonderzeichen drin sind, dann die Zeile umbauen von z.B
Msgbox "3http: _
//www.activevb.de/rubriken/kolumne/kol_20/unicode.html
(nicht daß noch einer denkt ich hätte das selbst gebastelt *lächel*)
Gruß
Reinhard

Forumthread: kleiner gleich zeichen

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial