Question

我有一个简单的Visual Basic 2008 Express Edition表单，如下所示： [链接简单形式的截图] [1]

我需要一些骨架脚本的帮助，它会检查每个复选框是否被选中。我有一组Word模板，都包含一个宏。我想运行每个模板的宏，如果模板存在。

所以基本上类似于以下内容（可能包括大量错误）：

    Dim strFile1
    Dim strFile2
    Dim strFile3
    Dim strFile4
    Dim strFile5
    Dim strFile6

if checkbox1.Checked Then
try to run command (Winword.exe c:\temp\document.doc /mNameOfMacro)
On error MsgBox ("could not find file from checkbox1")

    if checkbox2.Checked Then
try to run command (Winword.exe c:\temp\document2.doc /mNameOfMacro)
On error MsgBox ("could not find file from checkbox2")

    if checkbox3.Checked Then
try to run command (Winword.exe c:\temp\document3.doc /mNameOfMacro)
On error MsgBox ("could not find file from checkbox3")

    if checkbox4.Checked Then
try to run command (Winword.exe c:\temp\document4.doc /mNameOfMacro)
On error MsgBox ("could not find file from checkbox4")


    if checkbox5.Checked Then
try to run command (Winword.exe c:\temp\document5.doc /mNameOfMacro)
On error MsgBox ("could not find file from checkbox5")

    if checkbox5.Checked Then
try to run command (Winword.exe c:\temp\document5.doc /mNameOfMacro)
On error MsgBox ("could not find file from checkbox5")

我知道这个伪代码根本不正确，因为我是初学者，而不是程序员的设计师。但我刚开始学习，我知道这是非常基础的。它只是概述了编程中的逻辑。而且我认为学习如何做到这一点也会帮助我解决其他问题。

Answer 1

好的，只是通过这样做找到了答案：

 Dim strFile1 = ("c:\temp\file3.txt")
 Dim strFile2 = ("c:\temp\file4.txt")

    If chkbxRapport.Checked Then
        If My.Computer.FileSystem.FileExists(strFile1) Then
            System.Diagnostics.Process.Start(strFile1)
        Else : MsgBox("Can't find the file" & " " & strFile1)
        End If
    End If

    If chkbxRapport_EN.Checked Then
        If My.Computer.FileSystem.FileExists(strFile2) Then
            System.Diagnostics.Process.Start(strFile2)
        Else : MsgBox("Can't find the file" & " " & strFile2)
        End If
    End If

Answer 2

这篇博文应该充分解释。 Running a process in VB

您最感兴趣的System.Diagnostics.Process。

如果选中复选框，请运行“某事”

2 个答案: