Поздравляю всех космонавтов с праздником!
Читайте!

Книги

	ADO и Visual Basic. Руководство разработчика В книге описано использование технологии доступа к данным (ADO) с помощью основного инструмента разработки приложений Microsoft - Visual Basic 6.0. Из книги вы узнаете, как можно исследовать источники данных при помощи окна Data View, как создавать формы для ввода и запроса данных, используя связанные элементы управления, и подсоединяться к источникам данных со сложной иерархической структурой средствами Data Environment. Далее вы изучите, как можно, используя Data Report, представлять информацию в форме, подходящей для печати, или как следует исполнять некоторые, наиболее широко распространенные задачи, связанные с обработкой данных, используя ADO внутри кода Visual Basic. В последних главах книги рассмотрены дополнительные операции, используемые в коде, в том числе формирование данных, для создания иерархических наборов записей, применение ADO в сети Internet и даже создание собственных источников данных. Чтобы более полно использовать средства ADO для извлечения информации из различных источников, в приложении к книге вы найдете справочник по языку SQL, в котором обсуждаются основы работы с оператором SQL SELECT. Автор: Гандерлой М. Издательсвто: Энтроп, Век Год издания: 2001 Кол-во страниц: 336 Стоимость: 177 р. Формат: 70х100/16 Переплёт: мягкий
	Excel, VBA, Internet в экономике и финансах Книга является руководством по использованию Microsoft Excel, разработке офисных бизнес-приложений средствами VBA и конструированию Web-страниц на базе DHTML и VBScript. Рассматриваются приемы создания отчетной финансовой и экономической документации средствами MS Excel, способы анализа и обработки собранной информации для принятия на ее основе оптимального решения; даются ответы на вопросы, которые возникают у программиста при разработке автоматизированных и интегрированных систем с помощью VBA; описываются особенности конструирования пользовательских элементов управления ActiveX, а также написания Windows-сценариев. Большое внимание уделено принципам создания интерактивных Web-страниц, виртуальных каталогов и магазинов. Книга содержит уникальную коллекцию типичных примеров. Почти каждая глава заканчивается списком упражнений, способствующих закреплению материала Автор: Гарнаев А Издательсвто: BHV - Санкт - Петербург Год издания: 2001 Кол-во страниц: 816 Стоимость: 230 р. Формат: 70х100/16 Переплёт: мягкий
	MCSD. Сертификационный экзамен 70-175. Разработка распределенных приложений на Visual Basic 6.0. Учебный курс (+ CD-ROM) Настоящий учебный курс рекомендован корпорацией Microsoft как официальное пособие для подготовки к экзамену 70-175 «Designing and Implementing Distributed Applications with Microsoft Visual Basic 6.0» по программе сертификации разработчиков программных решений на основе продуктов Microsoft (Microsoft Certified Solutions Developer, MCSD). Эта книга познакомит Вас с основными понятиями, концепциями и методами, необходимыми для разработок распределенных программных решений на базе Visual Basic 6.0. Автор: MCSD Training Kit Издательсвто: Русская Редакция Год издания: 2000 Кол-во страниц: 400 Стоимость: 272 р. Формат: 70х100/1670х100/16 Переплёт: мягкий
	Microsoft Visual Basic 5.0 В книге рассматривается новая пятая версия Microsoft Visual Basic - языка программирования, являющегося фактическим стандартом визуального проектирования приложений. Описываются общие черты Visual Basic, реализованные в нем концепции объектно-ориентированного программирования, среда разработки (IDE). Далее рассматривается объектно-ориентированная модель Visual Basic и доступные разработчику объектные компоненты. Подробно описываются технологии программирования на языке Visual Basic и SQL, отладка и оптимизация кода приложения, вопросы компиляции исполняемых модулей. В последующих главах освещаются практические вопросы построения приложений - работа с текстом и графикой, механизмы доступа и управления данными, работа с внешними базами данных и создание приложений клиент/сервер. Книга предназначена для широкого круга программистов, работающих в области обработки данных и информационных систем. Автор: Шмидт В Издательсвто: ABF Год издания: 1997 Кол-во страниц: 688 Стоимость: 85 р. Формат: 84x108/16 Переплёт: мягкий
	Microsoft Visual Basic 6.0 Нет описания Автор: Лабор В, Макарчук Д Издательсвто: нет данных Год издания: 2001 Кол-во страниц: 160 Стоимость: 60 р. Формат: 70х100/16 Переплёт: мягкий
	Microsoft Visual Basic 6.0. Мастерская разработчика (+ CD-ROM) Книга состоит из 3 частей (34 главы) и предметного указателя. Написанная живо и доходчиво, она позволит освоить множество полезных приемов программирования, в том числе объектно-ориентированного, и научит, как создавать 32-разрядные приложения для Windows 95/98 и Windows NT — от экранных заставок до программ, ориентированных на Интернет. Кроме того, Вы узнаете, как расширить возможности языка за счет функций Win32 API и воспользоваться преимуществами технологии ActiveX. Автор: Джон Кларк Крейг, Джефф Уэбб Издательсвто: Русская Редакция Год издания: 2001 Кол-во страниц: 720 Стоимость: 272 р. Формат: 70х100/16 Переплёт: твёрдый
	VB Script и ActiveX Книга предназначена для разработчиков Web - приложений на языке VBScript, желающих повысить свой профессиональный уровень и стать экспертами в этой области. В ней подробно рассказывается о новых возможностях VBScript, включая использование именованных констант, функций, переменных и коллекций, приводится вся необходимая информация о технологии ActiveX, принципах взаимодействия VBScript и Visual Basic при создании приложений, работающих на сервере. Прочитав эту книгу, вы научитесь использовать звуковые эффекты, создавать анимированную графику, строить формы для ввода данных, узнаете, как с помощью VBScript создать в Web электронный магазин и отслеживать число посетителей и деланные ими покупки. Вы даже сумеете написать увлекательную мультимедийную игру для Web. Автор: Скотт Палмер Издательсвто: Питер Год издания: 1999 Кол-во страниц: 368 Стоимость: 94 р. Формат: 70х100/16 Переплёт: мягкий
	VBA 2000. Самоучитель В книге содержится краткий курс по использованию языка и системы VBA для Word и Excel 2000. Книга предназначена для начинающих программировать в среде Windows 95/98 с использованием в качестве базовых таких объектов Word и Excel, как документы, рабочие книги, листы и так далее. Материала книги достаточно для создания как простых макросов, помогающих автоматизировать рутинную повторяющуюся работу над документами и электронными таблицами, так и для разработки достаточно сложных приложений, обрабатывающих данные в диалоговых окнах, обеспечивающих пользователя самыми современными интерфейсными средствами. Автор: Кузьменко В Издательсвто: Бином Год издания: 2000 Кол-во страниц: 416 Стоимость: 116 р. Формат: 70х100/16 Переплёт: мягкий
	Visual Basic 6 Desktop. Экзамен 70-176 Книги серии `Экзамен – экстерном` представляют собой удобные, сжатые, хорошо структурированные конспекты для подготовки к сдаче сертификационных экзаменов на звание Microsoft Certified Solution Developer. Книга `Visual Basic 6.0 Desktop. Экзамен 70-176` содержит только действительно необходимый материал, типовые вопросы с ответами и пример экзамена. Возможно, некоторые подходы, применяемые автором, покажутся вам не совсем привычными - не удивляйтесь: это не учебник по Visual Basic; организация материала в этой книге призвана максимально облегчить задачу экзаменуемого. Учтите, что в ряде случаев экзаменационные вопросы выходят за рамки тем, отраженных в документации по Visual Basic, а иной раз правильные ответы на них даже входят в противоречие с `официальной` информацией. Автор: Майкл Макдоналд Издательсвто: Питер Год издания: 2001 Кол-во страниц: 608 Стоимость: 123 р. Формат: 60x90/16 Переплёт: мягкий
	Visual Basic 6. Руководство разработчика (+ CD-ROM) Эта книга, написанная известным специалистом и неутомимым пропагандистом Visual Basic, представляет собой прекрасный путеводитель по одному из наиболее популярных визуальных средств разработки Windows-приложений. Подробно освещаются такие ключевые темы программирования на Visual Basic, как проектирование и использование элементов ActiveX, программирование баз данных и разработка Web-приложений. Несомненный интерес представляют главы, посвященные работе с графикой. Большое количество тщательно продуманных примеров облегчает восприятие материала. Подбор материала и стиль изложения делают издание интересным и полезным для программистов разных уровней. Автор: Евангелос Петрусос Издательсвто: BHV, Ирина, SYBEX Inc Год издания: 2000 Кол-во страниц: 1072 Стоимость: 267 р. Формат: 70x100/32 Переплёт: твёрдый

