【VB开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了VB开源代码-frmfl.frm的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
VERSION 5.00
Begin VB.Form frmfl
Caption = "费率设置"
ClientHeight = 1620
ClientLeft = 60
ClientTop = 345
ClientWidth = 5355
LinkTopic = "Form1"
ScaleHeight = 1620
ScaleWidth = 5355
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command1
Caption = "取消"
Height = 375
Index = 1
Left = 2760
TabIndex = 3
Top = 960
Width = 975
End
Begin VB.CommandButton Command1
Caption = "确定"
Height = 375
Index = 0
Left = 1200
TabIndex = 2
Top = 960
Width = 975
End
Begin VB.TextBox Text1
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
Height = 375
Left = 2040
TabIndex = 1
Top = 360
Width = 1575
End
Begin
VB.Label Label1
Caption = "费率:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1200
TabIndex = 0
Top = 360
Width = 735
End
End
Attribute VB_Name = "frmfl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click(Index As Integer)
If Index = 0 Then
feilu = Val(Text1.Text)
End If
Unload frmfl
End Sub