frmset.frm

远端荧幕传输程序,远端荧幕传输程序.rar

VERSION 5.00
Begin VB.Form FrmSet 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "设置"
   ClientHeight    =   1890
   ClientLeft      =   2760
   ClientTop       =   3690
   ClientWidth     =   2610
   HasDC           =   0   'False
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   126
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   174
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton CmdClose 
      Caption         =   "关闭"
      Height          =   375
      Left            =   1320
      TabIndex        =   8
      Top             =   1440
      Width           =   1095
   End
   Begin VB.CommandButton CmdConnect 
      Caption         =   "连结"
      Height          =   375
      Left            =   120
      TabIndex        =   7
      Top             =   1440
      Width           =   1095
   End
   Begin VB.TextBox TxtPort 
      Alignment       =   2  'Center
      Height          =   270
      Index           =   1
      Left            =   1680
      TabIndex        =   6
      Text            =   "1312"
      Top             =   960
      Width           =   855
   End
   Begin VB.TextBox TxtPort 
      Alignment       =   2  'Center
      Height          =   270
      Index           =   0
      Left            =   840
      TabIndex        =   5
      Text            =   "1503"
      Top             =   960
      Width           =   855
   End
   Begin VB.TextBox TxtIP 
      Alignment       =   2  'Center
      Height          =   270
      Left            =   840
      TabIndex        =   4
      Text            =   "127.0.0.1"
      Top             =   600
      Width           =   1695
   End
   Begin VB.OptionButton OptIsServer 
      Caption         =   "服务器(&S)"
      Height          =   360
      Index           =   1
      Left            =   1320
      TabIndex        =   1
      Top             =   120
      Width           =   1200
   End
   Begin VB.OptionButton OptIsServer 
      Caption         =   "客户机(&C)"
      Height          =   360
      Index           =   0
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   1200
   End
   Begin VB.Label LblPort 
      AutoSize        =   -1  'True
      Caption         =   "端口号："
      Height          =   180
      Left            =   120
      TabIndex        =   3
      Top             =   960
      Width           =   720
   End
   Begin VB.Label LblIP 
      AutoSize        =   -1  'True
      Caption         =   "IP地址："
      Height          =   180
      Left            =   120
      TabIndex        =   2
      Top             =   600
      Width           =   720
   End
End
Attribute VB_Name = "FrmSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

'更新界面
Public Sub UpdataUI()
    Dim fConnect As Boolean
    
    With FrmMain.NetGIFTran1
        If sckClosing = .State Then .CloseConnect
        fConnect = (.State <> sckClosed)
        
        OptIsServer(0).Enabled = Not fConnect
        OptIsServer(1).Enabled = Not fConnect
        TxtIP.Enabled = Not fConnect
        TxtPort(0).Enabled = Not fConnect
        TxtPort(1).Enabled = Not fConnect
        
        Dim TempStr As String
        If fConnect Then
            TempStr = .RemoteHostIP
            If Len(TempStr) = 0 Then TempStr = .RemoteHost
        Else
            TempStr = .LocalIP
        End If
        If Len(TempStr) Then TxtIP.Text = TempStr
        
        OptIsServer(0).Value = Not .IsServer
        OptIsServer(1).Value = .IsServer
        'Debug.Print .IsServer
        
        If fConnect Then
            If .IsServer Then
                TxtPort(0).Text = CStr(.LocalPort)
                TxtPort(1).Text = CStr(.RemotePort)
            Else
                TxtPort(0).Text = CStr(.RemotePort)
                TxtPort(1).Text = CStr(.LocalPort)
            End If
            
        End If
        
        CmdConnect.Enabled = Not fConnect
        CmdClose.Enabled = fConnect
        
    End With
    
End Sub

Private Sub CmdClose_Click()
    With FrmMain.NetGIFTran1
        If .State <> sckClosed Then '已连结
            Call .CloseConnect
            
        End If
        
    End With
    
    Call UpdataUI
    
End Sub

Private Sub CmdConnect_Click()
    With FrmMain.NetGIFTran1
        If .State = sckClosed Then '未连结
            .IsServer = OptIsServer(1).Value
            If .IsServer Then
                .LocalPort = Val(TxtPort(0).Text)
                .RemotePort = Val(TxtPort(1).Text)
            Else
                .RemotePort = Val(TxtPort(0).Text)
                .LocalPort = 0 'Val(TxtPort(1).Text)
                .RemoteHost = Trim(TxtIP.Text)
            End If
            
            If .Connect() = False Then
                MsgBox "无法连结！", vbCritical, App.Title
            End If
            
        End If
        
    End With
    
    Call UpdataUI
    
End Sub

Private Sub Form_Activate()
    Call UpdataUI
    
End Sub

Private Sub Form_Load()
    'Call UpdataUI
    
End Sub

Private Sub TxtIP_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
    Case vbKey0 To vbKey9
    Case vbKeyBack
    Case 46 'Asc(".")=46
    Case Else
        KeyAscii = 0
    End Select
    
End Sub

Private Sub TxtPort_KeyPress(Index As Integer, KeyAscii As Integer)
    Select Case KeyAscii
    Case vbKey0 To vbKey9
    Case vbKeyBack
    Case Else
        KeyAscii = 0
    End Select
    
End Sub