Office中国论坛/Access中国论坛

标题: 【作业】03课-CA135B_Amas [打印本页]
作者: Amas    时间: 2014-3-20 16:55
标题: 【作业】03课-CA135B_Amas
本帖最后由 Amas 于 2014-3-20 16:58 编辑

作业目标：制作一个文档级功能，在输入日期时弹出日期选择窗口。
[attach]53628[/attach]


利用了Worksheet.SelectionChange事件 和 Win.Form的模态窗口属性

  1. using System;
  2. using System.Windows.Forms;
  3. using Excel = Microsoft.Office.Interop.Excel;


  6. namespace Lesson03_CA135B
  7. {

  9.     public partial class Sheet1
  10.     {


  13.         private DateForm dateForm;      //构造一个日期选择窗口

  15.         private void Sheet1_Startup(object sender, System.EventArgs e)
  16.         {

  18.             this.SelectionChange += Sheet1_SelectionChange;     //订阅事件

  20.         }


  23.         void Sheet1_SelectionChange(Excel.Range Target)
  24.         {

  26.             if (Target.Column == 1 && Target.Row != 1 && Target.Count == 1)     //判断当前活动单元格是否是A列，非第1行，且不多选
  27.             {
  28.                 if (dateForm == null || dateForm.IsDisposed)
  29.                 {
  30.                     dateForm = new DateForm();

  32.                     dateForm.ShowDialog();  //模态窗口显示

  34.                     Target.Value = DateForm.cDay;

  36.                 }

  38.             }
  39.             else
  40.             {
  41.                 if (dateForm != null)
  42.                 {
  43.                     dateForm.Dispose();
  44.                 }
  45.             }


  48.         }
复制代码

日期选择窗口代码
  1. namespace Lesson03_CA135B
  2. {

  4.     public partial class DateForm : Form
  5.     {
  6.         public static string cDay;
  7.         public DateForm()
  8.         {
  9.             InitializeComponent();
  10.         }

  12.         private void dateTimePicker1_ValueChanged(object sender, EventArgs e)
  13.         {
  14.             cDay =Convert.ToString( dateTimePicker1.Value);
  15.         }


  18.     }
复制代码

因知识点不够，未实现窗口跟随单元格显示，还存在一些考虑不到的问题。只待以后慢慢修改、扩展。

[attach]53631[/attach]





欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3