+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 3 su 3

risoluzione secondo schermo, ok da VB ma non da Exe

  1. #1
    miitiicoo non Ŕ in linea Scolaretto
    Ciao a tutti
    Il mio progetto utilizza un secondo schermo a 800x600.
    poichŔ mi dava noia ogni volta che collego il monitor esterno di fare il solito proprietÓ schermo etc etc, ho pensato di fare un codice che me la impostasse.
    Dal codice VB eseguo il progetto, mi cambia la risoluzione, esco dal progetto, tutto perfetto.

    Creo l'eseguibile, lo lancio.. clicco sul button, mi cambia risoluzione, clicco su esci e...mentre chiude mi ritorna alla risoluzione 1024x768 !!!

    PerchŔ da codice va e dall'exe no?
    Qualche idea?

  2. #2
    L'avatar di Brontolo
    Brontolo non Ŕ in linea Very Important Person
    Quote Originariamente inviato da miitiicoo Visualizza il messaggio
    ... ho pensato di fare un codice che me la impostasse...
    Lo hai solo pensato o lo hai anche scritto? Nella seconda ipotesi, non pensi che sarebbe il caso di far vedere che cosa hai scritto?

    Quote Originariamente inviato da miitiicoo Visualizza il messaggio
    PerchŔ da codice va e dall'exe no?
    Con "da codice" intenti dall'ambiente di sviluppo (o IDE) di Visual Basic? Le cose hanno un loro nome: usiamolo.
    ℹ️ Leggi di pi¨ su Brontolo ...

  3. #3
    miitiicoo non Ŕ in linea Scolaretto
    da codice intendevo da codice da vinci, ovvio.
    il mio nome Ŕ mai pi¨, mai pi¨, mai pi¨¨¨¨¨¨



    Const CCDEVICENAME = 32
    Const CCFORMNAME = 32
    Const DM_PELSWIDTH = &H80000
    Const DM_PELSHEIGHT = &H100000
    Const CDS_TEST = &H4
    Private Type DISPLAY_DEVICE
    cb As Long
    DeviceName As String * 32
    DeviceString As String * 128
    StateFlags As Long
    DeviceID As String * 128
    DeviceKey As String * 128
    End Type
    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
    dmICMMethod As Long 'NT 4.0
    dmICMIntent As Long 'NT 4.0
    dmMediaType As Long 'NT 4.0
    dmDitherType As Long 'NT 4.0
    dmReserved1 As Long 'NT 4.0
    dmReserved2 As Long 'NT 4.0
    dmPanningWidth As Long 'Win2000
    dmPanningHeight As Long 'Win2000
    End Type
    Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As String, ByVal iModeNum As Long, lpDevMode As Any) As Boolean
    Private Declare Function ChangeDisplaySettingsEx Lib "user32" Alias "ChangeDisplaySettingsExA" (lpszDeviceName As Any, lpDevMode As Any, ByVal hWnd As Long, ByVal dwFlags As Long, lParam As Any) As Long
    Private Declare Function EnumDisplayDevices Lib "user32" Alias "EnumDisplayDevicesA" (Unused As _
    Any, ByVal iDevNum As Long, lpDisplayDevice As DISPLAY_DEVICE, ByVal dwFlags As _
    Long) As Boolean
    Dim OldX As Long, OldY As Long, T As Long
     
     
    Private Sub Command1_Click()
    Dim DD As DISPLAY_DEVICE, DevM As DEVMODE
    DD.cb = Len(DD)
    DevM.dmSize = Len(DevM)
    DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
    DevM.dmPelsWidth = 800
    DevM.dmPelsHeight = 600
    ChangeDisplaySettingsEx ByVal "\\.\DISPLAY2", DevM, ByVal 0&, CDS_TEST, ByVal 0&
    End Sub
     
     
    Private Sub Command2_Click()
    Unload Me
    End Sub
    

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. risoluzione schermo lubuntu
    Da sasy_80 nel forum Tutto Linux
    Risposte: 3
    Ultimo Post: 13-12-2014, 08:13
  2. Risoluzione schermo insufficiente
    Da persichetti nel forum Visual Basic .Net
    Risposte: 21
    Ultimo Post: 09-12-2013, 15:37
  3. Ricavare la risoluzione dello schermo
    Da Fapic nel forum Visual Basic .Net
    Risposte: 1
    Ultimo Post: 06-02-2011, 14:15
  4. [ubuntu 9.10] Risoluzione schermo
    Da chico_ nel forum Tutto Linux
    Risposte: 4
    Ultimo Post: 11-12-2009, 01:39
  5. Risoluzione dello schermo
    Da Vercingetorige nel forum Visual Basic 6
    Risposte: 2
    Ultimo Post: 24-12-2005, 15:03