VB6.0窗体最大化时，充满主屏和扩展屏

在VB6.0中，可以通过编写代码实现窗体最大化时充满主屏和扩展屏的效果。具体方法如下：

1. 在窗体的Load事件中，添加以下代码：

If Screen.TwipsPerPixelX = 15 Then
    Me.Left = Screen.PrimaryScreen.WorkAreaLeft
    Me.Top = Screen.PrimaryScreen.WorkAreaTop
    Me.Width = Screen.PrimaryScreen.WorkAreaWidth
    Me.Height = Screen.PrimaryScreen.WorkAreaHeight
Else
    Me.Left = Screen.PrimaryScreen.Bounds.Left
    Me.Top = Screen.PrimaryScreen.Bounds.Top
    Me.Width = Screen.PrimaryScreen.Bounds.Width
    Me.Height = Screen.PrimaryScreen.Bounds.Height
End If

2. 代码中的if语句用于判断当前的屏幕是否为主屏，如果是主屏，则使用WorkArea属性设置窗体位置和大小，如果不是主屏，则使用Bounds属性设置窗体位置和大小。

3. 通过这种方式，可以实现窗体最大化时充满主屏和扩展屏的效果。

注意：以上代码仅适用于Windows系统，且需要在多屏环境下测试。

相关问题

VB6.0支持扩展屏截图的截图工具

VB6.0本身并不提供扩展屏截图的截图工具，但是您可以使用Windows API来实现这个功能。具体步骤如下：

1. 使用Windows API函数`EnumDisplayMonitors`获取所有的显示器信息。

2. 使用Windows API函数`CreateDC`创建设备上下文句柄。

3. 使用Windows API函数`BitBlt`将屏幕上的图像复制到位图中。

4. 将位图保存到文件中。

以下是示例代码，可以参考实现：

Private Declare Function EnumDisplayMonitors Lib "user32" (ByVal hdc As Long, ByVal lprcClip As Any, ByVal lpfnEnum As Long, ByVal dwData As Long) As Long
Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As Long, ByVal lpInitData As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hdcDest As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hdcSrc As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long

Private Sub Command1_Click()
    Dim i As Long
    Dim hdc As Long
    Dim hBmp As Long
    Dim hDcMem As Long
    Dim hDcSrc As Long
    Dim lpRect As RECT
    Dim lpMonitorInfo As MONITORINFO
    Dim lpBitmapInfo As BITMAPINFO
    Dim sFileName As String
    
    '获取所有显示器信息
    EnumDisplayMonitors 0, ByVal 0&, AddressOf MonitorEnumProc, 0
    
    '获取位图信息
    lpBitmapInfo.bmiHeader.biSize = Len(lpBitmapInfo.bmiHeader)
    lpBitmapInfo.bmiHeader.biWidth = lpRect.Right - lpRect.Left
    lpBitmapInfo.bmiHeader.biHeight = lpRect.Bottom - lpRect.Top
    lpBitmapInfo.bmiHeader.biPlanes = 1
    lpBitmapInfo.bmiHeader.biBitCount = 24
    lpBitmapInfo.bmiHeader.biCompression = 0
    
    '创建设备上下文句柄
    hdc = CreateDC("DISPLAY", vbNullString, 0, 0)
    hDcMem = CreateCompatibleDC(hdc)
    hBmp = CreateCompatibleBitmap(hdc, lpBitmapInfo.bmiHeader.biWidth, lpBitmapInfo.bmiHeader.biHeight)
    SelectObject hDcMem, hBmp
    
    '复制屏幕上的图像到位图中
    For i = 0 To UBound(g_Monitors)
        SetRect lpRect, g_Monitors(i).rcMonitor.Left, g_Monitors(i).rcMonitor.Top, g_Monitors(i).rcMonitor.Right, g_Monitors(i).rcMonitor.Bottom
        hDcSrc = CreateDC("DISPLAY", vbNullString, 0, 0)
        BitBlt hDcMem, 0, 0, lpRect.Right - lpRect.Left, lpRect.Bottom - lpRect.Top, hDcSrc, lpRect.Left, lpRect.Top, vbSrcCopy
        DeleteDC hDcSrc
    Next i
    
    '保存位图到文件中
    sFileName = App.Path & "\Screenshot.bmp"
    SaveBitmap hBmp, sFileName
    
    '释放资源
    DeleteDC hDcMem
    DeleteObject hBmp
    DeleteDC hdc
    
    '打开保存的文件
    Shell "Explorer.exe " & sFileName, vbNormalFocus
End Sub

Private Function MonitorEnumProc(ByVal hMonitor As Long, ByVal hdcMonitor As Long, ByVal lprcMonitor As Long, ByVal dwData As Long) As Long
    Dim lpMonitorInfo As MONITORINFO
    lpMonitorInfo.cbSize = Len(lpMonitorInfo)
    GetMonitorInfo hMonitor, lpMonitorInfo
    ReDim Preserve g_Monitors(UBound(g_Monitors) + 1)
    g_Monitors(UBound(g_Monitors)).rcMonitor = lpMonitorInfo.rcMonitor
    MonitorEnumProc = 1
End Function

Private Function SaveBitmap(ByVal hBitmap As Long, ByVal FileName As String) As Boolean
    Dim hFile As Long, Ret As Long
    Dim BmpFileHdr As BITMAPFILEHEADER
    Dim BmpInfoHdr As BITMAPINFOHEADER
    Dim BmpSize As Long
    Dim lpBits As Long
    
    BmpSize = Len(BmpFileHdr) + Len(BmpInfoHdr) + GetBitmapBits(hBitmap, 0, ByVal 0&, ByVal 0&)
    ReDim BmpFileHdr.bfType(0 To 1) As Byte
    BmpFileHdr.bfType(0) = Asc("B")
    BmpFileHdr.bfType(1) = Asc("M")
    BmpFileHdr.bfSize = BmpSize
    BmpFileHdr.bfReserved1 = 0
    BmpFileHdr.bfReserved2 = 0
    BmpFileHdr.bfOffBits = Len(BmpFileHdr) + Len(BmpInfoHdr)
    
    BmpInfoHdr.biSize = Len(BmpInfoHdr)
    BmpInfoHdr.biWidth = lpBitmapInfo.bmiHeader.biWidth
    BmpInfoHdr.biHeight = lpBitmapInfo.bmiHeader.biHeight
    BmpInfoHdr.biPlanes = lpBitmapInfo.bmiHeader.biPlanes
    BmpInfoHdr.biBitCount = lpBitmapInfo.bmiHeader.biBitCount
    BmpInfoHdr.biCompression = lpBitmapInfo.bmiHeader.biCompression
    BmpInfoHdr.biSizeImage = 0
    BmpInfoHdr.biXPelsPerMeter = 0
    BmpInfoHdr.biYPelsPerMeter = 0
    BmpInfoHdr.biClrUsed = 0
    BmpInfoHdr.biClrImportant = 0
    
    '打开文件
    hFile = FreeFile
    Open FileName For Binary Access Write As #hFile
    
    '写入文件头和位图信息头
    Put #hFile, , BmpFileHdr
    Put #hFile, , BmpInfoHdr
    
    '写入位图数据
    lpBits = GlobalAlloc(GPTR, BmpSize)
    Ret = GetBitmapBits(hBitmap, BmpSize, ByVal lpBits, ByVal lpBits)
    Put #hFile, , lpBits, BmpSize
    
    '关闭文件
    Close #hFile
    
    '释放资源
    GlobalFree lpBits
    
    SaveBitmap = True
End Function

在这个示例代码中，先调用`EnumDisplayMonitors`函数获取所有的显示器信息，然后创建设备上下文句柄，复制屏幕上的图像到位图中，最后保存位图到文件中。注意，这个示例代码中假设所有的显示器都是横向排列的，如果您的显示器排列方式不同，需要根据具体情况修改代码。

用VB6.0生成一个支持扩展屏截图的截图工具

下面是一个使用VB6.0编写的支持扩展屏截图的截图工具示例。该程序使用Windows API函数和VB6.0自带控件实现屏幕截图功能，并支持多个显示器。

1. 创建一个新的VB6.0项目，并添加以下控件：一个PictureBox控件，一个CommandButton控件和一个Label控件。

2. 在代码窗口中插入以下代码：

Option Explicit

Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private Sub Command1_Click()
    Dim hWnd As Long, hDC As Long, result As Long
    Dim rect As RECT
    Dim picWidth As Long, picHeight As Long
    
    '获取当前活动窗口的句柄
    hWnd = GetForegroundWindow()
    
    '获取窗口的位置和大小
    result = GetWindowRect(hWnd, rect)
    
    '计算截图的宽度和高度
    picWidth = rect.Right - rect.Left
    picHeight = rect.Bottom - rect.Top
    
    '创建图像对象并绘制截图
    Picture1.AutoRedraw = True
    Picture1.Width = picWidth / Screen.TwipsPerPixelX
    Picture1.Height = picHeight / Screen.TwipsPerPixelY
    hDC = GetDC(hWnd)
    result = BitBlt(Picture1.hDC, 0, 0, picWidth, picHeight, hDC, 0, 0, vbSrcCopy)
    result = ReleaseDC(hWnd, hDC)
    Picture1.AutoRedraw = False
    
    '显示截图的宽度和高度
    Label1.Caption = "Width: " & Picture1.ScaleWidth & " Height: " & Picture1.ScaleHeight
End Sub

3. 在窗体的Load事件中添加以下代码，以将PictureBox控件设置为自动换行和自动大小：

Private Sub Form_Load()
    Picture1.AutoSize = True
    Picture1.BorderStyle = vbBSNone
End Sub

4. 运行程序并单击CommandButton控件来进行截图。截图将显示在PictureBox控件中，并且Label控件将显示截图的宽度和高度。

注意：此示例代码只提供了基本的截图功能，并没有包含保存截图或支持多个显示器的完整代码。如果您需要实现更高级的截图功能，请参考Windows API文档和VB6.0开发文档以获取更多信息。