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


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



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

Ссылки:

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

    наверх


    Citycat by Email

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

    наверх


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

    Дата: 30.03.2003 07:17 | Раздел: Статьи по VB | Автор: Хейфец Илья

    Архитектура .NET (обзор) - .NET платформа упрощает разработку приложений и повышает надежность кода. В частности, она обеспечивает автоматическое управление временем жизни объектов, нейтральные к языкам библиотеки классов и пересекающие границы языков наследование, обработку исключений и отладку.

    Дата: 27.03.2003 05:24 | Раздел: Примеры кода | Автор: Абашин Андрей

    Генератор бланков отчетов - Генератор простых бланков отчетов фиксированного размера. Есть возможность дублирования отчета как по вертикали так и по горизонтали.

    Дата: 25.03.2003 09:42 | Раздел: Примеры кода | Автор: vitus

    New Combo - Работа с ComboBox на подобие примера Combo 1.1. Можно вводить текст в ComboBoxe и он отображает слово если оно есть у него в списке.



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

    10:04 / 31 мар.  Кто нить запускал флеш на форме VB | Хитов: 2 |  Ответов: 0
    08:42 / 31 мар.  Прокрутка экрана | Хитов: 7 |  Ответов: 0
    08:33 / 31 мар.  звук через бипер | Хитов: 7 |  Ответов: 0
    03:58 / 31 мар.  Запутался, помогите, люди.... SQL запрос и DTPi... | Хитов: 9 |  Ответов: 1
    02:34 / 31 мар.  Это опять я =) | Хитов: 9 |  Ответов: 0
    00:44 / 31 мар.  CreateObject | Хитов: 7 |  Ответов: 0
    22:17 / 30 мар.  Народ помогите!!!!!!! | Хитов: 20 |  Ответов: 1
    21:40 / 30 мар.  Новое сообщение без темы | Хитов: 20 |  Ответов: 1
    20:31 / 30 мар.  Tabstrip and Command Button | Хитов: 11 |  Ответов: 0
    17:36 / 30 мар.  Поиск | Хитов: 22 |  Ответов: 2
    12:57 / 30 мар.  Проблема с Package and Deployment Wizard | Хитов: 19 |  Ответов: 3
    11:30 / 30 мар.  OCX от Internet Explorer | Хитов: 17 |  Ответов: 1
    06:41 / 30 мар.  Приглашаю потестить, кого не ломает | Хитов: 46 |  Ответов: 2
    04:13 / 30 мар.  Важный вопрос | Хитов: 29 |  Ответов: 3
    03:01 / 30 мар.  cd-rom | Хитов: 23 |  Ответов: 2
    22:58 / 29 мар.  Кто профи в vb.net | Хитов: 26 |  Ответов: 2
    20:11 / 29 мар.  Киньте ссылочки на колл-и кнопок | Хитов: 34 |  Ответов: 2
    19:05 / 29 мар.  Как узнать имя компа по его IP? | Хитов: 31 |  Ответов: 2
    19:05 / 29 мар.  Вставка картинки из клипборда (+) | Хитов: 15 |  Ответов: 0
    17:53 / 29 мар.  Copy file to FTP ??? HELP | Хитов: 16 |  Ответов: 1


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



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



    наверх


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



    наверх


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



    наверх


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



    наверх


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



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



    наверх


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

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



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



    наверх


    Один момент из жизни форума: Ctrl+Alt+Del

    Вопрос:
    Автор вопроса: агент x-com

       Я хочу заблокировать клавиши Ctrl и Alt. Представьте себе, чувак жмет Ctrl+Alt+Del и у него ни фига не выходит. Подскажите, как мне это сделать


    Ответы:

    Автор: serWAR
       Сразу скажу 2 способ под XP не идет, нефакт что и под другие
       1 способ( прикольный )
       отслеживаеш нажатия на CTRL+ALT+DEL и закрываеш появившееся окно.

       2 способ
    МОДУЛЬ

    Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
    Private Const SPI_SCREENSAVERRUNNING = 97

    Public Sub ChangeState(SrcSaverRunnig As Boolean)
    Dim Ret As Long
    Ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, SrcSaverRunnig, 0, 0)
    End Sub

    ФОРМА:

    Private Sub Form_Load()
    ChangeState True
    End Sub

    Private Sub Form_Unload(Cancel As Integer)
    ChangeState False
    End Sub

    Автор: агент x-com
       Немного не понял насчет 1 спопсоба. 2 способ мне точно не подходит т.к. у моего друга XP. Пожалуйста, объясните мне 1 способ.

    Автор: serWAR
       Добавь таймер и поставь свойсто Interval = 1 или 10 или 100, как понравится.
    Private Sub Timer1_Timer()
    On Error GoTo errorer ' если незапущен диспетчер то будет ошибка
    AppActivate "Диспетчер задач Windows" ' ПЕРЕДАЕМ ФОКУС
    SendKeys "%{F4}" ' Посылаем Alt + F4
    errorer:
    End Sub

    Автор: агент x-com
       Может быть я полный ламер, но я не врубаюсь, при чем тут Alt+F4? Нужно то Alt+tab и Ctrl+Alt+Del

    Автор: serWAR
       Ты его пробовал?
       ALT+F4 закрывает окно "Диспетчера задач ..." , а не блокирует его.
       Еще пример закрытия приложения:
       http://www.vbnet.ru/faq/showtopic.asp?id=120

    Автор: Павел
       Зачем SendKeys?
       Лучше найти hwnd окна диспетчера задач АПИ-функцией FindWindow и потом API-функцией SenMessage заставить это окно закрыться. Так надёжнее.
       А вообще, где-то недавно обсуждалась подобная тема. И порешили, что процесс можно вырубить не только в диспетчере задач, но и из командной строки и из Far'а... Так что это пойдет, если твой друг совсем ламер.



    наверх


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

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

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

    наверх


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

    BalloonMessage for MS Agent

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

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

    наверх

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

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

    Вопросы:


    Автор вопроса: 108vadim

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

       Помогите решить проблему:
    Допустим я добавляю клиента, потом делаю сохранить потом пытаюсь добавить товары а они не добавляются:(((
    а если я редактирую уже добавленую запись Клиента то товары нормально добавляются и при этом автоматически связываются с гл таблицей
    код весит 12кб VB6.0+acces97
    http://www.chat.ru/~vadim108/test1.rar
    прошу исправить его и выслать мне на майл.


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

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

       Знает ли кто нибудь как максимально быстро принять большой обьём данных (ну к примеру файл 10Мб по LAN 100Mbit) через Winsock и запихнуть их в массив? ведь данные приходят пачками примерно по 8Кб и их нужно собрать воедино.

       Вот такой вариант (или что то подобное) у меня получился самым быстрым:
    Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
       Dim b() As Byte
       Open "C:\test.zip" For Binary As #1
         Winsock1.GetData b, vbArray + vbByte
         Put #1, LOF(1), b
       Close #1
    End sub

    Можно конечно ещё быстрее если вынести функции Open и Close за пределы этой процедуры, но неустраивает то что при этом используется диск.
    Заюзал API`шную CopyMemory чтобы массивы байтов обьединять но получилось почему то ещё медленнее :(


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

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

       Нашел такой пример.Но сдесь всего 3 команды. А команды управления папками и файлами как записать(копировать,удалить,создать,переместить)?

    Private Sub ws_DataArrival(ByVal bytesTotal As Long)
    Dim Data As String
    ws.GetData Data

    Select Case Data
         Case "BEEP"
             Beep
         Case "MSG"
             MsgBox "Привет!", vbInformation, ":o)"
         Case "END"
             End
    End Select
    End Sub


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

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

       Если у кого-нибудь есть небольшая документация по VBScript, огромная просьба прислать ее на ilya_001@mail.ru. Век не забуду доброго человека!


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

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

       Как из PropertyPage контейнера получить контролы, лежащие на контейнере?


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

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

       Подскажите как проверить не резервирована ли горячая клавиша (например F11,F12) другим приложением.


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

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

       Осваиваю ужасные дебри вбнэт.
    Начинаю с простого:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Единственное что я здесь понимаю - это "Private Sub Button1_Click", а для чего остальные параметры???
    И еще я понял, что такой полезной штуки как index больше нет, но может, есть аналог(просто другое название), или есть какой-то более сложный способ???
    А также нужна помощь с hdc - в vbnet такова нет, но уверен, что также есть аналог.


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

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

       Подскажите как програмно работать(создавать,изменять столбцы, редактировать) с DataGrid, а также как работать с ListView




    Ответы:


    Вопрос:

       У меня за последнее время скопилось несколько вопросов:

    1. Ваш совет проиграть MP3 на MMControl с DeviceType="MpegVideo" не пошел, да и я не нашел в реестре по указанному вами пути типы девайсов, попробовал я играть его на ActiveMovie Control, знакомые люди сказали, что должно заработать, но при запуске проекта выскакивает сообщение: System error &H80004005 (-2147467259), может кто сталкивался с аналогичной проблемой, на всякий случай у меня Win98, DirectX 8.1, VisualBasic 6 SP5, с железом проблем нет. Просьба объяснить нормально, с помощью чего и, главное, как играть MP3 в Visual Basic?

    2. Можно ли с помощью WinSock'а органияовать UDP или TCP свяяь по модему на прямую, без ИНЕТа? Если можно, то как узнать номера портов для связи?

    Ответ:

    Автор ответа: KAS (c)

    Вообще ничего не указывай
    DeviceType=""


    Вопрос:

       Можно ли на Visual Basice написать программу каторая бы уменьшала скорость CD если можно то как ?

    Ответ:

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

    Имеется некоторый набор АПИ-функций, которые позволяют манипулировать
    скоростями CD-привода. НО! Они работают лишь если сам привод
    поддерживает смену скоростей. Т.е. если CD-привод достаточно старый и не
    подерживает манипуляцию скоростями - то хоть 100 раз воспользуйся
    вызовом АПИ, это не даст никакого эффекта!
    Где копать и какие функции - не помню :) Могу только посоветовать
    скачать, например, CDSlow и почитать прилогающуюся к нему инфу (или
    почитать в других ответах)


    Вопрос:

       Есть запрос на ACCESS который работает с переменой как передать эту переменую через VB

    Ответ:

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

    Запрос - это SQL-выражение. В Басике описывается как строковая переменная.

       dim strSQL as string
       dim iID as long
       Dim recADOTemp As ADODB.Recordset

       strSQL="SELECT * FROM sprWorkers WHERE (ID=" & iID & ")"
       Set recADOTemp = New ADODB.Recordset
       recADOTemp.Open strSQL, adoCon, adOpenStatic, adLockOptimistic


    Вопрос:

       Можно ли в Access программно открыть запрос, основанный на SQL-операторе SELECT (строка с SQL-инструкцией может изменяться)?
    Метод DoCmd.OpenQuery работает только для сохраненных запросов, а метод DoCmd.RunSQL не работает с SELECT.

    Ответ:

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

    Простой пример для абсцесса
    Например так:

    Public Function getName(s As String) As String
         Dim DB as Database
         Dim st As String
         On Error Resume Next
         Set DB = CurrentDb 'устанавливаем переменную БД
         Dim rs As Recordset
         'строим запрос
         st = "SELECT * FROM Res where Code='" & s & "' AND ID_Lang=" & getLangId
         'открываем запрос
         Set rs = DB.OpenRecordset(st)
         getName = "<" & s & ">"
         getName = rs!name 'считываем данные
         rs.Close 'закрываем запрос
    End Function


    Это работа через DAO. Работа через ADO делается по другому.


    Вопрос:

       Есть ComboBox, в нём значения из таблицы (методом ADD). Таблица подключается с помощью DAO 3.51 и имеет 2 колонки. В ComboBox выбрали значение из 1-ой колонки. Как узнать соответствующее ему значение из 2-ой колонки.

    Ответ:

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

    lstControl.Column(1)
    Нумерация (насколько я помню) идёт с нуля



    Ответ:

    Автор ответа: Damir Kh

    Dim ws as Workspace
    Dim db as database
    Dim rs as recordset

    Private sub Form_Load
    set ws = CreateWorkspace("","admin","")
    set db = ws.OpenDatabase("путь к базе")
    set rs = db.OpenRecordset("таблица")
    Do while Not rs.Eof
    Combo1.AddItem rs("поле1")
    Loop
    End sub

    Private Sub Combo1_OnClick
    set ws = CreateWorkspace("","admin","")
    set db = ws.OpenDatabase("путь к базе")
    set rs = db.OpenRecordset("таблица")
    value = rs("поле2")
    End sub


    Вопрос:

       1. Вы не подскажете как удалить приложение из диспетчера задач я работаю на VB 6.0 под WinXP.
    2. И ещё как в этом виндовсе можно отключить драйвера, например, для мыши или как её можно откл.

    Ответ:

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

    Можно просто спрятать курсор (ShowCursor)
    А можно в таймере поставить, чтоб он с места не сдвинулся (SetCursorPos).




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

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

    наверх


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

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