📄 1.txt
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form fcnt
BorderStyle = 1 'Fixed Single
Caption = "Form1"
ClientHeight = 5310
ClientLeft = 150
ClientTop = 720
ClientWidth = 6645
Icon = "Worldcnt.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 5310
ScaleWidth = 6645
StartUpPosition = 3 '窗口缺省
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 120
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 3600
Visible = 0 'False
Width = 3855
End
Begin MSFlexGridLib.MSFlexGrid msf
Bindings = "Worldcnt.frx":030A
Height = 2535
Left = 120
TabIndex = 0
Top = 1680
Width = 4335
_ExtentX = 7646
_ExtentY = 4471
_Version = 393216
Cols = 1
FixedCols = 0
BackColor = 8421376
ForeColor = 16777215
BackColorSel = 8421376
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "世界国家概况"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 3480
TabIndex = 3
Top = 720
Width = 1185
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "世界国家概况"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 2160
TabIndex = 2
Top = 600
Width = 1185
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "世界国家概况"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 840
TabIndex = 1
Top = 360
Width = 1185
End
Begin VB.Menu mfile
Caption = "文件(&F)"
Begin VB.Menu mout
Caption = "数据输出"
End
Begin VB.Menu b1
Caption = "-"
End
Begin VB.Menu mexit
Caption = "返回"
End
End
End
Attribute VB_Name = "fcnt"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Me.Caption = App.Title + "－世界国家概况"
Me.Left = 0
Me.Top = 0
Me.Width = Screen.Width
Me.Height = Screen.Height
Me.Visible = False
msf.Width = Me.Width - msf.Left * 3
Label3.ForeColor = QBColor(5)
Label3.Caption = "世 界 国 家 概 况"
For i = 200 To 1 Step -1
Label3.Font.Size = i
If Label3.Width < msf.Width Then Exit For
Next i
Label1.Font.Size = Label3.Font.Size
Label2.Font.Size = Label3.Font.Size
Label1.ForeColor = QBColor(0)
Label2.ForeColor = QBColor(15)
Label1.Caption = Label3.Caption
Label2.Caption = Label3.Caption
Label3.Left = (Me.Width - Label3.Width) \ 2 - msf.Left
Label3.Top = Label3.Left
sp = 15
Label1.Left = Label3.Left - sp
Label1.Top = Label3.Top - sp
Label2.Left = Label3.Left + sp
Label2.Top = Label3.Top + sp
msf.Top = Label3.Top * 2.5 + Label3.Height
msf.Height = Me.Height - msf.Top - 840
Data1.DatabaseName = omdb1
Data1.RecordSource = "country"
Data1.Refresh
On Error Resume Next
msf.ColWidth(0) = 1000
msf.ColWidth(1) = 3000
msf.ColWidth(2) = 2500
msf.ColWidth(3) = 2000
Data1.Database.Close
Me.Visible = True
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Me.Hide
fmain.Show
End Sub
Private Sub mall_Click()
Data1.DatabaseName = omdb
Data1.RecordSource = "country"
Data1.Refresh
On Error Resume Next
msf.ColWidth(0) = 1000
msf.ColWidth(1) = 3000
msf.ColWidth(2) = 1800
msf.ColWidth(3) = 2500
Data1.Database.Close
End Sub
Private Sub mexit_Click()
Me.Hide
fmain.Show
End Sub
Private Sub mout_Click()
On Error Resume Next
fn = pa + "世界国家概况.TXT"
Open fn For Output As #1
Print #1, " 世界国家概况"
Print #1, "┌───┬──────────┬───────┬───────┐"
Print #1, "│ 位置 │ 国家 │ 首都 │面积(平方千米)│"
Print #1, "├───┼──────────┼───────┼───────┤"
For i = 1 To msf.Rows - 1
tp = "│"
For j = 0 To msf.Cols - 1
If j = 0 Then
tp = tp + msf.TextMatrix(i, j) + Space(6 - strlens(msf.TextMatrix(i, j))) + "│"
Else
If j = 1 Then
tp = tp + msf.TextMatrix(i, j) + Space(20 - strlens(msf.TextMatrix(i, j))) + "│"
Else
If j = 2 Then
tp = tp + msf.TextMatrix(i, j) + Space(14 - strlens(msf.TextMatrix(i, j))) + "│"
Else
tp = tp + Space(14 - strlens(msf.TextMatrix(i, j))) + msf.TextMatrix(i, j) + "│"
End If
End If
End If
Next j
Print #1, tp
If i <> msf.Rows - 1 Then
Print #1, "├───┼──────────┼───────┼───────┤"
Else
Print #1, "└───┴──────────┴───────┴───────┘"
End If
Next i
Close #1
MsgBox Chr(13) + "数据已经输出到文件： " + Chr(13) + Chr(13) + fn + " ", vbInformation
Shell "notepad.exe " + fn, vbMaximizedFocus
End Sub
Private Sub msf_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then PopupMenu mfile
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -