月亮哥的专栏

如何实现点击VB中DataGrid行，触发事件弹出窗口，并传递所点击行参数:通过双击事件来实现的:Private Sub DataGrid1_DblClick()    Dim frm1 As New frmNew    ''定义一个窗体对象frm1，frmNew是程序中的一个窗体    Dim ActiveRow As Integer        On Error Go

Private Sub writeToExcel(strTmp1() As String, colTmp1 As Collection)''    Dim tmp1    Dim i1 As Integer, intCol As Integer, intRow As Integer    Dim xlApp As New Excel.Application    Dim xlB

Private Declare Function ShellExecuteEx Lib "shell32.dll" Alias "ShellExecuteExA" (lpExecInfo As SHELLEXECUTEINFO) As LongPrivate Type SHELLEXECUTEINFO    cbSize As Long    fMask As Long    hw

Public Sub Search_folder(folder As String) '遍历指定文件夹下的所有文本夹 Dim path Dim filename Dim folders(1 To 20000) Dim i%, j% i = 1 j = 1 '...