<?xml version='1.0' encoding="utf-8"?>
      <rss version='2.0'>
      <channel>
      <title>Форум на Исходниках.RU</title>
      <link>https://forum.sources.ru</link>
      <description>Форум на Исходниках.RU</description>
      <generator>Форум на Исходниках.RU</generator>
  	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=116606&amp;view=findpost&amp;p=880056</guid>
        <pubDate>Sun, 09 Oct 2005 18:11:40 +0000</pubDate>
        <title>ФАК по VB</title>
        <link>https://forum.sources.ru/index.php?showtopic=116606&amp;view=findpost&amp;p=880056</link>
        <description><![CDATA[THREEXXX: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=116606&view=findpost&p=879587'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Vasya2000 &#064; <time class="tag-quote__quoted-time" datetime="2005-10-09T11:51:32+04:00">09.10.05, 07:51</time></span><div class='quote '>Мы (администрация сайта и модераторы раздела) офф-лайн факом не занимаемся.</div></div><br>
Все, к вам вопров нет.<br>
Спасибо за внимание.<br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Сообщения были разделены в тему &quot;<a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=270408' target='_blank'>Програмное помещение данных в файл ресурсов</a>&quot;</span></span>]]></description>
        <author>THREEXXX</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=116606&amp;view=findpost&amp;p=879587</guid>
        <pubDate>Sun, 09 Oct 2005 07:51:32 +0000</pubDate>
        <title>ФАК по VB</title>
        <link>https://forum.sources.ru/index.php?showtopic=116606&amp;view=findpost&amp;p=879587</link>
        <description><![CDATA[Vasya2000: Мы (администрация сайта  и  модераторы раздела)  офф-лайн факом не занимаемся.]]></description>
        <author>Vasya2000</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=116606&amp;view=findpost&amp;p=879582</guid>
        <pubDate>Sun, 09 Oct 2005 07:38:09 +0000</pubDate>
        <title>ФАК по VB</title>
        <link>https://forum.sources.ru/index.php?showtopic=116606&amp;view=findpost&amp;p=879582</link>
        <description><![CDATA[THREEXXX: А про Off-Line FAQ VB забыли?]]></description>
        <author>THREEXXX</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=116606&amp;view=findpost&amp;p=879254</guid>
        <pubDate>Sat, 08 Oct 2005 13:40:10 +0000</pubDate>
        <title>ФАК по VB</title>
        <link>https://forum.sources.ru/index.php?showtopic=116606&amp;view=findpost&amp;p=879254</link>
        <description><![CDATA[Vasya2000: Давно в факе: <a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=116728' target='_blank'>Как работать с ресурсами</a><br>
Кстати ссылка есть вверху этой страницы (Ссылки по теме)]]></description>
        <author>Vasya2000</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=116606&amp;view=findpost&amp;p=879230</guid>
        <pubDate>Sat, 08 Oct 2005 12:47:48 +0000</pubDate>
        <title>ФАК по VB</title>
        <link>https://forum.sources.ru/index.php?showtopic=116606&amp;view=findpost&amp;p=879230</link>
        <description><![CDATA[THREEXXX: Ну где остальные?<br>Что всем &quot;профи&quot;, так сказать &quot;пофи??&quot;, что про ресурсы в FAQ&#39;е ни слова?<br>Ща попробую отослать ны мыло, из фака (кто этим вроде занимается), хотя один раз уже отправлял другую темку - ни ответа ни привета.]]></description>
        <author>THREEXXX</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=116606&amp;view=findpost&amp;p=879123</guid>
        <pubDate>Sat, 08 Oct 2005 09:38:10 +0000</pubDate>
        <title>ФАК по VB</title>
        <link>https://forum.sources.ru/index.php?showtopic=116606&amp;view=findpost&amp;p=879123</link>
        <description><![CDATA[Volniy: ФАК не должен вводить в заблуждение. Термины &quot;графика&quot; и &quot;картинки&quot; могут быть истолкованы слишком вольно. На самом деле это может только Bitmap (никаких GIF-ов, JPEG-ов и тд функция LoadResPicture не примет, их есть смысл хранить в пользовательском формате и загружать через LoadResData, а дальше уже обрабатывать по вашему усмотрению)]]></description>
        <author>Volniy</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=116606&amp;view=findpost&amp;p=873150</guid>
        <pubDate>Sun, 02 Oct 2005 12:32:01 +0000</pubDate>
        <title>ФАК по VB</title>
        <link>https://forum.sources.ru/index.php?showtopic=116606&amp;view=findpost&amp;p=873150</link>
        <description><![CDATA[Залетин Виталий: Да тут особенно и добавлять не надо ничего... :huh:]]></description>
        <author>Залетин Виталий</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=116606&amp;view=findpost&amp;p=872538</guid>
        <pubDate>Sat, 01 Oct 2005 11:21:22 +0000</pubDate>
        <title>ФАК по VB</title>
        <link>https://forum.sources.ru/index.php?showtopic=116606&amp;view=findpost&amp;p=872538</link>
        <description><![CDATA[THREEXXX: Почитав ФАК по VB6.0 с вашего форума, я так и не нашел в нем ни строчки про файл ресурсов, хотя на мой взгляд это довольно полезная вещь, которорая может пригодиться любому: и начинающему, и опытному программисту, и просто любопытному человеку; поэтому я считаю, что было бы непростительно не включить в ФАК по VB6.0 раздел, посвященный Файлу ресурсов.<br>
<br>
Предлагаю создать раздел в ФАКЕ под названием вроде: &quot;Файл ресурсов&quot; или &quot;Редактор ресурсов&quot;<br>
Вот  немножко полезной инфы о ресурсах в VB6.0, а так же некоторые советы, которые я даю на основании своего собственного опыта работы с файлами ресурсов:<br>
(часть представленных здесь материалов были взяты с www.infocity.kiev.ua)<br>
<div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <div class='quote '>ФАЙЛ РЕСУРСОВ:<br>
<br>
ЧТО это?<br>
Файл-ресурсов - это некий мульти-файл, в который могут входить данные абсолютно любого типа, будь то строковые данные или целые файлы.<br>
В проекте может находится только один файл ресурсов, но с любым количеством и типами данных в нем.<br>
<br>
Как создать файл-ресурс?<br>
1. Откройте меню Add-Ins (Модули) и выберите опцию Add-In Manager (Менеджер модулей)<br>
2. В открывшейся форме найдите VB6 Resource Editor, выделите его и внизу справа поставьте галочку на Loaded/Unloaded (Загруженный/Выгруженный),а так же на Load on Startup (Загружать при запуске) если вы хотите чтобы при запуске VB, Редактор ресурсов запускался автоматически, затем нажмите Ок.<br>
	Если вы не нашли VB6 Resource Editor в Менеджере модулей, то смотри раздел &quot;Секреты и полезные советы по файлу-ресурсу&quot;<br>
3. Выберите меню Tools (Инструменты) и в самом низу Resource Editor<br>
4. Нажмите на иконку с дискетой (Save), чтобы сохранить файл ресурсов на диске, после зтого, файл-ресурс появится в составе вашего проекта.<br>
<br>
Как работать с файлом ресурсов?<br>
	Как добавить данные в файл-ресурсов?<br>
	Для добавления в файл-ресурс строковых значений, курсоров, иконок, картинок (только BMP) служат соответствующие иконки на панели инструментов VB Resource Editor: Edit String Tables, Add Cursor, Add Icon, Add Bitmap<br>
	Если вы хотите добавить в файл ресурсов данные другого типа (файл) то используйте кнопку Add Custom Resource, на той же пнели инструментов.<br>
	<br>
	Как взять данные из файла ресурсов?<br>
<br>
	Загрузка текстовых данных.<br>
	Объект = LoadResString(index)<br>
	Index - идентификационный номер строки<br>
	Объект - TextBox, Label, текстовая переменная и все остальное, куда можно загргрузить текст.<br>
<br>
	Загрузка графических данных<br>
	Объект = LoadResPicture(index,format)<br>
	Index - идентификационный номер строки с картинкой<br>
	Format - тип загружаемых данных:<br>
	VbResBitmap - картинки<br>
	VbResCursor - курсоры<br>
	VbResIcon - иконки<br>
	Объект - PictureBox, Image и все остальное, куда можно загрузить графику<br>
<br>
	Объект = LoadResData(index, format)<br>
	Загружает данные и возвращает байтовый массив<br>
	ВНИМАНИЕ&#33;&#33;&#33; Используйте эту функцию ОЧЕНЬ ОСТОРОЖНО&#33;&#33;&#33; Так как могут возникнуть проблемы с форматом данных<br>
	ОБЯЗАТЕЛЬНО загляните в раздел &quot;Секреты и полезные советы по файлу-ресурсу&quot;<br>
	Index - идентификационный номер строки с данными<br>
	Format - тип возвращаемых данных в виде байтов (может быть и строкой с названием типа пользовательских данных, например: LoadResData(101, &quot;CUSTOM&quot;)):<br>
	1   -  Курсор<br>
	2   -  Графика<br>
	3   -  Иконка<br>
	4   -  Меню<br>
	5   -  Окно диалога<br>
	6   -  Текст<br>
	7   -  Каталог со шрифтами<br>
	8   -  Шрифт<br>
	9   -  Таблица<br>
	10  -  Пользовательские ресурсы<br>
	12  -  Группа курсоров<br>
	14  -  Группа иконок<br>
Секреты и полезные советы по файлу-ресурсу<br>
	Как достать файл из файла-ресурса и сохранить его на диск?<br>
	Для начала его туда нужно поместить:))<br>
	Вообщето для загрузки данных произвольного типа служит функция LoadResData(index,format), но она возращает массив байтов, которые не есть исходный файл :( <br>
	Вот функция, которая устраняет данную проблему:<br>
	Dim i1 as Variant<br>
	index = идентификационный номер строки,в файле-ресурсе<br>
	i1 = LoadResData(index, &quot;CUSTOM&quot;)<br>
    	Open &quot;путь и имя,сохраняемого файла&quot; For Binary As #1<br>
        	For x = 0 To UBound(i1)<br>
            		Put #1, , CByte(i1(x))<br>
        	Next<br>
	Close #1<br>
<br>
	Какие есть особенности при работе с файлом-ресурсов?<br>
	# Если вы не нашли VB6 Resource Editor в Менеджере модулей, то нужно переустановить VB6.0, выбрав выборочную (CUSTOM) установку и поставив в меню выбора устанавливаемых компонентов галочку Select All (выбрать все)<br>
	# После создания файла ресурсов картинки, тексты и т.д., которые были вставлены в файл - не нужны;<br>
	# Не присваивайте идентификационный номер 1, т.к. VB резервирует этот номер для себя;<br>
	# При компиляции файл ресурсов сохраняется в иполняемый файл (exe), поэтому, если вы скомпилировали программу, то вам не нужно таскать файл ресурсов оттдельно от самой программы, это может быть полезно при создании инсталляторов;<br>
</div></div><br>
Вот пока и все&#33; Жду реакции модераторов, создателей ФАКА, и просто людей с толковыми замечаниями и дополнениями.]]></description>
        <author>THREEXXX</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      </channel>
      </rss>
	