储存一个表达式应该用什么变量类型啊(急)

Question

Function CheckData(ByVal XXXXX As 那个表达式的变量类型) As Boolean
  If Any我要用来对比的值 Is XXXXX Then
    CheckData = True
  Else
    CheckData = False
  End If
End Function就是以上这个意思，请问那个变量该用什么类型啊? 我用过String但不行呐，其它的好象都不合适。但应该有一个可用吧，晕，好心人帮帮我啊，多谢///

Answer 1

呵呵,
还是string类型
Private Declare Function EbExecuteLine Lib "vba6.dll" ( _ 
ByVal pStringToExec As Long, _ 
ByVal Unknownn1 As Long, _ 
ByVal Unknownn2 As Long, _ 
ByVal fCheckOnly As Long) As Long 
Function CheckData(ByVal XXXXX As 那个表达式的变量类型) As Boolean
EbExecuteLine StrPtr("clipboard.settext xxxxx"), 0, 0, 0
dim str  as string
str= Clipboard.GetText
  If Any我要用来对比的值 =str Then
    CheckData = True
  Else
    CheckData = False
  End If
End Function
'此api的作用是执行任意字符串语句

Answer 2

zyg0(影子(如影随行)
======================================
我试试先，谢谢!!

Answer 3

zyg0(影子(如影随行)
======================================
好象没有效果，能帮我讲讲具体操作重点和原理吗?它好象不能执我给出的字串代码，如:
Option Explicit
Private Declare Function EbExecuteLine Lib "vba6.dll" ( _
ByVal pStringToExec As Long, _
ByVal Unknownn1 As Long, _
ByVal Unknownn2 As Long, _
ByVal fCheckOnly As Long) As LongPrivate Sub Command1_Click()EbExecuteLine StrPtr("me.caption='Test'"), 0, 0, 0End Sub是这样用的吗?

Answer 4

不能用me.caption  应该是 窗体名.caption='test'

Answer 5

Option Explicit
Private Declare Function EbExecuteLine Lib "vba6.dll" ( _
ByVal pStringToExec As Long, _
ByVal Unknownn1 As Long, _
ByVal Unknownn2 As Long, _
ByVal fCheckOnly As Long) As LongPrivate Sub Command1_Click()EbExecuteLine StrPtr("form1.caption=""sdfsadfa"""), 0, 0, 0End Sub