Combo box

[end3r]

Как изящно сделать событие, чтобы когда в combo box выбирается какой-либо элемент списка, тут же открывался одноименный файл скажем в richtextbox. Сейчас у меня дело обстоит так:
Код:

Private Sub Combo1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If Combo1.ListIndex = 0 Then
RichTextBox1.filename = CurDir + "\text.rtf"
Timer1.Enabled = False
End If
If Combo1.ListIndex = 1 Then
RichTextBox1.filename = CurDir + "\text2.rtf"
Timer1.Enabled = False
End If
End Sub

Мне кажется с таймером это не изящно, может есть какие-либо другие способы?

[alibek]

Private Sub Combo1_Click()
RichTextBox1.filename = CurDir + "\" & Combo1.Text
End Sub

[end3r]

Спасибо! Как все просто оказалось. У меня тут еще вопрос возник. Мои аппетиты растут и теперь мне надо чтобы текст в этом richtextbox можно было распечатать. Вот мой код:

Private Sub Command1_Click()
Set Printer = Printers(objPrinter)
Printer.Print Form1.RichTextBox1.Text
Printer.EndDoc

Проблема в том, что текст печатается в неформатированном виде, т.е. без нижних индексов выравниваний и т.д. Мне же нужно печатать как есть. Я так понял нужно выводить текст как графическое изображение и печатать уже его. Или можно вывести текст в Word и распечатать оттуда. Но возникает вопрос, что делать если на компьютере, где будет стоять программа нет Word'а. В общем, помогите пожалуйста с данной проблемой!

[xqz_me]

Мне тоже интересно, как отформатированную инфу распечатывать.

[Andrey Fedorov]

и теперь мне надо чтобы текст в этом richtextbox можно было распечатать

Отгадай для чего у RichTextBox есть метод SelPrint?
И даже Help по нему тоже присутствует...