?? 交換中心.frm
字號:
VERSION 5.00
Begin VB.Form Form13
BackColor = &H00FFFFFF&
Caption = "Form13"
ClientHeight = 4920
ClientLeft = 60
ClientTop = 450
ClientWidth = 5970
LinkTopic = "Form13"
ScaleHeight = 4920
ScaleWidth = 5970
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Trans
Height = 735
Left = 1800
TabIndex = 2
Top = 3360
Width = 2415
End
Begin VB.Image Card2
Height = 1515
Left = 2040
Picture = "交換中心.frx":0000
Top = 1320
Visible = 0 'False
Width = 2400
End
Begin VB.Image Card4
Height = 1515
Left = 2040
Picture = "交換中心.frx":0F09
Top = 1320
Visible = 0 'False
Width = 2400
End
Begin VB.Image Card3
Height = 1500
Left = 2040
Picture = "交換中心.frx":1DB5
Top = 1320
Visible = 0 'False
Width = 2400
End
Begin VB.Label Label2
BackColor = &H00FFFFFF&
Caption = "此客戶的銀行卡為:"
Height = 495
Left = 240
TabIndex = 1
Top = 1680
Width = 1695
End
Begin VB.Label Label1
BackColor = &H00FFFFFF&
Caption = "交換中心"
BeginProperty Font
Name = "隸書"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 615
Left = 2040
TabIndex = 0
Top = 360
Width = 1815
End
End
Attribute VB_Name = "Form13"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
If (u = "00000002") Then
Card2.Visible = True
Card3.Visible = False
Card4.Visible = False
Trans.Caption = "轉發(fā)給建設銀行"
Else
If (u = "00000003") Then
Card2.Visible = False
Card3.Visible = True
Card4.Visible = False
Trans.Caption = "轉發(fā)給中國農業(yè)銀行"
Else
If (u = "00000004") Then
Card2.Visible = False
Card3.Visible = False
Card4.Visible = True
Trans.Caption = "轉發(fā)給工商銀行"
End If
End If
End If
End Sub
Private Sub Trans_Click()
Unload Form13
Form14.Show
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -