mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: List Box Control

Does anyone have a active x control list box that will see the
networkneighborhood and Maybe Mycomputer.  The list box with visual basic
only sees the local drives and any drives that are mapped. please help if
anyone has any suggestions.

...

Try the following code:
' Stuff for selecting a folder in API
Public Type SHITEMID 'mkid
    cb As Long
    abID() As Byte
End Type
Public Type ITEMIDLIST 'idl
    mkid As SHITEMID
End Type
Public Type BROWSEINFO 'bi
    hOwner As Long
    pidlRoot As Long
    pszDisplayName As String
    lpszTitle As String
    ulFlags As Long
    lpfn As Long
    lParam As Long
    iImage As Long
End Type
Public Declare Function SHGetPathFromIDList Lib "shell32.dll" _
    Alias "SHGetPathFromIDListA" _
    (ByVal pidl As Long, ByVal pszPath As String) As Long
Public Declare Function SHBrowseForFolder Lib "shell32.dll" _
    Alias "SHBrowseForFolderA" _
    (lpBrowseInfo As BROWSEINFO) As Long
Public Const BIF_RETURNONLYFSDIRS = &H1
Function SelectFolder(oFrm As Form, Optional sRootPath As Variant, Optional
sTitle As Variant) As String
    Dim i As Integer
    Dim bi As BROWSEINFO
    Dim IDL As ITEMIDLIST, IID As SHITEMID
    Dim pidl As Long
    Dim r As Long
    Dim pos As Integer
    Dim sPath As String
   'Fill the BROWSEINFO structure with the needed data.
    bi.hOwner = oFrm.hWnd
   'Pointer to the item identifier list specifying the
   'location of the "root" folder to browse from.
   'If NULL, the desktop folder is used.
   If Not IsMissing(sRootPath) Then
        IID.cb = Len(sRootPath) + 4
        ReDim IID.abID(Len(sRootPath) - 1)
        For i = 1 To Len(sRootPath)
            IID.abID(i - 1) = Asc(Mid(sRootPath, i, 1))
        Next
    End If
    bi.pidlRoot = 0&
   'message to be displayed in the Browse dialog.
   'Note: the code here does not check to determine if
   'in fact the system folder was selected; it is provided
   'only as an example of a message.
   If Not IsMissing(sTitle) Then _
        bi.lpszTitle = sTitle
   'the type of folder to return.
    bi.ulFlags = BIF_RETURNONLYFSDIRS
   'show the browse folder dialog
    pidl& = SHBrowseForFolder(bi)
   'the dialog has closed, so parse & display the user's
   'returned folder selection contained in pidl&.
    sPath$ = Space$(512)
    r = SHGetPathFromIDList(ByVal pidl&, ByVal sPath$)
    If r Then
             pos = InStr(sPath$, Chr$(0))
             SelectFolder = Left(sPath$, pos - 1)
    Else: SelectFolder = ""
    End If
End Function

Newsgroup: it.comp.lang.visual-basic
Titolo: Forma di un CommandButton

Scusate, mi pare che gia' se ne fosse scritto:
come si fa a cambiare la forma di un CommandButton
e farla diventare per esempio ovale o circolare?
Grazie e ciao
Luca

 ha scritto nel messaggio
news:9dgees$kl6$1...@fe1.cs.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Argomenti di Event

Salve a tutti!
Nella dichiarazione degli argomenti di un evento:
    Public Event XEvent (a As String, b As Integer)
è possibile fare in modo che, ad esempio, b As Integer venga dichiarato come
Optional?
Grazie,
--
Brian "the Brain" Thunder
brian...@technologist.com
Icq# 37755533

Dichiara cosi: come optional
Public Event XEvent (a As String, Optional b As Variant)
    if IsMissing(b) then
        msgbox "b non e' stato dato"
    else
        msgbox "b ce l'ho e vale " & b
    end if


Newsgroup: it.comp.lang.visual-basic
Titolo: Simulatore di tastiera

Buon giorno a tutti, ho da sottoporvi un bel problemino:
Informazioni generali:
    - ho un programma (PIPPO) fatto in VB che gira in background.
    - un altro programma (PLUTO) non VB, che dovrebbe ricevere caratteri
dalla tastiera, in foreground.
Come posso, utilizzando PIPPO, far arrivare dei caratteri (come se
utilizzassi la tastiera) a PLUTO ???
Vi ringrazio in anticipo.

sendkeys
vedi la guida...
--[GbC]--

Newsgroup: it.comp.lang.visual-basic
Titolo: Setup Wiz. VB4 e VB5

Salve,
Mi potreste spiegare quali sono le regole da seguire per essere sicuri che
le applicazioni create con VB funzionino anche su altri computer e non solo
sul mio.
Creando i dischetti di installazione come si fà a sapere quali controlli
aggiungere al setup automatico di VB4 e 5.
Grazie,    Ciro

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Copiare sottodirectory

Esiste un comando per copiare un intero albero di directory e file?
        Danilo
            Ciao

> Esiste un comando per copiare un intero albero di directory e file?
puoi scaricare un'ottima classe per l'utilizzo di SHFileOperation su
http://www.softcircuits.com
Ciao
Faber

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

Si trova da qualche parte una dll od un ocx per zip/unzip dei file?
Grazie

 Grazie
sito comune
--
__________________
www.sasim.net
* Server IRC : 
irc.azzurranet.org
 --> Canale: #it_lang_vb
* Sito Comune Ng: 
http://www.it-lang-vb.net
* Manifesto del Ng: 
http://www.it-lang-vb.net/docs/Manifesto.txt
* I vecchi messaggi su: 
http://groups.google.com/
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Spedire piu' allegati con MAPI

Salve, 
qualcuno mi sa spiegare cosa c'e' di sbagliato nel seguente codice?
        On Error GoTo mailerr
        MAPISession1.SignOn 'sign on
    If MAPISession1.SessionID <> 0 Then 'signed on
        With MAPIMessages1
                .SessionID = MAPISession1.SessionID
                .Compose 'start a new message
            .AttachmentName = "Ordini" 'attachment name
                .AttachmentPathName = App.Path + "\" + "Ordini da 
inviare" & "\" & "*.ord"  
                .RecipAddress = "
i...@mioserver.it
" 
            .MsgSubject = "Ordini del " & Date 
             .Send False 'don't display a dialog saying it was sent
             Command6_Click
             MsgBox "Messaggio spedito"
                    End With
                        Exit Sub
                            End If
mailerr:                 'error handling
                    MsgBox "Error " & err.Description
                'End Sub
End Sub
Preche' la spedizione dell'e-mail non va mai a buon fine? Mi esce una 
Msgbox che dice"Error unspecified failure has occured".
Penso che l'errore si nasconda in questa linea:
.AttachmentPathName = App.Path + "\" + "Ordini da inviare" & "\" & 
"*.ord"  
Probabilmente non e' il modo giusto per allegare piu' file con la stessa 
estensione. Qualcuno sa aiutarmi? 
Grazie 1000!
Roberto.

 "*.ord"
Penso anche io che tu non possa fare cosi'.
Per inviare allegati devi fare cosi':
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Componse
Idx=0
Filename = dir(App.Path + "\Ordini da inviare\*.ord")
While (filename <> "")
    .AttachmentIndex = Idx
    .AttachmentPosition = Idx
    .AttachmentName = Filename
    .AttachmentPathName = App.Path + "\Ordini da inviare\" & Filename
    Idx = Idx + 1
    Filename = Dir
Wend
.MsgNoteText = Space(Idx+1) & vbCrLf
.Send False
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
La prima cosa e' che devi allegare un file per volta, specificando per
ognuno di essi il nome (che potrebbe essere anche diverso dal nome effettivo
del file, come Allegato1, Allegato 2 etc etc etc), quindi il pathname
completo del file da allegare.
Per ogni allegato devi aggiornare l'Index e la Posizione.
Inoltre (come specificato in un documento Q&A della M$) e' necessario
aggiungere TANTI SPAZI QUANTI SONO GLI ALLEGATI in testa al corpo del
messaggio, come fossero dei "segnaposto" !
Prova cosi' (ocio, il codice l'ho scritto al volo, non l'ho copiato...
controllalo !!!)
Ciao.
--
Fab, kay...@genie.italy (change italy with it to answer)

 
Grazie 1000 per la spiegazione. Ora ci lavoro su un po.
grazie ancora.
Roberto
Newsgroup: it.comp.lang.visual-basic
Titolo: VB4 Errore sconosciuto

Ciao a tutti,
Mi sto cimentando con la  programmazione di Visual Basic 4.0 32 bit e
pur essendo ai primi passi incontro già un bel problema.
Quando tento di aprire le applicazioni contenute nella directory
"samples" ogni volta che tento di accedere ai form mi viene
visualizzato un errore sul modulo sconosciuto:
VB32 ha provocato un errore di pagina non valida nel
modulo <sconosciuto> in 0000:00000017.
Registri:
EAX=0058fb68 CS=0217 EIP=00000017 EFLGS=00010203
EBX=653a82e8 SS=021f ESP=0074f39c EBP=0074f450
ECX=00ec0000 DS=021f ESI=00ec0d8c FS=1237
EDX=0000000c ES=021f EDI=00ec0dcc GS=0000
Byte all'indirizzo CS:EIP:
f0 00 80 00 f0 6f ef 00 f0 00 00 00 c8 d2 08 bc 
Immagine dello stack:
0074f3a0 00408140 0058fbf8 00ec0dcc 0074f48c 00000000 00000022
0000000b 0074f474 00000000 00000000 f0000000 00000000 00000000
000e0000 00000000 
A volte l'errore compare nel modulo Kernel 32.dll
C'è nessuno che mi sa dare una dritta?
Grazie
Marco
""nospam.marcofnt@""
nospam.intercity.it
Togliere nospam.

Stesso consiglio che mi sono già venduto. Potrebbe anche essere un problema
hardware, soprattutto se la tua scheda madre ha più o meno un anno. Hai
provato a disabilitare via bios setup la cache esterna ?

provato a disabilitare via bios setup la cache esterna ?
Ho contattato via e-mail Marco Fanton e ho scoperto di avere il suo stesso
problema. Dovendo "conviverci" da almeno un anno, sono riuscito a
circoscriverlo meglio: da' quell'errore in ogni form che contiene una label
contenente caratteri diversi dal default (MS Sans Serif 10 Normale).
P.S.: Ho provato il tuo consiglio sulla cache: nothing to do! :-(
      Grazie comunque per l'aiuto.
    __     __)
   (, /|  /|
     / | / |    _   __  _  ___
  ) /  |/  |_  (_(_/ (_(__(_)
(_/   '     Vincenzo Carnazzo
http://www.geocities.com/SouthBeach/Marina/9922/
"Vivere e' la cosa piu' rara al mondo. Molta gente esiste" - Oscar Wilde
Newsgroup: it.comp.lang.visual-basic
Titolo: TransparentBlt

Ciao a tutti,
  per la mia tesi sto modificando una vecchia libreria grafica in C
che viene usata da un programma VB tramite DLL. 
I problemi sorgono quando sono (obbligato?) a usare pesantemente la
suddetta funzione. Sembra che tutte le allocazioni di BMP
supplementari usati dalla transparentBlt non vengano disallocati in
tempo e finiscano per esaurire la memoria della macchina VB.
  A questo punto mi restano poche scelte:
1) trovare un modo per disallocare immediatamente tutta la memoria.
2) trovare una funzione in C che mi permetta di fare il blt con un
colore trasparente a scelta piu' efficente.
3) scrivere io una funzione di blt con trasparenze (C o ASM).
  Qualcuno di voi ha qualche suggerimento?  
Grazie, Mauro Cappelli

 tempo e finiscano per esaurire la memoria della macchina VB.
scusa, anch'io faccio in una mia applicazione un certo uso della funzione e
ti vorrei chiedere notizie piu' precise su quel 'sembra'. cioe', dipende da
una tua esperienza personale oppure e' una cosa documentata? (e se e'
documentata, dove trovo qualche cosa che ne parli piu' approfonditamente?).
inoltre, cosa vuol dire 'non vengono deallocati in tempo', in tempo per che
cosa?
grazie, assa.

Newsgroup: it.comp.lang.visual-basic
Titolo: date in mshflexgrid

Come č poossibile formattare la data prelvata da un db per una mshflexgrid?

 Come è poossibile formattare la data prelvata da un db per una mshflexgrid?
Ciao, è possibilie con la funzione Format.
Questo tuo problema già è stato affrontato in altri 3D,
(fai una ricerca qua
http://groups.google.it/groups?hl=it&lr=&ie=UTF-8&group=it.comp.lang.visual-basic
)
Cmq se leggi i dati da una query, qui formatti il campo, esempio:
Format([NomeTabella].[NomeCampo],'€ 0.00') AS Nome
Ciao...Ciao!!!
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Come faccio a "Freezare" il sistema

Ho bisogno che quando parte il mio programma,
l'utente non puo' fare nient'altro nel suo sistema se non eseguire il
mio programma.
Poi ritorna alla normalita' quando il mio programma esce.
Si puo' fare?
Elena.

 ha scritto nel messaggio
news:38E986D4...@supereva.it...

si puņ fare... ho avuto la stessa necessita' per una mia applicazione...
disattivo il mouse
il ctrl-alt-canc
la barra delle applicazioni ecc. ecc.
se vuoi depuro il tutto e ti mando in e-mail solo le chiamate alle api per
fare ciņ che ti serve.....
ciao
ven.

 ven.


A me e' stato molto utile questo :
http://www2.armaditaggia.com/marco/api3.htm
ed in particolare 
  AllowKeys.zip      
  HideDesktop.zip
  HideTaskBar.zip
saluti
Luigi
JoC...@spiderlink.it
(rimuovere Canc dall'indirizzo )
Newsgroup: it.comp.lang.visual-basic
Titolo: ADO Error

Ciao
Sapete dirmi da cosa può essere provocato questo errore ??
-
2147220999
Sto utilizzando VB6 sp4 con colleganento a db Jet 4.0 tramite stringa di
connessione.
Sulla macchina di sviluppo tutto ok, su una macchina nella quale comunque è
installato Access si blocca.
Grazie
Marco

 -
2147220999
Se non posti la descrizione dell'errore dubito che qualcuno potrà aiutarti!
:-(
Ciao

"Lord Rayden" <ray...@hardwaretips.com.rimuovimi> ha scritto nel messaggio
news:a6kpvg$2d3h$1...@half.spin.it...

Hai perfettamente 
ragioe.il
 testo è
Errore di automazione
Errore nella DLL
Aggiungo anche che h provato a creare un progetto nuovo nella macchina
incriminata utilizzando oggetti ADO e quando ho fatto per configurarli VB mi
informa che il Provider non è installato correttamente.
Che significa ???
Grazie

 Che significa ???
Uhm direi che non è installato MDAC e/o JetSP4 vai su
http://www.microsoft.com/data
 per un po' di informazioni...

"Lord Rayden" <ray...@hardwaretips.com.rimuovimi> ha scritto nel messaggio
news:a6l2be$2jdr$1...@half.spin.it...

ti ringrazio per l'interessamento.
Ho utilizzato ADODC e i controlli associati.
Nelle macchine ho installato MDAC 2.5 rtm, ma probabilmente nella seconda
non è installato correttamente.
Infatti ho provato ad installare il prog su una terza macchina appena
approntata e questo tipo di error non si presenta. Il so è identico (win
2000)
Ne approfitto e ti pongo un quesito.
ADODC mi permette nelle proprietà di imnpostare una stringa di connessione.
Ho provato a cambiarla in fase di esecuzione, ma sembra che non sempre la
nuova stringa venga impostata.
Infatti ottengo messaggi di errore che mi avvisano che non è stato trovato
il db (perchè non trova la path indicata nella stringa di connessione
impostata nel quadro proprietà).
Ho provato anche a cancellare la stringa dal quadro proprietà, ma appena
chiamo Form1.show ottengo un errore per db non trovato. Nell'evento
Form_Load la prima istruzione è :
ADODC1.ConnectionString=dbString
ADODC1.Refresh
Mi sai dire dove sto sbagliando ??
Gli oggetti ADO permettono il cambio della stringa di connessione a run-time
??
Ciao Marco

 Gli oggetti ADO permettono il cambio della stringa di connessione a
run-time
Non so penso di si ma il consiglio è di evitarli e fare tutto via codice,
più evloce e sicuro...
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Andare da un campo a un altro in modo automatico

Salve a tutti,
Ho tre campi che mi servono per far inserire la data da 2, 2, 4 caratteri.
Vorrei fare in modo che il cursore si spostasse da un campo a un altro in
modo automatico, cioè mi posiziono sul primo campo digito due cifre (che
sarebbero il giorno) poi (senza premere TAB) quando digito la terza cifra me
la deve scrivere sul secondo campo ( credo che si chiami auto skip?!?).
Spero di essere stato chiaro.
Grazie.
Mario

 wrote in message
fWLK8.115516$zW3.1...@news1.tin.it...

nell'evento change di text1 controlla la lunghezza del testo contenuto
quando raggiunge quella massima fai text2.setfocus
ripeti per ogni textbox.
Se non sono stato chiaro dimmelo pure.

 Spero di essere stato chiaro.
Non sentivo il termine AutoSkip dal 1979.
Era un'opzione (.SKIP) dei campi di input nel linguaggio
TPL di un vecchio computer (si chiamava 771 della
Texas Instruments).  Chissa' se c'e' ancora qualcuno che
l'ha usato e se lo ricorda...
Eheh bei tempi... 30 chili fa.
scusate l'OT...
Beppe

 l'ha usato e se lo ricorda...
Io già dal '75... c'era l'autoskip anche sulle perforatrici
di schede perforate.
--
Er Roscio.

 di schede perforate.
Argh, e' vero.... chissa' perche' per me i computer
sono solo quelli dalle fattezze moderne....  Mi dimenticavo
dei vecchi frullatori...
Mi piacerebbe molto fare una specie di censimento
su questo NG...
Sapere solo l'eta' di ognuno dei postatori abituali e
da quanto tempo programmano...   Magari in un thread
apposta.   Se qualcuno lo ritenesse simpatico, puo'
farlo.
Cia'
Beppe

Newsgroup: it.comp.lang.visual-basic
Titolo: cercasi collaboratore VB Milano

Progettoinnova cerca urgentemente un collaboratore con buona conoscenza
VB per sviluppo software. Lavoro a pacchetto. In Milano, Mandare
curriculum a info@progettoinnova

Progettoinnova cerca urgentemente un collaboratore con buona conoscenza
VB per sviluppo software. Lavoro a pacchetto. Mandare curriculum a
in...@progettoinnova.com

Newsgroup: it.comp.lang.visual-basic
Titolo: Corsosu  DVD di Francesco Balena x VS 2005

Salve,
ho visto che insieme a VS 2005 
manuali.net
, offre in bundle un corso su 
DVD di Francesco Balena.
Qualcuno ha avuto la possibilità di vederlo o sà se è possibile 
acquistarlo anche separatamente ?
SAluti

Pisinho ha scritto:

Questo è interessante .. ne sarei interessato anche io ;)
-- 
!!! OFFERTA IRRIPETIBILE !!! Muori oggi avrai uno sconto del 50%
[CapoBecchino] - hotmail/msn: capobecchino [@] hotmail [.] com

Pisinho says...

Sono tornato dalla vacanza e leggo solo ora questo messaggio.
Puoi trovare quello che t'interessa (con una lezione di esempio) qui:
http://www.manuali.net/affiliati/scheda.asp?id=708
Christian
Newsgroup: it.comp.lang.visual-basic
Titolo: Client/Server - gestione professionale

Ciao a tutti,
I questiti che vi pongo sono relativi alla realizzazione di applicazioni
Client-Server con ADO.
In particolare il server dovrebbe gestire il database ed esporre via DCOM
una classe che fornisce ADO recordset (ed altro) ai client remoti. I client
lavorano in modalità batch optimistic e quando richiesto attuano il
salvataggio delle modifiche.
Le applicazioni che sto realizzando sono scritte in VB6 e JET4.0 OLEDB (in
futuro spero di riuscire a connettere anche SQL-SERVER).
Domande:
1) Qualcuno ha realizzato sistemi con questa architettura? Funzionano? Sono
collocabili sul mercato?
2) Esiste qualche sito o testo in cui vengono mostrate -con esempi concreti
e precisi- le tecniche di utilizzo "professionale" di Datagrid (standard),
gestione della validazione dei dati e trattamento degli errori in fase di
scrittura remota dei dati? (Utilizzando Datagrid ed eventualmente controlli
associati trovo difficoltà nel gestire le validazioni in modo professionale
ossia annullando modifiche, visualizzando messaggi, chiudendo il form...e
soprattutto di evitando di scrivere codice troppo sparpagliato e
difficilmente riutilizzabile...).
Grazie.

 ha scritto nel messaggio
news:908ctc$lmo$1...@sun450a.adriacom.it...


 considero limitanti ...
(...)
Concordo pienamente con Davide.
Ciao
Aldo

Newsgroup: it.comp.lang.visual-basic
Titolo: APRIRE FILE DI TESTO

HO LA NECESSITA' DI APRIRE DEI FILE DI TESTO CHE PERO' NON HANNO UN NOME
FISSO MA SOLO UNA RADICE IN COMUNE.
ESEMPIO : FE001.TXT - FE002.TXT - FE003.TXT
COME FACCIO AD IMPOSTARE IL COMANDO OPEN.NOMEFILE PER APRIRE UN FILE O
MAGARI ANCHE PIU' DI UNO
GRAZIE IN ANTICIPO



1)	Se puoi, per piacere, non gridare (= maiuscolo)
2)	Usa una variabile: Open MioFile For Input As.....
3)	come fare a sapere il nome del file?
	supponiamo che devi aprire dal file FE001 a FE004:
	For i=1 to 4
		nomefile="FE" & Format (i, "000") & ".TXT"
	next i
4)	Per aprirne più di uno? Vuoi sapere il numero di file libero da utilizzare? FreeFile
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con DoEvents

Sto sviluppando un prg con VB6 che fa le seguenti operazioni:
1) Esegue una connessione WMI con un server;
2) Esegue uan routine WMI che consente di stare in ascolto e ricevere un
messaggio che notifica un evento;
3) Visualizza l'elenco dei servizi del server
Il mio problema è il seguente:
Io utilizzo un costrutto nella routine del tipo:
Set oggetto = .....
DoEvents
do
   DoEvents
    vado in ascolto
Loop
Solo che il do non prosegue. Cosa sbaglio? O cos'altro dovbrei usare?
Grazie

 Solo che il do non prosegue.
Sarebbe più corretto dire che il do non termina, ovvero, pur restituendo
periodicamente il controllo al sistema, continua a ciclare.
Cosa sbaglio?
Immagino che "vado in ascolto" faccia delle cose che generano eventi o
restituiscano risultati.
Gestisci questi eventi o risultati correttamente?
 O cos'altro dovbrei usare?
Sicuramente qualcosa che esegue, prima o poi, un Exit Do

 Sarebbe piů corretto dire che il do non termina, ovvero, pur restituendo


 l'applicazione viene chiusa.
E io cos'ho detto?

> Loop
Il punto saliente e' proprio quel "vado in ascolto" che non dice cosa
sia e potrebbe benissimo essere una chiamata bloccante, sicche' il
codice non raggiunge la successiva istruzione di Loop.
Ma l'OP non dice quale sia questa chiamata...
-- 
ciao,
hal

 [SNIP] anche perche' il post dell'OP [SNIP]
OP?
Lokar.che.non.comprende.l'acronimo
-- 
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
Statuto: 
http://www.it-lang-vb.net/docs/Statuto.txt
UGIdotNET - 
http://www.ugidotnet.org

OP?
original poster
-- 
ciao,
hal

 OP?
Original Poster
FYI:
http://www.ucc.ie/cgi-bin/acronym
http://www.acronymfinder.com
http://www.netlingo.com/emailsh.cfm
http://www.acronymsearch.com/
HTH, G. ;-)
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto su Errore di stampa

Sto sviluppando una procedura che ad un certo punto fa partire un report.
Sul pc dove programmo e sul 50% dei pc dove l'ho provato tutto ok, sul
restante 50% dei pc quando viene richiamata la stampa mi esce il seguente
errore:
"Errore di Run-Time '8577'. Impossibile recuperare uno o più gruppi di
righe dalla fonte dati corrente."
Logicamente tra il 50% dei pc non funzionanti c'è anche il pc su cui
dovrebbe girare questa applicazione.
Qualcuno sa cosa può essere che genera questo errore e come eliminarlo?
Se può essere d'aiuto sul pc in questione c'è Windows 98.
Grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 righe dalla fonte dati corrente."
L'errore è abbastanza orientativo, comunque in queste situazioni è dura,
per non perdere giorni e giorni spremendosi il cervello inutilmente, è
quasi doverosa l'installazione dell'ambiente di sviluppo sulla macchina
in questione, risoluzione dell'eventuale bug e disinstallazione
dell'ambiente.

