karlpopper 发表于 2009-11-17 16:41:47

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

本帖最后由 karlpopper 于 2009-11-17 17:10 编辑

#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 发表于 2009-11-17 16:48:53

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

nxbigdaddy 发表于 2009-11-17 16:53:55

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

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

karlpopper 发表于 2009-11-17 16:54:10

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

karlpopper 发表于 2009-11-17 17:00:26

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

nxbigdaddy 发表于 2009-11-17 17:02:25

你用记事本改变之后 ，再打开其他记事本文件字体也是改过的。
页: [1]
查看完整版本: 怎么改变目标文件txt的字体