怎么改变目标文件txt的字体

karlpopper

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
TrayTip("温馨提示", "我在这里哟", 5, 1)
$settingsitem        = TrayCreateMenu("设置")
Opt("TrayMenuMode",1)
$displayitem1  = TrayCreateItem("显示", $settingsitem)
$displayitem2  = TrayCreateItem("关闭", $settingsitem)
$Form1 = GUICreate("Form1",646, 473)
$MenuItem3 = GUICtrlCreateMenu("文件")
$MenuItem8 = GUICtrlCreateMenuItem("最近打开", $MenuItem3)
$MenuItem7 = GUICtrlCreateMenuItem("打开", $MenuItem3)
$MenuItem10 = GUICtrlCreateMenuItem("关闭", $MenuItem3)
$MenuItem6 = GUICtrlCreateMenuItem("保存", $MenuItem3)
$MenuItem5 = GUICtrlCreateMenuItem("退出", $MenuItem3)
$MenuItem2 = GUICtrlCreateMenu("编辑")
$MenuItem11 = GUICtrlCreateMenuItem("字体", $MenuItem2)
$MenuItem1 = GUICtrlCreateMenu("工具")
$MenuItem4 = GUICtrlCreateMenu("帮助")
$MenuItem9 = GUICtrlCreateMenuItem("关于", $MenuItem4)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 625, 377,$ES_AUTOVSCROLL)
GUICtrlSetState ($Edit1,$GUI_HIDE)
GUICtrlSetData(-1, "")
$Button1 = GUICtrlCreateButton("关闭", 200, 392, 105, 49, $WS_GROUP)
$Button2 = GUICtrlCreateButton("清空", 328, 392, 113, 49, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$temp=1
While 1

        $nMsg = GUIGetMsg()
        $tMsg = TrayGetMsg()

        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        GUISetState(@SW_HIDE)
                Case $Button1
          GUICtrlSetData($Edit1, "hello~world"&$temp&@CRLF, 1)  
                          $temp+=1
                Case $Button2
                        GUICtrlSetData($Edit1,"")
                case $MenuItem5
                        exit
                case $MenuItem7
                        $fileurl=FileOpenDialog ( "选择文件", "c:\", "文本文件 (*.txt;*.ini;*.log)" )
                        $openfile=FileOpen ( $fileurl, 0)
                        $conts=FileRead($openfile)
                        GUICtrlSetState ($Edit1,$GUI_SHOW)
                        GUICtrlSetData($Edit1,$conts)
                        FileClose($openfile)
                case $MenuItem9
                        msgbox(64,"关于","QQ")
                case $MenuItem6
                        $openfile2=FileOpen ($fileurl, 2)
                        $contssave=GUICtrlRead($Edit1)
                        FileWrite($openfile2,$contssave)
                        FileClose($openfile2)
                Case $MenuItem10
                        GUICtrlSetData($Edit1,"")
                    GUICtrlSetState ($Edit1,$GUI_HIDE)
                Case $MenuItem11
                        GUICtrlSetFont ($Edit1,9, 400, 2, "新宋体")    ; 斜体字
        EndSwitch               
        Switch $tMsg
                case $displayitem1
                        GUISetState(@SW_SHOW)
                        case $displayitem2
                        exit
               
        EndSwitch
WEnd

==============================
我想尝试做一个记事本
但是到现在遇到了两个问题
第一是 我建立了EDIT控件 打开指定文件后载入内容 如果目标内容过大的话(如某日志1XXK大) 我就不能直接修改EDIT里面的文字内容了 比如回车换行 就不能用了
第二是 比如我想修改这个TXT文件里面的字体大小 用GUICtrlSetFont ($Edit1,9, 400, 2, "新宋体")    ; 斜体字 在这里显示是可以的 但保存后重新打开就不行了 如何搞呢 请问
还有TRAY图标我想建立一个不带子菜单的项 可以吗

78391493

1.系统控件限制 无法
2.txt文件不支持设置字体、颜色及排版样式
3.可以

nxbigdaddy

是啊，楼上说的对，txt 本来就是纯文本，是没有字体的，你可以通过设置系统默认字体来改变。
winxp默认的是 宋体
win7默认是 微软雅黑

我说的是简体中文版本，至于其他版本没用过，不是很清楚。
我用了几天win7 觉得雅黑很好看，现在把xp 的默认字体也都改了，
看上去确实很舒服的，但是有些地方的字体还是改不了，有些郁闷。

karlpopper

但是我用系统自带的记事本就可以呀
还真是苦恼
另外两个问题心里有数就好了. 3Q

karlpopper

明白了 很抱歉 原来是这样子 更改的是NOTEPAD软件本身的设置 打开所有的就都是一样的
搞清楚了 继续研究....

nxbigdaddy

你用记事本改变之后 ，再打开其他记事本文件字体也是改过的。