vba - 使用鼠标滚动的 Excel ComboBox-6ren

vba - 使用鼠标滚动的 Excel ComboBox

转载作者：行者123 更新时间：2023-12-04 19:56:03

我尝试使用 peter Peter Thornton 代码，该代码启用了在组合框和列表框中使用鼠标滚动的选项，该选项不是在 excel 中内置的，它对用户表单组合框和列表框非常有效，但我不能似乎了解如何使此代码适用于工作表上的常规 ComboBox

模块代码:

'Enables mouse wheel scrolling in controls
Option Explicit

    #If Win64 Then
        Private Type POINTAPI
            XY As LongLong
        End Type
    #Else 
        Private Type POINTAPI
            X As Long
            Y As Long
        End Type
    #End If

    Private Type MOUSEHOOKSTRUCT
        Pt As POINTAPI
        hWnd As Long
        wHitTestCode As Long
        dwExtraInfo As Long
    End Type

    #If VBA7 Then
            Private Declare PtrSafe Function FindWindow Lib "user32" _
                Alias "FindWindowA" ( _
                ByVal lpClassName As String, _
                ByVal lpWindowName As String) As Long ' not sure if this should be LongPtr

        #If Win64 Then
            Private Declare PtrSafe Function GetWindowLongPtr Lib "user32" _
                Alias "GetWindowLongPtrA" ( _
                ByVal hWnd As LongPtr, _
                ByVal nIndex As Long) As LongPtr
        #Else 
            Private Declare PtrSafe Function GetWindowLong Lib "user32" _
                Alias "GetWindowLongA" ( _
                ByVal hWnd As LongPtr, _
                ByVal nIndex As Long) As LongPtr
        #End If

        Private Declare PtrSafe Function SetWindowsHookEx Lib "user32" _
            Alias "SetWindowsHookExA" ( _
            ByVal idHook As Long, _
            ByVal lpfn As LongPtr, _
            ByVal hmod As LongPtr, _
            ByVal dwThreadId As Long) As LongPtr

        Private Declare PtrSafe Function CallNextHookEx Lib "user32" ( _
            ByVal hHook As LongPtr, _
            ByVal nCode As Long, _
            ByVal wParam As LongPtr, _
            lParam As Any) As LongPtr

        Private Declare PtrSafe Function UnhookWindowsHookEx Lib "user32" ( _
ByVal hHook As LongPtr) As LongPtr ' MAYBE Long
            'Private Declare PtrSafe Function PostMessage Lib "user32.dll" _
            ' Alias "PostMessageA" ( _
            ' ByVal hwnd As LongPtr, _
            ' ByVal wMsg As Long, _
            ' ByVal wParam As LongPtr, _
            ' ByVal lParam As LongPtr) As LongPtr ' MAYBE Long

        #If Win64 Then
            Private Declare PtrSafe Function WindowFromPoint Lib "user32" ( _
            ByVal Point As LongLong) As LongPtr '
        #Else 
            Private Declare PtrSafe Function WindowFromPoint Lib "user32" ( _
            ByVal xPoint As Long, _
            ByVal yPoint As Long) As LongPtr '
        #End If

        Private Declare PtrSafe Function GetCursorPos Lib "user32" ( _
            ByRef lpPoint As POINTAPI) As LongPtr 'MAYBE Long
    #Else 
        Private Declare Function FindWindow Lib "user32" _
            Alias "FindWindowA" ( _
            ByVal lpClassName As String, _
            ByVal lpWindowName As String) As Long

        Private Declare Function GetWindowLong Lib "user32.dll" _
            Alias "GetWindowLongA" ( _
            ByVal hWnd As Long, _
            ByVal nIndex As Long) As Long

        Private Declare Function SetWindowsHookEx Lib "user32" _
            Alias "SetWindowsHookExA" ( _
            ByVal idHook As Long, _
            ByVal lpfn As Long, _
            ByVal hmod As Long, _
            ByVal dwThreadId As Long) As Long

        Private Declare Function CallNextHookEx Lib "user32" ( _
            ByVal hHook As Long, _
            ByVal nCode As Long, _
            ByVal wParam As Long, _
            lParam As Any) As Long

        Private Declare Function UnhookWindowsHookEx Lib "user32" ( _
ByVal hHook As Long) As Long
            'Private Declare Function PostMessage Lib "user32.dll" _
            ' Alias "PostMessageA" ( _
            ' ByVal hwnd As Long, _
            ' ByVal wMsg As Long, _
            ' ByVal wParam As Long, _
            ' ByVal lParam As Long) As Long

        Private Declare Function WindowFromPoint Lib "user32" ( _
            ByVal xPoint As Long, _
            ByVal yPoint As Long) As Long

        Private Declare Function GetCursorPos Lib "user32.dll" ( _
ByRef lpPoint As POINTAPI) As Long
    #End If

    Private Const WH_MOUSE_LL As Long = 14
    Private Const WM_MOUSEWHEEL As Long = &H20A
    Private Const HC_ACTION As Long = 0
    Private Const GWL_HINSTANCE As Long = (-6)
    'Private Const WM_KEYDOWN As Long = &H100
    'Private Const WM_KEYUP As Long = &H101
    'Private Const VK_UP As Long = &H26
    'Private Const VK_DOWN As Long = &H28
    'Private Const WM_LBUTTONDOWN As Long = &H201
    Dim n As Long
    Private mCtl As Object
    Private mbHook As Boolean

    #If VBA7 Then
        Private mLngMouseHook As LongPtr
        Private mListBoxHwnd As LongPtr
    #Else 
        Private mLngMouseHook As Long
        Private mListBoxHwnd As Long
    #End If

    Sub HookListBoxScroll(frm As Object, ctl As Object)
        Dim tPT As POINTAPI
        #If VBA7 Then
            Dim lngAppInst As LongPtr
            Dim hwndUnderCursor As LongPtr
        #Else 
            Dim lngAppInst As Long
            Dim hwndUnderCursor As Long
        #End If

        GetCursorPos tPT
        #If Win64 Then
            hwndUnderCursor = WindowFromPoint(tPT.XY)
        #Else 
            hwndUnderCursor = WindowFromPoint(tPT.X, tPT.Y)
        #End If

        If TypeOf ctl Is UserForm Then
            If Not frm Is ctl Then
                ctl.SetFocus
            End If
        Else
            If Not frm.ActiveControl Is ctl Then
                ctl.SetFocus
            End If
        End If

        If mListBoxHwnd <> hwndUnderCursor Then
            UnhookListBoxScroll
            Set mCtl = ctl
            mListBoxHwnd = hwndUnderCursor
            #If Win64 Then
                lngAppInst = GetWindowLongPtr(mListBoxHwnd, GWL_HINSTANCE)
            #Else 
                lngAppInst = GetWindowLong(mListBoxHwnd, GWL_HINSTANCE)
            #End If
            ' PostMessage mListBoxHwnd, WM_LBUTTONDOWN, 0&, 0&
            If Not mbHook Then
                mLngMouseHook = SetWindowsHookEx( _
                    WH_MOUSE_LL, AddressOf MouseProc, lngAppInst, 0)
                mbHook = mLngMouseHook <> 0
            End If
        End If
    End Sub

    Sub UnhookListBoxScroll()
        If mbHook Then
            Set mCtl = Nothing
            UnhookWindowsHookEx mLngMouseHook
            mLngMouseHook = 0
            mListBoxHwnd = 0
            mbHook = False
        End If
    End Sub

    #If VBA7 Then
        Private Function MouseProc( _
            ByVal nCode As Long, ByVal wParam As Long, _
            ByRef lParam As MOUSEHOOKSTRUCT) As LongPtr
        Dim idx As Long
        On Error GoTo errH
        If (nCode = HC_ACTION) Then
            #If Win64 Then
                If WindowFromPoint(lParam.Pt.XY) = mListBoxHwnd Then
                    If wParam = WM_MOUSEWHEEL Then
                        MouseProc = True
                        ' If lParam.hWnd > 0 Then
                        ' postMessage mListBoxHwnd, WM_KEYDOWN, VK_UP, 0
                        ' Else
                        ' postMessage mListBoxHwnd, WM_KEYDOWN, VK_DOWN, 0
                        ' End If
                        ' postMessage mListBoxHwnd, WM_KEYUP, VK_UP, 0
                        If TypeOf mCtl Is Frame Then
                            If lParam.hWnd > 0 Then idx = -10 Else idx = 10
                                idx = idx + mCtl.ScrollTop
                                    If idx >= 0 And idx < ((mCtl.ScrollHeight - mCtl.Height) + 17.25) Then
                                        mCtl.ScrollTop = idx
                            End If
                        ElseIf TypeOf mCtl Is UserForm Then
                            If lParam.hWnd > 0 Then idx = -10 Else idx = 10
                                idx = idx + mCtl.ScrollTop
                                If idx >= 0 And idx < ((mCtl.ScrollHeight - mCtl.Height) + 17.25) Then
                                    mCtl.ScrollTop = idx
                                End If
                            Else
                                If lParam.hWnd > 0 Then idx = -1 Else idx = 1
                                    idx = idx + mCtl.ListIndex
                                    If idx >= 0 And idx <= mCtl.ListCount - 1 Then 
                                        mCtl.ListIndex = idx
                                    End If
                                    Exit Function
                                End If
                            Else
                                UnhookListBoxScroll
                            End If
                        #Else 
                        If WindowFromPoint(lParam.Pt.X, lParam.Pt.Y) = mListBoxHwnd Then
                            If wParam = WM_MOUSEWHEEL Then
                                MouseProc = True
                                ' If lParam.hWnd > 0 Then
                                ' postMessage mListBoxHwnd, WM_KEYDOWN, VK_UP, 0
                                ' Else
                                ' postMessage mListBoxHwnd, WM_KEYDOWN, VK_DOWN, 0
                                ' End If
                                ' postMessage mListBoxHwnd, WM_KEYUP, VK_UP, 0
                                If TypeOf mCtl Is Frame Then
                                    If lParam.hWnd > 0 Then idx = -10 Else idx = 10
                                        idx = idx + mCtl.ScrollTop
                                        If idx >= 0 And idx < ((mCtl.ScrollHeight - mCtl.Height) + 17.25) Then
                                            mCtl.ScrollTop = idx
                                        End If
                                ElseIf TypeOf mCtl Is UserForm Then
                                    If lParam.hWnd > 0 Then idx = -10                 
                                Else 
                                    idx = 10
                                    idx = idx + mCtl.ScrollTop
                                    If idx >= 0 And idx < ((mCtl.ScrollHeight - mCtl.Height) + 17.25) Then
                                        mCtl.ScrollTop = idx
                                    End If
                                Else
                                    If lParam.hWnd > 0 Then idx = -1 Else idx = 1
                                        idx = idx + mCtl.ListIndex
                                            If idx >= 0 And idx <= mCtl.ListCount - 1 Then 
                                                mCtl.ListIndex = idx
                                            End If
                                            Exit Function
                                    End If
                                Else
                                    UnhookListBoxScroll
                                End If
                            #End If
                        End If
                        MouseProc = CallNextHookEx( _
mLngMouseHook, nCode, wParam, ByVal lParam)
                        Exit Function
                        errH:
                            UnhookListBoxScroll
                            End Function
                    #Else 
                        Private Function MouseProc( _
                            ByVal nCode As Long, ByVal wParam As Long, _
ByRef lParam As MOUSEHOOKSTRUCT) As Long
                            Dim idx As Long
                            On Error GoTo errH
                            If (nCode = HC_ACTION) Then
                                If WindowFromPoint(lParam.Pt.X, lParam.Pt.Y) = mListBoxHwnd Then
                                    If wParam = WM_MOUSEWHEEL Then
                                        MouseProc = True
                                        ' If lParam.hWnd > 0 Then
                                        ' postMessage mListBoxHwnd, WM_KEYDOWN, VK_UP, 0
                                        ' Else
                                        ' postMessage mListBoxHwnd, WM_KEYDOWN, VK_DOWN, 0
                                        ' End If
                                        ' postMessage mListBoxHwnd, WM_KEYUP, VK_UP, 0

                                        If TypeOf mCtl Is Frame Then
                                            If lParam.hWnd > 0 Then idx = -10 Else idx = 10
                                                idx = idx + mCtl.ScrollTop
                                                If idx >= 0 And idx < ((mCtl.ScrollHeight - mCtl.Height) + 17.25) Then
                                                    mCtl.ScrollTop = idx
                                                End If
                                            ElseIf TypeOf mCtl Is UserForm Then
                                        If lParam.hWnd > 0 Then 
                                            idx = -10                 
                                        Else 
                                            idx = 10
                                            idx = idx + mCtl.ScrollTop
                                            If idx >= 0 And idx < ((mCtl.ScrollHeight - mCtl.Height) + 17.25) Then
                                                mCtl.ScrollTop = idx
                                            End If
                                        Else
                                            If lParam.hWnd > 0 Then idx = -1 Else idx = 1
                                                idx = idx + mCtl.ListIndex
                                            If idx >= 0 And idx <= mCtl.ListCount - 1 Then 
                                                mCtl.ListIndex = idx
                                            End If
                                            Exit Function
                                        End If
                                    Else
                                        UnhookListBoxScroll
                                    End If
                                End If
                                    MouseProc = CallNextHookEx( _
                                        mLngMouseHook, nCode, wParam, ByVal lParam)
                                    Exit Function
                                    errH:
                                        UnhookListBoxScroll
                                        End Function
                                #End If

