powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Изменить ресурсы
24 сообщений из 24, страница 1 из 1
Изменить ресурсы
    #34381494
Morion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
как можно изменить ресурсы, используемые программой? Например, заменить текст строки, поменять иконку, рисунок и т.д?
...
Рейтинг: 0 / 0
Изменить ресурсы
    #34381656
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У тебя уже был один такой топик, если тема еще актуальна нужно поднимать старые а не плодить новые.
Пока предупреждаю, далее буду удалять молча.


Magnus
...
Рейтинг: 0 / 0
Изменить ресурсы
    #34381754
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Morionкак можно изменить ресурсы, используемые программой? Например, заменить текст строки, поменять иконку, рисунок и т.д?
зачем?
...
Рейтинг: 0 / 0
Изменить ресурсы
    #34381788
Morion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ок, Magnus23 . Постараюсь.
orunbekзачем?
Ну как зачем.... например надо мне изменить текст в ресурсах... много же для чего это может быть нужно!
...
Рейтинг: 0 / 0
Изменить ресурсы
    #34381824
Morion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
и ещё один вопрос по ресурсам...

У меня есть массив. В нём хранятся пути реестра для извлечения данных. Например,
Код: plaintext
Registr( 1 )="HKEY_LOCAL_MACHINE, "SOFTWARE\Morion\Data", "Path""

Я хочу, чтобы функция QueryValue извлекала данные из реестра, брав пути для извлечения из массивов. Я пишу:
Код: plaintext
Path.Caption = QueryValueRegistr( 1 ))
Но повляется ошибка:

Compile Error:
ByRef argument type mistmach


Что я делаю не так?
...
Рейтинг: 0 / 0
Изменить ресурсы
    #34381891
Morion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
или вообще невозможно так сделать?
...
Рейтинг: 0 / 0
Изменить ресурсы
    #34382015
SashaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ясно же сказанно несовпадение типов:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub Main()
  Registry = Array("HKEY_LOCAL_MACHINE", "SOFTWARE\Morion\Data", "Path")
  Result = QueryValue(Registry( 1 ))
End Sub

Private Function QueryValue(Registry)
  MsgBox Registry
End Function
...
Рейтинг: 0 / 0
Изменить ресурсы
    #34382056
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
MorionЧто я делаю не так?Печатаешь ногой. Если не сказать хуже.

Как понимать одну открываюющую и две закрывающие скобки в строке
Код: plaintext
QueryValueRegistr(1))
???

Что за фигня с кавычками и запятыми в
Код: plaintext
Registr(1)="HKEY_LOCAL_MACHINE, "SOFTWARE\Morion\Data", "Path""
???

ТАК сделать невозможно. По крайней мере чтобы работало.
...
Рейтинг: 0 / 0
Изменить ресурсы
    #34382059
Morion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Antonariy Как понимать одну открываюющую и две закрывающие скобки в строке
Код: plaintext
QueryValueRegistr(1))
???.

Ну, забыл поставить скобку. Но в коде я писал норамально. Это просто тут так получилось...
...
Рейтинг: 0 / 0
Изменить ресурсы
    #34382062
Morion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Короче ладно, про массивы проехали. А как на счёт первого вопроса??? Я что-то слышал про функцию RebuldingResourse, или как-то так. Она не перестраивает ресурсы заново с новыми данными?
...
Рейтинг: 0 / 0
Изменить ресурсы
    #34382341
VipFedor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
как можно изменить ресурсы, используемые программой?

Добавления - Менеджер добавлений - VB 6 Resource Editor
Подключая VB 6 Resource Editor и добавляя свой ресурс в exe-шник путем компиляции!

Успехов!
...
Рейтинг: 0 / 0
Изменить ресурсы
    #34382478
Morion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
VipFedorДобавления - Менеджер добавлений - VB 6 Resource Editor
Подключая VB 6 Resource Editor и добавляя свой ресурс в exe-шник путем компиляции!

Нет, я имею в виду во время работы программы? Например, там был один текст, потом понадобилось сохранить другой.
...
Рейтинг: 0 / 0
Изменить ресурсы
    #34382667
Фотография izali
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
если я все правильно поняла, то имхо у автора некорректное понимание ресурсов...
ресур-это ресурс... а который их них когда использовать, решать программисту...
...
Рейтинг: 0 / 0
Изменить ресурсы
    #34382702
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
посмотри функции API (BeginUpdateResource)
...
Рейтинг: 0 / 0
Изменить ресурсы
    #34382809
Morion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
michael Rпосмотри функции API (BeginUpdateResource)

А ты не подскажешь, где посмотреть? Облазил на Яндексе, рамблере, не нашёл... =(
...
Рейтинг: 0 / 0
Изменить ресурсы
    #34382985
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А в Google?
Google
Яндекс
Rambler
и т.д. можно продолжать со всеми поисковиками
...
Рейтинг: 0 / 0
Изменить ресурсы
    #34383117
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
http://forum.sources.ru/index.php?showtopic=101314&hl=
...
Рейтинг: 0 / 0
Изменить ресурсы
    #34383121
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
в догонку
http://vbnet.ru/forum/show.aspx?id=126584
...
Рейтинг: 0 / 0
Изменить ресурсы
    #34383286
Morion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
michael R , спс! ща буду разбираться!
...
Рейтинг: 0 / 0
Изменить ресурсы
    #34383834
Morion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Я пишу:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Private Sub Command1_Click()
Dim h As Long
Dim txt As String
h = BeginUpdateResource("c:\1.exe",  0 )
txt = "Текст"
Call UpdateResource(h, "TEXT", "1",  1049 , ByVal txt, Len(txt)) 
Call EndUpdateResource(h,  0 )
End Sub

Но выдаёт ошибку: несовпадение типов ByVal txt тут

??? в чём проблема?
...
Рейтинг: 0 / 0
Изменить ресурсы
    #34384646
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
дай код + exe
...
Рейтинг: 0 / 0
Изменить ресурсы
    #34387896
Morion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вот.
...
Рейтинг: 0 / 0
Изменить ресурсы
    #34388207
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
декларация на функцию API не правильна
не Integer а Long
не Object а Any

Declare Function BeginUpdateResource Lib "kernel32" Alias "BeginUpdateResourceA" (ByVal pFileName As String, ByVal bDeleteExistingResources As Long) As Long

Declare Function UpdateResource Lib "kernel32" Alias "UpdateResourceA" (ByVal hUpdate As Long, ByVal lpType As String, ByVal lpName As String, ByVal wLanguage As Long, lpData As Any, ByVal cbData As Long) As Long

Declare Function EndUpdateResource Lib "kernel32" Alias "EndUpdateResourceA" (ByVal hUpdate As Long, ByVal fDiscard As Long) As Long

так правильно не падает
но не понятно что должно происходить
у меня Windows без русского языка(не системный)
и функция возвращает 1 (ошибка) нужен 0
...
Рейтинг: 0 / 0
Изменить ресурсы
    #34390344
Morion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Да, так работает. только на ресурсы это никак не повлияло... попробую что-нибудь исправить...
...
Рейтинг: 0 / 0
24 сообщений из 24, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Изменить ресурсы
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]