mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda a tempo perso :)

Mi chiedevo se si potesse catturare "tutto" quello che succede a video...nel
senso che vorrei frappore il mio programma tra la scheda video e il monitor
catturando proprio tutto...
Ho provato simulando il tasto stampa di windows,ma la soluzione non mi piace
:-)
Proponete qualche altra soluzione...l'argomento mi sembra interessante
Byez Peppo

[Giuseppe Cozzolino = circa_cozgiu_@_
tin.it
 in
gP00c.50220$
IT2.1...@news4.tin.it
] ha scritto:

CamStudio, free
http://download.com.com/3000-2194-10067101.html

 ha scritto nel messaggio
news:c1q5o0$1mf39v$1...@ID-174464.news.uni-berlin.de...

Grazie Lupo,ma io intendevo realizzarlo,non prenderne uno gia fatto ;-)

 ;-)
Urca, complimenti e auguri.
Non so, "a naso" parrebbe facile, basterebbe timer-izzare la "foto" del
video e salvarla, ma ... hai visto quant'è grosso quello?

 ha scritto nel messaggio
news:c1t4jf$1m4s88$1...@ID-174464.news.uni-berlin.de...

timerizzare la foto funziona...sono riuscito a farlo anche online per
controllare il mio pc da remoto
il problema è che simulando la "foto" non riesco a catturare alcune
cose...tipo le immagini dei player divx,la televamera digitale e cose del
genere...percio vorrei fare una sorta di filtro da fraporre tra monitor e
scheda

Newsgroup: it.comp.lang.visual-basic
Titolo: Come si legge il S/N della mother-board

Sto cercando quello che leggete sul subject!
Mi serve per mettere un adeguato sistema di protezione sul software
che produco.
Grazie a tutti in anticipo.
Saluti  :-)
"Rex"



C'e' un sistema che legge la Gui ID  ... vedi se trovi qualcosa nei
msg precedenti.
Antonio Tanzillo  
a...@pippo.netgroup.it
KillPippoforrepondez

Newsgroup: it.comp.lang.visual-basic
Titolo: gdi32.dll elenco

Salve a tutti.
Vorrei sapere dove posso trovare informazioni
sulle routine che ci sono in gdi32.dll.
Grazie a chi vorra' rispondermi
Paolo

...

-----------
Ciao!
Innanzi tutto, cerca nell'API Viewer incluso in Visual Basic versioni
Professional ed Enterprise. Poi, se ti serve qualcosa di più, puoi scaricare
da Internet la Win32 Programmer's Reference (trovi un link sul mio sito).
Alla prossima
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260/
http://www.armaditaggia.com/marco

Newsgroup: it.comp.lang.visual-basic
Titolo: Istruzione SET

Ancora una volta il vostro aiuto,
come faccio a sapere se una variabile č Nothing o meno, cioč se punta ad un
oggetto o meno. Grazie 1K...

 ha scritto nel
messaggio news:9s9c5i$mv0$1...@pegasus.tiscalinet.it...

If objVar Is Nothing Then
    '[...]
Else
    '[...]
End If
Faber

oggetto o meno. Grazie 1K...
Semplice: si scrive Nothing nell' editor di vb, si posiziona il cursore
sulla parola appena scritta e si preme un tasto che pare mancare 
nelle tastiere di recente fabbricazione: F1.
-- 
ciao, hal

 ha scritto nel
messaggio news:9s9c5i$mv0$1...@pegasus.tiscalinet.it...

Sub cambiacolore()
    Dim miacella As Range
    Set miacella = ActiveCell ' o la cella che piů ti piace
    miacella.Interior.Color = RGB(xxx, xxx, xxx)
End Sub
Buona fortuna, e saluti.
Luca "Cippaz" Carraro.
Newsgroup: it.comp.lang.visual-basic
Titolo: su VBA outlook (situazione di stallo)

ehila maurizio... ci sei?
io ho postato su altri NG, ma niente da fare... sembra che in VB sia
praticamente impossibile fare una cosa del genere...
tu che ne dici?
MarioH

> MarioH:

Quel poco che avevo da dire l'ho gia` appeso all'altro thread.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

me lo sono dimenticato... praticamente dicevi che era meglio lasciar
stare... se non sbaglio..??
MarioH

ah ecco, adesso ho letto il messaggio con il codice.
effettivamente la soluzione di sendkeys o di cercare voce di menu per voce
di menu non č ilmassimo, tanto piu che la cosa io avevo intenzione di farla
istanziando outlook da un programma EXE in VB, in maniera che outlook non si
"vedesse", quindi magari in questo modo non funzionerebbe neanche.
diciamo che io potrei chiedere all'utente di fare un'importazione da outlook
express ogni tanto (anche se lui usa SOLO oe e MAI MS outlook). dopodiche
l'utente dovrebbe semplicemente chiudere MS outlook, avviare il mio
pogramimno EXE e tutto filerebbe liscio. certo, se si potesse evitare questo
passaggio, sarebbe tutta un'altra cosa, ma, vabbe ci accontentiamo,
giusto???
ps: tu perche non vai al meeting? io ho una validissima scusa, e cioe soldi
e impossibilita di restare a dormire fuori (tranne se non mi ospita
qualcuno...).
MarioH

 e impossibilita di restare a dormire fuori (tranne se non mi ospita
qualcuno...).
Messaggio trasversale? :-)


è che ci volevo andare, veramente, ma qui davvero sto spendendo un pacco di
soldi, mo per una cosa, mo per un'altra... vabbe, sara per la prossima
volta...
MarioH
Newsgroup: it.comp.lang.visual-basic
Titolo: Mail con HTML

Ciao a tutti.
Avrei un piccolo problema che non riesco a risolvere.
Devo inviare delle mail con una pagina html ma non ainviata come allegato,
ma in maniera che all'apertura della mail compaia già la
pagina HTml.
Riesco già ad inviare la mail, usando le mapi oppure il Winsock, prelevo gli
indirizzi da una tabella di Access, ho la pagina htm si in formato txt
che in formato Htm ma non riesco in nessuna maniera ad inviarla.
Come posso Fare. Spero che qualcuno abbia gia risolto questo mio problema.
Grazie Grazie
Enrico Pietrobon

 
Probabilmente si':
http://groups.google.com/groups?hl=en&lr=&ie=ISO-8859-1&q=mail+html&btnG=Google+Search&meta=group%3Dit.comp.lang.visual-basic
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 pagina HTml.

Newsgroup: it.comp.lang.visual-basic
Titolo: Errore di accesso al eprcorso file run time error 75

Windows XP-SP3
 VB6-SP6
Ho creato con la macchina di cui sopra un piccolo software amministrativo.
Molto, molto semplice.
Funziona perfettamente in XP
Installato o meglio provando ad installarlo su VISTA produce l'errore in 
oggetto.
Non sono bravo in materia
Come posso risolvere il problema ????
Grazie sin da ora per l'aiuto
Cordiali saluti a tutti.
giap
 

 Come posso risolvere il problema ????
Prova ad installarlo in una cartella che non � Programmi e a dargli accesso
completo alla cartella.

oppure lancialo come amministratore
"Andrea [Work]" <andrea.isw...@gmail.invalid> ha scritto nel 
messaggio news:16a7fsc0b44d6.1bgye3d8wkbc8$.dlg@40tude.net...

Newsgroup: it.comp.lang.visual-basic
Titolo: Confrontare la velocità di una funzione

Qual'è a vostro parere il metodo migliore per confrontare la velocità di
due o più funzioni?
Grazie 
Bruno


Soluzione spartana, ma funziona:
function XYZ()
    dim t as long
    t = GetTickCount
    ' codice funzione
    Debug.Print GetTickCount - t
End Function
N.B: GetTickCount e' una funzione API, prendi la dichiarazione dal
Visualizatore API.
Il risultato stampato nella finestra di debug e' in millisecondi, ma con
granularita' reale di 55 millisecondi (per cui il tempo risultante ha una
tolleranza di errore di circa +/- 28ms)
--
Roal Zanazzi
z...@iol.it

due o più funzioni?
Data la granularita' elevata dei timer rispetto
ai tempi di esecuzione, e' sempre meglio eseguire
ogni funzione un numero N di volte molto alto, e
dividere il tempo totale di calcolo per N
-------------------------------
Louis Cretier  -  R1100RS/R80GS      
http://www.show.it/lcretier.htm
-------------------------------
"L'alcol uccide lentamente - Non importa, non ho fretta!"

due o più funzioni?
Potresti utilizzare la API GetTickCount, che come calcolo di tempo e'
molto precisa e registrere quanto ci mette dall'inizio alla fine una
funzione. La API calcola ul tempo dalla mezzanotte, quindi devi poi
fare la differenza tra i due rilevamenti.
Ciao.
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
 -----------Federico Emanuele Galli----------
 ----------Visual Basic's Programmer---------
 
 Sideralis Programs (Visual-Basic and Delphi)
 
http://www.geocities.com/colosseum/loge/2151
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
                 Trust no ONE.
Per rispondermi via E-Mail togli STOPSPAMMERS.
Guarda la RFD per it.comp.prog.collaborazione !


Per la precisione (qualche giornio qualcuno mi ammazza...:-)
Dall'help dell API:
"The GetTickCount function retrieves the number of milliseconds that have
elapsed since Windows was started. "
Quindi dalla partenza di Windows, non dalla mezzanotte
E la precisione (come ho gia' scritto in questo stesso thread) e' di
55millisecondi (la precisione dei timer di Windows).
--
Roal Zanazzi
z...@iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Collegarsi ad excel...

Qual'è il metodo migliore per leggere una colonna in un foglio excel?se
utilizzo il metodo range diventa lentissimo...
Grazie a chiunque mi aiuterà..
marco

 
Aprire il foglio excel con ADO e scorrerlo tramite un RecordSet.
HTH
-- 
Massimo Prota [Microsoft .NET MCAD]
MyWebLog:  
http://blogs.ugidotnet.org/mprota
BlogFeed: 
http://blogs.ugidotnet.org/mprota/Rss.aspx

 > Grazie a chiunque mi aiuterà..


 grazie ciao
sai già come si usa ado?
se sì, il problema è solo sapere quale stringa di connessione utilizzare
per fare in modo che il foglio di excel si visto circasuppergiùpiùomeno
come una tabella di un db.
se no, la vedo male...
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel
messaggio news:ct8daq$k0$1...@news.newsland.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [UGIdotNET] come ci si registra?

hola gente
stavo provando a registrarmi su ugidotnet [per leggere un articolo sul
networking con 
vb.net
] ma non riesco... la procedura non è automatica? :-)
hola
d.
-- 
La bella che guarda il fiume ha un nome che fa paura...
La bella che è addormentata ha un nome che fa paura:
Libertà! Libertà! Libertà!
http://www.pilardeimeli.net

 automatica? :-)
Vedrai che ti risponderà Andrea quanto prima.
Per quello che posso ricordarmi (sono registrato sin dalla nascita di UdN) 
la procedura di registrazione era molto semplice.
Ciao
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca
 

 networking con 
vb.net
] ma non riesco... la procedura non è automatica? :-)
Dan, a me risulta na iscrizione a nome "Dan Marino" effettuata stamattina 
alle ore 8:38, quindi credo che tu stia semplicemente sbagliando a digitare 
la password. Scrivimi in privato (va benissimo info [AT] ugidotnet [DOT] 
org), così risolviamo il problema e non "imbrattiamo" il NG :-)
-- 
.A
UGIdotNET - User Group Italiano .NET
http://www.ugidotnet.org
Read my blog at: 
http://blogs.ugidotnet.org/pape
 

 così risolviamo il problema e non "imbrattiamo" il NG :-)
yay, "imbratto" solo per ringraziare... :-)))
ho provato una volta il login (probabilmente sbagliandolo eheh), non sono
riuscito a entrare e quindi pensavo di dover aspettare una mail di
conferma...
grazie mille :-)
cia'


Newsgroup: it.comp.lang.visual-basic
Titolo: Cambiare icona

Come posso fare a cambiare l'immagine di un'icona di un file eseguibile??
Perche' creando l'eseguibile mi viene sempre fuori l'immagine della
form......
Ciao, grazie

 wrote in message
9604702...@tango.comm2000.it...

Quando compili l'exe, prima di dare l'0k clicca sul pulsante opzioni. Nel
frame "applicazione" scegli l'icona tra quelle che tu hai dato ai vari form.
Ovviamente se non hai impostato nessuna icona in nessun form, avrai sempre
la stessa.
Newsgroup: it.comp.lang.visual-basic
Titolo: Ordine Database

Ciao,
vorrei sapere se e' possibile fare un Select dal database che mi restituisca
il record del valore massimo ad esempio:
SELECT Codice FROM Operazioni WHERE [Codice ha il massimo valore]
in pratica come glielo dico ?
Grazie
bye bye
P.S.:Ho cercato sull'? ma non sono riuscito a trovare help a riguardo (sara'
perche' non sono molto pratico di VB6?)

 wrote in message
news:9tqk2p$4sh$1...@nreada.inwind.it...


 dove aver verificato il corretto
funzionamento della sua rete neuronale scrisse...


 ha scritto nel messaggio
news:9tr6vp$knk$1...@pegasus.tiscalinet.it...


 ha scritto nel messaggio
news:9tql0o$9ca$1...@pegasus.tiscalinet.it...


 
1) SELECT Max(Codice) FROM Operazioni;
2) SELECT TOP 1 * FROM Operazioni ORDER BY Codice DESC;
1) restituisce SOLO il valore massimo del campo codice 
2) restituisce il record ( TUTTO! ) in cui il campo codice e' massimo
 N.B. verifica la sintassi di 2 potrebbe variare tra i vari dialetti SQL
alla stessa maniera e possibile avere il valore minimo usando un
ordinamento ASC invece che DESC.
potrebbe convenire avere in tutti e due i casi un indice associato al
campo per migliorare le prestazioni.

 ha scritto nel
messaggio news:3C02323B...@bussola.orientamento.unina.it...


 
1) SELECT Max(Codice) as MaxCodiceX FROM Operazioni;
cosi hai un field che si chiama MaxCodiceXD
MaxCodice = AdoRec("MaxCodiceX") 
MaxCodice = AdoRec.Fields("MaxCodiceX").Value  <- versione espansa di
tutte le proprieta'
altrimenti e' sempre valida la seguente
MaxCodice = AdoRec.Fields(0).Value  <- usa il primo campo ( che e' anche
l'unico )

Grazie! :)
bye bye

Newsgroup: it.comp.lang.visual-basic
Titolo: ' common dialog

'salve a tutti,
'ho creato una form con una picture box in cui visualiizare un
'file stabilito nella common dialog(4), allora ho scritto questo
'codice:
Private Sub Command1_Click()
Common4.ShowOpen
Picture1.Picture = Common4.FileName
End Sub
Private Sub Form_Load()
Picture1.AutoRedraw = True
Picture1.AutoSize = True
End Sub
'ma così non funziona, ho cercato una flag inseribile nelle proprietà del
common dialog che
'mi permetta di decidere dove visualizzare il file scelto ma non ho trovato
nulla
' mi potreste aiutare?
'grazie
'alex88
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.471 / Virus Database: 269 - Release Date: 10/04/2003

 ha scritto nel messaggio
news:YgCMa.141043$lK4.3...@twister1.libero.it...


 modificarlo o cos'altro
Grazie lo stesso ma come faccio allora a fare in modo che il file che scelgo
sia visualizzato nella picture box?


 sia visualizzato nella picture box?
a parte il fatto che bisognerebbe sapere che tipo di file è....
comunque la commondialog ha una proprietà (la filename) che ti restituisce
il nome del file
se il file è un'immagine devi usare la funzione loadpicture e poi applicarla
alla proprietà picture della picturebox
se il file è qualcos'altro.... dipende da cos'è
Newsgroup: it.comp.lang.visual-basic
Titolo: datareport

Salve a tutti
ho un datareport in vb6 è vorrei che quando un campo del  recodset
cambia valore si aggiunga una nuova sezione o si riparta da una nuova
pagina.
Qualcuno sa come fare
Grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Qualcuno sa come fare
Devi usare le Sezioni di Gruppo.
Poi ci attacchi il recordset gerarchico (in cui imposti che la 
gerarchia principale è quella del Field che ti interessa, e poi lo 
stampi come solito. Se cerchi su google "Datareport gerarchico" (ho 
provato adesso), i primi n risultati sono tutti completi di codice sia 
per il report che per l'estrazione gerarchica dei dati.
Oppure popoli il datareport muovendo con un ciclo delle RptLabel e 
popolandone la Caption. Ma ci sono limitazioni di lunghezza non 
indifferenti...
Ciao
Alberto
-- 
Carlo Rubbia: Siamo su un treno che va a trecento chilometri all'ora, 
non sappiamo dove ci sta portando e, soprattutto, ci siamo accorti che 
non c'è il macchinista.

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con dll

mi stavo chiedendo se era possibile creare dei plug-in  per i propri
programmi (come winamp)  e se si come ?
ringrazzio in anticipo!

Io ho risolto cosě: (forse non č il metodo + elegante)
Il mio applicativo č un exe activeX
I plugin sono DLL activeX
alla partenza del programma controllo se nella sezione plugin dellw chiavi
del registry del mio applicativo c'č qualcosa, se si carico le DLL relative.
Ho fatto dell'applicativoun exe active x per poter richiamare alcune
funzioni dai plugin.
ciao!
Davide

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Qualcuno di voi và al Webb.it ???

Come da oggetto...
percaso qualcuno va a Napoli al Webb.it il 29 e 30 Maggio?

> percaso qualcuno va a Napoli al Webb.it il 29 e 30 Maggio?
io mi sono fatto quello di Padova....


Racconta com'è stato...
--
David Ruscelli
Oh...My dog!

 io mi sono fatto quello di Padova....
E sei sopravissuto..?
Io mi sn organizzato malissimo.. nel senso che speravo di vedere molte
più cose.. insomma.. credevo fosse un qualcosa di più "espositivo" e
invece o ti iscrivi a un sacco di meeting e passi la giornata, oppure tempo
2 ore e ti scazzi.. robottini impazziti che non trovano il pallone
compreso..
It's only a my opinion..
Enrico


piu' che altro mi sembra che serve per prendere un po' di 'certificazioni' a
poco prezzo...  che pero' mi sa che tanto valgono (almeno per la parte
conoscitiva)...
.... della serie... diventare esperto di sicurezza informatica in 45'....
mah!!!
io ancora non riesco a capire come caxxx si fa ad eliminare la maschera di
accesso a xp!!!
PaoloS
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] RADIOAMATORE PROGRAMMATORE VB ?

Ciao stò cercando di scrivere una procedura che calcoli la distanza tra due
punti nel mondo QTH LOCATOR (i radioamatori MA NON SOLO sanno cosè) e il
puntamento delle antenne.
C'è qualcuno che mi puo' dare delle indicazioni ? grazie bob
(
ham...@hotmail.com
)

 ha scritto nel messaggio
news:mTOB5.58218$3R6.1...@news.infostrada.it...



10    Lon0=11.48888889
20    Lat0=45.45555556
30    Lon=11.68388889
40    Lat=45.3125
50 Azim(Lon0,Lat0,Lon,Lat,Dist,Azim)
60    PRINT Dist,Azim
70    END
486   SUB Azim(Lon0,Lat0,Lon,Lat,Dist,Azim)
487     DEG
488     Ragt=6370
489     Alfa=COS(90-Lat0)*COS(90-Lat)+SIN(90-Lat0)*SIN(90-Lat)*COS(Lon-Lon0)
490     Dist=Ragt*ATN(SQR(1-Alfa^2)/Alfa)*PI/180
491     S1=SIN((Lon-Lon0)/2)
492     S2=SIN((Lat-Lat0)/2)
493     S3=SIN((Lat+Lat0)/2)
494     C1=COS((Lon-Lon0)/2)
495     C2=COS((Lat-Lat0)/2)
496     C3=COS((Lat+Lat0)/2)
497     IF S1*C3<>0 AND S3*S1<>0 THEN
498       Azim=ATN(C2*C1/(S3*S1))-ATN(S2*C1/(S1*C3))
499       IF Azim<0 THEN Azim=Azim+360
500     ELSE
501       IF S1=0 THEN
502         SELECT Lat-Lat0
503         CASE >0
504           Azim=0
505         CASE <0
506           Azim=180
507         CASE ELSE
508           Azim=0
509           Dist=0
510         END SELECT
511       ELSE
512         PRINT "ERRORE NEL CALCOLO DELL' AZIMUT"
513         Azim=999
514         Dist=0
515       END IF
516     END IF
517   SUBEND

Ciao Bob, ti posso passare il codice che sto utilizzando per il programma
della gestione delle Isole dei laghi italiani (I.L.I.A)
e dei fari (W.A.I.L.) .. fammi sapere   in e-mail       '73  Marco  IK0QOB
ik0...@amsat.org


Newsgroup: it.comp.lang.visual-basic
Titolo: Estensione file

Come faccio ad ottenere l'estensione di un file?
Mi sembra troppo banale e possibile causa di errori prendere gli ultimi 3
caratteri del nome!
Ciao
Ghigo    :)

 caratteri del nome!
anche perche' se l'estensione e' .jpeg ...
usa mid() e instr() a partire dal fondo.
se hai vb6, instrrev().
cerca il punto, poi...

Puoi utilizzare anche la funzione split.
Enrico
Private Function Estensione(Nome As String)
Dim A As Variant
    A = Split(Nome, ".")
    If UBound(A) > 0 Then
        Estensione = A(UBound(A))
       Else
        Estensione = ""
    End If
End Function
Ghigo wrote in message ...


 End Function
Oppure, senza usare il tipo Variant:
    Private Function GetExtensionName( _
      ByVal PathName As String _
    ) As String
      Dim a() As String
      a = Split(PathName, ".")
      If UBound(a) > 0 _
      Then _
        GetExtensionName = a(UBound(a))
    End Function
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------
Newsgroup: it.comp.lang.visual-basic
Titolo: Chiamare funzioni scritte in C da VB5

Salve a tutti!
La domanda č questa: esiste un modo per chiamare da VB5 una o piů
funzioni scritte in C++ (esattamente Visual C++ 5)?
Non vorrei utilizzare DLL o ActiveX o roba del genere... mi basterebbe
soltanto indicare al VB che la funzione PincoPallino() non si trova
all'interno del progetto corrente ma dentro un file oggetto
precentemente compilato e salvato come .OBJ...
Esiste un modo o sto vaneggiando?
Grazie per la collaborazione
Frazzoli Marco

1- Devi compilare la tua funzione in una dll usando VC+5 (non puoi usare
l'OBJ)
2- in VB utilizza l'enunciato Declare per dichiarare il prototipo della
funzione (occhio al passaggio dei parametri)
3- Utilizza tranquillamente la funzione in VB.
Per come utilizzare declare consulta l'help on line,mi raccomando occhio al
passaggio dei parametri e anche alla creazione della dll in VC+5 altrimenti
potresti avere dei GPF quando chiami la funzione, sul CD di VB5 c'é un file
che descrive come costruire la dll in VC. (VB5Dll.txt)
Ciao
Corrado


L'unico che si conosca e' di mettere la funzione C++ in una DLL e chiamarla
da VB.
Se riesci a linkare un OBJ esterno in un progetto VB5, fammelo sapere e ti
pago una birra!!!!
--
Roal Zanazzi
z...@iol.it

>Esiste un modo o sto vaneggiando?
Esatto, stai vaneggiando!!!
Devi usare una DLL.
Compila la DLL così:
Se la tua funzione è per esempio:
void funzione( int x );
in CPP devi scrivere:
extern "C" void __stdcall __export  funzione( int x );
void __stdcall __export  funzione( int x )
{
....
}
se compili in modalità C, puoi risparmiarti la direttiva EXTERN "C"
Poi nel tuo modulo BASIC devi usare l'istruzione DECLARE.
Ricordati che una DLL ha bisogno di una funzione DLL_ENTRY_POINT
Ciao, Fabio

>Esiste un modo o sto vaneggiando?
Esatto!!!
Scherzi a parte...devi usare una DLL.




>Esiste un modo o sto vaneggiando?
Esatto, stai vaneggiando!!!
Devi usare una DLL.

Newsgroup: it.comp.lang.visual-basic
Titolo: [Very OT] Dio e Satana Programmatori

Questa effettivamente è un po' OT, ma a me è piaciuta e spero che piaccia
anche a voi
L'ho presa qualche tempo fa da it.bologna.barzellette
Faber
P.S.: ma voi ogni quanto salvate?  :)
dai non mi lapidate... una barzelletta sui programmatori ogni tanto ci
vuole...
Dio e satana discutevano animatamente su chi tra loro due fosse il più bravo
programmatore.
Andarono avanti per un po' a insulti reciproci finché si misero d'accordo
per fare una sfida.
Si misero entrambi davanti ai loro computer, e iniziarono a scrivere linee e
linee di codice a una velocità pazzesca, per qualche ora, finché, qualche
secondo prima della fine della competizione, un lampo accecante tolse la
corrente, spegnendo i loro computer. Dopo qualche minuto, la corrente
tornò, riaccendendo i computer.
Dio disse a satana: "bene, vediamo cosa sei riuscito a fare."
Satana rispose: "Niente, [serie di parolacce], ho perso tutto quando la
corrente è mancata!"
Dio cliccò due volte sull'icona del suo programma, e lo schermo si illuminò
di vivide schermate colorate di un nuovo programma di monitoraggio del moto
planetario cosmico.
Satana urlò: "Ma [altra serie di parolacce], come hai fatto a non perdere i
dati quando è mancata la corrente?"
Dio: "Lo sanno tutti che Dio salva!!!"

