List Problem

[XCustoms]

Pivat Sub Test_Click()
Dim FList As String
FList = Files. ' Problem
Sock.SendData FList
End Sub

The Problem On That Is That I Want To Send The Whole List To The Other
Like If I Add Items It Sends All My Items To The Other Program And Adds It On That List

Like

FList = Files.WholeList

As Example

Files Is The Name Of My List

Is There Any Trick For That

Thnx

[Al42]

What is Files? A collection? A UDT?

In any event, you'll have to either make a string out of the list and send the string, or send each item in the list, one at a time. You can't 'send' an object.

[XCustoms]

Heres The Code. Its Not Ready But I Need To Fix The List Thing:

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
                ByVal hwnd As Long, _
                ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
                ByVal hwnd As Long, _
                ByVal nIndex As Long, _
                ByVal dwNewLong As Long) As Long
                
Private Declare Function SetLayeredWindowAttributes Lib "user32" ( _
                ByVal hwnd As Long, _
                ByVal crKey As Long, _
                ByVal bAlpha As Byte, _
                ByVal dwFlags As Long) As Long

Private Const GWL_STYLE = (-16)
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2

Private Sub Close_Click()
End
End Sub

Private Sub Form_Load()
    Me.BackColor = vbCyan
    SetWindowLong Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
    SetLayeredWindowAttributes Me.hwnd, vbCyan, 0&, LWA_COLORKEY
    USock.Close
    USock.LocalPort = "3000"
    USock.Listen
End Sub

Private Sub Upload_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Upload.Top = Upload.Top + 10
Upload.Left = Upload.Left + 10
End Sub

Private Sub Upload_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Upload.Top = 4820
Upload.Left = 5180
CDialog.ShowOpen
Files.AddItem CDialog.FileTitle
End Sub

Private Sub USock_ConnectionRequest(ByVal RequestID As Long)
Dim FList As String
FList = Files.List
If USock.State <> sckClosed Then USock.Close
USock.Accept RequestID
USock.SendData FList
End Sub

Thnx

[kewakl]

this line should error

FList = Files.List

Compile error:
Argument not optional

because you haven't specified an item in the list (0-based).

[XCustoms]

Yeh But Wts The Thing That Uhm...
It Sends All Items Thats On The List ?

Thnx

[kewakl]

all i get is

Compile error:
Argument not optional

---------------------
I pasted your code and made a CONNECTing prog.
when i connect, the prog errors with the above error
message and highlights the 'FList = Files.List' line

[XCustoms]

Ohh

[Al42]

You have to loop through all the items in the list, load each file into a variable (a byte array would be best), sent the array, byte by byte, go on to the next file in the list, etc.

BTW, NEVER use End to end the program - it's like escorting your guests out the 5th floor window at the end of the party. Use Unload Me instead - that closes things that are open. (You still have to destroy your own objects.)

[XCustoms]

Oooowh I Know What You Mean Thnx And Another Thnx For The End Thing