在Excel催化剂的几大辅助录入功能中（数据验证保护、数据多级联动输入、关键词模糊智能匹配输入）中，用了一些customxmlPart技术来存储配置信息，同时在关键词模糊智能匹配输入中，用了一个VSTO开发才能满足的自定义控件技术，很值得启发，拿出来给大家作一分享。
一般来说控件都是放到窗体或任务窗格中，但Excel同样支持将控件放到工作表单元格上，如前面提到的picturebox容器，放到单元格区域上，然后在容器上发图片，实现插入图片功能，同样地也可以存放单选、复选这些控件，当然，严格来说，在VBA环境下也可以完成这些工作。
在VSTO框架下，有一革命性的突破是，可以放我们的自定义控件，这个具体和VBA的自定义Active控件有什么不一样，就不太知道，但起码VSTO放自定义控件，开发成本极低。
自定义控件，可直接用到工作表单元格中
具体实现原理
通过用户配置操作，将需要进行快速录入的区域记录下来，用SelectionChange事件来响应，若用户选择到这些单元格时，就激发事件方法，显示自定义控件，并让光标定位到自定义控件的查找控件TextBox等待用户输入。输入过程中动态控制下方DataGridView的查找结果，用户可以按方向箭下上在结果中选择对应的条目，再按Enter或Tab键确定内容录入。
具体代码
先绑定事件
代码语言：javascript复制 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像素大小，好像后来其他位置发现了更好解决方案，原代码没有来得及重新改过来。
代码语言：javascript复制 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跳转键，这里有个对一个方法进行重写即可。
代码语言：javascript复制 protected override bool ProcessDialogKey(Keys keyData)
{
if (keyData == Keys.Enter || keyData == Keys.Tab)
{
ReturnValueFromUserControl(keyData);
return true;
}
return base.ProcessDialogKey(keyData);
}
改变其默认功能后，就可以像其他键一样捕捉其KeyDown事件，例如此处的录入功能中，按Enter是跳转到下一行，按Tab是跳转到右侧列，实现键盘盲打录入不依赖鼠标实现。
代码语言：javascript复制 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<DataGridViewRow>().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框架下，有大量微软工程师为我们搭建好的底层技术，使我们在上层构建业务代码时变得如此轻松，此篇给大家展示了在工作表单元格区域上创建自定义控件的能力，发挥得当，较直接弹出窗体的效果要友好得多。
