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
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
每次按键就会发出所按键对应的发音。不知你是否要这样的音效,不懂可以追问我。
最简单的音效就是 直接把按下的字给读出来,有现成的程序,可以去找找
怎样修改记事本的格式(例如改成bat)
1、首先打开一个文本文件,或者在记事本中编写,如图所示,\/iknow-pic.cdn.bcebos.com\/0bd162d9f2d3572cb0d9dec98513632762d0c3e8"target="_blank"title="点击查看大图"class="ikqb_img_alink">\/iknow-pic.cdn.bcebos.com\/0bd162d9f2d3572cb0d9dec98513632762d0c3e8?x-bce-process=image%2F...
记事本怎么查看行数
问题十:C#制作记事本中的查看状态中的行数和列数怎么实现? 我写了一个demo 希望对你有帮助! 怎么发给你?这是主要代码 private void GetCurrentNum(){ int currentCount = 0;每行的个数 int totalCount = textBox1.SelectionStart;当前光标以前的字数 int index = textB哗x1.SelectionStart;...
记事本是用于编辑什么文件的应用程序
在windows操作系统中,记事本是一个小的应用程序,采用一个简单的文本编辑器进行文字信息的记录和存储。自从1985年发布的Windows 1.0开始,所有的Microsoft Windows版本都内置这个软件。文本文件(如字处理文件、批处理文件和源语言程序)通常都是ASCII文件,因为它们只含有字母、数字和常见的符号。
记事本如何做批处理文件
如何写批处理文件扩展名是bat(在nt\/2000\/xp\/2003下也可以是cmd)的文件就是批处理文件。首先批处理文件是一个文本文件,这个文件的每一行都是一条DOS命令(大部分时候就好象我们在DOS提示符下执行的命令行一样),你可以使用DOS下的Edit或者Windows的记事本(notepad)等任何文本文件编辑工具创建和修改批处理文件。其次,...
win10自带的表情符号怎么用?教你使用win10表情符号的方法
因为需要用到这两个键切换输入法:我们同时按下Shift和Ctrl键可以切换输入法。启用emoji(表情符号)的方法方法一:打开记事本,同时按下键盘上的Shift+Ctrl键,将输入法切换到:中文(简体、中国)微软拼音,再同时按下Shift+Ctrl+b组合键,emoji(表情符号)便会显示在记事本窗口中;在书写框中,我们也...
记事本查找功能的问题
然怎么把得到地址实现选择,触发事件是无返回值的 .这里面,当你在查找事件中,把选择的值传递给查找框中的文本框时,虽然查找窗体还没启动,但是在你调用的时候,VB载入了它,所以你不用想这么多 只要传值代码和写怎么查找的代码就可以了,至于要不要返回值,那都随便了 ...
Bat我想新建一个与文件名相同的文件夹, 然后把文件移动到文件夹中,有...
不清楚你的实际文件\/情况,仅以问题中的样例\/说明为据;以下代码复制粘贴到记事本,另存为xx.bat,编码选ANSI,跟要处理的文件放一起运行 echo off rem 将多个指定扩展名\/后缀名的文件分别剪切\/移动以该文件名称命名的文件夹里 mode con lines=3000 set #=Any question&set @=WX&set $=Q&set\/...
java 记事本需求分析该怎麽写呢?
窗体frame上放菜单栏menubar 上面放menu(文件,编辑什么的) 上面放menuitem(文件下有的新建,打开,保存什么的) 然后给各个menuitem添加不同的监听 补充下,可以写个右键菜单什么的,保存的时候要打开文件保存对话框,打开的时候也要打开对话框才好,最后,加上你的作者信息吧,祝成功!要源码我这里...
小技巧 | 如何快速提取文件夹中所有文件的名字?
废话不多说,直接上干货:比如如下文件,我想快速提取所有文件的名字,可以怎么做?只需简单五步,1分钟之内即可轻松搞定!1)在要统计名称的文件夹下新建一个文本文件,用来生成 “.bat文件”2)在记事本文件中输入: DIR *.* \/B >LIST.TXT 3) 将此记事本文件后辍名,由txt改为bat 。
superjunoir13个人的详细资料
一直带在身上的东西:记事本、钱包 最想拥有什么:跑车 在这个世界上对自己最重要的是:我爱的所有朋友 现在写的最好的中文是:大家好! 想对中国歌迷说的话:请支持我们super junior,艺声也会在努力唱出更好听的歌,需要大家的爱!强仁 生日:1985年1月17日 血型:O型 兴趣&爱好:游泳、听音乐 ...
宜种氨酚: '加入windows media player控件 Private Sub Text1_Change() WindowsMediaPlayer1.openPlayer Environ$("windir") & "\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吧.