vb.net建立哈希表,哈希表建立过程

VB.NET 中 HASHTABLE 的疑问

我们知道Hashtable 是线程安全的，可由多个读取器线程或一个写入线程使用。

它的特点是:通过节点的关键码确定节点的存储位置,即给定节点的关键码k,通过一定的函数关系H(散列函数),得到函数值H(k),将此值解释为该节点的存储地址.

HashMap 与Hashtable很相似,但HashMap 是非同步(unsynchronizded)和可以以null为关键码的.

我们知道在使用内存中的地址时是按照哪里有空闲的就使用哪里的。怎么可能一直由着我们输入的顺序给你开放地址呢？

相关问答

Q1: 用VB.NET如何实现添加到收藏夹

一般要用到这个类:System.Windows.Forms.WebBrowser

使用 WebBrowser 控件可以在 Windows 窗体应用程序中承载网页以及支持浏览器的其他文档。例如，可以使用 WebBrowser 控件在应用程序中提供基于 HTML 的集成用户帮助或 Web 浏览功能。此外，还可以使用 WebBrowser 控件向 Windows 窗体客户端应用程序添加基于 Web 的现有控件。

使用户可以在窗体中导航网页。

下表列出了由 WebBrowser 类型公开的成员。

公共构造函数

名称 说明

WebBrowser 初始化 WebBrowser 类的新实例。

页首

公共属性 （请参见 受保护的属性 ）

名称 说明

AccessibilityObject 获取分配给该控件的 AccessibleObject。（从 Control 继承。）

AccessibleDefaultActionDescription 获取或设置控件的默认操作说明，供辅助功能客户端应用程序使用。（从 Control 继承。）

AccessibleDescription 获取或设置辅助功能客户端应用程序使用的控件说明。（从 Control 继承。）

AccessibleName 获取或设置辅助功能客户端应用程序所使用的控件名称。（从 Control 继承。）

AccessibleRole 获取或设置控件的辅助性角色 （从 Control 继承。）

ActiveXInstance 获取基础 ActiveX WebBrowser 控件。（从 WebBrowserBase 继承。）

AllowDrop 此控件不支持此属性。（从 WebBrowserBase 继承。）

AllowNavigation 获取或设置一个值，该值指示控件在加载其初始页之后是否可以导航到其他页。

AllowWebBrowserDrop 获取或设置一个值，该值指示 WebBrowser 控件是否导航到拖放到它上面的文档。

Anchor 获取或设置控件绑定到的容器的边缘并确定控件如何随其父级一起调整大小。 （从 Control 继承。）

AutoScrollOffset 获取或设置一个值，该值指示在 ScrollControlIntoView 中将控件滚动到何处。（从 Control 继承。）

AutoSize 此属性与此类无关。（从 Control 继承。）

BackColor 此属性对于此控件无意义。（从 WebBrowserBase 继承。）

BackgroundImage 此控件不支持此属性。（从 WebBrowserBase 继承。）

BackgroundImageLayout 此控件不支持此属性。（从 WebBrowserBase 继承。）

BindingContext 获取或设置控件的 BindingContext。（从 Control 继承。）

Bottom 获取控件下边缘与其容器的工作区上边缘之间的距离（以像素为单位）。（从 Control 继承。）

Bounds 获取或设置控件（包括其非工作区元素）相对于其父控件的大小和位置（以像素为单位）。（从 Control 继承。）

CanFocus 获取一个值，该值指示控件是否可以接收焦点。（从 Control 继承。）

CanGoBack 获取一个值，该值指示导航历史记录中的上一页是否可用，如果可用，GoBack 方法才能成功。

CanGoForward 获取一个值，该值指示导航历史记录中的下一页是否可用，如果可用，GoForward 方法才能成功。

CanSelect 获取一个值，该值指示是否可以选中控件。（从 Control 继承。）

Capture 获取或设置一个值，该值指示控件是否已捕获鼠标。（从 Control 继承。）

CausesValidation 获取或设置一个值，该值指示控件是否会引起在任何需要在接收焦点时执行验证的控件上执行验证。（从 Control 继承。）

CheckForIllegalCrossThreadCalls 获取或设置一个值，该值指示是否捕获对错误线程的调用，这些调用访问控件的 Handle 属性。（从 Control 继承。）

ClientRectangle 获取表示控件的工作区的矩形。（从 Control 继承。）

ClientSize 获取或设置控件的工作区的高度和宽度。（从 Control 继承。）

CompanyName 获取包含控件的应用程序的公司名称或创建者。（从 Control 继承。）

Container 获取 IContainer，它包含 Component。（从 Component 继承。）

ContainsFocus 获取一个值，该值指示控件或它的一个子控件当前是否有输入焦点。（从 Control 继承。）

ContextMenu 获取或设置与控件关联的快捷菜单。（从 Control 继承。）

ContextMenuStrip 获取或设置与此控件关联的 ContextMenuStrip。（从 Control 继承。）

Controls 获取包含在控件内的控件的集合。（从 Control 继承。）

Created 获取一个值，该值指示控件是否已经创建。（从 Control 继承。）

Cursor 此控件不支持此属性。（从 WebBrowserBase 继承。）

DataBindings 为该控件获取数据绑定。（从 Control 继承。）

DefaultBackColor 获取控件的默认背景色。（从 Control 继承。）

DefaultFont 获取控件的默认字体。（从 Control 继承。）

DefaultForeColor 获取控件的默认前景色。（从 Control 继承。）

DisplayRectangle 获取表示控件的显示区域的矩形。（从 Control 继承。）

Disposing 获取一个值，该值指示 Control 基类是否在释放进程中。（从 Control 继承。）

Dock 获取或设置哪些控件边框停靠到其父控件并确定控件如何随其父级一起调整大小。（从 Control 继承。）

Document 获取一个 HtmlDocument，它表示当前显示在 WebBrowser 控件中的网页。

DocumentStream 获取或设置一个流，该流包含显示在 WebBrowser 控件中的网页的内容。

DocumentText 获取或设置显示在 WebBrowser 控件中的页的 HTML 内容。

DocumentTitle 获取当前显示在 WebBrowser 控件中的文档的标题。

DocumentType 获取当前显示在 WebBrowser 控件中的文档的类型。

Enabled 此控件不支持此属性。（从 WebBrowserBase 继承。）

EncryptionLevel 获取一个值，该值指示当前显示在 WebBrowser 控件中的文档所使用的加密方法。

Focused 已重写。获取一个值，该值指示控件或其任一子窗口是否具有输入焦点。

Font 此属性对于此控件无意义。（从 WebBrowserBase 继承。）

ForeColor 此属性对于此控件无意义。（从 WebBrowserBase 继承。）

Handle 获取控件绑定到的窗口句柄。（从 Control 继承。）

HasChildren 获取一个值，该值指示控件是否包含一个或多个子控件。（从 Control 继承。）

Height 获取或设置控件的高度。（从 Control 继承。）

ImeMode 此属性对于此控件无意义。（从 WebBrowserBase 继承。）

InvokeRequired 获取一个值，该值指示调用方在对控件进行方法调用时是否必须调用 Invoke 方法，因为调用方位于创建控件所在的线程以外的线程中。（从 Control 继承。）

IsAccessible 获取或设置一个值，该值指示控件对辅助功能应用程序是否可见。（从 Control 继承。）

IsBusy 获取一个值，该值指示 WebBrowser 控件当前是否正在加载新文档。

IsDisposed 获取一个值，该值指示控件是否已经被释放。（从 Control 继承。）

IsHandleCreated 获取一个值，该值指示控件是否有与它关联的句柄。（从 Control 继承。）

IsMirrored 获取一个值，该值指示此控件是否为镜像控件。（从 Control 继承。）

IsOffline 获取或设置一个值，该值指示 WebBrowser 控件是否处于脱机模式。

IsWebBrowserContextMenuEnabled 获取或设置一个值，该值指示 WebBrowser 控件是否启用了快捷菜单。

LayoutEngine 获取控件的布局引擎的缓存实例。（从 Control 继承。）

Left 获取或设置控件左边缘与其容器的工作区左边缘之间的距离（以像素为单位）。（从 Control 继承。）

Location 获取或设置该控件的左上角相对于其容器的左上角的坐标。（从 Control 继承。）

Margin 获取或设置控件之间的空间。（从 Control 继承。）

MaximumSize 获取或设置大小，该大小是 GetPreferredSize 可以指定的上限。（从 Control 继承。）

MinimumSize 获取或设置大小，该大小是 GetPreferredSize 可以指定的下限。（从 Control 继承。）

ModifierKeys 获取一个值，该值指示哪一个修改键（Shift、Ctrl 和 Alt）处于按下的状态。（从 Control 继承。）

MouseButtons 获取一个值，该值指示哪一个鼠标按钮处于按下的状态。（从 Control 继承。）

MousePosition 获取鼠标光标的位置（以屏幕坐标表示）。（从 Control 继承。）

Name 获取或设置控件的名称。（从 Control 继承。）

ObjectForScripting 获取或设置一个对象，该对象可由显示在 WebBrowser 控件中的网页所包含的脚本代码访问。

Padding 此属性对于此控件无意义。

Parent 获取或设置控件的父容器。（从 Control 继承。）

PreferredSize 获取可以容纳控件的矩形区域的大小。（从 Control 继承。）

ProductName 获取包含控件的程序集的产品名称。（从 Control 继承。）

ProductVersion 获取包含控件的程序集的版本。（从 Control 继承。）

ReadyState 获取一个值，该值指示 WebBrowser 控件的当前状态。

RecreatingHandle 获取一个值，该值指示控件当前是否在重新创建其句柄。（从 Control 继承。）

Region 获取或设置与控件关联的窗口区域。（从 Control 继承。）

Right 获取控件右边缘与其容器的工作区左边缘之间的距离（以像素为单位）。（从 Control 继承。）

RightToLeft 此控件不支持此属性。（从 WebBrowserBase 继承。）

ScriptErrorsSuppressed 获取或设置一个值，该值指示出现脚本错误时，WebBrowser 控件是否显示错误对话框。

ScrollBarsEnabled 获取或设置一个值，该值指示是否在 WebBrowser 控件中显示滚动条。

Site （从 WebBrowserBase 继承。）

Size 获取或设置控件的高度和宽度。（从 Control 继承。）

StatusText 获取 WebBrowser 控件的状态文本。

TabIndex 获取或设置在控件的容器的控件的 Tab 键顺序。（从 Control 继承。）

TabStop 获取或设置一个值，该值指示用户能否使用 Tab 键将焦点放到该控件上。（从 Control 继承。）

Tag 获取或设置包含有关控件的数据的对象。（从 Control 继承。）

Text 此控件不支持此属性。（从 WebBrowserBase 继承。）

Top 获取或设置控件上边缘与其容器的工作区上边缘之间的距离（以像素为单位）。（从 Control 继承。）

TopLevelControl 获取没有另一个 Windows 窗体控件作为其父级的父控件。通常，这是控件所在的最外面的 Form。（从 Control 继承。）

Url 获取或设置当前文档的 URL。

UseWaitCursor 此控件不支持此属性。（从 WebBrowserBase 继承。）

Version 获取所安装的 Internet Explorer 的版本。

Visible 获取或设置一个值，该值指示是否显示该控件。（从 Control 继承。）

WebBrowserShortcutsEnabled 获取或设置一个值，该值指示 WebBrowser 控件中是否启用了键盘快捷键。

Width 获取或设置控件的宽度。（从 Control 继承。）

WindowTarget （从 Control 继承。）

页首

受保护的属性

名称 说明

CanRaiseEvents 确定是否可以在控件上引发事件。（从 Control 继承。）

CreateParams 获取创建控件句柄时所需要的创建参数。（从 Control 继承。）

DefaultCursor 获取或设置控件的默认光标。（从 Control 继承。）

DefaultImeMode 获取控件支持的输入法编辑器 (IME) 模式。（从 Control 继承。）

DefaultMargin 获取控件之间默认指定的间距（以像素为单位）。（从 Control 继承。）

DefaultMaximumSize 获取以像素为单位的长度和高度，此长度和高度被指定为控件的默认最大大小。（从 Control 继承。）

DefaultMinimumSize 获取以像素为单位的长度和高度，此长度和高度被指定为控件的默认最小大小。（从 Control 继承。）

DefaultPadding 获取控件内容的内部间距（以像素为单位）。（从 Control 继承。）

DefaultSize 已重写。

DesignMode 获取一个值，用以指示 Component 当前是否处于设计模式。（从 Component 继承。）

DoubleBuffered 获取或设置一个值，该值指示此控件是否应使用辅助缓冲区重绘其图面，以减少或避免闪烁。（从 Control 继承。）

Events 获取附加到此 Component 的事件处理程序的列表。（从 Component 继承。）

FontHeight 获取或设置控件的字体的高度。（从 Control 继承。）

RenderRightToLeft （从 Control 继承。）

ResizeRedraw 获取或设置一个值，该值指示控件在调整大小时是否重绘自己。（从 Control 继承。）

ScaleChildren 获取一个值，该值确定子控件的缩放。 （从 Control 继承。）

ShowFocusCues 获取一个值，该值指示控件是否应显示聚焦框。（从 Control 继承。）

ShowKeyboardCues 获取一个值，该值指示用户界面是否处于适当的状态以显示或隐藏键盘快捷键。（从 Control 继承。）

页首

公共方法 （请参见 受保护的方法 ）

名称 说明

BeginInvoke 已重载。 在创建控件的基础句柄所在线程上异步执行委托。 （从 Control 继承。）

BringToFront 将控件带到 Z 顺序的前面。 （从 Control 继承。）

Contains 检索一个值，该值指示指定控件是否为一个控件的子控件。 （从 Control 继承。）

CreateControl 强制创建控件，包括创建句柄和任何子控件。 （从 Control 继承。）

CreateGraphics 为控件创建 Graphics。 （从 Control 继承。）

CreateObjRef 创建一个对象，该对象包含生成用于与远程对象进行通信的代理所需的全部相关信息。 （从 MarshalByRefObject 继承。）

Dispose 已重载。 释放由控件使用的所有资源。

DoDragDrop 开始拖放操作。 （从 Control 继承。）

DrawToBitmap 此控件不支持此方法。 （从 WebBrowserBase 继承。）

EndInvoke 检索由传递的 IAsyncResult 表示的异步操作的返回值。 （从 Control 继承。）

Equals 已重载。 确定两个 Object 实例是否相等。 （从 Object 继承。）

FindForm 检索控件所在的窗体。 （从 Control 继承。）

Focus 为控件设置输入焦点。 （从 Control 继承。）

FromChildHandle 检索包含指定句柄的控件。 （从 Control 继承。）

FromHandle 返回当前与指定句柄关联的控件。 （从 Control 继承。）

GetChildAtPoint 已重载。 检索指定位置的子控件。 （从 Control 继承。）

GetContainerControl 沿着控件的父控件链向上，返回下一个 ContainerControl。 （从 Control 继承。）

GetHashCode 用作特定类型的哈希函数。GetHashCode 适合在哈希算法和数据结构（如哈希表）中使用。 （从 Object 继承。）

GetLifetimeService 检索控制此实例的生存期策略的当前生存期服务对象。 （从 MarshalByRefObject 继承。）

GetNextControl 按照子控件的 Tab 键顺序向前或向后检索下一个控件。 （从 Control 继承。）

GetPreferredSize 检索可以容纳控件的矩形区域的大小。 （从 Control 继承。）

GetType 获取当前实例的 Type。 （从 Object 继承。）

GoBack 如果导航历史记录中的上一页可用，则将 WebBrowser 控件导航到该页。

GoForward 如果导航历史记录中的下一页可用，则将 WebBrowser 控件导航到该页。

GoHome 将 WebBrowser 控件导航到当前用户的主页。

GoSearch 将 WebBrowser 控件导航到当前用户的默认搜索页。

Hide 对用户隐藏控件。 （从 Control 继承。）

InitializeLifetimeService 获取控制此实例的生存期策略的生存期服务对象。 （从 MarshalByRefObject 继承。）

Invalidate 已重载。 使控件的特定区域无效并向控件发送绘制消息。 （从 Control 继承。）

Invoke 已重载。 在拥有此控件的基础窗口句柄的线程上执行委托。 （从 Control 继承。）

IsKeyLocked 确定 Caps Lock、Num Lock 或 Scroll Lock 键是否有效。 （从 Control 继承。）

IsMnemonic 搜索指定的字符串，以确定指定字符是否是分配给此控件的助记键字符。 （从 Control 继承。）

Navigate 已重载。 将指定位置的文档加载到 WebBrowser 控件中。

PerformLayout 已重载。 强制控件将布局逻辑应用于子控件。 （从 Control 继承。）

PointToClient 将指定屏幕点的位置计算成工作区坐标。 （从 Control 继承。）

PointToScreen 将指定工作区点的位置计算成屏幕坐标。 （从 Control 继承。）

PreProcessControlMessage 在调度键盘或输入消息之前，在消息循环内对它们进行预处理。 （从 Control 继承。）

PreProcessMessage （从 WebBrowserBase 继承。）

Print 使用当前打印和页面设置打印当前显示在 WebBrowser 控件中的文档。

RectangleToClient 计算指定屏幕矩形的大小和位置（以工作区坐标表示）。 （从 Control 继承。）

RectangleToScreen 计算指定工作区矩形的大小和位置（以屏幕坐标表示）。 （从 Control 继承。）

ReferenceEquals 确定指定的 Object 实例是否是相同的实例。 （从 Object 继承。）

Refresh 已重载。 已重写。 重新加载当前显示在 WebBrowser 控件中的文档。

ResetBackColor （从 Control 继承。）

ResetBindings （从 Control 继承。）

ResetCursor （从 Control 继承。）

ResetFont （从 Control 继承。）

ResetForeColor （从 Control 继承。）

ResetImeMode （从 Control 继承。）

ResetRightToLeft （从 Control 继承。）

ResetText 将 Text 属性重置为其默认值。 （从 Control 继承。）

ResumeLayout 已重载。 恢复正常的布局逻辑。 （从 Control 继承。）

Scale 已重载。 缩放控件和任何子控件。 （从 Control 继承。）

Select 已重载。 激活控件。 （从 Control 继承。）

SelectNextControl 激活下一个控件。 （从 Control 继承。）

SendToBack 将控件发送到 Z 顺序的后面。 （从 Control 继承。）

SetBounds 已重载。 设置控件的边界。 （从 Control 继承。）

Show 向用户显示控件。 （从 Control 继承。）

ShowPageSetupDialog 打开 Internet Explorer“页面设置”对话框。

ShowPrintDialog 打开 Internet Explorer 的“打印”对话框，但不设置页眉或页脚值。

ShowPrintPreviewDialog 打开 Internet Explorer 的“打印预览”对话框。

ShowPropertiesDialog 打开当前文档的 Internet Explorer“属性”对话框。

ShowSaveAsDialog 打开 Internet Explorer 的“保存网页”对话框，如果承载的文档不是 HTML 页，则打开其“保存”对话框。

Stop 取消所有挂起的导航并停止所有动态页元素（如背景声音和动画）。

SuspendLayout 临时挂起控件的布局逻辑。 （从 Control 继承。）

ToString 返回包含 Component 的名称的 String（如果有）。不应重写此方法。 （从 Component 继承。）

Update 使控件重绘其工作区内的无效区域。 （从 Control 继承。）

页首

受保护的方法

名称 说明

AccessibilityNotifyClients 已重载。 向具有辅助功能的客户端应用程序通知 AccessibleEvents。 （从 Control 继承。）

AttachInterfaces 已重写。 创建基础 ActiveX 控件时由该控件调用。

CreateAccessibilityInstance 为该控件创建一个新的辅助功能对象。 （从 Control 继承。）

CreateControlsInstance 为控件创建控件集合的新实例。 （从 Control 继承。）

CreateHandle 为该控件创建句柄。 （从 Control 继承。）

CreateSink 已重写。 使基础 ActiveX 控件与可以处理控件事件的客户端相关联。

CreateWebBrowserSiteBase 已重写。 返回对非托管 WebBrowser ActiveX 控件站点的引用，扩展该站点可以对托管 WebBrowser 控件进行自定义。

DefWndProc 向默认窗口过程发送指定消息。 （从 Control 继承。）

DestroyHandle 毁坏与该控件关联的句柄。 （从 Control 继承。）

DetachInterfaces 已重写。 放弃基础 ActiveX 控件时由该控件调用。

DetachSink 已重写。 从基础 ActiveX 控件中释放附加在 CreateSink 方法中的事件处理客户端。

Dispose 已重载。 已重写。 释放由控件使用的所有资源。

Finalize 在通过垃圾回收将 Component 回收之前，释放非托管资源并执行其他清理操作。 （从 Component 继承。）

GetAccessibilityObjectById 检索指定的 AccessibleObject。 （从 Control 继承。）

GetAutoSizeMode 检索一个值，该值指示当启用控件的 AutoSize 属性时控件的行为方式。 （从 Control 继承。）

GetScaledBounds 检索缩放控件时的边界。 （从 Control 继承。）

GetService 返回一个对象，该对象表示由 Component 或它的 Container 提供的服务。 （从 Component 继承。）

GetStyle 为控件检索指定控件样式位的值。 （从 Control 继承。）

GetTopLevel 确定控件是否是顶级控件。 （从 Control 继承。）

InitLayout 在将控件添加到另一个容器之后调用。 （从 Control 继承。）

InvokeGotFocus 为指定的控件引发 GotFocus 事件。 （从 Control 继承。）

InvokeLostFocus 为指定的控件引发 LostFocus 事件。 （从 Control 继承。）

InvokeOnClick 为指定的控件引发 Click 事件。 （从 Control 继承。）

InvokePaint 为指定的控件引发 Paint 事件。 （从 Control 继承。）

InvokePaintBackground 为指定的控件引发 PaintBackground 事件。 （从 Control 继承。）

IsInputChar （从 WebBrowserBase 继承。）

IsInputKey 确定指定的键是常规输入键还是需要预处理的特殊键。 （从 Control 继承。）

MemberwiseClone 已重载。 （从 MarshalByRefObject 继承。）

NotifyInvalidate 引发 Invalidated 事件，其中带有要使之无效的控件的指定区域。 （从 Control 继承。）

OnAutoSizeChanged 引发 AutoSizeChanged 事件。 （从 Control 继承。）

OnBackColorChanged （从 WebBrowserBase 继承。）

OnBackgroundImageChanged 引发 BackgroundImageChanged 事件。 （从 Control 继承。）

OnBackgroundImageLayoutChanged 引发 BackgroundImageLayoutChanged 事件。 （从 Control 继承。）

OnBindingContextChanged 引发 BindingContextChanged 事件。 （从 Control 继承。）

OnCanGoBackChanged 引发 CanGoBackChanged 事件。

OnCanGoForwardChanged 引发 CanGoForwardChanged 事件。

OnCausesValidationChanged 引发 CausesValidationChanged 事件。 （从 Control 继承。）

OnChangeUICues 引发 ChangeUICues 事件。 （从 Control 继承。）

OnClick 引发 Click 事件。 （从 Control 继承。）

OnClientSizeChanged 引发 ClientSizeChanged 事件。 （从 Control 继承。）

OnContextMenuChanged 引发 ContextMenuChanged 事件。 （从 Control 继承。）

OnContextMenuStripChanged 引发 ContextMenuStripChanged 事件。 （从 Control 继承。）

OnControlAdded 引发 ControlAdded 事件。 （从 Control 继承。）

OnControlRemoved 引发 ControlRemoved 事件。 （从 Control 继承。）

OnCreateControl 引发 CreateControl 事件。 （从 Control 继承。）

OnCursorChanged 引发 CursorChanged 事件。 （从 Control 继承。）

OnDockChanged 引发 DockChanged 事件。 （从 Control 继承。）

OnDocumentCompleted 引发 DocumentCompleted 事件。

OnDocumentTitleChanged 引发 DocumentTitleChanged 事件。

OnDoubleClick 引发 DoubleClick 事件。 （从 Control 继承。）

OnDragDrop 引发 DragDrop 事件。 （从 Control 继承。）

OnDragEnter 引发 DragEnter 事件。 （从 Control 继承。）

OnDragLeave 引发 DragLeave 事件。 （从 Control 继承。）

OnDragOver 引发 DragOver 事件。 （从 Control 继承。）

OnEnabledChanged 引发 EnabledChanged 事件。 （从 Control 继承。）

OnEncryptionLevelChanged 引发 EncryptionLevelChanged 事件。

OnEnter 引发 Enter 事件。 （从 Control 继承。）

OnFileDownload 引发 FileDownl

Q2: vb.net如何与excel建立连接，并从里面查询并读取数据？

1.新建一张表格，在表格中导入学生的成绩表，如图所示，将建立一个按钮，通过它来实现查找。

 2.单击菜单栏中的“开发工具”——插入——表单控件——按钮，在出现的十字箭头上拖住画出一个按钮，如图所示。

3.在弹出的查找红对话框中选择“录制”，在弹出的“录制新宏”对话框中，修改宏名称为“查找”，单击确定。

4. 单击“开发工具”——查看代码，打开VBA编辑器，如图所示。

5.现在输入代码：

