|
VB 4/6- und VBA-Forum - Beitragsübersicht - |
|
Thema | VB6: Browser auswahl |
Von |
UnReal |
E-Mail |
chambers1@gmx.net |
Datum |
01. Juli 2014 um 18:55:29 |
Frage |
Hallo Leute, ich hab in mein Programm die Auswahlmöglichkeit einiger installierter Browser eingebaut. aber diese auch den Labels zu geordnet nun hab ich festgestellt wenn zB. der Erste (Google Chrome) nicht installiert ist kommt logischerweise eine Fehlermeldung. Wie kann ich das am besten umgehen? Sub Browser() Dim strDateic As String Dim strPfadc As String Dim strDateie As String Dim strPfade As String Dim strDateif As String Dim strPfadf As String Dim strDatein As String Dim strPfadn As String Dim strDateio As String Dim strPfado As String strDateic = "Chrome.exe" strPfadc = "C:\Users\" & bn & "\AppData\Local\Google\Chrome\Application\" LblBrowser(0).Visible = fncIstDateiVorhanden(strDateic, strPfadc) If LblBrowser(0).Visible = True Then ListBrowser.List(0) = LblBrowser(0).Caption: LblBrowserInd.Caption = "0" strDateic = "Chrome.exe" strPfadc = "C:\Program Files\Google\Chrome\Application" LblBrowser(0).Visible = fncIstDateiVorhanden(strDateic, strPfadc) If LblBrowser(0).Visible = True Then ListBrowser.List(0) = LblBrowser(0).Caption: LblBrowserInd.Caption = "1" strDateie = "iexplore.exe" strPfade = "C:\Programme\Internet Explorer" LblBrowser(1).Visible = fncIstDateiVorhanden(strDateie, strPfade) If LblBrowser(1).Visible = True Then ListBrowser.List(1) = LblBrowser(1).Caption strDateif = "Firefox.exe" strPfadf = "C:\Programme\Mozilla Firefox" LblBrowser(2).Visible = fncIstDateiVorhanden(strDateif, strPfadf) If LblBrowser(2).Visible = True Then ListBrowser.List(2) = LblBrowser(2).Caption strDatein = "Netscp.exe" strPfadn = "C:\Programme\Netscape\Netscape" LblBrowser(3).Visible = fncIstDateiVorhanden(strDatein, strPfadn) If LblBrowser(3).Visible = True Then ListBrowser.List(3) = LblBrowser(3).Caption strDateio = "opera.exe" strPfado = "C:\Programme\Opera" LblBrowser(4).Visible = fncIstDateiVorhanden(strDateio, strPfado) If LblBrowser(4).Visible = True Then ListBrowser.List(4) = LblBrowser(4).Caption End Sub vielen dank schon mal |
|
Antwort: |
Von |
UnReal |
E-Mail |
chambers1@gmx.net |
Datum |
02. Juli 2014 um 18:33:49 |
Antwort |
so mein ich das Problem gelöst zu habenSub Browser() Dim strDateic As String Dim strPfadc As String Dim strDateie As String Dim strPfade As String Dim strDateif As String Dim strPfadf As String Dim strDatein As String Dim strPfadn As String Dim strDateio As String Dim strPfado As String strDateic = "Chrome.exe" strPfadc = "C:\Users\" & bn & "\AppData\Local\Google\Chrome\Application\" If fncIstDateiVorhanden(strDateic, strPfadc) = True Then ListBrowser.AddItem "Google Chrome" strDateic = "Chrome.exe" strPfadc = "C:\Program Files\Google\Chrome\Application" If fncIstDateiVorhanden(strDateic, strPfadc) = True Then ListBrowser.AddItem "Google Chrome" strDateie = "iexplore.exe" strPfade = "C:\Programme\Internet Explorer" If fncIstDateiVorhanden(strDateie, strPfade) = True Then ListBrowser.AddItem "MS Explorer" strDateif = "Firefox.exe" strPfadf = "C:\Programme\Mozilla Firefox" If fncIstDateiVorhanden(strDateif, strPfadf) = True Then ListBrowser.AddItem "Firefox" strDatein = "Netscp.exe" strPfadn = "C:\Programme\Netscape\Netscape" If fncIstDateiVorhanden(strDatein, strPfadn) = True Then ListBrowser.AddItem "Netscape" strDateio = "opera.exe" strPfado = "C:\Programme\Opera" If fncIstDateiVorhanden(strDateio, strPfado) = True Then ListBrowser.AddItem "Opera" For lb = 0 To LblBrowser.Count - 1 LblBrowser(lb).Visible = True LblBrowser(lb).Caption = " " & ListBrowser.List(lb) & " " Next For lb = ListBrowser.ListCount To LblBrowser.Count - 1 LblBrowser(lb).Visible = False LblBrowser(ListBrowser.ListCount - 1).Visible = True Next End Sub Private Sub LblBrowser_Click(Index As Integer) If LblBrowser(Index).Caption = " Google Chrome " Then Shell "C:\Program Files\Google\Chrome\Application\Chrome.exe" If LblBrowser(Index).Caption = " MS Explorer " Then Shell "C:\Programme\Internet Explorer\iexplore.exe" If LblBrowser(Index).Caption = " Firefox " Then Shell "C:\Programme\Mozilla Firefox\Firefox.exe" If LblBrowser(Index).Caption = " Netscape " Then Shell "C:\Programme\Netscape\Netscape\Netscp.exe" If LblBrowser(Index).Caption = " Opera " Then Shell "C:\Programme\Opera\Opera.exe" End Sub aber fals jemand eine andere oder bessere Lösung haben sollte... heeeeerdamit |
|
[ Antwort schreiben | Zurück zum VB 4/6- und VBA-Forum | Forum-Hilfe ] |
|
Letzte Aktualisierung: Sonntag, 13. Dezember 2015 |
|