Архив рассылки сайта VBNet

Книги

		Переход на 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 можно найти здесь.

наверх

VBNet CD 12 2002

VBNet.RU представляет новый компакт диск "VBNet CD 12 2002". Диск был существенно переработан. Было добавлено 64 элемента:

Софт - 2
Информация - 1
Компоненты (ActiveX и .Net) - 20
Утилиты - 3
Книги - 1
Справочники - 5

Хочу отметить большое обновление в разделе Компоненты - все добавленные компоненты распространяются по лицензии freeware! В разделе Справочники добавлено 5 справочников от Русского проекта (по функция и сообщениям API, MS Agent, FSO и функциям Windows).
Также был добавлен новый раздел - MS Agent. Он содержит 28 персонажей для MS Agent, редактор персонажей, а также всё необходимое для того, чтобы MS Agent заговорил по-русски (Speech API, движок синтеза русской речи, русификатор интерфейса MS Agent и др.).

Диск содержит:

Софт
- Personal Web Server
- Screen Activator
- VS6 Service Pack 5
- MDAC 2.6 Service Pack 2
- И многое другое...
Информация
- Самый популярный в рунете VB-сайт VBNet.Ru
- Архив рассылки "Мир программирования VB и HTML"
- Оффлайн журнал о VB "Visual Basic Forever!".
- Архив конференции Fido.Ru.Visual.Basic.
- Архив конференции SoobCha_VB.
- И многое другое...
Копоненты
- AdoDataNav control
- AR Users Database Library
- FastLib 2000
- UltraWebGrid for .NET
- FlexGrid for .NET
- True DBGrid Pro
- ActiveTreeView 1.04
- И многое другое...
Утилиты
- EasyPatch 2001
- Source+ 2000
- VBWatch
- VBFriend
- CodeSmart
- StudioComplete
- Wise for Visual Studio .NET
Книги
- Учебник Visual Basic 6
- Переход на VB .NET Стратегии, концепции, код (Дан Эпплман)
- Visual Basic 5
- Понимание SQL
- Visual Basic Крепкий орешек
- И многое другое...
Справочники
- Функции Visual Basic
- Функции Windows API:Сообщения
- Объектная модель FileSystemObject
- Microsoft Agent 2.0
- Справочник по функциям Windows API
- И многое другое...

   Полное содержание диска Вы можете скачать здесь.

   Диск распространяется по почте наложенным платежом.
   Цена: 60 рублей + 35 рублей (за почтовые расходы) = 95 рублей.
   Заказать диск можно в разделе Магазин нашего сайта, либо заполнив расположенную ниже форму:

Ваш заказ: VBNet CD
Стоимость: 95 рублей

наверх

Citycat by Email

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

наверх

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

Дата: 07.12.2002 08:30 | Раздел: Примеры кода | Автор: Шульц В.А.

PictureButton - Графика на кнопке. Включаем, выклычаем одной кнопкой.

Дата: 06.12.2002 10:45 | Раздел: Статьи по VB | Автор: Иноземцев Руслан

Программное создание базы данных с помощью ADOX. Часть 2. - В первой статье данного цикла были рассмотрены общие вопросы программного создание баз данных с помошью библиотек ADOX. От читателей приходили письма с вопросами и уточнениями, за что им отдельное спасибо. По наиболее важным, для разработчиков темам, Я решил написать вторую часть статьи, которая коснется двух особо важных моментов работы с базой данных Access c помошью этой библиотеки и ее расширений.

Дата: 03.12.2002 07:20 | Раздел: Примеры кода | Автор: Половый Александр

RulerR - Виртуальная линейка, которая может вращаться и замерять расстояния между двумя любыми точками на экране. Например, виртуальная диагональ моего 17" монитора составляет 10.4".

Дата: 01.12.2002 12:04 | Раздел: Примеры кода | Автор: CyRax

PicInDoc - Извлечение рисунков из документов Word'97-2002

Дата: 01.12.2002 12:02 | Раздел: Полезные программы | Автор: CyRax

ПСП - С её помощью можно быстро создавать справочную систему для своих приложений или просто файлы помощи Windows.

Дата: 01.12.2002 07:16 | Раздел: Примеры кода | Автор: Половый Александр

Ruler - Это новая версия витуальной линейки. В ней больше возможностей для работы с метками.

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

наверх

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

06.12

Visual Basic - Исходные коды - Элементы управления - Пример работы с коллекцией классов
Пример работы с коллекцией классов, содержащих 1 строчную переменную каждый

Visual Basic - Исходные коды - Работа с файлам/папками - Запись/чтение в *. ini файл
Пример, созданный, изучая Дена Эпплмана, глава 4, можно использовать, для своих проектов, подключайте VBINIModule. В примере показано, как это работает.

Visual Basic - Статьи - Технологии от BoldSoft: новый взгляд на проектирование ИС
Одной из наиболее тривиальных задач, решаемых многими коллективами программистов, является построение информационной системы для автоматизации бизнес-деятельности предприятия. Все архитектурные компоненты (базы данных, сервера приложений, клиентское ПО, аппаратная часть и средства связи) хорошо известны и не создают трудностей при создании и сопровождении. Однако существует один немаловажный фактор, делающий разработку чрезвычайно трудным и утомительным процессом.

Базы Данных - Исходные коды - Работа с Базой Данных - Создание связей с внешними таблицами (*.mdb)
Иногда бывают случаи, когда к Базе Данных вам необходимо присоеденить внешнюю таблицу. Подсоединенная таблица становиться частью вашей БД и вы можете равотать с ней так же как и с другими (собственными) таблицами БД.

наверх

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

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

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

Антон Лозовский.

наверх

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

BalloonMessage for MS Agent

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

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

Подробнее...

наверх

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

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

Вопросы:

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

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

   Что бы прочитать дату BIOS можно зделать так:

Type BIOS_DATE
       s As String * 8
    End Type

    Declare Sub CopyMemory Lib "Kernel32" Alias "RtlMoveMemory" _
            (pDest As Any, pSource As Any, ByVal ByteLen As Long)

    Public Function BIOS() As Long
       Dim sDB As BIOS_DATE

       CopyMemory sDB, ByVal &HFFFF5, 8&
       BIOS = DateSerial(Mid(sDB.s, 7, 2), Mid(sDB.s, 1, 2), Mid(sDB.s, 4, 2))
    End Function

Но этот способ неработает в NT
Кто подскажит как можно прочитать дату BIOS под NT

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

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

В VB функция RND дает нормальное распределение. Каким образом можно
перейти к другим видам распределения. И как по массиву точек можно
определить распределение. Очень нужно.

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

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

Как автоматически преключать раскладку клавиатуры при переходе к между полями в форме MS ACCESS 97

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

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

Как перезагрузить XP. В 98 я знаю в XP это неработает.
Как в XP поменять картинку. В 98 работает а в XP нет.

Мой сайт www.vbrain.boom.ru
Это мой первый сайт так что я с web интерфейсом работаю первый раз.
бновление в стадии разработки.

Автор вопроса: Dr.Max

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

Товарищи как скачать файл из и-нета ПРИ ПОМОЩИ INTERNET TRANSFER CONTROL?
API не подходят по ряду причин...

Автор вопроса: Самир

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

Не могли бы вы помочь вставить в базе данных, в графический компонент колллекцию фотографий. В аксессе я себе представляю, это посредством ОЛЕ, но в ВБ ни как не получается,и если вас не затруднит,подробнее.

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

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

Как получить список рабочих станций в локальной сети, чтобы потом можно было заполнить ListBox?

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

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

Программа запускает другое приложение на выполнение (черея Shell - строка параматров), приложение само завершается по окончании работы.
Как отследить момент завершения работы дополнительного приложения? А то при дальнейшем выполнении кода программы возникает ошибки, не при повтормом вызове приложения, а по времени исполнения дальнейших комманд.

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

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

Можно ли напечатать из VB текст встроенным шрифтом принтера?

Автор вопроса: Соловьев Ю.

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

Как в VB.NET для UserControl'a определить PropertyPage

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

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

Можно ли сделать, что-бы в ComboBoxе, когда текст в сплываюшем списке не помещается по ширине, в смысле, его полностью не видно, выводить всплывающую подсказку над текущей записью.

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

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

Как поместить в SysTray не иконку, а Label.?

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

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

Пишу эти строки и при копировании файла получаю через раз отказ в копировании файла
VB6+SP5 Windows XP (сегодня все работает, а вчера сидет 4 часа и не поборол)

Data1.DatabaseName = App.Path & "\ObRabot.mdb"
Data1.RecordSource = "ObRabot"
Data1.Refresh
'Data1.Recordset.Close
Data1.RecordSource = ""
Data1.DatabaseName = ""
Data1.Database.Close
'Data1.Refresh
FileCopy App.Path & "\ObRabot.mdb", App.Path & "\ObRabot_.mdb

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

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

Мне нужно преревернуть рисунок этот рисунок танк. Вот мне нужно его поворачивать при нажатии клавиш как мне его повернуть

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

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

Я возвращаюсь к вопросу регистрации библиотек, но теперь конкретный вопрос: необходимо найти все упоминания об выбраной библиотеке. Но не просто удалить строчку с этим названием, но и всю сопутствующую информацию.

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

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

Может кто подскажет как в MSFlexGrid выделить строки, используя Shift и Ctrl, а потом удалить их из Grida и из базы? Grid с данными не связан, а заполняется программно

Ответы:

Вопрос:

Я новичок.
У меня два вопроса.

1) Установил VB6. При выяове справки получаю "MSDN collection is not installed". Это ояначает, что диск, с которого я устанавливал VB6 является пиратским и не содержал файлов справки или я что-то сделал не то? И где я могу найти эту самую MSDN collection и как ее доустановить?
2) При написании кода, ничего не могу напечатать по-русски. например

MsgBox "Привет"

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

Ответ:

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

1. MSDN вообще-то не входит в комплект VB, надо или покупать полный пакет Visual Studio, либо качать с сайта мелкомягких:) либо покупать отдельно как это делал я. Она обычно инсталиться и VB начинает ее видеть.
2. В меню Tools/Options выбери вкладку Editor Format, там есть выбор шрифта, так вот там выбери какой нить шрифт поддерживающий киррилицу, например: Courier New CYR

Ответ:

Автор ответа: Алексей

1)
MSDN - это оч. большого объема информация. Скачивать с сети нет смысла. Меньше денег потратишь, купив несколько CD-дисков.
А вообще в VB5 при установке уже есть справка, советую лучше переустановать на VB5.
В крайнем случае где-то в сети, кажется на www.vbstreets.ru или www.vbstreets.ru я нашел два файла размером с дискету с переведенной справкой на русский язык для VB5. Если не найдешь - пиши, помогу найти.

2)
Не надо. Все дело в настройках шрифтов в VB. Заходишь в Tools => Options, вкладка "Editor Format", выбираешь Font не Courier New, а Courier New Cyr. Жмешь ОК. Удачи в дальнейшем изучении, первый шаг сделан...

Ответ:

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

MSDN нужно купить и установить отдельно - это общая система подсказок дя Visual Studio, частью которого является Vb6. Напримен у меня стоит MSDN 2000. Насчет языка - Меню Tools-Options-Editor Format - выбери какой-нибудь кириличный шрифт и навождение пройдет...
Насчет русифицированной версии - искренне не советую - по моему она крайне не удачна и не удобна. Тем более, что она по - моему Proffesional а не Enterprise.

Вопрос:

   У меня такой вопросик. Требуется опрашивать джоистик, и всё вроде получается,

Private Declare Function joyGetpos Lib "winmm.dll" Alias "joyGetPos" (ByVal uJoyID As Long, pji As JOYINFO) As Long
Private Type JOYINFO
         wXpos As Long
         wYpos As Long
         wZpos As Long
         wButtons As Long
End Type

Private Sub Timer1_Timer()
Dim JOYPOS As JOYINFO
     joyGetpos 0, JOYPOS

Label1 = JOYPOS.wXpos
Label2 = JOYPOS.wYpos
Label3 = JOYPOS.wZpos
Label4 = JOYPOS.wButtons

End Sub

но TYMER реально не может обрабатывать интервалы времяни больше 1/20 секунды.
Подскажите как чаще, очень нужно.

Ответ:

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

1/20 секунды – это минимальный интервал таймера, быстрей не получится. Я сказал, что минимальный интервал одного таймера!!! А если их много? Я разместил на форма два таймера и одну Лэйбу, первый таймер выполнял строчку «d= d + 1», и имел свойство timer1.interval = 50, а второй таймер включал и выключал первый с интервалом в 1000 (1с.). При этом среднее значение d было 17. Я разместил на форме массив таймеров Timer1(i), где i = 0 .. 9. Свойство interval для каждого установил свой 50, 55, 60 … 90, 95. Timer2 включал\выключал массив Timer1(i) Так вот d при этом было равно 102. При i = 19 и interval = 50, 52 , 55 …. 90,92,95 d = 220. Если это возможно, то использование сразу несколько таймеров решит проблему. Да, и кол-во одновременно включенных таймеров тоже ограниченно, кажется их может быть не больше 60 (или что-то вроде того).

Ответ:

Автор ответа: crash.smolensk@fbi.net

чаще можно только так

do
......
DoEvents
loop

Ответ:

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

:) А чаще и не получиться. :)
Если, только попробовать несколько таймеров асинхронизировать.

Вопрос:

Kak mozhno vigruzit formu so vsemi elementamiiz pamyati?

Ответ:

Автор ответа: Шатрыкин Иван

Unload Form1

Ответ:

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

Poprobui comandu:
Unload FormName

Ответ:

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

Private Sub Form_Unload(Cancel As Integer)
Set Form1 = Nothing
End Sub

Вопрос:

   Научите меня, как в Excel'e столбик с сотней яаписей представить в виде массива 5 X 20,(1ый столбик в 5 яаписей должен стать первой строчкой) внести ияменения в массиве на другом листе, чтобы эти ияменения окаяались и в столбике ия ста яаписей. Функция Transpose не появоляет редактировать в сояданном массиве и не преобраяует столбик в массив.

Ответ:

Автор ответа: Марк

Это можно сделать с помощью функций на VBA.
Пусть столбец из 100 чисел находится на Листе1 в столбце 1, а матрица - на Листе2 в ячейках A1:E20.
В модуль Листа1 запишем программу:

Private Sub Worksheet_Activate()
Dim i As Integer
Dim j As Integer
Dim k As Integer

For i = 1 To 20
   For j = 1 To 5
     k = (i - 1) * 5 + j
     Лист1.Cells(k, 1).Value = Лист2.Cells(i, j).Value
   Next j
Next i

End Sub

которая срабатывает при активации Листа1.
В модуль рабочей книги запишем процедуры:

Private Sub InsertArray()
Dim i As Integer
Dim j As Integer
Dim k As Integer

For i = 1 To 20
   For j = 1 To 5
     k = (i - 1) * 5 + j
     Лист2.Cells(i, j).Value = Лист1.Cells(k, 1).Value
   Next j
Next i
End Sub

Private Sub Workbook_Open()
    InsertArray
End Sub

Первая из них заполняет массив, а втоая вызывает процедуру InsertArray()
при открытии рабочей книги.

Вопрос:

   Дайте код для перезагрузки компа...

Ответ:

Автор ответа: Святослав

Добавляй на форму кнопку, загружай код:

Option Explicit

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Private Sub Command1_Click()
     ExitWindowsEx &H43, 0
End Sub

и ....... назад дороги нет.

Ответ:

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

Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags As Long, ByVal _
dwReserved As Long)

i=ExitWindowsEx EWX_REBOOT, 0
Unload Me

Ответ:

Автор ответа: Nechaev Sergey

ExitWindowsEx EWX_FORCE + EWX_REBOOT, 0

или

ExitWindowsEx EWX_FORCE + EWX_REBOOT, vbnull

Ответ:

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

Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Public Const EWX_FORCE = 4
Public Const EWX_LOGOFF = 0
Public Const EWX_REBOOT = 2
Public Const EWX_SHUTDOWN = 1

ExitWindowsEx EWX_FORCE + EWX_REBOOT, 0

Вопрос:

Глупейшая проблема!
VBNet. Есть форма Form1 в которой есть контрол Form1.TextBox1, который объявлен
Public Shared TextBox1 As System.Windows.Forms.TextBox

Как мне из модуля Modul1 изменить свойство Form1.TextBox1.Text и самое главное, чтобы оно отображалось в форме Form1?
Чегото не хватает.

Ответ:

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

А собственно бери да изменяй.
Не понимаю чего тебе не понятно.

Вопрос:

Как в RichTextBox вставить рисунок?

Ответ:

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

Clipboard.SetData LoadPicture("FILENAME.BMP")

а потом Shift + Insert :)

Вопрос:

На активном листе в Excel рисуем линию.

Shapes.AddLine(209.25, 24.75, 209.25, 49.5).Select

Как ия программы ее удалить?

Ответ:

Автор ответа: Nechaev Sergey

Если ты создаешь линию с именем Line1, то удалять ее надо так

Shapes("Line1").delete

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

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

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

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

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

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

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