Остальные книги о VB можно найти здесь.

наверх

---

Выравнивание формы относительно экрана

Добавьте 3 CommandButton на форму. Вставьте следующий код

Private Sub Form_Load()
Form1.Top = Screen.Height / 2 - Form1.Height / 2
End Sub
Private Sub Command1_Click()
Form1.Left = 0
End Sub
Private Sub Command2_Click()
Form1.Left = Screen.Width / 2 - Form1.Width / 2
End Sub
Private Sub Command3_Click()
Form1.Left = Screen.Width - Form1.Width
End Sub

наверх

---

Ограничить перемещение одной формы в пределах другой

'Начните новый проект, добавьте в события формы1 (Form1) следующий код

Private Sub Form_Load()
Load Form2
Form2.Show
End Sub

'добавьте еще одну форму (под именем Form2). Вставьте на форму2 следующий код:

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Sub Form_Load()
r = SetParent(Me.hWnd, Form1.hWnd)
End Sub

'Запустите проект на выполнение. Данный код ограничит передвижение второй формы относительно первой формы.



наверх

---

Создать Gradient-форму (с использованием API)

Добавьте 2 CommandButton

Private Type TRIVERTEX
x As Long
y As Long
Red As Integer
Green As Integer
Blue As Integer
Alpha As Integer
End Type
Private Type GRADIENT_RECT
UpperLeft As Long
LowerRight As Long
End Type
Const GRADIENT_FILL_RECT_H As Long = &H0
Const GRADIENT_FILL_RECT_V As Long = &H1
Private Declare Function GradientFillRect Lib "msimg32" Alias "GradientFill" (ByVal hdc As Long, pVertex As TRIVERTEX, ByVal dwNumVertex As Long, pMesh As GRADIENT_RECT, ByVal dwNumMesh As Long, ByVal dwMode As Long) As Long
Private Sub Form_Load()
Me.ScaleMode = vbPixels
End Sub
Private Function LongToUShort(ULong As Long) As Integer
LongToUShort = CInt(ULong - &H10000)
End Function
Private Function UShortToLong(Ushort As Integer) As Long
UShortToLong = (CLng(Ushort) And &HFFFF&)
End Function
Private Sub Command2_Click()
Cls
End Sub
Private Sub Command1_Click()
Dim vert(1) As TRIVERTEX
Dim gRect As GRADIENT_RECT
With vert(0)
.x = 0
.y = 0
.Red = 0&
.Green = &HFF&
.Blue = 0&
.Alpha = 0&
End With
With vert(1)
.x = Me.ScaleWidth
.y = Me.ScaleHeight
.Red = 0&
.Green = LongToUShort(&HFF00&)
.Blue = LongToUShort(&HFF00&)
.Alpha = 0&
End With
gRect.UpperLeft = 1
gRect.LowerRight = 0
'Замените GRADIENT_FILL_RECT_H на GRADIENT_FILL_RECT_V чтобы рисовать вертикальную прорисовку
GradientFillRect Me.hdc, vert(0), 2, gRect, 1, GRADIENT_FILL_RECT_H
End Sub

