Rilasciato ISObuster 2.3

Nel sito ufficiale di ISObuster (http://www.isobuster.com/it/) è possibile scaricare la nuova versione 2.3 del prodotto.

Questo prodotto consente di aprire molti formati immagine di CD-ROM e DVD, come ad esempio i file ISO distribuiti da Microsoft per le proprie immagini da utilizzare per la masterizzazione dei supporti di installazione dei prodotti software.

#14 Aprire un file PDF

Per aprire un file PDF in VB6/VBA, con il programma predefinito (solitamente Acrobat Reader), è possibile utilizzare il seguente codice:

' Sezione dichiarazioni
Public Declare Function ShellExecute _
  Lib "shell32.dll" Alias "ShellExecuteA" _
  (ByVal hwnd As Long, ByVal lpszOp As String, _
  ByVal lpszFile As String, ByVal lpszParams As String, _
  ByVal LpszDir As String, ByVal FsShowCmd As Long) As Long   

Public Declare Function GetDesktopWindow Lib "user32" () As Long
Public Sub ApriPDF(NomeFile As String)
  Const SW_SHOWNORMAL As Long = 1
  Const ERROR_BAD_FORMAT As Long = 11
  Const SE_ERR_ACCESSDENIED As Long = 5
  Const SE_ERR_ASSOCINCOMPLETE As Long = 27
  Const SE_ERR_DDEBUSY As Long = 30
  Const SE_ERR_DDEFAIL As Long = 29
  Const SE_ERR_DDETIMEOUT As Long = 28
  Const SE_ERR_DLLNOTFOUND As Long = 32
  Const SE_ERR_FNF As Long = 2         '  file non trovato
  Const SE_ERR_NOASSOC As Long = 31
  Const SE_ERR_PNF As Long = 3         '  percorso non trovato
  Const SE_ERR_OOM As Long = 8         '  memoria esaurita
  Const SE_ERR_SHARE As Long = 26   

  Dim Scr_hDC As Long
  Dim ret As Long
  Dim sMsg As String
  Dim risposta As Long   

  Scr_hDC = GetDesktopWindow()
  ret = ShellExecute(Scr_hDC, "Open", _
      App.Path & "\RELAZIONI\" & _
      NomeFile, "", App.Path & _
      "\RELAZIONI", SW_SHOWNORMAL)   

  If ret <= 32 Then  ' Si è verificato un errore
    Select Case ret
      Case SE_ERR_FNF
          sMsg = "File non trovato"
      Case SE_ERR_PNF
          sMsg = "Percorso non trovato"
      Case SE_ERR_ACCESSDENIED
          sMsg = "Accesso negato"
      Case SE_ERR_OOM
          sMsg = "Memoria esaurita"
      Case SE_ERR_DLLNOTFOUND
          sMsg = "DLL non trovata"
      Case SE_ERR_SHARE
          sMsg = "Violazione di condivisione"
      Case SE_ERR_ASSOCINCOMPLETE
          sMsg = "Associazione di file " & _
              incompleta o non valida"
      Case SE_ERR_DDETIMEOUT
          sMsg = "DDE Time out"
      Case SE_ERR_DDEFAIL
          sMsg = "DDE transazione fallita"
      Case SE_ERR_DDEBUSY
          sMsg = "DDE occupato"
      Case SE_ERR_NOASSOC
          sMsg = "Nessuna associazione per " & _
              "l'estensione del file"
      Case ERROR_BAD_FORMAT
          sMsg = "File EXE non valido o errore " & _
              "nell'immagine EXE"
      Case Else
          sMsg = "Errore sconosciuto"
    End Select   

    If ret = 31 Then
      ' non è installato Acrobat Reader
      risposta = MsgBox("ATTENZIONE: in questo sistema " & _
          "non è installato Acrobat Reader, necessario " & _
          "per visualizzare documenti PDF." & vbCrLf & vbCrLf & _
          "Per installare Acrobat Reader (vers. 5.1 italiana): " & _
          "premere SI" & vbCrLf & "Per annullare l'apertura " & _
          "del documento PDF: premere NO", _
          vbYesNo Or vbCritical, "Installare Acrobat Reader?")
      If risposta = vbYes Then
        ' risposta = SI
        ' ATTENZIONE: se il programma di setup di Acrobat Reader
        ' si trova in un altro percorso, modificare l'istruzione
        ' seguente
        Shell App.Path & "\SETUP\AdbeRdr60_ita_full_WinXP.exe", _
            vbNormalFocus
      Else
        ' risposta = NO
        MsgBox "Apertura documento PDF annullata.", vbInformation
      End If
    Else
      ret = MsgBox("ERRORE: n. " & ret & " - " & _
          sMsg, vbCritical, "ApriPDF")
    End If
  End If
End Sub

[Controlli free] Flash Control for ASP.NET 2.0

Ho letto qualche richiesta, in passato, sulla possibilità di inserire un file .SWF (animazione Flash) in una pagina ASP.NET.

Il controllo scaricabile dalla pagina http://www.flash-control.net/ risolve questo problema. Le versioni disponibili sono tre:

• free: ovviamente con molte limitazioni, come la mancanza del supporto AJAX, l’esclusione dal supporto tecnico e altro
• a pagamento: con 29 Dollari portiamo a casa tutto, esclusi i sorgenti. Questa versione elimina anche il fastidioso messaggio “Fare clic per attivare e utilizzare il controllo”
• con i sorgenti: versione completa di sorgenti, al costo di 399 Dollari.

In alternativa è possibile inserire un file .SWF (per esempio di nome “FileFlashDaEseguire.swf“) anche con il seguente script ASP.NET che esegue anche il “redirect” al sito Macromedia se non si ha Flash installato:

<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/
flash/swflash.cab#version=6,0,0,0"
WIDTH="100%" HEIGHT="100%" id="EW" ALIGN=""
VIEWASTEXT>
<PARAM NAME="movie" VALUE="EW.swf">
<PARAM NAME="quality" VALUE="high">
<PARAM NAME="bgcolor" VALUE="#7299BD">
<EMBED src="FileFlashDaEseguire.swf" quality="high" bgcolor="#7299BD"
WIDTH="100%" HEIGHT="100%" NAME="EW"
  ALIGN=""
TYPE="application/x-shockwave-flash"
PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer"></EMBED>
</OBJECT>