Code: Select all
#NoEnv
#Persistent
#SingleInstance force
RDD(strDays,strDay) {
if Instr(strDays,strDay)>0 {
strDays:=StrReplace(StrReplace(strDays,strDay,""),",,",",")
}
Loop {
if SubStr(strDays,1,1)=","
strDays:=SubStr(strDays,2,StrLen(StrDays)-1)
else
Break
}
Return strDays
}
SetTitleMatchMode, 1
Gui, +AlwaysOnTop +SysMenu +Owner
Gui, Add, ListBox,x10 y105 vIPList
Gui, Add, Button, x185 y105 gSelectDate,ChoseDay
Xpos := Floor ( A_ScreenWidth / 2 )
Ypos := Floor ( A_ScreenHeight / 8 )
Gui, Show, X%Xpos% Y%YPos% W450 H400, ChoseDays
Return
SelectDate:
IfWinExist, SelectDate ;added to prevent variable error
Gui AddDate:Destroy ;added to prevent variable error
Gui, AddDate:Add, MonthCal, vDayPick gDayPick, 16
Gui, AddDate:Add, Button, Default, Submit
Gui, AddDate:Add,Edit,vSelDays
Gui, AddDate:Add,ListBox,vSelDay
Gui, AddDate:Show,, SelectDate
return
GuiClose:
ExitApp
Return
DayPick:
;MsgBox % "A_GuiEvent=" . A_GuiEvent
GuiControlGet, TmpSelDays,,SelDays
if StrLen(TmpSelDays)>0 {
if InStr(TmpSelDays,DayPick)>0
TmpSelDays:=RDD(TmpSelDays,DayPick)
else
TmpSelDays.= "," . DayPick
} else {
TmpSelDays:=DayPick
}
TmpSelDays:=StrReplace(TmpSelDays, ",,", ",")
GuiControl, ,selDays,% TmpSelDays
ControlSend,AddDate:ListBox1, 233,SelectDate
Return