РАССЫЛКА САЙТА WWW.IGORYKSOFT.NAROD.RU

ВЫПУСК 2

     Приветствую всех кто читает сейчас эту рассылку!

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

• Обновления на сайте;

• Как в HTML-документе сделать выравнивание по ширине?

• Как выполнить подпрограмму с помощью "горячих клавиш"?

• Как избежать ошибки при обращении к файлу?

• Вопрос-Ответ.

Обновления на сайте:

• Добавлена программа для преобразования чисел из одной системы счисления в другую. Сделана в VB 6.0. Находится по адресу: http://www.igoryksoft.narod.ru/myprog/value.zip

Как в HTML-документе сделать выравнивание по ширине?

     Для выравнивания текста по ширине в HTML-документе, нужно вставить следующий код:

<p align=justify>Текст</p>

где Текст - текст, который нужно выровнять.

Как выполнить подпрограмму с помощью "горячих клавиш"?

     В некоторых программах на Command Button расположена надпись с какой-либо подчеркнутой буквой, и при нажатии на эту букву выполняется то же самое, что и при нажатии на этот объект. Этот же эффект можно реализовать на VB, но для начала разберемся что к чему.

     У Command Button есть свойство Caption - это то, что отображается на самом объекте. Вставив в это свойство знак &, мы в результате получим подчеркивание следующего символа - клавишу быстрого ("горячего") доступа.

     Теперь для реализации кода нужно вставить объект: Command Button (с любым именем) и присвоить свойству Form1.KeyPreview=True (этим мы будем передавать все нажатые клавиши в событие Form_KeyPress). И, наконец, вставляем код.

Function RunKey(Key As Integer)
On Error Resume Next
Dim Object As Object
Dim A As Integer
For Each Object In Me.Controls
A = InStr(Object.Caption, "&")

'Узнаем номер символа &.

If A > 0 Then
If UCase(Mid(Object.Caption, A + 1, 1)) = UCase(Chr(Key)) Then
Object.Value = True

'Присвоив значение True, мы активизируем событие Click
Exit Function
End If
End If
Next
End Function

Private Sub Command1_Click()
MsgBox "Вы вызвали выполнение этой подпрограммы"
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
RunKey (KeyAscii)

'Вызываем функцию, и передаем ей значение нажатой клавиши
End Sub

     Этот код будет работать, при условии, что в Command1.Caption только один раз встречается символ &, в противном случае нужно будет изменить код нахождения символа - найти не первый встречаемый символ, а последний, т.е. вместо

A = InStr(Object.Caption, "&")

поставить

For i = Len(Object.Caption) - 1 To 1 Step -1
A = InStr(i, Object.Caption, "&")
If A > 0 Then Exit For
Next

     Так, что выбирайте. И еще при нажатии на Alt+подчеркнутый символ точно также будет активизироваться событие Click.

Как избежать ошибки при обращении к файлу?

     Иногда нужно обратиться к файлу, используя три объекта: Drive (Диск), Dir (Каталоги) и File (Файлы). Drive.Drive возвращает значение равное "?:\", где ? - буква диска. Dir.Path возвращает значение равное "?:\?", где в первом случае ? - буква диска, а во втором - каталог. File.Filename же возвращает имя файла.

     Если нужно открыть файл на корневом каталоге (?:\), то делается это следующим образом:

open Dir.Path & File.Filename (например, for append as 1)

      Но ежели нужно открыть файл из каталога, то используют следующий код:

open Dir.Path & "\" & File.Filename (например, for append as 1)

      Как предугадать что использовать? Конечно, можно вставить код, который бы проверял место расположение файла и т.п., но можно воспользоваться следующим кодом:

open Dir.Path & " " & File.Filename (например, for append as 1)

     Оказывается, все очень просто - нужен всего лишь один пробел между каталогом и файлом! Этот способ будет работать и с командой Shell (запуск файла), и с другими.

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

    Вопросов по-прежнему нет, а жаль... Почта для вопросов прежняя

   На этом все.

Пишите на почту: igoryksoft@yandex.ru. Заходите на сайт: www.igoryksoft.narod.ru

При копировании представленных здесь материалов, обязательно делать ссылку на www.igoryksoft.narod.ru!