Textbox satır numarası

[k0081]

Merhaba arkadaşlar

multi satır texbox da şu şekilde bilgiler mevcut :

path = D:\deneme

1-denemeKitap.pdf
2-denemeDefterleri.xls
3-Yayınlar.doc

...

gibi.

yapmak istediğim ;

inputbox a 1 girdiğimde

deger = denemeKitap.pdf alsın.

inputbox a 2 girdiğimde

deger = denemeDefterleri.xls alsın.

inputbox a 3 girdiğimde

deger = Yayınlar.doc alsın.

bunu nasıl yapabilirim ?

yardımcı arkadaşa şimdiden teşekkürler.

 

[Haluk]

    RetVal = InputBox("Seçim yapın", "Seçim")
    
    If RetVal >= 1 And RetVal <= 3 Then
        deger = Split(Split(TextBox1, vbCrLf)(RetVal - 1), "-")(1)
    Else
        MsgBox "Geçerli bir seçim yapmadınız!"
    End If
    
    MsgBox deger

.

 

[k0081]

Runtime error-9 hatası alıyorum

*****************************************************************



Hocam özür...

Tamamdır. Çok Teşekkür ediyorum. Bir yerde hata yapmışım.