摘要： 首先新建一个用户控件，这个控件中只有一个 label ，其名为： lblDrag，至于其所显示的文本和大小，可以随意设置。 接下来打开其代码界面，输入以下代码： ' 用户控件，当拖动这个控件时，该控件所属的窗体会被拖动Public Class uc_dagrLabelToMove Private i 阅读全文

摘要： 本窗体的所有功能都写在这里， 其他窗体如果想具有这项功能，不需要做任何变动，只需要继承这个窗体即可，比如： Partial Class _frmSuspiciousAlert_case Inherits AML._changableForm ' System.Windows.Forms.Form 下 阅读全文

摘要： 当前界面（frmOuterEntity）中有一个datagridview，其名称为 dgv_entity，其中有些单元格是下拉框（DataGridViewComboBoxCell），现在想把其中的内容下载到excel表，有下拉框的话一并下载下来： Private Sub _frmOuterEntit 阅读全文

摘要： '_row.DefaultCellStyle.BackColor = color_inCase ' 底色改为 淡红 ' 上面以前，所有的case都是一种底色 ' 下面现在，不同的case不同的底色（取决于其 case ID） Dim idR As Integer = CInt(_caseID.Sub 阅读全文

摘要： Private Sub refreshTSMI_addToCase() ' 根据当前界面dgv中的case ID 刷新右键菜单 AddToCase Dim listCaseIDs As List(Of Integer) = getDgvCaseIDs() ' 获取当前dgv 中的 case列表 ' 阅读全文

摘要： Private Sub dtgAML_CellClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dtgAML.CellClick Try Dim strTemp = 阅读全文

摘要： ''' <summary> ''' 根据所需要设定的值，设置 ComboBox 或者 CheckedListBox的选中项 ''' </summary> ''' <typeparam name="T">泛型</typeparam> ''' <param name="_control">控件</par 阅读全文

摘要： Public Function getDataTableFromCmd(ByVal CmdTxt As String, Optional ByVal ParamVals() As Object = Nothing) As DataTable Dim cmd As New ADODB.Command 阅读全文

摘要： ''' <summary> ''' 新的填充函数，使用了泛型，适用于ComboBox,listBox 和 CheckedListBox ， DataGridViewComboBoxColumn ''' 用反射操作 comboBox 或者 checkedListBox 或者 ListBox, 向其中填 阅读全文

摘要： #Region "根据用户输入的客户号，判断是否有交易存在，使用了 两个线程来操作" ' 当 client Number输入框处于输入状态时，lbl_results不可见 Private Sub tb_clientNumber_Enter(sender As Object, e As EventAr 阅读全文