Form1.frm
上传用户:hx800c
上传日期:2020-12-02
资源大小:792k
文件大小:1k
源码类别:

编辑框

开发平台:

Visual Basic

  1. VERSION 5.00
  2. Object = "{CC888B26-5CB7-4691-9FCA-6AB8BC181E7A}#1.0#0"; "SCREEN~1.OCX"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   4680
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3195
  11.    ScaleWidth      =   4680
  12.    StartUpPosition =   3  '窗口缺省
  13.    Begin VB.CommandButton Command1 
  14.       Caption         =   "开始"
  15.       Height          =   615
  16.       Left            =   1680
  17.       TabIndex        =   1
  18.       Top             =   1440
  19.       Width           =   1335
  20.    End
  21.    Begin SCREENCAPLib.ScreenCap ScreenCap1 
  22.       Height          =   255
  23.       Left            =   240
  24.       TabIndex        =   0
  25.       Top             =   240
  26.       Width           =   255
  27.       _Version        =   65536
  28.       _ExtentX        =   450
  29.       _ExtentY        =   450
  30.       _StockProps     =   0
  31.    End
  32. End
  33. Attribute VB_Name = "Form1"
  34. Attribute VB_GlobalNameSpace = False
  35. Attribute VB_Creatable = False
  36. Attribute VB_PredeclaredId = True
  37. Attribute VB_Exposed = False
  38. 'PRTX 即时通讯开发平台组件之一,本版本为广告版,带有PRTX字样
  39. Private Sub Command1_Click()
  40. Dim strPath As String
  41. strPath = "C:screen.bmp"
  42. '使用非常简单,只有一个参数,是设置拷屏后的文件名
  43. If ScreenCap1.StartCap(strPath) Then
  44.     MsgBox "已经拷贝到" & strPath
  45. End If
  46. End Sub