VB6 with New Style下载

weixin_39821260 2019-10-22 03:00:15

VB6 with New Style
VB6 with New Style
VB6 with New Style
VB6 with New Style
相关下载链接：//download.csdn.net/download/codingfunny/1614215?utm_source=bbsseo

...全文

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

写回复

回复

切换为时间正序

请发表友善的回复…

发表回复

VB6 with New Style VB6 with New Style VB6 with New Style VB6 with New Style

VB6 调用Autodesk的Dwgtrueview控件打开dwg图纸。直接使用控件会崩溃，必须用代码的方式进行调用·

VERSION 5.00 Begin VB.Form FrmBackUp BackColor = &H00E7DFE7& BorderStyle = 1 'Fixed Single Caption = "备份数据库" ClientHeight = 1695 ClientLeft = 45 ClientTop = 330 ClientWidth = 4680 Icon = "FrmBackUp.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False MDIChild = -1 'True MinButton = 0 'False ScaleHeight = 1695 ScaleWidth = 4680 Begin VB.CommandButton cmdExit Caption = "退出" Height = 495 Left = 2640 TabIndex = 3 Top = 840 Width = 1455 End Begin VB.CommandButton cmdBackUp Caption = "备份" Height = 495 Left = 600 TabIndex = 2 Top = 840 Width = 1455 End Begin VB.Label lbTime AutoSize = -1 'True BackStyle = 0 'Transparent Height = 180 Left = 240 TabIndex = 1 Top = 720 Visible = 0 'False Width = 90 End Begin VB.Label Label1 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "单击“备份”按钮，开始备份数据库。" Height = 180 Left = 240 TabIndex = 0 Top = 240 Width = 3060 End End Attribute VB_Name = "FrmBackUp" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False 'Dim fso As New FileSystemObject, fldr As Folder Dim cn As ADODB.Connection Dim success As Long Private Sub cmdBackUp_Click() Dim backFile As String Dim NowTime As String Dim sql As String Dim buff As String If fso.FolderExists(App.Path & "\BackUp") = False Then Set fldr = fso.CreateFolder(App

mapx电子地图开发的常见问题，。。。。。。。。。。。。。。

MapX 应用讲义，真是好东西

下载资源悬赏专区

13,656

社区成员

12,675,600

社区内容

发帖

与我相关

我的任务

其他技术论坛（原bbs）

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章