?? frmfind.frm
字號:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmFind
Caption = "查詢"
ClientHeight = 5100
ClientLeft = 60
ClientTop = 345
ClientWidth = 5910
Icon = "frmFind.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 5100
ScaleWidth = 5910
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton cmdDetail
Caption = "詳細信息"
Height = 495
Left = 2880
TabIndex = 8
Top = 2760
Width = 1215
End
Begin VB.CommandButton cmdAddHate
Caption = "列為壞人"
Height = 495
Left = 4440
TabIndex = 7
Top = 2160
Width = 1215
End
Begin VB.CommandButton cmdClose
Caption = "關閉"
Height = 495
Left = 4440
TabIndex = 6
Top = 2760
Width = 1215
End
Begin VB.CommandButton cmdAddFrd
Caption = "加為好友"
Height = 495
Left = 4440
TabIndex = 5
Top = 1560
Width = 1215
End
Begin VB.Frame Frame1
Caption = "查找項"
Height = 1455
Left = 360
TabIndex = 4
Top = 3360
Width = 5175
Begin VB.Label Label2
Caption = "這里要求用戶填寫“查找的關鍵字”。"
Height = 495
Left = 840
TabIndex = 9
Top = 480
Width = 3375
End
End
Begin VB.CommandButton cmdFind
Caption = "查找"
Height = 495
Left = 4440
TabIndex = 3
Top = 960
Width = 1215
End
Begin VB.CommandButton cmdRefresh
Caption = "刷新"
Height = 495
Left = 4440
TabIndex = 2
Top = 360
Width = 1215
End
Begin MSComctlLib.ImageList ImageList
Left = 4200
Top = 1560
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 5
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmFind.frx":030A
Key = "f1"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmFind.frx":0626
Key = "f2"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmFind.frx":0A7A
Key = "f3"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmFind.frx":0ECE
Key = "f4"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmFind.frx":11EA
Key = "f5"
EndProperty
EndProperty
End
Begin MSComctlLib.ListView lstView
Height = 2175
Left = 360
TabIndex = 1
Top = 360
Width = 3855
_ExtentX = 6800
_ExtentY = 3836
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 393217
Icons = "ImageList"
SmallIcons = "ImageList"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin VB.Label Label1
Caption = "用戶列表:"
Height = 255
Left = 480
TabIndex = 0
Top = 120
Width = 1215
End
End
Attribute VB_Name = "frmFind"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdAddFrd_Click()
Dim litem As ListItem
For Each litem In lstView.ListItems
If litem.Selected Then
'加為好友
AddFrd litem.Tag
Exit For
End If
Next
Unload Me
End Sub
Private Sub cmdAddHate_Click()
Dim litem As ListItem
For Each litem In lstView.ListItems
If litem.Selected Then
'列為壞人
AddHate litem.Tag
Exit For
End If
Next
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdDetail_Click()
MsgBox "用戶在這里查看某個網友的詳細信息!", vbInformation, "詳細信息"
End Sub
Private Sub cmdFind_Click()
MsgBox "用戶在這里根據關鍵字查找某個網友的信息!", vbInformation, "詳細信息"
End Sub
Private Sub cmdRefresh_Click()
lstView.ListItems.Clear
'重新發(fā)送請求
frmClient.wskClient.SendData "QICQFND" + "all"
End Sub
Private Sub Form_Load()
'視圖
lstView.View = lvwReport
lstView.ColumnHeaders.Add , "img", "用戶", lstView.Width / 3
lstView.ColumnHeaders.Add , "sex", "性別", lstView.Width / 3
lstView.ColumnHeaders.Add , "state", "狀態(tài)", lstView.Width / 3
'要求服務器給出所有的用戶
frmClient.wskClient.SendData "QICQFND" + "all"
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -