Newsgroup: it.comp.lang.visual-basic
Titolo: Confido nuovamente in voi AIUTO (alcuni problemi)

Ciao, passo immediatamente in rassegna ai problemi che desidererei risolvere
e ringrazio anticipatamente chiunque voglia aiutarmi:
1) Come entro nel mio programma voglio che risoluzione del video passi a
800X600, tutti gli esempi in rete mettevano in una listbox a disposizione le
risoluzioni disponibili, ma non sono riuscito tramite questi a ricavare ciň
che serve a me non avendo capito molto bene la logica di suddetti
programmi...
2) Che controllo mi consigliate di utilizzare per la riproduzione di files
AVI ? Io sto utilizzando il MMControl e quando richiamo l'esecuzione di un
filmato me lo fa vedere in finestra...come posso eliminare la finestra e
riprodurre il filmato senza ?
3)Io in una applicazione utilizzo fonts diversi diciamo, come faccio per
farsě che questi vengano installati nel computer dove viene installata
l'applicazione per non alterare la visione del contenuto ?
4)In un controllo immagine (image o picturebox) come faccio a stabilire che
il riempimento del controllo sia dato in modo affiancato ? E' possibile ?
questo perchč dovrei utilizzare alcune textures...
Grazie di nuovo a chiunque possa aiutarmi.
Ciao Matteo

 questo perchè dovrei utilizzare alcune textures...


Per il MMC mi apre una finestra a parte, cmq. posso usare anche il windows
media player che ho visto molto + completo.
Quale è il codice per aprire un file e richiamarne l'esecuzione ?
Per i fonts proverò a fare ciò che hai detto.
Ti ringrazio per l'aiuto.
P.S. Qualcuno mi sa aiutare per il cambio di risoluzione ?
Ringrazio nuovamente

 800X600
Nell'evento load del form principale scrivi:
Call ChangeRes(800,600)
Nelle dichiarazioni scrivi:
Private Declare Function EnumDisplaySettings Lib "user32" Alias _
"EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal _
iModeNum As Long, lpDevMode As Any) As Boolean
Private Declare Function ChangeDisplaySettings Lib "user32" Alias _
 "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwflags As Long) _
As Long
       Const CCDEVICENAME = 32
       Const CCFORMNAME = 32
       Const DM_PELSWIDTH = &H80000
       Const DM_PELSHEIGHT = &H100000
Private Type DEVMODE
       dmDeviceName As String * CCDEVICENAME
       dmSpecVersion As Integer
       dmDriverVersion As Integer
       dmSize As Integer
       dmDriverExtra As Integer
       dmFields As Long
       dmOrientation As Integer
       dmPaperSize As Integer
       dmPaperLength As Integer
       dmPaperWidth As Integer
       dmScale As Integer
       dmCopies As Integer
       dmDefaultSource As Integer
       dmPrintQuality As Integer
       dmColor As Integer
       dmDuplex As Integer
       dmYResolution As Integer
       dmTTOption As Integer
       dmCollate As Integer
       dmFormName As String * CCFORMNAME
       dmUnusedPadding As Integer
       dmBitsPerPel As Integer
       dmPelsWidth As Long
       dmPelsHeight As Long
       dmDisplayFlags As Long
       dmDisplayFrequency As Long
End Type
Dim DevM As DEVMODE
Sub ChangeRes(iWidth As Single, iHeight As Single)
       Dim a As Boolean
       Dim i&
       i = 0
              Do
                     a = EnumDisplaySettings(0&, i&, DevM)
                     i = i + 1
              Loop Until (a = False)
       Dim b&
       DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
       DevM.dmPelsWidth = iWidth
       DevM.dmPelsHeight = iHeight
       b = ChangeDisplaySettings(DevM, 1)
End Sub

 wrote in message
84odkj$4qk$1...@nslave1.tin.it...
