找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 已解决问题区 › 【已解决】GUICtrlCreateEdit如何根据GUICtrlCreateComb ...
返回列表 发新帖
查看: 5073|回复: 7

[AU3基础] 【已解决】GUICtrlCreateEdit如何根据GUICtrlCreateCombo显示相关内容问题，谢谢！

 火 [复制链接]
天之骄子
发表于 2014-5-10 21:50:20 | 显示全部楼层 |阅读模式
本帖最后由 天之骄子 于 2014-5-11 16:16 编辑

自己想写个工作提醒的软件，用于解决每周和每月需要做某项固定工作的提醒问题，但是写到以下部分，不知道该如何在操作软件时如何让GUICtrlCreateEdit能够根据GUICtrlCreateCombo的选项显示相关的内容，请求帮忙解决！

======================
已经解决，谢谢两位的解答，谢谢！
======================
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("工作提醒工具", 279, 283, 192, 124)
$Group1 = GUICtrlCreateGroup("提醒方式", 24, 16, 233, 41)
$Radio1 = GUICtrlCreateRadio("周循环", 56, 32, 57, 17)
$Radio2 = GUICtrlCreateRadio("月循环", 168, 32, 65, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("提醒时间", 24, 72, 233, 49)
$Combo1 = GUICtrlCreateCombo("", 48, 88, 73, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$Combo2 = GUICtrlCreateCombo("", 158, 91, 73, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("提醒内容", 24, 136, 233, 105)
$Edit1 = GUICtrlCreateEdit("", 32, 152, 217, 81)
GUICtrlSetData(-1, "")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("确定", 96, 248, 73, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Radio1
                        Global $zhou
                        GUICtrlSetData($Combo1, "")
                        GUICtrlSetData($Combo1, "星期一|星期二|星期三|星期四|星期五|星期六|星期日|", "星期一")
                        GUICtrlSetData($Combo2, "")
                        GUICtrlSetData($Combo2, "01:00|02:00|03:00|04:00|05:00|06:00|07:00|08:00|" & _
                                        "09:00|10:00|11:00|12:00|13:00|14:00|15:00|16:00|" & _
                                        "17:00|18:00|19:00|20:00|21:00|22:00|23:00|24:00|", "08:00")
                Case $Radio2
                        Global $yue
                        GUICtrlSetData($Combo1, "")
                        GUICtrlSetData($Combo1, "01日|02日|03日|04日|05日|06日|07日|08日|09日|10日|" & _
                                        "11日|12日|13日|14日|15日|16日|17日|18日|19日|20日|" & _
                                        "21日|22日|23日|24日|25日|26日|27日|28日|29日|30日|31日|", "01日")
                        GUICtrlSetData($Combo2, "")
                        GUICtrlSetData($Combo2, "01:00|02:00|03:00|04:00|05:00|06:00|07:00|08:00|" & _
                                        "09:00|10:00|11:00|12:00|13:00|14:00|15:00|16:00|" & _
                                        "17:00|18:00|19:00|20:00|21:00|22:00|23:00|24:00|", "08:00")
                        
                Case $Combo1
                        
                Case $Button1
                        xierutixingwenjian()
        EndSwitch
WEnd
Func duqutixingwenjian()
        Global $duquriqi = GUICtrlRead($Combo1)
        Global $Files = @ScriptDir & "\Keep" & $duquriqi & ".txt"
        Local $txt, $temp
        $temp = FileOpen($Files, 0)
        $txt = FileRead($temp)
        FileClose($temp)
        Return $txt
EndFunc   ;==>duqutixingwenjian

Func xierutixingwenjian()
        Global $duquriqi = GUICtrlRead($Combo1)
        Global $Files = @ScriptDir & "\Keep" & $duquriqi & ".txt"
        Local $txt, $temp
        $temp = FileOpen($Files, 2)
        $txt = GUICtrlRead($Edit1)
        FileWrite($temp, $txt)
        FileClose($temp)
EndFunc   ;==>xierutixingwenjian
include, 如何, 软件

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×

相关帖子
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
seniors
发表于 2014-5-11 08:10:42 | 显示全部楼层
Case $Combo1
改变edit内容()
回复

举报

天之骄子
 楼主| 发表于 2014-5-11 08:15:07 | 显示全部楼层 
Func duqutixingwenjian()
        Global $duquriqi = GUICtrlRead($Combo1)
        Global $Files = @ScriptDir & "\Keep" & $duquriqi & ".txt"
        Local $txt, $temp
        $temp = FileOpen($Files, 0)
        $txt = FileRead($temp)
        FileClose($temp)
        Return $txt
EndFunc   ;==>duqutixingwenjian
回复 2# seniors


   谢谢您的回答，应该是在这段内容中更改吧，但是不知道该怎么写，自己试着写了下，但是不变化，感觉需要用数组比较方便，但是自己不会用数组。
回复

举报

lixiaolong
发表于 2014-5-11 14:53:26 | 显示全部楼层
回复 1# 天之骄子

给你一个例子，自己改改吧.
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("工作提醒工具", 279, 283, 192, 124)
$Group1 = GUICtrlCreateGroup("提醒方式", 24, 16, 233, 41)
$Radio1 = GUICtrlCreateRadio("周循环", 56, 32, 57, 17)
$Radio2 = GUICtrlCreateRadio("月循环", 168, 32, 65, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("提醒时间", 24, 72, 233, 49)
$Combo1 = GUICtrlCreateCombo("", 48, 88, 73, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$Combo2 = GUICtrlCreateCombo("", 158, 91, 73, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("提醒内容", 24, 136, 233, 105)
$Edit1 = GUICtrlCreateEdit("", 32, 152, 217, 81)
GUICtrlSetData(-1, "")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("确定", 96, 248, 73, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Radio1
                        Global $zhou
                        GUICtrlSetData($Combo1, "")
                        GUICtrlSetData($Combo1, "星期一|星期二|星期三|星期四|星期五|星期六|星期日|", "星期一")
                        GUICtrlSetData($Combo2, "")
                        GUICtrlSetData($Combo2, "01:00|02:00|03:00|04:00|05:00|06:00|07:00|08:00|" & _
                                        "09:00|10:00|11:00|12:00|13:00|14:00|15:00|16:00|" & _
                                        "17:00|18:00|19:00|20:00|21:00|22:00|23:00|24:00|", "08:00")
                        
                        duqutixingwenjian(_IsChecked())
                Case $Radio2
                        Global $yue
                        GUICtrlSetData($Combo1, "")
                        GUICtrlSetData($Combo1, "01日|02日|03日|04日|05日|06日|07日|08日|09日|10日|" & _
                                        "11日|12日|13日|14日|15日|16日|17日|18日|19日|20日|" & _
                                        "21日|22日|23日|24日|25日|26日|27日|28日|29日|30日|31日|", "01日")
                        GUICtrlSetData($Combo2, "")
                        GUICtrlSetData($Combo2, "01:00|02:00|03:00|04:00|05:00|06:00|07:00|08:00|" & _
                                        "09:00|10:00|11:00|12:00|13:00|14:00|15:00|16:00|" & _
                                        "17:00|18:00|19:00|20:00|21:00|22:00|23:00|24:00|", "08:00")

                        duqutixingwenjian(_IsChecked())
                Case $Combo1, $Combo2
                        duqutixingwenjian(_IsChecked())
                        
                Case $Button1
                        xierutixingwenjian()
        EndSwitch
WEnd

Func duqutixingwenjian($a = "")
        Switch $a
                Case 1
                        GUICtrlSetData($Edit1, GUICtrlRead($Radio1, 1) & @CRLF)
                Case 2
                        GUICtrlSetData($Edit1, GUICtrlRead($Radio2, 1) & @CRLF)
        EndSwitch
        
        GUICtrlSetData($Edit1, GUICtrlRead($Combo1) & @CRLF & _
                        GUICtrlRead($Combo2), 1)
EndFunc   ;==>duqutixingwenjian

Func xierutixingwenjian()
        Global $duquriqi = GUICtrlRead($Combo1)
        Global $Files = @ScriptDir & "\Keep" & $duquriqi & ".txt"
        
        If Not FileExists(@ScriptDir & "\Keep") Then DirCreate(@ScriptDir & "\Keep")
        
        Local $txt, $temp
        $temp = FileOpen($Files, 2)
        $txt = GUICtrlRead($Edit1)
        FileWrite($temp, $txt)
        FileClose($temp)
EndFunc   ;==>xierutixingwenjian

Func _IsChecked()
        If BitAND(GUICtrlRead($Radio1), $GUI_CHECKED) = $GUI_CHECKED Then
                Return 1
        ElseIf BitAND(GUICtrlRead($Radio2), $GUI_CHECKED) = $GUI_CHECKED Then
                Return 2
        EndIf
EndFunc   ;==>_IsChecked
回复

举报

天之骄子
 楼主| 发表于 2014-5-11 16:13:14 | 显示全部楼层
本帖最后由 天之骄子 于 2014-5-11 16:17 编辑

回复 4# lixiaolong

    好的，谢谢了小龙哥。
回复

举报

4yc
发表于 2014-5-11 23:11:56 | 显示全部楼层
好东西。收藏。
回复

举报

weeks1
发表于 2014-5-12 07:36:04 | 显示全部楼层
谢谢分享。。。。
回复

举报

ak47gglllk
发表于 2014-5-13 13:38:46 | 显示全部楼层
感谢分享，谢谢
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-9-28 04:21 , Processed in 0.092133 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表