📄 modinfo.frm
字号:
VERSION 5.00
Begin VB.Form Modinfo
BorderStyle = 4 'Fixed ToolWindow
Caption = "查看个人资料"
ClientHeight = 3195
ClientLeft = 150
ClientTop = 375
ClientWidth = 4065
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form3"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3195
ScaleWidth = 4065
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton seekuserinfoo
Caption = "查 寻(&S)"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 2715
TabIndex = 13
ToolTipText = "利用职务来查找"
Top = 2820
Width = 1125
End
Begin VB.CommandButton cmdcal
Cancel = -1 'True
Caption = "放 弃(&X)"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 1455
TabIndex = 10
ToolTipText = "退出本功能"
Top = 2820
Width = 1125
End
Begin VB.CommandButton Cmdok
Caption = "确认修改(&U)"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 195
TabIndex = 9
ToolTipText = "只能修改自己的资料"
Top = 2820
Width = 1125
End
Begin VB.Frame Frame1
Caption = "详细资料"
Height = 2715
Left = 90
TabIndex = 0
Top = 90
Width = 3900
Begin VB.ListBox onlineuser
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2220
ItemData = "Modinfo.frx":0000
Left = 2760
List = "Modinfo.frx":0002
TabIndex = 11
ToolTipText = "所有注册人员"
Top = 375
Width = 1065
End
Begin VB.ComboBox sexmw
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
ItemData = "Modinfo.frx":0004
Left = 720
List = "Modinfo.frx":000E
TabIndex = 8
Text = "男"
Top = 630
Width = 780
End
Begin VB.TextBox fields
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
IMEMode = 3 'DISABLE
Index = 2
Left = 720
MaxLength = 8
PasswordChar = "*"
TabIndex = 7
ToolTipText = "最多8位"
Top = 1035
Width = 1140
End
Begin VB.TextBox fields
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1080
Index = 1
Left = 720
MaxLength = 20
MultiLine = -1 'True
TabIndex = 6
ToolTipText = "填写备注和联系方法"
Top = 1500
Width = 1860
End
Begin VB.TextBox fields
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 0
Left = 720
MaxLength = 8
TabIndex = 5
ToolTipText = "填写姓名及其职务"
Top = 225
Width = 1905
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "在线人员名单"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Index = 4
Left = 2745
TabIndex = 12
Top = 165
Width = 1080
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "密码:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Index = 3
Left = 210
TabIndex = 4
Top = 1065
Width = 450
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "备注:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Index = 2
Left = 210
TabIndex = 3
Top = 1515
Width = 450
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "性别:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Index = 1
Left = 210
TabIndex = 2
Top = 660
Width = 450
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "职务:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Index = 0
Left = 210
TabIndex = 1
Top = 240
Width = 450
End
End
End
Attribute VB_Name = "Modinfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim a As Integer, Icqusername As String
Private Sub cmdcal_Click()
Unload Me
End Sub
Private Sub Cmdok_Click()
Dim Modiover As String
Modiover = fields(0) & "~" & sexmw & "~" & fields(1) & "~" & fields(2)
With Form1
.W1.SendData "moov" & Modiover & "~" & .Locateuser
.Caption = fields(0) & " 在校园及时通"
.Locateuser = fields(0)
End With
Unload Me
End Sub
Private Sub Form_Load()
With Form1.L1
If .ListCount = 0 Then Exit Sub
For a = 0 To .ListCount - 1
onlineuser.AddItem .List(a)
Next
End With
End Sub
Private Sub onlineuser_DblClick()
If Icqusername = "" Then Exit Sub
With Form1.W1
.SendData "usif" & Icqusername
End With
End Sub
Private Sub seekuserinfoo_Click()
Icqusername = Trim(InputBox("请填入要查寻人的职务", "查寻"))
If Icqusername = "" Then Exit Sub
With Form1.W1
.SendData "usif" & Icqusername
End With
End Sub
Private Sub onlineuser_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If onlineuser.ListCount = 0 Then Exit Sub
Dim pos As Long, idx As Long
pos = X / Screen.TwipsPerPixelX + Y / Screen.TwipsPerPixelY * 65536
idx = SendMessage(onlineuser.hwnd, LB_ITEMFROMPOINT, 0, ByVal pos)
If idx < 65536 Then
For a = 0 To onlineuser.ListCount - 1
If onlineuser.List(a) = onlineuser.List(idx) Then
onlineuser.Selected(a) = True
If Button = 0 Then
Icqusername = onlineuser.List(a)
End If
Exit Sub
End If
Next
End If
End Sub
Private Sub onlineuser_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mm, vbPopupMenuLeftAlign
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -