?? frmoverwrite.frm
字號:
VERSION 5.00
Begin VB.Form frmOverwrite
BorderStyle = 3 'Fixed Dialog
Caption = "frmOverwrite"
ClientHeight = 3270
ClientLeft = 45
ClientTop = 330
ClientWidth = 5130
Icon = "frmOverwrite.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3270
ScaleWidth = 5130
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin VB.CommandButton cmdNoAll
Caption = "cmdNoAll"
Height = 375
Left = 3720
TabIndex = 2
Top = 2760
Width = 1315
End
Begin VB.CommandButton cmdNo
Caption = "cmdNo"
Height = 375
Left = 2280
TabIndex = 1
Top = 2760
Width = 1315
End
Begin VB.CommandButton cmdYes
Caption = "cmdYes"
Default = -1 'True
Height = 375
Left = 840
TabIndex = 0
Top = 2760
Width = 1315
End
Begin VB.Label lblVersion
BackStyle = 0 'Transparent
Caption = "lblVersion"
Height = 255
Left = 120
TabIndex = 7
Top = 1920
Width = 4935
End
Begin VB.Label lblDescription
BackStyle = 0 'Transparent
Caption = "lblDescription"
Height = 255
Left = 120
TabIndex = 6
Top = 1560
Width = 4935
End
Begin VB.Label lblFileName
BackStyle = 0 'Transparent
Caption = "lblFileName"
Height = 615
Left = 120
TabIndex = 5
Top = 840
Width = 4935
End
Begin VB.Label lblCopy
BackStyle = 0 'Transparent
Caption = "lblCopy"
Height = 255
Left = 120
TabIndex = 4
Top = 2280
Width = 4935
End
Begin VB.Label lblTopInfo
BackStyle = 0 'Transparent
Caption = "lblTopInfo"
Height = 495
Left = 120
TabIndex = 3
Top = 120
Width = 4935
End
End
Attribute VB_Name = "frmOverwrite"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'Local variables to account for filename/description/version
Private msFile As String
Private msDesc As String
Private msVer As String
Private fFormLoaded As Boolean
Private mfYes As Boolean
Private mfNo As Boolean
Private mfNoToAll As Boolean
Private Sub cmdNo_Click()
mfNo = True
Unload Me
End Sub
Private Sub cmdNoAll_Click()
mfNoToAll = True
Unload Me
End Sub
Private Sub cmdYes_Click()
mfYes = True
Unload Me
End Sub
Private Sub Form_Load()
fFormLoaded = True
SetFormFont Me
'Load the strings for this form.
Me.Caption = ResolveResString(resOVERWRITEFORM)
lblTopInfo.Caption = ResolveResString(resOVERWRITEINFO)
lblCopy.Caption = ResolveResString(resOVERWRITEKEEP)
cmdYes.Caption = ResolveResString(resOVERYES)
cmdNo.Caption = ResolveResString(resOVERNO)
cmdNoAll.Caption = ResolveResString(resOVERNOTOALL)
lblFileName.Caption = ResolveResString(resOVERWRITEFILE, "|1", msFile)
lblDescription.Caption = ResolveResString(resOVERWRITEDESC, "|1", msDesc)
lblVersion.Caption = ResolveResString(resOVERWRITEVER, "|1", msVer)
SetMousePtr vbNormal
End Sub
'public access to local vars
Public Property Let FileName(sName As String)
msFile = sName
If fFormLoaded Then lblFileName.Caption = ResolveResString(resOVERWRITEFILE, "|1", msFile)
End Property
Public Property Let Description(sDesc As String)
msDesc = sDesc
If fFormLoaded Then lblDescription.Caption = ResolveResString(resOVERWRITEDESC, "|1", msDesc)
End Property
Public Property Let Version(sVer As String)
msVer = sVer
If fFormLoaded Then lblVersion.Caption = ResolveResString(resOVERWRITEVER, "|1", msVer)
End Property
Private Sub Form_Unload(Cancel As Integer)
SetMousePtr vbHourglass
End Sub
Public Property Get ReturnVal() As Byte
'Return 0 for yes
'return 1 for no
'return 2 for no to all
If mfYes Then ReturnVal = 0
If mfNo Then ReturnVal = 1
If mfNoToAll Then ReturnVal = 2
End Property
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -