摘要：
Option Explicit Private Sub Text2_Change() End Sub Private Sub Command1_Click() If Text1(0).Text = "" Then MsgBox ("请输入用户名") Text1(0).SetFocus Exit Su 阅读全文
文章分类 - VB
VB 连接mssql数据并读取数据
2020-08-17 11:51 by idea555, 507 阅读, 收藏, 编辑
摘要：
Dim Conn As New ADODB.ConnectionDim RS As New ADODB.RecordsetDim Sql As String Conn.ConnectionString = "Provider=SQLOLEDB;Password=123456;Persist Secu 阅读全文
VB通用数据库操作方法
2020-08-13 13:50 by idea555, 657 阅读, 收藏, 编辑
摘要：
1.VB通用数据操作方法。 2.通用数据库查询方法。 3.通用数据库操作方法。 'ERP查询数据库 Public Function YZQuery(sqls As String, msgstring As String) As ADODB.Recordset On Error GoTo Execut 阅读全文
vb treeview控件节点点击事件
2020-08-11 16:01 by idea555, 661 阅读, 收藏, 编辑
摘要：
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)Label1.Caption = Node.KeyLabel2.Caption = Node.Text......在数据库bai中查询相关信息展du示到相应的控zhi件中.. 阅读全文
VB TreeView使用
2020-08-11 15:54 by idea555, 341 阅读, 收藏, 编辑
摘要：
Dim N As Node '声明 Set N = TreeView1.Nodes.Add(, , "A", "学生信息") '设置主节点 Set N = TreeView1.Nodes.Add("A", tvwChild, "X1", "班级分布") '设置子节点 Set N = TreeView 阅读全文
关于toolbar,小弟我点击了toolbar某个按钮后，怎么让代码判断小弟我点击的是哪个按钮
2020-08-11 15:17 by idea555, 255 阅读, 收藏, 编辑
摘要：
鼠标右键点击Toolbar控件,选属性,对按钮页进行编辑,设置索引及关键字,然后用鼠标左键双击Toolbar控件,出现如下事件代码,在其间写代码:Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)End Sub下面 阅读全文
VB 捕获异常
2020-08-11 11:24 by idea555, 507 阅读, 收藏, 编辑
摘要：
Private sub Command1_Click()On Error Goto ErrHandleDim x as integerx = 0 / 0 '制造一个错误Exit Sub '一定要写,如果程序没有错，下面代码不会执行。ErrHandle:Msgbox "产生了一du个错误，错误代码：z 阅读全文
VB 定义日期型
2020-08-11 09:39 by idea555, 434 阅读, 收藏, 编辑
摘要：
Dim D As Date D = #4/20/2020# Print (D) 阅读全文
VB 字符串换行
2020-08-11 09:33 by idea555, 697 阅读, 收藏, 编辑
摘要：
str = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" _ & "ddddddddddddddddddd" 阅读全文
VB LISTBOX属性
2020-08-10 16:51 by idea555, 296 阅读, 收藏, 编辑
摘要：
additem 添加属性 listcount总记录数 listindex索引值 Private Sub Form_Load()List1.AddItem "广东省广州市"List1.AddItem "广东省河源市"List1.AddItem "广东省惠州市"List1.ListIndex = 0En 阅读全文
VB 模块的使用
2020-07-23 19:27 by idea555, 726 阅读, 收藏, 编辑
摘要：
在模块定义下面方法 Public Sub m()MsgBox "testaaa"End Sub在窗体直接使用： Call m() 阅读全文
VB 类模块使用
2020-07-23 19:25 by idea555, 381 阅读, 收藏, 编辑
摘要：
类模块代bai码duOption ExplicitPublic Function Add(ByVal a As Long, ByVal b As Long) As LongAdd = a + b '反回zhi值daoAdd=a+bEnd Function窗体代码Dim s As New Class1 阅读全文
vb DataGrid 显示数据库数据
2020-07-23 10:46 by idea555, 437 阅读, 收藏, 编辑
摘要：
Private Sub Command1_Click()On Error Resume Next Dim objConn As ADODB.Connection Dim objRs As ADODB.Recordset Set objConn = New ADODB.Connection Set o 阅读全文
VB6.0连接 SQLSERVER2008数据库
2020-07-23 10:28 by idea555, 642 阅读, 收藏, 编辑
摘要：
前段时间被硬拉去做VB程序开发，基本是零基础，数据库连接上找了很多网上的资料也看不明白，多亏了@WolfBolin的文章，讲了VB连接SQL SERVER数据库的方法，让我豁然开朗，这里要特别谢谢他！ 现在数据库顺利连接上了，程序也开发完成，现在将数据库连接的方法分享给大家，希望能帮助更多的人，方法 阅读全文
VB6 对象库未注册问题
2020-07-22 20:47 by idea555, 335 阅读, 收藏, 编辑
摘要：
以下是个人使用VB6出现对象库未注册问题的解决方法。已成功！ 一、注册ocx文件 mscomctl.ocx文件放进路径C:\Windows\System32（64是此路径，由于本人是64位系统32位未测试）CMD命令：cd C:\Windows\System32regsvr32 mscomctl.o 阅读全文
vb产生范围随机数
2020-07-22 18:33 by idea555, 1421 阅读, 收藏, 编辑
摘要：
要产生 [a,b] 区间范围内的随机整数，可以使用公式： int((b-a+1)*rnd+a) 。例 如：要产生 [10,100] 区间的随机整数，可以使用公式 int(91*rnd+10) 获得。 阅读全文
