| Вопрос: TextBox | Добавлено: 15.06.05 04:06 |
Автор вопроса:  Bord
|
| Kak sdelat 4tobi vse dobavlinie nadpisi v TextBox menyalis mestami s prevedushimi soobsheniyami,to est novoe soobshenie zamenyalo staroe kak bi podnimayas ,a staroe opuskalos..... |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Дилетант Вопросов: 13 Ответов: 30 |
Профиль | | #1 | Добавлено: 15.06.05 05:14 |
|
'Вот тестовый примерчик:
'Кидаешь на форму 2 textbox'а и кнопку. 'Теперь пиши чё-нить в text1 и жми кнопку. 'Loop Option Explicit Dim MyString As String, NewMyString As String Private Sub Command1_Click() NewMyString = Text1.Text Text2.Text = NewMyString & Chr(13) & Chr(10) & MyString MyString = Text2.Text End Sub |
||
|
Номер ответа: 2 Автор ответа: ДилетантВопросов: 13 Ответов: 30 |
Профиль | | #2 | Добавлено: 15.06.05 05:48 |
Только не забудь multiline = true поставить 
|
||
|
Номер ответа: 3 Автор ответа: Bord Вопросов: 1 Ответов: 1 |
Профиль | | #3 | Добавлено: 15.06.05 20:59 |
| YA imel vidu sistemu chata,takuu kak v ICQ,tolko v ICQ soobsheniya spuskayutsya a ya na ooborot hotel 4tob soobsheniya podnimalis... | ||
|
Номер ответа: 4 Автор ответа: Дмитрий Щапов Вопросов: 71 Ответов: 321 |
Профиль | | #4 | Добавлено: 15.06.05 23:01 |
|
Option Explicit
Private Sub Command1_Click() Text1=NewMsg & vbcrlf & text1 End Sub Только не забудь multiline = true поставить
|
||
|
Номер ответа: 5 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #5 | Добавлено: 16.06.05 13:12 |
|
Да на кой вам свойство Text? Лишний раз со строками работать
Private Sub Command1_Click() Static num As Long Text1.SelStart = 0 Text1.SelText = "NewString" & num & vbCrLf num = num + 1 End Sub |
||
Страница: 1 |