摘要:VB源码,数据库应用,PK游戏 VB编写的姓名PK小游戏源码，试玩时输入两个人的中文姓名，就可以模拟PK了。关于游戏的一些属性说明：
【生命】 当战斗时小于0时，战斗就失败并结束。当生命小于10时，有几率进行垂死挣扎，恢复生命。
【攻击】 当战斗时大于对方防御力，进行相减，加修正值就是输出的伤害
【防御】 当战斗时大于对方攻击力，对方攻击力减修正值就是受到的伤害。
【敏捷】 决定出手顺序，当战斗时，敏捷高的有一定几率躲避掉对方的攻击。
【运气】 当战斗时，有几率出现双倍伤害，运气高的有几率触发恢复，运气低的有几率攻击失效。
受伤部位
2023-10-06 15:04:50
8KB
1
VB RichTextBox 打印预览源码实例，所见即所得的RichTextBox打印实例，支持图文排版，支持图片打印，像WORD一样的功能，打印预览 [ 温馨提醒: 打印印刷页可能有轻微的变化,本例只是一个粗略的示例，抛砖引玉.]
2023-10-05 09:50:10
193KB
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中打开此文件,屏幕显示:
" 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
1
VB6.0 使用libmySQL.dll 连接MYsql数据库的方法 包含 libmySQL.dll 文件 不使用ODBC 连接 查询 修改 删除mysql数据库 比较全面 适合初学者
2023-10-04 18:11:53
157KB
1
摘要:VB源码,字符处理,记事本
记事本源码，VB源代码下载，学习一下菜单的创建和定义、字体对话框的使用、使用With语句设置RichTextBox控件的各种属性、定义菜单的单击事件、保存对话框等小技巧，
记事本源码，VB源代码下载，学习一下菜单的创建和定义、字体对话框的使用、使用With语句设置RichTextBox控件的各种属性、定义菜单的单击事件、保存对话框等小技巧，
2023-10-04 14:15:02
6KB
1
可以很方便的打印普通单一窗体中指定richtextbox中的内容，而不需要设置当前子窗体。
只需要在当前窗体中添加打印组件printdocument然后修改一下要打印的标题和richtextbox的控件名就OK
2023-10-04 13:58:33
3KB
1