Form1.frm
资源名称:smiley.rar [点击查看]
上传用户:hx800c
上传日期:2020-12-02
资源大小:792k
文件大小:1k
源码类别:
编辑框
开发平台:
Visual Basic
- VERSION 5.00
- Object = "{CC888B26-5CB7-4691-9FCA-6AB8BC181E7A}#1.0#0"; "SCREEN~1.OCX"
- Begin VB.Form Form1
- Caption = "Form1"
- ClientHeight = 3195
- ClientLeft = 60
- ClientTop = 345
- ClientWidth = 4680
- LinkTopic = "Form1"
- ScaleHeight = 3195
- ScaleWidth = 4680
- StartUpPosition = 3 '窗口缺省
- Begin VB.CommandButton Command1
- Caption = "开始"
- Height = 615
- Left = 1680
- TabIndex = 1
- Top = 1440
- Width = 1335
- End
- Begin SCREENCAPLib.ScreenCap ScreenCap1
- Height = 255
- Left = 240
- TabIndex = 0
- Top = 240
- Width = 255
- _Version = 65536
- _ExtentX = 450
- _ExtentY = 450
- _StockProps = 0
- End
- End
- Attribute VB_Name = "Form1"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- 'PRTX 即时通讯开发平台组件之一,本版本为广告版,带有PRTX字样
- Private Sub Command1_Click()
- Dim strPath As String
- strPath = "C:screen.bmp"
- '使用非常简单,只有一个参数,是设置拷屏后的文件名
- If ScreenCap1.StartCap(strPath) Then
- MsgBox "已经拷贝到" & strPath
- End If
- End Sub