vb.net中如何写代码显示帮助文档（html）

在按钮的Click事件处理函数中，添加

创新互联公司主要从事成都网站设计、网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务下花园,10余年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220

dim str as string="..\help.html" '文件路径名

System.Diagnostics.Process.Start(str)

VB.NET获取目录文件夹名称

先用System.IO.Directory.GetDirectories函数获取子目录的名称（包括其路径），再用System.IO.Path.GetFileName获取子目录的名称。下面是代码：

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

For Each s In System.IO.Directory.GetDirectories("C:\Windows")

Console.WriteLine(System.IO.Path.GetFileName(s))

Next

End Sub

下面是部分输出：

Application Data

AppPatch

assembly

BOCNET

Boot

Branding

ConfigSetRoot

Cursors

Debug

DigitalLocker

Downloaded Installations

Downloaded Program Files

ehome

en-US

Fonts

Globalization

Help

...

可能有更简洁的方法，你可以到MSDN看看

System.IO.Directory.GetDirectories：

System.IO.Path.GetFileName：

通用 I/O 任务：

用vb.net编写记事本源代码

Dim sFileName As String

Dim Search

Private Sub dateTimeMenu_Click()

Text1.Text = Now

End Sub

Private Sub deleteMenu_Click()

Text1.Text = Left(Text1.Text, Text1.SelStart) + Mid(Text1.Text, Text1.SelStart + Text1.SelLength + 1)

End Sub

Private Sub findMenu_Click()

Search = InputBox("请输入要查找的字词：")

Dim Where1 '获取需要查找的字符串变量

Text1.SetFocus '文本框获得焦点，以显示所找到的内容Search = InputBox("请输入要查找的字词：")

Where1 = InStr(Text1.Text, Search) '在文本中查找字符串

If Where1 Then

'若找到则设置选定的起始位置并使找到的字符串高亮

Text1.SelStart = Where1 - 1

Text1.SelLength = Len(Search)

' Me.Caption = Where1 '测试用

'否则给出提示

Else: MsgBox "未找到所要查找的字符串。", vbInformation, "提示"

End If

End Sub

Private Sub findNextMenu_Click()

Dim Where2

Dim StartMe As Integer '查找的起始位置变量

Text1.SetFocus '文本框获得焦点

StartMe = Text1.SelLength + Text1.SelStart + 1 '给变量赋值

Where2 = InStr(StartMe, Text1.Text, Search) '令其从上次找到的地方找起

If Where2 Then

Text1.SelStart = Where2 - 1

Text1.SelLength = Len(Search)

Else: MsgBox "未找到所要查找的字符串.", vbInformation, "提示"

End If

End Sub

Private Sub aboutMenu_Click()

MsgBox Space(2) "文本编辑器版本号1.0" Chr(13) "由西南财经大学天府学院" Chr(13) Space(5) "肖忠 开发" Chr(13) Space(2) "copyright:天府学院"

End Sub

Private Sub allMenu_Click()

Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text)

End Sub

Private Sub backcolorMenu_Click() '设置背景色代码

Form1.CommonDialog1.Action = 3

Text1.BackColor = Form1.CommonDialog1.Color

End Sub

Private Sub colorMenu_Click() '改变文字颜色代码

Form1.CommonDialog1.Action = 3

Text1.ForeColor = Form1.CommonDialog1.Color

End Sub

Private Sub cutMenu_Click()

Clipboard.SetText Text1.SelText

Text1.Text = Left(Text1.Text, Text1.SelStart) + Mid(Text1.Text, Text1.SelStart + Text1.SelLength + 1)

End Sub

Private Sub exitMenu_Click()

End

End Sub

Private Sub fontMenu_Click() '字体菜单代码

Form1.CommonDialog1.Flags = 3 Or 256

Form1.CommonDialog1.Action = 4

If Len(Form1.CommonDialog1.FontName) = 0 Then

Form1.Text1.FontName = "宋体"

Else

Form1.Text1.FontName = Form1.CommonDialog1.FontName

End If

