Отправляет email-рассылки с помощью сервиса Sendsay

Русский_Проект: Изучение Visual Basic

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 3.883 RSS
←   Февраль 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusproject.narod.ru/
Открыта: 06-01-2001

Автор
Русский_Проект

Статистика

3.883 подписчиков
0 за неделю
←   Все выпуски   →

Русский_Проект: Изучение Visual Basic


Служба Рассылок Subscribe.Ru
Русский_Проект: Рассылка Вступление
Задачки
Советы
Функции Windows API

Вступление

Здравствуйте! 13 февраля прошла презентация новой версии Visual Basic.NET. Лично я решил отложить знакомство с этим продуктом на год-полтора. А вы?

Задачки

Рубрика для любителей решать задачки.
Условие.
Дается натуральное шестизначное число. Подсчитать сумму и произведение цифр этого числа
Решения задачи можете присылать по адресам vbasic@rambler.ru или wwwind@aport.ru

Советы

Управление кнопками Свернуть/Развернуть на MDI-форме

В отличие от других форм MDI-формы не имеют свойств MinButton и MaxButton, с помощью которых можно включать или отключать кнопки Minimize и Maximize на форме. Если добавить следующий код к событию Load родительской MDI-формы, то он отключит обе эти кнопки. Если же вы хотите отключить только одну из них, то поставьте знак комментария у соответствующей строки: 

Private Sub MDIForm_Load()
  Dim lWnd As Long
  lWnd = GetWindowLong(Me.hWnd, GWL_STYLE)
  lWnd = lWnd And Not (WS_MINIMIZEBOX)
  lWnd = lWnd And Not (WS_MAXIMIZEBOX)
  lWnd = SetWindowLong(Me.hWnd, GWL_STYLE, lWnd)
End Sub
Затем введите следующий код (который включает объявления необходимых API- функций) в текст самого BAS-модуля: 
Option Explicit
' описание API-функций и констант
Public Declare Function SetWindowLong Lib _
     "user32" Alias "SetWindowLongA" (ByVal _
     hWnd As Long, ByVal nIndex As Long, ByVal _
     dwNewLong As Long) As Long
Public Declare Function GetWindowLong Lib _
     "user32" Alias "GetWindowLongA" (ByVal _
    hWnd As Long, ByVal nIndex As Long) As Long
Public Const WS_MINIMIZEBOX = &H20000
Public Const WS_MAXIMIZEBOX = &H10000
Public Const GWL_style="(-16)"

Функции API

Функция ShowScrollBar

Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long

ShowScrollBar показывает или скрывает заданную полосу прокрутки. Данная функция не позволяет работать с полосой прокрутки, а только отображает ее. Для работы с полосой прокрутки требуется обработка соответствующих сообщений

Параметры

hWnd
Дескриптор полосы прокрутки или окна, имеющего стандартную полосу прокрутки
wBar
Значения, определяющие тип и видимость полос прокрутки
SB_BOTH = 3 (Показывает или прячет стандартные полосы прокрутки у окна)
SB_CTL (Показывает или прячет элемент управления Полоса прокрутки. Параметр hWnd должен быть дескриптором этого элемента)
SB_HORZ = 0 (Показывает или прячет горизонтальную полосу прокрутки у окна) SB_VERT = 1 (Показывает или прячет вертикальную полосу прокрутки у окна)
bShow
Определяет статус видимости полосы прокрутки. Если параметр TRUE, то полоса прокрутки видима, иначе - невидима

Пример 

' ' Выводим вертикальную полосу прокрутки
' на форме Form1


ShowScrollBar Me.hwnd, SB_VERT, True
Полный текст с описанием этой функции вы найдете в справочнике по функциям Windows API

Не стесняйтесь, высылайте ваши предложения по адресу vbasic@rambler.ru
Посетите сайт Русский_Проект, где вы найдете другую интересную информацию
Давайте делать рассылку вместе! Удачи!

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное