mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiutino sui record.

:-))))))))
Ciao Ragazzi speriamo che qualcuno di voi possa darmi un aiutino.
Sono un novellino di VB5 e non riesco a trovare un record in un DB.
Mi spiego meglio, ho due  db nel primo ho un campo il quale deve
servirmi per cercare un record nel secondo DB.
Il problema sembra facile ho provato sia l'istruzione seek che findlast
e anche con select , il problema è che il campo e che deve servirmi per
cercare il record è integer.
ctrdata.recordset.seek "=" campo   (non funziona va in errore)
ctrldata.recordset.findfirst etc...etc....  ( e nemmeno funziona)
"select * from db where campo=  campo2" (e qui casca l'asino)
come devo fare se il valore registrato in campo2 è di tipo integer e
campo è anch'esso di tipo integer???????????????????????
Vi prego di aiutarmi non risco + ad andare avanti
:-(((((((((((  :-)))))))))))))
 
romano_...@hotmail.com

"select * from db where campo=  campo2" (e qui casca l'asino)
    Qui mancano i doppi apici prima di campo2, e non dopo
Spero di esserti stato utile, Ciao Aldo Severini.

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

Hi All
Volevo sapere cos'è VBScript, come si crea un programma VBScript serve
visual studio o è una cosa del tutto differente da vb?
Ciao e grazie

 ha scritto nel messaggio
news:3b23...@newssrv.quipo.it...

Vai su 
www.html.it
Ciao
--
Timothy Redaelli
timothy.redae...@email.it
Togliere NONSPAMMARE per rispondere

Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Netstat in VB?

Scusate amici , sono sempre io(purtroppo), volevo chiedervi se qualcuno di
voi conosce il metodo per ottenere il risultato della funzione Netstat -n in
Dos?
(ho già postato questo messaggio nel news hacker )
pica...@labnet.it


Quindi se leggi ahccc saprai che è impossibile, o meglio si può ma ci mette
una vita perché deve scandire tutte le porte locali. Ma tutte tu le cerchi
è?
Bye

Newsgroup: it.comp.lang.visual-basic
Titolo: Cone Scrivere valori DWORD Nel Registro con Visual BAsic

ciao ho un grosso problema , è la prima volta che scrivo nel registro
con vb e ho preso un esempio su di un libro , il mio problema è che
riesco solo a scrivere valori stringa
se come nel mio caso ho bisogno di scrivere valori DWORD non so come
fare
potreeste darmi un aiutino ?
questo è il codice che uso per valori stringa
Public Function RegUpdate() As String
Dim LonSubkeyHandle As Long
Dim LonStatus As Long
LonSubkeyHandle =
RecuperaHandle_Sottochiave("HKEY_USERS\S-1-5-21-1957994488-1336601894-839522115-1003\Software\Microsoft\Windows\CurrentVersion\Internet
Settings")
If LonSubkeyHandle = -1 Then
RegUpdate = "ERRORE"
Exit Function
End If
LonStatus = RegSetValueEx(LonSubkeyHandle, "ProxyEnable", 0, REG_DWORD,
ByVal 0, 3)
If LonStatus <> 0 Then
RegUpdate = "ERRORE"
Else
RegUpdate = "OK"
End If
LonStatus = ChiudiSottochiave(LonSubkeyHandle)
End Function
saluti e grazie


Come hai dichiarato il prototipo dell'API RegSetValueEx?
Raf
Newsgroup: it.comp.lang.visual-basic
Titolo: Cortese Richiesta

Per realizzare degli applicativi di ingegneria civile (idraulica,
geotecnica, strutture, ecc)
quale linguaggio di programmazione mi consigliate di imparare/utilizzare.
Il Visual Basic 6 è sufficiente per ottenere dei buoni prodotti.
Ringraziamenti
Vincent

 ha scritto nel messaggio
news:%DPqc.10191$Wc.3...@twister2.libero.it...

Abbinaci il c++ e vai con Dio ;-)

Per realizzare degli applicativi di ingegneria civile (idraulica,
geotecnica, strutture, ecc) in cui c'è bisogno di operare con
matrici e restituire degli elementi grafici 2D,
quale linguaggio di programmazione mi consigliate di imparare/utilizzare,
tenendo conto del rapporto semplicità/prestazioni.



Si, non credo ci siano grosse controindicazioni.
Al massimo passa alla piattaforma .NET che ti consente un maggior controllo
(praticamente pari a quello del C)
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: Domandone

Esiste qualche strumento che permetta di vedere
un elenco degli eventi in fase di esecuzione (debug)
man mano che si verificano.
Mi spiego: vorrei una finestra che, per esempio,
lanciando un avvia e facendo click su un pulsante mostri
Command1_Click, facendo click su un textbox
mostri Textbox1_Setfocus...
Ricordo che c'era qualcosa di simile nell'Access 1.1
Qualcuno puo' darmi dettagli ?
Grazie
Fabio

 wrote in message
7tieol$peh$1...@nslave1.tin.it...


Non c'e' !!! ???
VB6 enterprise SP3
Gianluca Larentis wrote


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] VB & DLL ActiveX & Help

Un grande saluto a tutti che ogni giorno mi tenete in compagnia e mi
consigliate di continuo, grazie!
Ora, dopo la leccatina :), ecco la domanda:
circa 6 mesi fa avevo trovato nei meandri della rete un bellissimo
programmino free fatto da una società di cui non ricordo il nome(come del
resto il nome del programma) che avendo una DLL ActiveX già compilata,era in
grado di generare una struttura HTML che compilata era in tutto e per tutto
identica all'help del MSDN. Qualcuno l'ha mai vista?
Mi servirebbe molto per non dover creare manualmente ogni pagina con i
metodi e le proprietà della mia dll!
Ringrazio anticipatamente!
Ciao!

 metodi e le proprietà della mia dll!