Form1.Text1.FontSize = Form1.CommonDialog1.FontSize

If Form1.CommonDialog1.FontBold = True Then

Form1.Text1.FontBold = True

Else

Form1.Text1.FontBold = False

End If

If Form1.CommonDialog1.FontItalic = True Then

Form1.Text1.FontItalic = True

Else

Form1.Text1.FontItalic = False

End If

Text1.ForeColor = Form1.CommonDialog1.Color

End Sub

Private Sub Form_Load()

Form1.Text1.Width = Form1.Width - 130

Form1.Text1.Height = Form1.Height

End Sub

Private Sub Form_Resize()

Form1.Text1.Width = Form1.Width - 130

Form1.Text1.Height = Form1.Height

End Sub

Private Sub help1Menu_Click()

Form1.CommonDialog1.HelpCommand = cdlHelpForceFile

Form1.CommonDialog1.HelpFile = "c:\windows\system32\winhelp.hlp"

CommonDialog1.ShowHelp

End Sub

Private Sub newMenu_Click()

If Len(Trim(Text1.Text)) = 0 Then

Form1.Caption = "我的记事本" "--" "未命名"

sFileName = "未命名"

Text1.FontSize = 15

Text1.FontName = "宋体"

Text1.Text = ""

Else

Call saveAsMenu_Click

Form1.Caption = "我的记事本" "--" "未命名"

sFileName = "未命名"

Text1.FontSize = 15

Text1.FontName = "宋体"

Text1.Text = ""

End If

End Sub

Private Sub openMenu_Click() '打开文件代码

If Len(Trim(Text1.Text)) = 0 Then

Form1.Caption = "我的记事本"

Form1.CommonDialog1.Filter = "文本文件|*.txt"

Form1.CommonDialog1.Flags = 4096

Form1.CommonDialog1.Action = 1

If Len(Form1.CommonDialog1.FileName) 0 Then

sFileName = Form1.CommonDialog1.FileName

Form1.Caption = Form1.Caption "--" Form1.CommonDialog1.FileTitle

Open sFileName For Input As #1

Text1.FontSize = 15

Text1.FontName = "宋体"

Do While Not EOF(1)

Line Input #1, Text$

All$ = All$ + Text$ + Chr(13) + Chr(10)

Loop

Text1.Text = All

Close #1

End If

Else

Call saveAsMenu_Click

Form1.Caption = "我的记事本"

Form1.CommonDialog1.Filter = "文本文件|*.txt"

Form1.CommonDialog1.Flags = 4096

Form1.CommonDialog1.Action = 1

If Len(Form1.CommonDialog1.FileName) 0 Then

sFileName = Form1.CommonDialog1.FileName

Form1.Caption = Form1.Caption "--" Form1.CommonDialog1.FileTitle

Open sFileName For Input As #1

Text1.FontSize = 15

Text1.FontName = "宋体"

Do While Not EOF(1)

Line Input #1, Text$

All$ = All$ + Text$ + Chr(13) + Chr(10)

Loop

Text1.Text = All

Close #1

End If

End If

End Sub

Private Sub pasteMenu_Click() '粘贴菜单代码

Text1.Text = Left(Text1.Text, Text1.SelStart) + Clipboard.GetText() + Mid(Text1.Text, Text1.SelStart + Text1.SelLength + 1)

End Sub

Private Sub printMenu_Click()

Form1.CommonDialog1.ShowPrinter

For i = 1 To CommonDialog1.Copies

Printer.Print Text1.Text

Printer.Print Text1.Text

Next

Printer.EndDoc

End Sub

Private Sub saveAsMenu_Click() '另存为菜单代码

If Len(Trim(Text1.Text)) 0 Then

Form1.CommonDialog1.DialogTitle = "保存文件"

Form1.CommonDialog1.InitDir = "D:\"

Form1.CommonDialog1.Filter = "文本文件|*.txt"

Form1.CommonDialog1.Flags = 2

Form1.CommonDialog1.ShowSave

If Len(Form1.CommonDialog1.FileName) 0 Then

sFileName = Form1.CommonDialog1.FileName

Open sFileName For Output As #1

whole$ = Text1.Text

Print #1, whole

Close #1

End If

End If

End Sub

Private Sub saveMenu_Click()

If Len(Trim(Text1.Text)) 0 Then

Form1.CommonDialog1.DialogTitle = "保存文件"

Form1.CommonDialog1.InitDir = "D:\"

Form1.CommonDialog1.FileName = "新建文本"

Form1.CommonDialog1.Filter = "文本文件|*.txt"

Form1.CommonDialog1.Flags = 2

Form1.CommonDialog1.ShowSave

If Len(Form1.CommonDialog1.FileName) 0 Then

sFileName = Form1.CommonDialog1.FileName

Open sFileName For Output As #1

whole$ = Text1.Text

Print #1, whole

Close #1

End If

End If

End Sub

Private Sub statusMenu_Click()

End Sub

请问下在vb,vb.net或c#中添加系统服务时怎样设置在服务启动失败后重启服务!找了好久都不知道怎么设置

个人意见，希望采纳:

：你先了解一下：

启动项英文msconfig

alerter -错误警报器，垃圾，关闭。

application layer gateway service -给与第三者网络共享/防火墙支持的服务，有些防火墙/网络共享软件需要。占用1。5mb内存。

application management-用于设定，发布和删除软件服务。

automatic 更新s -windows自动更新，K，滚！

background intelligent transfer service -这个服务原是用来实现http1.1服务器之间的信息传输，微软称支持windows更新时断点续传

clipbook - 用与局域网电脑来共享 粘贴/剪贴的内容。（K，想得出！）

com+Event system -一些 COM+ 软件需要，检查你的 c:\program files\ComPlus Applications 目录，没东西可以把这个服务关闭．

COM+Event system application －同上

COmputer browser － 用来浏览局域网电脑的服务，但关了也不影响浏览！垃圾

cryptographic services -windows更新时用来确认windows 文件指纹的，我更新时才开启一下。

DHCP client－静态IP者需要（xDSL 等）小猫就不用了！！

Distributed link tracking client－用于局域网更新连接信息，比如在电脑A有个文件，在B做了个连接，如果文件移动了，这个服务将会更 新信息。占用4兆内存。

Distributed Transaction coordinator－无聊的东西。

DNS Client－DNS解析服务。。无聊～～

Error reporting service -错误报告器，把windows中错误报告给微软，无聊～～～～～

＊Event Log- 系统日志纪录服务，很有用于查找系统毛病．

Fast user switching compatibility－多用户快速切换服务．．无聊

help and support -帮助，无聊，还是无聊帮助．．哈哈

Human interface device access－支持”弱智“电脑配件的。。比如键盘上调音量的按钮等等。。

IMAPI CD-burning COM service －xp刻牒服务，用软件就不用了占用1。6兆内存

Indexing service -恐怖的xp减速的东东！！！关关关！！！

Internet Connection Firewall(ICF).........-xp防火墙。。不用就关。

IPSEC Services－大众用户连边都沾不上。

Logical Disk manager －磁盘管理服务。。需要时它会通知你，所以一般关。

Logical Disk manager administrative service－同上。

messenger -不是msn，不想被骚扰的话就关。注：妖刺就是利用这个。

MS software shadow copy provider－无用，据说是备份用的。。我看什么用都没。

Net Logon－登陆 Domain Controller 用的，大众用户快关！

Netmeeting remote desktop sharing－用netmeeting 实现电脑共享。。晕！关！！

Network Connections - 上网／局域网要用的东东！

Network DDE －和clipbook一起用的，无聊～～～～

Network DDE DSDM －同上

Network 本地 Awareness－如有网络共享或ICS/ICF可能需要.(服务器端）

NT LM Security support provider－telnet 服务用的东东，关！！

NVIDIA Driver Helper service -nvidia 显卡帮助，关！

PDEngine - perfectdisk 引擎

PDScheduler -perfectdisk 计划服务

PerFORMance logs and alerts－记录机器运行状况而且定时写入日志或发警告，内容可能过于专业，所以。。自己决定。

＊Plug and Play- 自动查测新装硬件，即插即用，开着吧～～～

Portable media serial number－绝对无用，无聊之及。

Print Spooler -打印机用的，我打印时才开一下。

Protected Storage－储存本地密码和网上服务密码的服务，包括填表时的“自动完成”功能。

QoS RSVP -关！就是那个20％的 QoS

Remote access auto connection manager－宽带者／网络共享可能需要！！

Remote desktop help session manager－远程帮助服务，傻透，占用4兆内存。

＊Remote Procedure Call (RPC) -系统核心服务！

Remote Procedure Call LOCATOR－这个倒没什么用，管理 RPC 数据库服务，占用1兆内存。

remote registry －远程注册表运行／修改。大漏洞，还不快关！！

removable storage －一般情况下不用，磁带备份用的。

routing and remote access－哈哈。。不知者关！

secondary logon－给与administrator 以外的用户分配指定操作权．晕～～～

security accounts manager－像 Protected Storage, IIS Admin 才需要。

server -局域网文件／打印共享需要的。

shell hardware detection－给有些配置自动启动，像内存棒，和有些cd驱动等

smart card -关！1。4兆内存

smart card helper -关！

SSDP Discovery service－没有什么硬件利用这个服务。。

system event notification－记录用户登录／注销／重起／关机信息。。谁管这些。。

system restore service -系统还原服务，吃资源和内存的怪兽。。虽然有时用到，自己决定。

task scheduler－windows 计划服务啦，垃圾．

TCP/IP NetBIOS helper－如果你的网络不用 Netbios 或WINS，关了．

Telephony - 拨号服务，如果你的宽带不用拨号，那么关了它。

telnet -大漏洞，我第一个关的就是这个．这根dos中 telnet 命令没关系。2兆内存。

terminal services－实现远程登录本地电脑，快速用户切换和远程桌面功能需要，

不用这些功能就关了吧。

themes -给xp打扮的东东，不要太花锹的就关了。

uninterruptible power supply－停电保护设备用的。。。没有的就关。

universal plug and play device host－同SSDP Discovery Service ，没用．

upload manager－用来实现服务器和客户端输送文件的服务，简单文件传输不需要这个！

volume shadow copy－同MS Software Shadow Copy Provider，无用．

webclient－可能和以后的．net技术有联系，安全起见，我关得实实的！

Windows Audio - 控制着你听到的声音。关了就没声音了！！

Windows Installer -windows的MSI安装服务，建议设成手动。

windows image acquisition (WIA) -有些数码相机和扫描器用的，我的扫描器觉得它没用。

Windows Management Instrumentation - 满重要的服务，是管”服务依K”的，但关

了会出现奇怪的问题．

windows management 包含umentat

另外,团IDC网上有许多产品团购,便宜有口碑

vb.net 帮助文档

msdn的帮助文档都会在微软中文官网附加在Visual Studio的开发环境中

VB,VBA, VB.net 都有什么区别和共同点?

VB是是一种编程语言。VBA主要VB是office上的应用，VB.net可以说是VB的最新版本，如果就是业余或者刚入门的话，语法什么的和VB几乎完全一样。只是语法上面，要求比VB要求规范，比方说VB6.0里面Text1="1"读的出来，VB.net就会报错，一定要textbox1.text="1"才可以。对于初学者来说，VB.net这种规范要求有益无害。

如果你想学的话，最好学VB.net，一来功能强，二来，能帮助你学习基本概念。比方说我学VB的时候，什么是类一点概念都没有。都是学了.net之后才懂得。三来么，学会了VB.net.学其他都很方便的。

但是如果就是用用excel的话么，VBA就可以了。不过说句老实话，光学VBA的话，很多东西理解起来比较难。我是最后学VBA的，看了书一个礼拜之后就能随便编了。但是书上很多代码的，我猜如果没有VB基础，估计看不懂

分享题目：vb.nethelp的简单介绍
转载来源：http://kswjz.com/article/hsphdh.html