mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Ancora sulle date,potete controllare?

Scusate,il problema che pongo ho letto che trito e ritrito,purtroppo non
sono riuscito,nonostante i mille post letti, a trovare l'errore nel mio
codice.
Qualche anima pia č cosě gentile da dargli un'occhiata ?.
Il problema consiste nel calcolare la differenza in giorni tra due
date,una presa da un file copiato sul disco,l'altra la data corrente del
PC.
Bene,questo confronto non sempre funziona,(facendo girare lo stesso
codice su PC diversi)a volte la differenza č corretta altre mi mostra un
numero esageratamente grande.Come č possibile ?
CODICE-------------------------------------------------
Dim DataFile As Date
 
'RECUPERO LA DATA DEL FILE(prova.txt)
DataFile = Left(FileDateTime(GetWinSysDir() & "\prova.txt"), 8)
GiorniPassati = DateDiff("d", Now, DataFile)
frmMostraGiorni.Show vbModal
If Abs(GiorniPassati) > 3 Then
...
Else
.
.
.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 DataFile = Left(FileDateTime(GetWinSysDir() & "\prova.txt"), 8)
FileDateTime restituisce una Data (Variant), perchè tradurlo
(implicitamente) in stringa e prenderne gli 8 crt di sinistra? (Con il
rischio che le impostazioni tronchino clamorosamente la data)
 DataFile = FileDateTime(GetWinSysDir() & "\prova.txt")

 rischio che le impostazioni tronchino clamorosamente la data)
'Certezza'.
Sai che quando si parla di conversioni implicite mi scaldo parecchio.
Alberto

Newsgroup: it.comp.lang.visual-basic
Titolo: Libreria scientifica per VB .NET

Questo tema era già stato trattato qui ma nella marea di post non riesco 
a trovare il riferimento.
Qualcuno puo' suggerirmi una valida biblioteca matematica (calcolo su 
matrici, autovalori, autovettori) da usare con Visual Basic NET ??
(Meglio se gratis, altrimenti <sigh> la pagherò)
Grazie.
John.


come questa?
http://www.mathdotnet.com/
ciao
stefano

 stefano
azz...! Proprio come questa. Ma come mai non l'ho trovata in rete ?? 
...bah...misteri matematici...
Grazie. la scarico subito.

 Grazie. la scarico subito.
prego :-)
ciao
stefano
Newsgroup: it.comp.lang.visual-basic
Titolo: Vb6

Ciao a tutti e auguri, ho un problemino con il Vb6 che sicuramente risulterą
stupido, xņ non riesco a trovarne la soluzione.
Come faccio con il Vb6 a vedere la lista di tutti gli API di Windows?
Non so veramente come fare poichč uso molto gli API, non posso andare avanti
in nessun lavoro.
Grazie in anticipo
Fabrizio


se ti accontenti c'e' quella robaccia fornita con vb che si chiama
API viewer. altrimenti ci sono un sacco di siti sul tema
c'e' un post di quasi un mese fa con tutti gli url.
imho il migliore rimane 
www.allapi.net
 dove trovi l'ottimo API guide
P.S. la prossima volta metti un subject migliore -_^
--
Fibia "Sakamoto" FBI
URL: 
www.geocities.com/fibiafbi
E-Mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Membro #25 delle Brigate Takahashi Sez. Sud

nome corretto...
Vero, lo sanno tutti che LE api sono femminili! :)
Ciao

 Vero, lo sanno tutti che LE api sono femminili! :)
vero.
se minuscole e plurali.



plur-ali perché ne hanno due? ;-PP
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

 plur-ali perché ne hanno due? ;-PP
no.
perche' ne hanno plur.
controllare per credere:
http://bluehen.ags.udel.edu/homepage/ento/insectdb/hymenopt.htm
Wings: 2 pr. membraneous with first pair (mesothoracic) larger; wings hook
together in flight; reduced veins but often closed "cells" evident.
se vuoi cerco anche perche' "minuscole".
:)
Newsgroup: it.comp.lang.visual-basic
Titolo: Richtextbox e HTML

Ho un grosso problema: Io elaboro del testo dentro una RichTextBox (perche'
mi serve formattarlo)
ma poi io lo dovrei esportare in HTML (come farei da Word per intenderci
Salvando in HTML).
Come posso fare?
Grazie a tutti
Silvia

Usa il MS RichTextBox Object
poi basta che usi il metodo save in questo modo:
RichTextBox1.SaveFile "nomefile.html"
e viene salvato in HTML.
Ciao

 ha scritto

mi mancava. l'object non e' altra cosa rispetto controllo rtb ?
per un attimo ho sperato che in vb6 avessero finalmente evoluto il
controllo. invece, msdn:
oggetto.SaveFile(percorso, tipofile)
Costante Valore Descrizione
rtfRTF 0 (Predefinita) RTF. Il contenuto del controllo verrà salvato
in un file .rtf.
rtfText 1 Text (testo). Il contenuto del controllo verrà salvato in un
file di testo.
cos'e' il "MS RichTextBox Object" ?
grazie, a.
ps - d'altra parte: non ho ancora provato col 2000, ma word 97 salva in un
html o-b-b-r-o-b-r-i-o-s-o, in cui almeno il 50% del codice, oltre che
brutto, e' ridondante...

Salvando in HTML).
beh, usa un DHTMLEdit. Come il RichTextBox ma specifico per l'HTML
E molto piů personalizzabile (non completamente da VB, dato che VB non
supporta le interfacce)

supporta le interfacce)
in che senso "non personalizzabile completamente"?
bisogna buttarsi sul c++?

bisogna buttarsi sul c++?
beh, VB nativamente supporta solo l'interfaccia IDispatch (dalla
versione 6 anche l'interfaccia IExecute [mi pare]), ma il DHTMLEdit, o
meglio, il MSHTMLEdit (il primo non è più supportato, lo tengono solo
per retrocompatibilità) espone molte altre interfacce (detto molto
grossolanamente), ossia non è basato unicamente su proprietà, metodi
ed eventi (interfaccia IDispatch)

Newsgroup: it.comp.lang.visual-basic
Titolo: Kill di task in Win NT

ll problema è la necessità di terminare da codice uno o più task in
esecuzione: qualcuno sa come posso fare ?
grazie.

esecuzione: qualcuno sa come posso fare ?
Potresti usare il
Ret = PostMessage(glngProchWndN(j), WM_CLOSE, Param, Param)
magari associandolo con un 
Ret = WaitForSingleObject(glngProchWndN(j), WAIT_TIME)
Il PostMessage e' il modo piu' "pulito" di chiudere un'applicazione.
In pratica corrisponde al premere sulla X di chiusura dell'eventuale
finestra. Qualche task potrebbe chiedere di "Salvare il contenuto" o
robe simili. Il WaitForSingleObject serve per aspettare una risposta
dal processo di cui si e' chiesta la chiusura.
Sicuramente piu' brusco ma anche efficace e'
Ret = TerminateProcess(glngProchWndN(j), 0)
Tronca tutto, con tutti i pro e i contro
-- 
Giovanni "Gyo" Perdicaro
E-Mail: 
gperd...@sicilyonline.it


Interessante, potenzialmente pure utile ma, se fino a hWnd non mi preoccupo,
che diamine e' un glngProc?? :)))
Considera che non ho il msg originale quindi non so a cosa facciate
riferimento, percui glngProchWnd(j) mi par tanto cinese di pechino :))
Posso immaginare che il tutto stia per 'global process (long) hWnd [array]'
ma mi son buttato senza paracadute... ke dici, me so fatto male? :)
Ciao,
Alessandro

ma mi son buttato senza paracadute... ke dici, me so fatto male? :)
Quasi centrato in pieno, Sherlock :)

Newsgroup: it.comp.lang.visual-basic
Titolo: URGENTISSIMO!!!! Aggiornamento Database remoto di 460 Mb.

Il problema che vi pongo è l'aggiornamento di un database che si trova in
una sede succursale del nostro ufficio collegato con linea telefonica
dedicata.
Il database in questione viene aperto con una OpenDatabase ("nome db",true)
ed ha dieci indici.
In locale gestisco un secondo database nel quale é registrata una tabella
con i dati che giornalmente vengono incrementati dal nostro ufficio. A fine
giornata tali dati devono essere aggiornati sul database remoto. Vi mostro
qui di seguito la logica che ho impostato per l'update del database remoto:
1) Imposto la tabella del database locale come:
    set "nome tabella" = AVDB. openrecordset ("nome
tabella,dbopenforwardonly)
2) Setto la tabella del database remoto come:
    set "nome tabella" = DBINAVIS.openrecordset ("nome tabella,dbopentable)
3) Scorro la tabella di cui al punto 1 e per ogni record eseguo una seek
sulla   tabella del punto 2. Dopo ogni seek eseguo o l'ADDNEW o l'EDIT e
quindi l'update.
Il problema che si presenta é che dopo circa 80-100 records il processo si
blocca.
Vi faccio presente che con databases di dimensioni ridotte (o con meno
indici) ciò non avviene. C'è qualcuno che mi sa dire come risolvere questo
problema ?
GRAZIE!!!!!!

Xche` si pianti non saprei.
Cmq un'architettura del genere non puo` stare in piedi non
appena del dimensioni del db "remoto" aumentano un poco.
Quando il Jet deve fare una seek, ha bisogno di avere in linea *tutto*
l'indice da scorrere,
il che significa che non appena la tua tabella remota raggiunge certe
dimensioni si pianta
tutto.
Secondo me faresti mooolto meglio ad impostare un aggiornamento off-line;
ti crei un file con il log delle modifiche/inserimenti eseguiti, lo spedisci
in una certa
dir. del pc remoto, sul pc remoto lasci in piedi una procedura che legge
questo file
di log e si va ad allineare le tabelle.
Oppure passa ad un sistema client-server.
Ciao.
Newsgroup: it.comp.lang.visual-basic
Titolo: Pseudoproblemucci con InnoSetup

Creando un pacchetto d'installazione con InnoSetup, in un sistema con Win
98, è logico che installando il programma su Win Xp o 2000 ci siano dei file
più aggiornati e che quindi venga chiesto se mantenere quelli attuali.
La cosa che però non mi piace molto è che nela finestra con cui si chiede se
mantenere il file corrente c'è scritto 'Error' in bell'evidenza nel titolo e
più di una persona mi ha scritto preoccupata raccontandomi di fantomatici
errori in fse d'installazione.
Il programma funziona ma non è un bel biglietto da visita, c'è modo magari
di togliere quell' "Error".
Stessa cosa dicasi per alcuni file tipo OLEAUT23.dll e Iphlpapi.dll, per i
quali compare un vero messaggo d'errore nel quale viene detto che non è
stato possibile sostituirli perchè in uso dal sistema (nessun'altra
applicazione è aperta).
Anche questo non è molto bello e mi sembrava che con l'installazione creata
da Vb questi ultimi messaggi non comparissero.
C'è qualche flag particolare per evitare che questi messaggi vengano
visualizzati?
Grazie mille
Michele

 visualizzati?
Prova a creare una sezione [Messages] e inserisci la seguente riga:
ErrorTitle=Warning
In questo modo dovresti sostituire la caption di una finstra di errore con il
testo 'Warning'.
Il problema però che questo testo viene modificato su ogni finestra di errore.
P.S.: allo stesso modo puoi sostituire un qualsiasi testo del setup con ciò che
vuoi tu.
Cerca nella cartella di installazione di Inno Setup il file Default.isl ed
aprilo con Notepad.
Puoi vedere l'intera lista dei testi.
Sul sito di Inno Setup inoltre puoi trovare i testi in varie lingue compreso
l'italiano.
I nuovi testi li importi nel setup con la chiave
MessagesFile=compiler:Italian.isl nella sezione [Setup].
Ciao!
--
Esteban
Hosted by 
www.seber.it
Remove 'nonspammare' for reply
Newsgroup: it.comp.lang.visual-basic
Titolo: Procedura di trasferimento file

Chiedo aiuto!!!!
Devo fare una procedura che mi trasferisca un file noto in una determinata
cartella di un PC remoto.
Ho provato il MSComm e ho riscontrato i seguenti problemi:
1) Come escludere l'opzione 'attendi segnale' prima di comporre il numero?
2) Il PC remoto deve abilitare qualche cosa per ricevere la chiamata?
3) Come si fa a trasferire un intero file in una cartella stabilita del PC
remoto?
Ho provato anche il Winsock (che sembra pių facile), ma dall'esempio in
Documentazione in linea (che oltretutto non mi gira, chissā perchč) non
riesco ad avere le idee chiare per il trasferimento di un file.
Se avete qualche codice di esempio o applicazione ve ne sarei grato.
Qualcuno mi aiuti!!! Grazie
D.B.A. Andrea Pauselli - Pietralunga
--
Posted from root@[194.143.133.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

>1) Come escludere l'opzione 'attendi segnale' prima di comporre il numero?
Io ti do' la risposta alla sola prima domanda.
Per un mio programma ho risolto questo mandando al controllo Mscomm1 la
stringa di inizializzazione del modem:
Mscomm1.Output = stringaIni$ & vbCrLf 'Invio stringa di inizializzazione
Mscomm.Output = "ATD" & tp$ & numero.Text & vbCrLf  'Invio numero
dove da una inputbox o qualcosa di simile puoi far impostare la stringa
stringaIni$ e il tp$ ("T" per toni, "P" per impulsi).
Io uso la stringa:
stringaIni$="ATL3Q0X3V1"
che ho già provato per 3 modem e che funziona.
numero.text è il numero di telefono contenuto in una textbox

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

Dunque, uso VB5:
1 - Supponiamo che dal mio programma lanci un applicazione esterna, esiste
un modo per sapere quando quest'ultima apre una finestra di dialogo?
Eventualmente se nella finesta di dialogo devo introdurre delle
informazioni, posso farlo fare al mio programma?
2 - Esiste qualche libreria o altro che consenta di creare un disco virtuale
in memoria (qualcosa che faccia quello che faceva ramdrive)
Mi basterebbe sapere dove andare a leggere le informazioni...le domande
specifiche le faro' quando avro' letto e mi saro' opportunamente incasinato
:)
Grazie e ciao
Alex

 wrote in message
8e7m5j$mq8$1...@nslave2.tin.it...

Se ci riesci diventi il mio eroe preferito :)))


Eh gia'! Sarebbe proprio bellissimo :-D
Newsgroup: it.comp.lang.visual-basic
Titolo: perche dicono che doevents fa male??

mi spiego: perche quando uno ha un ciclo tipo for...next o do...loop,
qualcuno qualche tempo fa ha detto che mettendoci in mezzo un DoEvents si va
incontro a problemi di overflow et similia??
cosa c'entra il doevents con la memoria?
grazie
MarioH

Perche' se uno e' alle prime armi riscia di creare codice con recursioni...
questo accade quando non si conosce bene la tecnica di programmazione.
Se usato correttamente non crea problemi!


vabbe ma che significa "codice con recursioni"?
se io scrivo
for J = 1 to 50000
doevents
(esegui una certa operazione)
next J
questo è un codice con recursioni?
è la sola presenza del doevents che comporta la "recursività" (se si scrive
così) ?
MarioH

MarioH wrote:

In generale l'uso del DoEvents e' abbastanza rischioso. Infatti esso da' il
controllo al sistema, permettendogli di processare eventi non direttamente
collegati (o collegati persbaglio) con l'esecuzione del programma VB, e quindi
causando un comportamento alle colte imprevedibile.
Esempio di utilizzo lecito: se devi (come ho dovuto fare io) interfacciarti con
dispositivi che comunicano tramite seriale, e quindi ascoltare la seriale, il
DoEvents ti consente di fare cio';
Esempio di utilizzo non lecito: Supponi di avere il seguente codice:
Sub  cmdBottone_Click()
  Screen.MousePointer = vbHourglass
  ' Fai qualcosa...
  Call MiaOperazione
  DoEvents
  Screen.MousePointer = vbArrow
End Sub
L'utente preme il bottone, ma al posto di fare un click ne fa due (mi e'
capitato, ci sono stato una settimana per capire dcov'era l'errore8-)). In
questo caso, il primo click lancia MiaOperazione, ed il secondo...pure! La sua
pressione resta nella 'coda' dei messaggi, ed il DoEvents ne provoca
l'esecuzione. L'utente continuera' a ripeterti che lui preme una volta sola, i
tuoi test (effettuati premendo una volta sola) andranno tutti a buon fine...
Bye by Massimo 8-]

 wrote in message
pQQN6.2004$5_6....@news2.tin.it...


 ERRORI DEI PROGRAMMATORI.
Dico solo due parole: "Considered Harmful" :))
Se ci pensi e' la stessa cosa, codice eseguito proveniendo da locazioni
inattese...
Non e' che non concordi con la tua definizione, ma in fondo non e' sempre
cosi'? :)
Ciaotutti,
Asterix

> ERRORI DEI PROGRAMMATORI.
*> Dico solo due parole: "Considered Harmful" :))
Il "Considered  Harmful" di Dijkstra era  riferito ad una  cosa che fa
diventare cattivi  programmatori. La doevents è pericolosa  solo per i
cattivi  programmatori  che  non  riescono a  gestire  la  concorrenza
implicita.
--
Gian Uberto| main(){printf(&unix["\021%six\012\0"],(unix)["have"]+"fun"-0x60);}
Lauri      |                        David Korn, 1987 ioccc best one liner 
(aka saint)|-------------------------------------------------------------------
em@ail: 
sa...@eng.it
 ( vedere X-nospam nello header - see X-nospam in header )

 cosi'? :)
nel redmondo che ci e' dato conoscere...
Newsgroup: it.comp.lang.visual-basic
Titolo: ActiveX invisibili

Vorrei fare una richiesta forse un po' banale, ma da solo non sono riuscito
a risolvere un problema.
Quando si realizza un activex invisibile (come il timer), come si fa a fare
in modo che una volta prelevato dalla tavolozza venga visualizzata solo
l'icona non dimensionabile ?
Ringrazio tutti coloro che vorranno rispondermi, anche in via privata
all'indirizzo :
pi...@tmn.it
Ciao
-- 
-----------------------------------
DJ PierFedeli - Treviso

Setta la proprietà InvisibleAtRuntime a True. In questo modo sarà visibile
solo a design-time. Per rendere il controllo non dimensionabile, metti la
seguente riga nell'evento resize dell'UserControl:
Size  610, 650
Cambia le dimensioni come preferisci.
Sauti,
Domenico
DJ Pier ha scritto nel messaggio <01bd1ab4$27c99640$0400369c@pier>...


Newsgroup: it.comp.lang.visual-basic
Titolo: Errore di protezione generale (orrore!) ed immagini inedite dallo Stack

Lo so che gli utenti di Windows debbono essere pazienti e rassegnati, ma per
curiosità, ed anche per desiderio di crescere, quando talvolta in W98se alla
chiusura del mio prg in VB esce la schermata ironica di Windows
"NomeProgramma ha causato un errore di protezione generale...contattare il
fornitore del Programma(che poi sarei io e nella fattispecie non saprei
proprio nè cosa chiedermi nè tantomeno cosa rispondermi)"ecc. con relativa
"immagine dello stack", cosa si può fare? C'è un modo per utilizzare le
informazioni su questo stack per rimediare all'errore?
E, ciliegina sulla torta, la domanda da un milione: c'è qualche risorsa in
Italiano su Internet su questo problema?
I Programmatori esperti ( e tra voi ce ne sono tanti) possono effettivamente
utilizzare queste informazioni?E a grandi linee con quali criteri di
diagnosi?
Grazie.
Giorgio

 diagnosi?
Semplice causa effetto: {e|o}rrore generale --> windows9x è un colabrodo.
Ciao

 E a grandi linee con quali criteri di diagnosi?
importante il dump dello stack, per sapere il "cammino" del programma 
prima di incappare nell'errore. Importanti i simboli di debug delle DLL 
di sistema, per il numero e il tipo dei parametri delle funzioni. 
Importante attivare la generazione delle informazioni di debug nel 
proprio programma. Evitare ovunque possibile di usare il debugger 
interno di VB, usarne uno vero come quello di Visual C, o WinDbg
-- 
 < 
http://www.reactos.com/
 >  Open source clone of Windows NT. Current
     Don't stand, REACT!      version 0.0.19. C, C++ and ASM developers
                              and beta testers are welcome!

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

ma qundo scrivete le graffe bisogna sempre premere alt+125 o ci sono altri 
modi? 

 modi?
AltGr+Shift+tasto con le parentesi quadre.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/
Newsgroup: it.comp.lang.visual-basic
Titolo: Cancellare testo

Ciao a tutti,come posso fare una piccola applicazione in grado di cancellare 
unicamente l'ultima riga di un qualunque testo?da un semplice file txt??ho 
bisogno che mi cancelli solo l'ultima riga(non so se puo essere usata in 
qualche modo la funzione Append che inizia una procedura proprio dalla fine 
di un testo) qualunque cosa trovi,come potrei tentare??grazie.
Giorgio

 file txt??
l'unica soluzione è ricreare un nuovo file privo dell'ultima riga.
Elef

Newsgroup: it.comp.lang.visual-basic
Titolo: GRIGLIA freeware!

Ciao esiste una flexgrid freeware che mi dia  la possibilità di scrivere
nelle celle?
 ciao fabr

 ha scritto nel messaggio
news:FUKL7.12674$4M2.3...@news2.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Virgolette in una stringa

Come faccio a mettere il carattere " (le virgolette) in una stringa?
Ad
esempio se voglio scrivere
La parola "io" è tra le virgolette
Come
faccio?
Ciao!
Alessandro
--------------------------------
Inviato via 
http://usenet.iol.it

"""" + "IO" + """"

 wrote in message
news:146Z133Z1Z30Y9...@usenet.iol.it...


 La parola "io" č tra le virgolette
s=chr(34) & "io" & chr(34)
--
----------------------------------------------------------------------------
Esiste un luogo dove tecnologia e arte si incontrano
www.tecnologiaEarte.net
----------------------------------------------------------------------------
Gianluca Pisano

 wrote in message
O7GX6.10121$m51....@news1.tin.it...


 wrote in message
news:fIIX6.6459$x_3.2...@news.infostrada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Interactive Physics

Salve a tutti.
Sapete indicarmi un sito per poter usare Visual basic con Interactive
Phisycs?
Grazie.

 Phisycs?
Diciamo che io non so cosa sia IP e che la grammatica non è il tuo forte :)
Cercando con google di siti con Interactive Physics (non Phisycs) ne vengono 
fuori a tonnellate.
Qualcuno anche con "Interactive Physics" "visual basic".
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: ELEMENTO BMP .NET

Una volta inserito un nuovo elemento di tipo bitmap all'interno del mio
progetto .net come faccio a richiamarlo e caricarlo per esempio su di un
form?

