Tabloyu Labellere Dağıt

[işsiz123]

Dosya da Açıklama Yapılmıştır Yardımcı olacak arkadaşlara şimdiden teşekürler

http://s2.dosya.tc/server4/ysmc7z/Ornek.rar.html

 

[PLİNT]

Merhaba
Ek dosyadaki işinize yarayabilir.
http://s2.dosya.tc/server4/d8cb3i/Desktop.zip.html

http://i.hizliresim.com/ErD4rg.gif
Alıntı:
http://www.vb-fun.de/cgi-bin/loadframe.pl?ID=vb/tipps/tip0434.shtml

 

[işsiz123]

Tamam oldu Teşekürler

 

[işsiz123]

Sayın PLİNT yardımınızdan Dolayı Yine Teşekkür ederim. Ancak Tablo alt Alta tek değilde Yan Yana olsa nasıl bir değişiklik Yaparız kodlarda.
http://s2.dosya.tc/server4/csrdnb/Desktop.rar.html

 

[PLİNT]

Sayın PLİNT yardımınızdan Dolayı Yine Teşekkür ederim. Ancak Tablo alt Alta tek değilde Yan Yana olsa nasıl bir değişiklik Yaparız kodlarda.

Örneğinize göre, "Textbox1" kodlarını aşağıdaki gibi değiştirip deneyebilirsiniz;

[SIZE="2"]Private Sub TextBox1_Change()
On Error Resume Next
Me.Label2.Caption = Split(Trim(TextBox1.Value), Chr(10))(0)
Me.Label4.Caption = Split(Trim(TextBox1.Value), Chr(10))(1)
Me.Label7.Caption = Split(Trim(TextBox1.Value), Chr(10))(2)
Me.Label10.Caption = Split(Trim(TextBox1.Value), Chr(10))(3)
Me.Label13.Caption = Split(Split(Trim(TextBox1.Value), Chr(10))(4), Chr(9))(0)
Me.Label17.Caption = Split(Split(Trim(TextBox1.Value), Chr(10))(4), Chr(9))(1)
Me.Label18.Caption = Split(Split(Trim(TextBox1.Value), Chr(10))(5), Chr(9))(0)
Me.Label19.Caption = Split(Split(Trim(TextBox1.Value), Chr(10))(5), Chr(9))(1)
End Sub[/SIZE]

 

[işsiz123]

Çok teşekkürler

 

[PLİNT]

Çok teşekkürler

Rica ederim,kolay gelsin.