mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Alcune domandine .... vbmodal, select case, new recordset

Sto cambiando tutti le if in select case (dove posso).
Volevo chiedere:
Si mangia + memoria con if o con select ?
Ho una form dalla quale apro un'altra form.
Se la apro con vbmodal si apre a scatti mentre se la apro senza la spara.
Da cosa può dipendere ?
Se scrivo
'INIZIO MODULO
dim rst1 as recordset
set dim1 = new recordset
rst1.open "select * from Clienti........
....
txt1=rst1!Cliente
rst1.close
e subito dopo
dim rst1 as recordset
set dim1 = new recordset
rst1.open "select * from Fornitori........
....
txt2=rst1!Fornitore
rst1.close
'FINE MODULO
La memoria occupata al momento della chiusura del recordset è come
all'inizio del modulo ?
Grazie, Alberto

 all'inizio del modulo ?
Dovrebbe, se ci aggiungi anche un bel 'Set rst1 = Nothing' ... ma perche'
ridichiari una seconda volta rst1 nella stessa procedura?
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 all'inizio del modulo ?
Ammesso che la seconda Dim sia commentata :) alla fine "teoricamente" la
memoria è tale quale all'inizio.
Per essere sicuro puoi comunque fare un bel Set rst1 = Nothing per
rilasciare completamente allocazioni pendenti.
Ma... perchè ti preoccupi di queste banalità?
Sono ben altre le cose a cui rivolgere attenzione :)
Ciao


Non ho capito una cosa, perche dichairi due volte rst1? ( sicuramente volevi
scrivere set rst1 .. )
hai chiuso il recordset , quindi è sufficiente che imposti il parametro
source di open per recuperare le nuove righe.
Per quanto riguarda la memoria il recordset ti carica in memoria (finche c'è
spazio e poi usa il file di swap) tutti i record
e li scarica al close, quindi alla fine del modulo la memoria è libera.
Carlo Alberto
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.323 / Virus Database: 180 - Release Date: 08/02/02

io lo preferisco per la sua chiarezza nella lettura.
Il codice sembra + pulito e linare
:))

Newsgroup: it.comp.lang.visual-basic
Titolo: Si può recuperare un Object dal suo hWnd?

Come da oggetto ... recupero l'hWnd ... ma poi come
fare per fare una set myvar = ....
in modo da avere l'oggetto seppur generico con il quale
parlare?
Andrea 


L'hWnd e' un handle ad una finestra, che c'entra un oggetto
COM generico?
Se intendi agguantare un oggetto del tuo progetto che abbia
una finestra hai davanti a te un loop su tutti i forms
caricati e per ognuno di essi un ulteriore ciclo su tutti i
controlli contenuti che possano avere un handle di finestra.
-- 
ciao, hal

la intendevo diversamente ... dall handle della finestra
sapere che oggetto č ed eventualmente passarmelo
in una cosa del tipo set myobj = x(hwnd)
ciao
andrea
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] versione mdac

una persona mi chiede di scaricargli mdac 2.5 sp1 ita.
ho visto che c'e' anche 2.6, con sdk e rtm.
non ci capisco piu' un gran che.
va bene l'ultima o ci vuole nella lingua del s.o. ?
il programma che lo richiede, fra l'altro, e' inglese, mentre win suppongo
italiano.
grazie, a.
ultimo dubbio -- visto che parla di dnld + install, non e' che poi parte a
installarlo sulla _mia_ macchina, eh ? scusate la domandazza, ma il pc gia'
bilica...

bilica...
A parte che sicuramente compare qualche form da confermare, cerca una voce
solo download.
Non e' che stai usando ms installer?
Salve
                Dbg

Newsgroup: it.comp.lang.visual-basic
Titolo: Passaggio a Visual-Basic

Ciao a tutti
sono un programmatore in Clipper e finalmente mi sono deciso a passare al
Visual-Basic.
secondo voi che difficoltà posso incontrare in questo cambio di
linguaggio???
Quale versione mi consigliate???
Qualcuno di voi prima programmava in Clipper???
Aiutatemi ho bisogno soprattutto di essere incoraggiato!!!!
Vi ringrazio anticipatamente
Ciao

 ha scritto nel messaggio
news:8p7rch$co0$1...@news.flashnet.it...



CUT
Grazie Ugo, ci proverò seriamente a seguire i tuoi consigli, e partirò
fiducioso sapendo che in qualsiasi momento potrò contare sull'aiuto tuo e di
tutti quelli del NG.
Ciao e ancora grazie.

Grazie Pal per la tua pronta risposta mi sei stato di grosso aiuto (specie
moralmente) cmq sono sicuro di riuscirci con l'aiuto tuo e dell'NG
Ciao.

 che avevano i vecchi oggetti Dao.
piu' che giusto. parlavo dell'interfaccia e dimenticavo il core del
linguaggio. *core* all'inglese -- ma si', poi, anche alla romanesca :)
cmq se lavorerai con basi monoutente ecc., io dao me lo terrei *molto*
stretto. gli indici consentono a volte velocita' notevoli, e l'affidabilita'
in genere credo sia ancora maggiore che con ado.
ciao, a.

Newsgroup: it.comp.lang.visual-basic
Titolo: connection pooling

Ciao,
 
un dubbio sul connection pooling,
se ho 2 pc e un server con sql server,
il 1o pc apre la connessione e poi la apre anche il secondo, cosa succede:
il 2o pc impienga meno tempo inquanto il connection pooling trova già aperta
la connessione del 1o pc, e cosi' per n pc? Oppure il connection pooling
lavora sempre in modo distinto per ogni macchina?
 
Il comportamento assunto per un programma vb di conseguenza sarà lo stesso
anche per le connessioni aperte in pagine asp e  usate da + utenti
contemporaneamente.
 
Grazie mille.
 

 ><-yŨëĒmĩÛmtÛm5ÓÛâhÆĒ- ­xäFIęïzļmķYĸÃ j)`jŨZ

Ciao e grazie per la risposta,
la stringa di connessione e' identica per tutti i pc che si collegano al
server sql ed e' sempra la stessa che uso per aprire le connessioni dalle
pagine asp.
-- 
Posted from [212.210.220.109] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
000501c1169a$8a182f60$7b00a8c0@LRMPportatile...

Newsgroup: it.comp.lang.visual-basic
Titolo: Non riesco a ridimensionare un form

Questa cosa è pazzesca , ho necessità di cambiare le dimensioni ad un form
del mio progetto VB , ma non appena lo eseguo il form viene aperto con le
dimensioni di default , cosa può essere successo ?
--
Ciao
Flex

bugs. Prova a creare un nuovo progetto e caricare la form. Sennò dovresti
andare nel notepad e togliere alcuni parametri, con cautela. Succede a
tutti. Se apri una form in MDI, ridimensionabile, devi specificare Single
Border.

Newsgroup: it.comp.lang.visual-basic
Titolo: Datacombo multicampi

Come posso visualizzare in una datacombo il contenuto di piů campi (cosě
come č possibile fare in Access mediante l'inserimento di una stringa SQL) ?
--
Ciao
Flex

 come č possibile fare in Access mediante l'inserimento di una stringa SQL)
?
nowcombo.zip, mi sembra si chiami
--
---> search for it in / cerca nel sito comune del ng:
http://www.murialdo.it/it_lang_vb/
---> 1k vblinks in:
http://www.comune.modena.it/cittadini/apal/html/

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

Salve!
Ho un problemino con il regsvr32.exe su una macchina con Win95 OSR2.
Premetto che a casa ho Win98 e regsvr32 funge perfettamente, mentre sulla
Win95 non riesco a deregistrare un tubo (mi dice che non capisce l'opzione
/u). Suggerimenti e/o spiegazioni saranno i benvenuti...
Ciao e grazie.


Newsgroup: it.comp.lang.visual-basic
Titolo: unire due file

Esiste una funzione che unisce due file.
Ho trovato su un testo:
(VISUAL BASIC5 Gary Corner McGraw-Hill) pagina 551
Shell "COPY file1+file2"
    oppure,
Shell "COPY" + file1 + "+" file2
Provato con VB5 e VB6 non funziona.
qualcuno sa perché, oppure, se c'è un'altro modo per ottenere lo stesso
scopo senza copiare riga x riga ?
orf...@tin.it

ecco come si usa il comando copy in questo casi (preso direttamente
dall'help del dos, ovvero COPY /?)
copy segmento1+ segmento2+ segmento3+ segmento4  filefinale1
lo usi con Shell() ed ecco risolto il problema
--
ciao
- Xaero -
(sostituisci nospam.x con 
inwind.it
 per rispondere)
"Un'idea che non sia pericolosa non
merita affatto di essere chiamata idea"
                Oscar Wilde

per xaero.
mi pare che NON funzioni, perchè shella lancia un programma, ma COPY NON è
un programma, ma fa parte di 
command.com
. (non esiste nè copy.exe nè
copy.com
). ecco perchè in VB c'è "filecopy".
insomma shell("copy ...") non funziona.
penso che tu debba farlo "a mano"
"Xaero" <xaero@nospam.x> ha scritto nel messaggio
news:8pqeqr$ub$1...@nread1.inwind.it...


 wrote in message
tx4w5.460$XZ4....@news.infostrada.it...


 penso che tu debba farlo "a mano"
Scusate,
non vorrei dire boiate, ma se lo lanci così...
    call shell("
command.com
 /c copy .......") dovrebbe funzionare, no?
Ciao.
--
Princi, 
princ...@programmer.net
--------------------------------------------------------------------------
"Tutti sanno che una cosa è impossibile da realizzare,
finché arriva uno sprovveduto che non lo sa e la inventa." A.E.

> luckydor:

Ci sono veramente tanti modi. Ma per limitarci al discorso di
"copy", consulta l'help di 
command.com
:
    command /?
--
Ciao.
Maurizio
--------
?SPQR(C)
 X

Puoi creare un file Batch con i comandi in Dos...
oppure
'crei due collection
Private Words01 As New Collection
Private Words02 As New Collection
'carichi i due file d input nelle collection
Dim W As String
Open app.path & "\" & FILEinput01 For  Input As 255
Do
        Input #255, W
        Words01.Add W
Loop Until EoF
Close 255
Open app.path & "\" & FILEinput02 For  Input As 1
Do
        Input #1, W
        Words02.Add W
Loop Until EoF
Close 1
' e poi li scarichi in un file di output
Open app.path & "\" & FILEoutput02 For  Output As 1
For "primo elemento collection01 " to "ultimo elmento"
            Print #1, elemento_collectio01
next
For "primo elemento collection02" to "ultimo elmento"
            Print #1, elemento_collectio02
next
Close 1

 per xaero.


     call shell("
command.com
 /c copy .......") dovrebbe funzionare, no?
:-)




Newsgroup: it.comp.lang.visual-basic
Titolo: Perchè non funziona???

Come mai se metto in access questa query
Select * from Articoli where Codice_Articolo like '18*'
funziona tutto ok ma se la metto in un progetto di vb invece non mi cerca
assolutamete nulla, anzi mi da un risultato di recordset vuoto???

SotterratoVivo ha scritto:

Perchè se usi ADO (esiste un NG di indovini?) al posto di * devi mettere %

*SotterratoVivo* ci ha deliziati con queste righe
 Quote:

in vb funziona solo se stai utilizzando dao , infatti in dai il carattere
jolly e' * in ado e' % , su msdn c'e' la tabella con tutti i caratteri
diversi tra ado e dao
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

 ha scritto nel messaggio
news:b115vq$sddal$1...@ID-174464.news.dfncis.de...

azz... e dove sta scritta sta cosa che nella guida di ADO ho letto:
Se l'operatore di confronto è "like", il valore stringa potrà contenere "*",
ovvero una o più occorrenze di un carattere qualsiasi, oppure "_",
un'occorrenza di un carattere qualsiasi. Specificando "state like M_*"
vengono ad esempio trovati sia Maine che Massachusetts.

"Gigio2K" ha scritto fuori linea, vero? ;-)
Oppure mi ha plonkato? ;-(

 vengono ad esempio trovati sia Maine che Massachusetts.
La guida in tal senso è sbagliata. Sob! ;-(

 "Gigio2K" ha scritto fuori linea, vero? ;-)
sempre off-line , ma voi come cavolo fate ? se io ho 100 messaggo da leggere
: Leggo ,rispondo e passo avanti , alla fine segno tutti come gia' letti e
Aggiorno il db , pero' mi capita sempre che quando rispondo alle ultime
domande magari 2 o 3 persone hanno gia' risposto :(
esiste qualche trucco a me oscuro ?


 esiste qualche trucco a me oscuro ?
Sě, stare in linea, aggiornando spesso (e svenarsi di soldini). ;-)

 Sì, stare in linea, aggiornando spesso (e svenarsi di soldini). ;-)
ma scusa cosi mi si mischiano tutti i messaggi , se per esempio sto leggendo
un 3ad e passo a quello successivo e aggiorno , al 3ad precedente si
aggiungono altri messaggi cosi  ho 2 possibilita' :
- torno su cosi rileggo il 3ad e non mi smuovo trascurando i messaggi
vecchi....
- andare giu' cosi quando arrivo alla fine non so quali messaggi scartare e
quali andare a rileggere !
Dovrei segnare come letti ogni 3ad mentre scorro in giu' i messaggi :-/
maronna mia che casinotto !!!


 maronna mia che casinotto !!!
Ma, scusa, (io uso OE), i messaggi ancora da leggere non ti compaiono in
grassetto?

 in grassetto?
anche io uso OE e i messaggi in grassetto di vari colori mi compaiono in
mezzo a quelli letti di diversi colori , in pratica leggere il ng significa
guardare un arcobaleno ^_^ e non e' sempre facile :p

Newsgroup: it.comp.lang.visual-basic
Titolo: Query parametrica

Qualcuno mi puo' dare una dritta su come eseguire una query parametrica gia'
creata in un database access?.
Grazie a tutti anticipatamente.


le query parametriche le trovi nella collezione .Querydefs del database
puoi gestirel cosi:
dim db as database, qdf as querydef,rs as recordset
	set db=opendatabase("pippo.mdb")
	set  qdf=db.querydefs!nome_query
	qdf!parametro_1= valore_1
	.
	.
	.
	qdf!parametro_n= valore_n
	qdf.execute			' se e' una query che NON ritorna  records
	set rs=qdf.openrecordset(dbopendynaset) ' se e' una query che ritorna
records

Newsgroup: it.comp.lang.visual-basic
Titolo: FAX Server

Ho il seguente problema: dovrei far inviare Reports via FAX in automatica,
sfruttando il n° di Fax memorizzato nell'anagrafica Clienti.
Utilizzando i soliti MS Fax (tanto limitato da essere inutile) o Win Fax non
ci sono problemi: il codice (VB o VBA) per sfruttare l'API di questi
programmi e
inviare Fax al numero specificato creando canali DDE si trova dappertutto.
Il fatto è che Win Fax non funziona sotto Win 2000 Server _e lo dice proprio
all'avvio_ il che significa addio propositi di utilizzarlo con MS Terminal
Services.
Avete provato prodotti alternativi (tipo ZetaFax) con i requisiti che mi
servono/servirebbero?
Ciao a tutti, Vittorio

poco tempo fa ho pubblicato la versione di prova di un activex per inviare
fax
con modem analogici, č su 
www.redangel.it
 visto che il SC non accetta piů
binari,
č una versione testata su poche macchine, se non pretendi molto forse puň
servire.
saluti.
Carlo.

Newsgroup: it.comp.lang.visual-basic
Titolo: VBA e Excel

Ragazzi un problemino, devo leggere (per poi comparare) i dati di un foglio
Excel
uso VBA come da codice sotto.
Il tutto funziona ma ci mette circa 2 ore per leggere un foglio di 5.000
righe con 36 colonne.
Vi chiedo se conoscete un sistema piu' veloce e se esiste la possibilità di
poter leggere da excel una riga intera in un colpo solo (sul tipo
inputline).
Ho anche provato a memorizzare il risultato in un Array  invece di scriverlo
sull' MSHFlexGrid1 ma cambia di pochissimo, il problema è che ci mette tanto
a leggere.
Vi sarei grato dell'aiuto
Ciao Paolo
Dim FileExcel As Workbook
Dim FoglioExcel As Worksheet
Set FileExcel = Excel.Workbooks.Open(App.Path & "\xxx.xls")
Set FoglioExcel = FileExcel.Worksheets("Foglio1")
tempdown = 2
Do
  entry = tempdown - 1 & Chr(9)
  If FoglioExcel.Cells(tempdown, 1) = "" Then Exit Do
  For t = 0 To 35 ' 36 sono le colonne del file. xls
      ContenutoCella = FoglioExcel.Cells(tempdown, t)
      entry = entry & ContenutoCella & Chr(9)
  Next t
  MSHFlexGrid1.AddItem entry
  tempdown = tempdown + 1
Loop
-- 
Posted from 
mail-5.tiscalinet.it
 [195.130.225.151] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

La butto li sensa verificarla.
Mi sembra che fra i vari formati (isam) supportati dal datacontrol ci sia
anche excel. Prova ad aprire il foglio come se fosse un database, cosi
facendo puoi evitare il ciclo sulle singole celle e forse il tutto sarebbe
più veloce.
Potresti anche tentare si allegare il foglio execel ad un file .mdb e
scrivere poi una routine del genere
dim mydb as database
dim myrs as recordset
    set mydb = opendatabase("miodb.mdb")
    set myrs = mydb.openrecordset("foglioexecel)
a questo punto puoi trattare il foglio xls come una tabelle del db (con
qualche limitazione)
Saluti Roberto C.
Fammi sapere se sono stato utile

Newsgroup: it.comp.lang.visual-basic
Titolo: Problem to connect Access database from VB

I am new in both VB and MS Access. So probably this is a very basic
thing.
I couldn't connect to the database from VB. I am using VB 6.0 and
Access 2000 9.0. Its giving error like "Unrecognized database format".
I could connect to the older version of Access though. I have added
the Microsoft Access 9.0 object library reference to my VB project.
Can anybody help me on this matter?
Thanks and regards.
Pamela.

 ha scritto

pamela
you might want to install service pack 5 for vb6.
you should find it here:
http://www.microsoft.com/downloads/search.asp
?
+- 50mb i think.
hth, j.
--
www.sundaysw.com

IT stands for Italian, not Information Tecnology (a common mistake): here
you should post in Italian language only! ;)
Bye

 you should post in Italian language only! ;)
Neaple's dialect is admitted, too.
Alberto

 Neaple's dialect is admitted, too.
LOL !
Bye, G.

 IT stands for Italian, not Information Tecnology (a common mistake)
yes, you're right
information technology is a common mistake :)

> IT stands for Italian, not Information Tecnology (a common mistake)
LOL! ;)
Newsgroup: it.comp.lang.visual-basic
Titolo: Riga della posizione del cursore.....difficile se non impossibile.

Salve a tutti.
Mi sto cimentando nella realizzazione di qualche add-in, cosa che non avevo
mai fatto prima, e sono incappato negli oggetti codepane e codemodule per
l'interazione con il codice dei moduli presenti nel progetto. Volendo
realizzare un add-in che inserisca automaticamente del codice nella finestra
di modulo attiva nella posizione corrente del cursore.....la domanda e
questa.....come faccio a recuperare la riga in cui si trova il cursore?
Grazie a tutti
DD

 ha scritto nel messaggio
news:YjGa9.105023$n04.2...@twister2.libero.it...

Hmmm... conosco un solo Daniele che si firma con DD ;-)
Prova CodePane.GetSelection...
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown


La piu bella voce che potevo sentire su internet.......come te la
passi.....il CIPS com'è andato?
Mi e dispiaciuto non poterci essere, dopo i primi due incontri.....speravo
anche in questo....
Cavolo è un monte che non ci si vede, e soprattutto che non mi faccio piu
sentire sul G6 ma sono stato impegnato
da fare schivo con il lavoro. In compenso ho messo mano un po' di tempo fa
al vecchio controllo ocx che avevo realizzato e quasi quasi te lo mando,
cosi mi dai il tuo parere.
Manda un saluto a tutti gli altri da parte mia, cerchero di farmi sentire al
piu presto possibile.
Per quanto riguarda la getselection se non ho capito male devo passargli 4
variabili, che mi vengono settate con la posizione del cursore.
Provero......
Un abbraccio
DD

 Provero......
Esattamente; 4 variabili da passare per riferimento che ri restituiscono
inizio/fine riga e inizio/fine colonna della selezione... puoi usare il
risultato con il metodo InsertLine per aggiungere testo al codice

Newsgroup: it.comp.lang.visual-basic
Titolo: [?][ADO] Bloccare temporaneamente l'accesso ad un file mdb

Salve a tutti,
sto realizzando in VB6 un programma per la consultazione di un archivio via
internet : la parte relativa alle schermate web e' realizzata con delle
WebClass mentre l'archivio e' basato su un file MDB (Access 7.0) a cui
accedo attraverso ADO usando il provider OLEDB Jet 4.0.
Il problema e' questo : se si verifica una particolare condizione l'archivio
deve essere aggiornato e durante l'operazione deve essere impedito l'accesso
anche in lettura, come fare ?
Piu' in generale, come gestire la richiesta di apertura di una connessione
in modo da rifiutare l'accesso in particolari condizioni senza ricorrere a
soluzioni tipo variabili globali o memorizzazione dello stato su file ? ADO
lo permette o questa opzione non e' prevista ? e' possibile impostare un
lock a livello di tabella o di database ?
Grazie anticipate per l'attenzione (Se l'argomento e' gia' stato trattato
qui sul newsgroup o sul sito comune segnalatemelo, ho effettuato varie
ricerche ma non ho trovato niente che riguardasse questo caso).
Maurizio "Diaspar" Sani
ms...@bin.it

Maurizio,
    prova con
adoConnection.Mode = adModeReadWrite + adModeShareExclusive
ciao,
Alessandro Scardova
scar...@tin.it
http://space.tin.it/computer/ascardov/

 wrote in message
7j8sji$cmq$1...@nslave1.tin.it...

Se provo la combinazione che hai scritto ADO genera un errore, mentre
funziona tutto se utilizzo la modalita' adModeShareExclusive da sola (forse
dipende dal fatto che uso il provider Jet).
Comunque dalle prove che ho fatto sembra che tale modalita' sia sufficiente
per i miei scopi.
grazie dell'aiuto!!
Maurizio "Diaspar" Sani
ms...@bin.it
Newsgroup: it.comp.lang.visual-basic
Titolo: File.bat

Quando si lancia un file.bat con:
RetVal = Shell("c:\file.bat",1)
è possibile capire quando finisce la sue esecuzione per far partire una
insert su una tabella???
 Se si vorrei saper anke se si puo' capire se il file.bat è stato interrotto
o è andato male.
Ciaoo

 ha scritto nel messaggio
news:ahluc2$8q2k$1...@stargate1.inet.it...

Dovresti lanciare il batch con una "Shell sincrona"
La shell sincrona attende che l'applicativo (o il file batch) lanciato
termini l'esecuzione prima di restituire il controllo alla sub che l'ha
lanciata. Non so se questo è quello che cerchi, comunque ti allego
l'esempio.
questo è il comando di esecuzione
ExecCmd ("c:\file.bat")
Questo codice lo metti in un modulo
Private Type STARTUPINFO
            cb      As Long
            lpReserved  As String
            lpDesktop   As String
            lpTitle     As String
            dwX     As Long
            dwY     As Long
            dwXSize     As Long
            dwYSize     As Long
            dwXCountChars   As Long
            dwYCountChars   As Long
            dwFillAttribute As Long
            dwFlags     As Long
            wShowWindow As Integer
            cbReserved2 As Integer
            lpReserved2 As Long
            hStdInput   As Long
            hStdOutput  As Long
            hStdError   As Long
    End Type
    Private Type PROCESS_INFORMATION
        hProcess    As Long
        hThread     As Long
            dwProcessID As Long
            dwThreadID  As Long
    End Type
    Private Declare Function WaitForSingleObject Lib "kernel32" _
    (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
    Private Declare Function CreateProcessA Lib "kernel32" (ByVal _
    lpApplicationName As Long, ByVal lpCommandLine As String, ByVal _
        lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, _
        ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, _
        ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, _
        lpStartupInfo As STARTUPINFO, lpProcessInformation As _
        PROCESS_INFORMATION) As Long
    Private Declare Function CloseHandle Lib "kernel32" (ByVal _
    hObject As Long) As Long
    Private Const NORMAL_PRIORITY_CLASS = &H20&
    Private Const INFINITE = -1&
Public Sub ExecCmd(cmdline As String)
    Dim proc As PROCESS_INFORMATION
        Dim start As STARTUPINFO
        'Inizializza la struttura STARTUPINFO:
        start.cb = Len(start)
        'Esegue il programma nella Shell:
        ret& = CreateProcessA(0&, cmdline, 0&, 0&, 1&, _
        NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc)
        'Attende che il programma nella Shell termini:
        ret& = WaitForSingleObject(proc.hProcess, INFINITE)
        ret& = CloseHandle(proc.hProcess)
End Sub
Newsgroup: it.comp.lang.visual-basic
Titolo: webbrowser e cartelle

ciao a tutti...
c'è qualcuno che sa qualcosa oppure ha un esempio su come gestire le
cartelle del disco con  il controllo webbrowser?
Purtroppo non funziona nessun evento e non so ocme fare a gestirlo
--
-------
sito: 
www.dadev.it
ultime: Ocx per irc testi freeware
-------

Forse ti posso aiutare, ma ti dovresti spiegare meglio, magari fai un
esempio di quello che vuoi fare.
Davide Cerbo


pensavo di averlo fatto cmq.
esempio :)
webbrowser1.navigate "c:\"
come faccio a rilevare il doppio click sulla lista dei file ?
come faccio a non fargli aprire un altra cartella dopo il doppio click ?
come faccio a cambiare la visualizzazione della lista file in mode
"dettagli"?
insomma vorrei gestirlo come fa "gestione risorse" :))
Nei reference ho trovato questo SHDocVw.ShellNameSpace ma non è documentato
da nessuna parte e sembra che faccia al caso mio ma non so come associarlo
al webbrowser
ciao


per evitare di aprire la cartella in un altra finestra non ti posso essere
di aiuto, cmq gira su 
msdn.microsoft.com
 e cerca "webbrowser same window"
(senza virgolette) e vedi se quell'esempio lo riesci ad adattare, per le
pagine web funziona. Per quanto rigurda il doppio click su
www.planetsourcecode.com
 una volta trovai un esempio per disabilitare il
tasto destro sul webbrowser e sostituirne il menù di pop up, quindi cerca un
po' sul sito, ce ne sono un paio di esempi.
Buono studio....
Davide Cerbo
Programmatore in:
C - Visual Basic - VB Script - Flash
www.e-salerno.it
Gente scaricate Clippy da:
www.e-salerno.it/clippy
Newsgroup: it.comp.lang.visual-basic
Titolo: Bloccare applicazione dopo x minuti di inattività

Salve a tutti,
il mio problema è il seguente:
per questioni di sicurezza dovrei bloccare/chiudere l'applicazione dopo X
minuti di inattività (qualsiasi tipo: consultazione, inserimento dati,
ecc.).
Non mi viene in mente nulla.
Suggerimenti?
Grazie mille a tutti

 typed:

Intercetti le pressioni dei tasti e _tutte_ le operazioni possibili con il
mouse riazzerando un timer.

 minuti di inattività (qualsiasi tipo: consultazione, inserimento dati,
Se ricordo,
- proprietà KeyPreview della form=true
- se nell'evento
Private Sub Form_KeyPress(KeyAscii As Integer)
per tot secondi non viene attivato
chiusura della maschera o applicazione.
Ave
giuseppeD

 - se nell'evento
però, come dice lord, è meglio monitorare anche il topolino...
--
Salutoni
Sergio

 però, come dice lord, è meglio monitorare anche il topolino...
aggiungiamo l'evento ?
Private Sub Form_MouseMove
Ave
giuseppeD

 Private Sub Form_MouseMove
E se mi muovo su un frame? non mi risulta che esista una proprietà
mousepreview! :P
Btw io non controllerei i movimenti del mouse che potrebbero anche essere
incidentali (hai presente i mouse ottici quando fanno vibrare il puntatore
del mouse in modo percettibile?)...
Io controllerei invece l'interazione con le combo, i pulsanti e via dicendo
oltre alla pressione dei tasti.

 ha scritto nel messaggio
news:blh6aa$27hd$1...@half.spin.it...

Possibile
- Se in una maschera è necessario digitare, possibile il controllo solo su
KeyPress
- Se i controlli sono pochi oltre al KeyPress della form anche il movimento
o pressione del mouse per i controlli
- Se i controlli sono parecchi, forse è meglio lavorare con Array di
controlli
Ave
giuseppeD

controlli
Mi domando, a questo punto, se sia proprio necessario sviluppare
l'applicazione in vb...
-- 
ciao, hal

 ha scritto nel messaggio
news:mtlonv0u77qandgdd...@4ax.com...

Della serie come complicarsi la vita.
Ave
giuseppeD

 mousepreview! :P
Prova a usare le funzioni API GetCursorPos e GetWindowPos
-- 
Nella vita una sola cosa è certa: se la storia ci ha insegnato qualcosa, 
è che si può uccidere chiunque.
(Michael Corleone)

Newsgroup: it.comp.lang.visual-basic
Titolo: Combinazioni numeriche

 però mi manca l'algoritmo per poter scrivere tutte le colonne composte ...
così
Sempre che io sia stato chiaro nella richiesta, sapresti dirmi come devo 
implemetare l'algoritmo per poter ottenere le combinazioni?
Ovviamente, nel caso che tu non potessi farlo, ti sarei grato se mi 
indicassi altri programmatori VB a cui chiedere.
Grazie Antonio
bianco...@tele2.it

 indicassi altri programmatori VB a cui chiedere.
Qualche anno fa ho realizzato una dll activeX da usare con VB6 contenente un 
framework per il gioco del lotto, che comprendeva funzioni che andavano 
dalla storicizzazione delle estrazioni a tutte le funzioni di supporto 
(cadenza, decina, ricerca delle combinazioni nelle estrazioni, frequenze 
ecc...) compresi i calcoli delle combinazioni e disposizioni degli estratti.
Se interessa posso inviartela.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo DATA come fare?????

Ho un problemino che spero mi aiuterete a risolvere.
Ho creato un programmino in VB5 che richiama una tabella da un database
Acces(.mdb) con il controllo DATA , ho impostato tre CommandButton, uno per
inserire un nuovo record, uno per cancellare un record esistente e l'
ultimo per contare il numero totale dei record.
Quello che non sono riuscito a fare è creare un comando che mi permetta di
inserire un campo e quindi attraverso questo trovare il relativo
record.....:(( Per esempio impostare un InputBox che chieda il campo
"Cognome" e di conseguenza vada al primo record che contiene quel tipo di
stringa.
Sò che si dovrebbero utilizzare i comandi Find o Seek, ma non sono riuscito
a capire come utilizzarli e se è possibile utilizzarli nel controllo DATA
(Spero di si.)
Ho sparlato anche troppo....scusate.
Potreste darmi la sintassi esatta di come usare il comando Find nel
controllo Data usando come metodo di selezione campo un InputBox??? Ve ne
sarei molto grato :)))))
                                   Ciao a tutti.
                                            Grazie  Bobby
--
Posted from [195.61.212.5]
via Mailgate.ORG Server - 
http://www.mailgate.org

il piu' facile e' Find. Un esempio e'
    A$ = InputBox("Cognome da cercare:", "CERCA", "")
    Data1.Recordset.FindFirst "Cognome =" + Chr$(34) + A$ + Chr$(34)
Cerca sul manuale ulteriori possibilita'
Ciao
Roberto


Newsgroup: it.comp.lang.visual-basic
Titolo: creazione indice di una tabella

DEVO CREARE UN INDICE AD UNA TABELLA.
UTILIZZO L'ISTRUZIONE SQL CREATE INDEX........
COME FACCIO A CREARE UN INDICE FORMATO DA DUE CAMPI ?
RINGRAZIO ANTICIPATAMENTE LAURA

Personalmente utilizzo una sintassi simile a quella descritta nella funzione
sottostante da cui ho eliminato il codice che controlla l'esistenza della
tabella.
Se la tua tabella esiste già devi sostituire al metodo CreateTableDef la
matrice TableDefs
Private Function ritorna_arc_tbl_def(arc_db As Database,nome_arc_tbl as
string) As TableDef
  Dim arc_tbl_def As TableDef
  Dim fstart As Field
  Dim fstop As Field
  Dim idx As Index
  ' Crea definizione della nuova tabella
  Set arc_tbl_def = arc_db.CreateTableDef(nome_arc_tbl$)
  With arc_tbl_def
    Set fstart = .CreateField("Start", dbDate)
    Set fstop = .CreateField("Stop", dbDate)
    .Fields.Append fstart
    .Fields.Append fstop
    ' Crea indice chiave primaria.
    Set idx = arc_tbl_def.CreateIndex("PrimaryKey")
    idx.Fields.Append idx.CreateField("Start")
    idx.Fields.Append idx.CreateField("Stop")
    idx.Primary = True
    .Indexes.Append idx
  End With
  arc_db.TableDefs.Append arc_tbl_def
  Set ritorna_arc_tbl_def = arc_tbl_def
End Function
Ciao e Auguri, Giorgio
Laura ha scritto nel messaggio ...

Newsgroup: it.comp.lang.visual-basic
Titolo: Verificare se un EXE è attivo

Io ho un apllicazione exe fatta da me attiva.
Se riapro lo stesso programma, come faccio a verificare se è già attivo?
Lo potrei fare con un file, ma se io chiudo l'applicazione con CTRL-ALT-CANC
il file non verrà cancellato e quindi non potrò più riaprire il file.
Come si potrebbe fare?

 Come si potrebbe fare?
app.previnstance
almeno, mi sembra si chiami cosě :-)
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 ha scritto nel messaggio
news:caD1c.14665$HO2....@news.edisontel.com...


 ha scritto nel messaggio
news:0BD1c.14671$HO2....@news.edisontel.com...


 prova.exe?
API FindWindow e Google gruppi :-).
Bye, G.

 E se invece devo controllare se č attivo un determianto programma
prova.exe?
Public Declare Function Findwindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName As String, ByVal lpWindowName As String) As Long
' Restituisce True se la finestra č caricata in memoria
Public Function isLoadedWindows(winname As String) As Boolean
    Dim PrevHndl As Long, result As Long
    PrevHndl = Findwindow("ThunderRT6Main", winname)
    isLoadedWindows = PrevHndl <> 0
End Function
Bye.
Sull' asciutto e sul bagnato tieni spalancato.

 ha scritto nel messaggio
news:caD1c.14665$HO2....@news.edisontel.com...

Io eviterei di usare app.previnstance. Microsoft raccomanda di scordarsene
da 8 anni e mezzo, ormai, e sarebbe l'ora di cominciare a smettere di farci
affidamento :-)
Usa piuttosto un bel Mutex!
Newsgroup: it.comp.lang.visual-basic
Titolo: Mailslot

Ciao,
qualcuno e' riuscito ad usare le mailslot?
Io sto veramente impazzendo...ho bisogno di una mano !
Grazie.
Stefano

qualcuno e' riuscito ad usare le mailslot?
Ecco una funzione per inviare un messaggio a WinPopUp, che usa Mailslot
bye
Mauro Mariz
3nto
-----------------------------------------------------------------
Option Explicit
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long)
As Long
Private Declare Function WriteFile Lib "kernel32" _
               (ByVal hFile As Long, _
                ByVal lpBuffer As Any, _
                ByVal nNumberOfBytesToWrite As Long, _
                lpNumberOfBytesWritten As Long, _
                ByVal lpOverlapped As Long) As Long
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" _
               (ByVal lpFileName As String, _
                ByVal dwDesiredAccess As Long, _
                ByVal dwShareMode As Long, _
                ByVal lpSecurityAttributes As Long, _
                ByVal dwCreationDisposition As Long, _
                ByVal dwFlagsAndAttributes As Long, _
                ByVal hTemplateFile As Long) As Long
Private Const OPEN_EXISTING = 3
Private Const GENERIC_READ = &H80000000
Private Const GENERIC_WRITE = &H40000000
Private Const GENERIC_EXECUTE = &H20000000
Private Const GENERIC_ALL = &H10000000
Private Const INVALID_HANDLE_VALUE = -1
Private Const FILE_SHARE_READ = &H1
Private Const FILE_SHARE_WRITE = &H2
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Function SendToWinPopUp(PopFrom As String, PopTo As String, MsgText As
String) As Long
    Dim rc, rcw As Long
    Dim mshandle As Long
    Dim txtprova As String
    Dim byteswritten As Long
    Dim mailslotname As String
    ' compongo il nome della mailslot di winpopup
        mailslotname = "\\" + PopTo + "\mailslot\messngr"
    ' compongo il testo del messaggio
        txtprova = PopFrom + Chr(0) + PopTo + Chr(0) + MsgText + Chr(0)
        mshandle = 0
        mshandle = CreateFile(mailslotname, GENERIC_WRITE, _
                              FILE_SHARE_READ, _
                              0, OPEN_EXISTING, _
                              FILE_ATTRIBUTE_NORMAL, 0)
        If mshandle < 1 Then
            SendToWinPopUp = 1
            Exit Function
        End If
        rcw = WriteFile(mshandle, txtprova, Len(txtprova) + 1, byteswritten,
0)
        If mshandle < 1 Then
            SendToWinPopUp = 1
            rc = CloseHandle(mshandle)
            Exit Function
        End If
        rc = CloseHandle(mshandle)
    End Function
Newsgroup: it.comp.lang.visual-basic
Titolo: Fasi lunari

Qualcuno conosce algoritmi per calcolarle?
Grazie.
----
Ciao, Mauro CB.
----
Non comprerò mai un DvD Cecchi Gori !
la traccia inglese/originale è assente !
il formato originale del film NON è rispettato !
il master video utilizzato è scadente !
mancano i sottotitoli !
non ci sono extra degni di questo nome !

...



Per la Pasqua puoi usare la seguente funzione, che trovi
anche sul sito comune (questa è leggerissimamente ottimizzata):
Public Function PasquaGregoriana2(anno%) As Date
 Dim a%, b%, c%, p%, q%, r%
 a = anno% Mod 19: b = anno% \ 100: c = anno% Mod 100
 p = (19 * a + b - (b \ 4) - ((b - ((b + 8) \ 25) + 1) \ 3) + 15) Mod 30
 q = (32 + 2 * ((b Mod 4) + (c \ 4)) - p - (c Mod 4)) Mod 7
 r = (p + q - 7 * ((a + 11 * p + 22 * q) \ 451) + 114)
 PasquaGregoriana2 = DateSerial(anno%, r \ 31, (r Mod 31) + 1)
End Function
Per le fasi lunari uso questa funzione, forse non è il massimo
ma sono riuscito a scrivere solo questa che segue:
Public Function FaseLunare!(data As Date)
 FaseLunare! = (data + 2415018.5) / 29.53058868 -0,30904
 FaseLunare! = FaseLunare! - Int(FaseLunare!)
End Function
i valori che restituiscono vanno da 0 ad 1(quasi):
0 è la luna nuova, 0,25 primo quarto, 0,50 luna piena,
0,75 ultimo quarto
Ciao
            gpb




Newsgroup: it.comp.lang.visual-basic
Titolo: Operazioni all'interno di stringhe

Ciao a tutti
come faccio a far eseguire a vb un'operazione all'interno di un testo?
es. in text1.text viene immesso: a+b
      voglio calcolare c= testo, in questo caso c=a+b
Come faccio?

 wrote in message
JxhW3.31159$s17.3...@typhoon.libero.it...

  VB non mette a disposizione nessuna istruzione per fare cio' che chiedi
(in altri linguaggi esiste l'istruzione nativa Eval).
  Per valutare l'expr contenuta in una variabile stringa, bisogna costruirsi
da soli una routine che ne effettui il parsing. Routines di questo tipo,
gia' realizzate da programmatori volenterosi, puoi trovarne in molti siti
riguardanti il VB. Se non ricordo male dovrebbe esserci una routine di
parsing nel sito comune (altrimenti prova su
http://www.beginend.com/vbasic
).
  Ciao


Oppure ti cerchi un controllo che lo fa per te.
La M$ ne distribuisce uno al suo sito per lo scripting VB ma non ricordo se
è free.
Se vuoi ti dò maggiori informazioni sul nome esatto (se proprio vuoi te lo
invio per posta)
Ciao

VBScript component !!!
Inoltre fa un sacco di altre belle cosette !!!
Ciao.
Alfredo.

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6 su XP] Plugin da registrare al volo

Ho un programmino che puo' essere esteso tramite plug-in (che sono in
pratica delle ActiveX dll che espongono la stessa interfaccia). Quando
lancio l'applicativo, si spazzola la cartella dei plugin alla ricerca
dei file con estensione .dll, li registra al volo con la regsrv32, e ne
propone l'elenco di funzionalita'. Ovviamente, all'uscita del programma
deregistro le dll.
Il problema sorge quando faccio girare l'applicativo con un'utenza che
non e' amministratore di macchina (ad esempio, aggiungendo un nuovo
utente con tipo account 'limitato'), xche' in questo caso la regsrv32 mi
da' errore.
Qualche idea (anche un modo diverso di scrivere e gestire i plugin) su
coime risolvere il problema? ...ovviamente, non posso obbligare il
cliente ad avere tutte le sue utenze 'amministratore di macchina'...
Bye by SixaM 8-]
P.S. usando al posto della regsrv32 le api (GetProcAddress,
CreateThread, e via dicendo) il risultato non cambia...

 cliente ad avere tutte le sue utenze 'amministratore di macchina'...
Non che io sappia, se trovi un modo fallo sapere sul NG.
Serve un utente admin per registrare dll.

 ha scritto nel messaggio 
news:hn7uoa$fkn$1...@tdi.cu.mi.it...

Io conosco 2 possibili strade, di cui ho esperienza con la prima.
1) Crearsi un servizio NT (che solitamente gira come localsystem) di 
appoggio che si occupi della registrazione.
Ovviamente va distribuito e installato con la tua applicazione (ma tanto in 
quel momento DEVI essere admin, non ci son santi...).
2) Sviluppare i plugin come componenti COM "registration-free" (richiede 
XPSP2 o superiore).
http://msdn.microsoft.com/en-us/library/ms973913.aspx
http://www.devx.com/vb/Article/32888/1954
Bye
Raf
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] WebCam & MediaPlayer: Possibile abbinarli?

Un subject un po' strano eh?
mi spiego:
Ero lì nel mio candido lettino, e ho sentito una voce che diceva "
Luvmetwotimes "
dico: "Soccia, chi è?" ... dico: "OOOH!!!" ... dice: "Svegliati sono il tuo
Dio"
Allora così in questo modo sollecitato ho pensato di fare un applicazione
colossale e abbinare WebCam e MediaPlayer.
(Spudorato storpiamento de "Genesi" di Guccini)
Praticamente vorrei utilizzare l'output di una webcam come sorgente "stream"
(live) per mediaplayer e creare così una sorta di utility per applicazioni
stile ICQ che consenta due utenti di comunicare tra loro attraverso quanto
su detto.
Il problema è:
Come cavolo faccio capire al povero mediaplayer che deve utilizzare le
immagini passate dalla webcam come stream?
Sono ben accette: idee e/o esempi e/o OCX e/o tutorials e/o insulti e/o
"chenneso"
-- Luvme2times
"Love me two times babe | I'm going awayyyy"
J.D.M.

 immagini passate dalla webcam come stream?
Ho notato un errore concettuale in questa affermazione... mediaplayer non
deve prendere le immagini della webcam fingendo che siano "streammate"
(Neologismo di cui vado fiero).
Dovrei comprimere (???) direttamente le immagini in uscita dalla cam in
formato asx (o wvx?)... e poi passarle al mediaplayer del client via IP...
boh.... mi sto incasinando da solo....
Plz.... fate luce se potete!



mmmm
non vorei dire la solita caz..ta delle 9 di sera, ma mi pare che nel
media player 7 (o comunque l'ultimo) ci sia un programmino che permette
di mandare uno stream video (anche in diretta) su internet, come se
facessi una trasmissione radio o tv. Potrebbe essere utile darci
un'occhiata, non conosco bene il funzionamento perchè non mi interessa
lo streaming, però mi aveva incuriosito la trasmissione in diretta...
ciao
degra
Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Gif Animate

Come si fanno ad inferire le gif animate in un'applicazione VB?
E in una pagina WEB, utilizzando Word o FrontPage?
Grazie a tutti per le risposte.

...


Grazie a tutti per le risposte.
Per le gif animate in VB, c'č un OCX sul sito comune
http://www.murialdo.it/it_lang_vb
Per il WEB, io utilizzo FrontPage Express ed č sufficiente aprire il menů
Inserisci>Immagine e digitare poi il percorso dell'immagine desiderata, che
sia una gif animata o qualunque altro formato. Un consiglio: Word per il
formato HTML č una mezza schifezza. Se puoi usa qualcos'altro, a meno che le
tue pagine Web non siano estremamente semplici.
Ciao
Cesare Nicola


http://www.murialdo.it/it_lang_vb
Ma quell'OCX va bene anche per le gif non animate?
Grazie.
ByeZ!
Alkondor

>Per le gif animate in VB, c'č un OCX sul sito comune


Ma quell'OCX va bene anche per le gif non animate?
I controlli di VB accettano gią le gif non animate !
puoi usare bmp, gif, jpg, wmf, ico, cur e dib.
Bye, G.
--
---------------------------------------------
    Le risposte alle tue domande le trovi sul
    Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------
Real E-address: 
gaet...@hotmail.com

I controlli di VB accettano già le gif non animate !


 wrote in message
7j3lrp$se8$1...@aquila.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: funzione in C to Vb ... help ....

Ciao a tutti,
ho il seguente problema sul quale mi occorrerebbe una delucidazione:
devo utilizzare una funzione di una dll, scritta per essere chiamata dal C.
La funzione e' :
void calc(double a, double b, double c, double *d, int *e) ;
a,b,c sono i parametri che passo io, la funzione li utilizza per calcolare
due valori,
che scrive nelle locazioni puntate dai puntatori d ed e .
Qualcuno mi sa dire come devo chiamare questa funzione da visual basic ?
Come
tratto i puntatori ?
Grazie infinite
Franco

 ha scritto nel messaggio
news:hZ5B6.22175$k53.4...@news1.tin.it...


> void calc(double a, double b, double c, double *d, int *e) ;
Non so se funzica, ma penso di sě...
Quando dichiari la funzione
 Public Declare ... ALIAS ... FROM ...
Alla fine ci sono i parametri, metti:
byVal double a, byVal double b, byVal double c, byRef double d, byRef  long
e
        Ciao
                Allanon


Non solo come chiamare da vb, ma anche come dichiararla in C !
Sul sito comune (
www.it-lang-vb.net
) vai su Documentazione / Articoli.
C'e' "Creare una DLL in C per Visual Basic" di Paolo Sabatino che potrebbe fare al caso tuo.
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: VB & MultiThreading & Sockets & ...

Saluti ai lettori,
ho una dll multithread scritta con VC++ 5.0 che utilizza i
socket per comunicare con una macchina non Windows.
Tale dll esporta delle primitive di comunicazione globali
(non sono dei metodi) tipo:
long OpenConnection( char *IP_Address); // Apre la conness. con socket
void ReadField( void * Field, long ID_Field);
void WriteField( void * Field, long ID_Field);
void GeneralEvent( long Param, long Data); // Callback di ricezione di un
evento
void CloseConnection(); // Chiude la connessione
Ho scritto delle applicazioni con MFC che usano tale
dll e funziona tutto perfettamente.
Poi ho scritto una applicazione in VisualBasic 5.0 che deve utilizzare
tale dll. La applicazione trova la funzione OpenConnection ma,
durante la esecuzione di tale routine (che avvia un thread di
polling sul socket di input) si pianta ! Il bello è che si pianta
durante la inizializzazione del thread ("dentro" il codice
di MFC) quando cerca di ottenere il puntatore alla (unica) applicazione
principale; cito il pezzo di codice:
  // thread inherits app's main window if not already set
  CWinApp* pApp = AfxGetApp();
  ASSERT(pApp != NULL); // Qui si pianta !!!
C'è qualcuno che mi possa aiutare ?
VI ringrazio anticipatamente per qualsiasi idea e/o suggerimento
che mi proporrete.
Davide.

 polling sul socket di input) si pianta ! Il bello è che si pianta
Ai provato a far girare il compilato (non in PCode, ma in codice macchina)?
-- 
Hi, Ciao
Ettore                 By -MES-
http://freeweb.aspide.it/freeweb/ilmes
 
(con OCX per stampare i Recordset)
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb

Newsgroup: it.comp.lang.visual-basic
Titolo: problema con crystal report

Qualcuno mi sa spiegare e quindi darmi un consiglio per risolvere questo
problema......
Io un mio programma che utilizza delle stampe fatte con Crystal report 6
connettendosi al mio database Oracle 8.0.5 attraverso l'ODBC.
Ecco io costruisco il report, e da VB lo lancio connettendomi all'ODBC
"Test" (DB di sviluppo) e tutto funziona, quando poi provo a utilizzarlo con
l'ODBC "Produz" (DB di produzione del tutto simile a quello di sviluppo), mi
da l'errore "impossibile trovare il Server SQL".
C'è qualche opzione che bisogna settare nel report?
Grazie

Newsgroup: it.comp.lang.visual-basic
Titolo: Framework + configurazione

Ciao a tutti.
Ho la necessità di configurare il framework di NET. per far girare un
eseguibile in rete.
Qualcuno mi sa aiutare su dove trovare un po di documentazione??
Grazie
Mirko


--
.A    [Microsoft MVP .NET]
UGIdotNET - User Group Italiano .NET
http://www.ugidotnet.org
Read my blog at: 
http://www.ugidotnet.org/4.blog

  (ho riformattato il pc)
Della serie:
"Anche il medico si ammala."  ^__^
giuseppeD

 giuseppeD
-- 
.A

Newsgroup: it.comp.lang.visual-basic
Titolo: FORCE FEEDBACK

Scusatemi, ho un problema particolare.
Vorrei comprare un force feedback
joystick ed usarlo per telemanipolare un robot (per la mia tesi in
ingegneria elettronica). 
Solo che quando il robot tocca una parete,
vorrei sentire una forza sul joystick.
Per farlo dovrei mandare dei dati
al joystick, quindi dovrei interfacciarmi con lui.
Credo che per fare ciň
sia necessario fare un programma in Visual C++, basandosi sulle directx
dell'MSDN.
Vorrei sapere se avete qualcosa che faccia al caso mio, o se
potete darmi qualche consiglio.
Per favore, aiutatemi!
Grazie, Emidio.
---------------------------------------------------
Inviato da: 151.21.172.91, via 
http://usenet.iol.it

Guarda nel directx sdk 7 , cerca le direct input (se non ricordo male)