Category

Development Platform
Home > SourceCode/Document > Communication-Mobile > Com Port > View Code
Dialog.frm
Package: VBTest.rar　[view]
Upload User: hbj111
Upload Date: 2022-07-30
Package Size: 107k
Code Size: 2k
Category:

Com Port

Development Platform:

Visual Basic

Dialog.frm：Code Content
  1. VERSION 5.00
  2. Begin VB.Form dlgAddr 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "指定IP地址及端口号"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   2760
  7.    ClientTop       =   3750
  8.    ClientWidth     =   6030
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   3195
  13.    ScaleWidth      =   6030
  14.    ShowInTaskbar   =   0   'False
  15.    Begin VB.TextBox txtPort 
  16.       Height          =   375
  17.       Left            =   1440
  18.       TabIndex        =   5
  19.       Top             =   480
  20.       Width           =   2415
  21.    End
  22.    Begin VB.TextBox txtIP 
  23.       Height          =   390
  24.       Left            =   1440
  25.       TabIndex        =   3
  26.       Top             =   0
  27.       Width           =   2415
  28.    End
  29.    Begin VB.CommandButton btnCancel 
  30.       Caption         =   "取消"
  31.       Height          =   375
  32.       Left            =   3120
  33.       TabIndex        =   1
  34.       Top             =   2520
  35.       Width           =   1215
  36.    End
  37.    Begin VB.CommandButton btnOK 
  38.       Caption         =   "确定"
  39.       Height          =   375
  40.       Left            =   840
  41.       TabIndex        =   0
  42.       Top             =   2520
  43.       Width           =   1215
  44.    End
  45.    Begin VB.Label Label2 
  46.       Caption         =   "端口号："
  47.       Height          =   255
  48.       Left            =   600
  49.       TabIndex        =   4
  50.       Top             =   600
  51.       Width           =   735
  52.    End
  53.    Begin VB.Label Label1 
  54.       Caption         =   "IP地址："
  55.       Height          =   255
  56.       Left            =   600
  57.       TabIndex        =   2
  58.       Top             =   120
  59.       Width           =   855
  60.    End
  61. End
  62. Attribute VB_Name = "dlgAddr"
  63. Attribute VB_GlobalNameSpace = False
  64. Attribute VB_Creatable = False
  65. Attribute VB_PredeclaredId = True
  66. Attribute VB_Exposed = False
  68. Option Explicit
  70. Private Sub btnCancel_Click()
  71.     Me.Hide
  72. End Sub
  74. Private Sub btnOK_Click()
  75.     Me.Hide
  76.     Me.Tag = "1"
  77. End Sub
  79. Private Sub Form_Load()
  80.     Me.Tag = "0"
  81. End Sub