Здравейте, значи проблема ми е следния, от известно време се опитвам да разбера как мога ако имам 2 текст бокса да копирам съдържанието им едновременно и (ако може да бъде на всеки ред по отделно). Опитах с Select Coppy към първия и после select coppy към другия и накрая само втория е копиран. Някакви идеи? Но има и един друг вариант ако имам 1 текст бокс от ляво и 1 от дясно, като напиша в първия: 1ред) алалалал 2ред)бабабабаба да ми излезне във втория текст бокс 1ред) нещо алалалал 2ред) нещо бабабабаба Дано се сетите нещо.

Clipboard.SetText Text1.Text, vbCFText

Clipboard.SetText Text1.Text, vbCFText

Значи имаш предвид

Clipboard.settext(textbox1.text)

и после vbCFText не го схванах

дай по-подробен код, моля те.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    	Clipboard.SetText(TextBox1.Text)
    	TextBox2.Paste()
	End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    	Clipboard.SetText(TextBox1.Text)
    	TextBox2.Paste()
	End Sub

Това което си ми написал е за да копирам само един текст бокс, на мен ми трябва да е все едно:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Clipboard.SetText(TextBox1.Text) and Clipboard.SetText(TextBox2) and Clipboard.SetText(TextBox3)

и после

All.paste

End Sub

Нещо такова да стане :Р

Редактирано 19 март 201115 г. от Greeed1 (преглед на промените)

Това което си ми написал е за да копирам само един текст бокс, на мен ми трябва да е все едно:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Clipboard.SetText(TextBox1.Text) and Clipboard.SetText(TextBox2) and Clipboard.SetText(TextBox3)

и после

All.paste

End Sub

Нещо такова да стане :Р

Ами елементарно:

Clipboard.SetText(TextBox1.Text + vbCrLf + TextBox3.Text)

Ами елементарно:

Clipboard.SetText(TextBox1.Text + vbCrLf + TextBox3.Text)

Това стана за, което съм ти много БЛАГОДАРЕН!

А да знаеш как се прави:

TT1.Text = ("/addwin2" + " " + "0" + " " + T.Text + " " + T1.Text)

TT2.Text = ("/addwin2" + " " + "0" + " " + T.Text + " " + T2.Text)

TT4.Text = ("/addwin2" + " " + "0" + " " + T.Text + " " + T3.Text)

ако не напиша нищо в Т2 и Т4 как после в ТТ2 и ТТ4 да е празно?

Може ли да обясниш по-разбираемо за какво става дума ?

Това стана за, което съм ти много БЛАГОДАРЕН!

А да знаеш как се прави:

TT1.Text = ("/addwin2" + " " + "0" + " " + T.Text + " " + T1.Text)

TT2.Text = ("/addwin2" + " " + "0" + " " + T.Text + " " + T2.Text)

TT4.Text = ("/addwin2" + " " + "0" + " " + T.Text + " " + T3.Text)

ако не напиша нищо в Т2 и Т4 как после в ТТ2 и ТТ4 да е празно?

УФФ оправих се ама те попитах, защото преди това ми направи бъг...

Честно казано, нямам представа за какъв бъг говориш.

Честно казано, нямам представа за какъв бъг говориш.

Казваше ми, че има грешка в кода на If ...

А да те попитам как мога да направя:

примерно в текстбокс1 пише: 500/600/700/800

как да го направя в текстбокс2 да пише: "алабала 700 тоест да отделям неща с "/" ако един линк е:

www.kaldata.com/forums/showtopic22

да стане

www.kaldata.com/pics/showtopic22

и ако е:

500/600/700/и няма 800

да казва, че има бъг

Редактирано 23 март 201115 г. от Greeed1 (преглед на промените)

http://msdn.microsoft.com/en-us/library/6x627e5f%28v=vs.80%29.aspx