Programación General > Visual Basic 6.0 e inferiores

 Aplicacion Con .swf

<< < (3/3)

Makko:
tiquinho: yo agradeci las soluciones que me dieron, pero encontre otra forma.
De todos modos, yo  voy a poner el codigo, yo no tengo drama en compartir mis conocimientos con uds.  :comp:
Use el OCX del Flash  :D
Lo que si te voy a pedir es que me trates con respto, porque yo a ti no te he faltado el respeto :angry:
Bueno, para los que lo necesiten aca se los dejo.

--- Código: Text ---Public Declare Function GetOpenFileName Lib &#34;comdlg32.dll&#34; Alias _&#34;GetOpenFileNameA&#34; (pOpenfilename As OPENFILENAME) As Long Public Declare Function CommDlgExtendedError Lib &#34;comdlg32.dll&#34; () As Long Public FileOP As StringPublic Const OFN_FILEMUSTEXIST = &H1000Public Const OFN_HIDEREADONLY = &H4 Public OFN As OPENFILENAMEPublic Type OPENFILENAME        lStructSize As Long        hwndOwner As Long        hInstance As Long        lpstrFilter As String        lpstrCustomFilter As String        nMaxCustFilter As Long        nFilterIndex As Long        lpstrFile As String        nMaxFile As Long        lpstrFileTitle As String        nMaxFileTitle As Long        lpstrInitialDir As String        lpstrTitle As String        flags As Long        nFileOffset As Integer        nFileExtension As Integer        lpstrDefExt As String        lCustData As Long        lpfnHook As Long        lpTemplateName As StringEnd Type 

--- Código: Text ---Public Sub Form_Load() FileOP = Command()If Len(FileOP) Then   If Left&#036;(FileOP, 1) = &#34;&#34;&#34;&#34; Then   FileOP = Left&#036;(FileOP, Len(FileOP) - 1)   FileOP = Right&#036;(FileOP, Len(FileOP) - 1)   Else   End IfIf Right&#036;(LCase&#036;(FileOP), 4) &#60;&#62; &#34;.swf&#34; ThenBeepMsgBox &#34;formato inesperado.    &#34;, vbExclamation Exit SubEnd IfSwfPlayer.ShockwaveFlash1.Movie = FileOPSwfLoad.ShowSwfPlayer.ShowExit SubEnd If End Sub 
Eso es trodo., Obvio... colocas eso en un modulo.
Suerte!  :hola:

tiquinho:
Siento que hayas pensado así, no era mi intención faltarte al respeto  :losiento:
Creo que sí se me fue un poco la olla(intento reconocer mi error), pero creo que dije lo que pensaba, y no era nada contra ti ni contra nadie, y lo último que quería era faltarte al respeto.  Sólo pretendía dar mi opinión, y supongo que no lo he hecho de la mejor manera.

Si dije lo que dije es pq yo no tenía mucha idea del tema, y aunque no lo necesitaba, quería saber que tendría que hacer si algún día me hiciese falta.  Nada más.

Vuelvo a pedirte disculpas :nosweat:  Paz tio :hippi:

Makko:
Esta todo bien, no te hagas drama. :P
Espero que te sea de utilidad.-
Suerte!  :hola:

Navegación

[0] Índice de Mensajes

[*] Página Anterior