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

наверх

Citycat by Email

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

наверх

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

Дата: 25.05.2002 16:14 | Раздел: ActiveX контролы | Автор: Черенков Дмитрий

AniGIFPlayer - Контрол для воспроизведения анимированных GIF файлов. Исходники прилагаются! Интересный алгоритм, который, впрочем, не решает известную проблему производительности. В очередной раз можно убедиться, что Gif лучше всего просматривать в контроле, сделанном в C++. Однако, это нисколько не уменьшает заслуги автора по созданию полезного контрола.

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

15.04 - В связи с резким увеличением числа вопросов, поступающих на e-mail администрации сайта, было решено не дожидаться открытия форума, и начать отвечать на вопросы прямо на главной странице. Обсуждению последней новости ответы на вопросы не помешают. Вашего совета ждут, на ваш вопрос ответят.
25.01 - Сегодня открылся новый раздел, в котором вы можете найти ссылки на целую кучу книг по тематике VB и около него.
22.01 - 22 января вышел второй номер он-лайн журнала о Visual Basic 'VB Мания'. В нем можно почитать авторские статьи в уже устоявшихся разделах: Технологии, Система, Графика, Профессия, Человечество и Юмор. Так же не обошлось без новшеств: появился новый раздел dotNET и особенно рецензии ActiveX-компонентов. Обязательно заходите.
17.12 - В связи с тем что форум не горел желаением вести себя так, как должен обычный, порядочный форум, мы его прикрыли для проведения разъяснительных мероприятий. Надеемся, что они не затянутся и форум образумится.
06.12 - С сегодняшнего дня все желающие могут добавлять свои новости и статьи в наши архивы.
Да здраствует открытость!
27.11 - Наконец-то, после долгих дней и бессонных ночей это свершилось! Сайт объявляется открытым! Непременно прочитайте первый номер нашего журнала. Оцените наши дополнительные проекты. И конечно мы ждем ваших откликов в гостевой книге и по почте.
01.12 - Произошло несколько косметических улучшений, касающихся исключительно удобства работы с сайтом. Во-первых, можно видеть количество записей обсуждения новостей на главной странице; а во-вторых чуточку подправились директории.
Оценяйте!

наверх

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

1 мая 2001 года
Представление всех компрьютеров в сети (сетевое окружение). Показывается, как можно представить все компрьютеры в сети и сетевое окружение. Показывает все сервера, совместно используемые ресурсы и принтеры в данной сети. Используются Api-функции WNetOpenEnum, WNetEnumResource и WNetCloseEnum.
Пример смены `Региональных Установок` с помощью Sendkeys, без применения API функций (Win95/98). Показывается, как можно произвести смену Региональных Установок с помощью Sendkeys, без применения API функций (Win95/98)
Пример отправки сообщений в локальной сети - NT/Win2000. Показывается, как можно отправлять сообщения на компьютеры находящиеся в локальной сети. Используются API-функции NetMessageBufferSend, GetUserName, GetComputerName.
Отправка писем с Attach и без него на основе MAPI. Отправка писем с Attach и без него на основе MAPI. Используется Microsoft MAPI Controls 6.0
Kак в VBA сделать чтобы картинка, либо другое окно появлялось после запуска макроса и через некоторое время сама закрывалась. Показывается, как в VBA сделать чтобы картинка, либо другое окно появлялось после запуска макроса и через некоторое время сама закрывалась.
Полоска подчеркивающая меню - 3 (динамика). Дается совет, как сделать динамическую полоску подчеркивающую меню.

наверх

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

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

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

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

наверх

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

BalloonMessage for MS Agent

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

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

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

наверх

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

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

Вопросы:

Нет вопросов.

Ответы:

Вопрос:

   Как можно программу сделать невидимой для Ctrl+Alt+Delete

Ответ:

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

'****** Для скрытия при нажатии на Ctrl+Alt+Del *******
Public Const RSP_SIMPLE_SERVICE = 1
Public Const RSP_UNREGISTER_SERVICE = 0

Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Public Declare Function GetCurrentProcess Lib "kernel32" () As Long
'********************* Конец раздела *******************

'****** Для блокирования нажатия на Ctrl+Alt+Del *******
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long


