527364_zh-CN

liliconcom

附加日历框

你好，

我正在尝试创建一个用户界面来选择日期。我添加了一个按钮框，它将日历框附加到面板框，但每次单击时，它都会不断向面板框添加元素。我想在第二次单击时隐藏日历框。有办法实现这一点吗？

这是我的代码：

sd=Today();
ed=Today();
New Window( "Query Date", <<MODAL></MODAL>

<LINGO-LABS id="lingo-labs-527364" slang="en-US" mode="UPDATE"><LINGO-LABEL>高级统计建模</LINGO-LABEL><LINGO-LABEL>消费者和市场研究</LINGO-LABEL><LINGO-LABEL>数据混合和清理</LINGO-LABEL><LINGO-LABEL>质量和工艺工程</LINGO-LABEL></LINGO-LABS>回复：附加日历框

这是处理它的一种方法

Names Default To Here( 1 );
sd = Today();
ed = Today();
flag = 0;
New Window( "Query Date",
 <<MODAL></MODAL>

回复：附加日历框

只是为了扩展@txnelson的建议，这里是另一个。 它仅说明了一种技术。 无论如何，它都不是一个完整的脚本。 它还表明，使用数字编辑框的日期格式将自动提供日历选项。

 

Names Default To Here( 1 );

sd = ed = Today();
visible = 0;

New Window( "Query Date",
 << Modal,
 Panel Box( "From Time",
  Line Up Box( N Col( 3 ),
   Text Box( "Start" ),
   Number Edit Box( sd,
    << Set Format( Format( "m/d/y", 12 ) )
   ),
   cb1 = Calendar Box( << Visibility( Collapse ) ),
   Text Box( "End" ),
   Number Edit Box( ed,
    << Set Format( Format( "m/d/y", 12 ) )
   ),
   cb2 = Calendar Box( << Visibility( Collapse ) )
  )
 ),
 bb = Button Box( "Show Calendars",
  If( visible,
   { cb1, cb2 } << Visibility( Collapse );
   bb << Set Button Name( "Show Calendars" ),
   { cb1, cb2 } << Visibility( Visible );
   bb << Set Button Name( "Hide Calendars" );
  );
  visible = !visible;
 )
);