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


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



Рассылки Subscribe.Ru
VB.NET-World
Новости сайта IgorykSoft и советы по программированию
DanSoft о Visual Basic
Visual Basic.NET Уроки.

Ссылки:

  • Улицы VB
  • Использование VB
  • Азбука VB
  • Улицы VB
  • Кирпичики VB
  • CообЧа VB
  • VB по русски
  • MDesign
  • IgorykSoft
  • DanSoft
  • Господа!!! читайте 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 можно найти
    здесь.

    наверх


    SHARESTAR

    Уважаемые разработчики условно-бесплатных программ! Обратите Ваше внимание на открытие нового русско-язычного агентства SHARESTAR, которое поможет Вам продавать Ваши программы пользователям стран СНГ. Самую подробную информацию об агентстве SHARESTAR и о предлагаемой схеме продаж Ваших SHAREWARE программ Вы можете получить на сайте http://sharestar.laguna-ua.com/. Мы используем принципиально новый механизм продажи условно-бесплатных программ (на основе MULTI-LEVEL MARKETING), который позволяет зарабатывает реальные деньги и пользователям и разработчикам программ. SHARESTAR является официальным проектом компании "Лагуна софт Украина" (LAGUNA-UA). SHARESTAR - это Ваш первый шаг в мир условно-бесплатных программ! Присоединяйтесь сегодня и Вы не пожалеете об этом никогда!

     

    Мы всегда готовы ответить на все Ваши вопросы: sharestar@laguna-ua.com

    С уважением, Администрация агентства SHARESTAR AGENCY.



    наверх


    Citycat by Email

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

    наверх


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

    Дата: 06.07.2003 12:59 | Раздел: Примеры кода | Автор: KuD

    FTP file search server (+ client) - Предположим у Вас работает FTP сервер или сходный по назначению сервис. Папка, которую использует сервер, очень большая по размеру и имеет большое кол-во файлов и вложенных папок. Как помочь клиентам искать интересующий их файл? Программа FTP F. S. S. это выход из положения. Она будет искать файлы по запросу клиента на сервере и отсылать отчет о найденых файлах. Краткая хар-ка: - Многоканальность - Распределение потоков (запросы не будут путаться между клиентами) - Сидит в трее - Работает на UDP. Программа, конечно, сыровата, но на 100 % рабочая. В коде клиента измените Ip сервера на ВАШ.

    Дата: 05.07.2003 11:32 | Раздел: Примеры кода | Автор: Половый Александр

    Морской бой - Морской бой! Играть можно против компьютера или человека по сети. Звук и немного анимации. И еще несколько "программистких штучек".

    Дата: 04.07.2003 08:48 | Раздел: Примеры кода | Автор: birkoff

    Рисование на рабочем столе - Рисует bmp-картинку на рабочем столе с помощью SetPixel.

    Дата: 03.07.2003 08:12 | Раздел: ActiveX контролы | Автор: mc-black

    RegionMake - Контрол RegionMake предназначен для изменения вида и поведения окон вашей программы. Во-первых, окно становится нестандартной формы. Для этого указываются два файла-картинки. Во-вторых, окно может быть поверх всех окон или как обычно. В-третьих, для Win2k и выше указывается прозрачность. В четвертых, форму можно передвигать за любое место (все настраивается). Подробнее читайте ReadMe. Внимание! При добавлении контрола на форму в режиме IDE "design" форма меняет некоторые свойства, которые, быть может, вы очень долго выставляли.

    Дата: 02.07.2003 08:48 | Раздел: Примеры кода | Автор: birkoff

    3D-куб с текстурой - Вращающийся куб на форме с одной текстурированной стороной. Сделано при помощи SetPixel и двоичного доступа к bmp-файлу.

    Дата: 01.07.2003 10:59 | Раздел: Статьи по VB | Автор: Сурменок Павел

    Обзор ADO .NET - Есть в .NET новая система доступа к базам данных - ADO.NET, она же ADO+ (ActiveX Data Objects). В этой статье описана объектная модель ADO+ и показаны основные возможности этой библиотеки.

    Дата: 30.06.2003 10:27 | Раздел: Примеры кода | Автор: Xatab

    Expert System - Небольшая эекспертная система на Visual Basic.



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

    11:31 / 6 июл.  Непонятен вопрос, хорошо, опишу по подробнее... | Хитов: 5 |  Ответов: 0
    07:35 / 6 июл.  Хочу спать :) | Хитов: 24 |  Ответов: 5
    15:40 / 5 июл.  Корзина | Хитов: 18 |  Ответов: 1
    15:00 / 5 июл.  Предложение администрации сайта по поводу форума | Хитов: 20 |  Ответов: 0
    14:56 / 5 июл.  Предложение админам... | Хитов: 23 |  Ответов: 2
    12:51 / 5 июл.  Работа с буфером обмена | Хитов: 22 |  Ответов: 3
    12:47 / 5 июл.  Объясните смысл слов... | Хитов: 41 |  Ответов: 8
    12:35 / 5 июл.  ProgressBar в ListBox | Хитов: 19 |  Ответов: 2
    12:29 / 5 июл.  DataReport | Хитов: 5 |  Ответов: 0
    12:28 / 5 июл.  Есть вопросы о "запросе" | Хитов: 20 |  Ответов: 3
    08:51 / 5 июл.  VB и Pascal как их ... | Хитов: 22 |  Ответов: 3
    05:16 / 5 июл.  Вопрос по ИнСтАлЯцИи | Хитов: 23 |  Ответов: 2
    01:58 / 5 июл.  SQLServer | Хитов: 8 |  Ответов: 0
    01:58 / 5 июл.  SQLServer | Хитов: 1 |  Ответов: 0
    00:05 / 5 июл.  SQLServer для XP | Хитов: 18 |  Ответов: 1
    14:26 / 4 июл.  Как в VB.NET открыть форму по кнопке на другой ... | Хитов: 23 |  Ответов: 2
    12:19 / 4 июл.  печать таблицы DataGrid | Хитов: 21 |  Ответов: 1
    11:31 / 4 июл.  Запись в Word | Хитов: 12 |  Ответов: 0
    11:29 / 4 июл.  Блокировка клавы, автозагрузка | Хитов: 19 |  Ответов: 1
    11:25 / 4 июл.  массивы контролов в Visual Basic .net | Хитов: 19 |  Ответов: 3


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



    Новости от VBNet-чиков!:



    наверх


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



    наверх


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



    наверх


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



    наверх


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



    Новые статьи:



    наверх


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

    Новые статьи:



    Новые примеры:



    наверх


    Один момент из жизни форума: Колесо

    Вопрос:
    Автор вопроса: admsasha

       Как обрабатывать колесико мыши?


    Ответы:

    Атор: hedgehog
       Аналогично решал недавно для флексгрида - через субклассинг:
       в модуле:

    Public Declare Function SetWindowLong _
         Lib "user32" Alias "SetWindowLongA" ( _
             ByVal hwnd As Long, _
             ByVal nIndex As Long, _
             ByVal dwNewLong As Long) As Long
    Public Declare Function CallWindowProc _
         Lib "user32" Alias "CallWindowProcA" ( _
             ByVal lpPrevWndFunc As Long, _
             ByVal hwnd As Long, _
             ByVal Msg As Long, _
             ByVal wParam As Long, _
             ByVal lParam As Long) As Long

    Private Const WM_MOUSEWHEEL = &H20A

    Function SwapProcAB(ByVal hwnd As Long, ByVal Msg As Long, ByVal _
             wParam As Long, ByVal lParam As Long) As Long
         Dim lReturn As Long
         lReturn = CallWindowProc(formname.OldABProc, hwnd, Msg, wParam, lParam)
         Select Case Msg
             Case WM_MOUSEWHEEL
                 formname.ScrollFlex wParam
         End Select
         SwapProcAB = lReturn
    End Function

       в форме:

    Public OldABProc As Long
    Private Const GWL_WNDPROC = (-4)

    Private Sub Form_Load()
    ...
         OldABProc = SetWindowLong(Flex1.hwnd, GWL_WNDPROC, AddressOf SwapProcAB)
    End Sub

    Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    ...
         SetWindowLong Flex1.hwnd, GWL_WNDPROC, OldABProc
    End Sub
       Переделай под себя аналогично - у меня работает отлично.



    наверх


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

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

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

    наверх


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

    BalloonMessage for MS Agent

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

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

    наверх

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

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

    Вопросы:


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

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

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


    Автор вопроса: Марк

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

       Как средствами VB сделать файл справки со своим содержимым? Можно ли сделать этот файл справки как .chm - файл?


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

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

       А где можно увидеть рабочий пример Чата, типа клиент-клиент?


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

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

       Есть вопрос по DBGrid:
    Источником записей для DBGrid явл. Data1
    Источником для Data1 явл. SQ -строка. Тобишь количество и название столбцов определяется непосредственно перед загрузкой самой формы на которой расположен сам DBGrid.
    Вопрос такой:
    Нужно чтобы при выводе на экран у каждого столбца элемента DBGrid была своя заданная в коде ширина. Было-бы здорово если каждый столбец мог бы учитывать размер самой длинной записи в строке...


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

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

       Для моего редактора тестов неожиданно потребовалась распечатка результатов. В связи с этим возникла парочка вопросов:

    1. Как можно создать, наполнить и сохранить WORD'овский документ(*.doc), со всяческими прибамбасами касаемо текста (а, если короче, то произвести "печать в файл")?
    2. Как вывести данные с формы на принтер, при этом нужно определить поля страницы, расположение текста на странице, форматирование и т.п. Можно ли это сделать обойдя CommonDialog?


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

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

       Расскажите, пожалуйста, поподробнее про сжатие БД программно.


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

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

       Как "заблокировать" рабочий стол, т.е. если пользователь будет нажимать на любые места на экране, то ничего происходить не будет, но форма (программа) будет полностью рабочая?


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

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

       Как "заблокировать" CD-ROM (чтобы не открывался и не работали кнопки на нём); выдвинуть, задвинуть?


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

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

       Какой контрол, где есть прогресс бар, идёт вместе с Windows?


    Автор вопроса: I-Sof

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

       Как создать свой dll для своей проги?


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

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

       Как можно узнать сведения о системе: марку и модель материнки, тип и модель процессора?


    Автор вопроса: Владимир

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

       Этот код заполняет форму по номеру на web-странице.

    Set Doc = Explorer.Document
             Dim Inputs As IHTMLElementCollection
             Set Inputs = Doc.All.tags("INPUT")
             Inputs.Item(0, 0).Value = "Vladimir"

    А как заполнить ее по имени на VB6.
    Кто нибудь сможет ответить на мой вопрос?
    Или, как и на предыдущие 2 вопроса, пошлете на три буквы URL, где посылают еще дальше.


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

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

       1. Я испольяую базу данных Access, первоначальные таблицы я создал вручную, а можно ли программно создать таблицу в базе данных Access?
    2. Как можно сделать так чтобы системный шрифты отображались в элементе СomboList?


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

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

       Не могу вызвать Функцию АРI "ExitWindows". Подскажите, как это сделать.




    Ответы:


    Вопрос:

       Кто-нибудь посоветуйте, куда поступить на программера дистанционно?
    Желательно на «вышку».
    Может придется в ЦКО при МГТУ, но это не высшее образование, после школы охота получить высшее образование.
    Только обязательно ДИСТАНЦИОННО!

    Ответ:

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

    Сходи http://www.cometa.ru
    Правда это техникум.
    Сам там учусь.



    Ответ:

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

    Это можно сделать в Минском государственном радиотехническом университете, например. Адрес что-то типа http://ciosrv2.bsuir.unibel.by/index.jsp?PageID=76067&lang=ru&resID=100229&menuItemID=101491 (боюсь, устаревшая информация)
    Ректор заявил, что как минимум пару полноценных факультетов дают дистанционное обучение с выдачей государственных дипломов.


    Вопрос:

       У меня опять СУПЕР МЕГА НАИСЛОЖНЕЙШИЙ ВОПРОС
    Кто-нибудь занимался программой для создания расписания занятий (поделитесь разработками или исходниками)
    Если кто-нибудь хочет попробовать помочь, то пишите

    Ответ:

    Автор ответа: Andrew Stephanoff

    Я когда-то пробовал ее писать на Borland C++ Builder, но исходников ее не осталось.
    Если хочешь - могу помочь, а вообще у меня есть файл в Exell, его удобно заполнять и распечатывать.
    Если же надо что-то вроде органайзера + напоминателья + записной книжки, то поставь MS Outlook (не Outlook Express!!!).


    Вопрос:

       Помогите разобраться вот с чем:
    Юзаю VB 6 & MS Access '97

    1. Есть код
    [Модуль]
    Option Explicit
    ' referenses MS DAO 3.6 Object Library
    Public db As Database, dbstring As String
    Public rs As Recordset
    [Форма]
    Private Sub btnSave_Click()
    On Error GoTo CuncelUpdate
    rs.Fields("ID") = Text1.Text
    rs.Fields("ragid") = Text2.Text
    rs.Fields("text") = Text3.Text
    rs.Update
    CuncelUpdate:
    MsgBox Err.Description
    End Sub
    Private Sub Form_Load()
    dbstring = App.Path & "/" & "db.mdb"
    Set db = OpenDatabase(dbstring)
    Set rs = db.OpenRecordset("test", dbOpenDynaset)
    rs.AddNew
    End Sub
    Так вот по нажатии btnSave выскакивает ПУСТАЯ мессага с кнопкой OK (тобишь без какого-либо сообщения об ошибках). Запись при этом сохраняется без каких-либо проблем. Как от этого избавиться? По идее если мессага выскакивает - значит какая-то ошибка? Но в БД состоящей из одной таблицы в три поля трудно допустить ошибку :))

    2. И может кто знает как в каком-нить Grid' е можно сделать ячейку с выпадающим списком (как в Access) с данными из другой таблицы. Поделитесь опытом, можно прямо на мыльницу.

    Ответ:

    Автор ответа: Mind Engine

    А вот так сделать, религия не позволяет? =)

    rs.Update: еxit sub



    Ответ:

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

    У тебя в любом случае,есть ошибка или нет, есть переход на строку

    MsgBox Err.Description

    Тогда уже так:

    CuncelUpdate:
    If Err.Description <> "" Then
    MsgBox Err.Description
    End If
    End Sub



    Ответ:

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

    Ну ты даешь!!!
    Надо сделать так:

    Private Sub btnSave_Click()
    On Error GoTo CancelUpdate
    rs.Fields("ID") = Text1.Text
    rs.Fields("ragid") = Text2.Text
    rs.Fields("text") = Text3.Text
    rs.Update
    EXIT SUB
    CancelUpdate:
    MsgBox Err.Description
    End Sub



    Ответ:

    Автор ответа: Vladimir Selyanin

    Перед своим CuncelUpdate: поставь Exit Sub.

         rs.Update
         Exit Sub
         CuncelUpdate:

    P. S. И отмена по-английски - Cancel



    Ответ:

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

    Элементарно, Ватсон ;-)

    On Error GoTo CuncelUpdate
    rs.Fields("ID") = Text1.Text
    rs.Fields("ragid") = Text2.Text
    rs.Fields("text") = Text3.Text
    rs.Update
    '===============
    Exit Sub
    '===============
    CuncelUpdate:
    MsgBox Err.Description ' при отсутствии ошибки оно и вынуждено выводиться на
    экран
    End Sub



    Ответ:

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

    Код после метки CancelUpdate работает и при возникновении ошибки и достижения до него перед данной строчкой вставь Exit Sub.



    Ответ:

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

    У тебя происходит выполнение msgbox и при правильном исполнении предыдущих команд. Поставь if и проверяй err.number (без ошибки = 0), только не забудь его в самом начале процедуры очистить (err.clear).


    Вопрос:

       Хотелось бы узнать существуют уроки по Visual Studio.NET 7 или нет?
    Хотелось бы на них подписаться или скачать

    Ответ:

    Автор ответа: Артем Кривокрисенко

    http://progs.biz/

    Есть еще классная книжка по VB.NET Дана Эплмэна - "Переход на VB.NET. Стратегии, концепции, код" (в этой рассылке ссылка дается на нее).


    Вопрос:

       1. Расскажите, пожалуйста, как создать TRAIL ограничение в программе.

    2. Как отлаживать компоненты написанные на VB для ASP? Постоянно выгружать перед каждой поледующей компиляцией?

    Ответ:

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

    По первому вопросу:
    Сначала нужно записать куда-нибудь в папку Windows, в файл *.ini, или в реестр, дату первого запуска.
    Потом при каждом запуске нужно проверять разницу между текущей датой и датой первого запуска:
    If DateDiff("d", #11/8/99#, Date) > 30 Then ... 'если разница между датой 11 августой 1999 года и текущей
    'в днях больше 30, тогда ....


    Вопрос:

       Я пишу HTML редактор, хочу сделать отмену действия и наоборот (отмену отмены действия). Как это сделать?

    Ответ:

    Автор ответа: Кирилл

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

    -позиция
    -тип операции(удаление/вставка)
    -стоковое содержание
    -координаты (номер строки + позиция)

    Может быть еще что-то

        Далее там где у тебя основной код, создаешь Dictionary, можно и простую коллекцию, но Dictionary удобнее в работе.
        При удалении/вставке пишеь в Dictionary новый объект своего класа, заполнив его данными. Ключ Dictionary=позиция. При добавлении нового элемента, он становится первым, а остальные сдвинуть.
        При нажатии на кноки отмена/отмена отмены лезешь в Dictionary ищешь первый элемент с соотв типом операции и делаешь обратную.
        Можно сделать на массиве, будет шустрее работать с большими объемами, но с массивом труднее работать.




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

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

    наверх


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

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