Имя пользователя:
Пароль:
 

Название темы: Visual Basic
Показать сообщение отдельно

Ветеран


Сообщения: 3320
Благодарности: 916

Профиль | Отправить PM | Цитировать


Хочет что б был или Else или If но никак не Else If - такого в Бейсике нет
Есть два варианта решения ошибки

Private Sub Command1_Click()

If Combo1 = xxx Then
z = FreeFile
Open "xxx.txt" For Input As z
Text2.Text = Input(LOF(z), z)
Close z

Else
z = FreeFile
Open "xx.txt" For Input As z
Text2.Text = Input(LOF(z), z)
Close z
End If

End Sub

или

Private Sub Command1_Click()

If Combo1 = xxx Then
z = FreeFile
Open "xxx.txt" For Input As z
Text2.Text = Input(LOF(z), z)
Close z
End If

If Combo1 = xx Then
z = FreeFile
Open "xx.txt" For Input As z
Text2.Text = Input(LOF(z), z)
Close z
End If

End Sub

Первий вариант годитса, когда у тебя регламентированое одно условие (If Combo1 = xxx), а всё другое не интересует.
Второй когда под регламентом два условия If Combo1 = xxx и Combo1 = xx тоесть если в комбо будет прописано не xxx и не xx то никаких операций производитса не будет.

Отправлено: 02:28, 03-12-2005 | #2

Название темы: Visual Basic