图标列表框 – 置项目文本

.子程序 _按钮EX4_左键单击, 整数型
.参数 坐标x, 整数型
.参数 坐标y, 整数型
.参数 附加参数, 整数型

.如果真 (图标列表框EX1.现行选中项 ＞ -1)
图标列表框EX1.置项目文本 (图标列表框EX1.现行选中项, ATU (“更改后的标题”))

.子程序 UTA, 文本型, 公开, 将Unicode转成Ansi
.参数 参数_Unicode文本指针, 字节集
.局部变量 Ansi长度, 整数型
.局部变量 返回值, 文本型

Ansi长度 ＝ WideCharToMultiByte (1, 0, 参数_Unicode文本指针, -1, “”, 0, 0, 0)
.如果真 (Ansi长度 ＝ 0)
返回 (“”)
.如果真结束
返回值 ＝ 取空白文本 (Ansi长度 ＋ 1)
WideCharToMultiByte (1, 0, 参数_Unicode文本指针, -1, 返回值, Ansi长度, 0, 0)
返回 (返回值)

.子程序 ATU, 字节集, 公开, 将Ansi转成Unicode
.参数 参数_Ansi文本, 文本型
.局部变量 长度, 整数型
.局部变量 返回值, 字节集

长度 ＝ MultiByteToWideChar (0, 0, 参数_Ansi文本, -1, { }, 0)
.如果真 (长度 ＝ 0)
返回 ({ 0, 0 })
.如果真结束
返回值 ＝ 取空白字节集 (长度 × 2 ＋ 2)
MultiByteToWideChar (0, 0, 参数_Ansi文本, 取文本长度 (参数_Ansi文本), 返回值, 长度)
返回 (返回值)