随笔分类 -  VB

VB导入Excel到数据库软件（持续更新中。）
摘要：1.选择Excel文件版本 电脑上用的　Ｏffice2010 引用：Mircosoft Excel 14.0 Object Library 2.选择Excel文件 3.遍历Excel工作表 4.选择Excel工作表进行预览，前几行，或全部有效数据，显示总数据条数。 5.选择标题列所在行 6.选择数据 阅读全文
posted @ 2017-04-11 00:31 御清风 阅读(2659) 评论(1) 推荐(0)
[转]vb socket通信（TCP/UDP）一对一、多对一
摘要：VB Socket编程(Winsock控件创建TCP/IP客户机/服务器程序) Winsock控件建立在TCP、UDP协议的基础上，完成与远程计算机的通信。即使对TCP/IP不太熟悉的用户，使用该控件也可以在十几分钟内创建一 个简单的客户机/服务器程序。下面我们对Winsock控件的事件、方法、属性 阅读全文
posted @ 2016-10-29 21:48 御清风 阅读(4771) 评论(1) 推荐(0)
[转]VB Winsock 控件TCP与UDP连接实例
摘要：[-] 可能的用途 选择通讯协议 协议的设置 确定计算机的名称 TCP 连接初步 接受多个连接请求 UDP 初步 关于 Bind 方法 [-] 利用 WinSock 控件可以与远程计算机建立连接，并通过用户数据文报协议 (UDP)或者传输控制协议 (TCP)进行数据交换。这两种协议都可以用来创建客户 阅读全文
posted @ 2016-10-29 21:47 御清风 阅读(5673) 评论(0) 推荐(0)
[转]VB实现自动取得服务器IP并连接服务器(利用UDP广播)
摘要：最近在用ＶＢ写多用户类型的远程控制，转个文章做思路……转自：http://www.ibiancheng.cn/Article/VBNetArticle/200804/123.html普通的讲解WINSOCK控件等网络控件的用法的资料中，无论是使用TCP还是UDP，客户端程序连接服务端程序时，无一例外的要指定IP地址(或机器名)和端口号，那么，在端口已知而服务端程序所在机器地址或名称未知的情况下，怎样实现客户端程序自动取得服务端IP并建立连接呢，笔者在实际编程中遇到了这种情况，并使用以下方法解决了这个问题。这种方法就是服务器端添加两个Winsock控件，一个作为服务端，一个以UDP来广播本机IP 阅读全文
posted @ 2012-10-12 11:43 御清风 阅读(3765) 评论(0) 推荐(0)
VB6 通过winsock控件数组实现客户端和服务器多对一通信
摘要：转：http://blog.csdn.net/geohuskyer/article/details/6261062在VB6中使用winsock控件需要引用Microsoft Winsock Control 6.0部件使用winsock控件可以实现客户端和服务器间C/S结构的通信，如果把客户端和服务器放置于同一台电脑中，并且将客户端winsock的RemoteHost设置为本机IP，则可以实现客户端程序和服务端程序间的自由通信。在应用程序之间采用winsock通信比内存共享等方法更简单快捷，同时也更安全。在客户端中添加一个窗体，拖拽一个winsock控件到该窗体上。[vb]view plainc 阅读全文
posted @ 2012-06-22 19:32 御清风 阅读(9561) 评论(0) 推荐(0)
VB中利用winsock控件，TCP协议实现多客户端连接
摘要：1通信程序通常都是采用Client/Server形式。这就要求作为服务器的主机可以同时处理多个客户的请求。因此在编写服务器程序时要添加多个Winsock控件。在开始我们先加入两个Winsock控件。其中一个用来侦听网上请求信号，取名为Listener；另外一个为初始的连接口，取名叫Sock（0）。注意，后一个控件要设为动态数组的形式，以后当客户增多时，可在这个控件基础上动态增加。由于受资源限制，我们在本例中设定最多可以同时接纳15个客户。客户机一般只与一个主机相连，因此程序只须一个Winsock进行连接就足够了。这个程序要用到的控件较少，除了Winsock和Form控件外，只须再添加Comm. 阅读全文
posted @ 2012-06-22 19:07 御清风 阅读(13895) 评论(0) 推荐(0)
VB 获取 Internet Explorer_Server 里面的内容
摘要：1OptionExplicit2'3'要求：使用本模块时需要在工程中引用MicrosoftHTMLObjectLibrary。4'5PrivateTypeGUID6Data1AsLong7Data2AsInteger8Data3AsInteger9Data4(0To7)AsByte10EndType11PrivateDeclareFunctionGetClassNameLib"user32"_12Alias"GetClassNameA"(_13ByValhWNDAsLong,_14ByVallpClassNameAsString, 阅读全文
posted @ 2012-05-29 17:08 御清风 阅读(3975) 评论(0) 推荐(0)
VB6 蓝色皮肤控件（SkinH）
摘要：下载地址：/Files/findw/SkinH_VB6.rar使用方法：1.将文件解压后，将解压后的文件（skinh.she, SkinH_VB6.dll）复制到工程目录下面；2.添加接口模块SkinH.bas到工程；3.在Form_Load事件中添加换肤命令SkinH_Attach()；OK。先看一下效果图： 阅读全文
posted @ 2012-04-15 15:46 御清风 阅读(13027) 评论(0) 推荐(0)
VB 键盘16进制值
摘要：1PublicConstVK_LBUTTON=&H12PublicConstVK_RBUTTON=&H23PublicConstVK_CANCEL=&H34PublicConstVK_MBUTTON=&H45PublicConstVK_BACK=&H86PublicConstVK_TAB=&H97PublicConstVK_CLEAR=&HC8PublicConstVK_RETURN=&HD9PublicConstVK_SHIFT=&H1010PublicConstVK_CONTROL=&H1111PublicCo 阅读全文
posted @ 2012-04-09 23:31 御清风 阅读(965) 评论(0) 推荐(0)
MSHFlexGrid 鼠标双击获取行数据
摘要：PrivateSubgduser_dblclick()'数据列表双击事件DimintrowAsIntegerintrow=gdUser.Row'得到当前行WithgdUsertxtUser.Text=.TextMatrix(.Row,2)txtPass.Text=.TextMatrix(.Row,3)EndWithEndSub'MSHFlexGrid 控件名称为：gdUser 阅读全文
posted @ 2012-03-20 11:19 御清风 阅读(901) 评论(0) 推荐(1)
VB6 and ASP 制作管理系统1--制作添加用户（3）
摘要：上次说到，登录之后，卸载登录窗口，然后显示管理界面；界面随便设计吧.窗体图如下，随便画的，有点乱。将就看吧，能知道用什么控件就行了！只需要在Command1按钮处添加代码即可：　添加用户，用到　两个Text控件，一个Command控件。Text控件分别命名为：txtUser,txtPass双击Command1 添加如下代码：呵呵，习惯了ASP的写法，也可以直接用：conn.Execute("inst语句直接插入")1PrivateSubCommand1_Click()2'添加用户3Dimtuser4Dimtpass5tuser=Trim$(txtUser.Text) 阅读全文
posted @ 2012-03-19 14:47 御清风 阅读(568) 评论(0) 推荐(0)
VB6 and ASP 制作管理系统1--VB6制作用户登录
摘要：今天做用户登录的时候，智障了……--------------------------------------------------------------------------------- 友情提示： 登录的时候总提示密码错误， PrintIIf(Trim(rs.Fields("password"))=password,"相等","不相等") 找了好久，才发现：SQL2000 设计数据库的时候，字段中，字符串要设计成可变长度（varchar），如果设计成char固定长度，那么，如果你的字符串不够长度，数据库会自动用空格补齐。-- 阅读全文
posted @ 2012-03-17 11:47 御清风 阅读(1145) 评论(0) 推荐(0)
VB6 and ASP 制作管理系统1--VB6连接SQL2000
摘要：主要侧重与代码方面，关于数据库设计，只要你做过，基本没有什么问题！ 1.VB6->新建程序添加引用工程—>引用Microsoft ActiveX Data Objects 2.8 Libray (或其它版本)Microsoft ActiveX Data Objects Recordset 2.8 Libray (或其它版本)新建模块MyConn.bas（用于数据库连接） 调用打开数据库连接CallOpenConn关闭数据库连接（用的时候用到rs，所以连同rs写到函数里了） CallCloseConnMyConn.bas代码如下：1'定义数据连接2PublicconnAsNe 阅读全文
posted @ 2012-03-13 16:07 御清风 阅读(445) 评论(0) 推荐(0)
VB ListView 控件
摘要：View Code PrivateSubCommand1_Click()'命令按钮ListView1.View=lvwReport'设置ListView控件中ListItem对象的外观形式为报表，其值为3ListView1.ColumnHeaders.Clear'清除原有的列标题WithListView1.ColumnHeaders'添加新的列标题.Add,,"",10.Add,,"第一列",1000'第一列标题，标题内容为“第一列”，列宽为1000.Add,,"第二列",1000'第二 阅读全文
posted @ 2011-05-13 16:27 御清风 阅读(19472) 评论(0) 推荐(0)
VB使用ADODB操作数据库的常用方法
摘要：ADO常用方法下面是我所掌握的使用ADO对数据库操作的一些常用方法，主要是提供给初学者作为参考，有不对的地方请指正。如有补充不胜荣幸准备工作========DimconnAsNewADODB.Connection'创建一个Connection实例，在这里使用New等于将Dim和Set合并为一段代码执行DimrsAsADODB.Recordset'创建一个Recordset实例，不使用New是因为，经常需要重复使用Set，因此没必要在这里使用DimCnStrAsString,SqlAsString'创建两个字符串变量分别存放两个集合的SQL语句代码段1、装载数据库(不属于 阅读全文
posted @ 2011-05-11 16:08 御清风 阅读(22313) 评论(0) 推荐(5)
VB编程-读取本地计算机IP地址及MAC地址
摘要：这是一个获取本机的IP的思路： 添加一个WINSOCK控件 在一个窗体上添加一个text PrivateSubForm_Load()Text1.Text=Winsock1.LocalIPEndSub'获取物理地址的代码：OptionExplicitPrivateConstNCBASTAT=&H33PrivateConstNCBNAMSZ=16PrivateConstHEAP_ZERO_MEMORY=&H8PrivateConstHEAP_GENERATE_EXCEPTIONS=&H4PrivateConstNCBRESET=&H32PrivateType 阅读全文
posted @ 2011-03-23 21:30 御清风 阅读(5869) 评论(0) 推荐(0)
VB设置网卡的IP地址
摘要：在菜单中的【工程】—【引用】下，添加“Microsoft WMI Scripting V1.1 Library”，然后在Form1窗体上添加1个Combo1、Text1(0)、Text1(1)、Text1(2)、Text1(3)和Command1、Command2，代码如下：OptionExplicitDimobjSWbemServicesAsSWbemServicesDimobjSWbemObjectSetAsSWbemObjectSetDimobjSWbemObjectAsSWbemObject'Text1(0)为IP地址、Text1(1)为子网掩码、Text1(2)为缺省网关、T 阅读全文
posted @ 2011-03-23 21:25 御清风 阅读(4427) 评论(0) 推荐(0)
QcC-Q宠大乐斗企鹅鉴定及评分标准[测试版]
摘要：QcC-Q宠大乐斗企鹅鉴定及评分标准[测试版]是根据论坛某贴[在些表示感谢]，进行制作的一款小工具！欢迎大家下载测试！呵呵下载地址：/Files/findw/QcCountBeta1.0.rar软件说明：这是测试版嘛 - -~ 有两个30级技能没有加入，会在修正版里填加！敬请期待哦！评分标准为取大分为优先，例：选择普通武器为2分，如果连同真·选择，所加分数为4分！取大优先！软件界面： 阅读全文
posted @ 2010-10-07 10:51 御清风 阅读(960) 评论(0) 推荐(0)