说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB用API函数改进ListView控件的显示效果

HTML文档下载 WORD文档下载 PDF文档下载
VB用API函数改进ListView控件的显示效果
作者:王建兵
一 、ListView 使 用 简 介
---- ListView 控 件 是VB 开 发 者 非 常 喜 爱 的 控 件 之 一。 作 为Windows95 公 共 控 件 组(COMCTL32.OCX) 的 成 员, 它 经 常 与 经 常 与TreeView、ImageList 等 控 件 联 合 使 用。 即 用 TreeView 显 示 一 个 的树 型 结 构, 而 用 ListView 显 示 选 中 的 节 点(Node) 对 象 的 记 录
集。

---- 这 是 笔 者 在 开 发 财 务 软 件 项 目 中 的<< 凭 证 管 理>> 模 块的 一 个 用 户 界 面。 屏 幕 左 边 是 一 个TreeView 控 件, 用 来 显 示会 计 凭 证 的 类 别; 右 边 是 一 个istView, 用 来 显 示 对 应 类 别的 凭 证 目 录; 上 方 是 一 个 菜 单 条 控 件(MenuBar) 和 一 个 工 具条 控 件(ToolBar); 下 方 是 一 个 状 态 栏 控 件(StatusBar), 用 来 显示 凭 证 数 个 当 前 日 期。

---- 大 家 可 以 看 到 图 中 所 示 的 界 面 非 常 类 似 于Window95/98 的资 源 浏 览 器, Windows 的 界 面 风 格 做 为 一 种 标 准 已 为 广 大 用户 所 接 受。 而Windows 操 作 系 统 的 主 要 的 优 点 就 是 为 所 有 的应 用 程 序 提 供 了 公 用 的 界 面。 知 道 如 何 使 用 基 于Windows 的应 用 程 序 的 用 户, 很 容 易 学 会 使 用 其 他 应 用 程 序。

---- 这 种 使 用Windows95 公 共 控 件 组 合 的 方 法 能 够 达 到 与Windows 界 面 的 一 致 性, 所 以 在 目 前VB5.0 应 用 程 序 的 开 发 中经 常 使 用。

二、 填 充 大 量 结 果 集 所 遇 到 的 问 题
---- 在 实 际 应 用 开 发 中, 经 常 用ListView 填 充 一 个 数 据 库 结果 集(Recordset) 的 内 容。 即 先 写 一 段SQL 查 询 语 句, 产 生 一 个结 果 集, 然 后 将 结 果 集 的 每 一 条 记 录 用DO...LOOP 循 环 语 句中 填 到ListView 中。

---- 但 是 当 结 果 集 很 大 时( 例 如 有5000 条 以 上 的 记 录) , 填充 所 需 要 的 时 间 会 很 长。 用 户 不 得 不 等 很 长 时 间 完 成 一个 查 询。 所 以 在 查 询 的 过 程 中 必 须 允 许 用 户 按Escape 键 退出。 具 体 做 法 是 在DO...LOOP 循 环 体 中 加 一 条DoEvents 函 数, 并写 一 段 中 断 退 出 程 序 代 码。

---- DoEvents 函 数 的 功 能 是: 转 让 控 制 权, 以 便 让 操 作 系 统处 理 其 它 的 事 件。 这 样 在 长 时 间 的 查 询 过 程 中, 如 果 用 户按 了Escape 键, 将 退 出 循 环 体, 结 束 查 询 过 程。

---- 但 是 这 样 又 会 引 发 另 外 一 个 问 题: 由 于DoEvents 可 以 让操 作 系 统 响 应 别 的 事 件, 循 环 体 中 填 充 每 一 条ListView 项 目(ListItem) 的 过 程 也 会 显 示 出 来, 所 以 在 填 充 的 过 程 中 屏 幕会 不 停 的 闪 动, 这 种 现 象 当 然 不 能 被 用 户 所 接 受。 如 何 解决 这 个 问 题 呢 ?

三、 解 决 方 案
---- 用Windows API 函 数 可 以 解 决 这 个 问 题。 首 先 对 几 个 用 到的API 函 数 做 一 解 释 和 说 明。

---- 1. GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT)As Long

---- 此 函 数 的 功 能 是 获 得 一 个 指 定 对 象 窗 口(Window) 的 矩 型框 区 域(rectangle)。

---- Hwnd 为 指 定 对 象 或 窗 体 的 句 柄。LpRect 为 返 回 矩 型 框 的结 构( 必 须 定 义 为 结 构 类 型 的 变 量) 。

