VB6.0 自動生成 get let方法的工具

最新推荐文章于 2021-07-24 12:50:50 发布

SImonJ07

最新推荐文章于 2021-07-24 12:50:50 发布

阅读量1.1k

点赞数

分类专栏：技术文章标签： vb 工具

本文链接：https://blog.csdn.net/SImonJ07/article/details/2985584

版权

技术专栏收录该内容

8 篇文章 0 订阅

订阅专栏

 
 Option Explicit
Dim s As String
Private Sub Command1_Click()
CD.Filter = "TXT|*.txt"
CD.ShowOpen
Text1 = CD.FileName
End Sub
Private Sub Command2_Click()
Dim temp As String, b() As String, st As String, m As String
s = ""
Open Text1 For Input As #1
    Do Until EOF(1)
        Line Input #1, temp
        b = Split(temp, " ")
        m = Right(b(0), Len(b(0)) - 1)
        st = "Public Property Get " & m & "() As " & b(1) & vbCrLf & _
             m & "=" & b(0) & vbCrLf & _
             "End Property" & vbCrLf & _
             "Public Property Let " & m & "(ByVal vNewValue As " & b(1) & ")" & vbCrLf & _
             b(0) & " = vNewValue" & vbCrLf & _
             "End Property" & vbCrLf
        s = s & st
    Loop
Close #1
    Text2 = s
End Sub
Private Sub Form_Load()
Text1 = ""
Text2 = ""
End Sub
 