Visual Basic

[WR259Leonid]

Какая там сейчас последняя версия?

Где бы взять? На русском языке :helpsmilie: желательно.

[Dronas]

http://msdn.microsoft.com/vbasic/

 

Там же можно закачать Express-овую версию VisualStudio ;) (~2 Gb)

[WR259Leonid]

чет до линка не добраться...

[Dronas]

Это http://msdn.microsoft.com/vstudio/express/vb/download/ ?

[WR259Leonid]

Select case

 

Уж простите за офтоп, но...

...Где ошибка?

 

Есть форма.

В ней несколько тектовых полей.

В первое ввожу значение (допустим 7801)

Нажимаю стартовую кнопку

В остальных текстовых полях должны появится соответствующие значения для 7801

Если я ввожу 7802, то в остальных полях - значения для 7802

 

код кнопки:

Private Sub Command1_Click()

Select Case X

Case X = 7801

Text2.Text = "значение 1 для 7801"

Case X = 7802

Text2.Text = "значение 1 для 7802"

End Select

End Sub

У меня при нажатии на кнопку появляется "Значение 1 для 7801" и все.

Ввожу другое значение в первое тектовое поле - ничего не работает.

 

где косяк?

:book:

[Dmut]

вроде как нужно так

Private Sub Command1_Click()
Select Case X
Case 7801

[indent]Text2.Text = "значение 1 для 7801"[/indent]


Case 7802


[indent]Text2.Text = "значение 1 для 7802"[/indent]


End Select
End Sub

то есть без "X ="

[WR259Leonid]

то есть без "X ="

Вай... Сейчас попробуем :)

 

Не работает.

А с другой стороны - нафиг тогда указывать "Select case X"

[FVMAD]

Вай... Сейчас попробуем :)

 

Не работает.

А с другой стороны - нафиг тогда указывать "Select case X"

сначала указывается переменная а затем ее значения

кста, где у тебя Х задан то?

правильно

Private Sub Command1_Click()

Select Case X

Case 7801

Text2.Text = "значение 1 для 7801"

Case 7802

Text2.Text = "значение 1 для 7802"

End Select

End Sub

должно работать

 

P.S. VB6 или .NET ?

[hawk1]

Хосподи!!! На этом Васике еще пишут чтото серьезное? Кроме макросов в Ворде и Ёкселе?

[WR259Leonid]

VB6

форма

2 текстовых поля, кнопка.

в одно вводишь значение, допустим, 7801

во втором окне по нажатию кнопки должно появится "бла бла бла_1".

Ввожу другое значение (7802) - во втором окошке должно появится "бла бла бла_2"

 

ps последний раз программировал еще в лицее (3-4 года назад).

 

pps где указывать то? При загрузке формы?

"Private X As Integer" так?

[WR259Leonid]

Хосподи!!! На этом Васике еще пишут чтото серьезное? Кроме макросов в Ворде и Ёкселе?

представь себе

[FVMAD]

представь себе

 

так попробуй :)

Private Sub Command1_Click()

Select Case Text1.Text

Case "7801"

Text2.Text = "значение 1 для 7801"

Case "7802"

Text2.Text = "значение 1 для 7802"

End Select

End Sub

 

ох и давно же енто было :)

[WR259Leonid]

так попробуй :)

Private Sub Command1_Click()

Select Case Text1.Text

Case "7801"

Text2.Text = "значение 1 для 7801"

Case "7802"

Text2.Text = "значение 1 для 7802"

End Select

End Sub

 

ох и давно же енто было :)

5 баллов. Работает!

*(Оно Оживает! Оживает! (с) было где-то)

Спасибо всем, кто помог.

[FVMAD]

Хосподи!!! На этом Васике еще пишут чтото серьезное? Кроме макросов в Ворде и Ёкселе?

 

Кста, HyperLobby на Visual Basic 5 написан :)

[WR259Leonid]

Таксь...

Еще вопросец.

Ввожу в окно данные. Жму кнопу - в другие окна выводятся значения.

А как сделать так, что после того, как я нажму кнопку, текст, введенный в "стартовое" окно был выделен?

 

Т.е. если мне нужно проверить несколько значений путем ввода, то лень нажимать на "стартовое окно" по нескольку раз заново. Удобней просто набирать значения и жать Enter.

Э... Надеюсь меня корректно поняли ;)

[hawk1]

Таксь...

Еще вопросец.

Слуш, пожалей себя и окружающих, пиши лучше на Дельфях... :)

[FVMAD]

Таксь...

Еще вопросец.

Ввожу в окно данные. Жму кнопу - в другие окна выводятся значения.

А как сделать так, что после того, как я нажму кнопку, текст, введенный в "стартовое" окно был выделен?

 

Т.е. если мне нужно проверить несколько значений путем ввода, то лень нажимать на "стартовое окно" по нескольку раз заново. Удобней просто набирать значения и жать Enter.

Э... Надеюсь меня корректно поняли ;)

 

Значит так...

В свойствах формы ставишь KeyPreview = True

Дальше:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyReturn Then

' сюда вставь код из Command1_Click(), либо если хочешь кнопку

' оставить то вызывай событие отсюда

Text1.Text = ""

' если кнопку оставил, то добавь Text1.SetFocus

End If

End Sub

[WR259Leonid]

а что б текст в окне был уже выделен после нажатия на кнопку (или просто "ентер")?

[FVMAD]

а что б текст в окне был уже выделен после нажатия на кнопку (или просто "ентер")?

 

А зачем тебе его выделять, если ты новый вводить собрался?.. может я что не понял.. там поле просто очищается