-
等级
本版专家分：234结帖率 100% -
求助以前泰山的“关于VB6中动态执行的功能”展开阅读全文
-
等级
本版专家分：234
-
有没有人知道，急用，加分
-
等级
本版专家分：1825 -
请把问题贴完整
-
等级
本版专家分：14912 -
动态执行有很多情况,你不讲清楚,是没有人回答的.
-
等级
本版专家分：39621勋章
-
-
微软MVP
2010年1月 荣获微软MVP称号
2011年1月 荣获微软MVP称号
2009年1月 荣获微软MVP称号
-
-
红花
2007年7月 VB大版内专家分月排行榜第一
2006年5月 VB大版内专家分月排行榜第一
-
-
黄花
2006年8月 VB大版内专家分月排行榜第二
2006年4月 VB大版内专家分月排行榜第二
-
-
蓝花
2008年6月 VB大版内专家分月排行榜第三
2006年9月 VB大版内专家分月排行榜第三
2006年7月 VB大版内专家分月排行榜第三
-
-
是不是这个啊？猜的。
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 Long
Sub StepLine(ByVal cmd As String) 'cmd就是vb6代码
Dim l As Long '临时变量,意义不大
l = EbExecuteLine(StrPtr(ByVal cmd), 0, 0, 0) '这就是实质
If l <> 0 Then
Err.Raise l
End If
End Sub
Private Sub Command1_Click()
StepLine "MsgBox Now"
End Sub
-
等级
本版专家分：39621勋章
-
-
微软MVP
2010年1月 荣获微软MVP称号
2011年1月 荣获微软MVP称号
2009年1月 荣获微软MVP称号
-
-
红花
2007年7月 VB大版内专家分月排行榜第一
2006年5月 VB大版内专家分月排行榜第一
-
-
黄花
2006年8月 VB大版内专家分月排行榜第二
2006年4月 VB大版内专家分月排行榜第二
-
-
蓝花
2008年6月 VB大版内专家分月排行榜第三
2006年9月 VB大版内专家分月排行榜第三
2006年7月 VB大版内专家分月排行榜第三
-
-
或者：
'引用 Microsoft Script Control 1.0
Private Sub Command1_Click()
Dim VBS As New MSScriptControl.ScriptControl
Dim Code As String
Code = "Sub Test() " & vbCrLf & _
" MsgBox Now" & vbCrLf & _
"End Sub"
VBS.Language = "VBScript"
VBS.AddCode Code
VBS.Run "Test"
End Sub
-
等级
本版专家分：234
-
VB版上的老鸟们都肯定知道dbcontrols(泰山__抛砖引玉)!
我在以前看到过泰山的一篇文章“关于VB6中动态执行的功能” 这不是引用VBA.DLL，也不是脚本控件的，
是调用VB其他DLL功能，可以字符命令直接执行的，不需要编译，类似脚本功能，功能又更强大，好象是我们在使用VB的IDE中的立即窗口。
- 在VB中动态执行VBS代码,可操控窗体控件
通过执行一段VBS代码来操控窗体内的控件也可以使用AddObject方法添加自己的类,那么在动态VBS代码中也一样可以使用在增加程序扩展性或是有脚本化需求的时候,这个方法还是不错的. Option Explicit Dim vbs As ...
- 关于VB6中代码显示PNG图片的问题
vb6中显示png图片，主要代码来自于 http://www.vbforums.com/showthread.php?509292-RESOLVED-png-files-in-Visual-Basic中的【Using_Ping_In_VB.ZIP】例子。 本人对【Using_Ping_In_VB.ZIP】的代码做了相关修改以...
- 【VB6】VB动态调用外部API函数的方法
'******************************************************************************** ' 'Name.......... APIClass 'File.......... APIClass.cls 'Version....... 1.0.0 ...'Dependencies.....'Auth
- 在VB6中调用动态连接库教程（转载）
作为一种简单易用的Windows开发环境，Visual Basic从一推出就受...VB中高度的封装和模块化减轻了编程者的负担，同时也使开发人员失去了许多访问低层API函数和直接与Windows交互的机会。因此，相比而言，VB应用程序的...
- VB动态添加执行代码完整版(三)
VB6动态添加代码的教程演示以及下载地址,为那些喜欢用脚本拓展程序功能的新手而写,其他人士也可以看看. 源码可以在我的CSDN下载中心下载: 最新更新: http://download.csdn.net/source/2619000 最旧文件: ...
- VB中实现延时(等待)的几种方法
在程序流程中经常要延时一段时间后再继续往下执行,在VB中常用的有以下几种方法(因为Timer控件打乱了程序的流程所以一般不用它):1.使用Windows API函数Sleep新建一个工程,添加一个TextBox控件和一个CommandButton控件...
- VB中Shell和ShellExecute函数的使用方法和区别
写了一个vb的程序，用来把原来写的几个vb和vc的程序整合起来。就是使用Shell函数。结果发现，vc的程序可以很好的显示，但vb写的却一运行就最小化了。... vb的shell函数用法： 功能：执行一个可执行文件，返
- 两个循环“一起”运行，真的需要VB忍受多线程吗？
有很多时候，我们需要两个循环在同一时间内运行，例如要显示一...实现方法：模拟CPU的运行，让循环轮换执行优点：两个循环“同时”执行，不需要多线程缺点：不会提高程序运行的效率，但一般不会产生明显影响代码：测试
- VB For 循环语句的用法
For循环的格式: For 循环变量 = 初值 To 终值 [Step 步长] step 2 就是i=i+2 ...循环执行的条件：循环变量 ...循环执行的条件：循环变量 >= 终值 强行退出 For 循环，请使用 Exit For。
- VB——对象库未注册
由于前两天在清理文件的时候，不小心把C盘系统文件删了，今天打开vb6遇到了一个很顽固的问题，如下： 解决方法1： 打开frmMain.log发现如下问题： 行 12: 控件 sbStatusBar 的类 MSComctlLib.Status...
- VB、VBA、VBS的区别你搞清楚了吗？
《真是想不到系列》每次看大师的东西到了精彩之处，我就会拍案叫绝："哇噻，真是想不到... 真是想不到系列之一：VB到底为我们做了什么？关键字：VB、底层、WIN32、API、COM难度：中级要求：熟悉VB，会用VC调试器，了解
- VB6 http post 发送与返回内容处理
今天帮同事做另一家公司的Web系统数据对接，我方发送请求，对方返回一些数据，用的是客户端用的是VB6，代码记录如下： Dim postData As String Dim url As String url = ...
- vb如何 让程序暂停 几秒 再继续执行下面语句
在程序代码最上边加上 Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long) 在想暂停的地方，运行Sleep 1000 '1000代表1秒
- VB中Split函数的功能及用法
描述 返回一个下标从零开始的一维数组，它包含指定数目的子字符串。 语法 Split(expression[,delimiter[,count[,compare]]]) Split函数语法有如下几部分：部分描述expression必需的。...
- VB中Show方法详解
[,Owerner]说明：Modal：指定窗体显示的模式，可以为vbModal（=1）或vbModeless（=0，默认值），vbModal表示将窗体作为模式对话框显示，这种情况下，Show方法后的代码要等到模式对话框关闭之后才能执行，且焦点也不...
- VB中的mid函数的功能及参数
VB中的mid函数的功能及参数 1.来自MSDNMid 函数返回 Variant (String)，其中包含字符串中指定数量的字符。语法Mid(string, start[, length])Mid 函数的语法具有下面的命名参数：部分 说明 string 必要参数。字符串...
- VB中Split函数的作用和用法(字符串用逗号分割)
VB中Split函数的作用和用法(字符串用逗号分割) VB中Split函数的作用和用法(字符串用逗号分割) 示例: Function testSplit() Dim a As String a = "1,2,3,4,dsd-ad5,6,45,656465,564,45" Dim b() As...
- VB脚本：快速入门教程
本文主要结合SecureCRT来讲解VB脚本的快速入门与实践方法。 需要准备的环境：一台windows计算机，一台linux计算机。 本人演示环境为在windows7宿主机上，通过VMWare软件安装了一台linux虚拟机，并通过网络设置...
- VB6.0 Select Case语句
注明：百度百科上Select Case语句的最新版本亦是我的作品。 语法 Select Case Case ...其中，表述情形的关键字，有IS和TO，多...当省略Case Else语句并且语句组都因情形不符合实际时，语句的执行，会直接到达End Se
- 怎样在VB中控制WORD
李冬梅 马重阳 使用VB编程时，有时需要调用Microsoft Word对文字进行编辑、排版及输出。为实现这种调用，可以使用Shell函数、OLE自动化、在包容器中嵌入Word对象等方法。经过试用和比较，总结出了这几种方法的各自...
- VB中延时功能与Sleep函数
延时－Sleep函数，主要功能就是使当前线程等待一段时间，用法就是“Sleep 毫秒数”，这里的毫秒数可以设置成任意整型数据。如 Sleep 1000，表示延时1秒（1000毫秒）。Sleep与DoEvents之间是有点区别的。DoEvents其实...
- VB.NET——宏观把控
●编译 在学习C#的时候我们知道他是一种面向对象的、运行于.NET Framework之...同样，.net也是运行于.NET Framework上的高级程序设计语言，VB.Net是一种.Net语言，什么是.NET Framework呢？详情在这里那.NET语言...
- 简要分析VB6.0和VB.NET区别
现在随着VB.NET的发展，大部分人都放弃使用VB6.0而选择VB.NET，下面我们就来研究一下VB6.0和VB.NET的区别。VB.NET是微软公司在2002年推出的一种开发基于.Net平台应用程序的开发语言，也是微软公司极力推荐的一种开发...
- VB.NET 数组的定义 动态使用 多维数组
我们都知道在所有程序设计语言中数组都是一个非常重要的概念，数组的作用是允许程序员用同一个名称来引用多个变量，因此采用数组索引来区分这些变量。很多情况下利用数组索引来设置一个循环，这样就可以高效地处理...
- VB中调用存储过程的几种方法
VB中调用存储过程的几种方法 第一种方法Dim conn As StringDim cn As New adodb.ConnectionDim cm As New adodb.Commandconn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial...
- 我在CSDN参与的3000个帖子
今日偶然翻到，感慨万千 1：申述：版主，是否扣了我的专家分？ 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题 望高手帮忙！... 6：VBA请教怎
- VB.NET中的sender、e和handles
由于收费系统中，碰到几次事件的调用，对其中参数不是很理解，就总结了一下vb.net中的事件。 在vb6.0中事件非常简单，就拿最常用的单击按钮事件来说，vb中的代码是： Private Sub Command1_Click() MsgBox ("你点击...
- vb 简单If条件语句
使用在称之为分支结构的特殊语句块中的条件表达式控制了程序中哪些语句被执行以及什么样的执行次序执行。“If...Then”分支结构在程序中计算条件值，并根据条件值决定下一步执行的操作。最简单的“If...Then”分支...
- VB中 Replace 函数
VB中 Replace 函数 描述返回字符串，其中指定数目的某子字符串被替换为另一个子字符串。语法Replace(expression, find, replacewith[, compare[, count[, start]]])Replace 函数的语法有以下参数：参数 描述 ...
- WIN7系统下，VB6中的sendkeys命令无法使用，提示“实时错误70 拒绝的权限”
WIN7系统下，VB6中的sendkeys命令无法使用，提示“实时错误70 拒绝的权限” 解决方法：Windows 7 UAC漏洞，关闭Windows 7 UAC的VBS。