home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / do-eve1r / form4.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-07-11  |  2.4 KB  |  83 lines
  1. VERSION 5.00
  2. Begin VB.Form Form3 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Lightning Messenger"
  6.    ClientHeight    =   5190
  7.    ClientLeft      =   45
  8.    ClientTop       =   345
  9.    ClientWidth     =   5550
  10.    Icon            =   "Form4.frx":0000
  11.    LinkTopic       =   "Form3"
  12.    MaxButton       =   0   'False
  13.    ScaleHeight     =   5190
  14.    ScaleWidth      =   5550
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.CommandButton Command4 
  17.       BackColor       =   &H00FF8080&
  18.       Caption         =   "&Cancel"
  19.       Height          =   495
  20.       Left            =   1440
  21.       Style           =   1  'Graphical
  22.       TabIndex        =   3
  23.       Top             =   4560
  24.       Width           =   1215
  25.    End
  26.    Begin VB.CommandButton Command3 
  27.       BackColor       =   &H00FF8080&
  28.       Caption         =   "&Send"
  29.       Height          =   495
  30.       Left            =   120
  31.       Style           =   1  'Graphical
  32.       TabIndex        =   2
  33.       Top             =   4560
  34.       Width           =   1215
  35.    End
  36.    Begin VB.TextBox Text2 
  37.       BackColor       =   &H00800000&
  38.       ForeColor       =   &H0000FFFF&
  39.       Height          =   2055
  40.       Left            =   120
  41.       MultiLine       =   -1  'True
  42.       ScrollBars      =   2  'Vertical
  43.       TabIndex        =   1
  44.       Top             =   2400
  45.       Width           =   5295
  46.    End
  47.    Begin VB.TextBox Text1 
  48.       BackColor       =   &H00800000&
  49.       ForeColor       =   &H0000FFFF&
  50.       Height          =   2175
  51.       Left            =   120
  52.       MultiLine       =   -1  'True
  53.       ScrollBars      =   2  'Vertical
  54.       TabIndex        =   0
  55.       Top             =   120
  56.       Width           =   5295
  57.    End
  58. Attribute VB_Name = "Form3"
  59. Attribute VB_GlobalNameSpace = False
  60. Attribute VB_Creatable = False
  61. Attribute VB_PredeclaredId = True
  62. Attribute VB_Exposed = False
  63. Private Sub Command1_Click()
  64. ip = Form1.Win.RemoteHostIP
  65. Me.Height = 5840
  66. End Sub
  67. Private Sub Command2_Click()
  68. Unload Me
  69. End Sub
  70. Private Sub Command3_Click()
  71. Form1.Winsock2.RemoteHost = ip
  72. Form1.Winsock2.SendData "Meg " & Form1.Win.LocalIP & " says: " & Text1.Text & vbCrLf
  73. Text1.SelText = Form1.Win.LocalIP & " says: " & Text1.Text & vbCrLf
  74. Text2.Text = ""
  75. Text2.SetFocus
  76. End Sub
  77. Private Sub Command4_Click()
  78. Unload Me
  79. End Sub
  80. Private Sub Form_Activate()
  81. Text2.SetFocus
  82. End Sub
  83.