VB 开发简单日历能正确运行源码下载

weixin_39822095 2019-05-10 06:00:17

VB开发的简单日历能够正确运行开放源码
相关下载链接：//download.csdn.net/download/tmgt373/2157715?utm_source=bbsseo

...全文

45 回复打赏收藏转发到动态举报

写回复

回复

切换为时间正序

请发表友善的回复…

发表回复

VB开发的简单日历能够正确运行开放源码

VB 日历控件（选择日期挺不错），挺精简的一款VB日历，很容易就能嵌入到你的程序中，源码免费放出了，希望大家喜欢哦。

VB XP风格样式的日历控件源码

日历程序ＶＢ源码日历程序ＶＢ源码

Public rs As ADODB.Recordset ''''''''''集合集 Public conn As New ADODB.Connection '整个数据库连接对象 Public user As String '保存人运行的用户 Public pass As String '保存运行人的密码 Public cando As String '''''保存运行人的权限 Public Declare 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 Public Function GetFileNameFromPath(ByVal strFullPath As String, Optional ByVal strSplitor As String = "\") As String GetFileNameFromPath = Right$(strFullPath, Len(strFullPath) - InStrRev(strFullPath, strSplitor, , vbTextCompare)) End Function Public Function getData(str As String) '''''''''''''''''''''数据读取操作 Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient '''就是全部返回结果，在一些结果比较多的情况下很有用，其中可以选的值可以是 ' On Error Resume Next rs.Open str, conn, adOpenKeyset, adLockOptimistic '''''''如果 On Error Resume Next rs.MoveFirst End Function

下载资源悬赏专区

13,656

社区成员

12,675,616

社区内容

发帖

与我相关

我的任务

其他技术论坛（原bbs）

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章