锐客网

  1. 首页 > 生活百科 > it技术 > >

包含vb.net记事本编程的词条

IT技术编程

怎样用vb.net做记事本？？简单vb.net记事本编程的 用TextBox 或者RichTextBox 控件啊至于文件 可以存为ANSIC编码vb.net记事本编程的文本文件 或者数据库存取也行啊
vb.net如何用我编写的一个记事本程序通过鼠标右键菜单来打开一个文件一、用wshshell组件的RegWrite方法写注册表，在HKEY_CLASSES_ROOT\*\Shell 位置加入的你程序 ， 
例如：
[HKEY_CLASSES_ROOT\*\shell\我的程序\command]
@="D:\\我的程序.exe %1"
后面的%1会将文件名传送给你的程序的Command$，多文件名需要使用DDE方式进行互斥传入 。
二、
将下面内容输入记事本后保存为reg文件，运行即可：
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shell]
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shell\OpenInNotepad]
@="用记事本打开"
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shell\OpenInNotepad\command]
@="notepad.exe %1"
"用记事本打开" 为右键菜单中显示的名称
VB.NET写一个记事本程序,如何用程序让使用者编辑好的内容独立的存在硬盘上?vb.net记事本编程你是说记事本vb.net记事本编程的配置吧vb.net记事本编程，
如果设置不是太大vb.net记事本编程 ， 可以保存在注册表中，
另外可以用xml文件或者ini文件来保存配置，
不知道有没理解错vb.net记事本编程你的意思
用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("请输入要查找vb.net记事本编程的字词：")
Dim Where1 '获取需要查找vb.net记事本编程的字符串变量
Text1.SetFocus '文本框获得焦点vb.net记事本编程，以显示所找到的内容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()'字体菜单代码

推荐阅读


上一篇：html5怎，html5怎么下载

下一篇：thinkphp3.2.3快速，thinkphp51教程