наверх

---

Создать градиент-форму #2

Этот пример создает Form/Picture Box с фоном, например как в инсталяционной программе
Установите свойство формы AutoRedraw в True.

Sub Gradient(TheObject As Object, ByVal Redval As Long, ByVal Greenval As _
Long, ByVal Blueval As Long, ByVal Direction As Integer)
Dim Step As Integer, Reps As Integer, FillTop As Integer
Dim FillLeft As Integer, FillRight As Integer, FillBottom As Integer
If Direction < 1 Or Direction > 4 Then Direction = 1
FillTop = 0
FillLeft = 0
If Direction < 3 Then
Step = (TheObject.Height / 100)
If Direction = 2 Then FillTop = TheObject.Height - Step
FillBottom = FillTop + Step
FillRight = TheObject.Width
Else
Step = (TheObject.Width / 100)
If Direction = 4 Then FillLeft = TheObject.Width - Step
FillRight = FillLeft + Step
FillBottom = TheObject.Height
End If
For Reps = 1 To 100
If Direction = 2 And Reps = 100 Then FillTop = 0
If Direction = 4 And Reps = 100 Then FillLeft = 0
Redval = Redval - 3
Greenval = Greenval - 3
Blueval = Blueval - 3
If Redval <= 0 Then Redval = 0
If Greenval <= 0 Then Greenval = 0
If Blueval <= 0 Then Blueval = 0
TheObject.Line (FillLeft, FillTop)-(FillRight, FillBottom), RGB(Redval, _
Greenval, Blueval), BF
If Direction < 3 Then
If Direction = 1 Then
FillTop = FillBottom
Else
FillTop = FillTop - Step
End If
FillBottom = FillTop + Step
Else
If Direction = 3 Then
FillLeft = FillRight
Else
FillLeft = FillLeft - Step
End If
FillRight = FillLeft + Step
End If
Next Reps
End Sub
Private Sub Form_Load()
'Поэкспериментируйте над цифрами 200, 100, 300
'Замените "1" на 2, 3 или 4
Gradient Me, 200, 100, 300, 1
'Gradient Picture1, 200, 100, 300, 1
End Sub

