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


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

    Дата: 01.08.2002 09:58 | Раздел: Примеры кода | Автор: Беляев Данила

    SysMenuSample - Добавить новый пункт в системное меню? Нет проблемм! Данила уже все написал. Это же просто как и сделать обычное меню. Вы не знаете как? Тогда этот пример для Вас!

    Дата: 31.07.2002 20:00 | Раздел: Примеры кода | Автор: JEDI

    LunarLander - Игра очень старенькая, так что не судите очень строго. Она была написана на QB 1997. Игра сама по себе очень проста, у вас есть космический кораблик ы вы его должны при определённой скорости посадить на пасадачную панель.

    Дата: 30.07.2002 19:57 | Раздел: Примеры кода | Автор: Zeff O Calilung

    Folder_L - Смысл примера: возможность в "горячем режиме" скрывать и показывать папки. В общем, загрузите пример, и сами все поймете. Примечание: Перед загрузкой на сервер данный пример можно подредактировать, чтобы основная форма загружалась бы первой, а не форма "ЛОГИН"... Проверялся пример на Вин-98

    Дата: 29.07.2002 10:42 | Раздел: Примеры кода | Автор: Яковлев Антон

    Screen saver - Начинающие программисты часто спрашивают, как сделать screen saver. Этот пример представляет собой элементарный по сложности screen saver. Изучив, как делается простое, можно приступать к более сложным работам.



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

    09:30 / 5 авг.  Не забудь | Хитов: 0 |  Ответов: 0
    21:42 / 4 авг.  ADO -> .Find "......................" | Хитов: 11 |  Ответов: 1
    20:00 / 4 авг.  Сотрудничество! | Хитов: 13 |  Ответов: 0
    19:54 / 4 авг.  Вопрос по beta testing | Хитов: 9 |  Ответов: 2
    19:39 / 4 авг.  Окно Выбора Шрифта | Хитов: 12 |  Ответов: 1
    15:09 / 4 авг.  Новое сообщение без темы | Хитов: 20 |  Ответов: 3
    09:27 / 4 авг.  Народ! | Хитов: 24 |  Ответов: 0
    21:04 / 3 авг.  Zeromemory | Хитов: 20 |  Ответов: 1
    20:04 / 3 авг.  Format Function | Хитов: 22 |  Ответов: 1
    19:07 / 3 авг.  Новое сообщение без темы | Хитов: 26 |  Ответов: 4
    15:02 / 3 авг.  Народ, как получить уменьшенный скриншот на форме? | Хитов: 25 |  Ответов: 4
    12:33 / 3 авг.  Звук+проиграть | Хитов: 17 |  Ответов: 2
    06:31 / 3 авг.  Коннект компов3 | Хитов: 21 |  Ответов: 1
    00:11 / 3 авг.  Fusion v2 | Хитов: 20 |  Ответов: 1
    15:57 / 2 авг.  Как приостановить прогу на Время работы Winsock? | Хитов: 21 |  Ответов: 2
    15:55 / 2 авг.  VB и Word | Хитов: 19 |  Ответов: 0
    14:39 / 2 авг.  Консоль как в Quake? | Хитов: 24 |  Ответов: 2
    04:45 / 2 авг.  Программа MyTime2002 | Хитов: 25 |  Ответов: 0
    00:02 / 2 авг.  Fusion v3 | Хитов: 57 |  Ответов: 7
    22:49 / 1 авг.  картинка -> *.bmp | Хитов: 27 |  Ответов: 2


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

    Определить имеет ли папка подпапки (0)
    Получение количества файлов папки с пом... (0)
    Как "перевернуть" таблицу (2)
    Отслеживание позиции курсора в элементе... (0)
    Перетаскивание формы за любое место #2 (0)


    наверх


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



    наверх


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



    наверх


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

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

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

    наверх


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

    BalloonMessage for MS Agent

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

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

    наверх

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

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

    Вопросы:


    Автор вопроса:
    Толил

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

       На сайте km.ru есть интересный пример "Испольяование текста в качестве кода программы", появоляющий польяователю самому яадавать формулы расчетов в ходе выполнения программы (http://visualbasic.km.ru/program/05.html)
    К сожалению данный пример работает только в среде раяработки.
    При соядании же ехе-шника вылетает ошибка обращения к библиотеке vba6.dll:
    Программа SMETA выявала сбой при обращении к странице памяти в модуле VBA6.DLL по адресу 017f:0fa619bf.
    Регистры:
    EAX=00000000.............
    Ошибка не яависит от установленной ОС, версии vba6.dll
    Кто сталкивался с этой проблемой и как ее обойти?!


    Автор вопроса: KILLERbo.

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

       [VB.NET] Вопрос такой, я уже видел как можно запускать проигрывание мульт. файлов и программы, если знаете еще проще методы, поделитесь. А вопрос у меня такой, я хочу чтобы *.mid файл не просто проигрывался, но когда заканчивался, начинал заного играть, то есть без остановки, как это можно организовать? и как можно организовать например чтобы при том же повторном проигрывании, но в списке чаридующихся мелодий уже были 2 и более файла..?


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

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

       Как распечатать содержимое RichTextBox используя CommonDialog?


    Автор вопроса: Net Diver

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

       Как в VB передать ссылку на первый элемент массива в функцию: CreatePolygonRgn.Так как в коде :

    Private Sub picData_Click()
    Dim Points(0 To 2) As POINTAPI
    Points(0).x = 10
    Points(0).y = 10
    Points(1).x = 20
    Points(1).y = 30
    Points(2).x = 0
    Points(2).y = 40
    brush = CreateSolidBrush(RGB(255, 0, 255))
    region = CreatePolygonRgn(Points(0), 3, ALTERNATE)
    FillRgn picData.hdc, region, brush
    End Sub

    Компилятор обнаруживает ошибку, хотя в объявлении:

    Public Declare Function CreatePolygonRgn Lib "gdi32" (ByRef lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long

    Вроде всё правильно.

    В C++ есть передача по указателю: передаёться указатель на первый элемент массива а остальные элементы функция получает путём операции ++. Есть ли что - то похожее в VB6.


    Автор вопроса: Maestro Ramires

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

       Пишу маленький макросик на VBA под Excel2002. В нём используется функция Str() для преобразования числа в строку. Числа считываются из ячеек, но иногда в ячейках попадается текст и появляется ошибка #13 "Type mismatch", поскольку я не знаю как проверить ячейку на наявность текста, а не чисел, чтобы исключить эту ситуацию, я в обработчике ошибок ставлю метку в которой проверяю равен ли код ошибки 13, если так, то перехожу к следующей строке программы. При возникновении такой ситуации первый раз (вместо числа попадается строка), программа продолжает выполняться, переходы по меткам проходят нормально, но при возникновении такой ситуации второй раз, программа останавливается и на экран выводится ошибка. Как заставить программу обходить эту ошибку постоянно (больше одного раза), в чём здесь может быть проблема?
    Для наглядности привожу кусок своей программы:

    Dim A As String
    Dim B As Object
    Dim C As Long
    Dim R As Long
    Dim CF As Long
    Dim RF As Long
    Dim CL As Long
    Dim RL As Long

    On Error GoTo Trouble1

          For C = CF To CL - 1
             For R = RF To RL - 1
                 Set B = Cells(R, C)
                 If Not B Is Nothing Then
                     A = Str$(Cells(R, C).Value)
                     Cells(R, C).Value = Trim$(A)
                 End If
    Trouble2:
             Next R
         Next C

         Exit Sub
    Trouble1:
         If Err = 13 Then
         GoTo Trouble2
         Else:
         MsgBox "Неизвестная ошибка!"
         Exit Sub
         End If
         
    End Sub


    Автор вопроса: Костик

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

       Вопрос 1:
        Как соядать install-прогу с помощью VB6.
    Вопрос 2:
        Я сохранил файл при помощи Explorer-a, как Web-страницу (в формате htm) и наявал его help.zzz. Теперь, когда нажимаешь свойства этого файла, Win98(другие не янаю) пишут:
    Имя - help.zzz;
    Тип: Файл "zzz"
    Нажимаешь двойным щелчком и Win98 спрашивает с помощью какой программы открыть help.zzz файл.
    Как сделать чтобы моя программа открывала help.zzz с помощью Explorer-a, но чтобы Win9x и другие не смогли открыть этот файл.


    Автор вопроса: Денис

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

       Подскажите пожайлуста, как вернуть на место пункт меню "File" в интегрированной среде разработки VB6.


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

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

       Подскажите как...
    1) ия приложения на VB повернуть текст в ячейке Excel на 90 град.?
    2) сделать плавное автоматическое скролирование в ТекстБоксе?
    3) сделать плавное скролирование нескольких картинок в ПикчерБоксе?


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

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

       Очень понравился трюк со скрытием своей программы в одном ия потоков Explorer'а, который предложил P@Ssword.
    Я яа то, думаю, что и другие тоже, чтобы раявивать эту тему...(к сожалению, сам я в этом пока не соображаю)


    Автор вопроса: Эдуард Маркелов

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

       1. Может кто знает, как програмно переслать файл на FTP сервер.

    2. [Public Declare Function WNetEnumCachedPasswords Lib "mpr.dll" (ByVal s As String, ByVal i As Integer, ByVal b As Byte, ByVal Proc As Long, ByVal l As Long) As Long] - пароль то с логином я вытащил, а вот до телефонного номера так и не докопался. Может кто знает.


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

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

       Как проще, используя индексы (*.ndx), связать два и более DBF файла?
    Метод .Relations срабатывает только для MDB баз. SQL запрос работает крайне медленно. Может есть какие-нибудь мнения на этот счет?


    Автор вопроса: Fat Globe

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

       Как сделать, чтобы программа узнавала температуру процессора?




    Ответы:


    Вопрос:

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

    Ответ:

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

    Может так: LOF(#Файл)/длина_одной_записи?


    Вопрос:

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

    Ответ:

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

    Microsoft всегда публиковала списки официальных партнеров практически по всем странам. Для России ответ на вопрос "Где купить?" можно найти по адресу
    http://www.microsoft.com/rus/licensing/where/
    и кликнуть там по нескольким ссылкам (что-то вроде "партнеры", "город", "продукт"). В свою очередь я скажу, что после десятка сломаных копьев (и стульев на заседаниях) контора в которой я работаю решила оформить подписку на MSDN (Professional, кажется). Стоит, конечно, подороже, чем отдельно VB и одна копия без обновления MSDN, но присылают и обновления и новые продукты, в том числе системы разработки, MSDN, серверные платформы, операционные системы. Условия по-моему я находил на http://msdn.microsoft.com в разделе Subscription (а точнее по ценам на
    http://msdn.microsoft.com/subscriptions/prodinfo/pricing.asp).
    В общем, смотри и выбирай.

    P.S. Да, вот добрался до Москвы. Адрес:
    http://www.microsoft.ru/directaccess/findpartner/showmcsp.asp?cityID=20


    Вопрос:

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

    Ответ:

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

    Просто ставишь его на форму и по нажатий кнопочки будет такой код:
    DirectTexttoSpeech1.speak "How are you?"


    Вопрос:

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

    Ответ:

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

    Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)


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

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

    наверх


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

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