随笔分类 -  VB

Access 2010 VBA 读取 表中的数据
摘要：Option Compare DatabasePrivate Sub Command0_Click() Dim db Dim rs As Recordset Dim str As String Set db = CurrentDb Set rs = db.Ope... 阅读全文
posted @ 2015-09-24 11:56 黑冰.org 阅读(1623) 评论(0) 推荐(0)
VB 十六进制转汉字的函数
摘要：Public Function HexToStr(ByVal strs As String) As String Dim i As Integer, tmp As String, n If Len(strs) Mod 2 Then Exit Function For i = 1... 阅读全文
posted @ 2014-06-10 13:59 黑冰.org 阅读(566) 评论(0) 推荐(0)
条形码：EAN13
摘要：<%Dim arrMobile(1) arrMobile(1) = "613926666677" Call ean13(FomratEanCode(arrMobile(1)),2,100) '生成条码Function EAN13(code,w,h) Dim Guide,Dict,Lencode,Rencode,cStart,cMid,cEnd,Barcode,Lmethod Dim i Guide = array("AAAAAA","AABABB","AABBAB","ABAABB" 阅读全文
posted @ 2013-01-30 10:23 黑冰.org 阅读(430) 评论(0) 推荐(0)
条形码：Code93
摘要：<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"> <head><meta content="text/html; charset=gb2312" http-equiv="Content-T 阅读全文
posted @ 2013-01-30 10:22 黑冰.org 阅读(1722) 评论(0) 推荐(0)
VB6.0 二分法解方程
摘要：Private Sub Command1_Click() Dim H, x1, x2, m As Double x1 = Val(Text1.Text) x2 = Val(Text2.Text) If f(x1) * f(x2) < 0 Then Do m = (x1 + x2) / 2 If f(m) = 0 Then x1 = m x2 = m End If If f(x1) * f(m) > 0 Then... 阅读全文
posted @ 2013-01-08 16:58 黑冰.org 阅读(4270) 评论(0) 推荐(0)
VB 浏览器，无限新窗口
摘要：RT源码下载：WebTest.zip 阅读全文
posted @ 2012-12-13 11:52 黑冰.org 阅读(247) 评论(0) 推荐(0)