frmabout1.frm

来自「电子衡自动计量系统.能对电子汽车衡进行自动计量.完成车皮存储,重车自动除皮等功能」· FRM 代码 · 共 93 行

VERSION 5.00
Begin VB.Form frmAbout1 
   BackColor       =   &H00C0E0FF&
   BorderStyle     =   0  'None
   Caption         =   "关于我的应用程序"
   ClientHeight    =   4740
   ClientLeft      =   2295
   ClientTop       =   1590
   ClientWidth     =   7770
   ClipControls    =   0   'False
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3271.632
   ScaleMode       =   0  'User
   ScaleWidth      =   7296.432
   ShowInTaskbar   =   0   'False
   Begin VB.PictureBox Picture1 
      Height          =   4815
      Left            =   0
      Picture         =   "frmAbout1.frx":0000
      ScaleHeight     =   4755
      ScaleWidth      =   7755
      TabIndex        =   0
      Top             =   0
      Visible         =   0   'False
      Width           =   7815
      Begin VB.Timer Timer1 
         Interval        =   2000
         Left            =   480
         Top             =   2640
      End
   End
End
Attribute VB_Name = "frmAbout1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

     Dim Proba, Proba2 As Integer
     Dim Boja2 As String

Private Function Zrak(slika As PictureBox, StartX As Integer, StartY As Integer, Levo As Integer, Desno As Integer, Boja As String)

     

Me.ScaleMode = vbPixels

With slika
     .ScaleMode = vbPixels
     .AutoRedraw = True
End With

For Proba2 = 0 To slika.ScaleWidth
    DoEvents

For Proba = 0 To slika.ScaleHeight
    Boja2 = slika.Point(Proba2, Proba)
   Line (StartX, StartY)-(Levo + Proba2, Desno + Proba), Boja2
Next
   Line (StartX, StartY)-(Levo + Proba2, Desno + slika.ScaleHeight), Boja
Next

For Proba2 = 0 To slika.ScaleHeight
   Line (StartX, StartY)-(Levo + slika.ScaleWidth, Desno + Proba2), Boja
Next

End Function



Private Sub Timer1_Timer()

Zrak Picture1, 565, 301, 0, 0, Me.BackColor    ' adjust the scale and position from where
                               ' laser will draw  your image
                                                ' best performance is if you place start position
                                                ' in down right corner of your picture
                                                'Also  adjust the size of the form , to be same
                                                ' to the size   of the picture , or perform some variation.
   If Timer1.Interval = 2000 Then
'    frmAdministrator.Show    , if you are going further with your program
    Unload Me                  ' you can replace timer with command_click()
    
End If
End Sub