VPF::Перевод . в , - Форум программистов

Гость_Старуха

Дата 2.12.2004, 13:04 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Private Sub CommandButton1_Click()
Dim str As String, str1 As String, i As Integer, k As Integer
str = TextBox1.Text
strLen = Len(str)

For i = 1 To strLen
str1 = Mid(str, i, 1)
If Asc(str1) = 44 Then
k = k + 1

MsgBox "Ура!Запятая" & k

End If
Next i

End Sub

~FoX~

Дата 2.12.2004, 15:30 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 10
Всего: 68

2Старуха
Изврат.

--------------------

…множественность никогда не следует полагать без необходимости…

Staruha

Дата 2.12.2004, 17:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 2
Всего: 27

Почему?

--------------------

Возмездие настигнет

cardinal

Дата 3.12.2004, 02:14 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

Старуха, потому, что когда ввели уже поздно проверять, где и сколько запятых...

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

Viton

Дата 4.12.2004, 14:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 3.11.2004

Репутация: нет
Всего: нет

Спасибо.
Вот код котор я усовершенствовал и что мне нужно было если будут другие варианты то пишите.

Код


Public Function KeyFilter(i As Integer, s As String) As Integer
Select Case i
Case 48 To 57 '' Числа от 0 до 9
KeyFilter = i
Case 8 '' Клавиша Backspace
KeyFilter = i
Case 44 '' Клавиша запятой с проверкой ее предыдущего ввода
If InStr(1, s, ",") = 0 Then
KeyFilter = i
Else
Beep
KeyFilter = 0
End If
Case 9
KeyFilter = i
Case Else
Beep
KeyFilter = 0
End Select
End Function



Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 46 Then KeyAscii = 44
KeyAscii = KeyFilter(KeyAscii, Text1.Text)

End Sub

Это сообщение отредактировал(а) Viton - 4.12.2004, 14:38

cardinal

Дата 4.12.2004, 15:31 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

А помоему если убрать все строки

Код


KeyFilter = 0

то ничего не изменится? smile

А вообще если речь идет о "фильтре", то загляни сюда:
http://forum.vingrad.ru/index.php?showtopic=27659
Получится гораздо изящней. smile

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »