表单控件怎样执行写好的vb程序

您好，这样的：

Option Explicit

' 定义控件变量

Private WithEvents myWinFormControl As DCWinFormControlLibmyWinFormControl

' VB按钮点击事件处理

Private Sub cmdSetText_Click()

myWinFormControlUserText = "袁永福到此一游"

End Sub

' 窗体加载事件

Private Sub Form_Load()

Set myWinFormControl = New DCWinFormControlLibmyWinFormControl

myWinFormControlDock = 4

myWinFormControlAppendToContainerControl MepicContainerhWnd

End Sub

' 窗体大小改变事件

Private Sub Form_Resize()

If MeScaleWidth > 3000 And MeScaleHeight > 3000 Then

MepicContainerWidth = MeScaleWidth - MepicContainerLeft - 50

MepicContainerHeight = MeScaleHeight - MepicContainerTop - 50

If Not myWinFormControl Is Nothing Then

myWinFormControlAppendToContainerControl MepicContainerhWnd

End If

End If

End Sub

' 窗体卸载事件

Private Sub Form_Unload(Cancel As Integer)

Set myWinFormControl = Nothing

End Sub

' 响应控件ComButtonClick事件

Private Sub myWinFormControl_ComButtonClick()

MsgBox "用户点击了控件中的按钮"

End Sub

' 响应控件ComTextChanged事件

Private Sub myWinFormControl_ComTextChanged()

MeCaption = "用户修改了控件中的文字"

End Sub

可以用VBScript和CallByName函数结合

比如说你要执行msgbox "Hello World!" 这样的语句就这样

Private Sub Command1_Click()

    Set vbs = CreateObject("MSScriptControlScriptControl")

    vbsLanguage = "VBScript"

    vbsExecuteStatement (Text1Text)

End Sub

假如你要执行“Text1top=0”的话就用CallByName。

要说明的是：

VB60里面没有CObj函数，所以不能直接用这个函数把字符串转换成对象（object）；

既然你要执行Text1top=0，那么你的窗体上必须得有一个name属性为Text1的控件，我们可以通过遍历窗体控件的方法得到这个得到这个控件。这里给出一个demo

Option Explicit

Private Sub Command1_Click()

    Dim obj As Object

    Dim ObjName As String

    Dim ObjProperty As String

    Dim ObjValue As Variant

    

    '获取控件名,控件属性，控件值

    ObjName = Split(Text1Text, "")(0)

    ObjProperty = Split(Split(Text1Text, "")(1), "=")(0)

    ObjValue = Split(Split(Text1Text, "")(1), "=")(1)

    

    '遍历窗体控件，然后运用控件的属性

    'VbLet——设置属性

    For Each obj In MeControls

        If objName = ObjName Then

            CallByName obj, ObjProperty, VbLet, ObjValue

            Exit For

        End If

    Next

End Sub

效果（执行前）：

效果（执行后）：

效果（执行前）：

效果（执行后）：

至于应该用哪个，你可以简单做下判断，比如找下要执行的字符串里面有没有“”等等，，，自己变通下

先要保存工程，然后生成exe，都在“文件”菜单里 如果是在本机运行，直接就能运行，如果要拿到别的机子上用，就需要打包： 打包方法： -------------------------------------以下内容为转载———————————————————— 原文地址： >

用 shell,或者新建一个进程。

Private Sub Button1_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Button1Click

Shell（ "c:\123rar" ）

'或者 SystemDiagnosticsProcessStart("c:\123rar"）

End Sub

shell程序可以带参数的，如：

Shell("unrarexe e c:\secretrar")‘ 调用解压缩文程序unrarexe,将c盘secretrar 解压缩到当前目录。

你必须将VB6的运行库MSVBVM60DLL释放到系统SYSTEM32目录下，并且将所有使用到的OCX控件和COM_DLL都释放到系统目录下并且注册！VB可以制作自定义安装包，但是会比较麻烦。有三个可行办法：

1将所有组件和COM DLL等全部附加到资源文件，生成一个EXE安装文件，之后使用ASPACK进行压缩

2将所有用到的DLL等全部使用RAR或者压缩算法压缩成压缩包，之后进行解压缩

3使用自带打包工具（虽然很丑），也可以使用第三方打包工具，如WINRAR，Inno Setup

下载vb60就行了。

vbp是vb60的工程文件

vbw是vb60的一个文件，有临时文件的性质，它记录你保存时的工作状态（如编辑到第几行，打开了哪个窗口等），方便下次接着工作

以上就是关于表单控件怎样执行写好的vb程序全部的内容，包括:表单控件怎样执行写好的vb程序、如何用VB运行过程中动态执行代码、用VB编好的程序在电脑怎么运行啊！那些文件要放在那个目录中啊等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！