乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > excel文本框-Excel催化剂开源第23波-VSTO开发辅助录入功能

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

作者:乔山办公网日期:

返回目录:excel表格制作

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


本文标签:excel文本框(83)

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网