frmpicture.frm

来自「第1章 串口编程调试精灵 第2章 智能安防报警系统 第3章 电子警察拍照管理」· FRM 代码 · 共 56 行

VERSION 5.00
Begin VB.Form frmPicture 
   Caption         =   "Form1"
   ClientHeight    =   9120
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7815
   LinkTopic       =   "Form1"
   ScaleHeight     =   9120
   ScaleWidth      =   7815
   StartUpPosition =   3  'Windows Default
   Begin VB.ListBox List1 
      Height          =   4350
      Left            =   105
      TabIndex        =   1
      Top             =   4365
      Width           =   7545
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H8000000A&
      ForeColor       =   &H80000008&
      Height          =   4350
      Left            =   105
      Picture         =   "frmPicture.frx":0000
      ScaleHeight     =   288
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   498
      TabIndex        =   0
      Top             =   -135
      Width           =   7500
   End
End
Attribute VB_Name = "frmPicture"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Click()
Dim i As Long
Dim x As Integer, y As Integer, c As Long

    For i = 0 To 2000
        x = Rnd * Picture1.ScaleWidth
        y = Rnd * Picture1.ScaleHeight
        c = GetPixel(Picture1.hdc, x, y)
        List1.AddItem Format(x) & "  " & Format(y) & "  " & Format(c)
    Next i
    
End Sub