［已解决］怎样读取配置文件内容显示到GUI

jycel

在客户机做了一个工具集合，上面加了一个滚动公告，内容是从服务器共享配置文件上面读取的，于是写了一个公告管理！这个默认我想在点击后，从备份配置文件中读取到GUI上面，不知用那个函数
截图和代码如下，

#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#Include <GuiStatusBar.au3>

Opt("GUIOneventMode",1)

Dim $Button[66]

$WinMain  = GUICreate("公告管理", 180, 310)            ;创建主窗口

GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")  

;$Button[0]  = GUICtrlCreateGroup("公告管理系统",2, 2, 168,280);显示子窗口
$Button[1]  = GUICtrlCreateGroup("公告标题",5, 5, 169, 50);显示子窗口
$Button[2]  = GUICtrlCreateGroup("公告内容[不得超过166字符]",5, 60, 169, 200);显示子窗口

$Button[3]  = GUICtrlCreateInput("最新公告",10, 18, 158, 30,$ES_MULTILINE);显示子窗口
$Button[4]  = GUICtrlCreateInput("本程序已集合在线影院、电视直播、搜索等工具,如果您对本程序有任何见意请点击QQ留言,欢迎大家提出宝贵意见,最后祝大家上网愉快!",10, 75, 158, 180,$ES_MULTILINE);显示子窗口

$Button[5]  = GUICtrlCreateButton("默认",5, 265, 50, 25);显示子窗口
$Button[6]  = GUICtrlCreateButton("保存",60, 265, 50, 25);显示子窗口
$Button[7]  = GUICtrlCreateButton("退出",120, 265, 50, 25);显示子窗口


$StatusBar1 = _GUICtrlStatusBar_Create($WinMain)
Dim $StatusBar1_PartsWidth[3] = [0, 0, 100]

$S0 =""
$S1 =""


$S2="【飛翔網絡】公告系统 BY-Jycel"
_GUICtrlStatusBar_SetParts($StatusBar1, $StatusBar1_PartsWidth)
_GUICtrlStatusBar_SetText($StatusBar1, $S2, 2)
_GUICtrlStatusBar_SetText($StatusBar1, $S1, 1)
_GUICtrlStatusBar_SetText($StatusBar1, $S0, 0)
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 15)

GUISwitch($WinMain)                            ;切换当前窗口到主窗口
GUISetState(@SW_SHOW)   

For $I = 22 to 0 Step -1
        GUICtrlSetOnEvent($Button[$I],"GUICtrlMsg") ;注册总共的六个按钮点击事件到函数 GUICtrlMsg
                                                    ;请区分 GUISetOnEvent 和 GUICtrlSetOnEvent的区别
Next
                                                                                                
While 1
        
WEnd
Func GUICtrlMsg()
        Switch @GUI_CtrlId;选择事件 ID 或 控件 ID
                Case $GUI_EVENT_CLOSE;如果点下的是$GUI_EVENT_CLOSE(关闭)
                        GUISetState(@SW_HIDE,@GUI_WinHandle);  隐藏产生事件的窗口
                                case $Button[5]        
                                        IniRead("H:\Update\configbak.ini","公告","标题","最新公告")
                                        IniRead("H:\Update\configbak.ini","内容","内容","本程序已集合在线影院、电视直播")
                                Case $Button[6]
                                        $bt= GUICtrlRead($Button[3])
                                        $lr= GUICtrlRead($Button[4])
                                        IniWrite("H:\Update\config.ini","公告","标题",'"'&$bt&'"')
                                        IniWrite("H:\Update\config.ini","内容","内容",'"'&$lr&'"')
                                        MsgBox(64,"成功","保存成功")
                                Case $Button[7]
                         _exit()
                                             
        EndSwitch
EndFunc

Func _Exit()


Exit

EndFunc

[ 本帖最后由 jycel 于 2009-3-17 23:30 编辑 ]

jycel

QQ群到答案，多谢叁恨居士指点！inireda-guictrlsetdata函数

menfan

原帖由 jycel 于 2009-3-17 23:29 发表
QQ群到答案，多谢叁恨居士指点！inireda-guictrlsetdata函数

QQ群?多少号呢？

jycel

自由天空SKYfree出的教材上面有！QQ有密保卡，现在在外面，看不了！不好意思