屏幕监视器检测

@H_403_0@Project1.vbp

@H_403_0@

@H_403_0@Form1.frm

@H_403_0@

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "ScreenTest"
   ClientHeight    =   6945
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   12420
   LinkTopic       =   "Form1"
   ScaleHeight     =   6945
   ScaleWidth      =   12420
   StartUpPosition =   2  'CenterScreen
   Begin VB.Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a> Text1 
      Height          =   3975
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   0
      Top             =   0
      Width           =   11295
   End
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_Load()
    Dim i%
   
    Call EnumMonitors
    Text1.Text = ""
    For i = 0 To UBound(Monitors)
        Text1.Text = Text1.Text & "screen:" & i + 1 & vbCrLf & _
                                "LEFT:" & Monitors(i).Left & vbCrLf & _
                                "TOP:" & Monitors(i).Top & vbCrLf & _
                                "RIGHT:" & Monitors(i).Right & vbCrLf & _
                                "BOTTON:" & Monitors(i).Bottom & vbCrLf
    Next
End Sub

Private Sub Form_Resize()
    Text1.Move 0,Me.ScaleWidth,Me.ScaleHeight
End Sub

@H_403_0@Module1.bas

@H_403_0@

Attribute VB_Name = "Module1"
Option Explicit

Public Const SM_CMONITORS = 80

Public g_iMonitorCount As Integer
Public g_bOnlyPrimaryMonitor As Boolean

Public Declare Function EnumDisplayMonitors Lib "user32.dll" (ByVal hdc As Long,ByVal lprcClip As Long,ByVal lpfnEnum As Long,ByVal dwData As Long) As Long
Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any,Source As Any,ByVal Length As Long)

Public Type RECT
    Left    As Long
    Top     As Long
    Right   As Long
    Bottom  As Long
End Type
Public Monitors()     As RECT

Public Function MonitorEnumProc(ByVal hMoinitor As Long,ByVal hdcMonitor As Long,lprcMonitor As Long,ByVal dwData As Long) As Long
    Dim rcS As RECT
    CopyMemory rcS,lprcMonitor,Len(rcS)
    Monitors(g_iMonitorCount).Top = rcS.Top
    Monitors(g_iMonitorCount).Left = rcS.Left
    Monitors(g_iMonitorCount).Bottom = rcS.Bottom
    Monitors(g_iMonitorCount).Right = rcS.Right

g_iMonitorCount = g_iMonitorCount + 1
    MonitorEnumProc = 1
End Function

Public Sub EnumMonitors()
    Dim iMonitorCount As Integer
    g_iMonitorCount = 0
    iMonitorCount = GetSystemMetrics(SM_CMONITORS)
    If iMonitorCount = 1 Then
        g_bOnlyPrimaryMonitor = True
    End If
    ReDim Monitors(iMonitorCount - 1)
    Call EnumDisplayMonitors(ByVal 0&,ByVal 0&,AddressOf MonitorEnumProc,ByVal 0&)
End Sub

屏幕监视器检测

猜你在找的VB相关文章