Visual Basic 6.0 - resorce file

Привет, Andrey.

Вы, было дело, писали 5 ноября 2003 г., 14:34:









Странно, но у меня всегда было в точности наоборот :)
Hадо проверить, сохраняется ли структура ресурсов в откомпилированном
файле. Когда-то я пытался Manifest(24) цеплять к VB5 проекту, так в
экзешнике всегда оказывались некорректные данные для такого ресурса.





Похоже, что нормальный (с указанием языка ресурса) способ для VB и
является нестандартным. Документация предлагает только способ прямого
указания языка в UI (загрузка ресурсов с разными номерами).
Books Online для пятой версии VB содержит пример. Он несложный и я
позволю себе его процитировать (почти все тут уже с VB6).

=====================8<==============================================

This sample application has been designed to illustrate support for
resource files in Visual Basic. The application contains three forms,
a standard module, and a resource file. When you run the Automated
Teller Machine (Atm.vbp) sample application, an opening screen lets
you perform a bank transaction in one of several languages, including
German, French, Italian, and Spanish. The following code from the
FrmInput.frm file loads resources stored in the Atm32.res file, which
contains the localized strings for all languages.
Sub Form_Load()
imgFlag = LoadResPicture(I, vbResBitmap)
Caption = LoadResString(I)
lblPINCode = LoadResString(1 + I)
fraAccount = LoadResString(2 + I)
optChecking.Caption = LoadResString(3 + I)
optSavings.Caption = LoadResString(4 + I)
lblAmount = LoadResString(5 + I)
cmdOK.Caption = LoadResString(6 + I)
SetCursor cmdOK
End Sub

Sub cmdOK_click()
' Display a process message.
MsgBox LoadResString(7 + I)
frmAmountWithdrawn.Show vbModal
Unload Me
End Sub

At run time, this code reads the appropriate section of the resource
file, based on an offset that is initialized when the user makes a
language selection in the opening screen. The offset is a public
variable declared in the standard module that indicates how far from a
starting point a particular item is located. In the ATM sample
application, the offset variable is I.
In the resource file, resource identifiers 16 through 47 are reserved
for English, 48 through 79 are reserved for French, 80 through 111 are
reserved for German, and so on. Each language contains the localized
entries that make up the data block of the sample application. This
block currently contains the eleven resources that are particular to
each language.
This sample application, which contains several data blocks,
introduces an alternative to a language-specific resource file using
only one data block. Depending on the nature of the application you
are developing, you may consider using one resource file per language
version of your application or a single resource file containing all
the localized data blocks.
The design of the Automated Teller Machine sample application presents
several advantages beyond the ones outlined earlier in the chapter:
T The application can grow in scope by providing service in more
languages. Simply add the same data block to the resource file and
localize it as needed. If you decide to add a language, you may have
to add a button to the opening screen.
T The application can grow in size if you want to extend your
application by, for instance, allowing the ATM users to make deposits.
Simply allow for wider identifier ranges (160 for example) for each
language in the resource file. Currently, the identifiers range from
16 to 47, 48 to 79, and so on.

=====================8<==============================================

PS Помнится, когда-то я интересовался настройками для украинской винды
и вроде бы выяснил, что для ресурсов нет такого языка, как украинский.
Или я чего путаю?

--
С уважением, Alexander
5:42:19 PM
* Origin: Talk.Mail.Ru (2:5020/400)


Мы где-то виделись, A.?











Hе показалось. "Это был тонкий-тонкий английский юмор". (с)

Однако, вернемся к нашим баранам. Чтобы имплементировать dispinterface, нужно
либо иметь соответствующий интерфейс в референсах (но это опять будет
аналогично раннему связыванию), либо перехватывать IDispatch::Invoke. Как
реализуется последнее, можно посмотреть в примере extender hook с сайта edanmo
(www.domaindlx.com/e_morcillo).

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)


[_**_] Зуб за зуб , за два - скулу ,не так ли All ?
/_np:JetAudio on!_/
_*========================================================*_
Подскажите как в MSFexGrid удалить определенную строку ?
Где можно почитать на эту тему ?
/_========================================================_/
[/__/] Пока, All, счастливого тебе коннекта ! ...
* Origin: www.yahooeyoo.com (2:5012/2.241)




Hello, Dmitriy!

20:03:06 +0300:





;-))






Да ну! Просто заимплементить IConnectionPointContainer и всё. Сам как-то от нечего делать такое писал. Правда, так и не заработало
:-)


With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru
--
* Origin: Talk.Mail.Ru (2:5020/400)


Мы где-то виделись, A.?











Поясни, пожалуйста. Я думал, что при подключении обработчика ивентов
передается интерфейс IDispatch, в который и уходят вызовы событий. А на самом
деле как?

А еще я думал, что IConnectionPointContainer нужен для объекта, который
генерирует ивенты, а не наоборот. ;)



;)

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)


Привет, Genrih!

05 Nov 03 00:08, Genrih Rudenok wrote to All:



перебирать 1, 10, 100 и т.д. в двоичной и пробовать вычитать от переводимого
числа. если получается вычесть - пишем 1, в противном случае 0.





деление на 2 - сдвиг вправо
умножение на 2 - сдвиг влево

С уважением, Nick!
np: кулеры, винты, уличный шум, etc.

* Origin: Ловись коннект большой и маленький! (2:5038/15.1)


Рад приветствовать тебя, All!

Применительно к Access, что необходимо для _появления_ сообщения о недопустимости операции с дальнейшим выходом из программы?


Victor

* Origin: И дым копченостей нам сладок и приятен (2:5030/1247.16)






сообщил/сообщила в новостях следующее:
news:824989704 [@] p148.f11.n5023.z2.ftn...





формы в









Спасибо за пример, он работает, но не так, как бы мне хотелось.

Hашел в тырьнете пример практически того, что мне нужно -
Form1 содержит список, тыкаешь мышой - открывается форма.
куски кода:
Private Sub Form_Load()
List1.AddItem ("Form1")
List1.AddItem ("Form2")
End SUb

Private Sub List1_Click()
Dim frm As Form

Set frm = forms(List1.ListIndex)
frm.Show
End Sub

Пример работает, если при старте программы я делаю так:
Form2.Show
Form2.Hide
Form1.Show

Иначе ругается при попытке открыть Form2 - складывается впечатление, что
forms содержит только один элемент - активную форму(Form1).
Толи я что-то не понял, толи предварительно нужно в коллекцию froms загнать
все формы?
А почему их там нет?

Что мне хотелось бы: есть набор форм, есть последовательность вызова форм,
меняющаяся от контекста.
Как я хотел сделать - массив с именами форм + массив, описывающий
последовательность их вызова (типа, закрыли форму ?1 - открыть форму ?8).

Пример выше доказывает выполнимость, но нужно каким-то образом
проинициализировать коллекцию forms.
Как - непонятно?

Вообще-то, пишется все на Embedded VisualTools 9eVB 3.0), может быть, это
его "специфика" ?
Если здесь офтопик, куда пойти?
Мне доступна еще ru.embedded, но там, похоже, одни "паяльники".
* Origin: Togliatti Telecom News Server (2:5020/400)


Мы где-то виделись, Michail?





.RemoveItem

По названию можно было догадаться. ;)



В MSDN смотрел? По-моему, документацию по FG они туда включили.

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)


Мы где-то виделись, Victor?






Hаверное, какая-либо недопустимая операция.

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)