6个用VB和DELPHI编写的FOR USB驱动程序,用于初步学习
2023-10-08 15:54:59 631KB usb
1
摘要:VB源码,数据库应用,PK游戏  VB编写的姓名PK小游戏源码,试玩时输入两个人的中文姓名,就可以模拟PK了。关于游戏的一些属性说明:    【生命】 当战斗时小于0时,战斗就失败并结束。当生命小于10时,有几率进行垂死挣扎,恢复生命。    【攻击】 当战斗时大于对方防御力,进行相减,加修正值就是输出的伤害    【防御】 当战斗时大于对方攻击力,对方攻击力减修正值就是受到的伤害。    【敏捷】 决定出手顺序,当战斗时,敏捷高的有一定几率躲避掉对方的攻击。    【运气】 当战斗时,有几率出现双倍伤害,运气高的有几率触发恢复,运气低的有几率攻击失效。   受伤部位
2023-10-06 15:04:50 8KB VB源代码 数据库应用
1
VB RichTextBox 打印预览源码实例,所见即所得的RichTextBox打印实例,支持图文排版,支持图片打印,像WORD一样的功能,打印预览 [ 温馨提醒: 打印印刷页可能有轻微的变化,本例只是一个粗略的示例,抛砖引玉.]
2023-10-05 09:50:10 193KB VB源码-打印输出
1
由本人第一次尝试制作的录像视频教程,由于电脑速度较慢,播放时间较慢,请谅解。 本录像讲解最基础的VB封装ASP代码生成DLL的制作教程,适合初级学习者参考。也是本人学习VB制作ASP组件的第一个尝试,录像基本成功。 用vb编写asp组件(dll)示例 下面,将演示如何使用vb制作asp的dll组件... 1. 启动你的vb,选择activex dll图标,然后在点击菜单的工程>>引用,接 着在弹出的"引用"窗口从中选择 microsoft active server pages object library. 2. 给工程和类重命名,在asp中调用时,就全靠它了^_^!我们的工程名改 为aspdll,类名为demo.在asp中调用的方法是: set objreference = server.createobject("工程名.类名") 本例调用的相应代码如下: set objreference = server.createobject("aspdll.demo") 调用的方法和一般常见的,比如fso等组件的方法一模一样. 心动了吧,呵呵,下面我们继续.... 3. 接着,我们开始编写代码,打开我们刚才新建工程类窗口,第一步,先声 明我们要用到的变量.主要是在vb声明替代asp几大对象的变量名,定义这 asp的几大对象后,我们就可以像在asp环境中调用类似request,server等 这样的几大对象了.(声明的变量名完全可以和asp对象名一样)代码如下: '********************************************** private mys criptingcontext as s criptingcontext private myapplication as application private myrequest as request private myresponse as response private myserver as server private mysession as session '********************************************** 4. 声明完变量后,我们必须在类中写onstartpage子函数.本函数的作用是 当用户访问一个带有本组件的asp文件时,iis就会把s criptingcontext传 送给我们vb组件对象.这个s criptingcontext包括了全部的asp方法和属性 .这样,就使得我们有能力访问所有asp的对象.代码如下: '***************************************************************** public sub onstartpage(passeds criptingcontext as s criptingcontext) set mys criptingcontext = passeds criptingcontext set myapplication = mys criptingcontext.application set myrequest = mys criptingcontext.request set myresponse = mys criptingcontext.response set myserver = mys criptingcontext.server set mysession = mys criptingcontext.session end sub '***************************************************************** 通过上面的函数,我们在asp中调用本组件后,上面的几大对象就完全可以 像平时我们在asp使用一样了,举个例子: 在asp中实现接收提交的表单值并输出屏幕: <% formvalue=request.form("username") response.write ("你提交的用户名是"&myformvalue&",欢迎您!") %> 在vb中实现方法是: formvalue=myrequest.form("username") myresponse.write ("你提交的用户名是"&myformvalue&",欢迎您!") 5. 相对应于onstartpage函数,我们还要编写一个关闭onstartpage中对象 的onendpage函数,代码如下: '********************************* public sub onendpage() set mys criptingcontext = nothing set myapplication = nothing set myrequest = nothing set myresponse = nothing set myserver = nothing set mysession = nothing end sub '******************************** 6.通过编写上面的代码,我们在vb中编写asp组件实例的环境已经具备了, 下面,我就尝试写两个与asp中基本相类似的函数,也就是说,关键部位就在 这里了,你完全可以把你所有的asp源码封装在这里... 先写个最简单的输出屏幕信息函数: '******************************************** public sub welcomeinfo() myresponse.write ("阿里西西_web开发,欢迎访www.alixixi.com!") end sub '******************************************** 再写个带参数传递及显示now()现在时间的函数: '********************************** public sub setinfo(content as string) myresponse.write content & "
" myresponse.write "现在的时间是:" & now() end sub '********************************** 通过上面的asp代码实例,你会发现其实这和asp源码基本没有区别^_^ 7. 好了,整个类就编写完了,我们开始打包封装成dll.我们先保存工程, 这里我们保存到e:\vbdll,接着选择菜单上的文件>>生成aspdll.dll,很 快的dll组件就封装并生成完毕了. 8. 生成dll文件后,我们开始调试和使用.在系统运行栏输入cmd,进入dos 命令行状态,我们要注册刚才生成的dll组件,注册方法是可以直接输入 regsvr32 e:\vbdll\aspdll.dll ,为了安装方便,你同时可以写个批处理 文件,这里不一一举例了...好,注册成功! 9.注册完dll组件后,我们针对刚才的组件,按照上面介绍过的方法编写一 个asp文件来调试.代码如下: <% set redll = server.createobject("aspdll.demo") redll.welcomeinfo response.write "
" redll.setinfo("传递参数到服务器组件,并返回值及当前日期now()!") response.write "
" set redll = nothing %> 在iis中打开此文件,屏幕显示:
2023-10-04 19:33:58 6.3MB VB ASP 课件 教程
1
VB6.0 使用libmySQL.dll 连接MYsql数据库的方法 包含 libmySQL.dll 文件 不使用ODBC 连接 查询 修改 删除mysql数据库 比较全面 适合初学者
2023-10-04 18:11:53 157KB mysql 数据库
1
摘要:VB源码,字符处理,记事本
  记事本源码,VB源代码下载,学习一下菜单的创建和定义、字体对话框的使用、使用With语句设置RichTextBox控件的各种属性、定义菜单的单击事件、保存对话框等小技巧,
2023-10-04 14:15:02 6KB 记事本 VB源码 源码中心 字符处理
1
可以很方便的打印普通单一窗体中指定richtextbox中的内容,而不需要设置当前子窗体。 只需要在当前窗体中添加打印组件printdocument然后修改一下要打印的标题和richtextbox的控件名就OK
2023-10-04 13:58:33 3KB VB.NET 打印 RichTextBox
1
里面用Winsock控件编写的一种聊天软件。 可供大家学习
2023-09-30 09:52:36 9KB VB 聊天器 winsock
1
使用Winsock,代码简洁易懂 包含注释
2023-09-30 09:29:11 56KB VB
1
如何用VB编写OPC客户端程序,用于OPC客户端程序开发代码。
2023-09-29 23:58:42 1.03MB VB OPC客户端
1