David Ruscelli (Office) wrote:


Il bello è che l'ho già fatto e se monto l'ambiente di sviluppo e provo a
far girare il programma in modalità di debug tutto funziona
correttamente...
E' proprio per questo che non riesco a capire da dove arrivi l'errore in
questione!


Newsgroup: it.comp.lang.visual-basic
Titolo: VS 2005 - Parere di chi ha gia' installato ...

Ciao A tutti,
volevo un parere autorevole di chi ha gia' installato il nuovo ambiente
Visual Studio 2005(compreso del Framwork 2.0) ...
Il tutto ha bisogno di "parecchie" risorse ???
Ho sentito voci in giro (spaventose !!! ) che parlavano di 1 GB di Ram !!!!!
E' vero ????
Io ho un "misero" PIII 866 MHZ con 256 MB RAM (SIMM)... che fo' ??? lo butto
nel WC ?
Grazie e ciao
Filippo
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 nel WC ?
Non ho ancora installato il 2005, ma da quello che ho visto dovrebbe, come
risorse, essere simile al 2003.
Potresti fare un tentativo, prima di acquistare un nuovo pc, recuperare
ram per altri 256 o 512 mb (dovresti trovarla a poco prezzo), installare
il 2005 e verificare le prestazioni.
Ave
giuseppeD
---
CCR
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

guarda qui
http://lab.msdn.microsoft.com/vs2005/get/currentreadme/

Newsgroup: it.comp.lang.visual-basic
Titolo: Richiamare una DLL in C

Salve,
oltre al Visual Basic conosco il C anche se non ho nessuna esperienza con il
VC++ della Microsoft...volevo un pò vedere come si poteva creare una DLL in
C++ e richiarmarla dal Visual Basic. Ho provato a fare creare alla Wizard
del C++ una DLL con la funziona frProva (sotto sono allegati il file
Prova.Cpp e Prova.H) e a richiamarla da VB con b = fnProva(10) dopo averla
dichiarata con Declare Function fnProva Lib "Prova" (ByVal a As Integer) ma
mi dà il mitico errore 453 (impossibile trovare il punto d'ingresso della
DLL come se la funzione non esistesse) Dove ho sbagliato?
Gianni Moretti
// Prova.cpp : Defines the entry point for the DLL application.
//
#include "stdafx.h"
#include "Prova.h"
BOOL APIENTRY DllMain( HANDLE hModule,
                       DWORD  ul_reason_for_call,
                       LPVOID lpReserved
      )
{
    switch (ul_reason_for_call)
 {
  case DLL_PROCESS_ATTACH:
  case DLL_THREAD_ATTACH:
  case DLL_THREAD_DETACH:
  case DLL_PROCESS_DETACH:
   break;
    }
    return TRUE;
}
// This is an example of an exported variable
PROVA_API int nProva=0;
// This is an example of an exported function.
PROVA_API int fnProva(char a)
{
 return a*2;
}
// This is the constructor of a class that has been exported.
// see Prova.h for the class definition
CProva::CProva()
{
 return;
}
// The following ifdef block is the standard way of creating macros which
make exporting
// from a DLL simpler. All files within this DLL are compiled with the
PROVA_EXPORTS
// symbol defined on the command line. this symbol should not be defined on
any project
// that uses this DLL. This way any other project whose source files include
this file see
// PROVA_API functions as being imported from a DLL, wheras this DLL sees
symbols
// defined with this macro as being exported.
#ifdef PROVA_EXPORTS
#define PROVA_API __declspec(dllexport)
#else
#define PROVA_API __declspec(dllimport)
#endif
// This class is exported from the Prova.dll
class PROVA_API CProva {
public:
 CProva(void);
 // TODO: add your methods here.
};
extern PROVA_API int nProva;
PROVA_API int fnProva(int a);

Nel tuo header file prova a sostituire la riga seguente
PROVA_API int fnProva(int a);
con
extern "c" {
PROVA_API int fnProva(int a);
};
La direttiva fa si che la funzione venga esportata ESATTAMENTE con il
suo nome. Vedi la documentazione in linea per extern e per DUMPBIN, un
piccolo programmino che ti consente di vedete cosa viene esportato da
una DLL.
Ciao.
Luca Menegotto.


Scusatemi se intervengo in modo non proprio pertinente, ma qualcuno ha idea
di come sia possibile esportare una funzione da un applicativo VB ?
Esiste in VB qualche cosa di simile al
"  extern "c" PROVA_API int fnProva(int a);  "
del C ???
Grazie.
Newsgroup: it.comp.lang.visual-basic
Titolo: Quesito query sql

Ciao a tutti,
tabella
ID     RIF     DESCRIZIONE
1         1          DESC1
2         1          DESC2
3         1          DESC3
Nella tabella ci sono 3 oggetti che fanno riferiemento tutti ad uno stesso
oggetto (RIF=1)
Con un left join tra la tabella padre e questa ottengo chiaramente 3 righe
Vorrei invece trovare un modo per ottenere questo risultato
 DESC1,DESC2,DESC3
ossia una sola riga
E' fattibile?
Ciao
IAK 

 E' fattibile?
Con SQL standard non mi pare.
Se usi SQLServer puoi usare T-SQL che ti consente di concatenare più 
valori all'interno di una variabile stringa.
Access non saprei dirti se ha qualcosa di simile... magari con una macro...
Nicola

 ha scritto nel messaggio 
news:9Mwxj.49752$Xg7....@tornado.fastwebnet.it...

Soluzione semplice semplice....
GROUP_CONCAT 

 ha scritto nel messaggio 
news:47c69e44$0$22186$5fc...@news.tiscali.it...

Ciao Nicola,
con mysql me la sono cavata in questo modo:
select cod,nome,concatdescrizione  from anagrafica left join  (select 
rif,group_concat(descrizione) as concatdescrizione from dettagli group by 
rif) as concatdettagli on anagrafica.incr=concatdettagli .rif
la cosa bella di group_concat è che utilizza di default la virgola per 
separare i risultati.
In MySQL in caso non si volessere visualizzare la virgola si può anche 
definire il separatore e nel caso si può anche limitare il numero di 
caratteri concatenati andando ad intervenire
sulle preoprietà della session con questa riga di codice:
SET [SESSION | GLOBAL] group_concat_max_len =  VAL

Scriveva Pianto Tardivo giovedì, 28/02/2008:

Con Sql-Server, puoi concatenare in una variabile locale.
SELECT @VAR = @VAR + DESCRIZIONE
FROM TABELLA
WHERE RIF = 1
Se questa cosa la vuoi per tutte le righe di Rif, basta racchiudere la 
query qui sopra in una User Function, e invocare la UFN passando il 
RIF_ID, una cosa del tipo:
SELECT RIF_ID,
     DESC = UFN_CONCATENA (RIF_ID)
FROM TABELLA_PADRE
Ciao
Alberto
-- 
Il tempo e la pazienza possono più della forza o della rabbia

 ha scritto nel messaggio 
news:mn.e3557d82d...@hotmail.com...

Grazie interessante...
ho comunque già risolto con group_concat
Grazie ancora
IAK 

 con mysql me la sono cavata in questo modo:
Ecco... mancava il dettaglio "MySql" ;-)
Nicola

Newsgroup: it.comp.lang.visual-basic
Titolo: Collegare tabelle sotto SQL Tramite Access 2000

Visto che ho intenzione di utilizzare il Visual Basic che č sotto access
2000, volevo sapere voi che siete piů esperti di me come fare ad collegare
delle tabelle sotto un database SQl senza utilizzare ODBC, tramite
l'autocomposizione di Access 2000 e possibile creare un progetto che mi
linca in automatico tutte le tabelle, ma io vorrei solo collegare le tabelle
che mi interessano al momento dell'apertura del file.
Grazie Enrico

 ha scritto nel messaggio
news:a271a5$uvd$1...@pegasus.tiscalinet.it...

Sei OT
it.comp.appl.access
Ciao
--
Timothy Redaelli

 Grazie per la gentilezza speravo di trovare un aiuto e forse come ho gia
fatto l'ho inserite anche in it.comp.apll.access ancora qualche giorno fa
senza nessun esito.
Newsgroup: it.comp.lang.visual-basic
Titolo: Vbscript.it e' nato il portale italiano sul Vbscript

Visita il nuovo sito interamente dedicato al Vbscript. Lo trovi
all'indirizzo 
http://www.Vbscript.it
 !
-- 
Posted from 
ba1-327.dialup.tiscalinet.it
 [62.10.137.71] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

all'indirizzo 
http://www.Vbscript.it
 !
eh eh, pero' l' home page usa il javascript ;-)
Scherzi a parte, approfitto per un' impressione personale:
nalla sezione del codice, ogni argomento ha la sua icona
ben visibile per il download (ottimo!), ma, per sapere se il
codice interessa, si e' costretti a scaricare lo zip.
Se si potesse visualizzare il codice anche sulla pagina ...
ciao, hal

 wrote in message
news:99b1440c4c502f207c9...@mygate.mailgate.org...


Newsgroup: it.comp.lang.visual-basic
Titolo: Creazione cartelle

Nessuno sa dirmi come creare le cartelle con VBA.
Devo creare un pulsante word che mi crea delle cartelle nella stessa
cartella dove si trova il file word.
Può sembrare inutile ma è fondamentale!!
--------------------------------
Inviato via 
http://usenet.libero.it

 Puņ sembrare inutile ma č fondamentale!!


Sě, funziona!!
GRAZIE!!


Newsgroup: it.comp.lang.visual-basic
Titolo: Property_get

sono visibili metodi e proprieta' senza usare Property Let e Property
Get .
 > >Quindi a maggior ragione mi chiedo a che cavolo servono ? 
Per definire le proprietà di un oggetto. Infatti lo si usa nei moduli di
classe: in teoria si dovrebbero usare anche per implementare una
proprietà in un form, ma di solito si sostituiscono con una variabile
pubblica dichiarata a livello di modulo di form. In ogni caso potresti
usare anche nei moduli di classe una variabile pubblica, ma questo va
contro il principio dell'incapsulamento: infatti le proprietà (ed i
metodi) costituiscono solo l'interfaccia dell'oggetto, tramite le quali
si accede ai dati dell'oggetto stesso (che sono delle variabili private
con validità all'interno della classe, come ad esempio m_Ewan nel tuo
esempio). 
Ciao, Moreno 
OK Moreno,ti ringrazio per la risposta.
Antonio Passaro
-- 
Posted from 
gwit1.wang.com
 [192.58.227.130] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 sono visibili metodi e proprieta' senza usare Property Let e Property
Get .
 Non sono indispensabili, ma aiutano!
 CiaoZ SebaMix 
Ok Seba.Ti ringrazio per la risposta.

Newsgroup: it.comp.lang.visual-basic
Titolo: Rilevare inattività di Windows

Come posso rilevare che non viene premuto nessun tasto o mosso il mouse da
un certo tempo con qualsiasi applicazione (un po' come avviene con lo
screen-saver) e quindi avviare un programma fatto con VB?
Grazie a chiunque voglia rispondermi.
Un saluto
Francesco
--
E-mail: 
franco....@spm.it

lo avevo fatto....
funzionava anche....
ma poi ho compilato il prg che mi serviva come uno screensaver ed ho fatto
fare a windows.... meno perdita di tempo è + efficente...
--
--[GbC]--

Forse con un timer settato ad un certo intervallo ? Conti x*valore del timer
se falso azioni periferiche allora lanci programma, o no ?
Stefano


mi spiego meglio...
gli screensaver di win sono degli eseguibili...
rinomini il file exe (in .scr mi pare...), lo copi nella \windows e lo
imposti come screensaver... alla scadenza che hai impostato, se non si sono
premuti tasti, mosso il mouse o non so cosa lo screensaver parte, quindi
parte il tuo prg... o no?
--[GbC]--

 wrote in message
3850F5F6...@tiscalinet.it...


Il tuo metodo funziona perfettamente ma non posso utilizzarlo perchè in
certi orari della giornata il mio programma non deve partire e ciò deve
avvenire automaticamente.
Penso di dover necessariamente gestire gli eventi della tastiera e del
mouse...  ma come???
Un saluto
Francesco
--
E-mail: 
franco....@spm.it
GbC <NOS...@PLEASE.MAN> wrote in message 82qsh0$mh5$1...@nslave1.tin.it...


 mouse...  ma come???
Fai cosě: lo imposti come screensaver e alla partenza del prg controlli
l'orario, se l'orario e' in quelli da te previsti lo esegui ... altrimenti ...
LO CHIUDI !!!!!!!!
--
Ciaps
Stracca
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Cerca le risposte alle tue domande sul Sito Comune del
newsgroup it.comp.lang.visual-basic: 
http://www.murialdo.it/it_lang_vb
Magari prima leggi l'Help in linea!
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

problema di cui sopra.
Sul sito comune trovi un articolo ed un esempio su come creare uno ss.
Ciao,
Moreno
#sirri#@
morenosoft.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

 wrote


 Fai così: lo imposti come screensaver e alla partenza del prg controlli


ok, ora recupero il codice e lo invio...
ein momentinen, preco....
;)
--[GbC]--

 e mouse) per avviare un mio programmino.
Non so come si faccia, ma credo che con delle API
che controllino la coda messaggi di Windows puoi
trovare quello che fa per te...
Newsgroup: it.comp.lang.visual-basic
Titolo: data control....help

Aiutatemi...sono fermo....ho realizzato una procedura che fa' uso di
diversi database dbf...nel data control nella proprieta' Record Source
cheiede la path dove si trovano i file dbf...il problema e' che quando
installo il mio programma in una directory di nome diverso da quella in cui
il progetto e' stato realizzato..in fase di apertura del file dbf il
programma da' il messagio di non riuscire a trovare il file dbf nella
directory in cui in fase di progetto era stata indirizzata
l'apertura....come posso fare per aggirare il problema???
Pier
pier...@tin.it

data1.databasename= app.path & "\miodb.dbf"
ciao ciao


 l'apertura....come posso fare per aggirare il problema???
Puoi memorizzare il path dei dati in un file INI al momento dell'installazione
e settare la proprietà recordsource e databasename del datacontrol nella
form_load mettendo il path che leggi nel file INI a runtime + il nome del file.
ciao.

Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO! Funzioni VB e SQL

Salve a tutti. Ho un problema che reputo curioso (e grave!)
I fatti:
Sto scrivendo un programma (ambito database) che spesso apre dei recordset
con DAO facendo uso di stringhe SQL per generare i recordset.
Nell'istruzione SQL ho inserito alcune funzioni VB (in particolare MAX, LEN,
STRING e YEAR)
Fino alla settimana scorsa tutto funzionava correttamente, da oggi non più
!!!
In particolare vb (versione 5) mi segnala che la funzione, ad es, LEN non è
definita.
Questo in linea teorica potrebbe anche starmi bene, se non fosse per il
fatto che fino all'altro giorno funzionava perfettamente!!!! Che diavolo può
essere successo? Non ho installato nulla nel frattempo quindi il "sistema"
non può essersi modificato!!!
Non riesco a spiegarmi cosa sia accaduto. (e ho delle stampe a riprova del
fatto che funzionavano, e non ho io le traveggole!!! :) )
Peraltro, se qualche anima buona a questo punto mi può aiutare, avrei anche
bisogno di un suggerimento in quanto le funzioni MAX e LEN le ho facilmente
sostituite con delle funzioni appositamente scritte, ma la STRING e la YEAR
non saprei più come gestirle (e il programma, argh, è già scritto su quelle!
uffa!) in quanto ho bisogno di un recordset in cui un particolare campo deve
essere SOLO l'anno di una data, mentre un altro campo deve subire un
"riempimento con zeri a sinistra" (ecco il motivo della STRING).
Grazie a tutti per l'attenzione e saluti.


Sto facendo tutto da solo... :)
Risposta: In certi casi, per risolvere il problema, basta spegnere il
computer e farlo ripartire (argh!!!)
Faccio notare, per inciso, che la query che non andava tramite VB, nella
stessa sessione, _copiata_e_incollata_ in una nuova query access funzionava
egregiamente. Misteri del Jet... :P
p.s. per la seconda cosa, ovvero il suggerimento, se qualcuno avesse qualche
idea...
TIA e Bye Again
Newsgroup: it.comp.lang.visual-basic
Titolo: Cbo BOX

Salve chi può cortesemente suggerirmi come posso associare ad un combo box
determinati campi di una tabella in modo che aggiornando di volta in volta
la tabella i nuovi elementi si aggiungano automaticamente anche nel
controllo combo box del programma  in VB ? Grazie in anticipo !!!

Non so se ho capito bene, ma se tu usi tabelle di file mdb allora inserisci
nel tuo progetto un Oggetto Data che colleghi al database che contiene le
tabelle. Ricordati di impostare le propietà :
Databasename , RecordsetType e RecordSource.
Successivamente inserisci l' Oggetto DBcombo e lo colleghi all' oggetto Data
precedentemente creato. Ricordati di impostare le propietà :
Bouncolum , ListField e RowSource.
Ogni volta che aggiorni la tabella viene aggiornata la Combo.
Ciao.
--
Icq -----> 50759119

Newsgroup: it.comp.lang.visual-basic
Titolo: [Vb2005] Proprietà Moveable del Form

Salve,
Esiste la possibilità di inibire il movimento del form ( moveable=false di 
Vb6) ?
saluti
mike

 Vb6) ?
Almeno due soluzioni:
1) usi un form senza bordo
2) al load ti memorizzi top e left della tua form e all'evento move 
reimposti top e left ai valori precedentemente impostati.
ciao
stefano

 reimposti top e left ai valori precedentemente impostati.
Cosa che provoca un orrendo flickering, e "effetto trascinamento" :-)
-- 
news:it-alt.comp.software.openoffice : Il newsgroup dedicato a
OpenOffice.org, la suite open source di applicazioni per ufficio.
Saluti, VITRIOL

 reimposti top e left ai valori precedentemente impostati.
Essendo il Form state=maximized avevo gia impostato move con .top=0 e 
.left=0, ma pensavo esistesse la solita (o semplice) relativa proprietà.
grazie comunque
mike 

> Cosa che provoca un orrendo flickering, e "effetto trascinamento" :-)
No, impostate Top e Left e maximized, il form rimane stabile e non genera 
nessun effetto. ( anche se preferivo la proprietą)
saluti
Mike 

 
senza considerare che l'evento .move non esiste proprio :-)
chiedo venia, mi devo essere bevuto qualcosa di avariato.
ciao
stefano

mike ha scritto:

ti ho detto una stupidaggine:
form1.moveable= false
ciao e scusa.
stefano

 nessun effetto. ( anche se preferivo la proprietà)
