如何执行TXT文档里的VB代码?

liangfan110 2017-01-02 07:23:59
加入1.TXT的内容为 TEXT1.TEXT=1
这时候两个控件一个COMMAND1,一个text1,实现点击COMMAND1后读取1.txt,然后让TEXT1显示1
...全文
682 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
of123 2017-01-16
  • 打赏
  • 举报
回复

Dim strLine As String, strItem() As String, tmp As Control

Open App.Path & "\1.txt" For Input As #1
Do Until EOF(1)
Line Input #1, strLine
If InStr(strLine, "=") Then
    strItem = Split(strLine, "=")
    Exit Do
End If
Loop
Close #1

If Ubound(strItem) = 1 Then
    For Each tmp
        If tmp.Name = Trim(strItem(0)) Then tmp.Text = Trim(strItem(1))
    Next
End if
  • 打赏
  • 举报
回复
一般只能运行vbs代码,如果需要运行完整的代码,需要在vb6 ide 环境下运行,必不可少。也可以生成一个工程文件,调用编译器实现编译成dll或exe,如何运行
vansoft 2017-01-14
  • 打赏
  • 举报
回复
用MSScript控件运行VBScript代码。
Tiger_Zhao 2017-01-03
  • 打赏
  • 举报
回复
工程添加组件 Microsoft Script Control 1.0
'Form1
'放1个TextBox、1个CommandButton、1个ScriptControl
Option Explicit

Private Sub Command1_Click()
Dim sScript As String

'你自己改为从文件读取代码'
sScript = "Text1.Text = 1"

With ScriptControl1
.Reset
.Language = "VBScript"
.AddObject "Form1", Me, True
.ExecuteStatement sScript
End With
End Sub
笨狗先飞 2017-01-03
  • 打赏
  • 举报
回复
用INI配置文件

Public Const MAX_TEXT_LENGTH = 1024
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal Appname As String, ByVal KeyName As Any, ByVal NewString As Any, ByVal FileName As String) As Integer

Public Function GetIni(ByVal FileName As String, ByVal Section As String, ByVal Key As String) As String
    Dim tStr As String
    tStr = Space(MAX_TEXT_LENGTH)
    GetPrivateProfileString Section, Key, Chr(32), tStr, LenB(tStr), FileName
    GetIni = Trim(tStr)
End Function

Public Sub SetIni(ByVal FileName As String, ByVal Section As String, ByVal Key As String, ByVal Value As String)
    WritePrivateProfileString Section, Key, Value, FileName
End Sub

'用法
'写
'SetIni "C:\Text.ini","Config","Text1.Text","1" 
'读
'Text1.Text=GetIni("C:\Text.ini","Config","Text1.Text")
'
'Text.ini内格式
'==================
'[Config]
'Text1.Text=1
'==================

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