Io me ne sono fatta una su misura che ti sconsiglio vivamente :P data
l'oscenità del codice (no progettazione? haihaihaihai)
In compenso so che Fabio Guerrazzi ne ha fatta una proprio bellina :)
http://www.sourcecode4free.com/cgt/
Ciao
--
' // Initialize the expression evaluator
Engines.Evaluator = CreateObject("
http://www.neodatatype.net
")
' // you can find resources for and from the NG here!
Me.SitoComune = "
http://www.it-lang-vb.net
"

Newsgroup: it.comp.lang.visual-basic
Titolo: ADO 2.5

Ho sentito dire che è uscito ADO 2.5, dove posso scaricarlo???
P.S.: Come mai nei reference ADO 2.0 si riferisce a MSADO20.TLB mentre ADO
2.1 si riferisce a MSADO15.DLL ? Ho qualche problema sulla mia
installazione?
--
Posted from 
relay.infogroup.it
 [195.103.148.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

 installazione?
E' tutto a posto, è così anche per me!
il nome MSADO15.dll è stato mantenuto per la compatibilità all'indietro (i
vecchi programmi che usavano ADO 1.5 cercano quella DLL).
ALOHA!
--
Rogis
* ANTI-SPAM:
Rimuovi "ABC" dall'indirizzo per rispondermi
Remove "ABC" from my address to reply.

Newsgroup: it.comp.lang.visual-basic
Titolo: **** VB SCRIPT HELP ****

Su questo NG è possibile postare domande su Vb Script???

Su questo NG č possibile postare domande su Vb Script???
Si', ma con subject *mirato*. Altrimenti e' facile che nessuno ti
risponda.
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

Non č meglio it.comp.www.asp?
Newsgroup: it.comp.lang.visual-basic
Titolo: Dubbi sulla seriale. Controllo comm?

Ciao!
Ho costruito un dispositivo elettronico che acquisisce dei dati e li
spedisce sulla seriale in modo molto grezzo (senza controllo di flusso e a
coppie di byte). Ho verificato con il terminale di windows e funziona
perfettamente. Il problema e' il sw con vb. Dovrei prendere questi byte a
coppie, sommarli e infilarli in una griglia opportuna. Ho provato ma ho un
sacco di problemi... non riesco a distinguere gli "0" da quando il
dispositivo non comunica affatto, spesso mi si svuota il buffer di ricezione
e si pianta tutto. Qualcuno ha consigli o letture indicate per il mio
problema? Specifico che per ora ho provato a settare il controllo comm come
ASCII, ricavando il valore ricevuto facendo Asc(MsComm1.Input), il tutto in
timer con interval=1.
Credo proprio che esistano alternative piu' intelligenti... tenete presente
che posso modificare tanto il sw in vb quanto il codice del dispositivo che
spedisce.
Grazie
ciao ciao

Il 4/14/2003 8:26 PM, Loryball scrisse:

Sul sito comune:
http://www.it-lang-vb.net/download.asp?file=Documentazione/Articoli/MSCOMM.htm&ID=362
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 ha scritto nel messaggio
news:N3Dma.36839$DT4.1...@twister1.libero.it...


 ha scritto nel messaggio
news:juOma.20301$T34.6...@news2.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?]ADO e NT passando per il 98

Ho bisogno di connettere un db posto su un server nt in una cartella
condivisa con impostati i relativi permessi di accesso per un utente 98.
vorrei utilizzare ADO ma non ho ben capito come scrivere i parametri di
adodb.connection in particolare quando necessita inserire la password e
l'userid insomma i vari permessi per leggere e scrivere nel db sul server.

 ha scritto nel messaggio
news:93q0a2$pcj$1...@serv1.iunet.it...

Dovrebbe essere sufficiente questo per la connessione al db:
Nella stringa di connessione aggiungi:
  ...."User ID=" & NomeUtente & "; Password=" & LaPassword & ";"
Ciao
Basty

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Cgi con visualbasic

E' possibile creare un'applicazione con visualbasic che interagisca
dinamicamente con delle pagine web e con un database? Dove posso trovare
documentazione in merito?
Ovviamente l'applicazione andra' messa sul server.
--
ciao
gelty
--
Visita 
http://www.sifor.it
Elimina *toglimi* per le risposte

...


 wrote in message
7k80cg$o3g$1...@urano.inet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: modificare database

Ciao a tutti premetto che uso da pochissimo vb,sto facendo un programma di
lettura e modifica db,per la lettura nessun problema,ma ora trovo problemi
con la modifica.Il db viene letto dentro le listbox,come posso quindi
modificare un record dalla listbox ? dovrei esportare il dato che voglio
modificare in una textbox e poi li' modificarlo? se si come ? ringrazio
anticipatamente chi mi risponderà
Ciao

 ha scritto nel messaggio
news:e8B08.737$Gy1....@news1.tin.it...

Perchè non utilizzi una ComboBox invece della listbox? Così avresi
direttamente una casella di testo dove fare apparire l'elemento della lista
che hai scelto ed eventualmente modificarlo.
Per modificarlo devi fare così:
la combobox si chiama Combo1
.........
dichiarazioni connessione, recordset e comando
........
private sub combo1_change() 'evento di cambiamento nel testo combo
    with recordset
        .edit
        .fields("nomecampo").value=Combo1.text
        .update
    end with
end sub
Spero di essere stato utile....
ciao, Alex

Ciao,intanto grazie per aver risposto,ho provato a fare come dici tu,ma
ricevo un'errore "manca oggetto" in ".Edit":
Private Sub dati1_Change()
With Recordset
        .Edit
        .Fields("nome").Value = dati1.Text
        .Update
    End With
End Sub
Sai mica dove sta l'errore ?

 ha scritto nel messaggio
news:KgE08.1345$Gy1....@news1.tin.it...

dunque....intanto metti Addnew al posto di Edit....ho scritto troppo in
fretta...;-)
Cosě facendo lui ti aggiunge un record all'archivio, con il contenuto che
hai nella combo....ovviamente in coda al recordset....
se invece vuoi modificare un valore esistente, devi prima prevedere una sub
di ricerca:
recordset.find("nomerecord=" & Combo1.text) 'si posiziona al record voluto
e successivamente modificarne il contenuto con una semplice:
recordset.fields("nomecampo").value=Combo1.text
NB:non ti scordare al termine il metodo Update....serve per confermare le
operazioni di scrittura/inserimento sul recordset....
Spero di essere stato chiaro. ;-)
Ciao
Alex

 e successivamente modificarne il contenuto con una semplice:
altra precisazione...se usi ADO puoi omettere il metodo Edit e
Update....basta fare cosi:
recordset.fields("nomecampo").value=Combo1.text
recordset.movenext
cioč variare il valore del campo voluto e spostarsi su un altro record
Uff...questo dovrebbe andare bene....;-) scusa!
Alex

Và perfettamente ti ringrazio
Grazie ancora
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Selezione di celle...

Se volessi fare un ciclo su delle celle excel e dovessi quindi (?) 
sostituire la seguente riga:
Range("B3:M3").Select
Con una equivalente che utilizzi il metodo "Cells", come dovrei fare?
So che Range("B3").Select si puo' sostituire semplicemente con Cells(3, 
2)...
Ma nel caso di molte celle... come faccio (per esempio a selezionarle), 
supponendo che io DEBBA per forza utilizzare variabili (Cosa che posso fare 
solo con cells, mi pare, e non con range).
Grazie.