Faber ha scritto nel messaggio ...
Non male.
Però questo è più o meno quello che è successo a me il mese scorso,
nonostante io salvi ad ogni compilazione.
Dio e satana discutevano animatamente su chi tra loro due fosse il più bravo
programmatore.
Andarono avanti per un po' a insulti reciproci finché si misero d'accordo
per fare una sfida.
Si misero entrambi davanti ai loro computer, e iniziarono a scrivere linee e
linee di codice a una velocità pazzesca, per qualche ora, finché, qualche
secondo prima della fine della competizione, Dio stava facendo il Backup del
suo HardDisk quando questo a metà dell'operazione si ingrippa perdendo tutto
il suo contenuto.
Così Satana vinse con una inputbox che chiedeva il nome dell'utente e
premuto l'"OK" tirava fuori una MessageBox con scritto "Ciao" & Nome, Mentre
dio (lo metto minuscolo per rispetto) è ancora dietro a imprecare.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: ordinamento alfabetico

Ho un file di testo con una serie di nominativi ( circa 13500), uno per
rigo,
devo scrivere una procedura (sufficientemente veloce?) per
ordinarli alfabeticamente.
Ringrazio anticipatamente tutto il newsgroup.
                                                            Giacomo

 ordinarli alfabeticamente.
Credo molto dipenda dal grado delle tue conoscenze e dal tipo di
procedura... Algoritmi di ordinamento ne puoi trovare ovunque, anche nel
Sito comune, credo, e probabilmente te ne verranno proposti diversi dai
colleghi che ti risponderanno. Ma potresti trovare difficolta'
nell'implementazione: perdonami se sbaglio, e' solo un'impressione.
Percio' ti faccio una proposta "pazza": apri il Prompt dei comandi DOS.
Digita:
   sort/?[Invio]
se risponde "Comando o nome file non valido." pazienza, non ne parliamo
piu'. Altrimenti spostati nella cartella in cui risiede il tuo file. Se, per
esempio, il file si chiama "Disordinato.Txt" ed e' nella cartella
"Documenti\Prove" del disco D: digita:
   d:[Invio]
   cd"\documenti\prove"[Invio]
Poniamo che tutte le righe del tuo file abbiano la seguente struttura:
Qualcosa1......Pippo De' Pippis.Altre cose......
Qualcosa2......Pluto............Cose diverse....
...
cioe' che il campo secondo cui vuoi ordinare sia nella 16ma posizione.
Allora il comando potra' essere:
sort[SPAZIO]/+16[SPAZIO]"c:\documenti\prove\disordinato.txt"[SPAZIO]>[SPAZIO
]"c:\documenti\prove\ordinato.txt"[Invio]
Non fa troppo schifo, vero? Io ho testato su un 486 un file di 66.444 record
per un totale di 17.541.216 byte e ci ha messo circa 10 minuti (sic!)... Se
il lavoro lo devi fare una sola volta o molto raramente considera che una
manciata di minuti e' sicuramente inferiore a scrivere un programma +
testarlo + eseguirlo.
Ciao.
Maurizio

 ordinarli alfabeticamente.


 ordinarli alfabeticamente.
Fai un form e metti dentro un listcontrol con la proprietą sorted = 
true. Poi apri il file in modalitą testo (open tuo_file for input as 
1) e leggi linea per linea il file stesso, mettendo ogni linea nel 
listbox. ALla fine avrai l'ordine alfabetico cercato. Se vuoi salvare
in un nuovo file il tutto salvi ogni singolo item del listbox con 
for x=0 to lis1.listcount-1
  print #file_number, list1.list(x)
next x
ciao.
---
News2000 1.0b Beta tester version 
http://socket2000.8m.com
Newsgroup: it.comp.lang.visual-basic
Titolo: [!] Microsoft Toolkit for WindowsCE for Visual Basic 6

Se per caso a qualcuno dovesse interessare, lo vendono alla
Mediadirect, che e' uno dei piu' grossi rivenditori di software
Microsoft in Italia. Come scontato, http:/
www.mediadirect.it
Costa 405.000 lire + iva + spedizione e per averlo ci vuole circa una
settimana. Quello per Visual C++ 6 costa uguale.
Da quello che c'e' scritto sul sito sembra interessante, se qualcuno
sviluppa per palmari. A me sicuramente interessa portare un paio di
applicazioncine su palmare quindi penso di fare, presto o tardi,
l'acquisto.
Prima, pero', devo comprarmi un palmare =)
Saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 242, 152
  VBR - Vero Birro Romagnolo®, diffidate dalle imitazioni!
 Opel/ECC Calibrezio EVO-IV --- Kawasaki "Gas Gas" ZZ-R 1100
 ICQ# 36893168 - IRCNet: bugbarbeq, @ on #linux-it & #NetBSD

 ha scritto nel messaggio
news:bf8g7tgb3drppq918...@4ax.com...

Era proprio quello che cercavo. Avevo fatto un thread poco tempo fa.
Dovrei sviluppare applicazioni per un TRIUM MONDO, (GSM+palmare). Uscirà in
marzo.
Incrocio le dita di non infilarmi in un megacasino con le mie stesse mani...
o))))  Flavio

 wrote in message
bf8g7tgb3drppq918...@4ax.com...


di spedizione.
Forse e' questo:
http://download.microsoft.com/download/wince/Install/3.0/W9X2K/EN-US/EN_WINCE_EMBDVTOOLS30.exe
Sono 304MB.
Mi ha fatto registrare prima di darmi il link: non so se sia
necessario farlo: se volete provare anche senza...
Ah, una cosa importante: When prompted for the CDKey, please enter
TRT7H-KD36T-FRH8D-6QH8P-VFJHQ


Newsgroup: it.comp.lang.visual-basic
Titolo: registro di configurazione

Ho un piccolo problema con explorer, quando apro il browser mi appare la
pagina iniziale delle dimensioni di schermo intero con la toolbar in alto.
Se apro una seconda finestra di internet invece di essere a schermo pieno
come la prima, mi appare solo la toolbar e devo essere io manualmente ad
estenderla a tutto schermo e cosě via per la terza finestra ecc...
Sapreste dirmi la sottochiave da modificare o l'opzione internet per
modificare queste impostazioni?
Molte grazie a tutti
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 ha scritto nel messaggio
news:217Z18Z99Z186Y1...@usenet.libero.it...

Mi sa tanto che hai sbagliato NG e se cosi non fosse, mettere un tag OT non
guastava!
Ciao, Vincenzo

