1.让你的程序只运行一次

你自己编写的程序是否可以运行多个,你是否看见有些程序运行多个时会提示程序已正在运行,下面就让我们来实现这个功能,其实非常简单,只要用APP的一个方法就可以了,在程序加载时,调用一下APP的PrevInstance方法就可以检测程序是否正在运行,程序好下

建立一个窗体,在代码中输入如下代码即可:

Option Explicit

Private Sub Form_Load()
If App.PrevInstance Then
      MsgBox "The programe is running now,you shouldn't run the program again!", vbOKOnly + vbExclamation, "imformation"
      End
End If
End Sub

2调用系统文件夹

你是否可以用Commandialog控件轻易的调用系统中的文件,你可知怎样调用系统中的文件夹呢?看了下面的你就知道了:

首先用CreateObject函数来创建一个shell.application对象.Set a = CreateObject("shell.application"),然后给这个对象的BrowseForFolder传递"窗体的句柄,select folder和0"参数,调用过程已经完成,为了得到路径和文件夹名,我们将返回值传递给另一个对象b,然后就可以调用b的两个方法即可得到文件夹路径和文件夹名,相关程序如下:

建立一个窗体,添加两个TEXT控件,分别命名为text1,text2;另外添加一个命令按钮Command1,在代码中添加好下代码:

Option Explicit

Private Sub Command1_Click()
      On Error Resume Next
      Dim a As Object
      Set a = CreateObject("shell.application")
      Dim b As Object
      Set b = a.BrowseForFolder(Me.hWnd, "select folder", 0)
      Text1 = b.Title
      Text2 = b.Self.Path
End Sub

text1就显示文件夹名,text2显示文件夹路径

3.关闭窗体前提示

你是否当心一不小心关掉窗体而又要重新运行程序,但却某些结果没有保存下来,就像记事本一样,那你就得在关闭窗体前提示用户是否关闭.具体我就不说了,太简单,就是改变Form_Unload方法中cancel的值,建立一个窗体,输入代码如下:

Option Explicit

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Are you sure to exit?", vbYesNo + vbInformation, "imformation") = vbYes Then
      Unload Me
Else
      Cancel = 1
End If
End Sub

4.文本框输入发声

你是否用过金山打字,当你按下一个键时,发出一种清脆的声音,你是否觉得感觉很特别,其实你也能,建立一个标准模块,输入代码如下:

Option Explicit
Dim Play As Boolean

Public Sub Click(FRM As Form)
With FRM.MMC_Click
      If Play Then
          .Command = "close"
      End If
      .FileName = App.Path + "\type.wav"       '指定路径
      .Command = "open"         '打开路径
      .Command = "play"         '播放路径中的文件
      Play = True
End With
End Sub

建立一个窗体,添加一个文本框控件Text1,再添加一个MMC控件(Micorsoft Multimedia Control 6.0),命名为MMC_Click,输入以下代码:

Option Explicit

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Click Me
End Sub

然后在程序当前目录下添加一个你想要发出声音的文件(WAV文件),命名为type.wav,运行程序后时,在文本框中输入字符,你就听到了你想要的声音.