问的话永远都是明天发货
淘宝上买了一件衣服，买了之后才发现写的是1月21号之前发货，如果真是等到1月21号才发货，那个时候都已经回家了，拿不到，所以赶紧问一下店家什么时候可以发货，给的回答是“明天”。我想应该会发货，等过了一天，结果还是没发货；就再次询问店家， ...
京东的7天无理由退货
几天前花300多买的行车记录仪不太满意（没有语音控制，logo水印无法关闭） 论坛里面全是要求取消这个水印的，但是360一直没有响应。它这个行车记录仪销量还是蛮高的，但是就是不响应用户需求，一味的耍流氓。京东直接搜“行车记录仪”排 ...
通过微信电脑版发的图片可以直接文字识别
最近发现微信电脑版发的图片可以直接文字识别，也就是图片里面的文字可以直接复制。 下面这个本身是张截图，但是通过微信发送后可以直接复制里面的文字。
QQ靓号买断居然又延期了
之前是到11月30日，到期了之后马上就延期了，看来是没有达到预期的圈钱目的。 还有888的靓号，但是居然要6000多，这也太贵了吧。
这是我见过的最恶心的放假通知
本来一个星期就要上6天班，为了放假硬生生要连上15天，足足半个月。
AutoCAD二次开发教程（7）-通过VB6创建填充
1：实体填充 完整代码如下： On Error Resume Next ' 连接至 AutoCAD 应用程序 Dim acadApp As AcadApplication Dim docObj As AcadDocument Set acadApp = GetObject(, "AutoCAD.Application.17.1") Set docObj = acadApp.Application.Doc ...
AutoCAD二次开发教程（6）-通过VB6绘制辅助线
1：绘制构造线 代码如下： On Error Resume Next ' 连接至 AutoCAD 应用程序 Dim acadApp As AcadApplication Dim docObj As AcadDocument Set acadApp = GetObject(, "AutoCAD.Application.17.1") Set docObj = acadApp.Application.Docum ...
函数或过程的名字不能跟模块的名字一样
不然会报错，会提示：“<类型名>是一个类型,不能用作表达式”。
AutoCAD二次开发教程（5）-通过VB6设置文档窗口
本次我们通过VB来设置文档窗口，文档窗口就是我们绘制图形的黑色区域。 1：设置文档大小 代码如下： On Error Resume Next ' 连接至 AutoCAD 应用程序 Dim acadApp As AcadApplication Dim docObj As AcadDocument Set acadApp = GetObject ...
TextBox拼接字符与变量
将常量与变量拼接后一起显示，示例代码如下： TextBox1="Hu" & a & "Wei" & b & "ming" Hu，Wei，ming为字符，a与b为变量，也就是字符写在""中，变量写在& &中，假如a与b分别是100与200，那么最后显示为： Hu100Wei ...
