📄 main_fzgj_addresslist.frm
字号:
BeginProperty Split0
MarqueeStyle = 4
BeginProperty Column00
ColumnWidth = 404.787
EndProperty
BeginProperty Column01
ColumnWidth = 989.858
EndProperty
BeginProperty Column02
ColumnWidth = 615.118
EndProperty
BeginProperty Column03
ColumnWidth = 1635.024
EndProperty
BeginProperty Column04
ColumnWidth = 1124.787
EndProperty
BeginProperty Column05
ColumnWidth = 1289.764
EndProperty
BeginProperty Column06
ColumnWidth = 1769.953
EndProperty
BeginProperty Column07
ColumnWidth = 1335.118
EndProperty
BeginProperty Column08
ColumnWidth = 1154.835
EndProperty
BeginProperty Column09
ColumnWidth = 884.976
EndProperty
BeginProperty Column10
ColumnWidth = 1184.882
EndProperty
BeginProperty Column11
ColumnWidth = 1154.835
EndProperty
BeginProperty Column12
ColumnWidth = 1379.906
EndProperty
BeginProperty Column13
ColumnWidth = 2085.166
EndProperty
EndProperty
End
End
Begin VB.PictureBox Picture1
Height = 2220
Left = 90
ScaleHeight = 2160
ScaleWidth = 10770
TabIndex = 0
Top = 4575
Width = 10830
Begin VB.CommandButton cmdURL2
Caption = "URL"
Height = 270
Left = 10080
TabIndex = 39
Top = 1770
Width = 510
End
Begin VB.CommandButton cmdURL
Caption = "URL"
Height = 270
Left = 10020
TabIndex = 38
Top = 555
Width = 510
End
Begin VB.TextBox txtCompanyNet
BackColor = &H80000018&
ForeColor = &H00C00000&
Height = 270
Left = 7605
TabIndex = 13
Top = 1755
Width = 2445
End
Begin VB.TextBox txtCompanyName
BackColor = &H80000018&
ForeColor = &H00C00000&
Height = 270
Left = 3705
TabIndex = 12
Top = 1740
Width = 2880
End
Begin VB.TextBox txtOffice
BackColor = &H80000018&
ForeColor = &H00C00000&
Height = 270
Left = 6270
TabIndex = 9
Top = 1350
Width = 1275
End
Begin VB.TextBox txtDept
BackColor = &H80000018&
ForeColor = &H00C00000&
Height = 270
Left = 3720
TabIndex = 8
Top = 1350
Width = 1575
End
Begin VB.TextBox txtDuty
BackColor = &H80000018&
ForeColor = &H00C00000&
Height = 270
Left = 1050
TabIndex = 7
Top = 1350
Width = 1575
End
Begin VB.TextBox txtFax
BackColor = &H80000018&
ForeColor = &H00C00000&
Height = 270
Left = 1050
TabIndex = 11
Top = 1785
Width = 1575
End
Begin VB.TextBox txtOperation
BackColor = &H80000018&
ForeColor = &H00C00000&
Height = 270
Left = 8715
TabIndex = 10
Top = 1350
Width = 1845
End
Begin VB.TextBox txtPersonNet
BackColor = &H80000018&
ForeColor = &H00C00000&
Height = 270
Left = 6045
TabIndex = 6
Top = 555
Width = 3930
End
Begin VB.TextBox txtMobile
BackColor = &H80000018&
ForeColor = &H00C00000&
Height = 270
Left = 3645
TabIndex = 5
Top = 585
Width = 1275
End
Begin VB.TextBox txtPhone
BackColor = &H80000018&
ForeColor = &H00C00000&
Height = 270
Left = 1050
TabIndex = 4
Top = 600
Width = 1575
End
Begin VB.TextBox txtEmail
BackColor = &H80000018&
ForeColor = &H00C00000&
Height = 270
Left = 6045
TabIndex = 3
Top = 90
Width = 4485
End
Begin VB.TextBox txtSex
BackColor = &H80000018&
ForeColor = &H00C00000&
Height = 270
Left = 3630
TabIndex = 2
Top = 120
Width = 1275
End
Begin VB.TextBox txtName
BackColor = &H80000018&
ForeColor = &H00C00000&
Height = 270
Left = 1050
TabIndex = 1
Top = 150
Width = 1575
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "公司网页："
Height = 180
Left = 6720
TabIndex = 28
Top = 1800
Width = 900
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "公司名称："
Height = 180
Left = 2760
TabIndex = 27
Top = 1815
Width = 900
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "办公室："
Height = 180
Left = 5415
TabIndex = 26
Top = 1350
Width = 720
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "部 门："
Height = 180
Left = 2760
TabIndex = 25
Top = 1350
Width = 810
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "职 务："
Height = 180
Left = 105
TabIndex = 24
Top = 1350
Width = 720
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "业务传真："
Height = 180
Left = 105
TabIndex = 23
Top = 1815
Width = 900
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "业务电话："
Height = 180
Left = 7725
TabIndex = 22
Top = 1350
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "个人网页："
Height = 180
Left = 5025
TabIndex = 21
Top = 645
Width = 900
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "移动电话："
Height = 180
Left = 2760
TabIndex = 20
Top = 645
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "住址电话："
Height = 180
Left = 105
TabIndex = 19
Top = 645
Width = 900
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "电子邮件："
Height = 180
Left = 5025
TabIndex = 18
Top = 195
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "性 别："
Height = 180
Left = 2760
TabIndex = 17
Top = 195
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "姓 名："
Height = 180
Left = 105
TabIndex = 16
Top = 195
Width = 720
End
End
Begin VB.Label Label14
AutoSize = -1 'True
Caption = "输入姓名："
Height = 180
Left = 180
TabIndex = 37
Top = 45
Width = 900
End
Begin VB.Menu OP
Caption = "操作"
Visible = 0 'False
Begin VB.Menu Updata
Caption = "--修改--"
End
Begin VB.Menu Del
Caption = "--删除--"
End
End
End
Attribute VB_Name = "main_fzgj_addressList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub CmdAdd_Click()
txtName.text = ""
txtSex.text = ""
txtEmail.text = ""
txtPhone.text = ""
txtMobile.text = ""
txtPersonNet.text = "http://"
txtOperation.text = ""
txtFax.text = ""
txtDuty.text = ""
txtDept.text = ""
txtOffice.text = ""
txtCompanyName.text = ""
txtCompanyNet.text = "http://"
Call txtUnLock
cmdAdd.Enabled = False
cmdUpdata.Enabled = False
cmdDel.Enabled = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -