方法一：采用prg创建form对象后，可以容易获取创建对象（如hwnd，this.hUEdit），调用SetUEditText（）
方法二：如果采取表单设计器，添加Actives类rich text控件 并保存，以后do form xxx 后，还可以获取
        form_xxx里rich text对象，调用类似SetUEditText（）来改变现实内容吗？
不知方法二可以实现吗，还是只能从方法一入手？就是想知道类似SetUEditText（）可以实现 方法二中通用吗
谢谢！

采取  b=Thisform.AddObject("txtRich", "OleControl", "RICHTEXT.RichTEXTCtrl.1")
 可以通过 API 直接实现 b.textrtf =  FILETOSTR("!!音标.csv") 吗？
有现成的类似SetUEditText（）API吗

请问 SetWindowPos 能对form类windows对象下的hUEdit子对象也可以直接修改位置宽高吗？

SetWindowPos可以实现，建议不要只是照抄代码，尝试着花点时间去理解大佬的代码是怎么实现的
我也是小白，仅当建议

用richtext控件就看看richtext的相关参考资料。

关键不是SetUEditText()，SetUEditText只是读取文件。
关键是控件如何显示输出数据。

你是说的太多，做的太少
DEFINE CLASS formUEdit as Form
    ShowWindow = 2
    hUEdit     = 0
    PROCEDURE Activate
        this.hUEdit = CreateUEdit(this.hWnd)
        SetFont(this.hUEdit, 24, "Arial")
        SetFocus(this.hUEdit)
        SetUEditText(this.hUEdit, STRCONV(0h7369C58B00,12))
DECLARE INTEGER SetWindowPos IN Win32API ;
INTEGER hWnd, INTEGER InsertAfter, ;
INTEGER left, INTEGER top, ;
INTEGER width, INTEGER height, ;
INTEGER flags
SetWindowPos ( this.hUEdit,0 , ;
0, 0, ;
300, 200, ;
16)
    ENDPROC
    PROCEDURE Destroy
        DestroyUEdit(this.hUEdit)
        CLEAR EVENTS
    ENDPROC
ENDDEFINE

感谢提醒，查到SetWindowPos()是 Win32API 里已有的。回复 56楼 sych
DEFINE CLASS newformUEdit as Form
    width      = 420
    height     = 700   
    ShowWindow = 2
    hUEdit     = 0
    PROCEDURE Activate
        this.hUEdit = CreateUEdit(0,0,400,700,this.hWnd)
        SetFont(this.hUEdit, 24, "Arial")
        SetFocus(this.hUEdit)
        SetUEditText(this.hUEdit, FILETOSTR("!!音标.csv"))
        DECLARE INTEGER SetWindowPos IN Win32API ;
        INTEGER hWnd, INTEGER InsertAfter, ;
        INTEGER left, INTEGER top, ;
        INTEGER width, INTEGER height, ;
        INTEGER flags
        SetWindowPos ( this.hUEdit,  0 , 0, 0, 250, 600, 16)
      &&SetWindowPos (hWnd,hWndInsertAfter,         HWND,int X          ,          int Y,  int cx,  int cy,uFlags  )
      &&SetWindowPos (目标窗口句柄,Z轴顺序的相对窗口句柄,窗口左上角X坐标,窗口左上角Y坐标,窗口宽度,窗口高度,操作标志)
    ENDPROC
    PROCEDURE Destroy
    ENDPROC
ENDDEFINE

使用richtext控件
fname="11.txt"  &&注意这个文件是UTF-8格式的
SYS(3101,65001)
WITH thisform.Olecontrol5
    .loadFile(fname,1)
    .SelStart = 0
    .SelLength = LEN(.Text)
    .SelColor = RGB(0, 0, 255)
    .SelFontName = "黑体"
    .SelFontSize = 16
ENDWITH
SYS(3101,0)
retu

command1.click 代码如下

PUBLIC txtRich_test
txtRich_test=Thisform.AddObject("txtRich", "OleControl", "RICHTEXT.RichTEXTCtrl.1")

?txtRich_test
Thisform.txtRich.visible=.t.
Thisform.txtRich.width=300
Thisform.txtRich.height=600
Thisform.txtrich.textrtf=FILETOSTR("!!音标.csv")

MESSAGEBOX("点确定后，新建txtRich类控件 尺寸改变",0,"")

SetWindowPos (txtRich_test,  0 , 0, 0, 50, 500, 16)

command1.click 代码如上

fname="音标UTF-8.txt"  &&注意这个文件是UTF-8格式的
IF FILE("音标UTF-8.txt")
   SYS(3101,65001)
   WITH thisform.Olecontrol5
        .loadFile("音标UTF-8.txt",1)此句报错
        .SelStart = 0
        **.SelLength = LEN(.Text)
        .SelColor = RGB(0, 0, 255)
        .SelFontName = "黑体"
        .SelFontSize = 16
   ENDWITH
   SYS(3101,0)
ENDIF