- 博客(5)
- 资源 (1)
- 收藏
- 关注
RSS订阅
原创 VB6 鬼怪二三事
本人最近灵异小说看多了，遇到一些出乎意料的现象都喜欢归咎于“灵异事件”。在使用VB6编程时，本人就遇到过几个诡异的现象。有些现象经过思考后可以找到其中的原因，但是有些的至今没找到答案。先来看看已经找到答案的：Msgbox Text1.Text - Text2.Text。如果在Text1中输入12，Text2中输入12.8，返回的结果不是预想的0.8，而是 -800000000000001。出现这种现象其实是“精度”在作怪。将代码修改为:Dim i as Singlei=Text1.Text - Text2.
2010-09-03 13:47:00
535
原创 VB2008报表的动态生成
<br />Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim m_sqlConn As SqlClient.SqlConnection<br /> Dim m_strSqlConn As String<br /> m_strSqlConn = "Data Source=localhost;In
2010-09-03 11:13:00
493
转载 AT 语音命令
<br />AT 语音命令<br />语音命令 <br /> 命令 描述 <br /> +FCLASS=8 进入语音模式。AT+FCLASS=8 将调制解调器置入语音模式。扩音电话和 TAM <br /> 模式包括在通用语音模式中，并使用特定的语音模式命令子集来执行各自的特性和功能。调制解调器控制器将维持系统总体状态，以便掌握使用扩音电话在 TAM <br /> 的环境或其它语音环
2010-09-03 11:10:00
1157
转载 VB实现ADSL自动拨号的2种方法
<br />VB实现ADSL自动拨号的2种方法<br />方法1:<br />Private Sub Command1_Click() <br />shell "rasdial <连接名称> <连接用户名> <连接密码>" <br />End Sub<br />方法2:<br />1、第一个问题还要添上连接名（就是拨号连接的名字） <br />我这里有一个现成的代码，挺长的，能上网、断网、查看网络状态、查看连接数目，如果其它的不需要的话，自己看函数的名字，删了即可 <br />把一下代码粘贴到模块中，在窗体
2010-09-03 11:08:00
1057
原创 在VB6中使用API函数实现矢量图的绘制
<br />在VB6中绘制矢量图并没有想象中那么困难，其实只要使用一个增强型图元文件（EMF文件）并配合3个API函数就可以实现矢量图的绘制。上述的API函数分别是GetEnhMetaFile、GetEnhMetaFileHeader、PlayEnhMetaFile。<br />以下是上述函数的原型：<br />（1）Declare Function GetEnhMetaFile Lib "gdi32" Alias "GetEnhMetaFileA" (ByVal lpszMetaFile As Strin
2010-09-03 11:05:00
3211
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人