在64位系统上运行，报错 ：类型不匹配

lzwdj123

在64位系统上运行，报错 ：类型不匹配，求指点，谢谢！
Dim hWnd As LongLong
Dim Istype As Long
    Dim r As
    Dim i As
Dim rng As Range
Dim str As String
Private Sub UserForm_Initialize()
On Error Resume Next
    hWnd = FindWindow("ThunderDFrame", Me.Caption)
       Istype = GetWindowLong(hWnd, GWL_STYLE)
    Istype = Istype And Not WS_SYSMENU
    SetWindowLong hWnd, GWL_STYLE, Istype
    DrawMenuBar hWnd
     With Sheet5
    r = Sheet5.Range("A65536").End(xlUp).Row
    For i = 2 To r
        Me.ComboBox1.AddItem Sheet5.Cells(i, 2).Value
    Next
    Me.Label1.Caption = Sheet5.Cells(2, 5) & "成绩统计系统"
   End With
End Sub

zpy2

https://club.excelhome.net/forum.php?mod=viewthread&tid=1662001&mobile=

ww87725244

看看API函数，32位和64位不一样

lzwdj123

ww87725244 发表于 2024-7-10 08:14
看看API函数，32位和64位不一样

谢谢！！！

lzwdj123

zpy2 发表于 2024-7-10 06:30
https://club.excelhome.net/forum.php?mod=viewthread&tid=1662001&mobile=

谢谢！！！