Архив рассылки сайта 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

Дата: 19.10.2002 05:52 | Раздел: Полезные программы | Автор: Малинин Алексей, Павлова Ольга

Интеграция VBA в бизнес-приложения на Visual Basic 6.0 - Практически все пользователи имеют дело с офисными пакетами Microsoft, причем многие из них адаптируют эти продукты в соответствии со спецификой своих конкретных задач, используя внутренний макроязык. При создании собственных приложений вам наверняка хотелось бы, чтобы конечный пользователь мог щелчком мыши открыть среду VBA и программировать там так же, как в пакетах Microsoft Office. Но как это реализовать?

Дата: 17.10.2002 06:03 | Раздел: ActiveX контролы | Автор: Селюк Степан

Русификатор Visual Basic 6. Версия номер 2. - Эта программа полностью переведёт меню (причём это не то, что меню переведены каким-нибудь переводчиком, они переведены исключительно автором) в редакторе Visual Basic, также переведено 90% диалогов, плюс исправлены ошибки допущенные в первой версии!

Дата: 15.10.2002 10:56 | Раздел: ActiveX контролы | Автор: Соколов Алексей

FontView - Вы видели выпадающий список шрифтов в CorelDraw? Тут что - то подобное. При проходе мышью над названием шрифта появляется окошко ToolTip с его начертанием.

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

наверх

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

наверх

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

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

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

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

наверх

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

BalloonMessage for MS Agent

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

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

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

наверх

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

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

Вопросы:

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

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

Вопрос 1: Как сделать так,чтобы программу невозможно было выгрузить, а если её выгрузить, то запускалась бы копия программы.
Вопрос 2: У меня есть программа. Как сделать так, чтобы она брала данные из внешнего файла (например .txt) и загружала их оттуда (В этом файле должны находиться переменные вместе с данными)

Автор вопроса: МАЯК

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

Хелп плиз, как зделать так, чтоб моя программа повторно не запускалась а при попытке повторного запуска выдала сообщение типа "программа уже запущена"

Автор вопроса: МАЯК

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

   Люди, подскажите пожалуйста, ломаю голову какой код вписать, чтоб при нажатии на кнопку, программа проверила наличие файла в директории и при его наличии в строке имя файла отобразилось имя того же файла только с еденицей, при наличии файла с еденицей предложила вариант с двойкой, вобщем как в WORDE, а при попытке сохранить файл под имеющемся именем, выдала системное сообщение "файл с таким именем уже есть, хотите его заменить?. Я сделал так а дальше незнаю....

Private Sub ShowSave()
Объявил две переменные файл_пом и Файл_библиотека.
On Error GoTo ErrorHandler
CommonDialog1.CancelError = True
CommonDialog1.Filter = "All Files (*.*)|*.*|Word Documents (*.doc )|*.doc |Text Files (*.txt)|*.txt|"
CommonDialog1.FilterIndex = 3
CommonDialog1.InitDir = "D:\DOCUMENTS"
'CommonDialog1.Flags = cdlOFNFileMustExist Or cdlOFNAllowMultiselect
CommonDialog1.Action = 2

Файл_библиотека = App.Path + "\Sveden1.ph" ' файл *.bib
*-*-*-*-*-*-**-*-*-*-*-*-*-*-*-*-*
файл_пом = CMDialog1.FileName 'придаем переменной файл_пом, адрес места
'расположения файла с данными адреса расположения файла *.bib
If Dir(файл_пом) = "" Then
1

'***********

'Здесь мой код.
'**********

Exit Sub
ErrorHandler:
If Err.Number = 32755 Then Exit Sub
Else
If MsgBox("Заменить существующий файл" & " " & " " & файл_пом, vbYesNo + vbExclamation, "Выход?") = vbYes Then
GoTo 1001
Else
Exit Sub
End If
End Sub


End Sub

'.FileName ( .Font, .Color, .FromPage, .ToPage, .Copies, .Orientation)

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

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

Как мне по имеющемуся пути осуществить перебор всех файлов, находящихся в данной конкретной папке (исключая подпапки).
Есть ли такая вояможность в VB6 или какими функциями API необходимо польяоваться?

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

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

Что такое ScaleWidth и ScaleHeight? Чем отличаются от Width и Height?

Автор вопроса: Сергей

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

1. Как из ВБ 6 открыть мои док, или например нажать кнопку в окне установки связи с Интернет
2. У меня на вэб-странице есть ВБ 6-форма с окном Text, в который можно вписывать текст.Как добавить этот текст в мою форму на сервере, чтобы при новом открытии страницы этот текст сохранялся

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

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

Соядание и редактирование явуков VB6.
Ау, светлые головы, откликнитесь!

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

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

Подскажите как в VB написать подобие ping(пинга) через API.

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

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

Как записывать в реестр DWORD параметр, и читать его.
Напишите пожалуйста пример.

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

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

Работаю с Win 5.0
у меня программа ассоциирована к расширению .zzz
Я хочу уянать полный путь к программе которая накодится в командной строке. Я делаю это с помощью

Private Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineA" () As String

Под win9x все нормально,но под NT происход крах программы. Есть ли артальнотива это функции или другой способ яделать это ?

Автор вопроса: Eugene KRUGLOFF

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

Почему в VB6 на WinXP не работают такие функции API как - ChangeDisplaySettings и ExitWindowsEx?
Тот же код, но на ос Win9X, работает.

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

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

Как сделать так,чтобы при перетаскивании объекта в TREEVIEW, ветки над которыми проходит курсор мыши, выделялись и раскрывались.

Ответы:

Вопрос:

вопрос по RichTextBox
Как яделать так, что бы когда нажимали на Shift+Insert вставка была неформатированная т.е. просто текст

Ответ:

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

Попробуй в процессе вставки присвоить буферу тип String, тогда вставятся только символы (без форматирования цветом, шрифтом, ...)

Вопрос:

Как при работе с DAO новую запись в таблицу добавить не в конец таблицы, а в нужное мне место.

Ответ:

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

Может попробовать после добавления в конец таблицы применить сортировку ...

Вопрос:

Как в VB яавершить работу приложения Windows?

Ответ:

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

Либо с помощью API, либо послать приложению клавиши Alt+F4

Вопрос:

Как скопировать из папки все файлы одного расширения?

Ответ:

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

Надо попробовать через FSO (file systen object) почитай доки в инете точно найдеш !

Вопрос:

Скажите пожалуйста каким образом сделать переворот картинки по вертикали (горизонтали), делаю в PictureBox, верно ли?

Ответ:

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

Есть сайт www.vbrussian.ru кажется так, дак на нем есть пример поищи !

Вопрос:

   Есть игрушка для моей дочки, Clifford называется (может кто знает), про собаку, которая учит жизни. Так вот, эта собака не хочет заводиться если разрешение экрана более чем 800х600. Когда я на работе, дочка не может поиграть, а учить как менять разрешение экрана, я не хочу (ей 5 лет - рано еще).
Так вот, собрался я наваять минипрогу на ВБ которая меняет разрешение экрана, запускает игрушку, а после завершении игры, восстанавливало разрешение, и столкнулся с проблемой: так как же из ВБ менять разрешение экрана?
Кстати, ОС Win_XP, так что желательно чтоб ответы подходили под XP.

Ответ:

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

Этот код выдран из апигуарда. Разбирайся и ваяй. Выполнение проги команда shell кстати в ХР есль совместимость так что ставь 9х и живи спокойно. Короче пока !

Option Explicit
Const WM_DISPLAYCHANGE = &H7E
Const HWND_BROADCAST = &HFFFF&
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Const CCDEVICENAME = 32
Const CCFORMNAME = 32
Const DM_BITSPERPEL = &H40000
Const DM_PELSWIDTH = &H80000
Const DM_PELSHEIGHT = &H100000
Const CDS_UPDATEREGISTRY = &H1
Const CDS_TEST = &H4
Const DISP_CHANGE_SUCCESSFUL = 0
Const DISP_CHANGE_RESTART = 1
Const BITSPIXEL = 12
Private Type DEVMODE
     dmDeviceName As String * CCDEVICENAME
     dmSpecVersion As Integer
     dmDriverVersion As Integer
     dmSize As Integer
     dmDriverExtra As Integer
     dmFields As Long
     dmOrientation As Integer
     dmPaperSize As Integer
     dmPaperLength As Integer
     dmPaperWidth As Integer
     dmScale As Integer
     dmCopies As Integer
     dmDefaultSource As Integer
     dmPrintQuality As Integer
     dmColor As Integer
     dmDuplex As Integer
     dmYResolution As Integer
     dmTTOption As Integer
     dmCollate As Integer
     dmFormName As String * CCFORMNAME
     dmUnusedPadding As Integer
     dmBitsPerPel As Integer
     dmPelsWidth As Long
     dmPelsHeight As Long
     dmDisplayFlags As Long
     dmDisplayFrequency As Long
End Type
Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean
Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwFlags As Long) As Long
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, ByVal lpInitData As Any) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Dim OldX As Long, OldY As Long, nDC As Long
Sub ChangeRes(X As Long, Y As Long, Bits As Long)
     Dim DevM As DEVMODE, ScInfo As Long, erg As Long, an As VbMsgBoxResult
     'Get the info into DevM
     erg = EnumDisplaySettings(0&, 0&, DevM)
     'This is what we're going to change
     DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL
     DevM.dmPelsWidth = X 'ScreenWidth
     DevM.dmPelsHeight = Y 'ScreenHeight
     DevM.dmBitsPerPel = Bits '(can be 8, 16, 24, 32 or even 4)
     'Now change the display and check if possible
     erg = ChangeDisplaySettings(DevM, CDS_TEST)
     'Check if succesfull
     Select Case erg&
         Case DISP_CHANGE_RESTART
             an = MsgBox("You've to reboot", vbYesNo + vbSystemModal, "Info")
             If an = vbYes Then
                 erg& = ExitWindowsEx(EWX_REBOOT, 0&)
             End If
         Case DISP_CHANGE_SUCCESSFUL
             erg = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY)
             ScInfo = Y * 2 ^ 16 + X
             'Notify all the windows of the screen resolution change
             SendMessage HWND_BROADCAST, WM_DISPLAYCHANGE, ByVal Bits, ByVal ScInfo
             MsgBox "Everything's ok", vbOKOnly + vbSystemModal, "It worked!"
         Case Else
             MsgBox "Mode not supported", vbOKOnly + vbSystemModal, "Error"
     End Select
End Sub
Private Sub Form_Load()
     Dim nDC As Long
     'retrieve the screen's resolution
     OldX = Screen.Width / Screen.TwipsPerPixelX
     OldY = Screen.Height / Screen.TwipsPerPixelY
     'Create a device context, compatible with the screen
     nDC = CreateDC("DISPLAY", vbNullString, vbNullString, ByVal 0&)
     'Change the screen's resolution
     ChangeRes 640, 480, GetDeviceCaps(nDC, BITSPIXEL)
End Sub
Private Sub Form_Unload(Cancel As Integer)
     'restore the screen resolution
     ChangeRes OldX, OldY, GetDeviceCaps(nDC, BITSPIXEL)
     'delete our device context
     DeleteDC nDC
End Sub

Вопрос:

Есть такая проблема. Работаю с DirectX весь код пишу сам, никакими контролами не пользуюсь. Ставлю простой кубик и двигаю его программно, если он подвигается очень близко к позиции камеры, тоесть к экрану, начинает жутко тормозить 1fps. В играх же целый уровень нетормозит. Подскажите что делать. И если кто нибудь знает где взять описание этих функций, желательно с примерами.

Ответ:

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

Скажу одно реализовать работу с 3д графикой на VB - ЛАЖА с большой буквы Б. Бери учебник по c++ либо DarkBasic он попроще !

Вопрос:

Как на VB 6.0 под Windows 98/XP сделать так, чтобы программа добавляла сама себя в реестр или в автозагрузку?

Ответ:

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

С разделе примеры на сайте www.rusproject.narod.ru есть исходник проги дабавления и убивания из автозагрузки !

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

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

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

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

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

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

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