---- 2. ValidateRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT)As Long

---- 此 函 数 的 功 能 是 使 指 定 的 矩 型 区 域 生 效。 这 样 会 通 知Windows 不 必 对 指 定 的 区 域 进 行 重 画(Redraw)。

---- 3. InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT,ByVal bErase As Long) As Long

---- 此 函 数 的 功 能 是 使 指 定 的 矩 型 区 域 无 效。 这 样 会 通 知Windows 要 对 指 定 的 区 域 进 行 重 画。

---- 具 体 实 现 的 步 骤 如 下:

---- 1. 在 填 充 结 果 集 之 前 先 用GetClientRect 函 数 获 得ListView的 显 示 区 域。

---- 2. 在 增 加 完 一 个 显 示 项 目(ListItem) 后 用ValidateRect 函 数置 这 一 区 域 为 有 效。 这 样Windows 就 不 会 显 示 每 一 条ListItem,屏 幕 闪 动 的 现 象 就 会 消 失。

---- 3. 在 填 充 结 果 集 之 后, 用InvalidateRect 函 数 置 这 一 区 域为 无 效。 这 样Windows 就 会 重 画ListView 的 内 容, 结 果 集 被 完 整的 显 示 出 来。

---- 下 面 是 笔 者 在 项 目 开 发 中 的 一 个 程 序 实 例。 程 序 名 为FillListView。 该 程 序 将 填 写 一 个Access 数 据 库(FISCAL.MDB) 的 凭证 表(Table) 的 内 容 到ListView 中。

---- 首 先 进 入VB5.0, 新 建 一 个 窗 体(Form), 名 为Form1。

---- 然 后 在Form 中 增 加 下 列 控 件。


控 件 名 Name

ListView Lvw

Imagelist imlList

Command Button。 Command1


---- 将ImageList 控 件 中 充 填 一 个 名 为“item” 的 图 象 后 与ListView 控 件 关 联。

---- 在<< 工 程>> 菜 单 命 令 条 中 进 入“ 引 用” 对 话 框, 选 择“Microsoft DAO Object Library”

---- 在Form 的 通 用 模 块(Modle) 中 定 义 以 下 变 量。


Private Type RECT ' 用 来 定 义 一 个 区 域 的 坐 标。

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

'- - - - - -

' Windows API 函 数 的 声 明。

Private Declare Function InvalidateRect Lib "user32"

(ByVal hwnd As Long, lpRect As RECT, ByVal bErase As Long) As Long

Private Declare Function ValidateRect Lib "user32"

(ByVal hwnd As Long, lpRect As RECT) As Long

Private Declare Function GetClientRect Lib "user32"

(ByVal hwnd As Long, lpRect As RECT) As Long



Dim mbSearchCancel As Boolean

' 用 来 定 义 查 询 中 断 的 标 志。

' True 表 示 中 止 查 询;False 表 示 正 在 查 询。


---- 将 该Form 的KeyPreview 属 性 设 为True, 以 控 制 窗 体 接 收 键 盘事 件。

---- 然 后 在Form 的KeyPress 事 件 中 写 下 列 代 码:


If KeyAscii = vbKeyEscape Then

mbSearchCancel = True

' 当 用 户 按Escape 键 时, 置mbSearchCancel 变 量 为True。

End If

' 表 示 结 束 查 询。

在Command Button 的 Click 事 件 中 调 用 填 充 子 程 序:CallFillListView。



子 程 序 的 代 码 为:

Private Sub FillListView()

'

Dim itmX As ListItem ' 定 义 一 个ListView 的 显 示 项 目。

Dim sSQL As String ' 查 询 字 串 变 量 。

'

Dim rc As RECT ' ListView 的 显 示 区 域。

Dim wrkJet As Workspace ' 数 据 库 工 作 空 间。

Dim dbFISCAL As Database ' 数 据 库 对 象。

Dim RS As Recordset ' 数 据 结 果 集。



On Error GoTo ErrFillListView



Screen.MousePointer = vbHourglass

lvw.ListItems.Clear: ' 清 除ListView 的 内 容。

'- - - - - - - -

' 定 义ListView 的 列 头 的 名 称。

With lvw.ColumnHeaders

.Add , , " 凭 证 编 号", 800

.Add , , " 凭 证 日 期", 1000

.Add , , " 凭 证 字 号", 1000

.Add , , " 凭 证 类 别", 800

