Visual Basic: новости сайтов, советы, примеры кодов.
¬ыпуск 42.


VBNet VBMania
√олосование:

Ќет тем!

–ассылки Subscribe.Ru
ћир программировани€ на Visual BASIC 5.0 и HTML.


–ассылки Subscribe.Ru
—тарые игры

ƒоска почЄта:

Sergey Y. Tkachev
 ононенко –оман
Kirill
Sergey Sapozhnikov
Sobic

—сылки:

  • ”лицы VB
  • »спользование VB
  • јзбука VB
  • ”лицы VB
  •  ирпичики VB
  • Cооб„а VB
  • VB по русски
  • Snoozex Design
  • √оспода!!! читайте MSDN!!!

    Ќесколько слов от автора:

       Ќаконец-то каникулы!!! ¬ремени много свободного!
    „итайте!


    —одержание выпуска




     ниги

    Visual Basic 6. ћастер. –уководство дл€ профессионалов

       язык программировани€ Visual Basic - мощный инструмент разработки приложений дл€ 32-разр€дных систем Windows 95 и Windows NT. ¬ книге рассматриваютс€ как фундаментальные пон€ти€ и темы: от установки продукта на компьютер пользовател€ и описани€ интегрированной среды разработки до изложени€ основ техники программировани€ на Visual Basic, так и сложные вопросы, адресованные профессиональным программистам: создание интерфейса пользовател€, применение стандартных элементов управлени€, в том числе и дл€ работы с базами данных, программирование компонентов ActiveX, описание технологии OLE drag-and-drop, объектна€ модель FSO, функции работы с файлами, отладка и оптимизаци€ программ, локализаци€ и распространение готовых приложений.


    јвтор: нет даных
    »здательсвто: нет данных
    √од издани€: 1998
     ол-во страниц: 992
    —тоимость: 112,48 р.
    ‘ормат: 70х100/16
    ѕереплЄт: м€гкий

    Visual Basic 6. —пециальный справочник

       √лавна€ цель этого справочника - научить читател€ использовать инструменты и средства Visual Basic, позвол€ющие значительно облегчить и ускорить процесс создани€ приложений. «десь вы найдете описание элементов €зыка, библиотечных функций и SQL-операторов. ќсобое внимание уделено различным мастерам, предназначенным дл€ решени€ стандартных задач. ¬есь справочный материал в книге разбит на главы, в каждой из которых вы найдете информацию по созданию приложени€ определенной направленности. –азделы в главе содержат пошаговое описание операций, которые нужно выполнить дл€ решени€ поставленной задачи, синтаксис необходимых операторов, а также подробно разобранные примеры. ѕредлагаемый справочник будет полезен не только пользовател€м, активно работающим с Visual Basic 6, но и начинающим программистам, желающим перейти к профессиональной разработке приложений с наименьшими затратами времени на изучение новой среды программировани€.


    јвтор: Ѕ.  арпов
    »здательсвто: ѕитер
    √од издани€: 2000
     ол-во страниц: 416
    —тоимость: 70,78 р.
    ‘ормат: 84х108/32
    ѕереплЄт: нет данных

    Visual Basic 6.0 for application

        нига €вл€етс€ систематизированным справочником по всем элементам €зыка программировани€ Visual Basic (VB), вход€щим, как в автономную версию VB, так и в основные реализации Visual Basic for Applications.
       ѕомимо тех официальных сведений, которые можно найти в документации и в справочной системе, книга содержит конкретные примеры, рекомендации и маленькие хитрости программиста, а также поправки к справочной системе, котора€, увы, не без ошибок.
        нига предназначена дл€ всех специалистов, занимающихс€ разработкой приложений с применением Visual Basic и Visual Basic for Applications.


    јвтор:  ороль ¬.».
    »здательсвто:  ”ƒ»÷-ќбраз
    √од издани€: 2000
     ол-во страниц: 448
    —тоимость: 113,87 р.
    ‘ормат: 70х100/16
    ѕереплЄт: м€гкий

    Win32 API и Visual Basic. / ƒл€ профессионалов /

        нига €вл€етс€ сборником полезных советов и приемов, хот€ в ней, веро€тно, описаны тыс€чи разных приемов. ќна не была задумана как энциклопеди€ самосто€тельных фрагментов программного кода, которые бездумно подключаютс€ к приложению - хот€ многие ее примеры можно использовать подобным образом.


    јвтор: ƒ. Ёпплман
    »здательсвто: ѕитер
    √од издани€: 2001
     ол-во страниц: 1120
    —тоимость: 489,08 р.
    ‘ормат: нет данных
    ѕереплЄт: нет данных

    јзбука программировани€ в Windows 32 API

       »зложены вопросы создани€ программных приложений дл€ Window95 и Windows NT. ќписаны основные типы переменных, макросов, функций. ћатериал книги иллюстрируетс€ многочисленными примерами. 1 Ќасто€щее издание (второе вышло в 2000 г.) дополнено описанием тех возможностей Windows, которые не были упом€нуты в предыдущих издани€х.


    јвтор: –ум€нцев ѕ.¬.
    »здательсвто: –адио и св€зь
    √од издани€: 2001
     ол-во страниц: 312
    —тоимость: 85 р.
    ‘ормат: 60х88/16
    ѕереплЄт: нет данных

    »спользование Visual Basic 6. —пециальное издание

       ¬ книге описана нова€ верси€ попул€рной системы программировани€ Visual Basic 6. »зложение материала построено по принципу "от простого к сложному". ѕервые главы этой книги адресованы новичкам, из которых они смогут почерпнуть основы €зыка Visual Basic и описание его стандартных компонентов. ƒл€ подготовленных пользователей будет интересен раздел, посв€щенный специальным методам программировани€ с использованием стандартных компонентов Windows, элементов управлени€ ActiveX, ADO. RDO и др. ¬ отдельную часть вынесены вопросы, св€занные с разработкой приложений баз данных на Visual Basic и работе в Internet. јвтор не обошел также вниманием различные версии €зыка Visual Basic - VBA и VBScript. ¬ приложени€х приведен обзор интегрированной среды разработки Visual Basic, а также краткий справочник по SQL.
        нига рассчитана на широкий круг читателей.


    јвтор: —айлер Ѕ., —поттс ƒж.
    »здательсвто: ¬иль€мс
    √од издани€: 1999
     ол-во страниц: 832
    —тоимость: 244,02 р.
    ‘ормат: 70х100/16
    ѕереплЄт: твЄрдый

    ќбработка баз данных на Visual Basic 6 + CD

       —ердцем многих приложении, работающих в сфере бизнеса, €вл€ютс€ базы данных. —воим широким распространением они об€заны возможности централизованного доступа к информации. который характеризуетс€ последовательностью, эффективностью и относительной простотой создани€ и поддержки. ¬ книге "ќбработка баз данных на Visual Basic 6" описываютс€ все технологии доступа к базам данных с помощью Visual Basic. ѕриведенные в этой книге примеры вз€ты из реальной жизни, поэтому, ознакомившись с ними, вы узнаете, как можно использовать базы данных дл€ прин€ти€ решений в сфере бизнеса. ≈сли вы еще не готовы перейти к версии Visual Basic 6, это вовсе не значит, что данна€ книга вам не подходит. ѕрактически 95% материала этой книги удовлетворит в равной степени пользователей как п€той, так и шестой версий Visual Basic.
        нига рассчитана на программистов средней и высокой квалификации.


    јвтор: ћак-ћанус ƒж.ѕ.
    »здательсвто: ¬иль€мс
    √од издани€: 1999
     ол-во страниц: 672
    —тоимость: 294,66 р.
    ‘ормат: 70х100/16
    ѕереплЄт: твЄрдый


    ќстальные книги о VB можно найти
    здесь.

    наверх


    Citycat by Email

       ѕрограмма Citycat by Email позвол€ет работать с сервером Subscribe.ru с помощью электронной почты. “еперь ¬ам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы дл€ того, чтобы подписатьс€ на нужную рассылку! ¬ам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего ¬ы сможете подписыватьс€ и отписыватьс€ от рассылок, заказывать архивы прошлых выпусков, выполн€ть поиск по каталогу рассылок и многое другое.
       ѕрограмму Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru.

    наверх


    Ќовости сайта VBNet

    ƒата: 23.03.2002 15:18 | –аздел: ѕримеры кода | јвтор: Ќеизвестный автор

    MailChecker - ѕродолжаем публикацию примеров по работе с Winsock компонентом. Ќа этот раз пример демонстрирует возможность проверки почты в ¬ашем почтовом €щике. ј потом можно и свою почтовую программу написать! » зачем нам Outlook?

    ƒата: 23.03.2002 13:19 | –аздел: ѕримеры кода | јвтор: Ќеизвестный автор

    MailSender - ѕродолжаем публикацию примеров по работе с Winsock компонентом. ѕример может посылать почтовые сообщени€. ¬се очень просто и пон€тно.

    ƒата: 21.03.2002 05:13 | –аздел: ActiveX контролы | јвтор: ¬адим јндри€н

    SetCapsMode -  ак сделать так, чтобы в текстовае окно можно было ввести только заглавный буквы? ј как, чтобы только прописные? Ќе знаете, тогда посмотрите этот пример, в котором можно это все сделать

    ƒата: 20.03.2002 05:22 | –аздел: ѕримеры кода | јвтор: ¬лаƒимир

    AgentVB - Ms Agent один из наиболее интересных нововведений Microsoft за последнее врем€. Ёти забавные персонажи умеют разговаривать, могут понимать речь (пока только английскую), они имеют много интересной и забавной анимации. ≈сли ¬ы хотите научитьс€ работать с этим компонентом, то посмотрите этот пример.

    ƒата: 19.03.2002 14:11 | –аздел: ѕримеры кода | јвтор: Ѕел€ев ƒанила

    MP3 Tags - ћногие спрашивают как отредактировать ID3v1 запись в файле MP3. ¬от ƒанила вз€л и написал специальный редактор тэгов. ѕока только дл€ версии 1.  стати, все до гениальности просто и пон€тно. ѕара функций API дл€ чтени€ определенной области файла, хорошие мозги, кофе и всего одна ночь ;-)

    ƒата: 19.03.2002 07:22 | –аздел: ActiveX контролы | јвтор: Ќеизвестный автор

    TaSplit - —плиттер - это такой разделитель окна - берешь за него и тащишь. » при этом размеры соседних окошечек измен€ютс€ соответственно ... Ќужен? “огда этот контрол специально дл€ ¬ас.

    ƒата: 18.03.2002 07:51 | –аздел: ѕримеры кода | јвтор: √риневич ƒмитрий

    FileProperties - ≈сли ¬ам в своей программе необходимо предоставить пользователю стандартное окно свойств файла, то только в этом примере ¬ы сможете пон€ть как это можно сделать.

    ƒата: 18.03.2002 05:17 | –аздел: ѕримеры кода | јвтор: ¬адим јндри€н

    WinsockControl -  ак работать с компонентом Winsock? «десь реализованы основные возможности этого замечательного компонента Visual Basic. ¬ы сможете подключитьс€ к серверу, посылать ему команды и смотреть что при этом происходит ;-)



    ѕоследние 20 тем форума на VBNet.Ru:

    09:35 / 24 мар.  ещЄ один глюк... |  ќтветов: 1
    05:23 / 24 мар.    ак избежать повторной компилл€ции |  ќтветов: 1
    21:49 / 23 мар.  глюки... |  ќтветов: 1
    15:31 / 23 мар.  zapusk ishodnikov s neta |  ќтветов: 1
    09:27 / 23 мар.  Error: Logon session doesn't exist |  ќтветов: 0
    03:21 / 23 мар.  ѕерекодировка текста WIN/DOS |  ќтветов: 1
    03:03 / 23 мар.  эй тут есть крутые или нет? |  ќтветов: 1
    22:33 / 22 мар.   ак минимизировать любое окно проги (игры)???? |  ќтветов: 1
    20:59 / 22 мар.  Outlook отправка почты |  ќтветов: 1
    17:59 / 22 мар.  —ортировка таблицы в базе данных |  ќтветов: 1
    19:58 / 21 мар.  ѕечать рисунка |  ќтветов: 1
    14:32 / 21 мар.  “очка и восклицательный знак |  ќтветов: 1
    13:44 / 21 мар.  «апуск Access'a из VB без лого !!! |  ќтветов: 1
    12:50 / 21 мар.  ƒоступ к ресурсам Ћ¬— с пом. FileSystemObject |  ќтветов: 0
    12:31 / 21 мар.  Ќу кто нибудь знает ???????????????????? |  ќтветов: 1
    02:50 / 21 мар.  при проигрывание звука все отстанавливаетс€ ! |  ќтветов: 1
    18:54 / 20 мар.  ћассив Ёлементов... |  ќтветов: 1
    18:11 / 20 мар.  Split |  ќтветов: 1
    11:42 / 20 мар.  ѕомогите!!! |  ќтветов: 1
    08:14 / 20 мар.  ¬опрос по DBF |  ќтветов: 0


    ѕоследние поступлени€ в Ѕиблиотеку кодов:

    Ќет новых кодов.

    наверх


    Ќовости сайта VBMania

    • 25.01 - —егодн€ открылс€ новый раздел, в котором вы можете найти ссылки на целую кучу книг по тематике VB и около него.
    • 22.01 - 22 €нвар€ вышел второй номер он-лайн журнала о Visual Basic 'VB ћани€'. ¬ нем можно почитать авторские статьи в уже усто€вшихс€ разделах: “ехнологии, —истема, √рафика, ѕрофесси€, „еловечество и ёмор. “ак же не обошлось без новшеств: по€вилс€ новый раздел dotNET и особенно рецензии ActiveX-компонентов. ќб€зательно заходите.
    • 17.12 - ¬ св€зи с тем что форум не горел желаением вести себ€ так, как должен обычный, пор€дочный форум, мы его прикрыли дл€ проведени€ разъ€снительных меропри€тий. Ќадеемс€, что они не зат€нутс€ и форум образумитс€.
    • 06.12 - — сегодн€шнего дн€ все желающие могут добавл€ть свои новости и статьи в наши архивы.
      ƒа здраствует открытость!
    • 27.11 - Ќаконец-то, после долгих дней и бессонных ночей это свершилось! —айт объ€вл€етс€ открытым! Ќепременно прочитайте первый номер нашего журнала. ќцените наши дополнительные проекты. » конечно мы ждем ваших откликов в гостевой книге и по почте.
    • 01.12 - ѕроизошло несколько косметических улучшений, касающихс€ исключительно удобства работы с сайтом. ¬о-первых, можно видеть количество записей обсуждени€ новостей на главной странице; а во-вторых чуточку подправились директории.
      ќцен€йте!


    наверх


    Ќовости сайта јзбука VB



    наверх


    ƒоска объ€влений

       »щу телеработу.

    • ѕереводы: английский, украинский, русский.
    • Cipper программист.
    • Assembler программист.
    • PIC разработчик
    • композитор
    • ѕрогрессивные стили
    • 3D анимаци€
    • GIF анимаци€
    јнтон Ћозовский.

    наверх


    ћои программы

    BalloonMessage for MS Agent

       BalloonMessage for Microsoft Agent реализует диалог программы с пользователем, использу€ при этом технологию Microsoft Agent. OCX реализует три типа диалоговых окон: InputBox, MsgBox и MsgLabels.

    јвтор: Ўатрыкин »ван. —оавтор: ѕавел —урменок.

    наверх

    ¬опрос/ќтвет

    «десь ¬ы можете задать вопрос, или ответить на уже имеющиес€ вопросы.

    ¬опросы:


    јвтор вопроса:
    Roman 'Devil' Yuakovlev

    ќтвет ожидаетс€ по этому адресу

       ƒайте плиз полную декларацию GetDiskFreeSpaceEx с флажками, константами etc... “€жело жить без msdn... Btw, в apitextviewer упоминаетс€ large_integer... что это, Double?


    јвтор вопроса: Deull

    ќтвет ожидаетс€ по этому адресу

        ак сохранить графические данные в буфере обмена в BMP - файл?


    јвтор вопроса: ¬ладимир  апустин

    ќтвет ожидаетс€ по этому адресу

        ак св€зать файл с программой и присвоить ему значок через реестр или любым другим способом (без прописки в WIN.INI).


    јвтор вопроса: —аша

    ќтвет ожидаетс€ по этому адресу

       “ри вопроса о манипул€торах.
    1. ћожно ли манипулировать джойсиком с помощью клавиатуры.
    2. ≈сли не джойсика можно его с эмитировать.
    3. ћожно ли со€дать две мыши одна на COM1 управл€етс€ клавеатурой друга€ на COM2 управл€етс€ самой мышью


    јвтор вопроса: ћиша

    ќтвет ожидаетс€ по этому адресу

       ¬опрос св€€ан с Excel.  ак сделать что бы событи€ реагировали на скролинг страницы. т.е. —двинул скролинг прои€ошло событие


    јвтор вопроса: –оман

    ќтвет ожидаетс€ по этому адресу

       1)  ак в ListBox вставить содержимое базы данных, не набира€ его вручную.
    2) ћожно ли работать с базами данных не использу€ элемент Data.


    јвтор вопроса: P@Ssword

    ќтвет ожидаетс€ по этому адресу

        ак перехватывать обращени€ к файлам (как антивирусные мониторы) и в случае чего блокировать к ним доступ?


    јвтор вопроса: Samit

    ќтвет ожидаетс€ по этому адресу

       Visual Basic 6.0 как нибудь может общатьс€ с портами LPT или COM, если да, то как? » как сделать так, чтобы € нажимал выключатель и запускалс€ ну например таймер? ѕожалуюста укажите Web-страницы, где об этом можно прочитать!


    јвтор вопроса: јндрей “юрин

    ќтвет ожидаетс€ по этому адресу

        ак на ¬аське работать с портами, принимать и отправл€ть информацию, в каком она формате. »нтересуют  ќћ-порты.


    јвтор вопроса: Alex

    ќтвет ожидаетс€ по этому адресу

        ак передать данные запроса на удаленное устройство после получени€ от модема сообщени€ "CONNECT ..."?


    јвтор вопроса: —ергей

    ќтвет ожидаетс€ по этому адресу

        ак зделать установачный пакет (что бы мо€ программа заносилось в список "”становка и удолени€ программ")


    јвтор вопроса: ¬€чеслав

    ќтвет ожидаетс€ по этому адресу

        ак можно програмно на VB, в Access найти и заменить в пол€х букву на другую, по всей базе?


    јвтор вопроса: ёрий

    ќтвет ожидаетс€ по этому адресу

       ƒоброго времени суток! ” мен€ следующий вопрос. ƒл€ вывода данных в виде таблицы исполь€уетс€ MSFlexGrid control. ƒл€ редактировани€ данных исполь€уютс€ EditBox и ComboBox с соответствующими обработчиками. ƒл€ редактировани€ данных по двойному клику на €чейке нужный элемент управлени€ вписываетс€ в нее и делаетс€ видимым (Visible = True). ¬се работает нормально, но врем€ от времени элементы управлени€ перестают выводитьс€ на экран, несмотр€ на то, что Visible у них равен True. ≈сли при это нажать Alt+[курсор вни€], но у невидимого ComboBox'а выпадающий список по€вл€етс€ на экране.  роме того, после редактировани€ данные и€ невидимых элементов управлени€ €анос€тс€ в таблицу нормально.  ак победить эту проблему? »споль€уетс€ VB 6, SP 5.


    јвтор вопроса: AIT

    ќтвет ожидаетс€ по этому адресу

       ѕодскажите как сделать стикеры ("липкие листочки" на рабочем столе)? » чтобы была возможность делать настройки к ним (измен€ть цвет, размер фона, шрифта и т.д.).


    јвтор вопроса: ¬ладимир

    ќтвет ожидаетс€ по этому адресу

       —делал программу расч?та таблицы. ѕри печати таблицы пришлось программировать черчение сетки дл€ страниц командой Line. ѕочему-то во врем€ отправки страниц на печать не работает простой цикл
    For a=1 to 2.
    ¬ыдаетс€ €начение а=0. On Error не действует.
      ћожно ли напечатать таблицу и€ VB6 каким нибудь другим способом?


    јвтор вопроса: RIO

    ќтвет ожидаетс€ по этому адресу

        ак программно узнать значение пол€ типа "счетчик" в MDB. ѕримеры типа 'MoveLast' или «апрос 'Max' не подход€т, т. к. последн€€ или последние несколько записей могут удалены пользователем а значение счетчика будет увеличено, сжатие тоже не выгодно быза очень больша€ и при добавлении новой записи выполн€етс€ достаточно долго, что ни есть хорошо дл€ пользовател€.




    ќтветы:


    ¬опрос:

       ¬ VB пытаюсь сделать текстовый редактор. ѕосоветуйте, как сделать, чтобы по нажатии на кнопку BOLD(жирный), жирным становилс€ не весь текст, а только выделенный. я написал так:

    Case "Bold"
      With txtBox
       If .FontBold = True Then
        .FontBold = False
       Else
        .FontBold = True
       End If
      End With

    ќтвет:

    јвтор ответа: Rutshtein Alex

    „тобы сделать часть текста как Bold нужно использовать компонент Microsoft Rich Textbox Control. Ёто такое же текстовое поле, но можно дл€ любой части текста мен€ть свойства.


    ¬опрос:

       ¬ VB пытаюсь сделать текстовый редактор. ѕосоветуйте, как сделать, чтобы по нажатии на кнопку BOLD(жирный), жирным становилс€ не весь текст, а только выделенный. я написал так:

    Case "Bold"
      With txtBox
       If .FontBold = True Then
        .FontBold = False
       Else
        .FontBold = True
       End If
      End With

    ќтвет:

    јвтор ответа: »горь

    ƒл€ того, чтобы сделать текстовый редактор, нужно использовать элемент RichTextBox, здесь можно выдел€ть текст и полужирным, и каким хочешь. ј в обычном TextBox, изменение шрифта распростран€етс€ на весь текст. ћогу быть соавтором. ќбращайс€ если что igoryk@yandex.ru


    ¬опрос:

       ¬ VB пытаюсь сделать текстовый редактор. ѕосоветуйте, как сделать, чтобы по нажатии на кнопку BOLD(жирный), жирным становилс€ не весь текст, а только выделенный. я написал так:

    Case "Bold"
      With txtBox
       If .FontBold = True Then
        .FontBold = False
       Else
        .FontBold = True
       End If
      End With

    ќтвет:

    јвтор ответа: Roman 'Devil' Yuakovlev

    »спользовать richtextbox и sel*


    ¬опрос:

       Ќа каких платформах работают программы написанные на VB6?

    ќтвет:

    јвтор ответа: »ван

    “очно работают на Win9x,Me. Ќо необходимо, чтобы р€дом были все используемые библиотеки. ¬ WindowsXP стандартные библиотеки не требуетс€.


    ¬опрос:

        ак перекодировать и€ какой либо кодировки в другую при помощи VB. (“олько не Win в ƒос)

    ќтвет:

    јвтор ответа: NeoLord

    Function Recode(Char As String, Src As Code, Dest As Code) As String
    'Rem ¬еликолепна€ функци€ перекодировани€, вз€та€ мной с сайта
    'http://www.vbrussian.com'
    Const wDos As String =
    "∞±≤®іµґЈЄєЇїЉљЊњјЅ¬√ƒ≈∆«»… ЋћЌќѕ–—“”‘’÷„рўЏџ№Ёёятуфхцчшщсыьэю€ЎъАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ†°Ґ£§•¶І®©™Ђђ≠Ѓѓабвгдежзийклмноп"
    Const wIso As String =
    "∞±≤®іµґЈЄєЇїЉљЊњјЅ¬√ƒ≈∆«»… ЋћЌќѕ–—“”‘’÷„ҐўЏџ№Ёёятуфхцчшщсыьэю€Ўъ∞±≤®іµґЈЄєЇїЉљЊњјЅ¬√ƒ≈∆«»… ЋћЌќѕ–—“”‘’÷„ЎўЏџ№Ёёяабвгдежзийклмноп"
    Const wKoi As String =
    "РСТБЗ≤іІ¶µ°®Ѓ≠ђГДЙИЖАКѓ∞Ђ•їЄ±†ЊєЇґЈ™©Ґ§љ®ЕВНМОПЛЩШУЫЯЧЬЮ£ЦЪЭФњЉХбвчздецъйклмнопртуфхжигюыэ€щшьасЅ¬„«ƒ≈÷Џ… ЋћЌќѕ–“”‘’∆»√ёџЁяўЎ№ј—"
    Const wWin As String =
    "АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ†°Ґ£§•¶І®©™Ђђ≠Ѓѓ∞±≤®іµґЈЄєЇїЉљЊњјЅ¬√ƒ≈∆«»… ЋћЌќѕ–—“”‘’÷„ЎўЏџ№Ёёяабвгдежзийклмнопрстуфхцчшщъыьэю€"
    Const NotRecodedChar As String = "?"

    If Src = Dest Then
         Recode = Char
         Exit Function
    End If

    Dim t As String, i As Long, tt As String, a As Long, ss As String, ch As String
    If Src = Win Then
         t = Char
    Else
         Select Case Src
             Case Koi: ss = wKoi
             Case Dos: ss = wDos
             Case Iso: ss = wIso
         End Select
         For i = 1 To Len(Char)
             ch = Mid(Char, i, 1)
             If Asc(ch) < 128 Then
                 t = t & ch
             Else
                 a = InStr(1, ss, ch, vbBinaryCompare)
                 If a = 0 Then
                     t = t & NotRecodedChar
                 Else
                     t = t & Mid$(wWin, a, 1)
                 End If
             End If
         Next i
    End If

    If Dest = Win Then
         Recode = t
    Else
         Select Case Dest
             Case Koi: ss = wKoi
             Case Dos: ss = wDos
             Case Iso: ss = wIso
         End Select
         For i = 1 To Len(Char)
             ch = Mid(t, i, 1)
             If Asc(ch) < 128 Then
                 tt = tt & ch
             Else
                 a = InStr(1, wWin, ch, vbBinaryCompare)
                 If a = 0 Then
                     tt = tt & NotRecodedChar
                 Else
                     tt = tt & Mid$(ss, a, 1)
                 End If
             End If
         Next i
         Recode = tt
    End If
    End Function


    ¬опрос:

       ћожно ли удалить файл так что бы его нель€€ было востановить даже unerase или undelete.

    ќтвет:

    јвтор ответа: Rutshtein Alex

    '¬от как удалить файл без возможности восстановлени€
      
    Option Explicit
      
    Private Declare Function lcreat Lib "kernel32" Alias "_lcreat" (ByVal lpPathName As String, ByVal iAttribute As Long) As Long
    Private Declare Function lopen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long
    Private Declare Function lclose Lib "kernel32" Alias "_lclose" (ByVal hFile As Long) As Long
    Private Declare Function lwrite Lib "kernel32" Alias "_lwrite" (ByVal hFile As Long, ByVal lpBuffer As String, ByVal wBytes As Long) As Long
    Private Declare Function lread Lib "kernel32" Alias "_lread" (ByVal hFile As Long, lpBuffer As Any, ByVal wBytes As Long) As Long
    Private Declare Function llseek Lib "kernel32" Alias "_llseek" (ByVal hFile As Long, ByVal lOffset As Long, ByVal iOrigin As Long) As Long
      
    Private Sub Form_Load()
      
    Const BlockSize = 98304
    Dim S As String
    Dim F As String
    Dim F1 As String
    Dim F2 As String
    Dim i As Long
    Dim i1 As Long
    Dim i2 As Long
    Dim N As Integer
    Dim CurSize As Long
    Dim FAttr As Integer
      
    F = "C:\1.txt" '»ћя ‘ј…Ћј
    CurSize = FileLen(F)
    i1 = CurSize \ BlockSize
    i2 = CurSize - i1 * BlockSize
    FAttr = GetAttr(F)
    SetAttr F, vbNormal
    N = lopen(F, 2)
    For i = 1 To i1 + 1
       DoEvents
       If i = i1 + 1 Then
         lwrite N, S, i2
       Else
         lwrite N, S, BlockSize
       End If
    Next
    lclose N
    N = lopen(F, 2)
    lwrite N, "", 0
    lclose N
    SetAttr F, FAttr
    Kill F
    End Sub


    ¬опрос:

       ћожно ли удалить файл так что бы его нель€€ было востановить даже unerase или undelete.

    ќтвет:

    јвтор ответа: P@Ssword

    «абиваешь файл разной фигнЄй и затем просто удал€ешь.


    ¬опрос:

       ћожно ли удалить файл так что бы его нель€€ было востановить даже unerase или undelete.

    ќтвет:

    јвтор ответа: Roman 'Devil' Yuakovlev

    ќткрыть бинарно, забить нул€ми, потом удалить...


    ¬опрос:

        ак мне Ђвоткнутьї файл в программу (музыкальный) чтобы от туда же его использоватьЕили воспроизводить его в нужный момент, но путь целиком не указывать (на случай если папку с прогой перемест€т)Е + как заставить объект типа Picture по нажатии кнопки влево, двигатьс€ влево, и т.дЕпрошу написать поподробнееЕ+как при определенном условии создавать объект (Picture), а при ненадобности его удал€ть (советы с visible не присылать, таких объектов за раз может быть много, а код компактен должен быть)Е+как откомпил€ть EXEшник, чтоб он потом не требовал библиотек (VB6)

    ќтвет:

    јвтор ответа: Tolic

    ѕоставь на форму эл. Picture, а в модуль формы вставь этот кусок кода.

    Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
         If KeyCode = vbKeyUp Then Picture1.Top = Picture1.Top - 50
         If KeyCode = vbKeyDown Then Picture1.Top = Picture1.Top + 50
         If KeyCode = vbKeyLeft Then Picture1.Left = Picture1.Left - 50
         If KeyCode = vbKeyRight Then Picture1.Left = Picture1.Left + 50
    End Sub


    ¬опрос:

        ак мне Ђвоткнутьї файл в программу (музыкальный) чтобы от туда же его использоватьЕили воспроизводить его в нужный момент, но путь целиком не указывать (на случай если папку с прогой перемест€т)Е + как заставить объект типа Picture по нажатии кнопки влево, двигатьс€ влево, и т.дЕпрошу написать поподробнееЕ+как при определенном условии создавать объект (Picture), а при ненадобности его удал€ть (советы с visible не присылать, таких объектов за раз может быть много, а код компактен должен быть)Е+как откомпил€ть EXEшник, чтоб он потом не требовал библиотек (VB6)

    ќтвет:

    јвтор ответа: –ев€гин_јлексей

      —делай на форме OLE-объект, не создавай в нЄм объект, потом через Explorer выдели свой файл, нажми "копировать в буфер", потом иди в окно VBasic'a там правой кнопкой мыши нажми по OLE-объекту и выбери "Paste Special". ј потом впиши в нопку, при нажатии на которую будет играть музыка, в этот код:
    ole1.doverb
    таким образом этот файл будет сохранЄн в самом ≈’≈-шнике.


    „тобы объект двигалс€ в лево на определЄнное рассто€ние при нажатии на кнопку; нужно вписать код:

      button1.left=button1.left + 10

    теперь при каждом нажатии на кнопку button1 обект будет сдвигатьс€ влево на 10 у.е. (еденицы измерени€ указываютс€ в Properties->ScaleMode)


    —оздай на форме Picture-объект, потом укажи в Properties->index равный 0.
       оƒ:

      Private sub LoadObject_click()
       load picture1(1)
       picture1(1).show
      end sub
      Private sub UnloadObject_click()
       unload picture1(1)
      end sub


    ¬опрос:

        ак мне Ђвоткнутьї файл в программу (музыкальный) чтобы от туда же его использоватьЕили воспроизводить его в нужный момент, но путь целиком не указывать (на случай если папку с прогой перемест€т)Е + как заставить объект типа Picture по нажатии кнопки влево, двигатьс€ влево, и т.дЕпрошу написать поподробнееЕ+как при определенном условии создавать объект (Picture), а при ненадобности его удал€ть (советы с visible не присылать, таких объектов за раз может быть много, а код компактен должен быть)Е+как откомпил€ть EXEшник, чтоб он потом не требовал библиотек (VB6)

    ќтвет:

    јвтор ответа: Rutshtein Alex

    Ќе указывать путь можно так:
      
    MusicFile = App.Path + "\Music.wav"
      
    где App.Path - путь к папке с программой.
      
    Ќапример, если прога в папке C:\SuperMusic, то переменна€ MusicFile будет равна C:\SuperMusic\Music.wav

    Ќасчет двигать Picture1, то
      
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
       Case vbKeyLeft
         Picture1.Left = Picture1.Left - 50
       Case vbKeyRight
         Picture1.Left = Picture1.Left + 50
       Case vbKeyUp
         Picture1.Top = Picture1.Top - 50
       Case vbKeyDown
         Picture1.Top = Picture1.Top + 50
    End Select
    End Sub
      
    Ќе забудь указать в свойствах формы: KeyPreview = True

    —оздать клон объекта можно при помощи функции Load, а выгружать объект при помощи Unload. ¬ параметре указываешь им€ объекта. ќбъект должен иметь св-во Index=0 или 1 или... —оздаетс€ объект с тем же именем и теми же св-ми но с другим индексом. ¬ыгружаетс€ объект по индексу.

    Ќикак не откомпилить, чтобы он не требовал msvbvm60.dll. ѕрограммируй в Delphi, том такой проблемы нет.


    ¬опрос:

        ак мне Ђвоткнутьї файл в программу (музыкальный) чтобы от туда же его использоватьЕили воспроизводить его в нужный момент, но путь целиком не указывать (на случай если папку с прогой перемест€т)Е + как заставить объект типа Picture по нажатии кнопки влево, двигатьс€ влево, и т.дЕпрошу написать поподробнееЕ+как при определенном условии создавать объект (Picture), а при ненадобности его удал€ть (советы с visible не присылать, таких объектов за раз может быть много, а код компактен должен быть)Е+как откомпил€ть EXEшник, чтоб он потом не требовал библиотек (VB6)

    ќтвет:

    јвтор ответа: P@Ssword

    1) "¬откнуть"
             VB Resource Editor
    2) ¬оспроизводить
             ‘ункци€ WinAPI sndPlaySound
    3) ... Picture по нажатии кнопки ... двигатьс€ ...
             —абклассинг, больше возможностей не вижу (пока что ;)
    4) ... создавать объект, а при ненадобности его удал€ть ...
             Ћибо коллекци€ объектов, либо ниже вопрос ComputerDestroyer'а о создании контролов, там мой ответ
             „то значит "а код компактен должен быть"?
    5) откомпил€ть EXEшник, чтоб он потом не требовал
             ѕрограммы PEBundle, Fusion (кажетс€ так). ≈сли напишешь на ≈-ћыло, могу скинуть (244  б RAR)


    ¬опрос:

       Ќарод, отзовитесь, кто работал гокда-нибудь с диаграммой Excel. ћне нужно внести в нее исходные данные дл€ построени€ графика, но не вручную, а программно. Ќо какие свойства и методы надо использовать € не знаю.

    ќтвет:

    јвтор ответа: helaldmin

    ¬ MS Excel включи запись макросов и построй диаграмму. ѕосле этого код макроса почитай. “ам будет все необходимое.


    ¬опрос:

       –абота с базой данных.
      
    –асклад такой:
    “аблица - "ј"
    ѕол€ - "ƒата ѕродажи"
                     "Ќаименование “овара"
                     "—тоимость"
     ак должен выгл€деть SQL запрос чтобы вывести данные о количестве записей из пол€"Ќаименование “овара",общей суммы из пол€"—тоимость" на конкретную дату"ƒата ѕродажи" из таблицы"ј". ѕричЄм должна быть возможность делать выборку на дату задаваемую пользователем,в отдельном Text.Box. ѕример: 17.03.02 было проданно 15 наименований товара на сумму 1500 рублей.
      
    "VB 6.0" ,база данных "ACCESS" , контрол "DATA"

    ќтвет:

    јвтор ответа: Linas

    mySQL="SELECT A.[ƒата ѕродажи], COUNT(A.[Ќаименование “овара]), SUM(A.[—тоимость]) FROM A WHERE A.[ƒата ѕродажи]=#" + TextBox.Text + "# GROUP BY A.[ƒата ѕродажи]"
    Set data.recordset = myDB.openrecordset(mySQL)

    esli izpolzuetsia data.databasename

    data.recordsource = mySQL
    data.refresh


    ¬опрос:

       –абота с базой данных.
      
    –асклад такой:
    “аблица - "ј"
    ѕол€ - "ƒата ѕродажи"
                     "Ќаименование “овара"
                     "—тоимость"
     ак должен выгл€деть SQL запрос чтобы вывести данные о количестве записей из пол€"Ќаименование “овара",общей суммы из пол€"—тоимость" на конкретную дату"ƒата ѕродажи" из таблицы"ј". ѕричЄм должна быть возможность делать выборку на дату задаваемую пользователем,в отдельном Text.Box. ѕример: 17.03.02 было проданно 15 наименований товара на сумму 1500 рублей.
      
    "VB 6.0" ,база данных "ACCESS" , контрол "DATA"

    ќтвет:

    јвтор ответа: »горь  узенков

    Private Sub Command1_Click()
         Data1.DatabaseName = App.Path & "\db4.mdb"
         Data1.RecordSource = "SELECT ƒата, Count(Ќаименование) AS Count, Sum(—тоимость) AS Sum FROM ј GROUP BY ƒата HAVING ƒата=#" & txtDate & "#;"
         Data1.Refresh
         Label1.Caption = Data1.Recordset.Fields(0) & " было продано " & Data1.Recordset.Fields(1) & " наименовани€ товара на сумму " & Data1.Recordset.Fields(2) & " рублей."
    End Sub

    ћожет возникнуть проблема с форматом даты дл€ SQL запроса, но дл€ этого есть ф-ци€ Format().


    ¬опрос:

       –абота с базой данных.
      
    –асклад такой:
    “аблица - "ј"
    ѕол€ - "ƒата ѕродажи"
                     "Ќаименование “овара"
                     "—тоимость"
     ак должен выгл€деть SQL запрос чтобы вывести данные о количестве записей из пол€"Ќаименование “овара",общей суммы из пол€"—тоимость" на конкретную дату"ƒата ѕродажи" из таблицы"ј". ѕричЄм должна быть возможность делать выборку на дату задаваемую пользователем,в отдельном Text.Box. ѕример: 17.03.02 было проданно 15 наименований товара на сумму 1500 рублей.
      
    "VB 6.0" ,база данных "ACCESS" , контрол "DATA"

    ќтвет:

    јвтор ответа: Sergey

    —корее всего это должно выгл€деть так:
    SELECT [ƒата ѕродажи],Count([Ќаименование “овара]), Sum([—тоимость]) FROM A WHERE [ƒата ѕродажи]='17/03/2002'


    ¬опрос:

        то знает, как програмно создать кнопку али др. элемент упралени€ ?

    ќтвет:

    јвтор ответа: Rutshtein Alex

    —оздать клон (копию) можно при помощи функции Load. ¬ыгрузить при помощи Unload. ќбъект должен быть с индексом.


    ¬опрос:

        то знает, как програмно создать кнопку али др. элемент упралени€ ?

    ќтвет:

    јвтор ответа: P@Ssword

    ¬ General Declarations пишетс€ что-то вроде
             Dim MyCoolSuperPuperControl оторый¬з€лс€»зниоткуда As  ласс онтрола

    ј в сабе, где надо создать контрол, пишем
             Set MyCoolSuperPuperControl оторый¬з€лс€»зниоткуда = »м€‘ормы удаƒобавл€ем.Controls.Add ("ѕолноеЌазвание ласса онтрола оторый’отим—оздать", "Ѕудущее»м€ онтрола")

     онтрол создан! “еперь осталось переместить его куда надо и сделать ему... нет, не больно, а
    MyCoolSuperPuperControl оторый¬з€лс€»зниоткуда.Visible = True.


    ¬опрос:

        то знает, как програмно создать кнопку али др. элемент упралени€ ?

    ќтвет:

    јвтор ответа: –ев€гин_јлексей

      ”кажи в элементе управлени€ свойство INDEX=0, а потом пиши код:
      private sub button1_click()
       load ЁЋ≈ћ≈Ќ“_”ѕ–ј¬Ћ≈Ќ»я(1)
       ЁЋ≈ћ≈Ќ“_”ѕ–ј¬Ћ≈Ќ»я(1).show
      end sub


    ћожете заполнить эту форму, либо отослать вопрос —ёƒј

    ‘орма дл€ добавлени€ нового вопроса в этот раздел. »нформаци€ отсылаетс€ по E-mail владельцу сайта.
    “екст сообщени€:
    ¬аше им€
    E-mail дл€ ответа

    наверх


    ¬ыпуск подготовили:

    —урменок ѕавел