VB写的记事本中我想添加打字音效，该怎样做？

vb可以在记事本中写程序吗~

完全可以的。VB的工程文件（.VBP）、窗体文件（.FRM）、模块文件（.BAS）、类文件（.CLS）等等这些文件都是纯文本文件，完全可以用记事本或其他文本编辑器来直接创建和修改，只需要在保存的时候把文件扩展名写对即可。但要注意，首先你必须是个绝顶的编程高手（黑客级别的）才能这么做到，因为这是要你全程“摸黑”操作的，尤其是在进行界面设计的时候，一般人肯定做不到的。其次，如果要在界面中插入图片、音乐等多媒体资源，纯手工方法就比较吃力了，但可以通过在代码中实时调用的方法来实现。要想对程序进行实时试运行、监控、调试，这个就必须到VB的IDE中才能进行了，不过也可以先把程序编译为exe文件再来测试。可以通过命令行方式来手工编译。
但是，放着方便好用的VB编程环境不用，非得用这么原始的方法干嘛啊？就好比放着挖掘机不用，非要用铁锹去铲土？

试试看，朋友。仅供参考。
Private Sub Form_click()
Dim s As String, n As Integer, i As Integer
i = 1
n = Val(InputBox("请输入指定行号", , "5"))
Open "c:/11.txt" For Input As #1
Do While i <= n
If Not EOF(1) Then
Line Input #1, s
End If
i = i + 1
Loop
Print s'输出到窗体上
text1=s'输出到文本框1里

Close #1
End Sub

'pc音效（大部分主机的主板内都有这个小喇叭）
Private Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
'在你的编辑区控件的 KeyPress 事件内填写代码，比如Text1_KeyPress
Beep 700, 500 '数字自己调整不同声音频率与时间长短
'////////////
或是在你的编辑区控件的 KeyPress 事件内，直接呼叫你自己的音效播放代码。

首先你要准备一大堆的音效.
利用按键的事件KeyPress

来判断按键的asc码是哪个..
‘数字与键码，你的13就是回车：
vbKeyLButton 1 鼠标左键
vbKeyRButton 2 鼠标右键
vbKeyCancel 3 CANCEL 键
vbKeyMButton 4 鼠标中键
vbKeyBack 8 BACKSPACE 键
vbKeyTab 9 TAB 键
vbKeyClear 12 CLEAR 键
vbKeyReturn 13 ENTER 键
vbKeyShift 16 SHIFT 键
vbKeyControl 17 CTRL 键
vbKeyMenu 18 菜单键
vbKeyPause 19 PAUSE 键
vbKeyCapital 20 CAPS LOCK 键
vbKeyEscape 27 ESC 键
vbKeySpace 32 SPACEBAR 键
vbKeyPageUp 33 PAGEUP 键
vbKeyPageDown 34 PAGEDOWN 键
vbKeyEnd 35 END 键
vbKeyHome 36 HOME 键
vbKeyLeft 37 LEFT ARROW 键
vbKeyUp 38 UP ARROW 键
vbKeyRight 39 RIGHT ARROW 键
vbKeyDown 40 DOWN ARROW 键
vbKeySelect 41 SELECT 键
vbKeyPrint 42 PRINT SCREEN 键
vbKeyExecute 43 EXECUTE 键
vbKeySnapshot 44 SNAP SHOT 键
vbKeyInser 45 INS 键
vbKeyDelete 46 DEL 键
vbKeyHelp 47 HELP 键
vbKeyNumlock 144 NUM LOCK 键

A 键到 Z 键与其 ASCII 码的相应值'A' 到 'Z' 是一致的
常数 值 描述
vbKeyA 65 A 键
vbKeyB 66 B 键
vbKeyC 67 C 键
vbKeyD 68 D 键
vbKeyE 69 E 键
vbKeyF 70 F 键
vbKeyG 71 G 键
vbKeyH 72 H 键
vbKeyI 73 I 键
vbKeyJ 74 J 键
vbKeyK 75 K 键
vbKeyL 76 L 键
vbKeyM 77 M 键
vbKeyN 78 N 键
vbKeyO 79 O 键
vbKeyP 80 P 键
vbKeyQ 81 Q 键
vbKeyR 82 R 键
vbKeyS 83 S 键
vbKeyT 84 T 键
vbKeyU 85 U 键
vbKeyV 86 V 键
vbKeyW 87 W 键
vbKeyX 88 X 键
vbKeyY 89 Y 键
vbKeyZ 90 Z 键

0 键到 9 键与其 ASCII 码的相应值 '0' 到 '9' 是一致的
常数 值 描述
vbKey0 48 0 键
vbKey1 49 1 键
vbKey2 50 2 键
vbKey3 51 3 键
vbKey4 52 4 键
vbKey5 53 5 键
vbKey6 54 6 键
vbKey7 55 7 键
vbKey8 56 8 键
vbKey9 57 9 键

数字小键盘上的键
常数 值 描述
vbKeyNumpad0 96 0 键
vbKeyNumpad1 97 1 键
vbKeyNumpad2 98 2 键
vbKeyNumpad3 99 3 键
vbKeyNumpad4 100 4 键
vbKeyNumpad5 101 5 键
vbKeyNumpad6 102 6 键
vbKeyNumpad7 103 7 键
vbKeyNumpad8 104 8 键
vbKeyNumpad9 105 9 键
vbKeyMultiply 106 乘号 (*) 键
vbKeyAdd 107 加号 (+) 键
vbKeySeparator 108 ENTER 键（在数字小键盘上）
vbKeySubtract 109 减号 (-) 键
vbKeyDecimal 110 小数点 (.) 键
vbKeyDivide 111 除号 (/) 键

功能键
常数 值 描述
vbKeyF1 112 F1 键
vbKeyF2 113 F2 键
vbKeyF3 114 F3 键
vbKeyF4 115 F4 键
vbKeyF5 116 F5 键
vbKeyF6 117 F6 键
vbKeyF7 118 F7 键
vbKeyF8 119 F8 键
vbKeyF9 120 F9 键
vbKeyF10 121 F10 键
vbKeyF11 122 F11 键
vbKeyF12 123 F12 键
vbKeyF13 124 F13 键
vbKeyF14 125 F14 键
vbKeyF15 126 F15 键
vbKeyF16 127 F16 键
----------------------------------------
根据不同的asc码来加载相应的音效就可以了.

把每个键名读音录成wav，存成与键名相应的文件存到执行文件下的KeyWav目录（先自建好）。

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Dim sKeyAsc.sKeyWav as String
Private Sub Form_Load()
sKeyAsc="vbKey_A,vbKey_B,vbKey_C,vbKey_D,..."
sKeyWav="A,B,C,D,..."
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
if KeyAscii=vbKey_A then
wavPos=instr(KeyAscii,sKeyAsc)
aryKeyWav=split(sKeyWav,",")
KeyWavName=aryKeyWav(wavPos)
PlaySound App.path & "\KeyWav\" & KeyWavName & ".wav", 0, 1
end if
End Sub

每次按键就会发出所按键对应的发音。不知你是否要这样的音效，不懂可以追问我。

最简单的音效就是 直接把按下的字给读出来，有现成的程序，可以去找找

---

滨江区17387777704： vb 在text里输入一下字就播放一下打字机音效的代码.？
宜种氨酚： '加入windows media player控件 Private Sub Text1_Change() WindowsMediaPlayer1.openPlayer Environ$(＂windir＂) &amp; ＂\media\ding.wav＂ End Sub

滨江区17387777704： 怎样在VB中,实现向文本框的语音输入 - ？
宜种氨酚： 我的理解是这样的:我们的目的:向文本框输入语音文字 操作过程就得分两步:一:获取语音文字进行存储 二:将语音文字写入文本框 这样实施起来你就有了明确的操作过程.语音识别这方面的技术我现在没有,你可以在网上查找相应的技术或者购买相应的技术,只要将语音转换成了文字,相信再写入文本框你就可以很简单的操作了

滨江区17387777704： VB怎么插入音乐文件?？
宜种氨酚： 这个简单,你可以在Visual Basic中添加一个Media player控件. 方法是:在工具箱中,选择＂添加部件＂,然后从列表中找到 windows Media player,把它选中.接着把该控件拖放到窗体上,实例命名为WindowsMediaPlayer1. 最后在窗体的加载事件中设置其属性即可.属性如下: WindowsMediaPlayer1.URL = ＂c:\mp3\1.mp3＂ WindowsMediaPlayer1.Controls.play WindowsMediaPlayer1.Controls.stop WindowsMediaPlayer1.Controls.pause

滨江区17387777704： 在VB中如何实现打字机效果 - ？
宜种氨酚： 添加一个命令按钮,一个计时器,一个文本框 Private Sub Command1_Click()Timer1.Interval = 300Timer1.Enabled = True End SubPrivate Sub Timer1_Timer()Dim s As StringStatic i As Integers = ＂中华人民共和国＂i = (i + 1) Mod (Len(s) + 1)Text1.Text = Left(s, i) End Sub

滨江区17387777704： vbs打开记事本写入汉字要输入效果 - ？
宜种氨酚： set fso=CreateObject(＂Scripting.FileSystemObject＂) set fw=fso.createtextfile(＂e:\result.txt＂,2) fw.writeline(＂vbs123＂) fw.writeline(＂我是好人,可以吗?＂) set ws=CreateObject(＂wscript.shell＂) ws.run ＂c:\windows\system32\notepad....

滨江区17387777704： 用VB给记事本中写入信息 - ？
宜种氨酚： 原先A记事本里面第一行有东西吗.如果有东西,那就用append 语句,直接写到第二行.如果没有东西,就先写入一行回车,再写第二行.如果需要新建A记事本,就用output 语句. 比如:q= text1.text Open ＂D:\A.txt＂ For Output As #5 Print #5, q; Next i Close 5

滨江区17387777704： 关于用VB编写记事本的问题？
宜种氨酚： 第一个问题控件用不了...你可以试着先运行:regsvr32 控件名.ocx 注册一下 如果还是不行的话我给你发一个VB6专用的安装注册程序(解决控件无法调用问题)VBCLI.exe..... 你要关闭一个窗口显示一个窗口代码应该是这样: from1.visable=true unload me 而你这个 if unload me then ....明显的语句错误(IF语句里面只能有判断,而UNLOAD并不返回值(就算返回你调用的时候也要用()号标明)).所以 .编译器不知道什么意思

滨江区17387777704： 求VB编写记事本的教程 高手进 里面有问题 - ？
宜种氨酚： 选择菜单中的工程->添加工程->components......打开一个路径窗口,然后,你选择Microsoft RichText Box 6.0,点＂插入＂,你就可以在VC控件面板上看到了

滨江区17387777704： 在vb中如何实现语音输入 - ？
宜种氨酚： 5月18日 21:24 微软拼音2003就可以,只要完整安装office2003里面有语音输入组件

滨江区17387777704： 如何在电脑上的记事本中插入音乐 谢谢了 - ？
宜种氨酚： 记事本为纯文本编辑软件.只能设置下格式,并不能设置音乐什么的. 想要设置音乐就弄PPT吧.