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

  1. OptionExplicit
  2. DimsAsString
  3. PrivateSubCommand1_Click()
  4. CD.Filter="TXT|*.txt"
  5. CD.ShowOpen
  6. Text1=CD.FileName
  7. EndSub
  8. PrivateSubCommand2_Click()
  9. DimtempAsString,b()AsString,stAsString,mAsString
  10. s=""
  11. OpenText1ForInputAs#1
  12. DoUntilEOF(1)
  13. LineInput#1,temp
  14. b=Split(temp,"")
  15. m=Right(b(0),Len(b(0))-1)
  16. st="PublicPropertyGet"&m&"()As"&b(1)&vbCrLf&_
  17. m&"="&b(0)&vbCrLf&_
  18. "EndProperty"&vbCrLf&_
  19. "PublicPropertyLet"&m&"(ByValvNewValueAs"&b(1)&")"&vbCrLf&_
  20. b(0)&"=vNewValue"&vbCrLf&_
  21. "EndProperty"&vbCrLf
  22. s=s&st
  23. Loop
  24. Close#1
  25. Text2=s
  26. EndSub
  27. PrivateSubForm_Load()
  28. Text1=""
  29. Text2=""
  30. EndSub

你可能感兴趣的:(get)