speciale tekens correct weer geven

[alphamax]

Hoe is de string die je wil afbeelden opgebouwd, uit ansi-codes of uit unicode/wide char-codes?

 

[alphamax]

[SIZE=1]#If VBA7 Then
    Private Declare PtrSafe Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As LongPtr, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
#Else
    Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
#End If

' MessageBox() Flags
Public Const MB_OK = &H0&
Public Const MB_OKCANCEL = &H1&
Public Const MB_ABORTRETRYIGNORE = &H2&
Public Const MB_YESNOCANCEL = &H3&
Public Const MB_YESNO = &H4&
Public Const MB_RETRYCANCEL = &H5&

Public Function MsgBoxA(ByVal msg As String, Optional ByVal Flags As Long, Optional ByVal Title As String) As VbMsgBoxResult
    #If VBA7 Then
        Dim hwnd As LongPtr
    #Else
        Dim hwnd As Long
    #End If

    hwnd = 0

    MsgBoxA = MessageBox(hwnd, msg, Title, Flags)

End Function[/SIZE]

 

[glda19]

@ aphamax
Dat is tenminste een hulp. Dan dat vaak nutteloos gezaag gezever

 

[alphamax]

Na 1400 antwoorden weet ik je te vertellen dat er toch zit er een kern van waarheid in zit.
Met een anoniem voorbeeldbeeld bestandje wordt je sneller en beter geholpen.
Kijk maar als je verder komt met deze code op verschillende systemen.

 

[glda19]

Hoe kan ik nu een bestand maken als ik zelf geen fout krijg in de messagebox

 

[jkpieterse]

Gewoon het bestand plaatsen, wij testen wel.

 

[glda19]

Mormaal ja een bestand maar als ik weet dat er bij 90% of meer geen probleem gaat zijn heeft het weinig zin een bestand te plaatsen.
Toch ?

 

[alphamax]

Hoe is de string die je wil afbeelden opgebouwd, uit ansi-codes of uit unicode/wide char-codes?

Je werkt met API's daar zijn ascii/ansi en unicode versies van, zie https://docs.microsoft.com/nl-nl/windows/win32/learnwin32/working-with-strings
Daarom is het belangrijk om te weten uit welke tekens de tekst bestaat, en hoe die is opgebouwd, tussen haakjes of b.v. met Chr() en of ChrW().
De ervaren helpers kunnen meestal inschatten welke meerdere oorzaken op de "achtergrond" dit probleem kunnen veroorzaken.
Een voorbeeldbestand helpt dus om op voorhand al meerdere oorzaken uit te sluiten en sneller en beter tot een oplossing te komen
Meestal hebben we op dit forum maar 5 berichten (inclusief zever en beleefdheden) nodig om tot een oplossing te komen, dit worden er al meer dan 25

 

[alphamax]

Code uit bericht#22, getest met windows7en en excel2019en op 64-bit, en het werkt.

 

[glda19]

Hoe kun je dit testen als één bij msgbox normaal werkt

 

[glda19]

Thx voor de help maar nog geen tijd gehad om er naar te kijken. Pc heeft last van de warmte of eerder Windows volledige in de soep gedraaid. Dus je weet het wel wat het gevolg is nu
Kijk dit weekend waarschijnlijk als het frisser is en pc terug loopt als een trein