📄 filmabout.frm
字号:
VERSION 5.00
Begin VB.Form FilmAbout
AutoRedraw = -1 'True
BorderStyle = 3 'Fixed Dialog
Caption = "制作"
ClientHeight = 3525
ClientLeft = 45
ClientTop = 330
ClientWidth = 6210
ControlBox = 0 'False
Icon = "FilmAbout.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3525
ScaleWidth = 6210
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command1
Caption = "关闭"
Height = 300
Left = 4800
TabIndex = 1
Top = 2910
Width = 975
End
Begin VB.Timer Timer1
Interval = 100
Left = 555
Top = 3180
End
Begin VB.PictureBox Picture1
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 2385
Left = 240
Picture = "FilmAbout.frx":0CCA
ScaleHeight = 2385
ScaleWidth = 5700
TabIndex = 0
Top = 405
Width = 5700
Begin VB.Frame Frame1
BackColor = &H80000005&
BorderStyle = 0 'None
Height = 9075
Left = 1080
TabIndex = 5
Top = 360
Width = 4485
Begin VB.Image Image19
Height = 360
Left = 1125
Picture = "FilmAbout.frx":2837
Top = 6540
Width = 2670
End
Begin VB.Image Image15
Height = 345
Left = 690
Picture = "FilmAbout.frx":6B39
Top = 6960
Width = 3735
End
Begin VB.Image Image6
Height = 360
Left = 1635
Picture = "FilmAbout.frx":C4F7
Top = 4905
Width = 1500
End
Begin VB.Image Image12
Height = 330
Left = 1665
Picture = "FilmAbout.frx":EAB9
Top = 5325
Width = 1395
End
Begin VB.Image Image9
Height = 360
Left = 1680
Picture = "FilmAbout.frx":10AF3
Top = 5700
Width = 1455
End
Begin VB.Image Image18
Height = 345
Left = 1710
Picture = "FilmAbout.frx":12F95
Top = 4545
Width = 1230
End
Begin VB.Image Image17
Height = 465
Left = 1710
Picture = "FilmAbout.frx":14D4F
Top = 4140
Width = 1425
End
Begin VB.Image Image16
Height = 375
Left = 1830
Picture = "FilmAbout.frx":17071
Top = 3675
Width = 1260
End
Begin VB.Image Image14
Height = 465
Left = 1665
Picture = "FilmAbout.frx":1894F
Top = 3105
Width = 1425
End
Begin VB.Image Image13
Height = 360
Left = 1800
Picture = "FilmAbout.frx":1AC71
Top = 2655
Width = 1170
End
Begin VB.Image Image11
Height = 465
Left = 1650
Picture = "FilmAbout.frx":1C2D3
Top = 2085
Width = 1425
End
Begin VB.Image Image10
Height = 345
Left = 1770
Picture = "FilmAbout.frx":1E5F5
Top = 1650
Width = 1185
End
Begin VB.Image Image8
Height = 465
Left = 1620
Picture = "FilmAbout.frx":1FBC7
Top = 1095
Width = 1425
End
Begin VB.Image Image7
Height = 375
Left = 1785
Picture = "FilmAbout.frx":21EE9
Top = 645
Width = 1125
End
Begin VB.Image Image5
Height = 525
Left = -30
Picture = "FilmAbout.frx":2356F
Top = -15
Width = 4530
End
Begin VB.Image Image4
Height = 615
Left = 135
Picture = "FilmAbout.frx":2DAD9
Stretch = -1 'True
Top = 6705
Width = 585
End
Begin VB.Image Image3
Height = 720
Left = 30
Picture = "FilmAbout.frx":31ED0
Stretch = -1 'True
Top = 5895
Width = 660
End
Begin VB.Image Image2
Height = 720
Left = 660
Picture = "FilmAbout.frx":34816
Top = 495
Width = 810
End
Begin VB.Image Image1
Height = 345
Left = 1230
Picture = "FilmAbout.frx":36718
Top = 6150
Width = 2385
End
End
End
Begin VB.Line Line8
BorderColor = &H00808080&
X1 = 6045
X2 = 6045
Y1 = 120
Y2 = 3300
End
Begin VB.Line Line7
BorderColor = &H00E0E0E0&
X1 = 6120
X2 = 6120
Y1 = 30
Y2 = 3435
End
Begin VB.Line Line6
BorderColor = &H00808080&
X1 = 120
X2 = 6030
Y1 = 120
Y2 = 120
End
Begin VB.Line Line5
BorderColor = &H00E0E0E0&
X1 = 15
X2 = 6105
Y1 = 30
Y2 = 30
End
Begin VB.Line Line4
BorderColor = &H00808080&
X1 = 105
X2 = 105
Y1 = 135
Y2 = 3315
End
Begin VB.Line Line3
BorderColor = &H00E0E0E0&
X1 = 30
X2 = 30
Y1 = 15
Y2 = 3435
End
Begin VB.Label Label5
Caption = "Label5"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 6600
TabIndex = 4
Top = 1200
Visible = 0 'False
Width = 975
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "Label4"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 6600
TabIndex = 3
Top = 840
Visible = 0 'False
Width = 630
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label3"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 6600
TabIndex = 2
Top = 360
Visible = 0 'False
Width = 630
End
Begin VB.Line Line2
BorderColor = &H00E0E0E0&
X1 = 30
X2 = 6120
Y1 = 3435
Y2 = 3435
End
Begin VB.Line Line1
BorderColor = &H00808080&
X1 = 120
X2 = 6045
Y1 = 3300
Y2 = 3300
End
End
Attribute VB_Name = "FilmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim filmys As Boolean
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim Mxf As String
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
Mxf = "马相赋"
Label4.Caption = Label3.Caption + vbCrLf + vbCrLf & CompName + vbCrLf + vbCrLf & App.CompanyName
End Sub
Private Sub Timer1_Timer()
If Frame1.Top < Me.Height - Me.Height - Frame1.Height Then
Frame1.Top = Me.Height - 1
Frame1.Top = Frame1.Top - 25
Else
Frame1.Top = Frame1.Top - 25
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -