Excel催化剂开源第23波-VSTO开发辅助录入功能

在Excel催化剂的几大辅助录入功能中（数据验证保护、数据多级联动输入、关键词模糊智能匹配输入）中，用了一些customxmlPart技术来存储配置信息，同时在关键词模糊智能匹配输入中，用了一个VSTO开发才能满足的自定义控件技术，很值得启发，拿出来给大家作一分享。

一般来说控件都是放到窗体或任务窗格中，但Excel同样支持将控件放到工作表单元格上，如前面提到的picturebox容器，放到单元格区域上，然后在容器上发图片，实现插入图片功能，同样地也可以存放单选、复选这些控件，当然，严格来说，在VBA环境下也可以完成这些工作。

在VSTO框架下，有一革命性的突破是，可以放我们的自定义控件，这个具体和VBA的自定义Active控件有什么不一样，就不太知道，但起码VSTO放自定义控件，开发成本极低。

自定义控件，可直接用到工作表单元格中

具体实现原理

通过用户配置操作，将需要进行快速录入的区域记录下来，用SelectionChange事件来响应，若用户选择到这些单元格时，就激发事件方法，显示自定义控件，并让光标定位到自定义控件的查找控件TextBox等待用户输入。输入过程中动态控制下方DataGridView的查找结果，用户可以按方向箭下上在结果中选择对应的条目，再按Enter或Tab键确定内容录入。

具体代码

先绑定事件

 internal void ExcelApp_SheetSelectionChangeFastInput(object Sh, Excel.Range Target)
 {
 try
 {
 Globals.ThisAddIn.Application.SheetSelectionChange -= this.ExcelApp_SheetSelectionChangeFastInput;
 FormFastInput.UscFastInput.UserControlTextBox.KeyDown -= FormFastInput.UscFastInput.textBox1_KeyDown;
 if (Target.Cells.CountLarge == 1)
 {
 FormFastInput.SelectionChangeOfFastInput(Target);
 }
 }
 catch (Exception ex)
 {
 Common.OutMsgError(ex);
 }
 finally
 {
 Globals.ThisAddIn.Application.SheetSelectionChange += this.ExcelApp_SheetSelectionChangeFastInput;
 FormFastInput.UscFastInput.UserControlTextBox.KeyDown += FormFastInput.UscFastInput.textBox1_KeyDown;
 }
 }

响应录入单元格区域的代码，将自定义控件显示尺寸变大，之前有个关键点是隐藏了自定义控件后再显示，焦点不能顺利落到自定义控件的搜索TextBox上，采用了迂回的隐藏时不是真隐藏，只是缩小成1*1像素大小，好像后来其他位置发现了更好解决方案，原代码没有来得及重新改过来。

 public static void SelectionChangeOfFastInput(Excel.Range Target)
 {
 FormFastInput.CurrentSelectCell = Target;
 int fastInputID = GetFastInputID(Target);//找不到有交集时返回int最大值
 if (fastInputID < int.MaxValue)
 {
 FormFastInput.UscFastInput.FastInputID = fastInputID;//传入usc中，下一次textbox事件可以直接用，不用再找。
 ShowUscAndSettingUscFastInputTextBox(Target);
 FormFastInput.UscFastInput.IsTextChanged = false;
 FormFastInput.UscFastInput.DgvSelectedRowIndex = 0;
 FormFastInput.UscFastInput.IsFirstEnterDgv = true;//为了能够在首次为0时仍然是0而不是+1的效果
 SettingUscLableAndFilterDgv(fastInputID);
 }
 else
 {
 //FormFastInput.InputUserControl.Visible = false;
 FormFastInput.InputUserControl.Width = 1; //缩小成1而不是隐藏，为了下次激活时可以顺利进入textbox激活
 FormFastInput.InputUserControl.Height = 1;
 }
 }

有个小细节，在窗体中，怎样控制默认的Enter和Tab键的功能，默认为窗体退出键和TabIndex跳转键，这里有个对一个方法进行重写即可。

 protected override bool ProcessDialogKey(Keys keyData)
 {
 if (keyData == Keys.Enter || keyData == Keys.Tab)
 {
 ReturnValueFromUserControl(keyData);
 return true;
 }
 return base.ProcessDialogKey(keyData);
 }

改变其默认功能后，就可以像其他键一样捕捉其KeyDown事件，例如此处的录入功能中，按Enter是跳转到下一行，按Tab是跳转到右侧列，实现键盘盲打录入不依赖鼠标实现。

 internal void textBox1_KeyDown(object sender, KeyEventArgs e)
 {
 try
 {
 if (this.IsTextChanged)
 {
 switch (e.KeyCode)
 {
 case Keys.Down:
 if (this.IsFirstEnterDgv == true || this.DgvSelectedRowIndex == this.dataGridView1.Rows.Count - 1)
 {
 this.DgvSelectedRowIndex = 0;
 this.IsFirstEnterDgv = false;
 }
 else
 {
 this.DgvSelectedRowIndex++;
 }
 RedirectDgvRow();
 break;
 case Keys.Up:
 if (this.DgvSelectedRowIndex == 0)
 {
 this.DgvSelectedRowIndex = this.dataGridView1.Rows.Count - 1;
 }
 else
 {
 this.DgvSelectedRowIndex--;
 }
 RedirectDgvRow();
 break;
 case Keys.Tab:
 ReturnValueFromUserControl(Keys.Tab);
 break;
 case Keys.Enter:
 ReturnValueFromUserControl(Keys.Enter);
 break;
 default:
 break;
 }
 }
 else//刚刚进到文本框中，想跳出来选择其他单元格时
 {
 switch (e.KeyCode)
 {
 case Keys.Down:
 case Keys.Enter:
 FormFastInput.CurrentSelectCell.Offset[1, 0].Select();
 break;
 case Keys.Up:
 FormFastInput.CurrentSelectCell.Offset[-1, 0].Select();
 break;
 case Keys.Left:
 FormFastInput.CurrentSelectCell.Offset[0, -1].Select();
 break;
 case Keys.Right:
 case Keys.Tab:
 FormFastInput.CurrentSelectCell.Offset[0, 1].Select();
 break;
 }
 }
 }
 catch (Exception)
 {
 }
 finally
 {
 }
 }
 private void ReturnValueFromUserControl(Keys keys)
 {
 bool isDgvSelected = this.dataGridView1.Rows.Cast().Any(s => s.Selected); //当dgv有选择列时
 if (isDgvSelected)
 {
 FormFastInput.CurrentSelectCell.Value2 = this.dataGridView1.SelectedRows[0].Cells[FormFastInput.ReturnColIndex].Value;
 }
 else
 {
 FormFastInput.CurrentSelectCell.Value2 = this.textBox1.Text;
 }
 if (keys == Keys.Tab)
 {
 FormFastInput.CurrentSelectCell.Offset[0, 1].Select();
 }
 else if (keys == Keys.Enter)
 {
 FormFastInput.CurrentSelectCell.Offset[1, 0].Select();
 }
 }

结语

在VSTO框架下，有大量微软工程师为我们搭建好的底层技术，使我们在上层构建业务代码时变得如此轻松，此篇给大家展示了在工作表单元格区域上创建自定义控件的能力，发挥得当，较直接弹出窗体的效果要友好得多。