VladConn...
ах да, ключевое слово стиль...
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.
32.
33.
34.
35.
36.
37.
38.
39.
Function IsItNumber(ByVal strString As String) As Boolean
'********************************************************
'
' Функция предназначена для того что бы определить
' содержит ли строка только цифры, или нет
'
' Возвращаемые значения
' True - переданная строка содержит только цифры
' False - переданная строка пуста,
' или содержит НЕ только цифры
'
' автор - Nikz(c) nikita.morozov@gmail.com
'********************************************************
'здесь мы объявляем переменную, которая будет использоваться
'для индексирования текущего символа в переданной функции строке
Dim i As Integer
'назначим функции значение по умолчанию
'по умолчанию она будет возврашать False
IsItNumber = False
'проверим, не пустая ли строка...
'ведь пустая строка не может содержать чисел
'если строка пуста, выходим из функции и возвращаем значение
'по умолчанию - False
If strString = "" Then Exit Function
'начинаем бегать по всем символам в переданной строке
For i = 1 To Len(strString)
'если символ с индексом i не входит в последовательность "0123456789"
'значит переданная строка содержит не только цифры
'в этом случае выходим из функции и возвращаем значение
'по умолчанию - False
If InStr( 1 , "0123456789", Mid(strString, i, 1 )) = 0 Then
Exit Function
End If
Next i
'после того как мы убедились, что переданная строка не пуста
'и содержит только цифры, присваиваем функции значение True
'и завершаем выполнение
IsItNumber = True
End Function
я надеюсь ничего страшного в том что комментарии на русском...
VladConn
Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const ES_NUMBER As Long = &H2000&
Private Sub Form_Load()
Dim style As Long
Text1.Text = ""
style = GetWindowLong(Text1.hwnd, GWL_STYLE)
SetWindowLong Text1.hwnd, GWL_STYLE, style Or ES_NUMBER
End Sub
спрашивается, а причем тут овиплокос?
хотя штука интересная, возьму на заметку)
