Computerhilfen.de Logo
Forum
Tipps
News

lacht nicht! (VBA Grundwissen?!)

Hi Leute.

Habe mal eine Frage zu meinem nicht so (denke ich) elegantem Programm. Gibt’s vllt. ne Möglichkeit das kürzer zu formulieren.
Dieses Programm soll mir Combobox Inhalte (pdf, docx, etc.) nach Auswahl drucken oder einfach nur öffnen. Es treten auch sehr oft Fehlermeldungen im endgültig laufenden Programm auf.
Zu mir: Ich habe mich nur am Rande mit dem Programmieren beschäftigt, weil ich es schon immer cool fand und ich diese kleine Anwendung hier brauche. Vllt. hat einer Zeit mir das ding auch mal in einer etwas neueren Sprache zu zeigen. Ich hab bis jetzt nur VBA 2015 dafür genutzt.

Danke!


[ code]

Public Class Form1
    Private Sub Button1_click(sender As Object, e As EventArgs) Handles Button1.Click

        ' Öffnen

        If ComboBox1.SelectedItem = "" Then
            MsgBox("Nichts ausgewählt!")
        End If

        If ComboBox1.SelectedItem = "1" Then
            System.Diagnostics.Process.Start("C:\1.docx")
        End If

        If ComboBox1.SelectedItem = "2" Then
            System.Diagnostics.Process.Start("C:\2.docx")
        End If
       
        If ComboBox1.SelectedItem = "3" Then
            System.Diagnostics.Process.Start("C:\3.xls")
        End If

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        ' Drücken

        If ComboBox1.SelectedItem = "" Then
            MsgBox("Nichts ausgewählt!")
        End If

        If ComboBox1.SelectedItem = "1" Then
            Dim externeanwendung As New System.Diagnostics.Process()
            externeanwendung.StartInfo.FileName = "C:\1.docx"
            externeanwendung.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
            externeanwendung.StartInfo.Verb = "print"
            externeanwendung.Start()
        End If

        If ComboBox1.SelectedItem = "2" Then
            Dim externeanwendung As New System.Diagnostics.Process()
            externeanwendung.StartInfo.FileName = "C:\2.docx"
            externeanwendung.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
            externeanwendung.StartInfo.Verb = "print"
            externeanwendung.Start()
        End If

        If ComboBox1.SelectedItem = "3" Then
            Dim externeanwendung As New System.Diagnostics.Process()
            externeanwendung.StartInfo.FileName = "C:\3.xls"
            externeanwendung.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
            externeanwendung.StartInfo.Verb = "print"
            externeanwendung.Start()
        End If
       
     End Sub
     
End Class

[ /code]


Antworten zu lacht nicht! (VBA Grundwissen?!):

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button

Ich kenne jetzt kein VBA, aber machen die beiden Buttons nicht das gleiche? Also abhängig von der Auswahl "1.docx", "2.docx" oder "3.xls" öffnen?

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button

hi danke erstmal für die antwort.

also nein, der eine befehl öffnet die datei nach comboboxauswahl und der andere druckt sie direkt nach comboboxauswahl.

die Programmiersprache ist Basic oder Visual Basic und VBA ist das Programm von Microsoft zum coden Visual Basic for Applications.

Ich dachte vllt, dass es möglich wäre die dateien als Liste zu programmieren, dass ich nicht für jede einen eigenen "IF" Abschnitt brauche. (bzw. denke ich, dass das die Fehlermeldungen verursacht..)

Ich hab auch schon ne ganze menge zeit investiert und tonnen von seiten durchsucht.. aber wenn man eine Programmiersprache nicht von grund auf lernt, ist das meiner meinung nach nicht so einfach.

bzw. würde ich das programm auch in einer anderen Sprache schreiben, wenn mir einer eine Anleitung zeigt.

Danke!

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button

Was VBA ist weiß ich schon und mit BASIC habe ich auch mal angefangen, aber das war ein bisschen anders als dein VBA jetzt :-)


Welche Fehlermeldungen kommen denn? Dann kann man danach suchen und ich schau mir die VBA Syntax mal an!


« Turbo-Pascal Dreieck berechnenMatrizenmultiplikation forschleifen »
 

Schnelle Hilfe: Hier nach ähnlichen Fragen und passenden Tipps suchen!