ascreen.frm

来自「星子行V2.0(源码)公开星子行V3.0以上版本,都是由星子行V1.0和星子行V」· FRM 代码 · 共 108 行

VERSION 5.00
Begin VB.Form Ascreen 
   BorderStyle     =   0  'None
   Caption         =   "全屏屏幕"
   ClientHeight    =   4695
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   6435
   Icon            =   "Ascreen.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4695
   ScaleWidth      =   6435
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
End
Attribute VB_Name = "Ascreen"
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

Rscreen.Scmnet6.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 = Ascreen.hDC

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

Rscreen.Visible = False

SetWindowPos Ascreen.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
Rscreen.Scmnet6.SendData "down1"
Case 2
Rscreen.Scmnet6.SendData "down2"
Case 4
Rscreen.Scmnet6.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



Rscreen.Scmnet6.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
Rscreen.Scmnet6.SendData "up1"
Case 2
Rscreen.Scmnet6.SendData "up2"
Case 4
Rscreen.Scmnet6.SendData "up4"
End Select
End Sub

Private Sub Form_Unload(Cancel As Integer)

Rscreen.Visible = True

fullscreen = False

formhdc = Rscreen.Picture1.hDC

End Sub