代码是deepseek给的
详细说明:
组件设置:
从组件库中拖放一个通用对话框到窗口上,右键属性,将类型改为3(字体对话框)。
添加一个按钮和一个编辑框用于测试。
代码逻辑:
当用户点击按钮时,触发_按钮1_被单击事件。
设置通用对话框类型为字体对话框,并调用.打开()方法弹出对话框。
如果用户点击“确定”,则从通用对话框中获取字体属性,并逐一赋值给编辑框的字体属性。
注意事项:
确保使用正确的属性名,如字体名称、字体大小等。
颜色属性颜色需要在字体对话框中勾选颜色选项,否则可能不生效。
测试时,编辑框内容需足够长以观察字体变化效果。
通过上述代码,用户可以点击按钮弹出字体选择对话框,并根据所选字体样式实时更新编辑框的显示效果。
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | | 变量名 | 类 型 | 数组 | 备 注 | 字体信息 | 字体信息结构 | |
通用对话框1.类型 = 3 如果真 (通用对话框1. 打开 ())  字体信息.字体名称 = 通用对话框1.字体名称  字体信息.字体大小 = 通用对话框1.字体大小  字体信息.是否加粗 = 通用对话框1.字体加粗  字体信息.是否斜体 = 通用对话框1.字体斜体  字体信息.是否下划线 = 通用对话框1.字体下划线  字体信息.是否删除线 = 通用对话框1.字体删除线  字体信息.颜色 = 通用对话框1.颜色   编辑框1.字体.字体名称 = 字体信息.字体名称  编辑框1.字体.字体大小 = 字体信息.字体大小  编辑框1.字体.加粗 = 字体信息.是否加粗  编辑框1.字体.斜体 = 字体信息.是否斜体  编辑框1.字体.下划线 = 字体信息.是否下划线  编辑框1.字体.删除线 = 字体信息.是否删除线  编辑框1.字体.颜色 = 字体信息.颜色  |