Public lReturn As Long
Public lBool As Long
'lReturn = SystemParametersInfo(97, False, lBool, vbNull)
'********************* Конец раздела *******************

'**** Отностится к скрытию программы по нажатию CAD ****
Public Sub HideApp(lbValue As Boolean)
Dim lngProcessID As Long
Dim lngReturn As Long
lngProcessID = GetCurrentProcessId()
If lbValue Then
lngReturn = RegisterServiceProcess(lngProcessID, RSP_SIMPLE_SERVICE)
Else
lngReturn = RegisterServiceProcess(lngProcessID, RSP_UNREGISTER_SERVICE)
End If
End Sub
'********************* Конец раздела *******************
Применение:
Call HideApp(True)

Чтобы вернуть:
Call HideApp(False)

Вопрос:

Как можно программу сделать невидимой для Ctrl+Alt+Delete

Ответ:

Автор ответа: Duke Nukem

'Запихай этот код и радуйся
'правда побить будет наверное только по Win9x
private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal ProcessID As Long, ByVal ServiceFlags As Long) As Long
private Declare Function GetCurrentProcessId Lib "kernel32" () As Long

Private Sub Form_Load()
RegisterServiceProcess GetCurrentProcessId, 1
End sub
'Примерный принцип: "находится и скрывается"

Вопрос:

Как лучше выполнять процедуру каждые 2 сек.? Я пользуюсь таймером, но переодически получаю "Msgsrv32 not responding". Может это не связано...

Ответ:

Автор ответа: Ревягин_Алексей

Пользуйся API: Sleep

Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Вопрос:

Как в VB6 зделать ссылку на файл (любой), чтобы его открыть (запустить)?

p.s. Хочу зделать Авторан для CD!

Ответ:

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

Используй оператор
Shell(путь_и_имя_файла[,виндовс_стиль])
путь_и_имя_файла = "e:\auto.exe"
виндовс_стиль = 0 до 6

Вопрос:

   Как в VB6 зделать ссылку на файл (любой), чтобы его открыть (запустить)?

p.s. Хочу зделать Авторан для CD!

Ответ:

Автор ответа: Ревягин_Алексей

   есть такие функции как:

   shell(Path as string)
   ShellExecute

   и т. д.

Вопрос:

   Сидит моя прога в трее. Когда кликают правой кнопкой мыши, открывается менюшка,кликнув в которой, юяверь открывает формочку (frm.Show). А когда юяверь делает двойной клик по иконке в трее, я опять делаю frm.Show, форма появляется, но она, по-моему, не активна, т.к. на первый клик форма не реагирует, но если курсор (каретка) стоИт на текстбоксе, то с клавиатуры можно вводить сраяу. Что ая есьм и как енто побороть?

Ответ:

Автор ответа: Ревягин_Алексей

   Попробуй сделать окно активным:
   после

   frm.Show

   впиши

   AppActivate ("CAPTION_АКТИВИЗИРУЕМОЙ_ФОРМЫ")

Вопрос:

Сидит моя прога в трее. Когда кликают правой кнопкой мыши, открывается менюшка,кликнув в которой, юяверь открывает формочку (frm.Show). А когда юяверь делает двойной клик по иконке в трее, я опять делаю frm.Show, форма появляется, но она, по-моему, не активна, т.к. на первый клик форма не реагирует, но если курсор (каретка) стоИт на текстбоксе, то с клавиатуры можно вводить сраяу. Что ая есьм и как енто побороть?

Ответ:

Автор ответа: Duke Nukem

Я не совсе понял но можно попробовать к 2 клику приделать что то вроде:

Form2.SetFocus
'или в твоем случае frm.SetFocus

Вопрос:

Как в VB при нажатии кнопки с рисунком изменялся ее рисунок н другой?

Ответ:

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

Если поставишь значение Command1.Style=1, то выбери картинку в Command1.DownPicture, при нажатии на кнопку картинка будет меняться на выбранную.

Вопрос:

   Подскажите как средствами Visual Basic 6.0 разбить файл по 1,44Mb, а затем скопировать на дискету.

Ответ:

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

Это делается с помощью ExitWindowsEx айпиайки и присваения в качестве аргумента 4 константы:

  Const EWX_FORCE = 4 'аварийное завершение работы винды
  Const EWX_LOGOFF = 0 'завершение сеанса
  Const EWX_REBOOT = 2 'перезагрузить винду
  Const EWX_SHUTDOWN = 1 'завершить работу винды

Вот пример, при нажатии кнопки комп перезагружается:

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

Private sub Command1_Click()
  Call ExitWindowsEx(EWX_REBOOT, 0)
End Sub

Вопрос:

А как сделать переяагруяку или выключение компьютера программно (у меня Visual Basic 6.0)?

Ответ:

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

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

uFlags может быть таким:

EWX_REBOOT = 2
Перезагружает компьютер.

EWX_SHUTDOWN = 1
Завершает работу и выключает питание, записывает все файловые буферы на диск, останавливает все работающие системные процессы

Вопрос:

Подскажите как органияовать пауяу, менее 10мс. API-функция Sleep мне не подходит, так как имеет дискретность 10мс (в Win2000). Т.е. с ее помощью можно соядать пауяы 0, 10, 20, 30 мс и т.д., а мне надо дискретност хотя бы в 1мс.

Ответ:

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

В ряд ли удастся создать паузу 1мс: любая команда выполняется больше 1 мс!

Вопрос:

Как в элементе управления Webbrowser органияовать функцию автоскроллинга

Ответ:

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

Лично я для этого использовал в цикле следующую конструкцию :
WebBrowser.Document.Parent.ScrollTo (x,y)
или
WebBrowser.Document.Parent.Scroll (x,y).
Точно не помню, а под рукой нет ни VB, ни MSDN.
Возможно существует более изящное решение, но я его не нашел.

Вопрос:

   нужна помощь: как организовать вложенный N раз цикл, если N заранее неизвестно? (границы у циклов одинаковые)
типа: for i(1)=1 to 10
                 for i(2)=1 to 10
                     .......................
                       for i(N)=1 to 10
                             i(0)=i(1)+i(2)+...+i(N)
                       next i(n)
                      ...............
                 next i(2)
             next i(1)
похоже тут необходима рекурсия? а как реализовать не соображу :-(

Ответ:

Автор ответа: Ильин Алексей

For i=1 To N
  For u=1 To N-i
   i0=i0+u
  Next u
Next i

Примерно так, если я правильно понял задачу.

Вопрос:

   1. Подскажите как в VB нажатием на кнопку открыть документ Microsoft vord, для добавления информации.

2. Нужна консультация! Написал прогу по расчету кое каких данных, эти данные у меня записываются в файл C:\Мои документы\1.Doc: Внимание вопрос? Как мне найти этот файл на диске нажав на кнопку расположенную в моей программе, открыть его в формате Мicrosoft vord для добавления , корректировки данных или печати запустив Microsoft vord не открывая проводник.

3. Подскажите как быть, пишу программу для тестирования эл. сварщиков, столкнулся с такой проблемой: 1. Какой код написать, чтоб на диске найти файл теста с вопросами и ответами, 2. вывести содержимое файла по необходимым TextBoxам, и чтоб программа сама перебирала вопросы и ответы по техт боксам при нажатии на кнопку дальше. Причем так чтоб этот файл можно было корректировать со временем.

4.Люди подскажите! По сл. необходимости пишу тестовую программу. Какой код вписаь чтоб программа могла различать правильные и неправеильные ответы! 2. Каким образом выести текст вопроса в полном объеме в TextBox (при длинном вопросе он показывает только его часть), Причем и варианты ответов написаны в одном файле.

Ответ:

Автор ответа: Ильин Алексей

Public xlwbForms As Workbook
   Set xlwbForms = Workbooks.Open(App.Path & "\PrintForms.xls")
   xlwbForms.Sheets("Kach").Cells.Delete
...
   xlwbForms.Close

Пример работы с книгой Excell с Word почти так же, главное что бы ты понял принцип.

Вопрос:

Нужна консультация, подскажите, как сделать мою форму поверх всех окон.

Ответ:

Автор ответа: Ильин Алексей

Или объявить форму как модальную (конечно если её сделали вы), или воспользоваться объектом Screen.ActiveForm

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

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

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

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

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

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

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