Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: niu line
zibi




Typ: neutral
Postów: 13
Zarejestrowany: Nov 2004
niu line

czy jest taka opcja w visualu
chce żeby w text1.text dane były zapisywane
linijka po linijce
1
2
3
4
5
.
.
.
jest opcja multiline ale ona tylko przenosi dane
xxxxxx xxxxxxxd xxxxxxxx xxxxxxx xxx xxxxxx xxxxxx xxxxxxxxx xxxxxxx xxxxx
ale nie całkowicie od początku rekordu

23-11-2004 22:23
Pokaż profil zibi  Wyślij email do zibi   
Knight Lore''FC




Typ: neutral
Postów: 240
Zarejestrowany: Jan 2003

jesli chcesz aby kazdy wpisany znak byll w nowej lini to mozesz zrobic np. tak:

Private Sub Text1_Change()

If Text1.Text <> "" Then
    If Asc(Right(Text1.Text, 1)) <> 10 Then
        Text1.Text = Text1.Text + vbCrLf
        Text1.SetFocus
        SendKeys "^{END}"
    End If
End If

End Sub

jezeli jednak chcesz zrobic to samo z ciagiem podanym przez ciebie (xxxx xxxxxxd xxxx... ) to musisz ustalic co ma byc znakiem rozdzielajacym poszczegolne linie - chyba w twoim przypadku chodzi o spacje wiec uzyj SPLIT do rozbicia na tablice i zapelnij text poszczegolnymi wartosciami tablicy + VbCRLF:

Private Sub Command1_Click()

Dim Buff As String
Dim Tablica
Dim IleLini As Integer
Dim a As Integer

Buff = "xxxxxx xxxxxxx xxxxxxxx xxxxxxx xxx xxxxxx xxxxxx xxxxxxxxx xxxxxxx xxxxx "

'rozdziel text na linie i kazda linie zapamietaj w tablicy
Tablica = Split(Buff, " " )

'ile odczytales lini textu
IleLini = UBound(Tablica)

'czyscimy textbox
Text1.Text = ""

'wypelnij Textbox
For a = 0 To IleLini
    Text1.Text = Text1.Text + Tablica(a) + vbCrLf
Next a

End Sub

---------------------------------------------
Ps. oczywicie musi byc ustawione multiline

[Post edytowany dnia 24-11-2004 14:04 przez Knight Lore'FC]

24-11-2004 14:03
Pokaż profil Knight Lore  Wyślij email do Knight Lore        1065423
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Do drugiego sposobu:
A nie wystarczy poprostu

text1.text=replace(text1.text," ",vbnewline)



_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

24-11-2004 14:15
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Knight Lore''FC




Typ: neutral
Postów: 240
Zarejestrowany: Jan 2003

Zgadza sie ... moze wystarczyc - jednak osobiscie wole miec dane w tablicy i odwolywac sie do konkretnego jej elementu, niz za kazdym razem przeszukiwac ciag w poszukiwaniu konkretnej danej.
Ale moze REPLACE wystarczy

24-11-2004 15:04
Pokaż profil Knight Lore  Wyślij email do Knight Lore        1065423
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1