当前用户表单代码:

Private Sub cmbMyList_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
HookListBoxScroll Me, Me.cmbMyList
End Sub

Private Sub lbxMyList_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
HookListBoxScroll Me, Me.lbxMyList
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
UnhookListBoxScroll
End Sub

当前组合框代码:

    Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    End Sub

最佳答案

由 Jaafar Tribak 解决

我目前使用的代码(放在任何模块中):

     Option Explicit

Type POINTAPI
    X As Long
    Y As Long
End Type

Type MSLLHOOKSTRUCT
    pt As POINTAPI
    mouseData As Long
    flags As Long
    time As Long
    dwExtraInfo As Long
End Type

#If VBA7 Then
    #If Win64 Then
        Declare PtrSafe Function WindowFromPoint Lib "user32" (ByVal Point As LongLong) As LongPtr
    #Else
        Declare PtrSafe Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As LongPtr
    #End If
    Declare PtrSafe Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As LongPtr, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
    Declare PtrSafe Function GetParent Lib "user32" (ByVal hwnd As LongPtr) As LongPtr
    Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr
    Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As LongPtr)
    Declare PtrSafe Function GetCursorPos Lib "user32" (ByRef lpPoint As POINTAPI) As LongPtr
    Declare PtrSafe Function SetFocus Lib "user32" (ByVal hwnd As LongPtr) As LongPtr
    Declare PtrSafe Function IsWindow Lib "user32" (ByVal hwnd As LongPtr) As Long
    Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As LongPtr, ByVal hmod As LongPtr, ByVal dwThreadId As Long) As LongPtr
    Declare PtrSafe Function CallNextHookEx Lib "user32" (ByVal hHook As LongPtr, ByVal nCode As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
    Declare PtrSafe Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As LongPtr) As LongPtr
    Dim hwnd As LongPtr, lMouseHook As LongPtr
#Else
    Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
    Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
    Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
    Declare Function GetActiveWindow Lib "user32" () As Long
    Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
    Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As POINTAPI) As Long
    Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As Long
    Declare Function IsWindow Lib "user32" (ByVal hwnd As Long) As Long
    Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
    Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long
    Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
    Dim hwnd As Long, lMouseHook As Long
#End If

Const WH_MOUSE_LL = 14
Const WM_MOUSEWHEEL = &H20A
Const HC_ACTION = 0

Dim oComboBox As Object

Sub SetComboBoxHook(ByVal Control As Object)
    Dim tPt As POINTAPI
    Dim sBuffer As String
    Dim lRet As Long

    Set oComboBox = Control
    RemoveComboBoxHook
    GetCursorPos tPt
    #If Win64 Then
        Dim lPt As LongPtr
        CopyMemory lPt, tPt, LenB(tPt)
        hwnd = WindowFromPoint(lPt)
    #Else
        hwnd = WindowFromPoint(tPt.X, tPt.Y)
    #End If
    sBuffer = Space(256)
    lRet = GetClassName(GetParent(hwnd), sBuffer, 256)
    If InStr(Left(sBuffer, lRet), "MdcPopup") Then
        SetFocus hwnd
        #If Win64 Then
            lMouseHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf MouseProc, Application.HinstancePtr, 0)
        #Else
            lMouseHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf MouseProc, Application.Hinstance, 0)
        #End If
    End If
End Sub

Sub RemoveComboBoxHook()
    UnhookWindowsHookEx lMouseHook
End Sub

#If VBA7 Then
    Function MouseProc(ByVal nCode As Long, ByVal wParam As LongPtr, lParam As MSLLHOOKSTRUCT) As LongPtr
#Else
    Function MouseProc(ByVal nCode As Long, ByVal wParam As Long, lParam As MSLLHOOKSTRUCT) As Long
#End If

    Dim sBuffer As String
    Dim lRet As Long

    sBuffer = Space(256)
    lRet = GetClassName(GetActiveWindow, sBuffer, 256)
    If Left(sBuffer, lRet) = "wndclass_desked_gsk" Then Call RemoveComboBoxHook
    If IsWindow(hwnd) = 0 Then Call RemoveComboBoxHook

    If (nCode = HC_ACTION) Then
        If wParam = WM_MOUSEWHEEL Then
        #If Win64 Then
            Dim lPt As LongPtr
            CopyMemory lPt, lParam.pt, LenB(lParam.pt)
            If WindowFromPoint(lPt) = hwnd Then
        #Else
            If WindowFromPoint(lParam.pt.X, lParam.pt.Y) = hwnd Then
        #End If
                On Error Resume Next
                    If lParam.mouseData > 0 Then
                        oComboBox.TopIndex = oComboBox.TopIndex - 1 '<---u can change this to change the scrolling speed upwards
                        'u can change "TopIndex" to "listIndex" if you want to change the value instead of hovering it, do not use the dynamic listFillrange if u do!
                    Else
                        oComboBox.TopIndex = oComboBox.TopIndex + 2  '<---u can change this to change the scrolling speed downwards
                        'u can change "TopIndex" to "listIndex" if you want to change the value instead of hovering it, do not use the dynamic listFillrange if u do!
                    End If
                On Error GoTo 0
            End If
        End If
    End If

    MouseProc = CallNextHookEx(lMouseHook, nCode, wParam, ByVal lParam)
End Function

组合框代码(查看组合框的代码):

 Option Explicit


    'optional
    Dim ComboBoxRange As Range
    Dim myRange As Range
    Dim NumRows
    'optional

    Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
        Call SetComboBoxHook(ComboBox1)
    End Sub

    Private Sub ComboBox1_LostFocus()
        Call RemoveComboBoxHook
    End Sub

    'optional, this code is for a dynamic list, do not use if u changed TopIndex to ListIndex!
    'importent note...u need a dynamic list to begin with if u want to use it!
    Private Sub ComboBox1_Change()
    Set myRange = Range("Q:Q")    'the range of data
    NumRows = Application.WorksheetFunction.Count(myRange)
    '////////////////////////////////////////////////////////////////
    Set ComboBoxRange = Range(Cells(4, 17), Cells(3 + NumRows, 17))
    'my data starts at range Q4, Q = 17, A=1, change this according to the range you want to change
    '////////////////////////////////////////////////////////////////
    ComboBox1.ListFillRange = ComboBoxRange.Cells.Address
    ComboBox1.DropDown
    End Sub
    'optional

关于vba - 使用鼠标滚动的 Excel ComboBox，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/46477057/

文章推荐： Excel 在执行循环时停止响应

文章推荐： python - 导出特定的工作表，并保存不同的文件 openpyxl

文章推荐： excel - 更改图表上系列的填充颜色

文章推荐： VBA Excel Outlook 电子邮件正文格式

