vb.net 怎么建立类似office 记事本那样的查询功能?

wuyalang2009 2009-12-04 09:38:00
vb.net 怎么建立类似office 记事本那样的查询功能?

类似这样

点了后可以在当前的datagridview里查询 关键字,并选中关键字。若有多个 则可以提示让你选择
...全文
106 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
standhong 2009-12-04
  • 打赏
  • 举报
回复
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace TxT
{
public partial class chazhao : Form
{
public chazhao()
{
InitializeComponent();
}

public RichTextBox rtb;
int start = 0;//查找的起始位置
string str = "";//查找的内容
RichTextBoxFinds f;
private void button1_Click(object sender, EventArgs e)
{
str = this.textBox1.Text;
//查找
start = rtb.Find(str, start, f);
if (start == -1)
{
MessageBox.Show("对不起!查找不到与“" + str + "”相符的内容!", "(记事本 V1.0 Beta)查找提示", MessageBoxButtons.OK, MessageBoxIcon.Asterisk);
start = 0;
}
else
{
start = start + str.Length;//找到后从找到位置之后开始下一次
rtb.Focus(); //给予焦点
}
}
private void button1_Click(object sender,EventArgs e)
{
str = this.textBox1.Text;
start = rtb.Find(str, start, f);
if (start == -1)
{
MessageBox.Show("");
}
else
{
start = start + str.Length;
rtb.Focus();
}

}
private void checkBox1_CheckedChanged(object sender, EventArgs e)
{
if (this.checkBox1.Checked == false)
f = RichTextBoxFinds.None;
else
f = RichTextBoxFinds.MatchCase;
}

private void button2_Click(object sender, EventArgs e)
{
this.Close();
}

private void chazhao_Load(object sender, EventArgs e)
{

}
}
}
大家好,2009年9月份注册以来,在论坛上学到了许多东西,得得许多会员和版主及管理的帮助和关爱,真的很感谢大家,正是因为,正是因为大家都是无私且乐于助人,分享自己的宝贵的技术和心得,且使我对EXCEL充满着激情,在我的脑海里总是浮现: 1. 我是ExcelHome论坛的会员,我很荣幸 2. 工作空余时间我会情不自禁来到ExcelHome之家,看看家,学习一些别人的的心得与帮助一些新会员 3. 那里有太多太多的宝贝,有意外的收获和惊喜(众里寻“她”千百度;踏破铁鞋无觅处,在EH得来全不费功夫) 4. 遇到问题我会在论坛和百度找,再找不到我就会发贴提问。呵呵,这里一定会得到帮助的 正是因为这些,因为大家的无私,所以我也不能自私,呵呵,分享一下打造“自己2010选项卡”,2010选项卡的修改比2003版的菜单修改复杂了,希望能帮到一些对这方面感兴趣的朋友,由于水平够,里面有许多不足,欢迎大家指正 ,呵呵,我八婆了一大堆,进入主题 对于Excel2007和2010,你注意到的第一件事可能就是它新外观,沿用多年的菜单与工具栏的用户界面已被抛弃了,取而代之的是选项卡和功能区的新界面,现在我们一步步来制作一个自己的选项卡(首先申明,有些代码和方法来自ExcelHome论坛和网络,在这里谢谢这些提供代码的朋友 ,俗话说的好“前人载树,后人乘凉”,并非个人所写) 第一步:在桌面上创建一个名为customUI的文件夹 第二步:步骤2 打开记事本,在其中复制下面的XML代码:文件名为CustomUI.xml,编码为UTF-8 保存到桌面customUI文件夹中

16,721

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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