VB6.0中文企业版: http://wt4.jb51.net:81/201205/tools/vb60_jb51.rar 解压后安装，激活码为111-1111(记得是这个) VB6.1底层版(强力推荐，VBGood出品，必属精品!) 链接: http://pan.baidu.com/s/1sjmn1LF 密码: 8xcg VB6.0精简版(对各种系统适应力强,功能少) http://c1.cr173.com/soft3/vb6.0.zip 如果有任何安装问题，请至疑问贴，传送门 http://tieba.baidu.com/p/4078931982

比如执行某段代码后延迟多少毫秒执行下一段-_-#不会连这个功能都没有吧

若用的是MSFlexGrid，通过下面代码可以正常显示 strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;" & _ "Data Source= 地址\表格.mdb" rs.ConnectionString = strCn rs.Open With JZ .CursorLocation = adUseClient .CursorType = adOpenStatic .Open "A", rs, adOpenStatic, adLockBatchOptimistic End With If JZ.BOF = True Then Else JZ.MoveFirst Do While Not JZ.EOF If JZ!工程师 = Text_姓名.Text Then MSFlexGrid校准.AddItem (JZ!夹具编号 & vbTab & JZ!夹具名称 & vbTab & JZ!工程师) End If JZ.MoveNext Loop End If 若是用的DataGrid及Ad

Private Sub Command1_Click() '开始加1 Timer1.Interval = 1 ' Timer1.Enabled = True End Sub Private Sub Command2_Click() '停止加1 Timer1.Enabled = False End Sub Private Sub Text2_Change() If Val(Text2.Text) = n Then End If End Sub Private Sub Text3_Change() If Val(Text3.Text) = n Then End If End Sub Private Sub Text4_Change() If Val(Text4.Text) = n Then End If End Sub Private Sub Text5_Change() If Val(Text5.Text) = n Then End If End Sub Private Sub Timer1_Timer() '自动加1 If Val(Text5) < 255 Then Text5 = Val(Text5) + 1 ElseIf Val(Text4) < 255 Then Text4 = Val(Text4) + 1 ElseIf Val

@椰树问问

如何用用VB设计一个不连接数据库的系统登录界面。 设计要求：1、已有提示账号密码，根据此登录，登录成功弹出欢迎界面，登录失败弹出重新登录。 2、退出界面时需要输入密码方能退出，密码成功整个登录界面退出，密码错误一直停留在此。 3、提供3次登录机会，登录失败，强制退出。 4、使用msgbox、inputbox、if等语句，登录和退出两个空间，一条写有登录账号密码和退出的账号密码的标签。 如图所示，各位VB的高手，小弟诚恳的向大家求教了，拜

文本框只能输入键盘上0~9数字输入其他键无效，求段代码。

“hi.baidu.气死了com/...d.老是删我贴子html”把中文全部删了，就可以下载了。

有哪位高手能帮我解决一下怎样才能在AUTO CAD二次开发VBA中读取带密码的Access数据库，谢谢各位了。