Aiuto vb vi prego

giovedì 29 aprile 2010 - 10.29

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

kemper Profilo | Newbie

26 messaggi | Data Invio: gio 29 apr 2010 - 10:29

mettiamo il caso che voglia che ad un cerco evento (click esempio) si apra un file(una fotografia un video etc) ma con il programma predefiito di windows ...come si fa?

Dainesi Profilo | Senior Member

476 messaggi | Data Invio: gio 29 apr 2010 - 10:54

Puoi sempre evitare il programma predefinito selezionandolo a priori.
Autore del libro sul FOREX, MetaTrader e creazione dei trading system http://ilmiolibro.kataweb.it/schedalibro.asp?id=115872

kemper Profilo | Newbie

26 messaggi | Data Invio: gio 29 apr 2010 - 12:05

mi puoi scrivere il codice?allabfine io vorrei emulare il doppiomclick...cioè che faccia la stessa cosa...

nicorvp Profilo | Newbie

9 messaggi | Data Invio: ven 14 mag 2010 - 18:43

 Dim myprocess As New Process
        With myprocess
            .StartInfo.FileName = "C:\.....\file.xyz"
            .StartInfo.WindowStyle = ProcessWindowStyle.Maximized
            .Start()
        End With

nicorvp Profilo | Newbie

9 messaggi | Data Invio: ven 14 mag 2010 - 18:43

 Dim myprocess As New Process
        With myprocess
            .StartInfo.FileName = "C:\.....\file.xyz"
            .StartInfo.WindowStyle = ProcessWindowStyle.Maximized
            .Start()
        End With

Cao Profilo | Newbie

4 messaggi | Data Invio: mar 18 mag 2010 - 14:11

Ciao Kemper,
puoi inserire questo codice in un modulo vb.

Poi vai a chiamare la funzione ShellDocument in cui gli puoi anche solo passare il path del file che intendi aprire.... ed il gioco è fatto.

Esempio.

Option Explicit

Public Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)
Public Enum StartWindowState
START_HIDDEN = 0
START_NORMAL = 4
START_MINIMIZED = 2
START_MAXIMIZED = 3
End Enum

Public Function ShellDocument(sDocName As String, _
Optional ByVal Action As String = "Open", _
Optional ByVal Parameters As String = vbNullString, _
Optional ByVal Directory As String = vbNullString, _
Optional ByVal WindowState As StartWindowState) As Boolean
Dim Response
Response = ShellExecute(&O0, Action, sDocName, Parameters, Directory, WindowState)
Select Case Response
Case Is < 33
ShellDocument = False
Case Else
ShellDocument = True
End Select
End Function

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !