发布个小软件给大伙玩玩

虽然 VB 已死。。但用来写写桌面小软件还是挺不错的。不过我算是还给了老师。。忘的差不多了。。~~~~~~~~~~

很早以前用VB写的。。。也就几行代码。。。。没有一点技术含量
                  下载无需安装。。直接运行即可。。
   截图：

下载地址：
http://www.blogjava.net/Files/wujun/mysoft.rar

关键代码:
链接数据库：

Public Function contoserver()Function contoserver() As Boolean '连接数据库函数

On Error GoTo Conerror

con.CursorLocation = adUseClient

con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\db.mdb;"
& "Persist Security Info=False"

'con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password=wujunainiyiwn;Data Source=E:\数据\vars.mdb;Persist Security Info=True"

con.CommandTimeout = 20

con.Open

contoserver = True

Exit Function

Conerror:

MsgBox "问题,!", vbExclamation + vbOKOnly, "严重问题"

contoserver = False

End Function

Public Function closecon()Function closecon() As Boolean '关闭连接的函数

On Error Resume Next

If (Not con Is Nothing) Then con.Close

Set con = Nothing

End Function

Public Function runSQL()Function runSQL(ByVal strsql As String) As Boolean '执行查询语句的函数

On Error GoTo runerror

Set rst = Nothing

Set rst = New ADODB.Recordset

rst.Open strsql, con, adOpenDynamic, adLockOptimistic, -1

runSQL = True

Exit Function

runerror:

MsgBox "运行这句出错了", vbExclamation + vbOKOnly, "提示"

' MsgBox "错误编号：" & Err.Number & vbCrLf _

& "错误描述：" & Err.Description, vbCritical + vbOKOnly, "连接错误"

runSQL = False

End Function

小技巧：

VB 引入超链接按钮
1.定义

Private Declare Function ShellExecute()Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA"
(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal
lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

2.使用

ShellExecute Me.hWnd, "open", "http://www.blogjava.net/wujun", vbNullString, vbNullString, vbNormalFocus

textBox 只能输入数字:

Private Sub Text2_KeyPress()Sub Text2_KeyPress(KeyAscii As Integer)

Dim a As Boolean

a = Chr(KeyAscii) Like "[0-9]" Or KeyAscii = 8

If a = False Then

KeyAscii = 0

MsgBox "这里输入的可是要数字的哦!", vbInformation + vbOKOnly, "提示"

End If

End Sub

转载于:https://www.cnblogs.com/wujun/archive/2006/11/18/564829.html

发布个小软件给大伙玩玩相关推荐

制作ico图标的一个小软件
最近在写软件的过程中,遇见了如下问题: 1.libpng warning:iCCP:known incorrect sRGB profile 在网上搜索解决方案为:将图片用QIMAGE读取再重新保存就 ...
为增强软件供应链安全，NIST 发布《开发者软件验证最低标准指南》
聚焦源代码安全,网罗国内外最新资讯! 编译:奇安信代码卫士专栏·供应链安全数字化时代,软件无处不在.软件如同社会中的"虚拟人",已经成为支撑社会正常运转的最基本元素之一,软件 ...
【开源小软件】Bing每日壁纸 V1.2.1
Bing每日壁纸发布V1.2版本,下载地址Release V1.2.1 该小软件可以自动获取Bing的精美图片设置为壁纸,并且支持随机切换历史壁纸,查看壁纸故事. 本次新增国际化支持,以及桌面widg ...
使用记录6_发布微信小游戏
转载自 https://blog.csdn.net/haibo19981/article/details/80435594 1.cocos creator发布微信小游戏官方说明文档地址如下 http ...
cocos-creator使用记录5_发布微信小游戏
1.cocos creator发布微信小游戏官方说明文档地址如下 http://docs.cocos.com/creator/manual/zh/publish/publish-wechatgame ...
JAVA版聊天室小软件
这是一篇关于JAVA的聊天室室小软件,用的swing的技术同时也用到了socket.今天发布出来,希望能帮到大家. 文章目录开发环境项目结构下载地址: 一.运行画面展示二.代码部分 1.客户端 ...
顾客信息表mysql_Qt5.5.0使用mysql编撰小软件源码讲解-顾客信息登记表_mysql
Qt5.5.0使用mysql编写小软件源码讲解---顾客信息登记表 Qt5.5.0使用mysql编写小软件源码讲解---顾客信息登记表一个个人觉得比较简单小巧的软件. 下面就如何编写如何发布打包来介 ...
推荐5款轻量级的小软件，界面简洁无广告
今天的主题是简洁,轻便,都是轻量级的小软件,界面都是非常简洁,而且无广告的. 1.数据透析表--PowerBI Power BI是微软出的一款商业分析工具,操作类似Excel,更像是数据透视表,搭配E ...
python翻译器怎么用_给宝宝用Python写个支持翻译PDF文档的小软件
上次用Python写好翻译doc文档小软件后就展示给宝宝,我:"宝宝,过来给你个小软件" 她:"干什么用哒?" 我:"给你翻译Word文档的" ...
精品实用小软件汇总（附下载地址）
在生活学习中发现许多非常实用的小软件,可以方便的解决我们遇到的一些问题,现分享于下: 1.FSCapture (重要的是可以滚动截图,整张网页都可以截取下来) FSCapture是一 ...

发布个小软件给大伙玩玩

发布个小软件给大伙玩玩相关推荐

最新文章

热门文章