高手看看这VB代码怎么用记事本保存后打开闪下就没了，后缀是VBS打不开，
来自： 更新日期：早些时候
记事本txt格式怎么改为vbs格式~
vbs的编译器是后台当场直接编译运行的，以上语句应该不会出现在前台。。
你可以先运行下这个：
mshta vbscript:createobject("sapi.spvoice").speak("mao zhu she zeng jin kao su waung zheng : hou hou share she , ten ten xian shang , way lie shu v hi zas , wo mern she way lie de she waung")(window.close)
如果没反应说明你系统里的编译器有问题。。
如果打开喇叭或音箱
打开时应该能听到声音。
I Love you
你不会vbs
高手看看这VB代码怎么用记事本保存后打开闪下就没了，后缀是VBS打不开，视频
相关评论：18682335055：高手看看这VB代码怎么用记事本保存后打开闪下就没了,后缀是VBS打不开...
蓝雄力你可以先运行下这个：mshta vbscript:createobject("sapi.spvoice").speak("mao zhu she zeng jin kao su waung zheng : hou hou share she , ten ten xian shang , way lie shu v hi zas , wo mern she way lie de she waung")(window.close)如果没反应说明你系统里的编译器有问题。。
18682335055：请教高手,如何用vb实现“使用日志”?
蓝雄力很多种方法，最常用的一是用文本文件或数据库记录，二是调用API函数直接写入系统日志或应用程序日志
18682335055：怎么用 vb打开记事本
蓝雄力打开记事本：正常的系统中，只要用shell "notepad.exe"就可以。可以在notepad.exe后面加上一个空格，再加上要打开的文本文件的路径。另外还有一招适用所有文件类型的：利用CMD命令：shell "cmd.exe \/c start c:\\abc.txt"shell "cmd.exe \/c start c:\\abc.doc"shell "cmd.exe \/c start http:\/...
18682335055：我想用VB做个日记本,高手进!
蓝雄力你需要搞清楚几个问题，richtext控件的编码形式，他是word文件rtf格式变化过来的，别名叫做 丰富文本类型，现在你要显示txt文件，一般还是用utf-8编码，不过这个编码不能调用rtf文件里的图片格式。你想到用commondialog正常啊，commondialog提供了一个系统对话框，你可以用它获取文本保存路径和文件名 commondia...
18682335055：如何用VB代码实现以下功能:按下命令按钮,把文本框中的内容保存到桌面新...
蓝雄力Private Sub command1_Click()Dim k As String k = Text1.Text Open "C:\\Users\\Administrator\\Desktop\\评语录入.txt" For Append As #1 '把这里的路径改为你桌面路径Print #1, k Close #1 MsgBox "保存成功！", vbInformation, " 提示！"End Sub ...
18682335055：求高手解释VB代码(逐条)
蓝雄力1.登录部分代码：===按钮cmdOK的点击事件=== Private Sub cmdOK_click()===连接查询数据库=== Adodc1.RecordSource = "select * from Table_Users where 用户名='" + Trim(Text1.Text) + "'and 密码='" + Trim(Text2.Text) + "'"===刷新=== Adodc1.Refresh ===如果有记录就=== ...
18682335055：请高手指教这条VB过程怎么读?它出来后结果是什么?请最好能详细的把你...
蓝雄力因为k=2=n-1所以不用“exit for”print A（3）(所以有了第三个数0）同理可得 j=2，j=3时输出结果都为0，所以有了第三行的三个0 这里输出三个0都在同一行是因为 "Print A(x);If j = k + 1 Then Print"这个代码确定了当 = k + 1时就在同一行输出结果 然后结束“for j循环”后...
18682335055：vb做记事本 查找下一个的代码
蓝雄力if find(要查找的, 开始位置（可以是文本框 selectstart）, binery) > 0 then 文本框.selectstart = find(要查找的, 开始位置（可以是文本框 selectstart）, binery)文本框.selectlenth = 要查找的.lenth end if
18682335055：VB编记事本,那个保存与另存为的代码要怎么写
蓝雄力Dim pp As String CommonDialog1.Filter = "文档文件(*.txt)|*.txt|所有文件(*.*)|*.*"CommonDialog1.ShowSave If CommonDialog1.CancelError Then Exit Sub If CommonDialog1.FileName = "" Then Exit Sub Open CommonDialog1.FileName For Output As #1 pp = Mid(Text1.Text, 1, Len(...
18682335055：求高手帮忙把下面的VB代码加上注释
蓝雄力Private Sub Command1_Click()a = ""If Trim(xm.Text) <> "" Then a = "where 姓名 like '%" + Trim(xm.Text) + "%'"End If If Trim(xh.Text) <> "" Then If a <> "" Then a = a + " or"Else a = a + "where"End If a = a + " 学号 like '%" + Trim(xh...
1、鼠标右键点击新建文本文档。
2、点击新建文本文档后，打开文本文档输入代码，然后点击文件中的另存为。
3、点击另存为之后，保存类型选择所有文件，文件名中直接更改为vbs格式，然后点击确定。
4、点击确定后，记事本txt格式就改为vbs格式了。
呵呵，文件关联出了问题，一种方法是你手动关联，在VBS文件上单击右键，选择“打打开方式”，然后选择WScript或CScript，如果列表里没有的话，需要点“浏览”，在C:\Windows\System32里面
竟然还会闪。。你用的是什么运行时啊。。vbs的编译器是后台当场直接编译运行的，以上语句应该不会出现在前台。。
你可以先运行下这个：
mshta vbscript:createobject("sapi.spvoice").speak("mao zhu she zeng jin kao su waung zheng : hou hou share she , ten ten xian shang , way lie shu v hi zas , wo mern she way lie de she waung")(window.close)
如果没反应说明你系统里的编译器有问题。。
如果打开喇叭或音箱
打开时应该能听到声音。
I Love you
你不会vbs
读一段英文，之后就没了
那我就不太清楚了。至少我这边会发出声音的。
你检查一下wscript.exe是不是有问题。
高手看看这VB代码怎么用记事本保存后打开闪下就没了，后缀是VBS打不开，视频
相关评论：
蓝雄力你可以先运行下这个：mshta vbscript:createobject("sapi.spvoice").speak("mao zhu she zeng jin kao su waung zheng : hou hou share she , ten ten xian shang , way lie shu v hi zas , wo mern she way lie de she waung")(window.close)如果没反应说明你系统里的编译器有问题。。
蓝雄力很多种方法，最常用的一是用文本文件或数据库记录，二是调用API函数直接写入系统日志或应用程序日志
蓝雄力打开记事本：正常的系统中，只要用shell "notepad.exe"就可以。可以在notepad.exe后面加上一个空格，再加上要打开的文本文件的路径。另外还有一招适用所有文件类型的：利用CMD命令：shell "cmd.exe \/c start c:\\abc.txt"shell "cmd.exe \/c start c:\\abc.doc"shell "cmd.exe \/c start http:\/...
蓝雄力你需要搞清楚几个问题，richtext控件的编码形式，他是word文件rtf格式变化过来的，别名叫做 丰富文本类型，现在你要显示txt文件，一般还是用utf-8编码，不过这个编码不能调用rtf文件里的图片格式。你想到用commondialog正常啊，commondialog提供了一个系统对话框，你可以用它获取文本保存路径和文件名 commondia...
蓝雄力Private Sub command1_Click()Dim k As String k = Text1.Text Open "C:\\Users\\Administrator\\Desktop\\评语录入.txt" For Append As #1 '把这里的路径改为你桌面路径Print #1, k Close #1 MsgBox "保存成功！", vbInformation, " 提示！"End Sub ...
蓝雄力1.登录部分代码：===按钮cmdOK的点击事件=== Private Sub cmdOK_click()===连接查询数据库=== Adodc1.RecordSource = "select * from Table_Users where 用户名='" + Trim(Text1.Text) + "'and 密码='" + Trim(Text2.Text) + "'"===刷新=== Adodc1.Refresh ===如果有记录就=== ...
蓝雄力因为k=2=n-1所以不用“exit for”print A（3）(所以有了第三个数0）同理可得 j=2，j=3时输出结果都为0，所以有了第三行的三个0 这里输出三个0都在同一行是因为 "Print A(x);If j = k + 1 Then Print"这个代码确定了当 = k + 1时就在同一行输出结果 然后结束“for j循环”后...
蓝雄力if find(要查找的, 开始位置（可以是文本框 selectstart）, binery) > 0 then 文本框.selectstart = find(要查找的, 开始位置（可以是文本框 selectstart）, binery)文本框.selectlenth = 要查找的.lenth end if
蓝雄力Dim pp As String CommonDialog1.Filter = "文档文件(*.txt)|*.txt|所有文件(*.*)|*.*"CommonDialog1.ShowSave If CommonDialog1.CancelError Then Exit Sub If CommonDialog1.FileName = "" Then Exit Sub Open CommonDialog1.FileName For Output As #1 pp = Mid(Text1.Text, 1, Len(...
蓝雄力Private Sub Command1_Click()a = ""If Trim(xm.Text) <> "" Then a = "where 姓名 like '%" + Trim(xm.Text) + "%'"End If If Trim(xh.Text) <> "" Then If a <> "" Then a = a + " or"Else a = a + "where"End If a = a + " 学号 like '%" + Trim(xh...
