UC知道VB高手进来帮下我好吗？很简单的问题
来源：百度知道 编辑：UC知道 时间：2024/06/17 21:53:07
Private Declare Function GetBinaryType Lib "kernel32" Alias "GetBinaryTypeA" (ByVal lpApplicationName As String, lpBinaryType As Long) As Long
Dim a(6), b(6), c
Private Sub Command1_Click()
a(0) = "SCS_32BIT_BINARY"
a(1) = "SCS_DOS_BINARY"
a(2) = "SCS_OS216_BINARY"
a(3) = "SCS_PIF_BINARY"
a(4) = "SCS_POSIX_BINARY"
a(5) = "SCS_WOW_BINARY"
For i = 1 To 5
If GetBinaryType(Text1.test, a(i)) = 0 Then _
Else MsgBox a(i)
Next
End Sub
以上代码在编译的时候提示 未找到方法或数组成员。
请问是怎么回事呀？
Dim a(6), b(6), c
Private Sub Command1_Click()
a(0) = "SCS_32BIT_BINARY"
a(1) = "SCS_DOS_BINARY"
a(2) = "SCS_OS216_BINARY"
a(3) = "SCS_PIF_BINARY"
a(4) = "SCS_POSIX_BINARY"
a(5) = "SCS_WOW_BINARY"
For i = 1 To 5
If GetBinaryType(Text1.test, a(i)) = 0 Then _
Else MsgBox a(i)
Next
End Sub
以上代码在编译的时候提示 未找到方法或数组成员。
请问是怎么回事呀？
改成这样:
Private Declare Function GetBinaryType Lib "kernel32" Alias "GetBinaryTypeA" (ByVal lpApplicationName As String, lpBinaryType As Long) As Long
Dim a(6), b(6), c
Private Sub Command1_Click()
a(0) = "SCS_32BIT_BINARY"
a(1) = "SCS_DOS_BINARY"
a(2) = "SCS_OS216_BINARY"
a(3) = "SCS_PIF_BINARY"
a(4) = "SCS_POSIX_BINARY"
a(5) = "SCS_WOW_BINARY"
For i = 1 To 5
If GetBinaryType(Text1.Text, a(i)) = 0 Then
Else
MsgBox a(i)
End If
Next
End Sub
然后还是会出错的,这里你要搞定一个地方.就是 GetBinaryType(Text1.Text, a(i)) 其中的A(I)放的地方是不对的,具体你需要赋予数值(整数的那种).拿来代替就OK了
text1.test 这里错了，应该是text1.text
把text1.test改成text1.text就可以了，文本框没有test这个属性
If GetBinaryType(Text1.test, a(i)) = 0 拼写错误！
If GetBinaryType(Text1.text, a(i)) = 0 不是TEST!
这是出现 “未找到方法或数组成员”的原因！
另外应该是A(0)=0 A(1)=1 .........