Aggiungi il file bmp al progetto e imposta la proprietà Build Action a
"Embeded Resource", dopodichè usa GetManifestResourceStream per ottenere lo
stream relativo alla risorsa, attenzione che l'ID della risorsa è nella
forma "ProjectName.ResourceName.extension"
Da qui utilizza Bitmap.FromStream per creare il bitmap
Esempio
Dim str As Stream =
System.Reflection.Assembly.GetExecutingAssembly.GetManifestResourceStream("Y
ourAppName.filename.bmp")
HTH
-- 
Corrado Cavalli [Microsoft .NET MVP-MCP]
UGIdotNET - 
http://www.ugidotnet.org
Weblog: 
http://www.ugidotnet.org/710.blog

 ourAppName.filename.bmp")
Chiedo scusa per l'intromissione al post, ma ho anche io un problema simile.
In una libreria di controlli web, ho un controllo ImageButton a cui devo
assegnare la proprietà ImageUrl a runtime. Vorrei riferirmi ad un immagine
GIF che ho inserito nel progetto della libreria e che ho contrassegnato come
Risorsa incorporata.
Il problema è che mi serve una stringa per l'ImageUrl, ma non riesco a
ricavarli con i metodi della System.Reflection.Assembly.
Magari mi è sfuggito qualcosa, qualche suggerimento?
Grazie in anticipo.
                            Ciao
                                        Zephiross
Newsgroup: it.comp.lang.visual-basic
Titolo: Traduzione di un programma in Pascal con uno in Visual Basic

Ho un programma in Pascal, mi servirebbe lo stesso ma scritto con il Visual
Basic.
Si può fare?
Se si scannerizzerò il programma che ho!
Ciao
--------------------------------
Inviato via 
http://usenet.libero.it

Si fa, si fa... anche in maniera piuttosto immediata.
Ciao,
Antonio Cangiano
--
"C# is the future."
Where Do You Want To Go Today?

> Si fa, si fa... anche in maniera piuttosto immediata.
beh.... il linguaggio è + o - simile.... il cambiamento "radicale" è
trasformare un programma sequenziale (dos) in uno ad eventi (win & simili).
Purtroppo esiste:
1) convertitore da QBASIC a PASCAL
2) convertitore da VISUAL BASIC a DELPHI (il nome è Delux e io ce l'ho), che
funziona abbastanza bene.

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Pacchetto installazione e Crystal Report

Salve a tutti
Ho creato una applicazione che usa Crystal Report 8.5 e il controllo
CrViewer.
Il la sorgente dati del report è un recordset cui è associato tramite campi
unboundfields.
Creo il pacchetto di installazione e vado ad installarlo su un portatile con
OS win XP. Si installa ma mi dice che non riesce a trovare il file
crpe32.dll. Gli dico di ignorare il problema e procede fino a conclusione.
Vado a verificare il funzionamento, ma mi lancia un errore che mi trafigge:
"Il Server non è ancora stato aperto".
Potete aiutarmi
Ciao
Fabio

 wrote in message
news:GTKea.96952$pG1.2...@news1.tin.it...

Scrivimi in e-mail che ti mando un file .lst dove io utilizzo il crviewer.
Ciao.
--
Massimo Bonechi
-----------------------------------
Nuovo Newsgroup al server : 
news.startit.it

*Massimo B.* ha scritto:
...
Un pessimo esempio di quoting e di condivisione delle conoscenze. :-(

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto....Come posso rendere internazionale un applicativo?

Ho scritto un piccolo applicativo e attraverso un file esterno permetto di
cambiare i nomi dei controlli in modo che possa essere usato anche da utenti
di altre paesi.
Un mio amico in america,  mi dice che sul suo computer tutto va bene tranne
che per le inputbox, che
hanno si il titolo in base al nome configurato nel file sopra menzionato, ma
i pulsanti continuano
a dare la scritta "ok" ed "Annulla".
Io sapevo che "msgbox" e "inputbox" prendono i nomi di "Annulla","Si" etc
dal sistema operativo dove installati.
Sapete darmi una spiegazione?
Cosa posso fare?
Grazie in Anticipo

 wrote in message
news:icUva.187016$kYH....@news01.bloor.is.net.cable.rogers.com...


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

Come faccio a sapere quando webbrowser ha finito di caricare una pagina?
Grazie Nick Shadow

 pagina? Grazie Nick Shadow
c'č scritto nell'help
dovrebbe essere l'evento navigatecomplete, testando l'oggetto che viene
passato.
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 ha scritto nel messaggio
news:bvtou3$va8gg$1...@ID-173193.news.uni-berlin.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: Files .dwg e dxf

Ciao a tutti
Dovrei visualizzare dei file .dwg e/o .dxf di Autocad. Qualcuno sa indicarmi
un mezzo o un componente per fare ciň?
Grazie e ciao
Daniele Grignani

 un mezzo o un componente per fare ciň?
non sono sicuro che ti serva ma puoi provare:
http://www.mediahorizon.net/activex.htm
un altro paio di url, *forse*, cercando "cad" e "dxf" nei miei vblinks.
ciao, a.
--
andrea dot palazzi at tin dot it
free vb/sw: 
http://www.comune.modena.it/cittadini/apal/html/


Ti ringrazio per la risposta: vado subito a vedere.....
Ciao
Daniele Grignani




 Se ti colleghi al sito, segui le indicazioni Volo View Express.
grazie dell'url.
solo che o ero io del tutto in pappa o loro dicono che c'e' una versione da
17 mb e una da 4 che pero' visualizza solo -- direi -- i dwg.
il link al dnld del bestione non l'ho proprio visto. tu ci sei riuscito ?
grazie e ciao, a.

per potere accedere al link di download occorre registrarsi ...
comunque credo che tu possa trovare il "bestione" in altri siti, il nome del
file e'
VoloVEm.exe (per la versione internazionale)
VoloVEmI.exe (versione in italiano)
la dimensione per entrambi e'di ciraca 16,5 Mb, e visualizza i dwg, dwf e dxf.
            Ciao
                            Andrea


....infatti senza registrazione è possibile scaricare solo la versione da
4mb.....che sembrerebbe non male.
Grazie per le risposte
Daniele Grignani

 ha scritto


Newsgroup: it.comp.lang.visual-basic
Titolo: apertura DB access con PWD

Con l'istruzione db.Opendatabase("nomeDB.mdb") come posso passare la PWD con
la quale il DB è protetto?
Grazie,
Rosa

 PWD con la quale il DB è protetto?
OpenDatabase("nomeDB.mdb", False, False, ";pwd=TuaPassword")
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Compatibilità SO

Non so se l'oggetto è espresso correttamente...
Devo installare un programma che utilizza Winsock compilato con VB6 in XP in 
un sistema con S.O. Win 98
Una volta eliminata dalla distribuzione MSVCRT.dll per i noti problemi, 
posso avere problemi con le altre dll incluse nel pacchetto da
"Creazione guidata pacchetto..." dal momento che queste sono dll 
appartengono a XP ? Mi viene da dire: certamente !
E allora come mi consigliate di procedere ?
Grazie
Buon Anno
-- 
Gulp
....forse mi sono perso qualcosa ! 

 E allora come mi consigliate di procedere ?
Questo puo` essere un buon punto di partenza:
Best practices for deploying Visual Basic 6.0 applications
http://support.microsoft.com/default.aspx?scid=kb;en-us;830761
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: Qualcuno di voi conosce il tracciato record METEL?

Qualcuno di voi conosce il tracciato record METEL? Dovrebbe essere un
formato standard per la lettura dei listini dei grossisti di materiale
elettrico.
Se possibile, gradirei avere delle informazioni per l'integrazione in un mio
programma di gestione contabilitą cantiere per impiantisti elettrici.
Grazie!
============================================
                      CYBER Hardware & Software
                         di Ettore Massimo Albani
                           Via Scapacchiņ, 48/B
              35030 Selvazzano Dentro (PD) - Italy
                         Tel./Fax: 
(+39) 049-638681
 
http://www.protec.it/cyber
                         E.mail: 
cy...@protec.it
============================================


Dimmi cosa ti serve sapere, credo di essere in grado di fornirti tutte
le informazioni necessarie (tracciati record, listini di prova,
...... e codice sorgente di lettura gia bello e confezionato.
Magari in privato visto che l'argomento e' forse OT
Bye , Luys
--------------------------
Luigi Lando
mailto : 
lu...@telemar.it
--------------------------
Make things as simple as
possible - but no simpler.
--------------------------
--------------------------
Luigi Lando
mailto : 
lu...@telemar.it
--------------------------
Make things as simple as
possible - but no simpler.
--------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: Diego "Duplicazione CD" ci sei?

Grazie.
Spero posa essere almeno un idea.
Diego
_______________________________________________________________________________
Mi interesserebbe molto sapere se e' andato avanti il suo studio o
meno.
Ciao a tutti e buon lavoro,Giorgio.

rifiutano di copiare il CD.
Non so cosa intendi per programmi di masterizzazione normali, ma e'
possibile duplicare il CD pari pari, errori compresi.
-- 
ciao, hal


mi piacerebe sapere se c'è un metodo valido per protegersi.
questo che avevo letto mi piaceva ma ora mi hai smontato tutto.
quale potrebbe essere una protezione più o meno valida?
grazie
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

quale potrebbe essere una protezione piů o meno valida?
Scrivere un programma brutto, inutile e pieno di errori: vedrai che
nessuno vorra' copiarlo :-PPP
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: OpenGL e VB5.0

E' possibile utilizzare le OpenGL in VB5.0? Esistono siti in cui
reperire degli esempi?
Ciao, grazie
Angelo

Io ci ho provato pero' fino a questo momento non ho ottenuto risultati
ecclatanti .Prova 
http://jsmooth80.hypermart.net/Links.html
 e
http://www.fmsinc.com/products/vbsbook/indexav.html
Newsgroup: it.comp.lang.visual-basic
Titolo: Come sapere quanti festivi intercorrono fra 2 date?

Ho un progetto nel quale vi sono due controlli calendario.
Essi sono utilizzati per fissare la data di inizio e la data finale di
alcune terapie mediche.
Il problema è che il cliente per cui sto facendo il programma mi ha
chiesto di poter inserire, al posto della data inziale e finale, la
data iniziale e la durata della suddetta terapia.
Fino a qui nulla di difficile, bastava inserire una textbox e
incrementare il numero di giorni contenuto in essa alla data iniziale.
Ma il cliente mi ha chiesto di saltare i festivi.... e come avrete
capito sono un pò nella m.....
Esempio:
un trattamento inizia il 26 giugno. La terapia comprende 20 sedute.
Il sabato e domenica lo studio rimane chiuso dunque i 20 giorni devono
essere lavorativi.
Come mi consigliate di implementare questa funzionalità?
GRAZIE a tutti!

> Lonely Drake:

Immagino che non basti saltare sabati e domeniche ma anche
altre varie ed eventuali date festive nazionali e locali tipo
santipatroni e chiusure, chesso`, per turni scioperi inventari
ferie e causediforzamaggiore...
Potresti aggiungere al db una tabella "calendario". XEs. coi
campi:
Data   (Data/ora)
Aperto (Si`/No)
in maniera che il cliente possa gestirsi il calendario a suo
piacere.
E una query del tipo
SELECT TOP 20 Max(TCalendario.Data) AS DataFinale
FROM TCalendario
GROUP BY TCalendario.Aperto
HAVING (((Max(TCalendario.Data))>#1/3/00#) AND
((TCalendario.Aperto)=True));
ti dovrebbe restituire il ventesimo giorno lavorativo dal 3
gennaio 2000. Se ho fatto tutto giusto;)
--
Ciao.
Maurizio
--------
?SPQR(C)
 X

 wrote:
Mi potresti spiegare cosa fa la Query che mi hai postato?
Scusa l'ignoranza ma sono solo alle prime armi.
Grazie ancora!


 Mi potresti spiegare cosa fa la Query che mi hai postato?
"ti dovrebbe restituire il ventesimo giorno lavorativo dal 3
gennaio 2000".
Scusa, ma hai provato a fare quanto ti ho detto? Hai problemi?
Di che tipo?

Newsgroup: it.comp.lang.visual-basic
Titolo: ListView & FlatScrollbar

ho notato che mettendo la proprietą a true Flatscrollbar di un controllo
ListView, non mi visualizza la scrollbar..
succede solo a me?

 succede solo a me?
č un bug di VB6
Newsgroup: it.comp.lang.visual-basic
Titolo: HELP: Stringhe

Salve a tutti..
sto scrivendo in Vbasic un programma per tracciare graficamente delle
funzioni. Il problema è: come convertire una stringa di testo immessa in un
textbox (ad es. "x^2+3*x-2")  in codice per il programma, poiché si tratta
della funzione che il rpogramma deve utilizzare per il tracciamento?
Se mi sono spiegato male, ditemelo
Grazie Mille!!!!

 wrote in message
news:OgHX6.5882$x_3.2...@news.infostrada.it...


X
uhm ...
 e poi ?
ciao, hal

 wrote in message
news:9gqoad$aga0n$1...@ID-56381.news.dfncis.de...


Ma come hal mi chiedi anche e poi?
Innanzi tutto non ho mai usato eval in vb :(
(e sono pure poco incline a farlo :P)
ma, da quello che ho capito sull' help, non ho chiaro come
plottare la funzione (in modi non contorti).
Anche hal domanda :)
ciao, hal

 [...]
BEATO LUI !
tu e io li abbiamo gia' persi !

 wrote in message
9gthpo$ae15n$1...@ID-51318.news.dfncis.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: accedere a tutte le sottodirectory

Ho un problemino..nel programma che sto scrivendo ho bisogno di
accedere all'ultima sottodirectory all'interno di un cdrom per poter
aprire un file .doc
Ho provato ad usare la Dir ma probabilmente lo faccio nel modo
sbagliato.
Ho provato con l'esempio della guida:
' Visualizza i nomi in c:\ che rappresentano directory.
MyPath = "c:\"   ' Imposta il percorso.
MyName = Dir(MyPath, vbDirectory)   ' Recupera la prima voce.
Do While MyName <> ""   ' Avvia il ciclo.
   ' Ignora la directory corrente e quella di livello superiore.
   If MyName <> "." And MyName <> ".." Then
      ' Usa il confronto bit per bit per verificare se MyName è una
directory.
      If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
         Debug.Print MyName   ' Visualizza la voce solo
      End If   ' se rappresenta una directory.
   End If
   MyName = Dir   ' Legge la voce successiva.
Loop
Il problema è che io ho bisogno di arrivare all'ultima sottodirectory
e questa non ha un nome fisso, come non ce l'hanno le altre e come non
ce l'ha nemmeno il drive del cdrom ma questo lo ricavo da sola.
es: E:\xx\yy\zz\pippo.doc
come lo apro????
VI RINGRAZIO GIA' DA ORA!

 es: E:\xx\yy\zz\pippo.doc
Allora... escludendo a priori le librerie del file system object per cui
nutro poca simpatia...
Il problema é che non puoi usare Dir in funzioni ricorsive, quindi devi
creare un buffer dove scrivere il nome di tutte le directory che incontri ad
ogni cilo di routine!
Quindi:
Sub Cerca(Path as string)
 Dim DirCache() as string
 Dim Count as long
 MyName = Dir(MyPath, vbDirectory)   ' Recupera la prima voce.
 Do While MyName <> ""   ' Avvia il ciclo.
    ' Ignora la directory corrente e quella di livello superiore.
    If MyName <> "." And MyName <> ".." Then
       If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
          redim preserve DirCache(Count)
          DirCache(Count) = MyPath & MyName
          Count = Count + 1
       End If   ' se rappresenta una directory.
    End If
    MyName = Dir   ' Legge la voce successiva.
 Loop
 if count = 0 then
   'In questa cartella c'é il file che cerchi
 else
   Dim N as long
   For N = 0 to count - 1
     Cerca Path & DirCache(N) & "\"
   Next N
 end if
End Sub
   Ciao
         Allanon
--
- SPAMKILLER
 L'indirizzo delle risposte é 
itlangv...@michele.sytes.net
 LASCIATE il NOSPAM fa parte dell'indirizzo :-)
  Per superare le impostazioni di protezione antispam scrivete
  nel testo del messaggio la scritta "SPAMKILLER"
Scusate il disturbo, ma non posso più di pubblicità
Newsgroup: it.comp.lang.visual-basic
Titolo: gestione memoria

c'è un modo per gestire la memoria in VB senza usare i lenti array?
qualcosa del tipo "alloc" in c,,,devo gestire circa 10 milioni di byte...

Antonios wrote:

Devi utilizzare direttamente le API per la gestione della memoria
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/memory/base/memory_management_functions.asp
Se fai qualche ricerca su google, trovi diversi esempi.
Ciao
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca

 Devi utilizzare direttamente le API per la gestione della memoria
Ma alla fine non so č č piů lenta la chiamata a una funzione dell'API
piuttosto che un reindirizzamento su un array di byte...
Ciao
--
Reporting tool: 
http://www.neodatatype.net

 piuttosto che un reindirizzamento su un array di byte...
Per quanto ho potuto verificare in passato, le chiamate alle API per la 
gestione delle memoria permettono prestazioni nettamente migliori.
Tutto, ovviamente, dipende da come e in quali contesti vengono utilizzate.


 Tutto, ovviamente, dipende da come e in quali contesti vengono utilizzate.
grazie per le risposte...devo usare la memoria per quanto esposto
nel TR "decodifica bitmap"


Io inizierei ad utilizzare delle strutture adatte.
Se spulci MSDN troverai informazioni dettagliate sugli header delle bitmap e
dei colori.
In particolare (vado a memoria) ci sono già delle strutture che potrebbero
aiutarti, come le
BITMAP
BITMAPINFO
BITMAPFILEINFO
BITMAPFILEHEADER
BITMAPINFOHEADER
RGBQUAD
RGBTRIPLE
Gestendole bene già qualcosa potresti guadagnarci.
L'arrei lo terrei solo per gli RGBQUAD (32bit) e RGBTRIPLE (24bit).
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: HO TROVATO UN BACO NEL CONTROLLO LISTVIEW !!!

Provate a fare cosi:
- Aprite un progetto nuovo.
- Aggiungete sul Form un controllo ListView.
- Visualizzate la finestra delle proprietą del controllo ListView.
- Create un certo numero di colonne Column Headers (ad esempio 3).
- Ora assegnate alla proprietą Key un valore numerico (la proprietą Key,
come dice anche l'Help in linea, puņ essere utilizzata per identificare in
modo univoco un elemento dell'insieme, quindi si potrebbe assegnare a questa
proprietą il codice relativo all'elemento inserito (esempio: la partita IVA
di un Cliente)).
Qui viene il problema: NELLA PROPRIETA' KEY NON SI POSSONO INSERIRE VALORI
NUMERICI !!! o qualunque SRINGA composta da soli numeri !!!
Non funziona neanche da Run-Time (ad esempio convertendo in stringa il
valore da inserire).
Il problema si potrebbe risolvere aggiungendo davanti ad ogni valore un
carattere... ma a me sembra una stronz..a ! anche perchč appesantirebbe
(soprattutto disponendo di migliaia di record) la routine di gestione del
valore...
Cosa ne pensate? Io penso che sia l'ennesima stronz..a dei programmatori M$
!
Mario Paracchino
mpara...@easysoftware.it

NUMERICI !!! o qualunque SRINGA composta da soli numeri !!!
[...]

NUMERICI !!! o qualunque SRINGA composta da soli numeri !!!
[SNIP]
Non è un problema del ListView ma , in generale, di tutti gli insiemi che
puoi gestire sia per indice che per chiave; d'altra parte come puoi
distinguere se ColumnHeaders(3) è il terzo o quello con chiave "3"?
Certo potresti usare ColumnHeaders("3") ma quante volte capita che, invece,
tu abbia l'indice contenuto in una variabile string invece che long?; ti
toccherebbe in tutte le chiamate fare le conversioni dei tipi.
Con il trucchetto del prefisso davanti al numero (una semplice costante)
risolvi senza molti problemi e senza appesantire il codice in maniera
evidente, vedrai che fatta l'abitudine ti potrebbe anche risultare
comodo....
Ciao.
Luca Dormio
l...@ifminfomaster.com
ldo...@tin.it




 
Innanzitutto non e' vero che la key non funziona mai; per le collections
funziona benissimo; e basta scrivere cstr(ID) dove ID e' un long;
Se Lucano ha una versione di VB particolare ce lo faccia sapere...
maxx

 
Anche se qualche collega ha scritto il contrario, e non lo metto in dubbio,
anche a me la listview funziona in maniera scorretta esattamente come
l'amico  Mario ha denuncato.
Io utilizzo VB4 con WIndows NT 4.0 WS ed ho potuto ovviare solo aggiungento
un carattere davanti al numero. La funzione Cstr() non ha funzionato.
Anche se MS dice il contrario anche negli esempi.
Newsgroup: it.comp.lang.visual-basic
Titolo: Copiare 2 oggetti

Come si fa a copiare un oggetto (Button, Toolbar, ecc...) con il relativo
codice tra 2 form durante l'esecuzione ?
Grazie 1000
Fabio

 codice tra 2 form durante l'esecuzione ?
Per quanto ne so, non è possibile.
Iimmagino che tu intenda la situazione in cui hai interrotto l'esecuzione,
ma non hai terminato il programma, e vuoi intervenire sul codice contenuto
nella tua applicazione.
In questo caso non hai accesso a nessun oggetto visuale presente sulle form,
nè alle form stesse, ma solo al codice dell'applicazione (e neppure a tutto;
prova a inserire una nuova riga di Select in una Select Case, e poi vedi
cosa succede).
Ciao
*Roby*

 ha scritto nel messaggio
news:S2Z57.365$NZ6....@news.infostrada.it...



mi sono accorto ,rispondendo in un altro thread ,che non ti ho mensionato la
possibilità di creare form idendici in tutto e per tutto in questo modo
sub pulsante_click()
 dim formnuovo as new form1
 formnuovo.show
end sub
ciao

 codice tra 2 form durante l'esecuzione ?
Ho letto le altre risposte...
Ma non basta usare la SetParent()?
Ciao

 ha scritto nel messaggio
news:S6x67.160858$cd.9...@news1.tin.it...

si la setparent è una valida soluzione se vuoi copiare solo l'aspetto
grafico ma credo che si parlasse anche di codice.
Infatti il mio secondo post appunto ha corretto un po il primo dove parlavo
di reference sicuramente non adatto..


Newsgroup: it.comp.lang.visual-basic
Titolo: Visual Basic ftp winsock inet problem

I am trying to make an FTP program, but keep running into problems when I try
to get a directory listing of a subdirectory. I can't do it with the inet
controll, because for some reason none of the ftp servers I've tried recognize
the "CD" command so I can't change directories. I was using the following:
     Inet1.Execute "FTP://" & ftp_string, "CD " & Text6.Text
But I get an icError 11.
I decided to go with the winsock controll, and everything
was going much better with that, except that I can't use "LIST". Other
commands are working fine though. When I put:
     Winsock1.SendData "LIST" & Chr(10)
I get:
     425 Can't build data connection: Connection refused.
But commands such as these work:
     Winsock1.SendData "pwd" & Chr(10)
     Winsock1.SendData "REST 100" & Chr(10)
     Winsock1.SendData "TYPE A" & Chr(10)
     Winsock1.SendData "PORT 146,96,64,215,4,145" & Chr(10)
I must be missing something. Can anyone help me? I seem to be running into
walls in every direction I take.
Thanks,
Adam Charney
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/
   Now offering spam-free web-based newsreading

Hi there,
I've not had a chance to look at this in any detail but you might want to
try using the 'ls' command - see if that works.
Pete
Newsgroup: it.comp.lang.visual-basic
Titolo: doppioni in excell

ciao a tutti del NG
vorrei sapere come potrei fare a verificare che in un certo Range ci
siano celle con valori univoci e cancellare di conseguenza tutti i
"doppioni".
Grazie



Prova con questa macro
Sub TrovaDuplicati()
    Dim r As Object
    Dim n As Long
    Dim myRange As String
    myRange = "A1:A8000"
    Set r = Range(myRange)
    For n = 1 To r.Rows.Count
        If r.Cells(n, 1) = r.Cells(n + 1, 1) And r.Cells(n + 1, 1) <>
"" Then _
            MsgBox "Duplicate data in " & r.Cells(n + 1, 1).Address: _
            r.Cells(n + 1, 1).Font.Bold = True: _
            r.Cells(n + 1, 1).ClearContents: _
            ActiveSheet.Rows(n + 1).Delete: _
            n = n - 1
    Next n
End Sub
I duplicati vengono cercati nella colonna A e, quando trovati, viene
cancellata la riga che li contiene. Non vengono considerate le celle
vuote.
-- 
ing. Franco Varoli
fva...@tin.it
fva...@libero.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Un aiuto... vi prego!

Salve a tutti,
ho un problema che davvero non riesco a risolvere (a molti di voi,
comunque, potrebbe sembrare banale...)
Vengo al dunque.
Come si fa a spostare in fase di esecuzione un form con il border
style impostato a 0 (None)??
Mi scuso se la domanda era troppo "facile"... :)
Ciao e grazie in anticipo,
Nicola


questa non l'ho capita... di un pò cosa devi realizzare esattamente..
ciao Davide

Nicola
Facile mica tanto ! :-)
Prova comunque questo codice ( solo per vb a 32 bit), dopo aver posto un
form con impostate le seguenti proprietà:
ControlBox, Min e MaxButton a False
Caption=""
Inserisci un pulsante di comando ( solo per l'esempio)
Codice a livello di modulo:
Private Declare Function SendMessage Lib "User32" _
Alias "SendMessageA" (ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "User32" ()
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Private Sub Form_Load()
Command1.Caption = "Exit"
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
Dim lngReturnValue As Long
If Button = 1 Then
Call ReleaseCapture
lngReturnValue = SendMessage(Form1.hWnd, WM_NCLBUTTONDOWN, _
HTCAPTION, 0&)
End If
End Sub
Private Sub Command1_Click()
End
End Sub
Io l'ho provato con VB6 Pro Ita + SP1
Ciao

questa non l'ho capita... di un pò cosa devi realizzare esattamente..
In pratica, in fase di esecuzione, per spostare una finestra, tu
cliccki sulla barra in alto della finestra stessa e la trascini,
giusto?
Come si fa a spostare un form con il border-style impostato a 0 visto
che la barra non ce l'ha?
Spero di essermi spiegato! :)
Ciao,
Nicola

Nicola
non mi sono mai posto il problema !!
anche perchè quando elimino la barra lo faccio per rendere fisso il Form
(magari contiente un'immagine o delle info o chissà cosa... )
vedo che ti ha risposto Etsero...
ciao Davide
Newsgroup: it.comp.lang.visual-basic
Titolo: MySQL

Salve
qualcuno di voi ha provato ad accedere da una applicazione scritta in visual
Basic 6 ad un database creato con MySQL?
Esiste documentazione in proposito? Si trovano esempi o tutorial?
Grazie. Andrea

 Basic 6 ad un database creato con MySQL?
Installi MySql sul server e MyODBC sul client poi:
User = "marco"
pws = "paperino"
Host = "computer_Remoto_locale"
DbName = "DbProva"
strConnect = "ODBC" _
+ ";UID=" + User _
+ ";PWD=" + pws _
+ ";SERVER=" + Host _
+ ";DATABASE=" + DbName
Set wks = CreateWorkspace("DbProva", "", "", dbUseODBC)
Set db = wks.OpenDatabase("DbProva", dbDriverNoPrompt, False, strConnect)
NB: prima devi creare un User DSN nel pannello di controllo con nome
'DbProva'
poi apro e leggo il recordset nel seguente modo:
Set recSet = db.OpenRecordset("SELECT * from tabella", dbOpenDynaset)
Dim recSet As Recordset
While recSet.EOF = False
With recSet
pippo1 = !campo1
pippo2 = !campo2
.MoveNext
End With
Wend
PS: la risposta è la stessa di qualche post fa (MySQL & VB) .... :-)