Private Sub Form_Resize()
'Положите здесь те же номера, что и выше
Gradient Me, 200, 100, 300, 1
'Gradient Picture1, 200, 100, 300, 1
End Sub

наверх

---

Создание всплывающей панели

У каждого юзера, работающего в операционной системе Windows'98 есть панель задач (это панелька, на которой находится кнопка ПУСК). Некоторые любят в настройках этой панели установить значение "Автоматически убирать с экрана", и тогда панель будет автоматически убираться, когда она не активна. Так вот этот пример покажет, как можно средствами VB создать такую всплывающую справа панельку, подобную панели задач. Проект сырой, то есть вы можете его доработать, как вам заблагорасудится. Если вы что-то измените в этом проекте, дайте мне знать.

Создайте новый проект. Положите на форму компонент Timer. В свойствах формы укажите:
.AutoRedraw = True
.BorderStyle = 0
.MinButton = False
.MaxButton = False
.ShowInTaskbar = False
Вставьте следующий код:

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Type Formsize
Left As Long
Top As Long
Width As Long
Height As Long
End Type

Private Const MaxSize = 50
Private Const MinSize = 1
Private Const Fade = False ' Установите данное значение либо True либо False

Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
Timer1.Interval = 50
Form_Resize
End Sub
Private Sub Form_Resize()
Me.Move Screen.Width - (MinSize * Screen.TwipsPerPixelX), 0, (MaxSize * Screen.TwipsPerPixelX), Screen.Height
Me.Cls
Me.Line (0, 0)-(0, Me.Height), &HFFFFFF
End Sub
Private Sub Timer1_Timer()
Dim a As POINTAPI
Dim Form As Formsize
Dim CurCut As Long

Form.Width = Me.Width / Screen.TwipsPerPixelX
Form.Left = Me.Left / Screen.TwipsPerPixelX
Form.Height = Me.Height / Screen.TwipsPerPixelY
Form.Top = Me.Top / Screen.TwipsPerPixelY
Call GetCursorPos(a)
If a.x >= Form.Left And a.x < Form.Left + Form.Width And a.y >= Form.Top And a.y < Form.Height + Form.Top Then
If Me.Tag <> "0" Then
If Fade = True Then
CurCut = 1
Do Until Me.Left - (CurCut * Screen.TwipsPerPixelX) <= Screen.Width - (MaxSize * Screen.TwipsPerPixelX)
Me.Left = Me.Left - (CurCut * Screen.TwipsPerPixelX)
DoEvents
Loop
Me.Move Screen.Width - (MaxSize * Screen.TwipsPerPixelX), 0, (MaxSize * Screen.TwipsPerPixelX), Screen.Height
Else
Me.Move Screen.Width - (MaxSize * Screen.TwipsPerPixelX), 0, (MaxSize * Screen.TwipsPerPixelX), Screen.Height
End If
Me.Tag = "0"
End If
Else
If Me.Tag <> "1" Then
If Fade = True Then
CurCut = 1
Do Until Me.Left + (CurCut * Screen.TwipsPerPixelX) >= Screen.Width - (MinSize * Screen.TwipsPerPixelX)
Me.Left = Me.Left + (CurCut * Screen.TwipsPerPixelX)
DoEvents
Loop
Me.Left = Screen.Width - (MinSize * Screen.TwipsPerPixelX)
Else
Me.Left = Screen.Width - (MinSize * Screen.TwipsPerPixelX)
End If
Me.Tag = "1"
End If
End If
End Sub

наверх

---

Как перетаскивать форму за любое место

Данный пример покажет вам, как можно перетаскивать форму за любое ее место. Достаточно вставить указанный ниже код, и...

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
Private Declare Sub ReleaseCapture Lib "User32" ()
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
Dim ReturnValue As Long
If Button = 1 Then
Call ReleaseCapture
ReturnValue = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If
End Sub

наверх

---

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

BalloonMessage for MS Agent


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

наверх

---

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

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

Вопросы:

---

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

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

   Как проиграть Gif анимацию.

---