.Add , , " 首 行 摘 要", 1440

.Add , , " 借 方 金 额 合 计", 1000, lvwColumnRight

End With



'- - - - - - -

' 产 生 查 询 语 句。

sSQL = "select voucher_id,voucher_number,voucher_date,
voucher_type_shortname,"

sSQL=sSQL&"voucher_type_name,voucher_memo,voucher_amount from VOUCHER"

sSQL = sSQL & "order by voucher_number"

' '- - - - - - -

' 打 开 一 个 数 据 库 结 果 集。

Set wrkJet = CreateWorkspace("NewJetWorkspace", "admin", "",
dbUseJet)

Set dbFISCAL = wrkJet.OpenDatabase("FISCAL.mdb")

Set RS=. dbFISCAL .Open sSQL,dbOpenForwardOnly

'- - - - - - - -

' 获 得listview 的 显 示 区 域。

Call GetClientRect(lvw.hwnd, rc)



Do While Not RS.EOF()

DoEvents

If mbSearchCancel Then

' 中 断 退 出

RS.Close: Set RS = Nothing ' 关 闭、 清 除 结 果 集。

mbSearchCancel = False

Screen.MousePointer = vbDefault

'- - - - - -

' 刷 新ListView 的 内 容, 显 示 已 经 查 出 的 记 录 数。

Call InvalidateRect(lvw.hwnd, rc, True)

Exit Sub

End If

'- - - - - - -

' 增 加 一 个 显 示 项 目ListItem。

With lvw.ListItems

Set itmX = .Add(, , "" & RS!voucher_number, "item", "item")

' 凭 证 编 号

itmX.SubItems(1) = Format$("" & RS!voucher_date, "yyyy/mm/dd")

' 凭 证 日 期

itmX.SubItems(2) = "" & RS!voucher_type_shortname & "-" —

' 凭 证 字 号

& "" & RS!voucher_number



itmX.SubItems(3)="" & RS!voucher_type_name

' 凭 证 类 别

itmX.SubItems(4)=""&RS!voucher_memo

' 首 行 摘 要

itmX.SubItems(5)= Format$("" & RS!voucher_amount, "#,###.00")

' 借 方 合 计 金 额

itmX.Tag = "" & RS!voucher_id

End With

'- - - - - -

' 避 免 显 示 区 域 的 闪 动 现 象。

Call ValidateRect(lvw.hwnd, rc)

RS.MoveNext

Loop



'- - - -

'- 刷 新ListView 的 内 容。 显 示 所 有 查 出 的 记 录 数。

Call InvalidateRect(lvw.hwnd, rc, True)

'- - - - -

' 关 闭、 清 除 结 果 集。

RS.Close: Set RS = Nothing

creen.MousePointer = vbDefault

Exit Sub

ErrFillListView:

Screen.MousePointer = vbDefault

MsgBox Err & ":" & Error, vbInformation, Me.Caption

Exit Sub

End Sub

---- 编 写 完 毕 后 按F5 执 行 该 程 序, 用 鼠 标 点 击CommandButton,将 开 始 查 询 并 填 写 凭 证 的 内 容 到ListView 中 去。

---- 关 于ListView 本 文 只 是 描 述 了 它 如 何 填 充 大 量 结 果 集 的方 法, 它 还 有 很 多 特 性(property) 和 方 法(method), 利 用 它 们 可以 达 到 更 完 美 的 显 示 效 果, 有 兴 趣 的 读 者 可 以 进 一 步 研究。 不 管 是 开 发 什 么 样 的 应 用 程 序, 只 有 坚 持 面 向 用 户、方 便 用 户 的 原 则, 这 样 的 软 件 才 具 有 强 大 的 生 命 力。

---- “ 用Visual Studio 开 发 分 布 式Web 应 用” 系 列 文 章( 之 十),读 者 有 何 意 见 或 建 议, 请 发E-mail 至:ms_visualstudio@hotmail.com。 谢 谢 !---- 编 者
切分字符串-VB资料 清除字符串中指定的字符 -VB资料 VB如何取得计算机的所有字型? VB如何取得中英混合字符串的长度? 使VB的网格控件具有输入功能 VB如何使用未安装的字体? VB如何由两个ASC码(区位码)复原成一个汉字? VB如何转换C代码中的高字和低字 一些字符串操作的问题和回答 -VB资料 VB怎样把VC++代码转换成VB代码 字符串中包含双引号-VB资料 字符串中文的问题 -VB资料 巧用CLIPBOARD建立图像数据库-VB资料 在VB中存取数据库中的图片 Access97的报表解决方案-VB资料 Access下如何使用通用对话框-VB资料 ADO简介 -VB资料 ADO三大对象的属性、方法、事件及常数(二)-VB资料 ADO三大对象的属性、方法、事件及常数(三)-VB资料 ADO三大对象的属性、方法、事件及常数(一)-VB资料 Data 控件使用有密码的 Access 数据库 -VB资料 Excel、Access、VB的结合应用 Microsoft SQL Server 7.0安装问题(二)-VB资料 主题: MDB文件的导出 使用 DAO-VB资料 Microsoft Access秘密、技巧和陷阱-VB资料 SQL的基本操作(1.数据类型) -VB资料 SQL的基本操作(2.数据库的相关操作)-VB资料 SQL的基本操作(3.表的相关操作) -VB资料 SQL的基本操作(4.数据的检索)-VB资料 SQL在VB中的使用及访问远程数据库 Text 转换为 Access MDB -VB资料 关于2003年06月的《程序员》中的java设计模式 ShellListView的闪烁问题 问一个动态存储数据的问题~~ 急,散分求救,关于关键路径 急问!Instr()函数的含义及用法! 我真是很愤怒,我是广州连新路(即时广东省软考办)那里报名的,他们的工作水平真是低 一个头痛的问题:客户要求显示所有符合条件的字段和纪录,就是说,对于一张表,要可以让客户选他要看的字段,并且可以对所有字段进行查询 各位前辈请指教几个问题,我什么都不懂 『转帖』为什么要更换ID---好久没来,顺便散点分 请教: Weblogic牌号6。1下运行JSP程序附带标签库的问题? 求解过滤和统计问题,急用,谢谢! 凤凰是我的男朋友(淡月儿) 求解过滤和统计问题,急用,谢谢! 【社论】痛批妹妹,女人都是些什么东西,tmd 我真是是很气愤,我是在广州连新路(即使广东省软考办)那里报名的 为什么不能创建同义词,哪里错了??? 为什么不能创建同义词,哪里错了?????? 有关Dll中资源释放的问题 烦恼的问题,为什么服务器装了sql server package3之后,客户机都不能浏览网页了? 新手问题,字符串中如何传入字符 笔记本如何外挂光驱? 救命呀!!毕业论文摘要翻译 急! 关于读文件的一个小问题? 一个挺弱的问题 MVC的工具除了struts还有什么 我打算学习.Net,请大家帮忙给点好的初学入门的资料下载或者好的网址! 又是IE的小问题..以前没有遇见过!请指教! 关于子类调用父类构造器的问题 怎样用VC语句获取所有的打印机名称(如果机器上连有多台)? 请能给我讲解一下堆栈与堆!!! 关于udp的线程问题 怎样用代码实现按下鼠标左键一次 如何产生随机负数 朋友们请帮忙:考试教材中并没有下午的考试内容,该看哪些书呢?如何学? 问个ACCESS的简单问题 建议收藏夹增加总条数提示或者能重排编号。地址栏输入URL无法打开但不知标题怎么办? access在获取外部数据是出现"ACTIVEX不能创建对象"错误.怎么办?? 为什么ping不通web服务器? 我的KDevelop不能新建??? 为什么我用跳转菜单无法在读取变量,一定要用提交按钮才可以呢 求教单机串口通信 求助:如何用MFC控制多个Check Box(单选框) 请指教。 MSDN中的一句话,什么意思,谁帮翻一下@! 如何使IE的地址栏在填入中文的情况下使用google的搜索功能?而不是3721! or 微软借用的3721智能搜索? 装c++build需要的时间 如果您有网上购票系统,有源代码,并在上海,请进。 现有基于ASP的评语软件500元开发,有意的朋友与我联系! 求助! 现有基于ASP的评语软件500元开发,有意的朋友与我联系! 请问如何才能得到机器的序列号? 在ASP中导出EXCEL的页面中,为什么SESSION值无空了呢? 求日记题材 物体运动的加速度和速度关系下列说法正确的是:A速度越大,加速度也一定越大B速度变化快,加速度一定大C加速度的方向保持不变,速度的方向也一定保持不变D加速度就是速度的增加量错的要 背诵英语词根有什么好处?或者作用? 求大师设计英语名字名字是李鑫 求设计.不要坑爹的哦~ 关于物体运动中速度和加速度(≠0)的变化关系速度不可能减小 为什么还有就是 速度减小是指方向 还是说v=3变成v=2才是速度减小 某地上网有两种收费方式,用户可任意选:a每小时计时3元,b包月制50元每月,此外每一种上网方式都得加收通讯费,1.2元一小时,某用户某月的上网时间为x小时,请分别用代数式表示两种收费方式下 题材日记要求:1)以“我爱美术”为题,展开想象.写一篇100字左右的日记.2)内容精干,丰富,得体,具有强吸引力.3)可随意想象,合理即可. 把一个底面半径为2厘米,长为30厘米的圆柱体,铸造成一个正方体的体积为多少? 某市电话拨号上网有两种收费方式,A种计时制:每分0.05元,B种:每月50元,此外每一种上网方式都得加收通信费:每分0.02元.某用户某月上网X分钟,按A种方式应付多少元?按B种方式应付多少元? 我叫 王雷锋 想设计个英文名字,请各位大师帮忙设计一个.. 从人物的语言 动作 神态三个方面的描写她的品格和性格特点 英语:介绍昨天放学后但当你在做作业时,你的父母在干什么,在假设一下当时你的好朋友张兰在干什么. 日记题材! 假如你是Mike,你的好朋友Lucy的宠物狗——Mary,走失了好几天,为此,她感到很焦虑.请给Lucy写封信,安慰她,并推测狗可能会在哪里,在做什么. 校园会作文五年姓级400字 哪位大师能帮忙设计一个签名?名字:陈素珍! 带水字旁的字有什么字姓赖后面有个志字如题 取一个男孩名字,带水字旁笔画共九画,泉字除外姓赖后面有个志字 常用的英语词根,最好说下怎么记忆 求一篇题目为“惹不住哭泣或忍不住愤怒”的作文 600字左右 假如你是Tom,你的好朋友Mary邀请你本周和她一起去打网球.而你要为下周二的化学考试做准备,请你写一封拒绝她的邀请信,并邀请她下周跟你一起去看乒乓球赛作为补偿.急英语作文 急 高中语文必修二梳理探究姓氏源流与文化寻根该怎么讲? at the beginning是什么意思? 一本故事书,小华计划每天看x页,10天看完,实际每天看了a页,实际看了( )天. 急求《生活中的数学》《废旧电池对人类的危害及其处理》《一次性筷子的利于弊》《姓氏源流与文化寻根》2500字左右,只要其中一篇就好,是调查报告, 以《想来那件事我就生气》为题目的作文 600字 见微知著是什么意思 鲁滨逊遭海难漂流到无人岛后,他在岛上做了些什么,最后结局如何?(50字内) 急求英语话剧.最好有搞笑成分~11人~2男9女~ 帮我完成一个物理光路图 鲁宾逊之所以能在无人岛上生存28年是因为什么原因? 两人英语幽默话剧, 如果看见好朋友正在抄作业,该怎么办? 鲁滨孙流落到的岛屿叫什么? 为什么同样的样品(某品种饲料)在相隔一段时间进行的氨基酸分析中,赖氨酸的含量会相差很大?在利用氨基酸分析仪(L-8900)进行某饲料样品中氨基酸分析的重现性实验时,为什么第二次所 好朋友打电话来就为抄作业、要怎么办呢在学校觉得还好、但她打电话来第一句话就是我的名字,然后要抄作业,觉得很烦想想在学校她来找我大多都是要作业主要是我开始觉得她只是利用我 求各种手工皂的配方! the mouth of large rivers和at the ends of largre rivers 意思一样吗 我的好朋友说我不爱抄作业,是不好的现象,你说,这是对还是错? 手工皂配方后面的百分比是什么意思?芝麻油米糠油 at the beginning of.的中文意思还有the beginning of...的中文意思 好友喜欢抄作业该如何劝她我和她一起长大,她很喜欢抄作业,并且是拖延症重症患者,每次我都劝过她,可她就是一副无所谓的样子说我开始变死板了,我们都是重点初中的,准备在中考的时候一 四个应用题怎么做.还要具体说下思路.我的身高是1.2米,影长是0.8米.路灯影长6米,路灯高多少米?方程华美公司生产电视机,计划每天生产400台,25天可以完成,实际用20天完成了任务.实际每天生产 把一个等腰直角三角形以它的直角边高速旋转后,得到一个什么图形 有一本故事书,红红说每天看14页.如果每天再多看9页,4天就可以看完.这本故事书共有多少页? 对于基础不好的,四级该如何复习?我都要急死了.考了几次都过不了我的大学,四级是我最不完美的一件事。 玲玲第一天看了全书的1/9,第二天看了25页,两天看的与书的总页数的比是1:4,两天看了多少页? 某地上网两种收费方式,用户可以任选其一,计时制,2.4元/小时,包月制,36元/月.此外,每一种上网方式都加收通讯费1.6元/小时.1,某用户上网10小时和20小时时,选用哪种方式比较合算?2.当上网时间 英语很差 可以用无基础来形容 12月份 考四级 有什么好的复习建议 时间如何安排 英语很差 可以用无基础来形容 12月份 考四级有什么好的复习建议 时间如何安排 各位牛人评评这篇托福作文能得多少分?这就是我现在最好的水平.到达25-29大概还要复习多久?Computers vs traditional schoolsDifferent people will hold different opinions about studying at home or studying at school.perso 小明写大字36个,是小兰写的3分之2,是小红写的7分之6.①,小兰和小红分别写了多少个大字?②小兰写的大字是小红写的几倍? 某水文站测量河水深度,插入河中,1/8插入泥中某水文站测量河水深度,把一根竹竿插入河中,1\8插入泥中,1\10露出水面,水面上升到18厘米时,水深正好占标竿长的7/8,原河水深度为多少 run after the cat什么意思 小明写大字36个,是小兰写的三分之2,是小红的7分之6,小兰比小红多写几个大字? 某河段为了架桥需要测量河水深度,测量员在枯水期把一根标杆插入河里,6分之1插入了河底的淤泥中,露出水面.在丰水期,水面上升了20厘米,此时河水深度正好占标杆全长的5分之4,问在枯水期河 的士气温度假 小红每天写36个大字,是小兰写字个数的3分之2,是小华写字个数的7分之6,小兰每天比小华多写多少个大字? A计时制:0.05元/分 B包月制50元/月 两种上网方式都外加通讯费0.02元/分,根据上网时间分析哪种缴费合算列一元一次不等式 最新日记题材多一点 小明写了11个大字,小兰写了8个大字.(1)小兰比小明少写了几个大字?(2)小明比小兰多写了几个大字? 某地上网有两种收费方式(A)几时制:2.8元小时(B)包月制:60元/月.此外,每一种上网方式都加收通讯费1.2元/小时.①某用户上网20小时,选用哪种上网方式比较合算?②某用户有120元钱用 背景资料:俄乌天然气之争的背后澳接连发生披萨店枪击案 或与获奖披萨澳大利亚警方追捕偷车贼 路过少年被无日本研究发现治疗糖尿病和代谢综合症物美学生供认曾入侵多人电脑 包括“妙龄德国法兰克福市计划在闹市区巡警肩上装俄罗斯建议在莫斯科与叙利亚政府和反对悉尼两名男子无故捅死陌生少年被判30悉尼16岁男孩参加学校活动摔下悬崖昏澳大利亚100只被困小狗被解救 狗场Facebook承认传闻:年轻人已开芬兰计划实施新禁烟法 拟禁居民在阳台“免费”医疗让俄罗斯进退两难联合国首次主动攻击非洲叛军 或抛弃被\"深井救人\"事迹在百姓中传颂 王\"歼20\"战斗机现身沪昆高速?路刘恺威《喋血孤岛》11月1日浙江教育浙江临海户外休闲用品业节俭办展 小投宁波住博会盛行低碳环保风 市民“凑热安永:中国矿企面临海外并购“机会之窗土库曼斯坦货币20年 发行金银纪念币今日可买腊月廿八 增开列车车票团体汽车票有优惠还可上门送票武汉最高1亿元资助“城市合伙人”每天一碗,手指月牙回来了!白头发也不关中地区今冬 第四轮雾霾来袭许锡良:记忆大师并不等于天才为文明立法彰显城市品质追求开上高速的蒙面大货车俄外长表示将推动叙利亚危机的政治解决图文:担起新时期农业国家队历史使命新年首日 或将成为本周最堵的一天西安今明两日迎接“国检”按工会隶属关系给予紧急救助图文:苏宁25周年掀青春风暴 捐资超府谷多措并举治理矿区地质环境灾害图文:患癌妈妈好想给宝宝喂一口母乳要求26家机构“脱钩”农垦启动新一轮改革武汉市消防部门为您支招:如何远离电暖我市“空中花园” 已突破百万平方米“E农管家”打通电商入村最后一公里
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