Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Изменить ресурсы / 24 сообщений из 24, страница 1 из 1
09.03.2007, 20:33
    #34381494
Morion
Morion
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить ресурсы
как можно изменить ресурсы, используемые программой? Например, заменить текст строки, поменять иконку, рисунок и т.д?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.03.2007, 23:36
    #34381656
Magnus23
Magnus23
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить ресурсы
У тебя уже был один такой топик, если тема еще актуальна нужно поднимать старые а не плодить новые.
Пока предупреждаю, далее буду удалять молча.


Magnus
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.03.2007, 06:36
    #34381754
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить ресурсы
Morionкак можно изменить ресурсы, используемые программой? Например, заменить текст строки, поменять иконку, рисунок и т.д?
зачем?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.03.2007, 10:00
    #34381788
Morion
Morion
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить ресурсы
Ок, Magnus23 . Постараюсь.
orunbekзачем?
Ну как зачем.... например надо мне изменить текст в ресурсах... много же для чего это может быть нужно!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.03.2007, 11:26
    #34381824
Morion
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
| Ответить | Цитировать | Написать  
10.03.2007, 12:50
    #34381891
Morion
Morion
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить ресурсы
или вообще невозможно так сделать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.03.2007, 15:04
    #34382015
SashaM
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
| Ответить | Цитировать | Написать  
10.03.2007, 15:55
    #34382056
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить ресурсы
MorionЧто я делаю не так?Печатаешь ногой. Если не сказать хуже.

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

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

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

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

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

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

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

А ты не подскажешь, где посмотреть? Облазил на Яндексе, рамблере, не нашёл... =(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.03.2007, 20:43
    #34382985
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить ресурсы
А в Google?
Google
Яндекс
Rambler
и т.д. можно продолжать со всеми поисковиками
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.03.2007, 23:33
    #34383117
michael R
michael R
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить ресурсы
http://forum.sources.ru/index.php?showtopic=101314&hl=
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.03.2007, 23:35
    #34383121
michael R
michael R
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить ресурсы
в догонку
http://vbnet.ru/forum/show.aspx?id=126584
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.03.2007, 08:36
    #34383286
Morion
Morion
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить ресурсы
michael R , спс! ща буду разбираться!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.03.2007, 12:13
    #34383834
Morion
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
| Ответить | Цитировать | Написать  
12.03.2007, 15:11
    #34384646
michael R
michael R
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить ресурсы
дай код + exe
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.03.2007, 16:48
    #34387896
Morion
Morion
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить ресурсы
Вот.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.03.2007, 17:51
    #34388207
michael R
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
| Ответить | Цитировать | Написать  
14.03.2007, 14:27
    #34390344
Morion
Morion
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить ресурсы
Да, так работает. только на ресурсы это никак не повлияло... попробую что-нибудь исправить...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Изменить ресурсы / 24 сообщений из 24, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 768ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2164354]:
 0ms
get settings:
 11ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 417ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 58ms
get tp. blocked users:
 1ms
others: 240ms
total:  768ms
x
x
Закрыть


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