Автор вопроса: Игорь

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

   Набросал такой код:

     hWnd = GetDesktopWindow
     hDC = GetDC(hWnd)
    hPen = CreatePen(0, 1, RGB(255, 0, 0))
     SelectObject hDC, hPen
     GetWindowRect hWnd, lpRect
     lngStep = 10
     For lngI = lpRect.Top To lpRect.Bottom Step lngStep
         MoveToEx hDC, lpRect.Left, lngI, lpPoint
         LineTo hDC, lpRect.Right, lngI
     Next
     For lngI = lpRect.Left To lpRect.Right Step lngStep
         MoveToEx hDC, lngI, lpRect.Top, lpPoint
         LineTo hDC, lngI, lpRect.Bottom
     Next
     ReleaseDC hWnd, hDC

Все типы и апи объявил. Код рисует сетку на рабочем столе, так вот в WIN95 это работает, а WIN98,WIN2K не работает. В чем причина конфуза?

---

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

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

   Как подключиться к интернету без Winsock1.Connect

---

Автор вопроса: Кирилл

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

   Подскажите как на VB 5.0 запустить файл (к примеру doc,xls,rar...),чтоб при этом открывалось связанное с ним приложение (WINWORD.EXE, EXCEL.EXE, WINRAR.EXE) и открывало соответствующий с ним файл (doc,xls,rar...).

---

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

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

   Если есть какой-нибудь *.dll, то как узнать какие в н?м есть функции.

---

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

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

   Как в DirListBox увидеть скрытые папки.

---

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

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

   Где можно скачать описание Function, Sub, Class и т.д. которые есть в библиотеках dll, ocx с примерами. Хотя бы тех которые устанавливаются в месте с VB

---

Автор вопроса: Александр

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

   Какой скрипт вставляется для того,чтобы поситители сайта могли оставлять свои обьявления

---

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

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

   Никто не знает как сделать так, чтобы программа дописывалась сама в себя

---

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

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

   Народ, как вести поиск по базе данных отдельного слова (к примеру, в некоторой строке

   ("фывывф фыв ыф ыф ыф ввыф QWERTY лыфвд")
   
находится слово 'QWERTY', его и надо найти )

---

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

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

   SetMenuItemBitmaps hMenu, GetMenuItemID(GetSubMenu(hMenu, 0), 0), MF_BITMAP, LoadResPicture(101, vbResBitmap), LoadResPicture(101, vbResBitmap)
SetMenuItemBitmaps hMenu, GetMenuItemID(GetSubMenu(hMenu, 0), 1), MF_BITMAP, LoadResPicture(104, vbResBitmap), LoadResPicture(104, vbResBitmap)
SetMenuItemBitmaps hMenu, GetMenuItemID(GetSubMenu(hMenu, 0), 2), MF_BITMAP, LoadResPicture(107, vbResBitmap), LoadResPicture(107, vbResBitmap)

1) Почему при каждом вызове PopupMenu или просто при нажатии на кнопку меню появляются разные картинки, имеющиеся у меня на форме, а не которые надо(из файла ресурсов либо с формы(например:

SetMenuItemBitmaps hMenu, GetMenuItemID(GetSubMenu(hMenu, 0), 2), MF_BITMAP,Picture1(0).Picture),Picture1(0).Picture)))

2)как из файла ресурсов читать: GIF'ы, JPG, EXE? (BMP в 5 раз больше по размеру чем соответстующий ему GIF или JPG)

---

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

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

   Почему не соядается объект функцией GetObject, хотя функция CreateObject работает нормально? Подключаемое приложение написано на VB и имеет тип ActiveX EXE.

---

Ответы:

---

Вопрос:

   У меня у формы BorderStyle=0, как мне программно поменять его на 1 или 2, если написать просто form1.borderstyle=1, то ничего не происходит.

Ответ:

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

Менять стиль(BorderStyle) формы просто присвоением своойству значения нельзя, однако другие элементы поддерживают такие операции.

---

Вопрос:

   У меня у формы BorderStyle=0, как мне программно поменять его на 1 или 2, если написать просто form1.borderstyle=1, то ничего не происходит.

Ответ:

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

Это невозможно сделать, потому что свойство BorderStyle доступно только для чтения во время выполнения, а, следовательно, изменению не подлежит.

---

Вопрос:

   Что такое hwnd. Что можно сделать зная hwnd чужего окна.

Ответ:

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

hWnd является идентификатором окна или кокого-либо объекта.Этот параметр в основном используется при работе с API функциями.

---

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

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

Текст сообщения:

Ваше имя
E-mail для ответа

наверх