vb基础
Hustudent20080101
MFC Qt 瑞萨 ARM Linux
展开
-
Open "SetupInfo.txt" For Input As #1
Private Sub Form_Load()Dim Lstr As String'Dim b As ByteOpen "SetupInfo.txt" For Input As #1Do While Not EOF(1)Line Input #1, Lstr'Text4.Text = Text4.tex & Lstr & vbCrLf'b = Lstr(0) 'Print bIf原创 2012-03-12 13:31:38 · 1175 阅读 · 0 评论 -
Sub ShowSth(Optional msg As String = "Hi")
class3.clsPublic Sub ShowSth(Optional msg As String = "Hi")If msg MsgBox msgEnd IfEnd SubPrivate Sub btnOptional_Click()Dim obj As New Class3'obj.ShowSth "Hello"'obj.ShowSth转载 2016-11-02 13:33:03 · 475 阅读 · 0 评论 -
VB ADODB中的RecordSet.Open打开记录的两个参数adOpenKeyset、adLockBatchOptimistic的详细说明
VB ADODB中的RecordSet.Open打开记录的两个参数adOpenKeyset、adLockBatchOptimistic的详细说明 VB ADODB中的RecordSet.Open打开记录的两个参数adOpenKeyset、adLockBatchOptimistic的详细说明:这两个参数当时弄明白,过后又忘记了,做了笔记,但为了方便,还是在Blog中也转载 2016-10-31 11:31:14 · 603 阅读 · 0 评论 -
ADODB.Recordset.Open 中参数的用法
ADODB.Recordset.Open 中参数的用法标签: 存储sql2008-09-29 14:55 8503人阅读 评论(0)收藏举报本文章已收录于:版权声明:本文为博主原创文章,未经博主允许不得转载。Recordset对象的Open方法原型:Open([Source],[ActiveConnection],[C转载 2016-10-31 09:59:44 · 506 阅读 · 0 评论 -
VB6是否支持方法重载
VB6是否支持方法重载?泥裳雨衣| 浏览 890 次2010-09-26 14:58 |举报描述不清违规检举侵权投诉我有更好的答案可选中1个或多个下面的关键词,搜索相关资料。也可直接点“搜索资料”搜索整个问题。vb6 重载 搜索资料 2010-09-26 20:56# 厉害了,word芝麻!优质回答超级赛火热开赛~#转载 2016-10-31 09:52:00 · 673 阅读 · 0 评论 -
VB使用ADODB操作数据库的常用方法
VB使用ADODB操作数据库的常用方法ADO常用方法下面是我所掌握的使用ADO对数据库操作的一些常用方法,主要是提供给初学者作为参考,有不对的地方请指正。如有补充不胜荣幸准备工作========Dim conn As New ADODB.Connection '创建一个 Connection 实例,在这里使用New等于将Dim和Set合并转载 2016-10-31 09:50:05 · 531 阅读 · 0 评论 -
VB6.0如何判断ADODB.Connection是否关闭
VB6.0如何判断ADODB.Connection是否关闭在VB6.0中如何判断ADODB.Connection是否关闭。希望实现的功能是:判断Connection是否关闭,如果已经关闭不执行任何操作,如果未关闭则关闭Connection yiyifenghehb| 浏览 175 次2015-11-03 14:02 |举报描述不清违规检举侵权投诉我有更好的答转载 2016-10-30 19:53:34 · 1520 阅读 · 0 评论 -
如何知道ADODB.COMMAND的execute是否成功
CMD.CommandText = "insert table1 values(……)" CMD.ActiveConnection = Conn CMD.Execute If Conn.Errors.Count>0 Then MsgBox "有错误!" End If转载 2016-11-03 19:29:53 · 1630 阅读 · 0 评论 -
Public Function MyReplace(rng As Range
Public Function MyReplace(rng As Range, strFrom As String, strTo As String) As String'Merge = ThisWorkbook.NameDim Str As StringStr = ""Dim n As RangeFor Each n In rng If n.Value转载 2016-06-01 18:54:55 · 629 阅读 · 0 评论 -
如何给vb的UserControl添加属性、方法和事件?
一、属性的派生Public Property Let 属性名(ByVal NewValue As 类型名) PropertyChanged "属性名"End PropertyPublic Property Get 属性名() As 类型名End Property如果是只读的属性,缺省Let过程即可。二、方法的派生Public Sub 方法名(参数表)End SubPubl转载 2012-12-09 21:09:19 · 3366 阅读 · 1 评论 -
VB:主窗口关闭,进程不一定关闭
Delphi:主窗口关闭,进程关闭;VB:主窗口关闭,进程不一定关闭,如果还有其他窗口打开了没有关闭的话,比如说只是隐藏了,进程就不会关闭;原创 2012-07-12 08:49:51 · 1161 阅读 · 0 评论 -
vb commondialog 如何设置初始化路径啊?
属性FileName中包含有上次选择的文件名(路径+文件名),用如下代码可实现:dim s as strings=commondialog1.filenames=left(s,instrrev(s,"\")-1)commondialog1.InitDir=s在VB中,对话框(如保存对话框)在下次打开时总是默认为上次保存时的路径,尽管可以在对话框打开前设置initPath ,对话框打开转载 2012-05-22 10:52:10 · 3686 阅读 · 0 评论 -
DisableScreenSave
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Long, ByVal fuWinIni As Long) As LongConst转载 2012-05-01 22:45:48 · 702 阅读 · 0 评论 -
VB字符串函数大全(经典收藏)
VB字符串函数大全(经典收藏)函数(functions)Abs(number)返回绝对值。Array(arglist)创建一个数组。Asc(string)返回字符串第一个字符的ANSI码。Atn(number)返回反正弦值。CBool (expression) 转换成Boolean数据类型变量。转载 2012-03-12 14:00:07 · 1406 阅读 · 0 评论 -
vb的datagrid控件的使用(一)
vb的datagrid控件的使用(一)时间:2007-05-05使用 DataGrid 控件DataGrid 控件是一种类似于电子数据表的绑定控件,可以显示一系列行和列来表示 Recordset 对象的记录和字段。可以使用 DataGrid 来创建一个允许最终用户阅读和写入到绝大多数数据库的应用程序。DataGrid 控件可以在设计时快速进行配置,只需少量代码或无需代码转载 2016-12-29 10:42:31 · 12685 阅读 · 0 评论