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

VB应用程序中打印条形码的两种方法

HTML文档下载 WORD文档下载 PDF文档下载
VB应用程序中打印条形码的两种方法
(作者:四川 李佑民 )


  条形码作为一种机器可识别的图形,它能快速、准确地标识某种产品或商品,在许多数据库应用中起作很重要的作用,如超市收银、车站售票等场合。当某件物品上带有的条形码被条码扫描器正确解读后,将会得到该物品的唯一标识字符串,通过检索数据库我们就可以很容易知道它的一些其它属性并作相应处理。虽然在Internet上能找到许多免费和不免费的条形码打印控件,但是这些控件除了使用不方便外,还有一个最大的缺点:它们的打印输出不能和我们的程序共存在一个打印页面上,比如说在一个过程中,我们先向系统 Printer 中输出一些内容,然后再调用控件的条形码打印方法,最后打印的结果为两页!,如果现在我们要处理一张车票,上面不仅要打印条形码,还要有终点站和票价等信息,那么控件就变得不可用。对程序员来说,可能还是希望能了解条形码打印的原理,本文提出两种打印方法与同行们探讨。



一、直接利用有条形码打印功能的打印机

  有许多打印机能够直接打印条形码,但在 VB 中,我们在DOS时代熟悉的LPRINT语句已经不能再使用了,打印操作被Windows的Spool系统完全接管,输出是以“页”为单位,所有的打印输出都被Windows转换为图形发送给打印驱动程序。而要使打印机打印条形码就必须将对应的ESC序列直接发送给它,因此我们就要想办法避开Windows的Spool系统,也就是说再程序中不能使用Printer对象和Printers集合处理打印输出,在VB中要将ESC指令直接发送给打印机至少有三种方法,前两种方法是调用Windows API 函数:Escape()和SpoolFile(),第三种是最容易的方法:打开打印机端口进行二进制存取,我们主要考虑这种方法。

  即使在Windows时代,”LPT1:”和”PRN”仍然是可用的,下面我们先作一个试验:打开一个DOS窗口,在提示符下输入COPY CON LPT1:回车,然后随便输入一些字符,最后按F6键,打印机就开始工作了,它将打印出你输入的那些字符!下面的代码演示了直接将指令和字符发送给打印机:

Private Sub Command1_Click()

  Dim strOut As String

  StrOut = “这是直接发送到打印机端口的字符串”

  ‘ 打开打印机端口,其中的”LPT1:”可能需要根据你的打印机设置而改变

  Open “LPT1:” For Binary Access Write As #1

  ‘ 发送给打印机,注意语句的最后一个参数必须是变量

    Put #1, ,strOut

    ‘ 关闭打印机端口

    Close #1

End Sub

  各种打印机打印条形码的指令可能不同,比如将上面的变量 strOut赋值为:

  strOut = Chr(28) & “P” & Chr(5) & Chr(2) & Chr(3) & Chr(3) & Chr(6) & “012345”

  将在 AR2400 打印机上打印出内容为”012345”的 CODE39 格式的条形码。具体的打印控制指令请参考打印机手册。

  用这种方法的缺点:一是过份依赖打印机本身,而有条形码打印功能的打印机通常要比普通打印机昂贵,这会使构造应用系统不够经济;二是所有的打印输出都必须你自己处理,比如打印定位就很浪费时间。



二、利用画图方式输出到普通打印机

  条形码的编码规则不外乎是通过线条和线条间间隙的宽窄不同来表示二进制的1和0,只要我们了解了条形码的编码规则,完全可以用画图的方式在普通打印机上得到可以接受的效果。下面我们就使用最普遍的CODE39码进行讨论。

  CODE39码的编码规则是:

1、 每五条线表示一个字符;

2、 粗线表示1,细线表示0;

3、 线条间的间隙宽的表示1,窄的表示0;

4、 五条线加上它们之间的四条间隙就是九位二进制编码,而且这九位中必定有三位是1,所以称为39码;

5、 条形码的首尾各一个*标识开始和结束

  在我们的程序中,给常用的字符都进行编码,解读时先取线条粗细,再取间隙宽窄,如:



  上图中的字符*就可以解读为 001101000,字符3解读为 110000100

  下面就是我们给出的子过程:

注释: 将字符串 strBarCode 对应的条形码输出到缺省打印机

Private Sub PrintBarCode( _

  ByVal strBarCode As String, _

  Optional ByVal intXPos As Integer = 0, _

  Optional ByVal intYPos As Integer = 0, _

  Optional ByVal intPrintHeight As Integer = 10, _

  Optional ByVal bolPrintText As Boolean = True _

)

注释: 参数说明:

注释: strBarCode    - 要打印的条形码字符串

注释: intXPos, intYPos - 打印条形码的左上角坐标(缺省为(0,0),坐标刻度为:毫米)

注释: intHeight     - 打印高度(缺省为一厘米,坐标刻度为:毫米)

注释: bolPrintText   - 是否打印人工识别字符(缺省为true)



注释: "0"-"9","A-Z","-","%","$"和"*" 的条码编码格式,总共 40 个字符

Static strBarTable(39) As String

注释: 初始化条码编码格式表

  strBarTable(0) = "001100100"   注释: 0

  strBarTable(1) = "100010100"   注释: 1

  strBarTable(2) = "010010100"   注释: 2

  strBarTable(3) = "110000100"   注释: 3

  strBarTable(4) = "001010100"   注释: 4

  strBarTable(5) = "101000100"   注释: 5

  strBarTable(6) = "011000100"   注释: 6

  strBarTable(7) = "000110100"   注释: 7

  strBarTable(8) = "100100100"   注释: 8

  strBarTable(9) = "010100100"   注释: 9

  strBarTable(10) = "100010010"  注释: A

  strBarTable(11) = "010010010"  注释: B

  strBarTable(12) = "110000010"  注释: C

  strBarTable(13) = "001010010"  注释: D

  strBarTable(14) = "101000010"  注释: E

  strBarTable(15) = "011000010"  注释: F

  strBarTable(16) = "000110010"  注释: G

  strBarTable(17) = "100100010"  注释: H

  strBarTable(18) = "010100010"  注释: I

  strBarTable(19) = "001100010"  注释: J

  strBarTable(20) = "100010001"  注释: K

  strBarTable(21) = "010010001"  注释: L

  strBarTable(22) = "110000001"  注释: M

  strBarTable(23) = "001010001"  注释: N

  strBarTable(24) = "101000001"  注释: O

  strBarTable(25) = "011000001"  注释: P

  strBarTable(26) = "000110001"  注释: Q

  strBarTable(27) = "100100001"  注释: R

  strBarTable(28) = "010100001"  注释: S

  strBarTable(29) = "001100001"  注释: T

  strBarTable(30) = "100011000"  注释: U

  strBarTable(31) = "010011000"  注释: V

  strBarTable(32) = "110001000"  注释: W

  strBarTable(33) = "001011000"  注释: X

  strBarTable(34) = "101001000"  注释: Y

  strBarTable(35) = "011001000"  注释: Z

  strBarTable(36) = "000111000"  注释: -

  strBarTable(37) = "100101000"  注释: %

  strBarTable(38) = "010101000"  注释: $

  strBarTable(39) = "001101000"  注释: *



  If strBarCode = "" Then Exit Sub 注释: 不打印空串



  注释: 保存打印机 ScaleMode

  Dim intOldScaleMode As ScaleModeConstants

  intOldScaleMode = Printer.ScaleMode

  注释: 保存打印机 DrawWidth

  Dim intOldDrawWidth As Integer

  intOldDrawWidth = Printer.DrawWidth

  注释: 保存打印机 Font

  Dim fntOldFont As StdFont

  Set fntOldFont = Printer.Font

  

  Printer.ScaleMode = vbTwips 注释: 设置打印用的坐标刻度为缇(twip=1)

  Printer.DrawWidth = 1   注释: 线宽为 1

  Printer.FontName = "宋体" 注释: 打印在条码下方字符的字体和大小

  Printer.FontSize = 10

  

  Dim strBC As String     注释: 要打印的条码字符串

  strBC = Ucase(strBarCode)

  注释: 将以毫米表示的 X 坐标转换为以缇表示

  Dim x As Integer

  x = Printer.ScaleX(intXPos, vbMillimeters, vbTwips)

  注释: 将以毫米表示的 Y 坐标转换为以缇表示

  Dim y As Integer

  y = Printer.ScaleY(intYPos, vbMillimeters, vbTwips)

  注释: 将以毫米表示的高度转换为以缇表示

  Dim intHeight As Integer

  intHeight = Printer.ScaleY(intPrintHeight, vbMillimeters, vbTwips)

  

  注释: 是否在条形码下方打印人工识别字符

  If bolPrintText = True Then

    注释: 条码打印高度要减去下面的字符显示高度

    intHeight = intHeight - Printer.TextHeight(strBC)

  End If

  

  Const intWidthCU As Integer = 30 注释: 粗线和宽间隙宽度

  Const intWidthXI As Integer = 10 注释: 细线和窄间隙宽度

  Dim intIndex As Integer      注释: 当前处理的字符串索引

  Dim i As Integer, j As Integer, k As Integer  注释: 循环控制变量



  注释: 添加起始字符

  If Left(strBC, 1) <> "*" Then

    strBC = "*" & strBC

  End If

  注释: 添加结束字符

  If Right(strBC, 1) <> "*" Then

    strBC = strBC & "*"

  End If

  

  注释: 循环处理每个要显示的条码字符

  For i = 1 To Len(strBC)

    注释: 确定当前字符在 strBarTable 中的索引

    Select Case Mid(strBC, i, 1)

    Case "*"

      intIndex = 39

    Case "$"

      intIndex = 38

    Case "%"

      intIndex = 37

    Case "-"

      intIndex = 36

    Case "0" To "9"

      intIndex = CInt(Mid(strBC, i, 1))

    Case "A" To "Z"

      intIndex = Asc(Mid(strBC, i, 1)) - Asc("A") + 10

    Case Else

      MsgBox "要打印的条形码字符串中包含无效字符!当前版本只支持字符 注释:0注释:-注释:9注释:,注释:A注释:-注释:Z注释:,注释:-注释:,注释:%注释:,注释:$注释:和注释:*注释:"

    End Select

    

    注释: 是否在条形码下方打印人工识别字符

    If bolPrintText = True Then

      Printer.CurrentX = x

      Printer.CurrentY = y + intHeight

      Printer.Print Mid(strBC, i, 1)

    End If



    For j = 1 To 5

      注释: 画细线

      If Mid(strBarTable(intIndex), j, 1) = "0" Then

        For k = 0 To intWidthXI - 1

          Printer.Line (x + k, y)-Step(0, intHeight)

        Next k

        x = x + intWidthXI

      注释: 画宽线

      Else

        For k = 0 To intWidthCU - 1

          Printer.Line (x + k, y)-Step(0, intHeight)

        Next k

        x = x + intWidthCU

      End If



      注释: 每个字符条码之间为窄间隙

      If j = 5 Then

        x = x + intWidthXI * 3

        Exit For

      End If

      

      注释: 窄间隙

      If Mid(strBarTable(intIndex), j + 5, 1) = "0" Then

        x = x + intWidthXI * 3

      注释: 宽间隙

      Else

        x = x + intWidthCU * 2

      End If

    Next j

  Next i



  注释: 恢复打印机 ScaleMode

  Printer.ScaleMode = intOldScaleMode

  注释: 恢复打印机 DrawWidth

  Printer.DrawWidth = intOldDrawWidth

  注释: 恢复打印机 Font

  Set Printer.Font = fntOldFont

End Sub



  最理想的情况是将它做成一个控件,在控件中提供一个打印方法,该方法实现与上

  那个过程大致相同,只是不能在控件中直接使用VB的Printer对象,否则VB会将你在控件中的打印输出处理为一个单独的页面,而是应该将Printer.hDc传给它,通过调用那些需要指定 HDC 的Windows API函数实现与容器的打印输出在一个页面上,比如我们可以这样定义这个控件的打印方法:

注释: PrintIt 方法将对应的条形码输出到缺省打印机

Public Sub PrintIt(ByVal PrintDC As Long, _

   Optional ByVal intXPos As Integer = 0, _

  Optional ByVal intYPos As Integer = 0, _

   Optional ByVal intPrintHeight As Integer = 10)

  既然不能使用Printer对象,那么画线和输出文字也不能使用Printer对象的Line和Print方法,在我们的程序中至少要申明以下三个Windows API函数:

‘ 移动画笔的位置

Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As POINTAPI) As Long

‘ 从画笔的当前位置到(x,y)画一条线

Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

‘ 在(x,y)处输出一个字符串

Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long

‘ MoveToEx() 函数需要的参数

Private Type POINTAPI

  xp As Long

  yp As Long

End Type

Dim papi As POINTAPI

  画线操作为(原来的Printer.Line函数):

MoveToEx PrintDC, x + k, y, papi

LineTo PrintDC, x + k, y + intHeight + 1

  打印字符为(原来的Printer.Print函数):

TextOut PrintDC, x, y + intHeight, Mid(strBC, i + 1, 1), 1
AR、美颜、机器人:计算机视觉库几乎无所不在 不激增,无爆收,年度最佳手游为80 Days带来了什么? 《近匠》机智云CEO黄灼:跨越智能硬件的“鸿沟” 智能手机≠智能家居!我们要的究竟是什么? 亚信大数据事业部总经理张灏:打通各行业数据壁垒 让大数据变现畅通无阻 Web App和Native App不是生死之争,而是可以和平共处! 微信之父张小龙说微信坚持“去中心化”,这样真的好吗? 亚信CFO武军谈进军海外市场成功经验 前瞻性思维是开路先峰 Swift,任重而道远! DevOps系统的变迁 玩转Docker镜像 “扫描建模”速建AR应用 Vuforia 4.0 SDK更新 硅谷里的外星人:纵观Reddit十年风雨路 不见不散 Cloud Foundry Meetup活动将首次走进杭州 独立开发者:新手做2D手游该用哪些工具? 求安全化危机!Uber研发生物识别技术、聘请前亚马逊运营 JavaScript社区开发者调查:服务端JS盛行 AngularJS使用者最多 去中心化、去中介化,微信商业化路径清晰了吗? 微信企业号认证简化了,你造吗? 专访瀚思安信联合创始人:大数据技术助力企业实现主动智能防御 挑选IBM Bluemix作为云平台的10大理由 10年技术积累成就极光压缩引擎,欧朋流量宝5.0面世 【图文实录】12月19日CTO俱乐部走进杭州 mlpack:可伸缩C++机器学习库 本地项目托管将死?类GitHub站点永存! 2014年讨论最多的编程语言:JavaScript称霸 移动Web应用UI框架大比拼:Ionic vs. Famo.us vs. F7 vs. OnsenUI 面包旅行CTO薛亮:做旅游与社交有机结合的先行者 盘点开发者最喜爱的Swift技巧 2017年,开发者还能从移动广告中收获什么? 《近匠》茄子快传,让设备更好地连接 如何设置一个用户的权限只能访问一个数据库?该用户同时不能有删除、创建数据表的权限? 请问:Java触发的问题(急) 关于ASP的安全和稳定性碰到的一些问题,想和高手们讨论一下 Mysql 的replication sqlanywhere6 建的单机数据库,为什么配完odbc后连接总提示连接错误? 改行了散分散分散分散分散分散分 主板关闭USB设备后不能在启用,是什么问题啊?各位高手望赐教! 关于 request的问题 救救小弟! 用javamail发信为何连不上服务器 请大家评论一下这样的团队有无发展可能 如何加密Access数据库,加密后如何使用?谢谢 关于richtextbox问题 打印问题? 关于SetTransform的问题 还我的硬盘空间——老鸟帮帮我!! XP上使用vc6.0有问题 php程序只能放在linux主机的根目录下吗? 关于程序打包 listbox問題 请教文件 坏了,我的D盘怎么自动产生了一个fc2tr文本 结帖错误 php下的xml问题? 内部网TCP/IP失效问题求解!在线等候 怎样将有scroll的form全部抓成图片?我用GetFormImage只能抓屏幕上显示的部分,请帮我。高分求助!不够再加!! 客户端的函数怎么样用客户端用户输入的信息... 怎样改变MC的颜色。 病毒邮件。请问有什么办法解决 帮帮我这个菜鸟! PCI Device 驱动程序? 救我吧. link的时候提示cannot open file "mfc42u.lib"的问题。怎么解决? 如何才能上网呢 请问如何重绘一个应用程序的窗体或内部 Object 的边缘,就像 SPY++ 的 FindWindow Tool 实现的样式?? 救救我,给100分 NT4.0为主域控制器,有办法降级为独立服务器吗? VBA 如何调用 DotNet's WebService ?? dbexpress为什么在插入带自增长字段时候出错? 为什么不同的查询语句会有不同的效率? 我现在要开发一个游戏大厅,谁能帮我提供一些技术参数>?在线等待。 不是水贴:请求帮助,有上海师范大学的请进 紧急!那位有clearcase winnt 4.2 的注册码,高分相送!!!!! 论坛的表格要在注意什么?《我是个菜》 大家帮忙介绍一本书 帮帮我怎么把系统还原占用的空间还给我——老鸟们帮忙! 过滤问题:Query需要先选择一个表(通过ComboBox)然后从2个Edit内输入两个条件 关于stringgrid的翻页问题 寻找电脑方面的朋友 大家好,帮忙做做这题 大家如何保存自己地提问?? 下列关于燃烧热的说法中正确的是 ( )A.1mol物质燃烧所放出的热量B.常温下,可燃物燃烧放出的热量C.在25℃、1.01×105Pa时,1mol物质燃烧生成稳定的氧化物时所放出的热量D.燃烧热随化学方程式前 甲、乙、丙三人在同一办公室工作,办公室只有一部电话机.设经该机打进来的电话是打给甲、乙、丙的概率...甲、乙、丙三人在同一办公室工作,办公室只有一部电话机.设经该机打进来的电话 美国统一土壤分类法,建筑地基基础设计规范,水电部分类法的异同?在哪 1.蜡烛燃烧属于化学变化.2.蜡烛燃烧既有物理变化又有化学变化1.蜡烛燃烧属于化学变化.2.蜡烛燃烧既有物理变化又有化学变化.两种说法谁对?两种说法的区别是什么? 丝网漏花的工序是怎样的啊,是用什么材料呢.jjj丝网漏花的工序是怎样的啊,是用什么材料呢 co与ch4混合后是什么 怎么检测5号电池的好坏?我的电池每次充满电,用不到2个小时就没电了了,请问各位大虾,怎么知道电池是否坏了?我只有数字万能表,如何检测电池内阻?我有个遥控车,电池使用2个小时,电池没电 什么是氯氟羟?想了解关于该物质的相关内容 天天听英语听力,有什么做用呢?英语差,20题听力只能对9题左右,很多都听不懂,老师说要多听,想知道听多了有什么作用? 这只烟灭了之后,这只烟灭了以后 不要挽留 这次我先走 青春真的 就象一杯酒 你笑着伸出了手 你说珍重 脸上泪残留 你说着关于爱情你猜也猜不透 你说若在相逢 若是问候 就再握握手 我们就 高效氯氟氰菊酯和氯氟氰菊酯是同一种物质吗? 为什么我天天听英语,怎么英语听力还是保持原来的分数呢 烟快灭了用繁体字怎么写 雷锋邱少云董存瑞刘英俊他们都属于军人吗 加成反应一定要写成结构简式吗?反应物和生成物不能写成分子式些化学方程式吗~请说得具体一点 什么是官能团啊~我才高一不太懂~ DNA在10nm纤丝中压缩6倍?怎样算出来的 地震发生时在室内该怎么做,楼上跟楼下哪个安全些?虽然地震过去了 ·但是还是想了解下 ·以前这方面知识不是太了解 天天听听力,真的会聋吗? 森氏纯净水好吗?他的弱碱水怎么样?本来想喝纯净水的,但他的纯净水桶实在是太脏了,所以改喝弱碱水了? 发地震时,是居住楼上的人安全,还是居住楼下的安全? 二氟化氧的化合价是怎样的?是不是氧是-2价,氟是+1?还是氟是-1哦? 烟灰飞灭是什么意思 邱少云像千斤巨石一般趴在火堆里一动也不动.如何缩句?说明病因和理由 底面积为S的圆柱形容器盛有V升水,容器最底部有一直径为D的小孔,求水流完所用时间t? 森乐净水器怎么样 为了整个班,为了整个潜伏部队,为了这次战斗的胜利,邱少云趴在堆里一动也不动.仿写 将一底部有细孔的试管插入盛水的容器中,容器的水由试管底部小孔喷入试管,喷出水的高度与容器水面比谁高 马腾与韩遂的关系怎么样啊书上说他俩的关系很复杂,还有马腾他儿子马超和韩遂的关系怎么样?别贫一堆,简短一点额... 缩句:邱少云像千斤巨石一般趴在火堆里一动也不动,是缩成:邱少云趴.还是邱少云一动不动. 知伯入南里...直坠其履圯上.顾谓良曰:“孺子,下取履这句话是哪里面的?还有译文`` 马腾、韩遂的部下有谁?如题, 邱少云怕被敌人发现,趴在火堆里一动也不动.换个说法 圯上敬履 履 下邳的 邳 衣褐的 褐 孺子的儒 愕然的额 殴打的殴 有顷的顷 董卓是西凉刺史时,马腾;韩遂在哪里?当什么官?与董卓的关系? 为了整个班,为了整个潜伏部队,为了这次战斗的胜利,邱少云趴在火堆里一动也不动.一颗有生命力的种子,即使落在瓦砾堆里,它也绝不悲观,绝不叹气.我端起搪瓷碗,觉得这个碗有千斤重,怎么也 拔一根2m长的长方体木料截成两段,表面积比原来增加60dm2,这根木料的体积是多少立方分米 森乐空气净化器怎么样? 少量硫化氢通入氢氧化钡溶液的离子方程式.少量硫化氢通入氢氧化钡的离子方程式以及过量硫化氢通入氢氧化钡的离子方程式.还有少量以及过量硫化氢与氨水的离子方程式。 硝酸表现强氧化性时的反应规律有哪些? TPP文件时什么东西?文件只有4000多K,但是点到播放器里能看,是电影,这是什么情况? 用家用电磁炉烧 70升水需要多长时间沸腾 我想用家用电磁炉给 200*70*5 的暖气片加热可行么 屋子是24平方用家用电磁炉烧 70升水需要多长时间沸腾 我想用家用电磁炉给 200*70*5 的暖气片加热可 氧化还原反应下列必须加入氧化剂才能实现的是A:Fe3+变为Fe2+ B:二氧化硫变为 硫酸根离子C; 双氧水变为氧气 我觉得应选C 是不是答案错了 TPP代表什么物质 英语天天听行吗,天天光听.能有什么结果. 英语翻译良尝学礼淮阳.东见仓海君.得力士,为铁椎重百二十斤.秦皇帝东游,良与客狙击秦皇帝博浪沙中,误中副车.秦皇帝大怒,大索天下,求贼甚急,为张良 故也.良乃更名姓,亡匿下邳.良尝闲从 坚持四项基本原则和坚持改革开放是统一的,二者统一于? 税收具有些什么特征呢? 把一根2米长的长方体木料,横截成两个小长方体,表面积增加10平方分米,原来这根木料的体积是?平方分米 形容一下子落空、失去 灰飞烟灭?还是魂飞湮灭?那个词叫什么来着? 英语翻译怎么练听力啊?之前考了一次差六分过,还打算再考,阅读差五分满分,听力几乎没听懂 怎么把英语听力提上去?多听英文歌有用吗? 怎样用星星管折心 英语四级听力,肿么办啊,天天听貌似也木有什么进步.求方法,求经验 配硫酸需要什么仪器?A.托盘天平.量筒.烧杯B.量筒.烧杯.玻璃棒C.托盘天平.量筒.烧杯D.量筒.托盘天平.玻璃棒,盐酸还有其他酸都是用这些仪器吗? 好比说豆油,淀粉,具体一点,嘻嘻,我比较笨的 异丙醇铝能溶于什么溶剂 将一块钠投入水中,反应过程中某同学观察到熔化成的闪亮小球的水面的位置为为什么选D主要分析BC 高中常用物质的以水解为主还是以电离为主,请多列几个常用的谢谢!例如NaHPO4啊什么的,是以水解为主还是电离为主呢,然后多给我列举些, 飞灰湮灭用英语怎么说?3Q 钠在水中为什么会熔化成发亮小球就问为什么发亮.是因为它本身金属的特性么. 韩国防部:暂不签署《韩日军事情报保护韩资料称日反韩示威3年激增10倍 口美华裔留学生派对后公寓猝死 疑酒精中日本“菜鸟”教师多:不会点火柴不敢拿纽约遭飓风袭击一周年 数千灾民仍无家法国两男子晚间持械抢劫 得价值70万泰辣椒酱工厂被指呛辣气味扰居民在美遭荷兰博物馆展出139幅珍贵油画 作品法一抢劫犯落网 曾为iPod及8欧元漫画之国比利时:热衷特立独行“反英雄美撤军前在阿富汗军事成果受侵蚀 安全阿富汗政府被曝将在美撤军后与“基地”乐高拟在韩建东亚首座乐高乐园 预计斯诺登爆料NSA早已入侵了雅虎和谷歌以色列释放26名巴勒斯坦犯人 亲人兴印尼一处豪华别墅内被发现暗藏多种珍禽研究称英国社会阶层八百年来几乎未发生韩国海域15日沉船事故一失踪中国船员《世界新闻报》窃听案8名被告中有3人日国会议员山本太郎向天皇递交书信 或美媒称奥巴马支持率跌至新低 挫折积累六成学生常接触网上恐怖信息服务才是体验王道全国象棋冠军邀请赛酝酿改革 粤媒:可朱小丹会见李嘉诚桂城16个农村社区今起家门口报废黄标卖的是假货 老板称不知地产租售3名外籍志愿者获评“优秀义工”百货综合信息速递思 念威廉王子夫妇“旋风式”访美岁末 忙里偷闲宠自己75%网友支持除夕放假广州天气巴黎找对地胆也不难全国社会抚养费超过1.5万亿元 钱的联合国儿基会说今年1500多万儿童受芝加哥农产品期价8日涨跌不一台风“黑格比”致菲21人死亡智商到一定程度 情商就显得很重要了
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