showscreen.frm

一个同学用VB编写的局域网通讯程序

VERSION 5.00
Begin VB.Form ShowScreen 
   Caption         =   "Remote View"
   ClientHeight    =   2520
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3495
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   ScaleHeight     =   168
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   233
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin VB.PictureBox ScrImage 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   1095
      Left            =   0
      ScaleHeight     =   1095
      ScaleWidth      =   1575
      TabIndex        =   0
      Top             =   0
      Width           =   1575
   End
End
Attribute VB_Name = "ShowScreen"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub Form_Unload(Cancel As Integer)
    MainForm.RefreshRate.Enabled = False
    Do While Not okToCloseScr
       DoEvents
    Loop
End Sub


Private Sub ScrImage_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)

    Dim RightClick As Boolean, LeftClick As Boolean
    LeftClick = (Button And vbLeftButton) > 0
    RightClick = (Button And vbRightButton) > 0
        If LeftClick Then
             MainForm.ClientSck.SendData MOUSE_MOVEMENT & SEPERATOR & "LClick" & GetCurrentX() & SEPERATOR & GetCurrentY() - 20
        ElseIf RightClick Then
            MainForm.ClientSck.SendData MOUSE_MOVEMENT & SEPERATOR & "RClick" & GetCurrentX() & SEPERATOR & GetCurrentY() - 20
        End If
End Sub