开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB邮件程序 > 查看源码
Form1.frm
资源名称：11.rar　[点击查看]
上传用户：xmantailai
上传日期：2018-01-13
资源大小：31k
文件大小：2k
源码类别：

WEB邮件程序

开发平台：

Visual Basic

Form1.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3090
  5.    ClientLeft      =   60
  6.    ClientTop       =   450
  7.    ClientWidth     =   4380
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3090
  10.    ScaleWidth      =   4380
  11.    StartUpPosition =   3  '窗口缺省
  12.    Begin VB.CommandButton Command2 
  13.       Caption         =   "Command2"
  14.       Height          =   420
  15.       Left            =   1710
  16.       TabIndex        =   3
  17.       Top             =   1170
  18.       Width           =   1230
  19.    End
  20.    Begin VB.TextBox Text2 
  21.       Height          =   1095
  22.       Left            =   45
  23.       MultiLine       =   -1  'True
  24.       ScrollBars      =   2  'Vertical
  25.       TabIndex        =   2
  26.       Text            =   "Form1.frx":0000
  27.       Top             =   1620
  28.       Width           =   4245
  29.    End
  30.    Begin VB.CommandButton Command1 
  31.       Caption         =   "Command1"
  32.       Height          =   375
  33.       Left            =   45
  34.       TabIndex        =   1
  35.       Top             =   1170
  36.       Width           =   1140
  37.    End
  38.    Begin VB.TextBox Text1 
  39.       Height          =   915
  40.       Left            =   45
  41.       MultiLine       =   -1  'True
  42.       ScrollBars      =   2  'Vertical
  43.       TabIndex        =   0
  44.       Text            =   "Form1.frx":010C
  45.       Top             =   135
  46.       Width           =   4290
  47.    End
  48. End
  49. Attribute VB_Name = "Form1"
  50. Attribute VB_GlobalNameSpace = False
  51. Attribute VB_Creatable = False
  52. Attribute VB_PredeclaredId = True
  53. Attribute VB_Exposed = False
  54. Option Explicit
  56. Private Sub Command1_Click()
  57.     FrmMain.Winsock1.SendData Text1.Text
  58.     
  59. End Sub
  61. Private Sub Command2_Click()
  62.     FrmMain.Winsock1.SendData Text2.Text & vbCrLf & "." & vbCrLf
  63.     
  64. End Sub