sinceramente non sò neanche cosa sia un tag OT (scusate l'ignoranza). Non ho
trovato nessun NG adatto al mio tipo di domanda e visto che a volte scrivo
su questo NG ho pensato fosse il più opportuno.


 su questo NG ho pensato fosse il più opportuno.
cioè, fammi capire. Hai un problema con explorer e vieni a mettere post su
it.comp.lang.visual-basic ???
beh, ne hai di fantasia........dai un'occhiata a questi newsgroup:
microsoft.public.it.inetexplorer.ie5
microsoft.public.it.internet_explorer
oppure, se sei ferrato in inglese, c'è tutta una gerarchia fatta apposta per
te:
microsoft.public.windows.inetexplorer.*
good coding!!!
-- 
Alletun
Sorry, ask me if you want to get my e-mail!

mille grazie delle info.
Saluti

Newsgroup: it.comp.lang.visual-basic
Titolo: RFD it.comp.prog.collaborazione

Date un occhiata a questa nuova proposta in 
it.news.gruppi
Ciao
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
 -----------Federico Emanuele Galli----------
 ----------Visual Basic's Programmer---------
 
 Sideralis Programs (Visual-Basic and Delphi)
 
http://www.geocities.com/colosseum/loge/2151
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
                 Trust no ONE.
Per rispondermi via E-Mail togli STOPSPAMMERS.
Guarda la RFD per it.comp.prog.collaborazione !

it.news.gruppi
  Veramente, e' passata pure su questo. :-)
  Ciao :-)
  Massimo
  Nell'indirizzo, sostituire DIESPAMMERS con MC1258
  In the address, replace DIESPAMMERS with MC1258
Newsgroup: it.comp.lang.visual-basic
Titolo: caratteri

Esiste in VB una funzione o porzione di codice che mi permetta di vedere,
per ogni singolo carattere che un utente immette, il suo vero valore
binario?
E inoltre, un carattere è sempre composto da 8 bit con l'ottavo bit sempre
meno significativo oppure VB adotta un altro sistema di codifica?
Grazie di cuore a quanti vorrano rispondere.

 Grazie di cuore a quanti vorrano rispondere.
Prego :)

> meno significativo oppure VB adotta un altro sistema di codifica?
Piccola svista: in genere per "ottavo bit" si intende quello più a 
sinistra, che in genere è il più significativo (MSB), mentre il MENO 
significativo è il PRIMO BIT (o anche bit 0, cmq LSB).
Che poi sono solo convenzioni, l'importante è specificare a quale bit si 
fa riferimento... basta semplicemente dire IL PIU' SIGNIFICATIVO o IL 
MENO SIGNIFICATIVO.... la mia è stata solo una botta di pignoleria

 non sbagliare) ci sono i soliti 8 bit.
Ni', lo sono solo nella codifica ANSI, non dimentichiamo Unicode e DBCS che
usano 2 byte (16 bit) per la rappresentazione del carattere =)
-- 
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

Newsgroup: it.comp.lang.visual-basic
Titolo: Variabili globali + controlli

Ciao a tutti
volevo sapere se esiste la possibilità in un modulo .bas di fare
riferimento ad un controllo presente in uno UserDocument all'interno di un
ActiveX Document EXE.
Penso di aver provato di tutto, anche tentando di creare un array di
controlli ma nulla di fatto.
Grazie mille
PULX
---------------------------------------------------------------------------
Messaggio inviato attraverso 
http://www.trucchiperpc.it
 - sezione newsgroup

 di un ActiveX Document EXE.
Gli UserDocument sono come le form.
Se il Bas è nello stesso progetto, il controllo è raggiungibile mediante
nome_del_vbd.nome_del_controllo
Ciao
Alberto

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

Ma è tanto difficile stampare un file jpeg?
O meglio, come si può implementare una procedura che faccia ciò?
Sono ben accettati consigli e link dove reperire documentazione.
Grazie.
--
~~~~~~~~~~~~~~~~~~~~~~
~~~     Nunzio Barletta     ~~~
~~~   e-mail: 
ba...@tin.it
  ~~~
~~~~~~~~~~~~~~~~~~~~~~



 wrote in message
8arefa$dat$1...@fe1.cs.interbusiness.it...


 wrote in message
10pcbo6$jbn$1...@fe2.cs.interbusiness.it...


 documentato da HP: forse sul loro sito trovi qualcosa.)
nel senso che non basta caricarlo in un picbox e usare paintpicture ?

 documentato da HP: forse sul loro sito trovi qualcosa.)
http://www.faqs.org/faqs/jpeg-faq/part1/

> nel senso che non basta caricarlo in un picbox e usare paintpicture ?
Beh, ovviamente sě. Mi pareva che volesse farlo in proprio (forse mi
aspettavo una domanda piů difficile).

Newsgroup: it.comp.lang.visual-basic
Titolo: dbcombo

credo che impazzirò....
se io ho un DBCOMBO da cui scelgo un field (per es. NomeCliente) come devo
fare per passere su diversi TextBox gli altri field del record (per es.
Indirizzo, città ecc)
1) con la proprità .BoundText mi da solo un field
2) con Data.RecordSet.Field (...) mi da solo il primo dell'elenco e non mi
agguanta gli altri (forse l'evento click non va bene)
Vi prego fatemi passare una domenica tranquilla
claudio

 Vi prego fatemi passare una domenica tranquilla
Vorremmo farlo anche noi...
Ma tu le risposte (e le richieste in esse contenute) le leggi?

 > credo che impazzirò....


 avrei risolto il problema da me
Come vuoi, ma, senza tema di smentita, affermo che col codice (?) che hai
pubblicato non ci fai niente, anzi, quello non è nemmeno sintatticamente
corretto..., nè, infine, ci aiuti ad aiutarti.
In ogni caso, buona domenica.

*p.d.n.c.* ha scritto:

Come farei io?
Non ne fariei niente, specialmente dopo questa tua ultima frase, che mi ha
convinto che sei un troll.

 > riesco a capire cos'è cmq


agguanta gli altri (forse l'evento click non va bene)
Qui vuoi dire che usi un controllo data che punta gia' ad un recordset
di piu' righe? Se e' un controllo Data allora usi le librerie DAO.
Confermi? 
Le textbox sono associate al controllo data oppure no?
Hai capito adesso perche' Lupo ti ha risposto come ti ha risposto?
Il primo vero aiuto te lo dai tu precisando il piu' possibile il
contesto in cui ti trovi e l'obiettivo che vuoi ottenere.
-- 
ciao, hal

 contesto in cui ti trovi e l'obiettivo che vuoi ottenere.
si ho capito ma non me l'ero presa affatto e solo che sarei curioso di
sapere come si fa
grazie claudio

Newsgroup: it.comp.lang.visual-basic
Titolo: access 2000 e visual basic 6

Salve.
Ho recentemente installato la verione 2000 di office, contenente il
database Access.
Sono in possesso della versione 6 di VB.
Ho provato a realizzare un database di esempio con Access 2000 ma non
mi viene riconosciuto da VB 6.
Sarei grato nel conoscere se vi sono incompatibilita' tra le 2
versioni o se ci sono Patch per risolvere il problema.
Premetto che utilizzo il riferimento Dao 3,6
Grazie in anticipo.
Gianluca 

 wrote in message
38ff787d...@news.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto sul volume

Come posso fare un programma che mi permetta di controllare il volume
interagendo direttamente dal controllo volume di Windows???

da me o nel sito comune c'è una piccola OCX free fa questo e non
richiede MCI
http://www.chiappori.net
l'OCX si chiama NmVol, e oltre a impostare il volume suona files
WAV...
--[GbC]--

Newsgroup: it.comp.lang.visual-basic
Titolo: SPERO NON OT... codice ascii per stampante

Salve, spero di non essere OT, chiedendo se sapete che codice ascii inviare
ad una stampante in modalita' proprinter per impostare a ZERO la spaziuatura
verticale.
Grazie
Meck

 ha scritto

non so se e' quello che ti serve, ricavato da un vecchio manuale di una
4202:
tabulazione verticale - vt
hex 08
dec 11
impostazione interlinea testo:
sintassi: ESCAn [ma lo scrivono anche ESC A n]
n = n/72 di pollice
hex |1B|41|
dec |27|65|
impostazione tabulazioni verticali:
sintassi: ESC B n1 n2 ... n64 0
n e' un numero di posizione di arresto di tabulazione compreso tra 1 e 64
hex |1B|42|
dec |27|66|
se ti servono altri codici scrivimi e appena posso cerco di mandarti le
scansioni del manuale.
hth, pal
--
andrea dot palazzi at tin dot it
free vb/sw: 
http://www.comune.modena.it/cittadini/apal/html/

Newsgroup: it.comp.lang.visual-basic
Titolo: combobox... mi sto perdendo....

help.. mi sto perdendo proprio... ho dormito poco stanotte e non riesco a
trovare una soluzione per questa str...ata
allora, ho una combobox che popolo con
Tmp = 0
    ' -----------------------------------------
    ' popola la combobox selezione x quantita'
        cboSelGiac.Clear
        cboSelGiac.AddItem (" tutti")
        cboSelGiac.ItemData(Tmp) = Tmp
        '
        Set tmpRst = MioDB.OpenRecordset("select * from limitisel order by
valmin,valmax,ID")
            If tmpRst.RecordCount Then
                tmpRst.MoveLast: tmpRst.MoveFirst
                Do While tmpRst.EOF = False
                    Tmp = Tmp + 1
                    cboSelGiac.AddItem ("" & tmpRst.Fields("descrizione"))
                    cboSelGiac.ItemData(Tmp) = tmpRst.Fields("ID")
                    tmpRst.MoveNext
                Loop
            End If
ora se volessi memorizzara da qualche parte il valore attualmente
selezionato, per esempio la seconda scelta, in modo da ri-proporla
automaticamente come di default... cosa vado a memorizzare?
... scusare ma mi sento proprio 'sgasato' oggi.. intanto mi sparo un bel
caffe'...
PaoloS
(che si e' appena iscritto al forum cosi' magari puo' sperare in un atto di
'grazia' da parte di qualcuno piu' sveglio di me :-))

 atto di 'grazia' da parte di qualcuno piu' sveglio di me :-))
io ci ho provato, ora prova tu ;-)
Sei stato abilitato a scrivere sul forum.
Salutoni
Sergio

 Sergio
grazie, ho gia' provato e funziona perfettamente...
PaoloS
(che odia la tastiera dei portatili con sti ca... di tasti funzione che
occorrono 4 mani per abilitarli!!!!!)
Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO !! DOVE POSSO TROVARE SP3 ?

Chi mi puo' aiutare a trovare l' SP3 ? (sia su CD rom che su internet ?)
grazie in anticipo.

...


grazie in anticipo.
  Cerca vbsp3.exe su VOLftp.
  Ciao :-)
  Massimo
  Nell'indirizzo, sostituire DIESPAMMERS con MC1258
  In the address, replace DIESPAMMERS with MC1258


Le alternative:
- lo chiedi alla Microsoft (il CD), ma ti costa circa 50 carte
- lo scarichi dal sito Microsoft (ma sono dai 13 ai 60 MB, dipende cosa ti
serve, in ogni caso, argh!)
- lo trovavi su DEV (nota rivista di programmazione) numero 52, Maggio 98.
Ormai puoi solo chiederlo come arretrato.
L'ultima soluzione... che qualche tuo amico o qualcuno della tua zona te lo
possa prestare o duplicare.
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Campo DB Vuoto.

Salve a tutti.
Ho creato una routine che crea una tabella in un db e poi la popola con i
dati che l'utente inserisce in un form.
Ma non essendo tutti i dati obbligatori, capita che a volte qualche campo
sia vuoto.
A questo punto esce un errore che mi dice:
Il Campo XXXXXXX non può contenere una stringa a lunghezza zero.
Come devo fare per risolvere il problema?
Ho usato questa routine per creare la tabella:
(ps. I campi sono come dbMemo perchè il formato dei dati può variare ed
essre molto lungo, con simboli etc)
Set tdfTab = dbNuovaTab.CreateTableDef("" & Nometabella & "")
  With tdfTab
    .Fields.Append .CreateField("CodiceCliente", dbMemo)
    .Fields.Append .CreateField("RagioneSociale", dbMemo)
    .Fields.Append .CreateField("Nome", dbMemo)
    .Fields.Append .CreateField("PIVA", dbMemo)
    .Fields.Append .CreateField("Via", dbMemo)
    .Fields.Append .CreateField("NumeroCivico", dbMemo)
    .Fields.Append .CreateField("CAP", dbMemo)
    .Fields.Append .CreateField("Telefono", dbMemo)
    .Fields.Append .CreateField("Fax", dbMemo)
    .Fields.Append .CreateField("RiferimentoInterno", dbMemo)
    .Fields.Append .CreateField("TelefonoRiferimento", dbMemo)
End With
dbNuovaTab.TableDefs.Append tdfTab
Set tdfTab = Nothing
Grassieeeee

 ha scritto
| Salve a tutti.
|
| Ma non essendo tutti i dati obbligatori, capita che a volte qualche campo
| sia vuoto.
| A questo punto esce un errore che mi dice:
|
| Il Campo XXXXXXX non può contenere una stringa a lunghezza zero.
|
| Come devo fare per risolvere il problema?
| Ho usato questa routine per creare la tabella:
| (ps. I campi sono come dbMemo perchè il formato dei dati può variare ed
| essre molto lungo, con simboli etc)
L'uso del tipo di dato Memo e' sconsigliabile per motivi di prestazioni.
Dovresti già sapere quali sono i campi che NON devono essere nulli: fai un controllo e mettici uno
spazio se non vuoi modificare la suddetta proprietà. Oppure, prendi spunto dal codice qui sotto
(proprietà AllowZeroLength, che non ricordo se sia possibile impostare coi campi di tipo memo):
Private DAOGenDB as database
Private DAOGenTableDef as tabledef
Private DAOGenField as field
  set DAOGentabledef = DAOGendb.createtabledef("CBRTypes")
  set DAOGenfield = DAOGentabledef.createfield("Bitrate (kbit)",4,4)
  DAOGenField.Attributes = 1
  DAOGenField.Name = "Bitrate (kbit)"
  DAOGenField.OrdinalPosition = 1
  DAOGenField.Size = 4
  DAOGenField.DefaultValue = ""
  DAOGenField.ValidationRule = ""
  DAOGenField.ValidationText = ""
  DAOGenField.Required = False
  DAOGentabledef.fields.append DAOGenfield
  set DAOGenfield = DAOGentabledef.createfield("Description",10,100)
  DAOGenField.Attributes = 2
  DAOGenField.Name = "Description"
  DAOGenField.OrdinalPosition = 2
  DAOGenField.Size = 100
  DAOGenField.DefaultValue = ""
  DAOGenField.ValidationRule = ""
  DAOGenField.ValidationText = ""
  DAOGenField.Required = False
  DAOGenField.AllowZeroLength = True
  DAOGentabledef.fields.append DAOGenfield

 wrote in message
9tj37u$848$1...@nreadb.inwind.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: URGENT PLEASE !!!!

I want to compact a database ( Access97 )
with VBA without close the file... is it possible ?
How ?  
Have you ever try to compact a database from
the menu bar ?  The file is closed, compacted
and re-opened... is ti possible to do this with
the code ?
Thank you !!!
Can you answer also to my address :
del...@mediacom.it

It's impossible, if you try to compact a database from a command inside this
database.
You can compact a database from another database or from Visual Basic,
because the database can't be open!
Bye, Roberto
... sorry for my bad english!
Laura ha scritto nel messaggio <01bb8217$281bf480$70707070@miami>...


 
You is italian.
Why you don't write in italian?
Be... io l'inglese non lo so molto  :-((
Quasta domadna comunque l'hai gia' fatta in iteliano..... ... .
E se non erro.... ti hanno gia risposto ?!?!   :-?
Penso che sia impossibile farlo in automatico.
Se piu' applicazioni (utenti) stanno accedendo al DB contemporaneamente, prima
tutti si debbono scollegare (chiudere il db) e poi si puo' procedere alla compattazione.
I comandi da usare sono descritti nell'help del VB.
usa:
	DBEngine.CompactDatabase "Sorgente.mdb", "Destinazione.mdb", dbLangGeneral
	kill "Sorgente.bak"
	name "Sorgente.mdb","Sorgente.bak"
	name "Destinazione.mdb", "Sorgente.mdb"
 
E vai con Dio.....  (e con lo zio Bill)
--
Hi, Ciao
Ettore                 By -MES-
http://freeweb.aspide.it/freeweb/ilmes
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb

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

CIAO
Questo dovrebbe essere quello ti interessa.....
Global Const SWP_NOMOVE = 2
Global Const SWP_NOSIZE = 1
Global Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Global Const HWND_TOPMOST = -1
Global Const HWND_NOTOPMOST = -2
Sub Form_Load ()
    Dim R As Integer
    R = SetWindowPos(Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
End Sub
BYE

 scritto nell'articolo


si puo' sicuramente fare, come la finestra trova di word, ma non in VB
dovrai rivolgerti al VC++ o a SDK con CreateWindow() e lo stile
appropriato.
-- 
Enrico
enr...@spin.it

Newsgroup: it.comp.lang.visual-basic
Titolo: info su gestione database

Stò da giorni sacramentando sugli esempi di gestione 
database di VB5 pro., fornito nel pacchetto 
DEV-STUDIO-97, senza nessuna documentazione 
cartacea. Maledetta la documentazione in linea !!!!  
Ho i seguenti quesiti per chi ha già superato il problema:
un database ACCESS di nome "datab" è composto da
una sola tabella "tabel", suddivisa in "campo1" e  
"campo2", entrambi alfanumerici di 5 digit, il primo 
indicizzato in modo univoco. Come faccio a:
1)posizionarmi al primo record o all'ultimo in assoluto.
2)spostarmi sul record precedente o successivo.
3)posizionarmi sul record dove in "campo1" esiste 
   il "frammento" di testo "ABC".
4)posizionarmi sul record dove in "campo1" esiste 
   il testo esatto "PIPPOLINO".
5)caricare in A$ il contenuto di "campo1" del rec.
   corrente.
6)modificare "campo1" con il contenuto di A$, 
   aggiornando gli eventuali index.
7)cancellare il record attuale. 
8)appendere un nuovo record in coda al database.
9) esiste un libro, magari in italiano, che corrisponda 
    ai "vecchi" manuali cartacei del VB ???
10) VisualBasicJournal, è una rivista valida ???
Sarò "eternamente" grato a chi mi potrà fornire 
istruzioni in merito
Marco.
togliete il testo ".nospazzatura" per avere l'indirizzo esatto.
mi serve per non ricevere "spazzatura" indesiderata!
E-MAIL: s.info.@tread.it.nospazzatura          

10) VisualBasicJournal, è una rivista valida ???
?
Ciao, Stefano
Stefano - 53.6%
gl...@eponet.it
http://www.geocities.com/SiliconValley/Lakes/1218
(programmazione VB 32 bit)

 
tutto OK ma:
    Dim db As Database, rs As Recordset
    Set dbs = OpenDatabase("datab.mdb", False, False, ";")
    Set rs = dbs.OpenRecordset("tabel1", dbOpenTable)
    rs.FindFirst "campo1 like '*PIPPO*'"
	    'l'istruzione sopra termina con il seguente errore:
	    'Operation is not supported for this type of object. (Error 3251)
	    'perchč ????
grazie ancora !
Marco
EMAIL s.info.@tread.it_notrush    <<<== togliere "_notrush"