这行吗?
出了bill哥哥外,恐怕没有什么人做得到了。
出了bill哥哥外,恐怕没有什么人做得到了。
解决方案 »
- 帮个忙啊
- 在VB中 往form中添加控件后发生问题
- 用VB编写DLL文件,调用问题
- 模块内的函数好象是软件认为它没定义,提示compile error:Ambiguous name detected:checkport,是什么原因?
- 来一个帮我一下好不?
- 怎样把条形码保存成图片,急!!!!
- 急:高分,各位老大,怎么在ImgAdmin中删除图片呀.哪位老大回答正确所有分都给他
- 请问如何将表单上的关闭按钮X给禁止掉?
- 如何使VB活动窗口下调用一个可执行程序时,判断可执行窗口关闭后才继续执行
- 數據庫中一個字段存有文件的擴展名,請問如何從文件的擴展名獲得該類型文件的windows默認圖標
- vb中如何控制modem按时拨号或挂断??
- 用Winsock监听远程OICQ可能吗?有源程序吗?谁知道200分送上(分数会不断加上)
exg: "say tgdgdgfdf"
if 第一个单词=say then msgbox 第二个单词.
exg2: "says dfdfskdfj sdfsdf sdfsdf /t"
if 第一个单词=says then msgbox 后面的单词.,直到遇见/t
(ByVal pStringToExec As Long, ByVal Foo1 As Long, _
ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long' VB5 IDE用这个
'Declare Function EbExecuteLine Lib "vba5.dll" _
(ByVal pStringToExec As Long, ByVal Foo1 As Long, _
ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long
Public Function FExecuteCode(stCode As String, _
Optional fCheckOnly As Boolean) As Boolean FExecuteCode = EbExecuteLine(StrPtr(stCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function然后调用FExecuteCode就可以了。比如:
returncode=FExecuteCode("Unload Me")
当你执行 FExecuteCode "varABC=A + B * C"后,varABC不会改变
大家怎么看:)
支持 + - X /
支持 IF ENDIF,DO LOOP,FOR NEXT ,GOTO ,GOSUB ,DIM AS 等,
有兴趣的话,与我联系
用什么语言开发的?可以给我一个学习吗?
[email protected]
用什么语言开发的?可以给我一个学习吗?
[email protected]