VB
文章平均质量分 58
zhan198271
爱好广泛
展开
-
用VB6.0打开和关闭光驱
在VB6.0的开发环境中,添加一个按钮,编写如下代码: Option Explicit说明:CDdoor函数是安装WINDOWS时所自带的winmm.dll文件中包含的函数Private Declare Function CDdoor Lib "winmm.dll" Alias "mciSendStringA" _( ByVal lpstrCommand As String,ByVal lp原创 2008-02-14 10:54:00 · 578 阅读 · 0 评论 -
如何使用ADO对象连接SQL Server数据库
Private Sub Command1_Click() Dim cn As Connection Dim rs As Recordset Dim str As String Set cn = New ADODB.Connection str = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Cat原创 2008-12-26 23:37:00 · 613 阅读 · 0 评论 -
使用TreeView控件实现多级商品信息浏览
Dim i As Integer 定义整型变量Public Sub tree_change() 定义添加树状列表的函数 Dim key, text, bh As String Dim nod As Node Adodc1.RecordSource = "select * from 商品基础信息表 order by 商品编号" Adodc1.Refr原创 2008-12-21 21:56:00 · 529 阅读 · 0 评论 -
使用数据绑定控件实现增、删、改
Private Sub Form_Load() Me.Caption = "使用数据绑定控件实现增、删、改"End SubPrivate Sub Text1_GotFocus(Index As Integer) Text1(Index).BackColor = &HFFFF00 Text1(Index).SelStart = 0 Text1(Index).SelLength = Le原创 2008-12-21 21:53:00 · 515 阅读 · 0 评论 -
VB ADOBD操作access数据库 添加、修改、删除
VB ADOBD操作access数据库 添加、修改、删除 http://www.dow88.cn/Forum/list.asp?fid=31原创 2008-10-14 16:48:00 · 1319 阅读 · 0 评论 -
VB 6.0中的RC4加密算法
Public Function RC4(inp As String, key As String) As StringDim S(0 To 255) As Byte, K(0 To 255) As Byte, i As LongDim j As Long, temp As Byte, Y As Byte, t As Long, x As LongDim Outp As StringFor i原创 2008-05-11 14:57:00 · 664 阅读 · 0 评论 -
VB 6.0中的MD5加密算法
代码(测试通过):Private Const BITS_TO_A_BYTE = 8Private Const BYTES_TO_A_WORD = 4Private Const BITS_TO_A_WORD = 32Private m_lOnBits(30)Private m_l2Power(30)Privat原创 2008-05-11 14:46:00 · 898 阅读 · 0 评论 -
VB使用ADODB操作数据库的常用方法
ADO常用方法下面是我所掌握的使用ADO对数据库操作的一些常用方法,主要是提供给初学者作为参考,有不对的地方请指正。如有补充不胜荣幸准备工作========Dim conn As New ADODB.Connection 创建一个 Connection 实例,在这里使用New等于将Dim和Set合并为一段代码执行Dim rs As ADODB.Recordset 创建一个 Recor原创 2008-04-14 23:12:00 · 776 阅读 · 0 评论 -
VB中FSO的调用方法
方法一: Dim objFso Set objFso = CreateObject("Scripting.FileSystemObject") 方法二: 工程->引用->Microsoft Scripting Runtime第二种相对简单些,但是有的时候,会提示 不能加载SCRRUN.dll,此时就只能用第一种了,我用第一种的时候,还提示原创 2008-04-14 22:54:00 · 1063 阅读 · 1 评论 -
VB中使用WinSock控件传送文件
传送文件对于网络编程来说是基本的功能,比如远程控制软件。在编制一个软件时,我从网上下了很多传文件的程序,这些程序提供的传文件功能根本就不能用。传文本还可以,传二进制文件根本就不行。因此,作为一个基本的功能模块,有必要单独介绍一下。 首先,在VB中要传送字符串,你可以这样写:Dim strData As StringstrData = "Test"Winsock1.SendData strDa原创 2008-04-14 23:23:00 · 1992 阅读 · 0 评论 -
VB读取INI文件
Module1.bas代码:Option ExplicitPrivate strINI As StringPrivate Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA"原创 2008-04-07 23:49:00 · 1387 阅读 · 1 评论 -
VB附加SQL 数据库
效果图: 代码如下:Public m As String, l As String, strdata As StringPrivate Sub Command1_Click() Dim cn As New ADODB.Connection On Error GoTo dataErr cn.Open "Provider=SQLOLED原创 2008-04-07 23:42:00 · 954 阅读 · 1 评论 -
用VB.NET2008实现影音播放器
用VB.NET2008实现影音播放器 http://www.soft55.cn/article.asp?id=15原创 2010-01-26 00:34:00 · 372 阅读 · 0 评论