📄 selfrm.frm
字号:
VERSION 5.00
Begin VB.Form SelFrm
BorderStyle = 3 'Fixed Dialog
Caption = "查询条件设定"
ClientHeight = 6150
ClientLeft = 45
ClientTop = 330
ClientWidth = 7575
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6150
ScaleWidth = 7575
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.PictureBox Picture1
Height = 6135
Left = 0
ScaleHeight = 6075
ScaleWidth = 7515
TabIndex = 0
Top = 0
Width = 7575
Begin VB.Frame Frame3
Caption = "系统设置"
Height = 2535
Left = 120
TabIndex = 15
Top = 3480
Width = 7215
Begin VB.TextBox Text3
Height = 1455
Left = 1320
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 22
Top = 960
Width = 5655
End
Begin VB.TextBox Text2
Height = 270
Left = 2160
TabIndex = 19
Text = "1000"
Top = 600
Width = 1095
End
Begin VB.TextBox Text1
Height = 270
Left = 2160
TabIndex = 17
Text = "100"
Top = 240
Width = 1095
End
Begin VB.Label Label6
Caption = "当搜索到用户数超过"
Height = 255
Left = 480
TabIndex = 23
Top = 600
Width = 1695
End
Begin VB.Label Label5
Caption = "消息内容 不要超过QQ限定字数否则会发送失败"
Height = 1455
Left = 480
TabIndex = 21
Top = 960
Width = 735
End
Begin VB.Label Label4
Caption = "时停止"
Height = 255
Left = 3480
TabIndex = 20
Top = 600
Width = 1095
End
Begin VB.Label Label3
Caption = "时开始发消息"
Height = 255
Left = 3480
TabIndex = 18
Top = 240
Width = 1455
End
Begin VB.Label Label2
Caption = "当搜索到的用户超过"
Height = 255
Left = 480
TabIndex = 16
Top = 240
Width = 1695
End
End
Begin VB.OptionButton Option2
Caption = "高级查找"
Height = 255
Left = 240
TabIndex = 4
Top = 960
Width = 1095
End
Begin VB.Frame Frame2
Height = 2415
Left = 120
TabIndex = 3
Top = 960
Width = 7215
Begin VB.CheckBox Check1
Caption = "在线用户"
Height = 255
Left = 480
TabIndex = 24
Top = 360
Value = 1 'Checked
Width = 1455
End
Begin VB.ComboBox Combo1
Height = 300
Index = 3
ItemData = "SelFrm.frx":0000
Left = 1200
List = "SelFrm.frx":000D
Style = 2 'Dropdown List
TabIndex = 14
Top = 1920
Width = 2055
End
Begin VB.ComboBox Combo1
Height = 300
Index = 2
ItemData = "SelFrm.frx":001F
Left = 1200
List = "SelFrm.frx":0035
Style = 2 'Dropdown List
TabIndex = 13
Top = 1560
Width = 2055
End
Begin VB.ComboBox Combo1
Height = 300
Index = 1
ItemData = "SelFrm.frx":006B
Left = 1200
List = "SelFrm.frx":0072
Style = 2 'Dropdown List
TabIndex = 12
Top = 1200
Width = 2055
End
Begin VB.ComboBox Combo1
Height = 300
Index = 0
ItemData = "SelFrm.frx":007C
Left = 1200
List = "SelFrm.frx":00EC
Style = 2 'Dropdown List
TabIndex = 7
Top = 840
Width = 2055
End
Begin VB.CheckBox Check2
Caption = "有摄像头"
Height = 255
Left = 2280
TabIndex = 6
Top = 360
Width = 1575
End
Begin VB.Label Label1
Caption = "性别"
Height = 255
Index = 3
Left = 480
TabIndex = 11
Top = 1920
Width = 615
End
Begin VB.Label Label1
Caption = "年龄"
Height = 255
Index = 2
Left = 480
TabIndex = 10
Top = 1560
Width = 615
End
Begin VB.Label Label1
Caption = "城市"
Height = 255
Index = 1
Left = 480
TabIndex = 9
Top = 1200
Width = 615
End
Begin VB.Label Label1
Caption = "省份"
Height = 255
Index = 0
Left = 480
TabIndex = 8
Top = 840
Width = 615
End
End
Begin VB.OptionButton Option1
Caption = "基本查找"
Height = 255
Left = 240
TabIndex = 2
Top = 120
Value = -1 'True
Width = 1095
End
Begin VB.Frame Frame1
Height = 735
Left = 120
TabIndex = 1
Top = 120
Width = 7215
Begin VB.OptionButton Option3
Caption = "看谁在线上"
Height = 255
Left = 480
TabIndex = 5
Top = 360
Value = -1 'True
Width = 1575
End
End
End
End
Attribute VB_Name = "SelFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Combo1_Click(Index As Integer)
If Index = 0 Then
Select Case Combo1(0).Text
Case "不限"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).ListIndex = 0
Case "北京"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "北京"
Combo1(1).ListIndex = 0
Case "上海"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "上海"
Combo1(1).ListIndex = 0
Case "天津"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "天津"
Combo1(1).ListIndex = 0
Case "重庆"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "重庆"
Combo1(1).ListIndex = 0
Case "河北"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "石家庄"
Combo1(1).AddItem "唐山"
Combo1(1).AddItem "秦皇岛"
Combo1(1).AddItem "邯郸"
Combo1(1).AddItem "邢台"
Combo1(1).AddItem "保定"
Combo1(1).AddItem "张家口"
Combo1(1).AddItem "承德"
Combo1(1).AddItem "沧州"
Combo1(1).AddItem "廊坊"
Combo1(1).AddItem "衡水"
Combo1(1).ListIndex = 0
Case "山西"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "太原"
Combo1(1).AddItem "大同"
Combo1(1).AddItem "阳泉"
Combo1(1).AddItem "长治"
Combo1(1).AddItem "晋城"
Combo1(1).AddItem "朔州"
Combo1(1).AddItem "晋中"
Combo1(1).AddItem "运城"
Combo1(1).AddItem "忻州"
Combo1(1).AddItem "临汾"
Combo1(1).AddItem "吕梁"
Combo1(1).ListIndex = 0
Case "内蒙古"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "呼和浩特"
Combo1(1).AddItem "包头"
Combo1(1).AddItem "乌海"
Combo1(1).AddItem "赤峰"
Combo1(1).AddItem "通辽"
Combo1(1).AddItem "鄂尔多斯"
Combo1(1).AddItem "呼伦贝尔"
Combo1(1).AddItem "乌兰察布盟"
Combo1(1).AddItem "锡林郭勒盟"
Combo1(1).AddItem "巴彦淖尔盟"
Combo1(1).AddItem "阿拉善盟"
Combo1(1).AddItem "兴安盟"
Combo1(1).ListIndex = 0
Case "辽宁"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "沈阳"
Combo1(1).AddItem "大连"
Combo1(1).AddItem "鞍山"
Combo1(1).AddItem "抚顺"
Combo1(1).AddItem "本溪"
Combo1(1).AddItem "丹东"
Combo1(1).AddItem "锦州"
Combo1(1).AddItem "葫芦岛"
Combo1(1).AddItem "营口"
Combo1(1).AddItem "盘锦"
Combo1(1).AddItem "阜新"
Combo1(1).AddItem "辽阳"
Combo1(1).AddItem "铁岭"
Combo1(1).AddItem "朝阳"
Combo1(1).ListIndex = 0
Case "吉林"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "长春"
Combo1(1).AddItem "吉林"
Combo1(1).AddItem "四平"
Combo1(1).AddItem "辽源"
Combo1(1).AddItem "通化"
Combo1(1).AddItem "白山"
Combo1(1).AddItem "松原"
Combo1(1).AddItem "白城"
Combo1(1).AddItem "延边朝鲜族自治州"
Combo1(1).ListIndex = 0
Case "黑龙江"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "哈尔滨"
Combo1(1).AddItem "齐齐哈尔"
Combo1(1).AddItem "鹤岗"
Combo1(1).AddItem "双鸭山"
Combo1(1).AddItem "鸡西"
Combo1(1).AddItem "大庆"
Combo1(1).AddItem "伊春"
Combo1(1).AddItem "牡丹江"
Combo1(1).AddItem "佳木斯"
Combo1(1).AddItem "七台河"
Combo1(1).AddItem "黑河"
Combo1(1).AddItem "绥化"
Combo1(1).AddItem "大兴安岭"
Combo1(1).ListIndex = 0
Case "江苏"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "南京"
Combo1(1).AddItem "无锡"
Combo1(1).AddItem "徐州"
Combo1(1).AddItem "常州"
Combo1(1).AddItem "苏州"
Combo1(1).AddItem "南通"
Combo1(1).AddItem "连云港"
Combo1(1).AddItem "淮安"
Combo1(1).AddItem "盐城"
Combo1(1).AddItem "扬州"
Combo1(1).AddItem "镇江"
Combo1(1).AddItem "泰州"
Combo1(1).AddItem "宿迁"
Combo1(1).ListIndex = 0
Case "浙江"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "杭州"
Combo1(1).AddItem "宁波"
Combo1(1).AddItem "温州"
Combo1(1).AddItem "嘉兴"
Combo1(1).AddItem "湖州"
Combo1(1).AddItem "绍兴"
Combo1(1).AddItem "金华"
Combo1(1).AddItem "衢州"
Combo1(1).AddItem "舟山"
Combo1(1).AddItem "台州"
Combo1(1).AddItem "丽水"
Combo1(1).ListIndex = 0
Case "安徽"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "合肥"
Combo1(1).AddItem "芜湖"
Combo1(1).AddItem "蚌埠"
Combo1(1).AddItem "淮南"
Combo1(1).AddItem "马鞍山"
Combo1(1).AddItem "淮北"
Combo1(1).AddItem "铜陵"
Combo1(1).AddItem "安庆"
Combo1(1).AddItem "黄山"
Combo1(1).AddItem "滁州"
Combo1(1).AddItem "阜阳"
Combo1(1).AddItem "宿州"
Combo1(1).AddItem "巢湖"
Combo1(1).AddItem "六安"
Combo1(1).AddItem "亳州"
Combo1(1).AddItem "池州"
Combo1(1).AddItem "宣城"
Combo1(1).ListIndex = 0
Case "福建"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "福州"
Combo1(1).AddItem "厦门"
Combo1(1).AddItem "莆田"
Combo1(1).AddItem "三明"
Combo1(1).AddItem "泉州"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -