什么样的VB代码能在双击文件夹时文件夹打开而自己的文件打开?
VB 的代码 Shell "cmd.exe /c call c:\1.txt" 打开 C盘下的 1.TXT文件
从Command中获取取文件名及地址,再让WindowsMediaPlayer读取该文件。
在Form_Load事件中
dim audfile as string
if Command"" then
audfile=mid(command,2,len(command)-2)
用WindowsMediaPlayer读取文件,这句我不会写。
end if
Private Sub Command1_Click()
If Text1 = "global" Then'密码
DeFolder "vrv" '文件夹名
Else
MsgBox "Error", vbCritical
Unload Me
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Function EnFolder(FolderName As String) As Boolean
Open App.Path & IIf(Len(App.Path) > 3, "\", "") & "en.bat" For Output As #1
Print #1, "Ren " & FolderName & " " & FolderName & ".{d6277990-4c6a-11cf-8d87-00aa0060f5bf}"
Print #1, "attrib +h +s " & FolderName & ".{d6277990-4c6a-11cf-8d87-00aa0060f5bf}"
Print #1, "Del en.bat"
Close #1
Shell App.Path & IIf(Len(App.Path) > 3, "\", "") & "en.bat", vbHide
End Function
Private Function DeFolder(FolderName As String) As Boolean
Open App.Path & IIf(Len(App.Path) > 3, "\", "") & "de.bat" For Output As #1
Print #1, "attrib -h -s " & FolderName & ".{d6277990-4c6a-11cf-8d87-00aa0060f5bf}"
Print #1, "Ren " & FolderName & ".{d6277990-4c6a-11cf-8d87-00aa0060f5bf} " & FolderName
Print #1, "explorer.exe " & FolderName
Print #1, "Del de.bat"
Close #1
Shell App.Path & IIf(Len(App.Path) > 3, "\", "") & "de.bat", vbHide
End Function
Private Sub Form_Load()
If App.PrevInstance = True Then
End
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
EnFolder "Vrv"
End Sub
他的意思大概是说:一个用VB编好的exe文件,放到某个文件夹中。当访问这个文件夹而双击这个文件夹时,exe文件首先运行,而此时文件夹不打开。当在exe程序界面下按下某个按钮,才让你打开这个文件夹——翻译完毕!
你的描述太难懂,建议再想想
在VB中,编写程序代码应在什么中进行
c 代码窗口 没听说过对象窗口喔~对象浏览器:列出工程中有效的对象,并提供在编码中漫游的快速方法。可以使用“对象浏览器”浏览在 Visual Basic 中的对象和其它应用程序,查看对那些对象有效的方法和属性,并将代码过程粘贴进自己的应用程序。属性窗口:列出对选定窗体和控件的属性设置值。属性是指对象的...
用VB.NET编程有什么好处
在vb.net中, 可以利用构造函数为对象赋初值,这样就不需要进行烦琐的调用赋初值了。构造函数的使用,简化了编码的过程和出错的机会。 2.vb.net编写线程的能力比vb 6.0有很大的增强。 3.在vb 6.0中,需要首先声明一个变量,然后才能对其赋值,这样就需要写两行代码。在vb.net中,可以 使用初始化...
...任何类型的文件,可以在这个窗口下打开或运行里面的程序
我用Drivelistbox Dirlisebox 和 filelistbox 来给你写一段 StartUpPosition = 2窗体就置中了 有人用start命令 可这个在XP下没有 可以通过shell "cmd,exe \/c "来调用默认的打开方式 Private Sub Dir1_Change()File1.Path = Dir1.Path End Sub Private Sub Drive1_Change()Dir1.Path = ...
inputbox在vb中怎么用?
用户交互函数:VB提供InputBox()和MsgBox()函数用于人机交互。VB程序设计中常用的交互函数,其功能非常强大,可以显示多种样式的消息对话框。该函数的返回结果为一数值,其中,“按钮”参数一般用VB的内部符,这些符号常量有vbOkOnly.vbOKCancel.vbYesNo.vbYesNoCanse等等,他们一般可以望文生义。代码...
VBS能不能用到VB中
你把所有CreateObject前的的 wscript. 都删掉就可以了 "wscript.shell"不能删,第一次回答时没注意代码中还有"wscript.shell"VB也有 CreateObject 函数,wscript 是vbs的脚本宿主,实际上vbs也有 CreateObject 函数,在vbs中也可以不加 wscript.在vbs中直接用 CreateObject 函数是调用文件 vbscript.dll 中的...
VB中如何用代码添加命令按钮
按以下步骤实现动态添加命令按钮 (1)新建一个VB6工程 (2)Form1窗体代码 Option Explicit'定义要动态添加的命令按钮变量(带事件处理)Dim WithEvents cmdX As CommandButton'点击动态添加的按钮,弹出对话框Private Sub cmdX_Click() MsgBox "动态添加的命令按钮!!!"End Sub'鼠标双击窗体,动态...
vb程序是什么?
不需编写大量代码去描述界面元素的外观和位置,而只要把预先建立的对象add到屏幕上的一点即可。如果已使用过诸如 Paint 之类的绘图程序,则实际上已掌握了创建用户界面的必要技巧。“Basic”指的是 BASIC (Beginners All-Purpose Symbolit Instruction Code) 语言,一种在计算技术发展历史上应用得最为广泛的...
vb应用程序除了以解释方式进行,还可以以什么方式进行
vb应用程序除了以解释方式进行,还可以编译成本机代码,在计算机的系统下直接运行。将工程编译成本机代码 如果拥有 Visual Basic 的专业版或企业版,既可以将代码编译成标准的 Visual Basic 伪代码格式,也可以编译成本机代码格式。本机代码编译提供了伪代码编译所没有的关于优化和调试的几个选项。P-code...
VB左右移动图像代码
将图像放在图像框内,更改图像框的left属性的值就行了。Private Sub Command1_Click()Image1.Left = Image1.Left + 200 '向右移动 End Sub Private Sub Command2_Click()Image1.Left = Image1.Left - 200 '向左移动 End Sub
VB代码,要能用的(记事本)
这时左边的工具栏上出现了我们刚才新添的两个控件了。在窗体上绘制RichText Box和Commn Dialog,其中RichText Box的大小和位置可不用理睬,我们将在代码中处理它,当然,有必要把它的ScrollBar属性设为2-rtfVertical,这样在打开和编辑文件时垂直滚动条才可用。 步骤二:编辑菜单。按Ctrl+E调出菜单编辑...
东方的长久: VB的事件只能管自家内部的事情,而桌面是公共场所,VB本身的功能管不了那么宽的,必须借助系统的API函数才能实现了.
浈江区13162009910: vb程序如何对一个文件产生相当于鼠标双击后的效果? - ?
东方的长久: Shell "Explorer.exe" & Chr(34) & 文件地址 & Chr(34),1,0,0 这样Shell调用explorer.exe只要你所指向的文件地址是正确的且在系统中有可用的文件关联就能被正确的打开.如果是.exe ,.bat等会直接被执行.如果是.txt会直接用记事本打开.
浈江区13162009910: 如何在VB里面点击一下按钮,能够直接弹出一个位于同一文件夹内的文本文档? - ?
东方的长久: Private Sub Command1_Click() Dim Filepath AS String Filepath=app.path If Right(Filepath,1)"\" Then Filepath=Filepath & "\" Filepath=Filepath & "文件名.txt" Shell notepad Filepath End Sub
浈江区13162009910: 急!如何VB文件列表框双击文件名在文本框中显示文件内容? - ?
东方的长久: 修改file_dblclick如下Private Sub file_dblclick() Dim s$ If Right(File1.Path, 1) = "\" ThenfName = File1.Path + File1.FileName ElsefName = File1.Path + "\" + File1.FileName End If Text1.Text = fName Text1.MultiLine = True Open fName For ...
浈江区13162009910: VB编程 编写一个程序,双击后,打开一个文件夹,同时运行一个EXE文件,怎么编写? - ?
东方的长久: Private Sub Form_Load() '打开后运行下面代码后自动结束 Shell "cmd.exe /c explorer C:\aa", vbMinimizedFocus Shell "C:\bb.exe", vbMinimizedFocus End End Sub
浈江区13162009910: 在VB中如何实现双击文件时能调用记事本进行编辑此文件 - ?
东方的长久: 双击事件里写Shell "c:\windows\notepad.exe " & filename(文件路径名称)
浈江区13162009910: VB编写双击打开文件 - ?
东方的长久: 在编写程序的窗口(这个你应该知道吧?也就是“代码窗口”) 然后你看它的右上角的叉叉的下面,有一个黑色倒三角箭头的,点一下 出来一列东西,选其中的Dbclick,然后编写代码~~~这样的话就是你双击触发你所编写的代码,单击不触发了
浈江区13162009910: vb中怎么实现双击执行当前文件 - ?
东方的长久: Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub File1_DblClick() Shell "cmd.exe /c " + IIf(Right$(Dir1.Path, 1) = "\", Dir1.Path, Dir1.Path + "\") + File1....
浈江区13162009910: (VB)Filelist双击打开文件 代码怎么写? - ?
东方的长久: 代码如下.============= Const O As String = "rundll32 url.dll,FileProtocolHandler """ Private Sub File1_DblClick() Shell O & File1.FileName & """", vbNormalFocus End Sub
浈江区13162009910: 如何让编译成exe文件的vb程序一双击就是窗口最大化运行呢? - ?
东方的长久: 令窗体属性WindowState = 2就是最大化;窗体属性icon选择图标,就是你程序图标.