vb6.0富文本框find方法怎么dicom实现 c find

来源：蜘蛛抓取(WebSpider) 时间：2016-03-29 04:26 标签： find 文本
VB6.0中 ADODC 控件的FIND方法如何设置从首行开始查找。_百度知道
VB6.0中 ADODC 控件的FIND方法如何设置从首行开始查找。
Adodc员信息表.RefreshAdodc员信息表.Recordset.Find (&VIP卡号='& & TextVIP卡号.Text & &'&)首行查找我想用 .Refresh 功能何让find首行查找我输入新VIP员号.Refresh 我前窗体内各控件首行信息
提问者采纳
Adodc1.RecordSource = &select * from 数据表 Where VIP卡号='& & TextVIP卡号.Text & &'& Adodc1.Refresh查找VIP卡号=TextVIP卡号.Text特定记录定第记录
我知道是 “特定记录” 但是我想从首行开始查找。。因为如果我查询过另一 字符之后，再查找的时候，就从上次查找到的位置开始往后查找了。我想，每次查找都从第一行开始查找。还有，当我使用完“Adodc1.Refresh” 后如何关闭或者说断开与这个表的连接？
提问者评价
其他类似问题
为您推荐：
vb6的相关知识
其他1条回答
Recordset.MoveFrist
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁您所在的位置： &
两种方法实现VB.NET文本框
两种方法实现VB.NET文本框
这里介绍VB.NET文本框，VB.NET文本框没有直接提供取当前行号的功能，但我们可以有如下两种种方法实现：用windows API函数，这也是VB的方法和累加计算。
学习时，你可能会遇到VB.NET文本框问题，这里将介绍VB.NET文本框问题的解决方法，在这里拿出来和大家分享一下。VB.NET文本框没有直接提供取当前行号的功能，但我们可以有如下几种方法实现：
一．用windows API函数，这也是VB的方法
先声明如下API函数，注意参数类型是用Integer,因为VB.NET的Integer是32位的：
Private Declare Function SendMessageinteger Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer& Const EM_LINEFROMCHAR = &HC9& '计算文本框的当前行号Friend Function LineNo(ByVal txthwnd As Integer) As Integer& '计算文本框的当前行号'参数txthwnd是文本框的句柄(handle)& Try& Return Format$( SendMessageinteger(txthwnd, EM_LINEFROMCHAR, -1&, 0&) + 1, "##,###")& Catch ex As Exception& End Try& End Function
二．累加计算
通过计算累加每行字符总数是否大于插入点前总字符数，来确定当前行数。'不使用API函数 &Friend&Function&LineNo(ByVal&sender&As&Object)&As&Integer &'计算文本框的当前行号 &Try &Dim&txtbox&As&TextBox &Dim&charCount&As&Integer &Dim&i&As&Integer &txtbox&=&CType(sender,&TextBox) &For&i&=&0&To&txtbox.Lines.GetUpperBound(0)&'计算行数 &charCount&+=&txtbox.Lines(i).Length&+&2&'一个回车符长度2 &If&txtbox.SelectionStart&&&Then &Return&i&+&1 &End&If &Next &Catch&ex&As&Exception &End&Try &End&Function&
【责任编辑： TEL：（010）】
关于的更多文章
VB.NET（Visual Basic.NET）是基于微软公司推出的新一代编程语言
所以姑娘，让我们做一枚花见花开的程序媛。
讲师： 10人学习过讲师： 37人学习过讲师： 15人学习过
一周一周的过的很快，2013年已经进入了倒计时。开发频
在脚本语言领域，Lua是最快、最高效的脚本语言之一，
2014年节假放假安于这周出台，80%的公民对此次的放假
本书以一个模拟局域网组建为思路，介绍了与局域网组建各主要方面相关的知识及组建、配置方法。本书所介绍的内容主要包括：局域网
51CTO旗下网站VB编程、代码、技术问题解决方案
VB6.0如何将文本框中的字符串转换成数字
方案整理者：liuhai519 &&&&&& 发布时间：
&&&假如文本框text1.text=&12.34&
　&&&如何将12.34转换成整数1234呢？
&&&假如文本框text1.text=&.4&
　&&&如何将.4转换成整数4送给整型变量呢？
(3).如果一个整数＝1299，小数点在十位，如何将其转换成
　　如下形式的字符串，然后送给文本框显示呢？
　　　　&129.9&
别笑我，我很菜！
推荐解决方案
(1)&Text1.text=Replace(text1.text,&.&,&&)
&&&dim&aa&as&integer
&&&Text1.text=Replace(text1.text,&.&,&&)
&&&aa=&val(text1.text)&
&&&Dim&aa&As&Single
&&&aa&=&Format(Val(Text1.Text)&/&10,&&0.0&)
&&&MsgBox&aa
其他解决方案
我对VB不太熟悉，太感谢了。
终于在本网站知道怎么结帐了。呵呵

我要回帖

更多关于 find 文本 的文章

 

随机推荐