Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Type mismatch

Saluti a tutto l'NG,
problemi forse cazzuto...
win98-vb6
creo procedura di installazione con P&D setup, premetto che utilizzo
DAO 3.51 + driver JET 2.0    ma penso che non serva questa info:
compilo, includo i files che mi servono.. eseguo sul mio pc e tutto ok
ma ogni buono e cattivo 
prog.re
 sa che il prog va testato su molti altri
pc..
provo l'installazione su
win95-vb6 cioč non installato, e dopo aver clikkato sul tasto grosso per
iniziare
l'installazione, cioč dopo setup.exe , quando va a creare la directory. come
dice st600uns  (ho simile) mi compare un msgbox TYPE MISMATCH e non riesco
piů a continuare...
Confido nella vostra esperienza per un grosso aiuto
Grazie per l'attenzione
@lex

edit setup.lst, trovi delle var boolean indicate con true/vero, false/falso.
Probabilmente lo stai installando su un pc con una lingua diversa, devi
appunto cambiare true in vero e false in falso (se il tuo pc č English e il
pc dove lo installi č italiano) o viceversa.

Ciao, sapevo la risposta perché avevo già avuto questo problema e qualcuno
in questo news me lo ha risolto, ringraziamo quindi anche lui (purtroppo non
ricordo chi era).
Sempre da questo news quanto sotto per cambiare risoluzione.
Problema: io sono rimasto bloccato perché se cambi dimensione dei caratteri
windows ti fa per forza riavviare il pc; in questo news non vi era stata
risposta, però proprio oggi leggo su Pc Professional che c'è un'utility
(credo KernelToy) della Microsoft che permette di cambiare dimensione dei
caratteri senza riavviare.
Deduco quindi che sia fattibile, se scopri come mi interesserebbe
moltissimo.
Per Micronix: torna a trovarci; per la dll non so aiutarti.
Ciao.
Public Const CCDEVICENAME = 32
Public Const CCFORMNAME = 32
Public Const DM_PELSWIDTH = &H80000
Public Const DM_PELSHEIGHT = &H100000
Public 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
Public DevM As DevMode
Public Declare Function EnumDisplaySettings Lib "user32" Alias
"EnumDisplaySettingsA" (ByVal _
lpszDeviceName As Long, _
ByVal iModeNum As Long, lpDevMode As Any) As Boolean
Public Declare Function ChangeDisplaySettings Lib "user32" Alias
"ChangeDisplaySettingsA" _
(lpDevMode As Any, ByVal dwflags As Long) As Long
Public Sub ChangeRes(W As Single, H As Single)
 Dim I&
 I = 0
 Do
  B = EnumDisplaySettings(0&, I&, DevM)
  I = I + 1
 Loop Until Not B
 Dim i2&
 DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
 DevM.dmPelsWidth = W
 DevM.dmPelsHeight = H
 i2 = ChangeDisplaySettings(DevM, 1)
End Sub