screen1.frm

来自「星子行主机控制系统用于主机管理,方便远程操作,通信等功能.更 方便用于局域网」· FRM 代码 · 共 108 行

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   0  'None
   Caption         =   "全屏屏幕"
   ClientHeight    =   4695
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   6435
   Icon            =   "Screen1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4695
   ScaleWidth      =   6435
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_DblClick()
On Error Resume Next

Form2.Winsock2.SendData "dblclick"
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Call keytwo(KeyCode, Shift)


End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

Call keyone(KeyCode, Shift)

End Sub

Private Sub Form_Load()


fullscreen = True

formhdc = Form1.hDC

Me.Move 0, 0, Form2.Picture1.Width, Form2.Picture1.Height

Form2.Visible = False

SetWindowPos Form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE

MsgBox "再按 “ F12 ”键，可退出全屏模式！", 64, "提示"

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next

Select Case Button
Case 1
Form2.Winsock2.SendData "down1"
Case 2
Form2.Winsock2.SendData "down2"
Case 4
Form2.Winsock2.SendData "down4"
End Select

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

On Error Resume Next



Form2.Winsock2.SendData X & "," & Y

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next

Select Case Button
Case 1
Form2.Winsock2.SendData "up1"
Case 2
Form2.Winsock2.SendData "up2"
Case 4
Form2.Winsock2.SendData "up4"
End Select
End Sub

Private Sub Form_Unload(Cancel As Integer)

Form2.Visible = True

fullscreen = False

formhdc = Form2.Picture1.hDC

End Sub