formscreen.frm

个人VB学习源码精选,自己学习时的一些编程小程序,希望对大家有帮助

VERSION 5.00
Begin VB.Form formScreen 
   AutoRedraw      =   -1  'True
   BorderStyle     =   0  'None
   ClientHeight    =   3195
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4680
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   DrawMode        =   14  'Copy Pen
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer timeBlanker 
      Enabled         =   0   'False
      Interval        =   500
      Left            =   840
      Top             =   1800
   End
End
Attribute VB_Name = "formScreen"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_DblClick()
    Static num As Integer
    Dim msg As String
    Dim title As String
    Dim ans As Integer
    
    timeBlanker.Enabled = False
    msg = "Would you like to save this image?"
    title = "Graphics Project"
    ans = MsgBox(msg, vbYesNo, title)
    If ans = 6 Then
        
        On Error Resume Next
        msg = "d:\temp\Pic" & Format(num, "000") & ".bmp"
        SavePicture formScreen.Image, msg
        num = num + 1
        MousePointer = vbDefault
    End If
    formScreen.Cls
    formScreen.Hide
    formGraphics.Show
End Sub

Private Sub Form_Load()
    WindowState = vbMaximized
    MsgBox "kkk"
End Sub



Private Sub Form_Paint()
    BackColor = RGB(255, 255, 255)
End Sub

Private Sub timeBlanker_Timer()
        Static Color As Integer
    Dim X As Single, X1 As Single
    Dim Y As Single, Y1 As Single
    Dim Radius As Single
    Randomize
    X = Int((ScaleWidth - ScaleWidth / 20) * Rnd + ScaleWidth / 20)
    Y = Int((ScaleHeight - ScaleHeight / 20) * Rnd + ScaleWidth / 20)
    DrawWidth = Int((50 - 20) * Rnd + 20)
    
    Select Case formGraphics.BlankerType
        Case 0
            formScreen.BackColor = QBColor(0)
        Case 1
            formScreen.PSet (X, Y), QBColor(Color)
        Case 2
            
            Radius = Int((ScaleWidth / 2 - ScaleWidth / 20) * Rnd + ScaleWidth / 20)
            Circle (X, Y), Radius, QBColor(Color)
        Case 3
            X1 = Int((ScaleWidth - ScaleWidth / 20) * Rnd + ScaleWidth / 20)
            Y1 = Int((ScaleHeight - ScaleHeight / 20) * Rnd + ScaleHeight / 20)
            Line (X, Y)-(X1, Y1), QBColor(Color), BF
        Case 4
            X1 = Int((ScaleWidth - ScaleWidth / 20) * Rnd + ScaleWidth / 20)
            Y1 = Int((ScaleHeight - ScaleHeight / 20) * Rnd + ScaleHeight / 20)
            Line (X, Y)-(X1, Y1), QBColor(Color)
    End Select
    If formGraphics.BlankerType <> 0 Then
        If Color <> 15 Then
            Color = Color + 1
        Else
            Color = 0
            
        End If
    End If
End Sub