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

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