Range(Cells(1, 1), Cells(5, 3)).Select
Ciao
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


Grazie Mauri!
Una riga sola. Era proprio cio' che mi serviva! ;-)

Newsgroup: it.comp.lang.visual-basic
Titolo: R: XXX Fucking Pics


Bah, io ogni tanto  :-P
--
Roal Zanazzi
z...@iol.it

 wrote in message
YODw3.9591$M%1.2...@typhoon.libero.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: copiare directory

salve,
Il mio livello di programmazione č "hallo world!" o poco piů,
per questo vorrei chiedere a qualcuno se mi puo dire
come si fa, attraverso un timer, a copiare in automatico (per esempio ogni 2
minuti) il contenuto di una directory (qualsiasi tipo di file) in un'altra
directory?
...a dire il vero qualcosa che fa una cosa simile sono riuscito a metterlo
insieme perň non mi riesce di copiare
le sottodirectory ma solo i files come pure non mi riesce di copiare il
contenuto della dir dei file temporali di internet in una dir a mia
scelta....
come dovrei fare
grazie

"morchella"
' (Testato su IE4/5 in win98/win98se)
' puoi fare partire a intervalli regolari con
' C:\WINDOWS\Tasks o un loop nello script stesso
Option Explicit
Dim oSHApp
Dim sSrc, sDest
Set oSHApp = CreateObject("Shell.Application")
  sSrc = "c:\PARTENZA\*.*"
  sDest = "c:\DESTINAZIONE"
'verranno spostati subfolders e files
  oSHApp.Namespace(sDest).CopyHere sSrc
Set oSHApp = nothing
WScript.Quit
Copia incolla su notepad e salva con estensione .vbs
tutti i file (*.*)  poi ci clicchi sopra. (per esempio Copy.vbs)
www.google.it
 "Windows+TIF"
--
Fosco
se alle volte non rispondo non prendetelo come un fatto
personale ma ho problemi con invio/lettura messaggi

Grazie Fosco
Newsgroup: it.comp.lang.visual-basic
Titolo: listview ancora lenta

Ringrazio per l'immediato aiuto ricevuto ma il problema che mi proponevo di
risolvere non è tanto il fastidioso effette refresh durante il caricamento
ma piuttosto il tempo che ci mette per caricare i dati nella lista:
probabilmente mi sto facendo dei problemi che non si presenteranno mai ma
vorrei prendermi avanti. Finchè il database contiene diciamo un centinaio di
dati (non ho fatto la prova) tutto ok (la lista si carica in 1 secondo); ma
ho fatto la prova con 6000 articoli e il risultato non è stato per niente
soddisfacente.
Come posso aggirare l'ostacolo?

usa un recordset (dao indicizzato, se puoi, seno' sql) e collegagli una
dbgrid in cui visualizzi solo la colonna che ti interessa. con 6k schede il
caricamento sara' pressoche' istantaneo.
solo, blocca l'editing della griglia nelle varie proprieta'.
questo per aggirare l'ostacolo. ma se giri bene 
www.mvps.org/vbnet
 sul
listview c'era parecchio. magari scrivigli, randy birch e' gentilissimo.
hth, pal
Roberto <car...@TOGLIMInetanday.it> wrote


 Roberto <car...@TOGLIMInetanday.it> wrote


 > > ho fatto la prova con 6000 articoli e il risultato non č stato per


 (CELERON 400MhZ, 128Mb RAM, HD UW SCSI)
grazie delle precisazioni. mi sembrava infatti che ci fosse un clear, ma
come col listbox avevo provato listview.clear e non gli era piaciuta molto
:)
devo ripetermi n volte: rtfm...
ciao, a.
Newsgroup: it.comp.lang.visual-basic
Titolo: URGENTE! cancellare una serie di dati

mi spiego meglio...
ho un db access ... faccio una select e filtro ovviamente n record
corrispondenti ai dati interessati.
esisite un metodo per eliminarli tutti in una botta sola??
qualcosa tipo xxx.deleteall o simili
Grazie
MArco G.

se fai 
select campo1,campo2, ... from tabella where criterio;
e i  record restituiti sono quelli da eliminare, allora puoi fare
delete from tabella where criterio
dove criterio e' identico a quello utilizzato nella select
ciao
Finche' le leggi della matematica si riferiscono alla realta', non sono certe; 
e finche' esse sono certe, non si riferiscono alla realta'. 
					 A.Einstein

 ha scritto nel messaggio
news:d2e2g09c7aatbip5d...@4ax.com...


 Grazie ancora
v_db.Execute "DELETE FROM Testata WHERE DDT = '" & cmb_n_ddt & "'"
Ciao, Vincenzo

 
Le query che restituiscono insiemi di record (tipo le SELECT appunto) 
vanno eseguite con il metodo OpenRecordset del tuo database.
Quando la query deve solo eseguire operazioni di inserimento, 
aggiornamento o cancellazione di record il metodo OpenRecordset non può 
essere usato. Va invece usato il metodo Execute.
E' ovvio che se vuoi che l'utilizzatore sappia quali record sta per 
cancellare devi prima fare una SELECT con il criterio richiesto, 
assegnandola ad esempio a un recordset collegato a una griglia, e poi 
dopo la conferma dell'utente eseguire la corrispondente istruzione DELETE 
applicando lo stesso criterio.
-- 
|-----------------------------------------------|
|Davide Guida          >>> 
davide...@email.it
|
|-----------------------------------------------|
Newsgroup: it.comp.lang.visual-basic
Titolo: Win Zip senza Win Zip forse un OCX

Io ho sentito parlare ingiro che esiste un OCX che permette di comprimere /
decomprimere i file zip senza dare il comando di far partire WInZip.
Se esiste dove posso trovarlo ?
E come posso inserirlo nel mio vbp (non ho mai inserito un OCX in vita mia
anche se ho usato dbgrid.ocx)

 wrote in message
7qgqqd$7oi$1...@aquila.tiscalinet.it...


Ringrazio Tutti


Newsgroup: it.comp.lang.visual-basic
Titolo: Mantenere le proprietà dei controlli.

Salve a tutti,
ho un form che viene chiamato tramite il metodo Show durante il corso 
dell'applicazione; alcuni controlli in questo form vengono cambiati in 
fase di esecuzione e quando questo è aperto. C'è qualche modo per 
mantenere queste modifiche in vb6 anche quando il form viene chiuso? Ad 
esempio, un form inizialmente non visualizzato mostra una label nera. Il 
form, in esecuzione, viene visualizzato e la label viene modificata, da 
codice, in rosso. Il form quindi si chiude. Vorrei che, ad una 
successiva riapertura, la label tornasse rossa, senza dover salvare a 
mano il suo colore per poi ridarglielo.
Grazie.


Beh, se il form è uno solo potresti nasconderlo invece di scaricarlo, in
modo da non perdere nessuna modifica. Altrimenti devi per forza salvare le
modifiche da qualche parte per poi ricaricarle.
ciaociao

Newsgroup: it.comp.lang.visual-basic
Titolo: [?][VB6]Generatore numeri casuali

ciao
sapete x caso come poso fare in vb6 un generatore di numeri casuali?
tipo il System.Random di VB.Net
ciao
--
Carmine
Webmaster di The Total Site (
http://www.tekkentag.altervista.org/
 )
giuseppe.giang...@tin.it
 (Togli la scritta NOSPAM)
pikachu...@gmail.com
 (Togli la scritta NOSPAM)
Account Messenger: 
thetot...@msn.com

 tipo il System.Random di VB.Net
[...CUT...]
Apri l'editor di VB, scrivi Randomize, scrivi Rnd(), poi sposti il cursore
su Rnd e premi F1. C'è un ottimo esempio.
Ciao
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 ha scritto nel messaggio
news:151Z41Z184Z196Y...@usenet.libero.it...


 di codice?
se proprio insisti...
    ' genera un numero intero casuale tra 1 e 100
    Dim x As Integer
    Randomize
    x = Int(Rnd() * 100) + 1
    MsgBox x
invece è gravissimo non avere MSDN installato, è come avere una Ferrari
senza gomme, come una Yamaha senza pedale del cambio, come la Arcuri senza
le tette, come la Vento senza vento (nella testa)... insomma procuratelo.
Ciao.


 ha scritto nel messaggio
news:82Z190Z206Z25Y1...@usenet.libero.it...


 ha scritto nel messaggio
news:82Z190Z206Z25Y1...@usenet.libero.it...


 Arcuri senza le tette, come la Vento senza vento (nella testa)...
Come un VB senza licenza...
Alberto
-- 
E tutto mi sembrava andasse bene... 

 Come un VB senza licenza...
(...ora, Albertu, anche tu, a rigirare un dito come un Negronetto dentro la
piaga, eh ...)


 le tette, 
mica solo quelle ;-)
-- 
ciao, hal

 mica solo quelle ;-)
...ci siamo capiti!

Newsgroup: it.comp.lang.visual-basic
Titolo: ZLibTool.Ocx (Comprimere Files)

Scusate se riposto ancora questo msg, ma non so proprio a che santo votarmi!
Ho un problema con ZLibTool.Ocx scaricato dal sito comune.
Se faccio partire il progetto dall'interno di VB6, tutto funziona.
Se creo l'eseguibile, tale eseguibile non parte e dà l'errore:
"System Error &H80004005 
(-2147467259
). Errore non specificato"
Ho fatto le seguenti prove:
    1. Mettere ZLibTool.Ocx nelle varie cartelle (windows\system, cartella
dell'applicazione). Risultato invariato
    2. Creare l'eseguibile della stessa applicazione avendone cancellato
tutti
        i riferimenti all'Ocx e il controllo stesso. Risultato: il programma
        funziona
Potete aiutarmi? Anche solo qualche suggerimento! Grazie comunque
dell'interessamento.

Oops, solo ora ho visto una risposta di Sasimo.
Ora provo a fare quello che mi suggeriva e poi vi farò sapere.

Newsgroup: it.comp.lang.visual-basic
Titolo: Le corrispondenti in JS

Salve
    come posso tradurre tali istruzione JS in VB?
dt=new Date();
 ct=dt.getTime();
grazie
Renato

  ct=dt.getTime();
Dim ct as Date
ct = Time()
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Aprire un file

Vorrei inserire all'interno di un form un bottone che mi permetta di 
aprire un file (estensione XLS).
Il file non lo voglio però aprire, vorrei solo un ritorno in una stringa 
del nome del file selezionato.
Mi spiego meglio: vorrei che si aprisse la finestra di dialogo standard 
di Windows del File-Open!! 
Grazie 1000 anticipatamente
Ciao FRANCO
e-mail:  
eldor...@hotmail.com
______________________________________________________
Get Your Private, Free Email at 
http://www.hotmail.com
--
Posted from [193.134.254.195] by way of 
law-f118.hotmail.com
 [209.185.131.181]
via Mailgate.ORG Server - 
http://www.mailgate.org


Hai provato a usare le common dialog? (devi includere nel progetto il
componente commdlg32.ocx
Newsgroup: it.comp.lang.visual-basic
Titolo: Ancora sulle API

Vorrei sapere se esiste una funzione o un modo sia in VB5 sia tramite le API
per determinare quale versione di MS Office sia installato sul Pc.
MadMax

...

Newsgroup: it.comp.lang.visual-basic
Titolo: Condizione "Se la cartella esiste"

Ciao a tutti e grazie anticipate per l'aiuto
Il mio scopo č il deguente:
Scrivo "Pippo" in una casella di testo e dopo l'aggionramento:
se la cartella Pippo all'interno di "C:\Programmi\Cartella" esiste allora
Exit sub
altrimenti
Copia la cartella "Da copiare" con tuti i files e la chiama "Pippo"
Private Sub CasellaDiTesto_AfterUpdate()
    Dim Fs As Object
    Set Fs = CreateObject("Scripting.FileSystemObject")
        Fs.FolderExists ("C:\Programmi\Cartella\" & Me.[CasellaDiTesto])
    If FolderExists = False Then
        Fs.CopyFolder "C:\Programmi\Cartella\DaCopiare",
"C:\Programmi\Cartella\" & Me.[CasellaDiTesto]
    Else
        Exit Sub
    End If
    Set Fs = Nothing
End Sub
Grazie

     Set Fs = Nothing
-- 
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

Non sono un esperto, ma proverei con:
 Private Sub CasellaDiTesto_AfterUpdate()
    Dim Fs As Object
    Set Fs = CreateObject("Scripting.FileSystemObject")
        if  Fs.FolderExists ("C:\Programmi\Cartella\" & Me.[CasellaDiTesto]) 
= false then


 ha scritto nel messaggio
news:Dy9Hd.422203$b5.20...@news3.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Mail ed Attachment. Come?

Ok, e' un bel newsgroup.
Lo visito da pochi giorni e mi avete fatto sorgere subito i primi dubbi e
curiosità.
Ho letto, scaricato e provato dal sito comune di questo newsgroup il codice
per poter inviare email tramite il winsock.
Ora, che ne dite di fargli mandare anche i file allegati?
Un bel quesito al quale io dopo due nottate insonni non sono
riuscito a trovare risposta.
Lascio a chiunque voglia accettarla l'ardua impresa.



Sul manuale di VB c'e' un esempio che puo' fare al caso tuo.
Io ho risolto il problema "Attachment" semplicemente con un cut&paste
dall'help in linea, modificando solo i nomi delle variabili e funziona come
un cronometro svizzero.
Anche se, a volte, gli esempi funzionano come orologi rumeni, questo non e'
il caso... :-)
Ciao, Pipol!
Piero

...

C'e' qualcuno (magari Piero Giorgi o lo stesso Roberto Negro, autore degli
originali) disposto ad aggiornare il codice sorgente presente sul Sito
Comune, per includere gli attachments?
--
Roal Zanazzi
z...@iol.it

Comune, per includere gli attachments?
Ok, appena ho il tempo di rispolverare il vecchio programma, lo prendo e vi
"Cutto&Pasto" la routine.
Ciao, Pipol!
Piero

 
Itendi dire con i controlli MAPI?

Itendi dire con i controlli MAPI?
Si, entro la settimana spero di avere il tempo di finire e di postare la
routine per spedire attachments.
Ciao, Pipol!
Piero
Newsgroup: it.comp.lang.visual-basic
Titolo: ho fatto un programma a chi interessa ?

Ho realizzato un prog. che intercetta i link copiati nella clip e li
memorizza in una list... e' in fase embrionale.
Se per favore mi fate sapere come va vi sarei grato
lo trovate 
http://web.tiscalinet.it/bertagna
e' in formato Windows Installer
grazie
--
===============================
bert...@tiscalinet.it
bert...@versilia.toscana.it
http://web.tiscalinet.it/bertagna
http://www.versilia.toscana.it/~bertagna
ICQ: 13409455

 wrote in message
86nr4u$v92$2...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: codice fiscale e partita iva





Se cortesemente qualcuno è in possesso delle 
routine per la generazione dei codici fiscali e controllo partita iva in 
linguaggio msaccess97 e visual basic5, potrebbe farmene avere una 
copia,    


ringrazio sentitamente


Alfonso Paolucci


 



 Se cortesemente qualcuno č in possesso delle routine per la generazione


Newsgroup: it.comp.lang.visual-basic
Titolo: codice fiscale

Sto cercando sorgenti per il calcolo e i controlli del Codice Fiscale e
Partita IVA. Qualcuno può aiutarmi? Anticipatamente ringrazio.

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT]file modello per excel

ciao a tutti,
vorrei far si che quando apro excel, il mio file vuoto abbia margini 0,0, e
orientamento orizzontale preimpostati.
ho provato a seguire l'help, ma non riesco proprio.
come diavolo si fa?
grazie Nao
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


Crei il file, imposti i tuoi margini da
File-->Imposta pagina
Linguette: Pagina e Margini
Ti salvi il file come modello da:
File-->Salva con nome
Tipo di file: Modello(*.xlt)
E tutto questo non so cosa abbia a che fare con il vb(o il vba).
Se invece vuoi del codice, fai quanto sopra registrando
una macro.
Metti poi il codice nell'evento:
Private Sub Workbook_Open()
del modulo di codice di ThisWorkbook.
-- 
----------------------------
Mauro Gamberini
http://www.riolab.org/

Newsgroup: it.comp.lang.visual-basic
Titolo: X Maurizio Borrelli Chiusura di una finestra DOS

Fatto ^__^ !!
Ma non ci capisco un C....@ ^__^
che devo usaer  il parametro /E:nnnnn ??
Come ? ^__^"
--
Ciao ;-))
crist...@tin.it
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°

 ha scritto nel messaggio
