Question

想用VB编一个小程序。

就是一个窗口，上面有一个几个按钮 按其中的一个按钮可以打开某某程序

Answer 1

放一个Text组件Text1，一个command组件command1.

双击command1，写以下代码：

Private Sub Command1_Click()

Shell Text1.Text, vbHide

End Sub

Answer 2

Private Sub Combo1_Click()
File1.Pattern = Combo1.Text
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
MsgBox File1.FileName
End Sub

Private Sub Form_Load()
Combo1.AddItem "*.txt"
Combo1.AddItem "*.dat"
Combo1.AddItem "*.jpg;*.wmf;*.gif"
Combo1.AddItem "*.*"
Combo1.Text = "*.txt"
File1.Pattern = "*.txt"
End Sub
不一定符合您的要求，但绝对有用

Answer 3

在按钮里面添加下面一句代码 就可以打开文本文件

调用别的exe程序 同理
shell "C:\WINDOWS\NOTEPAD.EXE"

Answer 4

按钮上的代码是 shell "c:\\abc.exe"

Answer 5

我帮你做
留下邮箱
我给你发过去
发到邮箱里了，注意收一下
那在作一个简单的窗体，显示提示信息，并把这个窗体永远显示在最前端就行了
具体做法
再加一个窗体frmMessage
上加一个label命名lblMessage
加一个按钮命名cmdOk
代码:
Option
Explicit
Private
Declare
Function
SetWindowPos
Lib
"user32"
(ByVal
hwnd
As
Long,
_
ByVal
hWndInsertAfter
As
Long,
ByVal
x
As
Long,
ByVal
y
As
Long,
_
ByVal
cx
As
Long,
ByVal
cy
As
Long,
ByVal
wFlags
As
Long)
As
Long
Private
Const
HWND_TOPMOST
=
-1
Private
Const
SWP_SHOWWINDOWS
=
&H40
Private
Sub
cmdOk_Click()
Unload
Me
End
Sub
Private
Sub
Form_Load()
Dim
retValue
As
Long
retValue
=
SetWindowPos(Me.hwnd,
HWND_TOPMOST,
Me.CurrentX,
_
Me.CurrentY,
300,
180,
SWP_SHOWWINDOWS)
lblMessage.Caption
=
frmMain.txtWarning.Text
End
Sub
最后把原来我给你的代码中的
MsgBox
txtWarning.Text,
vbInformation
+
vbOKOnly,
"提醒"
替换成
frmMessage.Show
,
frmMain
这样就可以了