помогите!!!

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Xaker_S
Новичок
Новичок
 
Сообщения: 33
Зарегистрирован: 09.04.2003 (Ср) 3:28
Откуда: Severomorsk

помогите!!!

Сообщение Xaker_S » 22.04.2003 (Вт) 15:03

:( Народ помогите!!!
Требуется вот что:
даны 2 текстовых поля. Вот такое условие.
if Текст1.Text=x and Текст2.Text=x then....
end if
x- какое то число.Например от 1 до 10.
Приходится делать так:
if Текст1.Text=1 and Текст2.Text=1 then....
end if
if Текст1.Text=1 and Текст2.Text=2 then....
end if
if Текст1.Text=2 and Текст2.Text=1 then....
end if
if Текст1.Text=2 and Текст2.Text=2 then....
и т.д. до 10. Получается прогрессия.
Короче нужно минимализировать код.
Как сделать?

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 22.04.2003 (Вт) 15:15

Читаем правила. Еще одно неинформативное название темы и получишь уже замечание а не предупреждение.



По поводу минимизации кода:



if clng(text2.text) = clng(text1.text) then

select case clng(text1.text)

case 1:

case 2:

end select

end if

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 22.04.2003 (Вт) 15:31

Код: Выделить всё
Function ValueIn(ByVal Value As Variant, ParamArray Values() As Variant) As Boolean
Dim I As Long
For I = LBound(Values) To UBound(Values)
  If Not IsMissing(Values(I)) Then
    If Value = Values(I) Then
      ValueIn = True
      Exit For
    End If
  End If
Next I
End Function

И например так:
Код: Выделить всё
If ValueIn(CLng(Text1.Text),1,2,3,4,5,6,7,8,9,10) Then
   MsgBox "Число входит в диапазон"
Else
   MsgBox "Число входит в диапазон"
End If
Lasciate ogni speranza, voi ch'entrate.


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot и гости: 58

    TopList