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

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

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 4.065 RSS
  Август 2001   →
 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
31


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


Сайт рассылки: http://vbnet.ru
Открыта: 31-07-2001

Автор
Павел Сурменок

Статистика

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

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


Служба Рассылок Subscribe.Ru проекта Citycat.Ru

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

VB Студия VB Line
Голосование:

Ваш голос отсылается по E-mail владельцу сайта, после чего голоса анализируются и на отдельной странице выводятся результаты.

Какой версией Visual Basic Вы пользуетесь?
VB 3
VB 4
VB 5
VB 6

Установлен ли у Вас Service Pack? Если да, то какой?
Нет
SP1
SP2
SP3
SP4
SP5

Рассылки Subscribe.Ru
Новости сайта VBline и советы программистам
Содержание выпуска

Новости сайта VB Студия

  • 10 августа 2001 года - Обновление коснулось только статей. Но зато сколько статей! Добавил статьи:
    Visual Basic позволяет использовать Текстовый файл, как база данных.
    Автор: М. Эскин
    SQL - Язык запросов: Простое использование оператора SELECT
    Автор: Сартин Вячеслав
    Введение в ADO+ (FAQ)
    Автор: Сартин Вячеслав
    Использование ADODC совместно с DBGrid
    Автор: Tower


    наверх

    Новости сайта VB Line

       11 августа 2001 г. Сегодня я немного изменил сайт. Во-первых, изменено меню, появился архив рассылки и раздел, посвященный моим shareware программам. Пока в этом разделе только один OCX, но зато какой! Некоторые функциональные изменения в ActiveX и Примеры, теперь, при добавлении нового контрола или примера я буду ставить дату, это будет полезно, так как Вам не придётся искать новые поступления в разделе. Во-вторых, самое главное, убрана реклама сети TBN, она Вам надоела? Мне тоже. Теперь только реклама материалов самого сайта. В Статьи добавил свою новую работу "Использование Microsoft Agent в Visual Basic". И ещё, "на закуску", новый контрол (точнее новая версия старого OCX) Дмитрия Авакова - прозрачные контролы. Смотрите в ActiveX.

    наверх

    Переводит текст, набранный в одной раскладке в другую. Например из Ghbdtn получить Привет.

    Option Explicit

    Private Function Replace_letters(InputStr As String, _
    sim1 As String, sim2 As String) As String
    enStr = "@#$^&QWERTYUIOP{}ASDFGHJKL:"
    enStr = enStr & Chr(34) & "ZXCVBNM<>?"
    enStr = enStr & "qwertyuiop[]asdfghjkl;'zxcvbnm,./"
    enStr = enStr & Chr(34) & "№;:?ЙЦУКЕНГШЩЗХЪФЫВАПРОЛ"
    enStr = enStr & "ДЖЭЯЧСМИТЬБЮ,йцукенгшщзхъфывапролдэжячсмитьбю."
    rusStr = Chr(34) & "№;:?ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ,"
    rusStr = rusStr & "йцукенгшщзхъфывапролджэячсмитьбю."
    rusStr = rusStr & "@#$^&QWERTYUIOP{}ASDFGHJKL:" & Chr(34)
    rusStr = rusStr & "ZXCVBNM<>?qwertyuiop[]asdfghjkl;'zxcvbnm,./"
    Dim i As Integer, pos As Integer, temp As String
    For i = 1 To Len(InputStr)
    temp = Mid$(InputStr, i, 1)
    pos = InStr(1, sim1, temp, vbBinaryCompare)
    If pos <> 0 Then
    Replace_letters = Replace_letters & Mid$(sim2, pos, 1)
    Else
    Replace_letters = Replace_letters & temp
    End If
    Next i
    End Function

    наверх

    Следите за объявлением типов!

    Одна из наиболее опасных ошибок в Visual Basic связана с объявлением типов данных. 

        Во-первых, мощные средства языка позволяют обходиться вообще без объявления типов данных. К чему это может привести? Например Вы ошиблись в написании имени переменной и вместо yCurent написали yCurrent. Что у Вас получиться? Две совершенно разные переменные и Вам придется провести несколько часов в "отладочном окне" прежде чем Вы это обнаружите. Поэтому мой совет: всегда объявляйте переменные, а в начале каждого модуля и формы пишите Option Explicit.

        Во-вторых, одна из наиболее опасных ошибок возникает при попытке объявить несколько переменных в одной строке.

    Dim x, y, z as Boolean

        Вы думаете что все три переменные получили тип Boolean? Ничего подобного, x, y имеют тип Variant!!! И у Вас в программе снова "глюки"!


    наверх

    Как показать песочные часы

    Если Вам необходимо сделать действие, во время которого пользователю не "рекомендуется" пользоваться мышью (например сделать расчеты), то лучше всего сменить курсор мыши на песочные часы:

    'Процедура служит для смены кусора на песочные часы
    'и восстановления его после вторичного вызова
    Public Sub HourGlass(obj As Object)
        Static ordMouse As Integer
        Static fOn As Boolean

        On Error Resume Next
        'если повторный вызов
        If Not fOn Then
            ordMouse = obj.MousePointer 'запомнить старый
            obj.MousePointer = vbHourglass 'установить новый
            fOn = True 'запомнить, что уже вызывали
            'Если нужно восстановить
        Else
            obj.MousePointer = ordMouse 'восстановить курсор
            fOn = False 'запомнить, что уже восстановили
        End If
    End Sub


    наверх

    Как разместить окно "поверх" всех

    Для размещения окна поверх всех окон в системе Windows можно использовать нижеследующую функцию:

    'Используется для размещения окна
    'поверх всех окон Windows
    Public Sub OnTopFrame(frmTop As Form, bSetOnTop As Boolean)
        If bSetOnTop = True Then
        ' Размещать окно поверх остальных
    SetWindowPos frmTop.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or         SWP_NOMOVE Or SWP_NOACTIVATE
        Else
           ' Не размещать окно поверх остальных
    SetWindowPos frmTop.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or     SWP_NOMOVE Or SWP_NOACTIVATE
        End If
    End Sub


    наверх

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

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



    Вопросы:

    Пока вопросов нет.



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

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

    наверх


    		•

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

    		 Сурменок Павел и Шатрыкин Иван
    http://subscribe.ru/
    E-mail: ask@subscribe.ru     		Отписаться Рейтингуется SpyLog
    В избранное