📄 form1.frm
字号:
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1560
TabIndex = 30
ToolTipText = "查询当前股票"
Top = 1440
Width = 615
End
Begin VB.Label Label8
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "0.00"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 960
TabIndex = 29
ToolTipText = "保存证券代码"
Top = 1440
Width = 615
End
Begin VB.Label Label7
Alignment = 1 'Right Justify
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "0.00"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3480
TabIndex = 28
Top = 960
Width = 855
End
Begin VB.Label Label6
Alignment = 1 'Right Justify
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2760
TabIndex = 27
Top = 960
Width = 735
End
Begin VB.Label Label5
Alignment = 1 'Right Justify
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2160
TabIndex = 26
Top = 960
Width = 615
End
Begin VB.Label Label4
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "2.00"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1560
TabIndex = 25
ToolTipText = "查询当前股票"
Top = 960
Width = 615
End
Begin VB.Label Label3
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "0.00"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 960
TabIndex = 24
ToolTipText = "保存证券代码"
Top = 960
Width = 615
End
Begin VB.Label Label2
Alignment = 2 'Center
Caption = "股票"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 2520
TabIndex = 22
Top = 120
Width = 735
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "资金"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 255
Left = 240
TabIndex = 20
Top = 120
Width = 615
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public pmark As String
Dim n As String, chic As String, chengb As String 'n为证券名称, daima为证券代码
Dim x As Integer
Dim i As Integer
Private Sub Command1_Click()
If Combo1.Text = "买" Then
Label6.Caption = Val(Label6.Caption) + Val(Text14.Text)
MsgBox "确定"
Text43 = Val(Text43.Text) - Val(Label4.Caption) * Val(Text14.Text)
Text44 = Val(Text44.Text) + Val(Label4.Caption) * Val(Text14.Text)
Label7.Caption = Val(Text44.Text) \ Val(Label6.Caption)
End If
If Combo1.Text = "卖" Then
Label6.Caption = Val(Label6.Caption) - Val(Text14.Text)
MsgBox "确定"
Text44 = Val(Text44.Text) - Val(Text14.Text) * Val(Label14.Caption)
Text43 = Val(Label4.Caption) * Val(Text14.Text) + Val(Text43.Text)
Label7.Caption = Val(Text44.Text) \ Val(Label6.Caption)
End If
End Sub
Private Sub Form_Load()
Text44 = Val(Label4.Caption) * Val(Label7.Caption)
Text14 = Val(Text43.Text) \ Val(Label4.Caption)
End Sub
Private Sub Label13_Click()
If Text22.Text = "" Then MsgBox "请输入证券代码"
If Text22.Text <> "" Then
Open App.Path & "\data.txt" For Append As #1
n = Text22.Text
chic = Label16.Caption
chengb = Label17.Caption
Write #1, n, chic, chengb
Close #1
End If
End Sub
Private Sub Label14_Click()
Dim msg As String
If Text22.Text = "" Then
MsgBox "请输入证券代码"
Else
Open App.Path & "\data.txt" For Input As #1
i = 0
Do While Not EOF(1)
i = i + 1
Input #1, n, chic, chengb
If n = Text29.Text Then
Label16.Caption = chic
Label17.Caption = chengb
End If
Loop
Close #1
Exit Sub
End If
End Sub
Private Sub Label18_Click()
If Text29.Text = "" Then MsgBox "请输入证券代码"
If Text29.Text <> "" Then
Open App.Path & "\data.txt" For Append As #1
n = Text29.Text
chic = Label21.Caption
chengb = Label22.Caption
Write #1, n, chic, chengb
Close #1
End If
End Sub
Private Sub Label19_Click()
Dim msg As String
If Text29.Text = "" Then
MsgBox "请输入证券代码"
Else
Open App.Path & "\data.txt" For Input As #1
i = 0
Do While Not EOF(1)
i = i + 1
Input #1, n, chic, chengb
If n = Text29.Text Then
Label21.Caption = chic
Label22.Caption = chengb
End If
Loop
Close #1
Exit Sub
End If
End Sub
Private Sub Label23_Click()
If Text36.Text = "" Then MsgBox "请输入证券代码"
If Text36.Text <> "" Then
Open App.Path & "\data.txt" For Append As #1
n = Text36.Text
chic = Label26.Caption
chengb = Label27.Caption
Write #1, n, chic, chengb
Close #1
End If
End Sub
Private Sub Label24_Click()
Dim msg As String
If Text36.Text = "" Then
MsgBox "请输入证券代码"
Else
Open App.Path & "\data.txt" For Input As #1
i = 0
Do While Not EOF(1)
i = i + 1
Input #1, n, chic, chengb
If n = Text36.Text Then
Label26.Caption = chic
Label27.Caption = chengb
End If
Loop
Close #1
Exit Sub
End If
End Sub
Private Sub Label3_Click()
If Text8.Text = "" Then MsgBox "请输入证券代码"
If Text8.Text <> "" Then
Open App.Path & "\data.txt" For Append As #1
n = Text8.Text
chic = Label6.Caption
chengb = Label7.Caption
Write #1, n, chic, chengb
Close #1
End If
End Sub
Private Sub Label4_Click()
Dim msg As String
If Text8.Text = "" Then
MsgBox "请输入证券代码"
Else
Open App.Path & "\data.txt" For Input As #1
i = 0
Do While Not EOF(1)
i = i + 1
Input #1, n, chic, chengb
If n = Text8.Text Then
Label6.Caption = chic
Label7.Caption = chengb
End If
Loop
Close #1
'Exit Sub
'MsgBox "欢迎查询"
End If
Text44 = Val(Label6.Caption) * Val(Label7.Caption)
End Sub
Private Sub Label8_Click()
If Text15.Text = "" Then MsgBox "请输入证券代码"
If Text15.Text <> "" Then
Open App.Path & "\data.txt" For Append As #1
n = Text15.Text
chic = Label11.Caption
chengb = Label12.Caption
Write #1, n, chic, chengb
Close #1
End If
End Sub
Private Sub Label9_Click()
Dim msg As String
If Text15.Text = "" Then
MsgBox "请输入证券代码"
Else
Open App.Path & "\data.txt" For Input As #1
i = 0
Do While Not EOF(1)
i = i + 1
Input #1, n, chic, chengb
If n = Text15.Text Then
Label11.Caption = chic
Label12.Caption = chengb
End If
Loop
Close #1
Exit Sub
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -