![](https://img-blog.csdnimg.cn/20201014180756922.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Visual Basic
Snoworld
知识改变命运
展开
-
对做第一个项目的认识
前几天领导给了一个任务,就是重新把现在用的后台写一下,说起来简单。虽然看起来很简单,但对我这个刚入门的“菜鸟”来说,可是说难上加难了。记得以前学VB的时候,还可以记得一些,可是如今也有半年多没用了。以前学的也是一些基础知识。没办法,只能发扬那种“现学现卖”的精神了。 这几个星期,脑子里基本上都是想的如何把这个软件做好。如何才能实现某种功能,遇到不会的,我会拿到CSDN上来让大家帮我一起解决,渐渐的原创 2005-07-21 19:20:00 · 1425 阅读 · 2 评论 -
VB 操作 EXCEL
引用ADO(Microsoft ActiveX Data Objects 2.X Library)Private Sub Command1_Click() On Error GoTo err Dim cn As New ADODB.Connection 具体的数据库连接请自己改过来 cn.ConnectionString = "Provider=SQLOLEDB.1;P原创 2006-04-19 11:47:00 · 867 阅读 · 0 评论 -
让F8键失效(Visual Basic)
以下在.BasOption ExplicitDeclare Function SetWindowsHookEx Lib "user32" Alias _"SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, _ByVal hmod As Long, ByVal dwThreadId As Long) As LongDecl原创 2006-04-24 14:25:00 · 1100 阅读 · 0 评论 -
寫文件操作(VB)
写文件操作Public Function WriteFile(strWhat As String, strFilePath As String, strFileName As String) As Boolean WriteFile = False Dim fso As New FileSystemObject Dim fFile As File Dim ts A原创 2006-04-24 17:21:00 · 972 阅读 · 0 评论 -
根据计算机名获得IP,和根据IP获得主机名(转)
Option Explicit// define constantsPrivate Const IP_SUCCESS As Long = 0Private Const SOCKET_ERROR As Long = -1Private Const MAX_WSADescription As Long = 256Private Const MAX_WSASYSStatus As Long = 128原创 2006-04-24 22:48:00 · 2122 阅读 · 0 评论 -
用VB实现数据的加解密算法
随着计算机应用的普及,信息的安全性越来越受到人们的重视,对数据加解密算法的研究也在不断地深入,但一般的加解密算法如DES和RSA等过于复杂,且运算速度慢,特别是它的移位操作,对于VB这样的高级语言实现起来也比较困难。而一般的MIS(Management Information System)系统多用高级语言开发,对数据的加密要求不高,因此,研究简易数据加解密算法还是有相当的现实意义。 简易加解转载 2006-04-28 16:48:00 · 2283 阅读 · 0 评论 -
VB启动控制面板大全
Ken J 控制面板 模块: control.exe 命令: rundll32.exe shell32.dll,Control_RunDLL 结果: 显示控制面板窗口。 例子: Dim x x = Shell("rundll32.exe shell32.dll,Control_RunDLL") 辅助选项 模块: access.cpl 命令: rundll32.exe shell32.dll,Co转载 2006-05-22 14:43:00 · 919 阅读 · 0 评论