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

VB.NET-World

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Интернет для бизнеса и не только" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Ноябрь 2000   →
 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
29
30
Автор
Stripped

Статистика

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

Мир программирования на Visual BASIC 5.0 и HTML. Выпуск 9


Служба Рассылок Subscribe.Ru проекта Citycat.Ru
Мир программирования на Visual BASIC 5.0 и HTML
Мой сайт
  главная
  архив
  Memo Ver. 1.2.2
  WIN com 95
  Проекты

Спонсоры
  Городской кот
  Subscribe.Ru   Russian Surf

Ссылки
  VB Streets
  Visual BASIC
  VB: Step by Step
  SnoozeX Design   СообЧа

О подписке
  Статистика
  Подписаться

Кнопки

Рассылка 'Мир программирования на Visual BASIC 5.0 и HTML.'

мы в режиме:

SUPERTOP
Рускоязычный спосор автора рассылки: Напоминаем, что Вы будете получать 10% от дохода каждого привлеченного Вами пользователя. Кроме того, каждый привлеченный Вами пользователь может привлечь для Вас по 3 пользователя второго уровня от которых Вы будете получать по 3% от их дохода. Самый выгодный русский спонсор. Платит за время проведённое вами в сети. При накоплении 300 руб. отсылается по почте чек на ваш адрес Действуют реферал программы. Очень простая форма регистрации. (Очень рекомендую). Регистрация по ссылке.    @LEXis
Несколько слов от автора: Здравия желаю товарищи программеры! :) Попрошу заметить, что количество подписавшихся заметно увеличилось, благодаря вступления моей рассылки в ряды СообЧи (см. в конце рассылки), чему я очень рад. Свои вопросы и предложения направляйте мне на E-Mail. Я обязательно опубликую их в рассылке.
ПРИМЕЧАНИЕ: Выпуски данной рассылки начиная с первого вы сможете прочитать на http://subscribe.ru/archive/comp.design.snoozex/    @LEXis

9.11.2000 Выпуск N9 Обзор ведет @LEXis

 Сегодня в выпуске:

В разделе полезные коды Visual BASIC:
  • Как таскать форму за любое место
  • Как сделать форму поверх других
 В разделе вопросы/ответы:
  • Ответы на вопросы читателей
 Полезные коды Visual BASIC:
  • Как таскать форму за любое место
Подготовте проект, добавив в него форму. 
Добавте в форму:

Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
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 Function ReleaseCapture Lib "user32" () As Long

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)
    Call ReleaseCapture
    Call SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End Sub
  • Как сделать форму поверх других
Подготовте проект, добавив в него форму и модуль.
На форму поместите:
- Кнопку с именем Command1 (Caption = "True")
- Кнопку с именем Command2 (Caption = "False") 
Добавте в модуль:

Public Declare Function SetWindowPos Lib "user32" _
       (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
        ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _
        ByVal cy As Long, ByVal wFlags As Long) As Long
Public Const HWND_NOTOPMOST = -2
Public Const HWND_TOPMOST = -1
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1

Public Sub SetFormPosition(frmHandl As Long, TopPosition As Boolean)
          If TopPosition Then
               SetWindowPos frmHandl, HWND_TOPMOST, 0, 0, 0, 0, _
                            SWP_NOACTIVATE Or SWP_NOSIZE Or SWP_NOMOVE
           Else
               SetWindowPos frmHandl, HWND_NOTOPMOST, 0, 0, 0, 0, _
                            SWP_NOSIZE Or SWP_NOMOVE
           End If
End Sub

Добавте в форму:

Private Sub Command1_Click()

call SetFormPosition(Me.hwnd, True)

End Sub

Private Sub Command2_Click()

call SetFormPosition(Me.hwnd, False)

End Sub

 Вопросы / Ответы
  • Вопрос от автора
    Как сделать чтобы в текстовое поле можно было вводить только цифры и пробелы? Просьба ответить на x-alexis@mail.ru

Программы разработанные автором на VB 6.0

  • Inet TIMER Ver. 1.0
    Блокирует доступ к интернету для "чайников" или просто кто очень много висит в нем. Очень "хорошие" настройки.
    требуется библиотека MSVBVM60.dll

Источник: SnoozeX Design


Код моей кнопки:

<!-- SnoozeX Design "PLAY" -->
<a href="http://snoozex.boom.ru" TARGET="_blank"><BR><IMG SRC="http://snoozex.boom.ru/new.gif" WIDTH=88 HEIGHT=31 BORDER=1 ALT="SnoozeX Design"></a>
<!-- SnoozeX Design "END" -->
Copyright © 2000 @LEXis
Design by SnoozeX Design
@LEXis WEB SITE
Email : snoozex@mail.ru
ICQ uin : 14912636
Подписаться на рассылку Кувалина Алексея
Мир программирования на Visual BASIC и HTML
Рассылка является составной частью проекта "СообЧа - СООБщество ЧАйников"
  • Сайт СообЧа: http://www.soobcha.com/
  • Сайт SnoozeX DESIGN: http://snoozex.boom.ru/
    • Подписаться на СообЧу
    (С) 2000 СообЧа (СООБцество ЧАйников)
    Спасибо за внимание. Ваш @LEXis
    http://subscribe.ru/
    E-mail: ask@subscribe.ru
    В избранное