Visual Basic/Work in Progress

This is a work area. Short pieces of text, reminders and links that don't warrant a page to themselves but need a temporary home lest they be forgotten start life here.

Miscellaneous edit

http://www.elitevb.com/content/01,0057,01/01.aspx
Split Effective Programming into separate pages as it is now over 36K
Explain file format of VBP, frm, cls, bas, etc.
Registry entries that refer to VB components, how they are structured, what you can do with them.
Side by side installation.
Windows standard dialogs http://builder.com.com/5100-6371_14-5800282.html, http://www.vbaccelerator.com/home/VB/Code/Libraries/Common_Dialogs/Folder_Browser/article.asp, http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnima01/html/ima0201.asp, http://www.devx.com/vb2themax/Tip/19255,

Graphics edit

http://www.a1vbcode.com/app-2571.asp

Unicode Support edit

Unicode Issues with VB , Add Unicode Support, Unicode Custom Controls,

Networks edit

inet control winsock control comm control

Winsock Control edit

Visual Basic allows data to be sent via a Point-To-Point (PTP) Connection via Winsock. Once the control is inserted, only a few commands are required to send data between two networked computers. A LAN cable must be connected between the computers.

To allow Winsock to connect to any available computers, the listen command is needed, as shown below

Winsock.Port = 1234
Winsock.Listen

Once this has been done, the other computer's Local IP is required. Your IP can be viewed with the command

Debug.Print Winsock.LocalIP

Connecting merely requires one line of code, as shown below

Winsock.Connect RemoteHost, Port

Port can be any number up to 50,000. The example as shown above is 1234.

To accept a connection you need to create a new sub

Private Sub Winsock_ConnectionRequest(ByVal requestID As Long)
Winsock.Accept requestid
End Sub

Sending data is also pretty simple.

Winsock.SendData Data

To receive any sent data another new sub is needed

Private Sub Winsock_DataArrival(ByVal bytestotal As Long)
Dim nData as String
Winsock.GetData nData
End Sub

Using the above code it is relatively simple to create a working data exchange between two computers. More information on this topic can be found in the Snippets Section.