form1.frm

来自「LCD屏幕测试程序的源码。使用VB制作。运行后就可以进行屏幕测试了 看是否有亮点」· FRM 代码 · 共 23 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "简单的测试LCD显示屏"
   ClientHeight    =   5370
   ClientLeft      =   60
   ClientTop       =   435
   ClientWidth     =   7245
   LinkTopic       =   "Form1"
   ScaleHeight     =   5370
   ScaleWidth      =   7245
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_click()
For i = 1 To 100000
PSet (ScaleWidth * Rnd, ScaleHeight * Rnd), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Next
End Sub