Wenn Kontrollkästchen aktiviert ist, führen Sie "etwas"

Question

ich eine einfache Visual Basic 2008 Express Edition Form habe, die wie folgt aussieht: [link Screenshot von einfacher Form] [1]

Ich brauche Hilfe mit einem Skeleton-Skript, das überprüft, ob jedes Kontrollkästchen aktiviert ist oder nicht. Ich habe eine Reihe von Word-Vorlagen, die alle ein Makro enthalten. Und ich möchte das Makro jeder Vorlage ausführen, , wenn die Vorlage vorhanden ist.

Also im Grunde so etwas wie die folgenden (einschließlich Lasten von Fehlern, wahrscheinlich):

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") 

Ich weiß, der Pseudo-Code überhaupt nicht richtig ist, weil ich irgendwie ein Anfänger bin und Designer über eine Programmierer. Aber ich habe gerade angefangen zu lernen und ich weiß, das ist ziemlich einfach. Es bekommt nur einen Überblick über die Logik in der Programmierung. Und ich denke, dass es mir auch mit anderen Dingen helfen wird, das zu lernen.

Answer 1

Ok, habe gerade die Antwort, indem Sie diese:

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

Dieser Blogbeitrag sollte es ausreichend erklären. . Running a process in VB

Seine System.Diagnostics.Process, die Sie am meisten interessiert sind