Sub 查找()

  Dim jieguo As String, p As String, q As String

  Dim c As Range

  jieguo = Application.InputBox(prompt:="请输入要查找的值：", Title:="查找", Type:=2)

  If jieguo = "False" Or jieguo = "" Then Exit Sub

  Application.ScreenUpdating = False

  Application.DisplayAlerts = False

  With ActiveSheet.Cells

      Set c = .Find(jieguo, , , xlWhole, xlByColumns, xlNext, False)

      If Not c Is Nothing Then

          p = c.Address

          Do

              c.Interior.ColorIndex = 4

              q = q c.Address vbCrLf

              Set c = .FindNext(c)

          Loop While Not c Is Nothing And c.Address p

      End If

End With

MsgBox "查找数据在以下单元格中：" vbCrLf vbCrLf _

      q, vbInformation + vbOKOnly, "查找结果"

    Application.ScreenUpdating = True

    Application.DisplayAlerts = True

End Sub

6.现在回到EXCEL表格，右击按钮，选择“编辑文字”，修改按钮名称为“查找按钮”。

7. 现在单击查找按钮，出现对话框“请输入要查找的值”，在方框中输入“男”，单击确定，出现对话框“查找数据在一下单元格中”，单击确定，对应单元格就变成了亮色。

Q3: vb.net数据库操作

参考一下下面这段代码就可以了。

Imports System.Data

'引入数据库操作类命名空间

Imports System.Data.OleDb

'引入ADO.NET操作命名空间

Public Class FrmModifystInfo

Inherits System.Windows.Forms.Form

Public ADOcmd As OleDbDataAdapter

Public ds As DataSet = New DataSet()

'建立DataSet对象

Public mytable As Data.DataTable

'建立表单对象

Public myrow As Data.DataRow

'建立数据行对象

Public rownumber As Integer

'定义一个整型变量来存放当前行数

Public SearchSQL As String

Public cmd As OleDbCommandBuilder

'======================================================

#Region " Windows 窗体设计器生成的代码 "

#End Region

'======================================================

Private Sub FrmModifystInfo_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

'窗体的载入

TxtSID.Enabled = False

TxtName.Enabled = False

ComboSex.Enabled = False

TxtBornDate.Enabled = False

TxtClassno.Enabled = False

TxtRuDate.Enabled = False

TxtTel.Enabled = False

TxtAddress.Enabled = False

TxtComment.Enabled = False '设置信息为只读

Dim tablename As String = "student_Info "

SearchSQL = "select * from student_Info "

ExecuteSQL(SearchSQL, tablename) '打开数据库

ShowData() '显示记录

End Sub

Private Sub ShowData()

'在窗口中的textbox中显示数据

myrow = mytable.Rows.Item(rownumber)

TxtSID.Text = myrow.Item(0).ToString

TxtName.Text = myrow.Item(1).ToString

ComboSex.Text = myrow.Item(2).ToString

TxtBornDate.Text = Format(myrow.Item(3), "yyyy-MM-dd ")

TxtClassno.Text = myrow.Item(4).ToString

TxtTel.Text = myrow.Item(5).ToString

TxtRuDate.Text = Format(CDate(myrow.Item(6)), "yyyy-MM-dd ")

TxtAddress.Text = myrow.Item(7).ToString

TxtComment.Text = myrow.Item(8).ToString

End Sub

Private Sub BtFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtFirst.Click

'指向第一条数据

rownumber = 0

ShowData()

End Sub

Private Sub BtPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtPrev.Click

'指向上一条数据

BtNext.Enabled = True

rownumber = rownumber - 1

If rownumber 0 Then

rownumber = 0 '如果到达记录的首部，行号设为零

BtPrev.Enabled = False

End If

ShowData()

End Sub

Private Sub BtNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtNext.Click

'指向上一条数据

BtPrev.Enabled = True

rownumber = rownumber + 1

If rownumber mytable.Rows.Count - 1 Then

rownumber = mytable.Rows.Count - 1 '判断是否到达最后一条数据

BtNext.Enabled = False

End If

ShowData()

End Sub

Private Sub BtLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtLast.Click

'指向最后一条数据

rownumber = mytable.Rows.Count - 1

ShowData()

End Sub

Private Sub BtDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtDelete.Click

mytable.Rows.Item(rownumber).Delete() '删除记录

If MsgBox( "确定要删除改记录吗？ ", MsgBoxStyle.OKCancel + vbExclamation, "警告 ") = MsgBoxResult.OK Then

cmd = New OleDbCommandBuilder(ADOcmd)

'使用自动生成的SQL语句

ADOcmd.Update(ds, "student_Info ")

BtNext.PerformClick()

End If

End Sub

Private Sub BtModify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtModify.Click

TxtSID.Enabled = False '关键字段只读

TxtName.Enabled = True '可读写

ComboSex.Enabled = True

TxtBornDate.Enabled = True

TxtClassno.Enabled = True

TxtRuDate.Enabled = True

TxtTel.Enabled = True

TxtAddress.Enabled = True

TxtComment.Enabled = True

End Sub

Private Sub BtUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtUpdate.Click

If Not Testtxt(TxtName.Text) Then

MsgBox( "请输入姓名！ ", vbOKOnly + vbExclamation, "警告 ")

TxtName.Focus()

Exit Sub

End If

If Not Testtxt(ComboSex.Text) Then

MsgBox( "请选择性别！ ", vbOKOnly + vbExclamation, "警告 ")

ComboSex.Focus()

Exit Sub

End If

If Not Testtxt(TxtClassno.Text) Then

MsgBox( "请选择班号！ ", vbOKOnly + vbExclamation, "警告 ")

TxtClassno.Focus()

Exit Sub

End If

If Not Testtxt(TxtTel.Text) Then

MsgBox( "请输入联系电话！ ", vbOKOnly + vbExclamation, "警告 ")

TxtTel.Focus()

Exit Sub

End If

If Not Testtxt(TxtAddress.Text) Then

MsgBox( "请输入家庭住址！ ", vbOKOnly + vbExclamation, "警告 ")

TxtAddress.Focus()

Exit Sub

End If

If Not IsNumeric(Trim(TxtSID.Text)) Then

MsgBox( "请输入数字学号！ ", vbOKOnly + vbExclamation, "警告 ")

Exit Sub

TxtSID.Focus()

End If

If Not IsDate(TxtBornDate.Text) Then

MsgBox( "出生时间应输入日期格式（yyyy-mm-dd）！ ", vbOKOnly + vbExclamation, "警告 ")

Exit Sub

TxtBornDate.Focus()

End If

If Not IsDate(TxtRuDate.Text) Then

MsgBox( "入校时间应输入日期格式（yyyy-mm-dd）！ ", vbOKOnly + vbExclamation, "警告 ")

TxtRuDate.Focus()

Exit Sub

End If

myrow.Item(0) = Trim(TxtSID.Text)

myrow.Item(1) = Trim(TxtName.Text)

myrow.Item(2) = Trim(ComboSex.Text)

myrow.Item(3) = Trim(TxtBornDate.Text)

myrow.Item(4) = Trim(TxtClassno.Text)

myrow.Item(5) = Trim(TxtTel.Text)

myrow.Item(6) = Trim(TxtRuDate.Text)

myrow.Item(7) = Trim(TxtAddress.Text)

myrow.Item(8) = Trim(TxtComment.Text)

mytable.GetChanges()

cmd = New OleDbCommandBuilder(ADOcmd)

'使用自动生成的SQL语句

ADOcmd.Update(ds, "student_Info ")

'对数据库进行更新

MsgBox( "修改学籍信息成功！ ", vbOKOnly + vbExclamation, "警告 ")

TxtName.Enabled = False

ComboSex.Enabled = False

TxtBornDate.Enabled = False

TxtClassno.Enabled = False

TxtRuDate.Enabled = False

TxtTel.Enabled = False

TxtAddress.Enabled = False

TxtComment.Enabled = False '重新设置信息为只读

End Sub

Private Sub BtCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtCancel.Click

TxtSID.Enabled = False

TxtName.Enabled = False

ComboSex.Enabled = False

TxtBornDate.Enabled = False

TxtClassno.Enabled = False

TxtRuDate.Enabled = False

TxtTel.Enabled = False

TxtAddress.Enabled = False

TxtComment.Enabled = False

End Sub

Public Function ExecuteSQL(ByVal SQL As String, ByVal table As String)

Try

'建立ADODataSetCommand对象

'数据库查询函数

ADOcmd = New OleDbDataAdapter(SQL, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\student.mdb ")

'建立ADODataSetCommand对象

ADOcmd.Fill(ds, table) '取得表单

mytable = ds.Tables.Item(0) '取得名为table的表

rownumber = 0 '设置为第一行

myrow = mytable.Rows.Item(rownumber)

'取得第一行数据

Catch

MsgBox(Err.Description)

End Try

End Function

End Class