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


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
  • IgorykSoft
  • Господа!!! читайте MSDN!!!

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

       Новый выпуск рассылки!!!
    Читайте!


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




    Книги

    Переход на VB .NET. Стратегии, концепции, код (цена ~ 158 руб.)

    Эта книга была задумана как одна из первых книг о.NET, которая ознакомит читателя с основными идеями новой архитектуры и подготовит его к знакомству с более детальной литературой, например документацией Microsoft и ее толкованиями, которая неизбежно появится на рынке. Она поможет вам взглянуть на эту технологию с позиций ваших собственных рабочих планов и быстро освоить те концепции, которые покажутся необычными для большинства прогр...

    Автор(ы): Дан Эпплман, Издательство: Питер, 2002 г.


    Программирование на VB.NET. Учебный курс (цена ~ 119 руб.)

    Эта книга является вводным курсом по изучению языка программирования Visual Basic .NET. Даны основные принципы объектно-ориентированного программирования в контексте языка VB .NET, поскольку без хорошей подготовки в этой области невозможно в полной мере пользоваться всеми преимуществами VB .NET.
    Изложены азы всех аспектов языка, которыми должен владеть любой профессиональный разработчик VB .NET

    Автор(ы): Г. Корнелл, Дж. Моррисон, Издательство: Питер, 2002 г.


    VB.NET для разработчиков (цена ~ 125 руб.)

    Основная задача книги - быстро ознакомить разработчиков Visual Basic с изменениями в .NET Framework. Программисты, использующие Java, C++, Delphi или другие инструменты разработки приложений и интересующиеся Visual Basic или технологией .NET Framework, также найдут эту книгу полезной. Хотя книга посвящена Visual Basic.NET, ее основная цель - продемонстрировать взаимодействие Visual Basic и ...

    Автор(ы): Кит Франклин, Издательство: Вильямс, 2002 г.




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

    наверх


    Citycat by Email

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

    наверх


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

    Дата: 27.07.2002 18:41 | Раздел: ActiveX контролы | Автор: Yxine

    LongMathOCX - Компонент, позволяющий производить некоторые математические операции над сверхдлинными числами. Например, можно вычислить выражение: 21000 + 5467569372564975836489564385394. ActiveX-компонент написан на Visual Basic’е 6.0. Ясно, что для хранения таких больших чисел подходить лишь String-тип. Поэтому все функции этого компонента работают с числами, записанными в строковых переменных.

    Дата: 26.07.2002 08:39 | Раздел: Примеры кода | Автор: Yxine

    Like - Имплементация функции Like для VB. Внутри примера есть исходник на C++. Может кто-нибудь сможет переписать его на VB? Вообще же очень даже полезная штука.

    Дата: 25.07.2002 18:37 | Раздел: Примеры кода | Автор: Яковлев Антон

    Search - Пример поиска файлов с помощью DirListBox и FileListBox. Все очень просто, но для начинающих самое то, что надо.

    Дата: 24.07.2002 09:12 | Раздел: Примеры кода | Автор: Половый Александр

    Стрелок - Обалденная игрушка "Стрелок"! Задача игнры стрелять по мишени. Сложность в том, что мишень "дергается" и попасть в десяточку ой как сложно. Но мне удалось разок приложиться как надо!



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

    07:23 / 28 июл.  Перехват ошибок Windows 98 | Хитов: 3 |  Ответов: 0
    06:54 / 28 июл.  $$$Админам$$$ | Хитов: 8 |  Ответов: 0
    05:35 / 28 июл.  Есть или не есть... пф... нету, всмысле | Хитов: 5 |  Ответов: 0
    21:22 / 27 июл.  Активное окно | Хитов: 4 |  Ответов: 0
    13:39 / 27 июл.  Как заблокировать появление контексного меню | Хитов: 9 |  Ответов: 0
    10:39 / 27 июл.  !Админам! | Хитов: 34 |  Ответов: 5
    15:01 / 26 июл.  Серийный номер диска | Хитов: 27 |  Ответов: 1
    13:38 / 26 июл.  Документ Project в MS Word | Хитов: 15 |  Ответов: 0
    13:12 / 26 июл.  Подскажите про TextBox | Хитов: 40 |  Ответов: 2
    17:51 / 25 июл.  Как работь с Winsock Control' ом | Хитов: 56 |  Ответов: 5
    17:09 / 25 июл.  Toolbox Bitmap из ocx'a... | Хитов: 38 |  Ответов: 4
    15:33 / 25 июл.  Не дать юзеру завершить сеанс, пока прога работает | Хитов: 46 |  Ответов: 3
    14:48 / 25 июл.  Лицензия COMDLG32.OCX | Хитов: 40 |  Ответов: 3
    13:06 / 25 июл.  как в датагриде сделать поле со списком? | Хитов: 34 |  Ответов: 1
    11:00 / 25 июл.  Sub Main | Хитов: 66 |  Ответов: 8
    09:31 / 25 июл.  Как связать два DBF файла? | Хитов: 25 |  Ответов: 0
    07:17 / 25 июл.  OLE объект? | Хитов: 26 |  Ответов: 0
    00:04 / 25 июл.  Помогите с гридом (GRID) | Хитов: 50 |  Ответов: 3
    21:49 / 24 июл.  3D графика | Хитов: 114 |  Ответов: 15
    21:37 / 24 июл.  Я опять про своих баранов... ( MsComm32 ) | Хитов: 37 |  Ответов: 2


    Последние поступления в Библиотеку кодов:



    наверх


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



    наверх


    Новости сайта Азбука VB



    наверх


    Доска объявлений

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

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

    наверх


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

    BalloonMessage for MS Agent

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

    Автор: Шатрыкин Иван. Соавтор: Павел Сурменок.

    наверх

    Вопрос/Ответ

    Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы.

    Вопросы:


    Автор вопроса:
    Саша

    Ответ ожидается по этому адресу

       У меня есть нетипияированный файл (тот который открывается RANDOM) Как уянать сколько в файле яаписей ?


    Автор вопроса: Rus Kend

    Ответ ожидается по этому адресу

       Где (в Москве или в инете) можно приобрести лицензионный VB и MSDN?


    Автор вопроса: Umid

    Ответ ожидается по этому адресу

       Как не дать юзеру выключить или завершит сеанс?

    Типа, юзер нажимает на пуск-завершение сеанса, а прога говорит, "Вы не можете выйти из Виндоус, пока я работаю", и отменяет последнее действие.


    Автор вопроса: СаНеК

    Ответ ожидается по этому адресу

       Кто знает как пользоваться компонентом Direct Text-to-Speech...пожалуйста напишите...


    Автор вопроса: VES progman

    Ответ ожидается по этому адресу

       При открытии некоторых файлов MS Excel появляется сообщение - включать или невключать макросы. Когда открываешь в этих файлах редактор Visual Basic, то никаких макросов там нет. Что это может быть ?


    Автор вопроса: ALEX

    Ответ ожидается по этому адресу

       Как программно открыть файл, что б как при двойном щелчке грыяуном открывался?


    Автор вопроса: Михаил

    Ответ ожидается по этому адресу

       Господа! Какую API-функцию следует использовать для регулировки "общей громкости воспроизведения" звуковой карты? (Применение waveOutSetVolume Lib "winmm.dll" дает возможность регулировать "громкость воспроизведения звукозаписи")


    Автор вопроса: Александр

    Ответ ожидается по этому адресу

       Как программно съимитировать нажатие кнопки мыши?


    Автор вопроса: Dmitry Gavrilov

    Ответ ожидается по этому адресу

       Форму в проект можно добавить например из меню project>AddForm вызывать её из кода MyForm.Show

    Если ты вызвал InputBox то реагировать он будет по кнопке OK ;) А если у тебя на форме лежит тектовое поле и ты хочешь научить его реагировать на нажатие Enter после ввода слова в него, то тебе надо знать, что для всех контролов (которым и является текстовое поле) и для некоторых объектов есть такая фича, как "события" - код срабатывающий при выполнении с контролом заданного действия. Например если ты щёлкнешь два раза по лежащему на орме тектовому полю, то по умолчанию создасться в коде формы процедура для обработки события

    Private Sub Text1_Change()
    ....
    ....
    End Sub

    а тебе для отработки реагирования лучше наверно использовать

    Private Sub Text1_KeyPress(KeyAscii As Integer)
    ....
    ....
    End Sub

    в который тебе и надо пихать код обработки входящего параметра KeyAscii который является кодом нажатой кнопки.




    Ответы:


    Вопрос:

       Как прекрепить к проэкту ещё одну форму, и как Сделать так чтоб InputBox реагировал на ввод данных, и как изменить в свойствх программы "ПРОИЗВОДИТЕЛЯ"?

    Ответ:

    Автор ответа: Dima

    Добавить новую форму: меню Project -> Add Form или программно:

    global frmMy as Form

    set frmMy=new Form

    frmMy.Show

    Производитель меняется так: заходишь в свойства проекта, открываешь раздел Make, в окошке Version Information выбираешь Company Name и пишешь произволителя.


    Вопрос:

       Как прекрепить к проэкту ещё одну форму, и как Сделать так чтоб InputBox реагировал на ввод данных, и как изменить в свойствх программы "ПРОИЗВОДИТЕЛЯ"?

    Ответ:

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

    Форму добавляют так: меню "Разработать --> Добавить форму".
    Насчёт InputBox ничего поменять нельзя, но кто мешает Вам добавить форму и сделать там свой InputBox. А производителя меняйте здесь: меню "Разработать --> [Проект1] свойства", выберите вкладку "Make" и там все меняется.


    Вопрос:

       Как прекрепить к проэкту ещё одну форму, и как Сделать так чтоб InputBox реагировал на ввод данных, и как изменить в свойствх программы "ПРОИЗВОДИТЕЛЯ"?

    Ответ:

    Автор ответа: SINED

    1. Чтобы добавить к проекту еще одну форму можно воспользоваться меню Project->Add Form. Вывод окна на экран осуществляется командой Form2.Visible = True или Form2.Show vbModal (в этом случае нельзя переключаться в другие окна!)
      
    2. У TextBox есть свойство Change. Код, описанный в процедуре Private Sub Text1_Change(), будет выполняться при изменении содержимого поля ввода.

    3. Изменить производителя можно в файле *.vbp в строке VersionCompanyName="SINED".


    Вопрос:

       Как прекрепить к проэкту ещё одну форму, и как Сделать так чтоб InputBox реагировал на ввод данных, и как изменить в свойствх программы "ПРОИЗВОДИТЕЛЯ"?

    Ответ:

    Автор ответа: Dilon

    Прикрепить форму - зайти Project выбрать Add Form и все. Про Input Box - просто присваиваешь переменную box'y и записываешь её куда хочешь:

    g=inputbox("Введи чего")
    text1.text=g

    Изменить производителя - Project->Project Properties вкладка Make->Company name просто запиши туда себя любимого


    Вопрос:

       Вопрос 1:
    Как сделать так чтобы ия папки VB60, где лежит моя прога яапускающая help.hlp файл, открывался help.hlp файл?
    Вопрос 2:
    Как можно уянать что делает какой-либо dll файл?

    Ответ:

    Автор ответа: Dilon

    Для запуска .hlp нужно использовать функцию api WinHelp. Что бы узнать возможности dll подключи его через Project->References, объявим в коде переменную как

    dim p as new mydll
    p.mydllfeatures


    Вопрос:

       Как узнать (программно) где лежит шаблон Normal.dot в Office 97/2000 ?

    Ответ:

    Автор ответа: Иван

    Normal.dot всегда вроде лежит по такому адресу:
       "C:\WIN98\Application Data\Microsoft\Шаблоны\Normal.dot"
    так что единственная переменная тут это Папка виндов. Если конечно винды обычные и офис обычный.


    Вопрос:

       Как узнать (программно) где лежит шаблон Normal.dot в Office 97/2000 ?

    Ответ:

    Автор ответа: Dilon

    Ищи при помощи функции Dir


    Вопрос:

       Как из программы на VB отправить документ Word на печать ?

    Ответ:

    Автор ответа: Dilon

    Открыть его в окошке rtf и печатать сколько влезет


    Вопрос:

       Как из программы на VB отправить документ Word на печать ?

    Ответ:

    Автор ответа: Иван

         'загружаем ворд
         set wo = CreateObject("Word.Application")
         'открываем нужный документ
         'параметры по обстоятельствам
         wo.Documents.Open FileName:="JICA.doc", ConfirmConversions:=False, ReadOnly:= _
             False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
             "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
             Format:=wdOpenFormatAuto
         'переправляем на печать
         wo.ActiveDocument.PrintOut

    Cовет:
    Если не знаешь как что делать из ВБ в ёкселе или ворде: запиши макрос в ёкселе/ворде где делаешь, что нужно. потом посмотри получившийся код, и прибавь ко всем функциям в начале имя объекта и пользуйся!!!

    Это был вариант первый.
    Вариант второй такой:
    Запустить Ворд с нужными параметрами DDE, как это делается по контекстному меню на файле документа в Эксплорере.
    А вот как DDE передавать я не в курсе.
    Строка запуска:
    "C:\Program Files\Microsoft Office\Office\WINWORD.EXE" /x /n
    Строка DDE
    [REM _DDE_Minimize][FileOpen("%1")][t=IsDocumentDirty()][FilePrint 0][SetDocumentDirty t][DocClose]
    Может кто другой подскажет...


    Вопрос:

       помогите составить оптимальный алгоритм создания дерева (treeviewer)из таблицы, в которой два основных поля - ссылка на верхний и нижний узел ( rec_up,rec_down )

    Ответ:

    Автор ответа: DDA

    Я однажды использовал этот компонент и написал свой алгоритм основанный на 3-х полях: 1 - Parent, 2 - Text(Текст ноды), 3 - Child. Поля Parent и Child - числовые - где Parent 2-й ноды должен совпадать с Child 1-й и т. д.
    Вот сам алгоритм (кусок из моей проги), где TMenu - это объект TreeView, dtMenu - объект Data, - сама таблица с данными, состоящая из 3-х полей, описанных выше.:
      
    Sub LoadMenu()
    Dim n As Long
    Dim NewNode As Node
    Dim Tchild As String, Tparent As String, Ttext As String
    On Error Resume Next
      
    Set NewNode = TMenu.Nodes.Add(, , "C0", "Все товары", 4)
    If dtMenu.Recordset.RecordCount = 0 Then Exit Sub
    TMenu.Visible = False
      
    Z1:
    dtMenu.Recordset.MoveFirst
    Do While Not dtMenu.Recordset.EOF = True
         Tparent = dtMenu.Recordset.Fields(0)
         Ttext = dtMenu.Recordset.Fields(1)
         Tchild = dtMenu.Recordset.Fields(2)
         
         Set NewNode = TMenu.Nodes.Add("C" & Tparent, tvwChild, "C" & Tchild, Ttext, 1)
       
         dtMenu.Recordset.MoveNext
    Loop
    If Err > 0 And Err.Number <> 35602 Then
         Err.Clear
         DoEvents
         GoTo Z1
    End If
    TMenu.Visible = True
    End Sub

    Так как алгоритм писался на скорую руку, он не очень быстродейственный - но зато работает безотказно! Ж:-)


    Вопрос:

       VB. Как писать в определенное место файла? Типа патч.
    Как найти файл и проверить (сравнить) дату и изменить ее по своему желанию?

    Ответ:

    Автор ответа: Dilon

    Все это можно проделать с помощью FileSistemObject, а искать DIR'ом


    Вопрос:

       Как сделать так, чтобы программа работала в ДОСовском окне.

    Ответ:

    Автор ответа: Dilon

    Версии VB 5 и 6 расчитаны на 32-разрядные приложения и заставить их работать с 16-разр нельзя. Но если есть желание написать такую прогу, то возьми VB4 или ниже


    Вопрос:

       Как сделать так, чтобы программа работала в ДОСовском окне.

    Ответ:

    Автор ответа: Иван

    Насколько я понял тебе нужно не ДОС-окошко, а так называемое консольное приложение. Просто VB - это не тот язык на котором пишут консоли. (Visual - он и есть Visual). Я пока ни одной консоли на VB не видел. Вроде и функций соответствующих нету, и в типах проектов такого нету....
    (Вот в VB.Net - может быть такое уже можно)
    А на СиБилдере, Дельфи, VC++ - только так.


    Вопрос:

       Народ подскажите плиз как считать/записать в файл бинарный код и где мне его в VB потом хранить ведь в переменные типа iteger и long нечего не поместиться .

    Ответ:

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

    Чтобы считать/записать в файл бинарный код, надо открыть его For Binary. А хранить его лучше всего в байтовых массивах (типа Dim BinData(0 To 1023) as Byte). Чтобы считать из файла, пишешь

    Get #Номер_файла, [Адрес], BinData

    где Адрес - смещение от начала файла + 1, т.е. если надо считать с 1-го байта - ставишь 1, с 30185-го - ставишь 30185.


    Можете заполнить эту форму, либо отослать вопрос СЮДА

    Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта.
    Текст сообщения:
    Ваше имя
    E-mail для ответа

    наверх


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

    Сурменок Павел