javascript - 使用 WebScriptEndpoint 使用 javascript 使用 WCF 服务
我在网上搜索但没有找到任何合适的文章解释如何使用 javascript 使用 WCF 服务，尤其是 WebScriptEndpoint。任何人都可以对此给出任何指导吗？谢谢最佳答案这是一篇关于
c - 没有结果!!使用 fork() 使用 dup2 使用 2 个管道运行 execlp()
我正在编写一个将运行 Linux 命令的 C 程序，例如: cat/etc/passwd | grep 列表 |剪切-c 1-5 我没有任何结果 *这里 parent 等待第一个 child (chi
python - 处理文件上传，使用 Pillow 调整大小，使用 SQLAlchemy 存储，使用 Flask 提供文件
所以我正在尝试处理文件上传，然后将该文件作为二进制文件存储到数据库中。在我存储它之后，我尝试在给定的 URL 上提供文件。我似乎找不到适合这里的方法。我需要使用数据库，因为我使用 Google 应用引
excel - 使用 IF 使用 VBA 在单元格中添加公式的问题
我正在尝试制作一个宏，将下面的公式添加到单元格中，然后将其拖到整个列中并在 H 列中复制相同的公式我想在 F 和 H 列中输入公式的数据 Range("F1").formula = "=IF(ISE
使用 OperatorPrecedenceParser 使用 FParsec 解析函数应用程序？
问题类似于this one ，但我想使用 OperatorPrecedenceParser 解析带有函数应用程序的表达式在 FParsec . 这是我的 AST: type Expression =
sql - 使用 sequelize 使用 where 查询编码计数
我想通过使用 sequelize 和 node.js 将这个查询更改为代码取决于在哪里 select COUNT(gender) as genderCount from customers where
bash - 使用 “let”分配Bash失败，使用 “/”
我正在使用GNU bash，版本5.0.3(1)-发行版(x86_64-pc-linux-gnu)，我想知道为什么简单的赋值语句会出现语法错误: #/bin/bash var1=/tmp
javascript - 使用 JavaScript 使用 FOR OF 数组循环时出现错误？
这里，为什么我的代码在 IE 中不起作用。我的代码适用于所有浏览器。没有问题。但是当我在 IE 上运行我的项目时，它发现错误。而且我的 jquery 类和 insertadjacentHTMl 也不
javascript - 使用 javascript 使用 for 属性更改表单标签内容
我正在尝试更改标签的innerHTML。我无权访问该表单，因此无法编辑 HTML。标签具有的唯一标识符是“for”属性。这是输入和标签的结构:
javascript - 使用 jquery 使用 .on() 将事件附加到页面上的动态插入按钮
我有一个页面，我可以在其中返回用户帖子，可以使用一些 jquery 代码对这些帖子进行即时评论，在发布新评论后，我在帖子下插入新评论以及删除按钮。问题是 Delete 按钮在新插入的元素上不起作用，
使用 awk 使用 sha1sum 进行散列
我有一个大约有 20 列的“管道分隔”文件。我只想使用 sha1sum 散列第一列，它是一个数字，如帐号，并按原样返回其余列。使用 awk 或 sed 执行此操作的最佳方法是什么？ Accounti
mysql - 使用 insert into 使用 mysql
我需要将以下内容插入到我的表中...我的用户表有五列 id、用户名、密码、名称、条目。 (我还没有提交任何东西到条目中，我稍后会使用 php 来做)但由于某种原因我不断收到这个错误:#1054 - U
jquery - 将输入字段值修剪为仅字母数字字符/使用 .使用 jQuery
所以我试图有一个输入字段，我可以在其中输入任何字符，但然后将输入的值小写，删除任何非字母数字字符，留下“。”而不是空格。例如，如果我输入: 地球的 70% 是水，-!*#$^^ & 30% 土地输
javascript - 使用 .innerHTML 使用 DOM
我正在尝试做一些我认为非常简单的事情，但出于某种原因我没有得到想要的结果？我是 javascript 的新手，但对 java 有经验，所以我相信我没有使用某种正确的规则。这是一个获取输入值、检查选择
php - 使用 angularjs 使用 where 子句从数据库获取数据
我想使用 angularjs 从 mysql 数据库加载数据。这就是应用程序的工作原理；用户登录，他们的用户名存储在 cookie 中。该用户名显示在主页上我想获取这个值并通过 angularjs
ios - 使用 UITableViewCell 使用 AutoLayout
我正在使用 autoLayout，我想在 UITableViewCell 上放置一个 UIlabel，它应该始终位于单元格的右侧和右侧的中心。这就是我想要实现的目标所以在这里你可以看到我正在谈论的
mysql - 使用 ElasticSearch 使用 or 和运算符搜索多个字段
我需要与 MySql 等效的 elasticsearch 查询。我的 sql 查询: SELECT DISTINCT t.product_id AS id FROM tbl_sup_price t
ios - 使用 Swift 使用 JSON
我正在实现代码以使用 JSON。 func setup() { if let flickrURL = NSURL(string: "https://api.flickr.com/
javascript - 使用 JavaScript 使用 for 循环声明变量
我尝试使用for循环声明变量，然后测试cols和rols是否相同。如果是，它将运行递归函数。但是，我在 javascript 中执行 do 时遇到问题。有人可以帮忙吗？现在，在比较 col.1 和
jquery - 使用 :after 使用 jquery 更改样式
我举了一个我正在处理的问题的简短示例。 HTML代码: 1 2 3 CSS 代码: .BB a:hover{ color: #000; } .BB > li:after {

行者123

个人简介

我是一名优秀的程序员,十分优秀！

作者热门文章

滴滴打车优惠券免费领取

全站热门文章

首页

博学

6Ren·AI

商城

vba - 使用鼠标滚动的 Excel ComboBox