textbox skal rykke ned af

Sådan lige en her og nu løsning:

A$ = text1
text1 = Text2 & " siger: " & Text3 & vbCrLf & a$

- Mikker

Prøv den her, den er nok bedre:

Private Sub Command1_Click()
Text2.SelStart = 0
Text2.SelText = Text1 & vbCrLf
Text1 = ""
Text1.SetFocus
End Sub

Når du har skrevet noget i text1 trykker du på command1 og VOILA !

- Mikker

kan ikke få det til at virke men du får lige hele scriptet: 

Private Sub Command2_Click()
Frame1.Visible = False
End Sub

Private Sub Form_Load()


w.Protocol = sckUDPProtocol
    w.RemotePort = 1000
    w.LocalPort = 1000
    w.Bind
 
   
    ' Finder modtagerens ip adresse
    SendTil = InputBox("Din ip er: " & w.LocalIP & " Skriv den som du vil sende til's ip adresse:", "Ip.")
       
    If SendTil = "" Then: MsgBox "Programmet kan ikke køre uden en remote ip adresse!" & _
vbCrLf & vbCrLf & "Men vent evt. op at den anden skriver til dig, så vil programmet virke!", vbCritical
       
    w.RemoteHost = SendTil
   
    ' Ip adressen
    Text2.Text = w.LocalIP
   
    ' Restart alle kontroller
    Text1.Text = ""
   
    Text3.Text = ""
   
    Command1.Caption = "Send"
End Sub

Private Sub W_DataArrival(ByVal bytesTotal As Long)
SendTil = w.RemoteHost

Dim Tekst As String
w.GetData Tekst

Text1.Text = Text1 & Tekst
End Sub

Private Sub Command1_Click()
On Error GoTo fejl2

' Hvis der ikke er skrevet noget
If Text3.Text = "" Then: GoTo fejl

' Hvis alt er normalt
w.SendData Text3.Text
Text1.Text = Text1 & Text3 & vbCrLf
Text3.Text = ""

' ikke skrevet noget
Exit Sub:
fejl:

MsgBox "Der er fejl! Du skal skrive noget.", vbCritical

' ingen at sende til
Exit Sub
fejl2:

MsgBox "Der kan ikke sendes data! Der er muligvis ikke angivet en at sende til!", vbCritical

SendTil = InputBox("Skriv evt. den andens ip:")


End Sub

' Hvis alt er normalt
w.SendData Text3.Text
Text1.Text = Text1 & Text3 & vbCrLf
Text3.Text = ""

'Skiftes ud med..
' Hvis alt er normalt
w.SendData Text3.Text
Text1.SelStart = 0
Text1.SelText = Text3 & vbCrLf
Text3 = ""


Jeg fægter lidt i blinde, men prøv evt. at starte et nyt projekt med bare to textboxe og en commandbutton. Husk at TEXT2.MULTILINE skal være TRUE...

Jeg kan ikke forestille mig andet end at dette burde virke, ellers må vi kigge på det imorgen :o)

- Mikker

Prøv med en richtextbox måske??

text1.text = text1.text & Chr(13) & ricktextbox.text

Codemasterz>> Prøv lige og forklar mig hvad det smarte i ovenstående kode er.

Hele idéen med en rich textbox er vel at kunne noget mere end man kan med den sædvanlige textbox ? Altså vil det ikke være besværet værd at bruge en richtextbox, hvis man alligevel bare flytter det hele over i en normal text box ?
Du må endelig rette mig hvis jeg tager fejl.

- Mikker

kan ikke bruge noget af det! giver op bare glem det!