你会如何在Mathematica中做一个可点击的日历？

Question

有没有人已经考虑过如何在Mathematica中制作可点击的日历？这里似乎有一些东西http://library.wolfram.com/infocenter/Demos/108/，但我很快就对它进行了测试，似乎没有用。

Answer 1

您提供的链接似乎至少部分有用。

从WR站点加载笔记本后，扫描，应用所有自动生成的建议并对其进行评估，代码如下：

CellPrint[
 Cell[BoxData[
   GridBox[{{ButtonBox["January 2003", 
       Background -> RGBColor[0.4, 0, 0.4], 
       ButtonFunction -> Null]}, {GridBox[
       Prepend[monthlayout[1, 2003] /. 
         i : (_Integer | _String) :> 
          ButtonBox[i, Background -> RGBColor[1, 0.6, 0.8], 
           ButtonFunction -> (FrontEndToken["New"] &)], 
        alldays /. 
         s_String :> 
          ButtonBox[s, Background -> RGBColor[0.8, 0.2, 0.6], 
           ButtonFunction -> Null]]]}}]], "Output"]]

显示可点击的日历，当您点击任何一天按钮

时，该日历会打开一个新的笔记本

Answer 2

这是一个稍微详细的例子：

http://dev.ragfield.com/2009/03/flickcalendar.html