Programación General > VBA

 Problemas Con Sendmessage En Windows 98

(1/1)

PointView:
Hola estoy usando la function SendMessage para unir varior textos RFT que estan en una base de datos, todo va a un solo control richtText, la unica forma que encontre para unir varios rtf, el temas es que en w2k, xp, w2003 funciona pero en windows 98 no les paso la function para ver que encuentran, gracias.

Public Declare Function SendMessage Lib \\\"user32\\\" Alias \\\"SendMessageA\\\" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_PASTE = &H302


do while not ors.eof
sTexto = trim(ors!micamportf)
unirTextos ( sTexto + vbCrLf)
ors.movenext
loop

function unirTextos(sTexto)
Clipboard.Clear
Clipboard.SetText sTexto, vbCFRTF
SendMessage Me.richtctrol.Hwnd, WM_PASTE, 0, 0
end function

espero que alguien me pueda ayudar saludos

Navegación

[0] Índice de Mensajes