Postada em 21/02/2011 11:37 hs
olha colega vc poderia fazer assim:
primeiro não sei seu nivel de conhecimento em VB porém só irei explicar o que fazer, não poderei criar códigos pra vc
então vamos lá
voce pode abrir um documento com o programa associado, ou seja se for doc abre com word se for ppt abre com power point.
veja o código
'em um módulo
#If Win32 Then
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) As Long
#Else
Public Declare Function ShellExecute Lib _
"shell.dll" _
(ByVal hwnd As Integer, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Integer) As Integer
#End If
Public Const SW_SHOWNORMAL = 1
depois no form vc chama assim
a principio pode criar varios botões com os caminhos associados
exemplo cire um botão com o nome do hino 1
cole nele
Private Sub Command1_Click()
Dim iret As Long
iret = ShellExecute(Me.hwnd, vbNullString, "C:pasta do hinohino1.ppt", vbNullString, "C:", SW_SHOWNORMAL)
End Sub
e assim para os demais hinos.
bom acima citei uma form simples de se proceder, porém eu se fosse fazer algo do tipo criaria um formulário onde eu selecionaria o caminho do ppt, e em um campo text colocaria o nome do hino, depois salvaria estes em um arquivo INI, e exibiria uma lista dos caminhos criados, em um listbox mesmo, onde eu selecionaria o hino desejado e pronto.
|
