frmpeera.frm

用odbc方式访问数据库的vb程序

VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form frmPeerA 
   Caption         =   "UDP Application(1)"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox txtOutput 
      Height          =   495
      Left            =   1560
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   1
      Top             =   1080
      Width           =   2415
   End
   Begin VB.TextBox txtSend 
      Height          =   495
      Left            =   1560
      TabIndex        =   0
      Top             =   360
      Width           =   2415
   End
   Begin MSWinsockLib.Winsock udpPeerA 
      Left            =   720
      Top             =   360
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
      Protocol        =   1
   End
End
Attribute VB_Name = "frmPeerA"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
With udpPeerA
     .RemoteHost = "10.0.0.251" '要连接到的计算机名
     .RemotePort = 1010 '要连接到的端口号
     .LocalPort = 1011 '该Winsock控制将要使用的本地端口号，便于其它端与该Winsock通讯
     .Bind 1011 '将该Winsock控制绑定到该本地端口
End With
End Sub
Private Sub txtSend_Change()
     udpPeerA.SendData txtSend.Text '发送文本
End Sub
Private Sub udpPeerA_DataArrival(ByVal bytesTotal As Long)
     Dim strData As String
     udpPeerA.GetData strData, vbString
     txtOutput.Text = strData
End Sub