Scusa, ma a questo punto non ti conviene mettere FormBorderStyle a None?


 senza considerare che l'evento .move non esiste proprio :-)
Come non esiste? Certo che esiste.


 form1.moveable= false
E' questo che non esiste :-)
Stiamo parlando di 
VB.NET


Mi occorre il text del form e comunque con top e left ho risolto bene.
grazie
saluti
mike 

 Come non esiste? Certo che esiste.
ehhhhh,
e te l'ho detto che avevo bevuto qualcosa di avariato :-)
magari anche la canna era tagliata male.
mi sono fissato con VB6,
scusate.
ciao
stefano

 
:-))))))
chiedo venia a tutti, oggi č meglio che stacchi un po' la spina.
scusate.
ciao
stefano
Newsgroup: it.comp.lang.visual-basic
Titolo: Schiacciare tasto con coordinate

Se io ho una pagina web, con un bottone da cliccare, io posso con un
programma VB fare in modo che si schiacci il bottone automaticamente senza
farlo fisicamente con il mouse????
Non so magari usando le coordinate dello schermo???
Se potete darmi qualche consiglio...............grazie mille!!!!!

 wrote in message
news:96817971...@tango.comm2000.it...


farlo fisicamente con il mouse????
puoi far "schiacciare" il pulsante del mouse con la funzione
mouse_event()
per ottenere la posizione del pulsante da premere, altro paio di
maniche ^^

Newsgroup: it.comp.lang.visual-basic
Titolo: Form in primo piano

Ciao ragazzi, oggi ho un'altro quesito:
Come faccio a mettere un for sempre in primo piano e che non si riduca a
icona nemmeno con il comando Mostra desktop?
2 - mi chiedevo come, in VB4, si faccia a mettere delle immagini in un
CommandButton, visto che non ci sono nè la proprietà Style nè la
propr.image?
CIAO CIAO
kronatE...@tiscalinet.OTTO     (provate a decifrarla! il suo codice
binario è 110010110100101)
http://utenti.tripod.it/NP_Games

propr.image?
non ricordo... passo.
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

 2 - mi chiedevo come, in VB4, si faccia a mettere delle immagini in un
CommandButton, visto che non ci sono nč la proprietą Style nč la
propr.image?
Non e` prevista questa possibilita`. Poi... non so se si possa, con qualche
artifizio.
Potresti usare i pulsanti dei "controlli 3D" (ThreeD16.ocx e ThreeD32.ocx)
oppure autocostruirli usando un controllo "Image".
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------


Newsgroups: it.comp.lang.visual-basic
Subject: Re: Immagine nel pulsante
Date: Tue, 05 Aug 1997 01:50:36 +0200
C'e' anche un altro modo per aggiungere una immagine in un pulsante in VB4 e
VB3, un trucco!
Metti un pulsante, poi metti una picture, imposti la proprietà enabled della
picture a false e assegni l'immagine alla picture, poi sposti il tutto, la
picture, sul pulsante dove vuoi... piccolo trucco che permette
di avere l'immagine sul pulsante in qualsiasi posizione ;)

 Metti un pulsante, poi metti una picture, imposti la proprietà enabled
della picture a false e assegni l'immagine alla picture, poi sposti il
tutto, la picture, sul pulsante dove vuoi... piccolo trucco che permette di
avere l'immagine sul pulsante in qualsiasi posizione ;)
Questa e` una "gabola", non un "artifizio". :-)))




Newsgroup: it.comp.lang.visual-basic
Titolo: WM_MOUSEWHEEL per rotellina mouse

Attraverso il Subclassing sono riuscito a catturare il messaggio di windows
WM_MOUSEWHEEL quando viene ruotata la rotellina del mouse.
Il mio problema ora č capire come "manovrare" il tutto; sulla guida
Microsoft alle API ho trovato questo:
The WM_MOUSEWHEEL message is sent to the focus window when the mouse wheel
is rotated. The DefWindowProc function propagates the message to the
window's parent. There should be no internal forwarding of the message,
since DefWindowProc propagates it up the parent chain until it finds a
window that processes it.
WM_MOUSEWHEEL
fwKeys = LOWORD(wParam);    // key flags
zDelta = (short) HIWORD(wParam);    // wheel rotation
xPos = (short) LOWORD(lParam);    // horizontal position of pointer
yPos = (short) HIWORD(lParam);    // vertical position of pointer
Parameters:
...........................
...........................
zDelta:
  The value of the high-order word of wParam. Indicates the distance that
the wheel is rotated, expressed in multiples or divisions of WHEEL_DELTA,
which  is 120. A positive value indicates that the wheel was rotated
forward, away from the user; a negative value indicates that the wheel was
rotated backward,
toward   the user.
...........................
La mia domanda č: come faccio a ricavare questo zDelta che mi serve per
"zoommare" in una form attraverso la rotazione della rotellina del mouse?
Come faccio a trovare "The value of the high-order word of wParam".
Ciao
Duccio
http://www.catenaia.cjb.net

 Come faccio a trovare "The value of the high-order word of wParam".
wParam è un long e lo puoi vedere come due coppie di byte.
La prima coppia (o l'ultima? non mi ricordo mai :P) è l'hi-word (2 byte) e
la seconda è la low-word.
Per ricavarle è piuttosto semplice (ti va bene che in questo saso sono
signed, quindi non vanno fatti controlli particolari sull'ultimo bit).
' maschero i primi due bytes e li shifto a dx
' di due posizioni
hiw = (wParam AND &HFFFF0000)\&H10000
' maschero gli ultimi due bytes.
' questi sono già shiftati
low = (wParam AND &HFFFF)
Poi da quel che hai postato credo basti fare * 120 o / 120 per ottenere una
unità.
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: DataReport

Salve a tutti!!!
Siccome avevo bisogno di un applicativo che salvasse n records in n files
.mdb (quindi n files .mdb con un record ciascuno), mi ritrovo con n files
.mdb (con un record ciascuno) da dover stampare.
Allo scopo vorrei utilizzare DataEnvironment e DataReport.
Qui sorge il problema!!!
Come posso associare, di volta in volta, tramite codice, a DataEnvironment e
a DataReport un file .mdb diverso? In parole povere devo essere in grado di
stampare il contenuto del file .mdb (e cioč il relativo record) che in quel
momento utilizzo come fonte dati.
Grazie per l'aiuto.
A presto, Andrea.