news:8vtvl1$80s$1...@nslave3.tin.it...


 A presto ^___^
Fai con comodo... non ho fretta.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------
Newsgroup: it.comp.lang.visual-basic
Titolo: problema con Database Acces.. aiuto!!

Come sapete č possibile proteggere un file di Database Access
tramite l'inseriemnto di una password.
Il file non potrą essere letto se non si inserisce la password.
Utilizzando lo stesso database Acces con Visual Basic
giustamente, all'avvio del programma, esso si blocca col
messaggio di errore password non corretta.
Infatti il programma deve comunicare all'apertura del database
anche la password per aprirlo.
Come si fa?
Anche se si utilizza l'autocomposizione di VB5 il programma non implementa
nessuna riga di codice per aprire il database con la password.
Un grazie anticipato
Maurix

Maurix
Sub OpenDB()
Dim jetWrk As Workspace
Dim dB As Database
'Crei il Jet Workspace  dove passi la pw
Set jetWrk = CreateWorkspace("", "password", "", dbUseJet)
'Quindi apri il database
Set dB = jetWrk .OpenDatabase("Nomedb.mdb", True)
buon lavoro :)

...

generando un errore:
Scusa la disattenzione, non mi ero reso conto che la pw era sul db e non
sull'utente, in questo caso correggi la stringa di apertura con
set db=opendatabase("path\nomedb.mdb",false,false,";pwd=latuapwd")
cosě funziona
fammi sapere :))

fammi sapere :))
uhmmm ti ringrazio..
più o meno ho capito.. ma il mio problema è un po più grande:
utilizzando il wizard "application wizard" di Visual Basic 5,
ho creato un database che funziona quasi unicamente mediante un
"Data Control"...
funziona perfettamente, ma non utilizza nessun Opendatabase ne
CreateWorkspace
Utilizza solo questo dannato "Data Control" e non ha bisogno di altro per
funzionare.. (il nome del database è nelle proprietà di questo oggetto)
l'unico neo è che, quando apre un database con password genera l'errore..
è possibile fargli aprire in qualche modo il database Access con password?
Altrimenti come potrei fare?
Grazie anticipatamente
Maurizio

Finalmente ho risolto..
il problema era semplice ma con vaga documentazione.
Vi scrivo come ho risolto l'arcano:
togliere dalle proprietà del data control il nome del database, quindi:
data1.Connect = ";PWD=LaPasswordDiAccess"
data1.DatabaseName = "nomedatabase.mdb"
' ====== dove data1 è il nome del data control =====


Scusa il ritartdo, non ti so  rispondere in merito al controllo data perchè
l'esperienza mi ha portato a diffidare da lui. Ti consiglio di non
utilizzarlo, innanzitutto perchè ha una scarsa elasticità, in secondo luogo
perchè non è molto complesso scrivere il codice necessario per ottenere
risultati decisamente superiori ed avere la completa libertà di gestione del
database. Se hai la necessità di avere qualche ragguaglio mandami pure una
mail.
Ciao

,

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/
       Search, Read, Discuss, or Start Your Own

Newsgroup: it.comp.lang.visual-basic
Titolo: Text box con numero di caratteri > 32k

Esiste un modo per aggirare l'ostacolo dei 32k in una textbox,
o c'e' qualcosa di alternativo (richtext ha lo stesso limite)?
Grazie!

 
Prego
-- 
Samuele Battarra

 ha scritto nel messaggio
news:_Ly57.137047$cd.7...@news1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] serverone news gratuito

Ciao a tutti
Mi è venuta l'idea di attivare un account generico per il mio "team" di
lavoro, in modo da poter accedere al server news gratuitamente e con più
utenti registrandone uno solo.
La memoria mi è andata subito sul serverone tedesco che molti anche qui
usano.
Io credo sia quello all'indirizzo 
http://news.cis.dfn.de/
 ma è completamente
in tedesco e io non ci capisco 'na mazza.
Tempo fa mi sembrava ci fosse anche una versione inglese del sito.
Sbaglio indirizzo?
Qualcuno mi sa dire che link seguire per effettuare una registrazione?
Grazie a tutti.
Ciao

 completamente in tedesco e io non ci capisco 'na mazza.
Cambiato. Ora è 
http://news.individual.net/
 ed è in inglese :-).
Bye, G.

 Cambiato. Ora è 
http://news.individual.net/
 ed è in inglese :-).
Che si sappia esiste un'alternativa?
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 > ma provare non costa niente.
Qui sono dall'altra macchina.
Bye, G.

 Che si sappia esiste un'alternativa?
Ora che ci penso: improbabile che controlli l'IP, per esempio
io mi connetto tramite NAT-proxy, quindi da qualunque macchina
della rete lui vede lo stesso IP, e palesemente non filtra da quello.
Fammi fare una prova...
Sono connesso da due macchine insieme, quindi penso non ci
siano problemi. Provo a postare dall'altra...
Bye, G.

 Qui sono dall'altra macchina.
...e a quanto pare devo sincronizzare gli orologi :-)
Comunque va.
Bye, G.

Newsgroup: it.comp.lang.visual-basic
Titolo: Vb6 "lite"?

Salve. Ho un sorgente per vb6 che vorrei modificare,ma ho vb5 e non mi
permette di farlo. non c'e' su internet una versione "lite" di vb6 che mi
permetta di fare alcune modifiche e compilare il sorgente? (mi pare che pe
ril 5 c'era una cosa simile) grazie ^_^
--
           [WARHAMMER FANTASY BATTLE]
       High Elves -  Phoenix Gallery  by Simone C.
http://www.geocities.com/tokyo/2757/wfbgallery.htm
       Dark Elves -  The Hydra Gallery  by Daniela M.
http://www.geocities.com/tokyo/2757/wfbdegal.htm

 ril 5 c'era una cosa simile) grazie ^_^
Modificare certamente... esiste il VB6 Working Model (ovviamente in
inglese). Compilare.. beh, detta in parole semplici, se vuoi compilare devi
comprarti il VB6.
Per quel che riguarda VB5, esisteva la VB5 Control Creation Edition che ti
permetteva solo di compilare gli ActiveX, non gli eseguibili.
Zeross
Newsgroup: it.comp.lang.visual-basic
Titolo: problema con listbox

Ciao a tutti, non riesco a trovare un modo per far sě che in una listbox
compaia automaticamente una scrollbar orizzontale se un elemento della list
č piů largo della list.
Per caso esistono altri controlli che lo permettono?
O ci sono soluzioni migliori a cui non ho pensato? ( sicuramente :-) )
Ciao e grazie.
Ric
per rispondere rimuovere 'toglimi' dall'indirizzo

O ci sono soluzioni migliori a cui non ho pensato? ( sicuramente :-) )
:-)
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
Const LB_SETHORIZONTALEXTENT = &H194
'Mette, se necessario, le barre di scorrimento orizzontali
'ad una ListBox
Sub MettiBarre(Finestra As Form, LB As ListBox)
    Dim l As Long, w As Long, k As Long
    'Calcola la max lunghezza richiesta
    Set Finestra.Font = LB.Font
    For l = 0 To LB.ListCount - 1
        k = Finestra.TextWidth(LB.List(l))
        If k > w Then w = k + 100
    Next
    ' Converte da pixels e setta la dimensione della scroll.
    'Se la dimensione della scroll è > della dimensione
    'visibile allora la scroll apparirà
    w = w \ Screen.TwipsPerPixelX
    l = SendMessage(LB.hwnd, LB_SETHORIZONTALEXTENT, w, ByVal 0)
End Sub
la chiamata è
MettiBarre Me, List1
non è ottimizzata al massimo, se qualcuno ha una soluzione più 'pulita' me
la faccia sapere, grazie
Faber

è più largo della list.
infatti non è previsto in automatico


 certamente
potresti farmi un esempio di questi controlli? (a meno che tu non intenda la
soluzione che hai postato, in tal caso è una domanda inutile ;-) )
Grazie per il codice, funziona benissimo! (scusa la domanda: queste info le
hai trovate sull'MSDN o su qualche libro?)
Ciao.
    Ric

hai trovate sull'MSDN o su qualche libro?)
sull'MSDN c'è, basta cercare listbox o qualcosa del genere, non ricordo...
cmq in Rete ne trovi quanti ne vuoi, di questi esempi...
inizia a spulciare 
http://www.vbcode.com
 , trovi un sacco di spunti
interessanti
poi chiedi a Pal l'indirizzo della sua pagina dei link (non me la ricordo a
memoria e devo andare a casa!)
:-)
Faber

Newsgroup: it.comp.lang.visual-basic
Titolo: Calendario con un click.

Qual'è la libreria che associa ad un pulsante di comando un calendario
con mesi e giorni. Scelto poi il giorno interessato, all'uscita deve
attribuire quel valore del giorno ad una casella di testo in un
formato particolare?
Thanks!!!

 ha scritto nel messaggio
news:hageuuggkg6tgjelu...@4ax.com...


 ha scritto nel messaggio
news:hageuuggkg6tgjelu...@4ax.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: Winsock proibito...

ho installato la stessa versione di VB5 enterprise ed. che ho sul desktop su
un portatile, ma su quest'ultimo non riesco ad usare la control winsock. Me
la fa inserire nella toolbox ma quando tento di inserirne una su un form un
messaggio di errore mi avvisa che: "License information for this component
not found" e nell'help: "Reinstall the Activex control or contact the
control vendor". Ho guardato in  windows/system e mi pare che per quel che
riguarda il winsock sia tutto uguale sia nel portatile che nel desktop. Che
casino ho combinato, e come faccio a risolverlo?

 wrote in message 88uned$a6s$1...@nslave1.tin.it...



Io ho risolto reinstallando il service pack. Non mi chiedere che cosa fosse
successo alla prima installazione perchè non l'ho capito :)
Newsgroup: it.comp.lang.visual-basic
Titolo: command.visible=false ma non funziona

allora provo a spiegarmi.
ho un bottone 'cmdCorreggi' che una volta premuto fa apparire un textbox
e un altro bottone 'cmdOk'
quando premo 'cmdOk' sommo il contenuto del textbox a una variabile e
richiamo una sub 'FaSparire' che fa sparire il textbox e il bottone
'cmdOk'
la stessa cosa succede se premo invio nel textbox (richiamo
'cmdOk_Click' che fa quello che deve fare e chiama 'FaSparire') e
funziona tutto.
il problema:
dentro 'cmdOk_Click' controllo il valore del textbox che se supera 1000
fa apparire un altro form da cui si può proseguire con ok o annulla.
se si sceglie annulla, 'cmdOk_Click' si ferma, altrimenti fa quello che
deve fare e chiama 'FaSparire' solo che 'cmdOk' non sparisce!
se inserisco un punto di fermata 'cmdOk' sparisce, se inserisco un
msgbox dopo 'cmdOk.visible=false' 'cmdOk' sparisce.
perche?

 funziona tutto.
[cut]
prova a postare il codice...
Faber

credo di avere trovato il problema.
è un maledetto textbox_gotfocus che mi fa apparire il bottone .
solo che facendo apparire un altro form alla chiusura di questo il focus
torna al textbox (perchè già l' avevo visto che avevo premuto invio) e
parte textbox_gotfocus ...
grazie comunque la tua richiesta del codice me lo ha fatto riesaminare con
un occhio più estraneo alla filosofia del programma e mi ha fatto trovare
il problema

 ha scritto nel messaggio
news:3DCE997C...@hotmail.com...

l'80% delle volte va così  :))
Faber

 ha scritto nel messaggio
news:3DCE997C...@hotmail.com...

Io questa la chiamo "sindrome degli eventi".
Cioè il voler usare a tutti i costi (perchè ci sono) tutti gli eventi di
tutti i controlli sparpagliando codice che si intreccia pericolosamente per
tutto il modulo.
Un buon riesame dell'architettura non farebbe male.
(altra sindrome è la subdola "sindrome del 3D" di cui sono affetti in
particolar modo gli utilizzatori dei controlli Sheridan, che tra l'altro
sono bruttissimi)
Ciao

io mi sono creato una classe stupenda che al passaggio del mouse su un'immagine
mi 3diizza l'immagine facendola sembrare un bottone aggiungendo 4 linee due
bianche e due grigie rispettivamente in alto e a sinistra, e in basso e a destra
dell'immagine, un po come la barra del windows98. seciondo me rende gradevoli le
icone e fanno capire che si possono premere

 ha scritto nel messaggio
news:3DCEA066...@hotmail.com...

Mi riferivo ai vari LostFocus/GotFocus intrecciati con altri eventi.
Ciao

comunque nel programma incriminato gli eventi riferiti al textbox erano solo
gotfocus e keypress.
Newsgroup: it.comp.lang.visual-basic
Titolo: Connessione ADODB

Salve a tutti..
Dovrei connettermi a un database .mdb in locale con il metodo in oggetto e
inserire un nuovo record. Come devo aprire la connessione per poi poter
usare rs.addnew e inserire i miei dati? Grazie in anticipo.

 ha scritto nel messaggio
news:rM10d.3128$6b4....@twister1.libero.it...

http://groups.google.it/groups?hl=it&lr=&ie=UTF-8&q=+rs.addnew&btnG=Cerca&meta=group%3Dit.comp.lang.visual-basic
Ave
giuseppeD
---
CCR

 ha scritto nel messaggio
news:rM10d.3128$6b4....@twister1.libero.it...

Leggi qui:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdmthcnnopen.asp
Bye
Raf

 ha scritto nel messaggio
news:rM10d.3128$6b4....@twister1.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: arrotondamento

Ciao, mi servirebbe la formula equivalente a "arrotonda" di excel per
visualbasic.
Grazie
-- 
Posted from [212.216.176.140] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
1184649495.2...@infinito.it...

Round(Numero)

visualbasic.
Non so cosa fa Excel, pero' in tutti i casi se fai Int(numero + 0.5)
ci prendi.
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

Grazie per i suggerimenti. Il mio messaggio cmq non era chiaro, chiudo
scusa. Il mio problema è all'arrotondamento di un numero decimali in
4cifre decimali cioè ad esempio 0,00007895734957 a 0,0001 oppure
0,0001253812753812 a 0,0001.
-- 
Posted from 
mta23-acc.tin.it
 [212.216.176.76] 



Moltiplichi per 10000, arrotondi, dividi per 10000.
Potrebbero però esserci imprevisti overflow.

 0,0001253812753812 a 0,0001.
Se hai vb6 puoi usare la funzione Round,
altrimenti potresti considerare questo surrogato:
' src  = numero da arrotondare
' digits = numero di cifre decimali desiderato
'
Public Function myRound(ByVal src As Double, ByVal digits As Long) As Double
          Dim cnt As Long
          src = src * 10 ^ digits
          While src < 1
                    cnt = cnt + 1
                    src = 10 * src
          Wend
          If cnt Then
                    src = Int((src / 10) + 0.5)
          Else
                    src = Int(src + 0.5)
          End If
          myRound = CDbl(src) / (10 ^ digits)
End Function
Naturalmente, collaudala un po'.
Ciao
Aldo

 mi servirebbe la formula equivalente a "arrotonda" di excel per
visualbasic.
Option Explicit
Private Sub Main( _
)
  Dim n1, d, r, n2
  n1 = 12345.2468
  d = -2
  r = 10 ^ d
  n2 = CDbl(Format(Format(n1 / r, "0") * r))
  Debug.Print n1, n2
  d = 2
  r = 10 ^ d
  n2 = CDbl(Format(Format(n1 / r, "0") * r))
  Debug.Print n1, n2
End Sub
--
*AUTOCERTIFICAZIONE*
Il sottoscritto Maurizio, nato e apparentemente ancora in vita
c e r t i f i c a
di aver gia` pubblicato in passato la presente "soluzione" in questo
spettabile ng.
Con osservanza.
--
Maurizio
--------
?SPQR(C)
 X
--------

Risponde l'UCCS:
Lei e' italiano, quindi dovrebbe sapere che ogni forma di comunicazione
ufficiale deve essere inviata almeno in triplice copia, poi a causa della
legge antimafia e' richiesto una nuova conferma in triplice copia di ogni
copia della triplice copia precedente.
Quindi lei e' in arretrato di almeno altri 7 post dell'identica soluzione,
cosa per cui lei sara' multato e verranno addebitati gli interessi, il tutto
ammonta ad almeno altri 15 post della stessa soluzione.
Se dovesse avere altri problemi riscriva pure con fiducia (ghghgh) e
ottimismo (eheheh) a questo ufficio.
Salve
                    Dbg
Maurizio Borrelli ha scritto nel messaggio

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con Scanner

VI spiego subito il mio problema:
sto realizzando un programmino che utilizza uno scanner con feeder
automatico per scannerizzare TIF singole( quindi se metto 100 fogli mi
devono venire 100 file TIF)
Utilizzando Imaging pensavo di aver risolto il problema in questo modo
ImgScan1.PageOption = CreateNewFile
ImgScan1.MultiPage = False
ImgScan1.ScanTo = UseFileTemplateOnly
ImgScan1.Image = "c:\img\000"
ImgScan1.OpenScanner
ImgScan1.StartScan
Facendo cosě il programma mi crea 100 File nominati 000001.Tif -
000002.Tif.....000100.TIF
Il problema č che non riesco a impostare manualmente il numero dal quale
iniziare.
Se io ad es. metto altri 100 documenti e volessi nominare i file da
000110.Tif a 000210.TIF non posso farlo perche in automatico mi parte da
000101.TIF
Anche mettendo ImgScan1.Image = "c:\img\000110.TIF" non funziona.
Avete idea di come fare?
Ringrazio tutti in anticipo.

 Avete idea di come fare?
Rinominare tu i file prodotti... pare brutto ? Name + F1
Bye, G.

 ha scritto nel messaggio
news:bk7rs6$qbjt5$1...@ID-108681.news.uni-berlin.de...


 Ci avevo già pensato........mi serviva in quest'altro modo.
Scusa, qual è la differenza ? Nel ciclo, lasci che lui crei i file
con un nome temporaneo, gli metti per esempio:
ImgScan1.Image = "c:\img\KKK"
e lui crea KKK101.tif, KKK102.tif eccetera, giusto ?
E tu li rinomini al volo appena ha finito :-). Se hai bisogno di fare
più gruppi di scansioni, in tempi diversi, fai un ciclo Dir per vedere
qual è il numero più alto già esistente e inizi a rinominare da quello
successivo.
Bye, G.

Newsgroup: it.comp.lang.visual-basic
Titolo: Leggere la rubrica da un server LDAP

Ciao a tutti, qualcuno ha un esempio vb di
come si legge la rubrica (di notes) degli indirizzi email
da un server LDAP ?? 
Grazie 1000.
ciao.
IceMan

 writes:
I> Ciao a tutti, qualcuno ha un esempio vb di
I> come si legge la rubrica (di notes) degli indirizzi email
I> da un server LDAP ?? 
In
http://www.vbinformation.com/cgi-bin/products.pl?l
c'e` una DLL a 54 dollari.
Altre cose sono promesse su
http://developer.netscape.com/software/tools/ldap.html
Ma i tool mi son sembrati inaccurati.
-- 
Gian  | main(){printf(&unix["\021%six\012\0"],(unix)["have"]+"fun"-0x60);}
Uberto|                        David Korn, 1987 ioccc best one liner 
Lauri |-------------------------------------------------------------------
(aka saint) >>Vedere X-Nospam nell'header - See X-Nospam field in Header<<
Newsgroup: it.comp.lang.visual-basic
Titolo: Quesito VB2005: Standard con Crystal Report se possibile

Ciao a tutti,
vorrei acquistare vs2005 standard, ma ho notato con sdegno che il tool 
crystal report è disponibile solo con la versione professional, avente 
costo doppio.
La mia domanda: sarebbe possibile avere crystal report in qualche modo 
con vs2005 standard? oppure, visto che comunque ne devo imparare uno, è 
bene che mi cerchi su sourceforge qualcosa di open per .net(e scommetto 
che ce ne sono)?
Suggerimenti? Grazie

 che ce ne sono)?
Con VB6 uso questo:
http://reportman.sourceforge.net/
Guarda se supporta vs2005...
-- 
Freccia@Bulldozer63 :D

Freccia (VegetaSSj) ha scritto:

Esistono classi per .net. Vediamo(appena mi serve) che viene fuori.
-- 
Emanuele Torrenti
http://torrenti.altervista.org
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] CommonDialog trasparente?

Ciao a tutti:
  molti di voi si saranno accorti dello strano fenomeno
di "trasparenza" presentato dal CommonDialog in modalita'
Open e Save (e forse anche nelle altre).
Intendo questo: quando si seleziona un file con un
doppio click sul nome, se per caso esattamente sotto il
nome si trova un controllo XX "cliccabile", questo riceve
l' evento XX_MouseUp (o, qualche volta, XX_Click).
In VB3 questo non capitava; da VB5 in poi e' stato un tormento
(in VB4 non lo so': ho saltato la versione).
Vorrei sapere se qualcuno ha trovato una soluzione generale
al problema, senza ricorrere ai miseri trucchi (che non
sempre funzionano) di porre a .Enable = False il Form che
ha attivato il CommonDialog.
Ancora ciao e grazie.
Franco

ha attivato il CommonDialog.
ti dico come faccio io: non uso l' ocx, ma direttamente l' api GetOpenFileName
e GetSaveFileName
(comodamente incapsulate in una classe)
se non erro, sul sito comune (
http://it-lang-vb/
) dovrebbe esserci un esempio.
ciao, hal

un esempio.
scritto da (brrr!) Roal Zanazzi

 se non erro, sul sito comune (
http://it-lang-vb/
) dovrebbe esserci un esempio.
Trovato, scaricato e provato.
Stesso problema:
  doppio click sul nome del file -> evento _MouseUp sul controllo che sta' sotto.
Mi sa' che dovro' imparare a convivere con questa stranezza.
Ciao e ancora grazie.
Franco

Newsgroup: it.comp.lang.visual-basic
Titolo: ?CommonDialog

Ipotizzate di avere 5 finestre con la voce di menu "Imposta stampante".
Cosa fate:
- Inserite una CommonDialog per ogni finestra
- Inserite una CommonDialog nella finestra principale e fate riferimento ad
essa dalle altre.
Carmelo

Carmelo ha scritto:

La seconda!