Пробую для себя тоже написать некое хранилище кодов. Слишком много всяких на винте и нужный искать не совсем удобно. Не знаю, на правильном пути или нет. Написал TreeView с разделами: папки, файлы и т.д. Просто код помещаю на txt и добавляю в ресурсы. Потом нажимаешь нужную ссылку и эти txt выводятся на форму. А там можно копировать и вставлять. Правда в ресурсы добавлять нудно как-то.
Жалко в ресурсы нельзя добавлять папку с файлами. Если только сперва архивировать. Опять же не очень удобно при распаковке. Если только самораспаковывающийся архив делать.
- Код: Выделить всё
Private Sub TV1_NodeClick(ByVal Node As MSComctlLib.Node)
Dim File As String, Temp
If Node.Key = "File1" Then
Dim B() As Byte
B = LoadResData(101, "CUSTOM")
Dim FF As Integer
FF = FreeFile
Open "C:\Кирпичи VB6\1.txt" For Binary As #FF
Put #FF, , B()
Shell "rundll32.exe url.dll, FileProtocolHandler C:\Кирпичи VB6\1.txt", vbNormalFocus
Close #FF
End If
И такой код надо писать каждой ветке. Еще и переменные менять.
Нельзя ли как код упростить?