是的，其实全是调用win32API，只是为省时间测试才用C写，只用vfp写应该也可以。
只要有了控件句柄，用windows api可以设置控件的属性。

您好!这个rar包里的scx文件已经满足基本功能，这里可以按需调整huedit控件的显示文件
SetUEditText(of.hUEdit, FILETOSTR("!!音标1.csv")),可以根据英文单词显示指定csv文件。
指定csv文件可以包含50个单词音标，只要根据英文单词找到打开哪个csv文件即可显示。

这里需要将huedit控件对象left、top、width、height可调即可，
可以从 of.hUEdit查看到某个值，估计这个值就是 句柄。
（1）但不会API调句柄，改对象位置和大小。
（2）也无法做到uedit.c文件增加控制huedit对象left、top、width、height参数语句，并编译。
     这个估计还要装C软件，实现编译dll，重新拷贝如电脑
是否以上两个方法之一，就可以实现of.huedit"对象"修改位置、宽高数值？
如果版主能再帮忙uedit.c里加个方法，实现huedit"对象"修改位置、宽高数值，再编译上传就好！
不好意思，再问一下，是只要uedit.c修改重新编译，只拷贝uedit.dll文件覆盖就可以吗?
谢谢！

在vfp9 DBF或 MSSQL存utf8 Base64 格式，然后把Base64用支持的Unicode API转成Unicode 16显示就可以了，即可存也可以看

如果只作显示用，增加设置编辑框的位置和大小、字体的名称和大小颜色、滚动条等。
如果要作编辑数据用，要考虑的问题不少，如焦点问题，鼠标键盘事件等。

只作显示用，增加设置编辑框的位置，大小、字体的名称和大小颜色、滚动条即可。
谢谢

抽空再试试吧，现在要带小孩有点困身。

感谢版主的支持。只要先初始uedit控件高度为700即可，主窗口界面可以与包含uedit控件表单高度设置一样，发生新查询就调用uedit.prg
这里也继续研究winapi。
看到vfp9.0中“SetUEditText(this.hUEdit, FILETOSTR("!!音标.csv"))”
好像含unicode编码文件经 vfp9.0里的FILETOSTR()也能转入，
那关键在于如何实现将FILETOSTR()的句柄《不知是这个术语吗》经非VFP的API再次转向到uedit控件的。


DEFINE CLASS formUEdit as Form
    width      = 500
    height     = 500   
    ShowWindow = 2
    hUEdit     = 0
    PROCEDURE Activate
        this.hUEdit = CreateUEdit(this.hWnd) &&在formedit表单对象里创建一个huedit文本框对象
        SetFont(this.hUEdit, 24, "Arial")
        SetFocus(this.hUEdit)
       SetUEditText(this.hUEdit, FILETOSTR("!!音标.csv"))
    ENDPROC
    PROCEDURE Destroy
        DestroyUEdit(this.hUEdit)
        CLEAR EVENTS
    ENDPROC
ENDDEFINE

收到的鲜花

• trial03 于 2025-08-22 08:56 送鲜花  1朵  

38楼提到的用SetWindowPos()就可以设置。
先增加控件的参数 Left、Top、Width、Height 试试

CLEAR
CLEAR ALL

PUBLIC cDefPath
cDefPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cDefPath)

DECLARE Long SetFocus     IN user32 long
DECLARE Long CreateUEdit  IN UEdit long,long,long,long,long
DECLARE Long DestroyUEdit IN UEdit long
DECLARE Long SetUEditText IN UEdit long,string
DECLARE Long SetFont      IN UEdit long,long,string

of = CREATEOBJECT("formUEdit")
of.show()
READ EVENTS

 
CLOSE TABLES ALL 
CLEAR ALL
RETURN

DEFINE CLASS formUEdit as Form 
    width      = 800
    height     = 700    
    ShowWindow = 2
    hUEdit     = 0
    PROCEDURE Activate
        this.hUEdit = CreateUEdit(0,0,700,700,this.hWnd) 
        SetFont(this.hUEdit, 24, "Arial")
        SetFocus(this.hUEdit)
        SetUEditText(this.hUEdit, FILETOSTR("C:\_temp\!!音标.csv"))
    ENDPROC
    PROCEDURE Destroy
        DestroyUEdit(this.hUEdit)
        CLEAR EVENTS 
    ENDPROC 
ENDDEFINE

[此贴子已经被作者于2025-8-22 07:02编辑过]

文件存取通常是按字节来处理，看到从文件取出来的字符乱码，有可能那只是“看到”的而并不是“取到”的字符本身，也就是说通过输出的设备不能真实还原字符，如从文件取出来的“ŋ”显示输出时变“?”了。
FILETOSTR()是较高级的文件处理函数，无需理会文件句柄，他是直接将整个文件完整载入到内存。

新rar下载测试，可使用。感谢一早解答