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
