mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Esecuzione automatica a fine sessione

Ciao a tutti!
Mentre sto facendomi un programmino per i backup, mi č venuta un'idea:
perchč non fare in modo che il backup venga fatto in automatico, come ad
esempio l'esecuzione automatica di win? Ma poi mi sono detto che sarebbe
inutile, visto che i dati sarebbero salvati ad inizio sessione, prima di
modificarli...
Allora la domanda č: esiste il modo di far compiere un'azione (in questo
caso l'esecuzione del mio prog) al PC durante la fase di spegnimento
(come gli antivirus che controllano il floppy), oppure č una mia
fantasia dovuta alla carenza di riposo (o all'eccesso di sonno)?
grazie
ciao
degra

 ha scritto

io in es. aut. ho messo un mini exe che scrive data e ora, poi se ne sta
buono nascosto. quando win chiude, al form unload scrive nell'ultimo record
l'ora di chiusura. risorse occupate pressoche' nulle.
il mio dubbio sui bkp automatici e' pero' il solito: se uno zappa
(xbase:zap) il db, e poi in automatico te lo copia sul bkp...
j.bkp


Ottima idea, non ci avrei mai pensato! Però non so se il sistema attende
la fine del backup (circa 70 mega, quindi almeno un minuto), perchè mi
pare che ci sia un tempo di attea breve prima della chiusura forzata dei
processi...
Per il dubbio, non so, ma il mio backup non comprende database, solo
tutti quei file che ci si dimentica sempre di salvare prima di un crash
e conseguente formattazione....
grazie
ciao
degra

Newsgroup: it.comp.lang.visual-basic
Titolo: Domandina facile facile (solo per voi)

devo prelevare da una tab di Access una serie di record che siano compresi
in un arco di tempo da me prescelto ( forse è meglio che faccia un esempio !
! ):
  Data                Cliente      Città
25-11-2000      Rossi         Torino
25-11-2000      Bianchi       Roma
26-11-2000      Verdi          Milano
27-11-2000       ....... .          .......
27-11-2000       .........           ......
28-11-2000      ........             .......
..... ...........            ........          ......
Come posso visualizzare in un DBgrid  i record  compresi ( in questo caso )
dal 25-11-2000 e il 27-11-2000?!
Probabilmente sarà una caz...ta   tremenda ma quando uno è incapace...
grazie mille MAX

 dal 25-11-2000 e il 27-11-2000?!
Con una query:
Dim sql As String
sql = "SELECT Data, Cliente, Citta " & _
        "FROM TabellaDiAccess " & _
        "WHERE Data Between #11-25-2000# AND #11-27-2000#"
Per l' esecuzione di questa query cerca sull' help la parola Recordset.
Ciao
Aldo
Newsgroup: it.comp.lang.visual-basic
Titolo: Funzione open

Salve a tutti,
premetto che sono un nuovo o quasi membro di questo ng e un'inesperto
programmatore in vb, ma nel mio primo progetto mi è capitato qualcosa che
non riesco a capire.
Io creo un file txt con il seguente codice:
Set fs = CreateObject("Scripting.FileSystemObject")
Set temp = fs.CreateTextFile("D:\Progetti\VB\CreaTxT\E80temp.txt", True)
successivamente chiudo tutto ciò che è aperto con  Close e quando cerco di
aprire il file
    Open "D:\Progetti\VB\CreaTxT\E80temp.txt" For Output As #1
mi restituisce l'errore di Run-Time 70 "Autorizzazione Negata".
Ho letto l'help del MSDN, ma non ho capito cosa sbaglio.
Qualcuno può aiutarmi grazie?

 mi restituisce l'errore di Run-Time 70 "Autorizzazione Negata".
cosa intendi con "chiudo tutto ciò che è aperto con Close" ?
dovresti fare
Set temp = Nothing
Set fs = Nothing
cmq non vedo perché devi usare il FileSystemObject se puoi fare la
stessa cosa con Open [..] For Output [..]
Ciao
Faber

Uso il FileSystemObject perchè devo creare il file e non solo aprirlo.
Per quanto riguarda la funzione close, l'ho messa perchè pensavo che una
volta creato il file rimanesse aperto, e allora prima di riaprirlo con
l'istruzione OPEN dovessi chiuderlo.

 Per quanto riguarda la funzione close, l'ho messa perchč pensavo che una


 wrote in message
9hud44$i7i$1...@fe1.cs.interbusiness.it...

se non sbaglio close serve per chiudere i file aperti con open; se li apri
con il fso non dovrebbe servire a nulla

Newsgroup: it.comp.lang.visual-basic
Titolo: Grafico in VB5.

Come si fà a tracciare un grafico in VB5 partendo da una base di dati
tipo file, vettore etc..? Che istruzioni si usano ?
Grazie a tutti quelli che mi risponderanno.
---Bruno.

 tipo file, vettore etc..? Che istruzioni si usano ?
Buona fortuna, io per farlo ci ho messo settimane (fatto tutto a mano
ovviamente).
devi mettere in un form un controllo Picture ed usare i metodi Line,
Circle, ecc... ecc...
Il sistema di coordinate lo fissi tu con le proprieta' ScaleHeight e
ScaleWidth.
Buon Lavoro.
Hi,Ciao
Ettore       By -MES-

Perchè non usi una Mschart?????
 Danilo 
ki...@usa.net

 Perchè non usi una Mschart?????
Be... Primo perche' non so cos'e'.....
Secondo peche' quello che ho fatto io SICURAMENTE Mschart non lo fa......
Hi,Ciao
Ettore     By -MES-

Devo obbligatoriamente inserire un foglio di lavoro di Excel, ma francamente
non riesco con il controllo ActiveX, e devo usare gli oggetti di Excel8.0.
Bel casino.
Riesco a manipolare gli oggetti ma non a visualizzare le finestre. Non trovo
le chiamate giuste. Che fare?
Edo
Newsgroup: it.comp.lang.visual-basic
Titolo: DBGRID

Salve gente,
come si fà in vb5 a gestire dati contenuti in una relazione 1->molti?
Mi spiego meglio, io ho una tabella "centro" con tutti i campi che
identificano tale entità, e una tabella "impegni" dal lato molti.
Come faccio a gestire la sottomaschera con il datacontrol nel senso che
spostandomi tra i vari record io nella griglia devo poter vedere solo gli
impegni di un determinato centro (dato dalla relazione)?
Sicuramente non sono stato chiaro, ma se qualcuno mi ha capito........mi
risponda.

Scusate se ritorno sulla Questione.
Installando un programma Vb6 che usa il componente winsocket.ocx
ho sfasciato il protocollo Tcp-ip di un Pc con Win 95.
Molto probabilmente questo è successo in quanto il setup
ha registrato due dll , mi sembra ws2_help.ddl o qualcosa di simile.
(Le due dll non erano presenti sul sistema.)
Ho scaricato dal sito microsoft una pacth tipo "Update Winsocket2.."
ma non ha funzionato.
Qualche idea ??
Luca

Devi modificare il recordset associato ai vari DBGRID "figli" quando
selezioni un recordset diverso nel DBGRID "padre". Utilizza l'evento
DBGrid_SelChange
e qualcosa del tipo:
If DBGrid1.SelBookmarks.Count > 0 Then
    	Data1.Recordset.Bookmark = DBGrid1.SelBookmarks(0)
	Data2.RecordSource="SELECT campo1 FROM tabella1 WHERE ID="  _ 		&
data1.recordset.field(0)
	data2.refresh
endif
ciao
	maxx


Newsgroup: it.comp.lang.visual-basic
Titolo: Passare il nome del file con l'azione apri con...

Ciao a tutto il newsgroup!
vorrei fare con visual basic 6.0 (o se strettamente necessario 
vb.net
)una cosa di questo tipo:
vado nelle risorse del computer, sfoglio la mia cartella, seleziono un 
file e con il tasto destro del mouse, nel sottomenu apri con... lo 
vorrei aprire con un mio programma (che ho già parzialmente scritto) 
passandogli come argomento il file selezionato...
il mio amico google non mi sà aiutare perchè non sò da che parte iniziare...
qualche consiglio??
Grazie,
nwt

 passandogli come argomento il file selezionato...
Non so se ho preso fischi per fiaschi  ma non basta un semplice
"c:\Path\Tuo_programma tuofile.ext"      ?
Rundll32.exe shell32.dll,OpenAs_RunDLL c:\test.txt
--
Fosco

 passandogli come argomento il file selezionato...
Prova a vedere se ci capisci qualcosa:
http://www.gbcdepot.com/free/vb_esempi/samples_files_FileTypeRegister.zip
hola
-> GbC|
www.gbcweb.com

Ciao a tutto il newsgroup!
vorrei fare con visual basic 6.0 (o se strettamente necessario
vb.net
)una cosa di questo tipo:
vado nelle risorse del computer, sfoglio la mia cartella, seleziono un
file e con il tasto destro del mouse, nel sottomenu apri con... lo
vorrei aprire con un mio programma (che ho già parzialmente scritto)
passandogli come argomento il file selezionato...
il mio amico google non mi sà aiutare perchè non sò da che parte iniziare...
qualche consiglio??
Grazie,
nwt

GbC| ha scritto:

ti ringrazio per la risposta e mi scuso con tutto il newsgroup per aver 
postato due volte lo stesso msg ma il mio client di posta ha fatto le 
bizze e non riuscivo a vedere pubblicato il mio messaggio.
Grazie,
Nwt
Newsgroup: it.comp.lang.visual-basic
Titolo: Per VincePik

Ciao non vorrei abusare della tua pazienza..ma riguardo la domanda su Visual 
Basic 6 + Crystal report avrei dei dubbi..
Allora io nel forum principale visualizzo solamente i Subreport in questa 
maniera
                                    Cantiere1
SubOperai
Lavorazione1
SubNoleggi
Lavorazione1
SubMateriali
Lavorazione1
Io teoricamente per dire che voglio visualizzare solo la lavorazione 1 
basterebbe che faccia in questo modo? (non guardare la formula che è solo un 
esempio fatto da crystal)
Dim CRXReport As New CrystalReport1
Dim CRXSubReport As SubreportObject
Set CRXSubReport = CRXReport.Orders
CRXSubreport.RecordSelectionFormula = "{Customer.Last Year's Sales} > 
100000"
Almeno così dice l'help...ma a me nn funziona perchè il metodo 
RecordSelectionFormula nn appare per il subreport..
Che devo fare??
Altro dubbio..facendo in questo modo io alla fine nn mi trovo ad avere una 
cosa di questo tipo?
SubOperai
Lavorazione1
Lavorazione2
Lavorazione3
SubNoleggi
Lavorazione1
Lavorazione2
Lavorazione3
Io vorrei invece avere qualcosa di simile
 Cantiere
+Lavorazione1
Materiale1
Materiale2
Materiale3
Manodopera1
Manodopera2
Noleggi1
Noleggi2
Noleggi3
+Lavorazione2
Materiale1
Materiale2
Materiale3
Manodopera1
Manodopera2
Noleggi1
Noleggi2
Noleggi3
Chiaro??
Ciao e grazie ancora 

 Ciao e grazie ancora
Ho capito perfettamente quello che vuoi ottenere.
Che versione hai di Crystal Report?
Se vuoi puoi scrivermi in privato togliendo *TOGLI*QUESTO* dall'indirizzo.
Ciao, Vincenzo
Newsgroup: it.comp.lang.visual-basic
Titolo: Ridimenzionamento di immagini...

Ciao... rompo per l' ennesima volta....
(ah grazie per il consiglio su BitBlt, il
problema era proprio dato da Twips vs Pixels)
Comunque arrivo al punto: devo convertire delle
immagini da 1024*768 a 800*600 oppure a640*480.
Siccome sono proprio tante, e con il Photoshop mi
stufo mi sono fatto un programmino che me lo fa in 
automatico con la funzione  API StretchBlt. 
Fin qui tutto bene, funziona alla grande, ma quando 
ridimenziona l' immagine di arrivo fa veramente cag...
E' tutto quadrettosa.... COSA POSSO FARE???
Vi prego di darmi un consiglio (ponso che  StretchBlt non
sia la soluzione piu' adatta...)
Grazie
:):):):):)
Ciauz
Pietro Bello
--
Posted from 
mail.archimedia.it
 [192.106.156.2]
via Mailgate.ORG Server - 
http://www.mailgate.org

 sia la soluzione piu' adatta...)
Potresti usare il metodo paintpicture delle picturebox... Non è velocissimo
ma ridimenziona le immagini perfettamente.
Ciao
Daniele
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: [JET] Ricerca in campi contatore

salve.
vorrei sapere se ci sono dei delimitatori particolari da inserire per la 
ricerca in campi contatore, con una stringa sql in un DB MS ACCESS.
se faccio questa ricerca in un campo contatore ottengo un errore di 
runtime: "impossibile trovare l'oggetto nell'insieme corrispondente al 
nome o al numero richiesto"
"SELECT * from nometabella where campocontatore = n"
dove n è un intero lungo.
se n fosse una data lo delimiterei con #n#, se fosse una stringa con 
'n', per i contatori c'è un delimitatore particolare?
dove sbaglio?
distinti saluti.

salve,

dal messaggio di errore direi che la tabella non contiene una colonna con 
quel nome..
-- 
Andrea Montanari (Microsoft MVP - SQL Server)
http://www.asql.biz/DbaMgr.shtm
 
http://italy.mvps.org
DbaMgr2k ver 0.15.0  -  DbaMgr ver 0.60.0
(my vb6+sql-dmo little try to provide MS MSDE 1.0 and MSDE 2000 a visual 
interface)
--------- remove DMO to reply 

 dove n è un intero lungo.
Posta il codice vb con cui intendi aprire il recordset di ricerca.
Forse sbagli nel realizzare la stringa SQL.
Ciao
Alberto
-- 
Ma noi no

 quel nome..
chiedo scusa, è come dice Andrea, è stata una svista sul nome del campo :(
la stanchezza fa brutti scherzi...
grazie

Newsgroup: it.comp.lang.visual-basic
Titolo: funzioni in moduli access da vb6

Salve,
ho messo una funzione in un modulo dentro a un database in Access 2000.
e' possibile richiamarla da un progetto in Visual Basic 6?
come?
vi prego, e' urgente...
Grazie mille
Leo

 come?
nel progetto metti un riferimento a Microsoft Access [] library
nel file mdb ho creato una funzione Prova as Long che conta i record in una
tabella
nel codice VB:
    Dim x As New Access.Application
    Dim y As Long
    x.OpenCurrentDatabase "c:\miofile.mdb"
    y = x.Run("prova")
    MsgBox y
    Set x = Nothing
non so se e' chiaro dall'esempio, ma in pratica avvii Access anche se resta
invisibile
ciao

 ha scritto nel messaggio
news:adpqeh$vu9$1...@newsreader.mailgate.org...


Newsgroup: it.comp.lang.visual-basic
Titolo: due miliardi di messaggi

ho aperto il news group it.comp.lang.visual-basic con outlock e mi risulta
un numero di messaggi pari a: 2.147.482.802
Inizia a scaricare le intestazioni e dopo un po' (lo capisco) si blocca.
ci sono veramente piu' di due miliardi di messaggi (?) o c'e' qualcosa che
non va sul mio outloock.
un saltuo a tutti.
gianni.

 non va sul mio outloock.
La seconda che hai detto. :-)
Se fosse postato un messaggio ogni secondo,
ci vorrebbero circa 65 anni per scrivere tutti quei post. :-D
-- 
Antonio Cangiano
Webmaster di 
www.visualcsharp.it
free.it.comp.lang.csharp - free.it.comp.lang.vbnet
free.it.comp.lang.aspnet - free.it.comp.lang.delphi

 ci vorrebbero circa 65 anni per scrivere tutti quei post. :-D
fantastico... pensa quanti ot... :)
Newsgroup: it.comp.lang.visual-basic
Titolo: CD-ROM autorun

Salve, di cosa si ha bisogno per far partire un cd in automatico quando lo
si inserisce, in pratica io ho fatto un cd con delle immagini in htlm e
vorrei che al suo inserimento si aprisse il file index.htm.
Grazie.
Adolfo

 wrote in message
Crln3.6825$ip4....@nntpserver.swip.net...



Il sistema di autorun di Windows si basa su un file di testo chiamato
Autorun.inf
che ha questa struttura:
[autorun]
open=tuoautorun.exe
icon=tuaicona.ico
nella voce open e' possibile mettere anche un HTML, non solo EXE.
Non ricordo se basta fare:
open=tuohtml.html
oppure se e' necessario usare il comando Start:
open=Start tuohtml.html
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Multiaccesso ai file

Esiste una modalità tale per cui :
1- Creo un file nuovo PIPPO.txt.
2- Scrivo sul file
3- Lo chiudo
Un altra applicazione può vedere (o accedere a) PIPPO.txt solo dopo che l'ho
chiuso e NON subito dopo che l'ho creato !!
OVVIO ma ??
Altro caso un pò meno ovvio che però si può probabilmente ricondurre al
precedente :
1- Apro un file PIPPO.txt già esistente.
2- Scrivo sul file
3- Lo chiudo
Posso aprire PIPPO.txt in modalità "esclusiva" in maniera tale che un'altra
applicazione che vuole aprire PIPPO.txt sia notificata che il file è già in
uso (e almeno non possa rinominarlo o copiarlo mentre io ci sto scrivendo
sopra)  ?
Nei casi sopra descritti quella che chiamo altra applicazione può essere
un'altra applicazione VB o anche un processo AS400.
GRAZIE per le eventuali risposte, Massimo

 sopra)  ?
Quando apri il file da VB metti il LOCK (vedi guida
su "Open"). Se tenterai di aprire il file ti
verra' dato errore di condivisione.
ANdrea

Se un file viene creato con le clausole di accesso esclusivo altre
applicazioni vi possono accedere solo dopo che quest'ultimo č stato
rilasciato.
-Per aprire un file in maniera esclusiva usare la clausola ' Lock Read Write
' nell'istruzione OPEN (vedi help)

> Esiste una modalità tale per cui :
Esiste una modalità tale per cui :
1- Creo un file nuovo PIPPO.txt.
2- Scrivo sul file
3- Lo chiudo
Un altra applicazione può vedere (o accedere a) PIPPO.txt solo dopo che l'ho
chiuso e NON subito dopo che l'ho creato !!
OVVIO ma ??
Altro caso un pò meno ovvio che però si può probabilmente ricondurre al
precedente :
1- Apro un file PIPPO.txt già esistente.
2- Scrivo sul file
3- Lo chiudo
Posso aprire PIPPO.txt in modalità "esclusiva" in maniera tale che un'altra
applicazione che vuole aprire PIPPO.txt sia notificata che il file è già in
uso (e almeno non possa rinominarlo o copiarlo mentre io ci sto scrivendo
sopra)  ?


 wrote


 e' quanto ti serviva ?
In effetti l'utilizzo della istruzione OPEN al posto dei metodi del
FileSystemObject può risolvere almeno parzialmente i problemi di multi
accesso ai file
Tuttavia :
1- Sulla documentazione di VB6.0 si consiglia l'utilizzo dl FileSystemObject
come mai !?
2- Questo oggetto però non possiede metodi o proprietà che mi permettano di
effettuare il Lock del file !
Inoltre un altro problema è il seguente :
Se utilizzo il metodo MoveFile per rinominare un file da un disco locale a
un disco condiviso in rete :
es. : fSystemObj.MoveFile "c:\PClocale.txt", "q:\condiviso.txt"
può capitare che un processo esterno (es. AS400) vada a sua volta a
rinominare il file "q:\condiviso.txt" in un altro file "q:\as400.txt".
quando il file "q:\condiviso.txt" non è ancora stato copiato interamente sul
disco condiviso :
il risultato è che AS400 si ritrova un file "q:\as400.txt" con lunghezza = 0
mentre l'originale era <> 0.
Esiste una istruzione di Rinomina o Copia del file più intelligente ovvero
che metta a disposizione "q:\condiviso.txt" ad altri processi solo quando
questo è stato interamente copiato oppure UNlockato  ?
Grazie, Massimo

 In effetti l'utilizzo della istruzione OPEN al posto dei metodi del

Newsgroup: it.comp.lang.visual-basic
Titolo: Api copyfile?

Ho necessità di copiare dei file da un mio prg mo nonostante abbia guardato
nella guita non sembra esistere una funzione che faccia a caso mio quindi
penso che dovrò ricorrere alle api.
A questo punto sorge un problema:
    qual'è l'api per copiare i file?
Grazie
Ciao
--
Andrea Fabbrucci
anfa...@tin.it

Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal
lpExistingFileName As String, ByVal lpNewFileName As String, ByVal
bFailIfExists As Long) As Long
MoA...@tin.it
Antonio Donatiello <ant...@REMOVETHISgeminisoft.com> wrote in message
81tgu5$3j1$1...@fe1.cs.interbusiness.it...
VB ha il comando FileCopy.
L'API di Windows si chiama CopyFile.
Antonio

Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO, GESTIONE FILE (.INI)

Salve a tutti... abbiamo bisogno di una mano.
Come si gestiscono in visual basic (6.0) i file (.ini)?
C'e' un modo per intercettare le sessioni all'interno di un file (.ini),
oppure si deve leggere il file (.ini) come un file testo?
Grazie a tutti per l'interessamento.
Flavio & Andrea

oppure si deve leggere il file (.ini) come un file testo?
usa le funzioni api GetPrivateProfileString e WritePrivateProfileString (non
mi ricordo il nome precisamente, comunque iniziano con "getprivateprofile"
ecc.)
Marcantonio





Vai sul Sito Comune di questo NG,
http://www.murialdo.it/it_lang_vb
Sezione Piccole Perle->Prime Perle
C'e' tutto su come gestire gli INI Files
Ciao
By -MES-   Maronese Ettore
http://ilmes.freeweb.org
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://www.murialdo.it/it_lang_vb




Newsgroup: it.comp.lang.visual-basic
Titolo: Hidden Button

Vorrei fare in modo che cliccando in una certa zona dello schermo
venga attivata la procedura relativa, come se si cliccasse su un
bottone, solo che il bottone deve essere invisibile. Ho provato a
mettere un componente image(senza immagine) e associare la procedura
all'evento Onclick, pero' ho notato un notevole ritardo nella risposta
all'evento, cosa che non accade con i bottoni.
Qualcuno sa consigliarmi un modo per fare questa cosa?
grazie
Lorenzo

...

Una Label e l'evento Mousedown, ti da le coordinate per sapere in che zona
sei.
Se non sbaglio però dovrebbero esserci anche dei controlli (Mappe sensibili
o qualcosa del genere) che ti permettono di definire areee irregolari e ti
sollevano il compito.
Ciao
Max

 Qualcuno sa consigliarmi un modo per fare questa cosa?
Prova con altri controlli più "leggeri" che supportino l'evento Click,
come ad esempio un Frame (Con Caption = "" e BorderStyle = none diventa
"invisibile").
Ciao
LSP
-- 
_______________________________________________________
Luca Sigfrido Percich  (
per...@pedolog.disat.unimi.it
)
  s o i l    c a r t o g r a p h y    &    g. i. s.
_______________________________________________________
Geopedology GIS lab. (tel +39-2-64474416  fax 64474400)
Dept. of Environmental Sciences -  University of Milano
Via L. Emanueli, 15 - 20126 Milano (Italy)
_______________________________________________________

opure con le label... 
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)
Newsgroup: it.comp.lang.visual-basic
Titolo: Associare un'icona alla form

Non riesco a capire come cambiare l'icona standard che VB6
assegna alla form. Ho provato ad inserire in Sub Form_Load()
Form1.Icon = LoadPicture(App.Path & "\nomeicona.bmp")
oppure
Form1.Icon = LoadPicture(App.Path & "\nomeicona.ico")
usando un file .bmp con dimensione consigliata dall'help
cioe' 32x32 pixel ma mi restituisce sempre l'errore run-time
380 Valore di proprieta' non valido
dove sbaglio?
Grazie

 wrote in message
7nl5t9$sre$1...@nslave1.tin.it...

Prova a settare in fase di progetto la proprieta' Form1.icon non in fase di
run time come hai provato tu.
Non tutte le proprieta' infatti sono writeable in run time.
Ciao.

dove sbaglio?
Il codice e' giusto (la seconda versione), il problema e' che il file deve
essere proprio in formato ICO, non una bitmap con l'estensione modificata. Puoi
convertirla con un programma che gestisce entrambi i formati; da qualche parte
nel CD di visual basic dovrebbe esserci un editor di risorse (imgedit.exe) che
fa al caso tuo.
Ciao
--
Luca Dormio
l...@sig-la.com
ldo...@tin.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Aspetto Form ?

Ciao a tutti, so perfettamente che l'aspetto di una form non ha dei criteri
predefiniti, tutto dipende dalle proprie esigenze e dai propri gusti.
Io probabilmente non ho gusti o forse mi manca l'esperienza.
Fatto sta che non riesco a decidermi su come sistemare le form, in
particolare la barra dei pulsanti ( in alto o in basso, Incorniciati o
incassati, di che dimensione ?, ecc.)
Quello che vi chiedo e di mandarmi una vostra maschera con gli oggetti sopra
mensionati dalla quale prendere spunto
A proposito c'è un modo per impostarla magari come stile predefito?
Vi prego aiutatemi anche se so che mi sto impelagando in una cosa di
relativa importanza, sono molto pignolo non ne posso fare a meno.
Grazie Tuareg

mensionati dalla quale prendere spunto
Avevo il tuo stesso problema finchč non ho deciso di prendere un'app. M$
come spunto (come grafica sono abbastanza eleganti e cosě si segue anche uno
standard), cosě ho scelto di copiare lo stile OutLook.
Scegliti la tua.
Ciao.

Grazie Tuareg
Prego Indu'  (scusa, mi e' scappata... :-)
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Effettuare una 'connessione diretta via cavo' da VB

Ciao!
Mi stavo chiedendo se fosse possibile effettuare da VB una connessione
diretta via cavo (proprio come in Win95).
Mi spiego:
Il mio programma dovrebbe effettuare la connessione e prelevare
automaticamente i file che gli servono. Dopodichč, chiudere la connessione.
E' possibile?
GRAZIE!
Ciao e buon lavoro!
Umberto 'Ubi 1k' Meroni
umbert...@iol.it

Via Cavo seriale lo puoi fare tranquillamente, basta che dall'altra parte tu
sappia chi e come ti invia i dati. Il controllo da usare è MSComm. Con
MsComm1.Output "stringa" invii, con x=MsComm1.Input ricevi.
Via parallela, puoi inviare i dati direttamente aprendola con Open "LPT1"
for output as x (bypassi il driver). Per ricevere con un cavo LapLink credo
si possa leggere in Input (questo non l'ho provato, il resto si).
Se il collegamento deve avvenire Pin a Pin mi sa che serve Win95io (cfr.
sito comune)
Fabio

 si possa leggere in Input (questo non l'ho provato, il resto si).
Non per contraddirti, ma la "Connessione diretta via cavo" immette la macchina nella LAN locale!!!
E' come se si usa una scheda di rete, o quasi.
Quindi, non penso che queste buone idee possano andar bene a Umberto.
Soluzione.... Scusate, ma io non la so  :-((
E voi?   :-))
-- 
Hi, Ciao
Ettore                 By -MES-
http://freeweb.aspide.it/freeweb/ilmes
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb

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

Il problema potrebbe essere stupido:
come faccio a stampare su tutto un foglio A4, il problema riguarda la
stampa di maschere e prospetti
Grazie

...


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

Ma perchè no funziona?
Serve a far diventare trasparente il colore indicato.
L'ho applicato ad un CommandButton, a cui ho assegnato una picture 
(ovviamente, con Style = 1 = Graphic).
La picture è una di quelle fornite con VB, cioè quelle della Office 
Toolbar (Open).
Il colore di sfondo di quella bmp è un grigio (RGB = 192, 192, 192 = 
0xC0, 0xC0, 0xC0)
Automaticamente MaskColor si è settata su C0C0C0 (sarà uno standard de 
facto di quel genere di bitmap, perciò VB mi setta quel colore sapendo 
che al 90% è quello che serve).
Allora avvio il progetto ma continuo a vedere lo sfondo della picture 
più oscuro dello sfondo del pulstante, come se MaskColor non avesse effetto.
Ma come faccio?
-- 
Nella vita una sola cosa è certa: se la storia ci ha insegnato qualcosa, 
è che si può uccidere chiunque.
(Michael Corleone)

 (ovviamente, con Style = 1 = Graphic).
[SNIP]
Ti manca ancora una property, per la precisione 'UseMaskColor'
Ciao
-- 
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 Ciao
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Report con valore #Errore

Ho un report con origine dati da una query.
Spesso capita che la query non estrae dati visto che uno dei criteri è [Not
is Null].
In questo caso la casella di testo riporta il valore [#Errore], è possibile
fare in modo che la stessa riporti il valore 0?
Ho provato anche con la funzione Nz purtroppo i criterio di cui sopra mi
impedisce qualsiasi estrazione.
grazie
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 fare in modo che la stessa riporti il valore 0?
Certo.
Alberto
-- 
A questo punto hanno trovato un muro,
un muro duro, molto molto duro,
che siamo noi.

 is Null].
Se non estrae dati come fa a stamparli?
Sicuro che l'errore sia dato da questo?
Secondo me c'è qualche problema con i dati in qualche formula.
Ciao 

 Secondo me c'è qualche problema con i dati in qualche formula.
Lo penso anche io.
Probabilmente c'è qualche Campo+campo1 e uno di questi due è null, almeno a
me sono capitate cose del genere.
L'ho risolto con un COALESCE(campo,0)AS Campo per i numerici nella stringa
SQL. Oppure nella formula IIF(campo=Null,0,campo) o la sintassi che vuole
access.

Newsgroup: it.comp.lang.visual-basic
Titolo: formattazione migliaia in vbscript

Sto iniziando a lavorare con le ASP e ho bisogno di presentare un importo
formattato correttamente con i punti delle migliaia ecc..
...come posso fare ?
grazie. Piero

 wrote in message
85nijv$quf$1...@fe1.cs.interbusiness.it...


 wrote in message
10k8ii0$6dm$1...@fe2.cs.interbusiness.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Sito per principiante di VB

Dove posso trovare un sito che mi spieghi da ZERO il VB, magari con qualche
manuale?
GRAZIE a tutti quelli che mi daranno la dritta giusta!

 wrote in message news:8sflek$dfo$1...@nslave3.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: WinHelp

So che per aprire un file di Help da VB, occorre usare l'API WinHelp.
Con quest'API so aprire l'indice (HELP_INDEX) e la Guida su come usare
l'Help (HELP_HELPONHELP). Come posso invece aprire una determinata pagina di
un file HLP?
Spero di essermi espresso in modo comprensibile :-)
Ciao.
--
Marco Vincenzo Carnazzo
Web Site: 
http://www.geocities.com/SouthBeach/Marina/9922/
Le mie creazioni software:
http://volftp.tin.it/IT/IT/ITALIANI/carnazzo/index.htm
"Sara' perche' i poeti guardano spesso le nuvole che sono i primi ad
avvertire la tempesta" - Bisca 99 Posse

un file HLP?
  Utilizza la seguente istruzione:
r% = WinHelp(Me.hwnd, App.HelpFile, &H1, 19)
  dove il 19 e' l'HelpContextID associato a quella voce dell'help.
  Ciao :-)
  Massimo
  Nell'indirizzo, sostituire DIESPAMMERS con MC1258
  In the address, replace DIESPAMMERS with MC1258

 un file HLP?
Questa è la routine che utilizzo per aprire la pagina di Help relativa al
supporto.
Evidentemente 3010 è lo stesso valore che è stato dato alla pagina nel file
di progetto.
[MAP]
Hlp_Contents 1
Hlp_Reference 1010
Hlp_Welcome  1020
...
Hlp_Support  3010
Global Const Hlp_Support = 3010
Sub HelpOn (ByVal n_HelpType As Integer)
    Dim rc As Integer
    Dim sz_Data As String
    Select Case n_HelpType
    Case HELP_CONTEXT
        rc = WinHelp(m_hWndMainWindow, App.HelpFile, n_HelpType,
CLng(Hlp_Support))
    Case HELP_PARTIALKEY
        sz_Data = Space$(4)
        rc = WinHelp(m_hWndMainWindow, App.HelpFile, n_HelpType, sz_Data)
    Case Else
        rc = WinHelp(m_hWndMainWindow, App.HelpFile, n_HelpType, 0&)
    End Select
End Sub

[...]
Grazie mille a te e all'altra persona che mi ha risposto [di cui purtroppo
ho perso il messaggio :-(].
--
Marco Vincenzo Carnazzo
Web Site: 
http://www.geocities.com/SouthBeach/Marina/9922/
Le mie creazioni software:
http://volftp.tin.it/IT/IT/ITALIANI/carnazzo/index.htm
"Coloro che non ricordano il passato saranno costretti a viverlo
nuovamente" - G. Santayana

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Modifica tabella access

Salve a tutto il NG
Ho la necessita' di modificare una tabella access, aggiungendo un campo,
tramite SQL.
Con il comando ALTER TABLE utilizzando DAO 3.51 riesco a modificare
la tabella ma come posso modificare gli attributi del campo tipo: Format ,
Default Value , Required, ecc. (sempre utilizzando l' SQL) ?
Grazie infinite e scusate il semi-ot :)
DaX

 ha scritto nel messaggio
news:8q4cn0$3958$1...@stargate1.inet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: problemi con tipi strutturati

Ciao,
in un modulo ho definito questo tipo e una variabile
Public i As Integer
Public Type tree
    dato As String
    left As Integer
    right As Integer
End Type
e in un form ho:
//creo un array di nodi
Private Sub Form_Load()
Dim nodi(50) As tree
nodi(0).dato = "Aldo"  //l'elemento dato del nodo = è uguale ad un nome
i = 1                            //pongo i =1
End Sub
Public Sub Insert(key As String)
If key < nodi(i - 1).dato Then  // *QUESTO MI DA' ERRORE
MsgBox "key è minore"
Else
MsgBox "key è maggiore"
End Sub
Private Sub Command1_Click()
Insert (Text1)
End Sub
perchè non posso confrontare un valore (key) con nodi(i-1).dato?
Grazie

 ha scritto nel messaggio
news:Rpg0a.138238$0v.38...@news1.tin.it...

Trovato!!!
come non detto....W google...

Newsgroup: it.comp.lang.visual-basic
Titolo: Array monodimensionale ...

Devo caricare in un unico Array un numero considerovele di stringhe (+ di 
50.000) da un file TXT.
Ho impostato il numero di elementi dell'Array a 100000 ( Dim MyArray(100000) 
As String),
ma ottengo sempre un errore di overflow, anche variandone il numero di 
elementi.
Riesco a gestire il file senza alcun errore solo se le sue dimensioni non 
superano i 1.800 KB.
E' per caso un limite associato al tipo di dato?
E' possibile sostituirlo con altro che accetta intervalli di valori 
maggiori?
Grazie
Angelo 

Angelo ha scritto:

Hai provato ad importare il File in un ByteArray....?
Una cosa del genere:
   Dim bytFile()     As Byte
   Dim iFile         As Integer
   Dim FileLength    As Long
   Dim sData         As String
   iFile = FreeFile
   Open sFileName For Binary Access Read As #iFile
   FileLength = LOF(iFile)
   sData = String(FileLength, Chr(0))
   Get #iFile, , sData
   Close #iFile
   bytFile = StrConv(sData, vbFromUnicode)
   On Error Resume Next
   Close #iFile
bytFile()     è già una matrice Monodimensionale in cui ogni
Elemento è una riga del file.
Ricavi il numero di righe da Ubound
Vedi se ti può essere utile.
@Alex

 Elemento è una riga del file.
Eh?!?
Per tanto così bastava una
Redim bytFile(0 To FileLength - 1)
Get #iFile, , bytFile
Ma non ottieni un array di stringhe.
Se le stringhe sono delimitate una soluzione sbrigativa è
   sData = String(FileLength, Chr(0))
   Get #iFile, , sData
    Dim arr() as string
    arr = Split(sData, delimitatore)
P.S.: l'on error conviene metterlo sulla open, non sulla close, e magari non 
un Resume Next ;)
Ciao 

 Ciao
Ciao
@Alex
@Alex

 fai un test con un file grosso e nota la differenza prestazinoale.
Ma non ottieni un array di stringhe come dicevi e come richiesto.
Inoltre non può essere più prestazionale poichè leggi una stringa che già è 
meno prestazionale di un array di byte, in unicode, quindi il doppio dei 
byte in memoria, e poi la converti in un array di byte...
Ciao 

Fabio ha scritto:

Si Fabio hai perfettamente ragione ho assolutamente inverito le cose e
detto
una cazzata.
L'ottimizzazione si ottiene proprio caricando un ByteArray come hai
detto, e
d'altra parte è proprio logico, non sò perchè sono partito per
quella strada....
Grazie per l'osservazione.
@Alex
Newsgroup: it.comp.lang.visual-basic
Titolo: Listview alla massima potenza

Visitando vari siti (
vb2themax.it
, 
vbaccelerator.com
,  ecc.) ho
recuperato una mini collezione di chiamate alle API per far fare alla
listview standard parecchie cosucce (intestazioni e scrollbar piatte,
drag&drop delle intestazioni, selezione riga intera, sort, ecc.). Non ho
trovato pero' qualcosa per impostare il fore/backcolor di ogni riga. Se
po' fa'?? E se si, come?
Bye by Massimo 8-]
P.S.
Qualcuno oa mi dira' <Perche' non usi una griglia? Ha tutto quello che
ti serve...> Ok, ma se le cose si possono fare con i controlli canonici,
prche' non fargliele fare?

 ha scritto nel messaggio
news:3A544679...@txt.it...

Secondo me un controllo FlexGrid è canonico quanto un listview ...
anche a me il listview piace più delle varie griglie ma devo dire che è
esageratamente lento sia nel caricamento sia nello scroll ...
Saluti

nello scroll con 3000 righe caricate non è particolarmente lento,  nel
caricamento ho trovato il sistema di caricare prima quelle visibili.


 >
Non ho capito bene ... come fai a caricare i dati nel listview ? caricando
prima le colonne visibili ?

a me interessava soprattutto quella della colorazioned ello sfondo di una
singola riga... se qualcuno sa come fare... mannaggia è così dificile???????
uffa... ::))))
mario

Newsgroup: it.comp.lang.visual-basic
Titolo: MAPI e Exchange

Come posso mandare una e-mail senza che l'utente debba scrivere
niente?
Se uso le MAPI mi esce una finestra in cui bisogna scegliere il tipo
di profilo.
Grazie in anticipo
Edoardo

...


...


>
Devi riavviare il sistema per rendere permanenti le opzioni selezionate.
Saluti
Carlo

Devi riavviare il sistema per rendere permanenti le opzioni selezionate.
No, non va. Inoltre non riesco neanche a definire IE come browser predef.
Che debba mettere le mani in RegEdit???
Newsgroup: it.comp.lang.visual-basic
Titolo: Inserimento dat in textbox

   salve a tutti, questo è il mio problema:
mi interessa inserire in una textbox il testo contenuto in una variabile
ricavata
da un file .dat.
allora, devo fare: salvare nella variabile a il testo di a.dat, preciso
uguale a come sta nel
file, comprendente cioè accapo e spazi.
Ora, il problema è che non so come farlo, e in teoria, penso che in ogni
caso, mi si porrebbero davanti il problema ---> non ci sono i ritorni a
capo, oppure sono visualizzati con ||.
Grazie infinite,
ciao ciao
| Ace |

 capo, oppure sono visualizzati con ||.
Leggi il file, riga per riga e ad ogni riga fai:
text1.text=text1.text & vbcrlf & LineaLetta
-- 
News2000 1.5ß Version 
http://socket2000.8m.com

 Ora, il problema č che non so come farlo, e in teoria, penso che in ogni
caso, mi si porrebbero davanti il problema ---> non ci sono i ritorni a
capo, oppure sono visualizzati con ||.
Perche' hai lasciato False la proprieta` Multiline del TextBox, suppongo.
Non mi e` chiaro, pero`, se i ritorni a capo sono presenti o meno nel file
"a.dat"...
Potresti verificare eseguendo il codice seguente:
Option Explicit
Private Sub Command1_Click( _
)
  Dim strFile As String
  Dim intFile As Integer
  strFile = "c:\a.dat"
  intFile = FreeFile(0)
  Open strFile For Input As #intFile
  Text1.Text = Input(LOF(intFile), intFile)
  Close intFile
End Sub
Private Sub Form_Load( _
)
  ' Design Mode Only:
  ' Text1.MultiLine = True
  Text1.Text = ""
End Sub
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

Newsgroup: it.comp.lang.visual-basic
Titolo: Errore 70 Permesso negato come risolverlo?

Salve a tutti,
lavoro sotto win 2000 e devo copiare il file degli eventi.
Se faccio il normale copia ed incolla con il mouse Win mi permette di farlo.
Se utilizzo FileCopy mi genera l'errore 70 permesso negato.
Ho provato a cambiare gli attributi del file con la funzione VB settattr
mettendo sia vbarchive sia vbnormal ma il problema rimane.
come risolverlo?
Grazie Antonio

[Antonio = 
circa_...@razionalservizi.it
 in
c6j9v0$cktn8$
1...@ID-218975.news.uni-berlin.de
] ha scritto:

FileCopy trova il file in uso (non è una questione di attributi) e
s'arrabbia.
Puoi copiarlo (anche se in uso, ma ... se cambia intanto che lo copii...?)
con Open For Binary e poi Get e Put

 con Open For Binary e poi Get e Put
SHFileOperation :)
esempio? tič:
http://www.gbcweb.com/free/vb_esempi/samples_SHFileOperation.zip
-> GbC|
www.gbcweb.com
Newsgroup: it.comp.lang.visual-basic
Titolo: tasto destro e MSHFlexGrid

Buon giorno a tutti.
Ho una MSHFlexGrid e vorrei intercettare adeguatamente il click sul tasto
destro del mouse, specialmente sulle intestazioni di riga.
Se utilizzo l'evento MouseUp, posso chiaramente avere informazioni sul
tasto del mouse su cui ho fatto click.
Trovo pero' un problema.. Quando clicco con il tasto destro del mouse, non
ho il controllo sulla riga e colonna su cui ho fatto click; per dirla in
altre parole, la proprieta' MSHFlexGrid.Row non mi restituisce il numero
di riga  che ho selezionato.
Idee?
Grazie... Maurizio
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Grazie... Maurizio
Prova con le proprietą MouseCol e MouseRow.
William. 

 Grazie... Maurizio
Prova con le proprietą MouseCol e MouseRow.
William.

 Prova con le proprietą MouseCol e MouseRow.
...
Grande, grazie!

Newsgroup: it.comp.lang.visual-basic
Titolo: gestione form

Ciao a tutti.
Ho un piccolo problema:
ho fatto un programma e soltanto alla fine ho deciso di inserire una piccola
schermata introduttiva di presentazione che venga visualizzata per un
piccolo intervallo di tempo (diciamo 2 o 3 secondi). Dopodichč essa dovrebbe
sparire per lasciare spazio alla form principale del programma.
Il mio problema č: come fare a mettere la form di presentazione come prima
form di esecuzione al posto della form1 che dovrebbe aprirsi solo in un
secondo momento?
Grazie per l'attezione.
Luca
PS: possibilmente datemi risposte semplici: non sono un grande esperto di vb

Vai nelle proprietą del progetto che stai creando....(tasto destro sul nome del progetto nella barra che di solito sta alla tua sx)
e nella finestra GENERALE puoi settare il form di Avvio... (OGGETTO DI AVVIO si chiama la finestrella...anzi la combo...)
CIAO SIMO
--
__________________
www.sasim.cjb.net


 Il mio problema è: come fare a mettere la form di presentazione come prima


 ha scritto nel messaggio
news:47SS6.2241$%m1.7...@news.infostrada.it...

in un tuo modulo:
private Sub Main()
Screen.MousePointer = 11
    tuaform_di_presentazione.Show
        DoEvents
            Load FormPrincipale
        DoEvents
    FormPrincipale.Show
Unload tuaform_di_presentazione
Screen.MousePointer = 0
end Sub
imposta: Progetto>Propietą tuo progetto>Oggetto di Avvio: =SubMain

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

Ciao A tutti del NG
Vi chiedo aiuto.
Per aggiornare un report a video legato ad un database, come posso fare.
ho provato DATAREPORT1.REFRESH
ma non si aggiorna.
Grazie per l'aiuto
Paolo
--
in...@elettronicsystem.com
ICQ N.: 27427846

Basta impostare la proprietą giusta in fase di creazione del report.
Menu>Database>Verifica ad ogni stampa. Esso provvederą ad aggiornare
automaticamente i dati dal bd ogni volta che parte la stampa.
Ciao!

 ma non si aggiorna.
Trattandosi di Datareport, direi che dovresti eseguire un refresh
prelimonare del recordset sottostante.
ciao
ugo

 ha scritto nel messaggio
news:9me1vu$95k$1...@pegasus.tiscalinet.it...


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

Ciao a tutti.
Avrei un problema da sottoporvi.
Utilizzando la seguente istruzione :
Db.Openrecordset("SELECT * FROM tabella1 WHERE codice = ' " & cCodice & " '
")
dove codice appartiene a tabella1 ed è di tipo text
cCodice è una variabile di tipo string
mi da un messaggio di errore di matching di tipi di dato. Perchè?
Se c'è qualcuno che mi puo' aiutare lo ringrazio. Ciao.
Luca.

 Luca.
--
By matteo(olč)
Mail to: 
ori...@libero.it
 
vuoiunscinquant...@yahoo.it

campi, o nella stringa cCodice c'è un apice  doppio apice...
Newsgroup: it.comp.lang.visual-basic
Titolo: API di visualbasic

Mi sto occupando delle API di Visual Basic.....
ho visto la loro potenzialità e ne sono rimasto estasiato.
La mi domanda e' questa:
"conoscete un sito dove posso scaricare tutorial, reference, esempi e tutto
quello che mi puo' servire per diventare un esperto di API ?"
Grazie.

...


 wrote:
Ciao a tutti
questo NG è sempre pieno di idee
per cui se andate su questo sito
http://gol.diemme.it/ioprogrammo
trovete la spiegazione sull'uso delle API
in VB più semplice (spero!) in assoluto.
Cordiali Saluti



Piccola (grande) correzione:
le API non sono di VB, ma di Windows :-)
per il resto, vedi le altre risposte.
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: posta da vb 2 x hal1961 e altri con le mie scuse

Faccio le mie scuse e spero questa volta di essere esauriente nella
richiesta.
Di seguito riporto il codice relativo alle impostazioni dei controlli e
all'evento click del oggetto command1 che risiede su una Form insieme al
componente mapisession e al componente mapimessagge. Il problema è che non
invia allegati insieme alla mail continua a segnalare l'errore 32002 errore
sconosciuto
VERSION 5.00
Object = "{20C62CAE-15DA-101B-B9A8-444553540000}#1.1#0"; "MSMAPI32.OCX"
Begin VB.Form frmEmail
   Caption         =   "email"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1
      Caption         =   "Send"
      Height          =   495
      Left            =   1800
      TabIndex        =   0
      Top             =   1320
      Width           =   1215
   End
   Begin MSMAPI.MAPISession MAPISession1
      Left            =   1200
      Top             =   240
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      DownloadMail    =   0   'False
      LogonUI         =   -1  'True
      NewSession      =   -1  'True
   End
   Begin MSMAPI.MAPIMessages MAPIMessages1
      Left            =   240
      Top             =   240
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      AddressEditFieldCount=   1
      AddressModifiable=   0   'False
      AddressResolveUI=   0   'False
      FetchSorted     =   0   'False
      FetchUnreadOnly =   0   'False
      FetchMsgType    =   "0"
   End
End
Attribute VB_Name = "frmEmail"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
MAPISession1.UserName = "Pippo"
MAPISession1.Password = "231946"
MAPISession1.SignOn
With MAPIMessages1
.SessionID = MAPISession1.SessionID
.MsgOrigAddress = 
ze...@masterweb.it
.MsgIndex = -1
.Compose
.MsgSubject = "OGGETTO"
.MsgNoteText = "TESTO"
.RecipAddress = "
asi...@hotmail.com
"
.AttachmentPosition = 1
.AttachmentType = mapData
.AttachmentIndex = 1
.AttachmentPathName = App.Path & "\"
.AttachmentName = "invia.txt"
.Send True
End With
MAPISession1.SignOff
End Sub

End Sub
Se vuoi leggere un esempio sull' uso dei mapi controls, prova qui:
http://support.microsoft.com/support/kb/articles/Q185/1/71.ASP
ciao, hal

Ok ringrazio tutto in regola. In effetti era la guida msdn che si era
spiegata male a presto.
Newsgroup: it.comp.lang.visual-basic
Titolo: informazione per tessere magnetiche

Ragazzi devo sviluppare un programma di rilevazione ingressi per una
palestra tramite tessera magnetica. Vorrei sapere se è possibile
implementare in visual basic una cosa del genere e se c'è qualche ocx
dedicato o già pronto all'uso. Ovviamente ONLY- FREE!!! ;)
Io sono un programmatore ASP e di VB ne capisco solo a sufficienza. Potete
darmi una manima o consigli d'aiuto.
Grazie!

 implementare in visual basic una cosa del genere
Sì sì si può fare. Vuoi il metodo più semplicissimo :-) ?
Stampa sui badge dei codici a barre con i dati che ti servono e poi li leggi
con una pistola
che emula la tastiera in un form di VB (ma anche di ASP). Da li gestisci
tutto ciò che vuoi con
i dati del bar-code.
Io l'ho fatto sia per eventi che per una società di trasporti (erano i
pacchi a entrare :-)).
OCX non ne ho usati se non MSCOMM per leggere la pistola dalla porta COM
quando era via COM;
nemmeno quello se una pistola emula tastiera.
Alex
PS: usavo gobarocx per generare il barcode ma non è free (credo che in giro
ci sia)

 nemmeno quello se una pistola emula tastiera.
Anche i lettori di tessera magnetica non fanno altro che sputare una stringa
sulla seriale.
Per cui, direi che non cambia niente, salvo il fatto che non tutti i lettori
magnetici sono in grado anche di 'scrivere' sulla tessera.
Ciao
Alberto

 lettori magnetici sono in grado anche di 'scrivere' sulla tessera.
Certo m iriferivo a pistola perchè ho sempre usato solo quelle per comodità
^_^
Alex

 Grazie. Se ho problemi posso contattarti?
Certo se posso essere utile o in mail o qui.
Alex

 ha scritto nel messaggio
news:ba2caf$nfmvf$1...@ID-167119.news.dfncis.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: ciclo for

Ciao a tutti
sto facendo una macro in excel e in questa macro devo ciclare tutte le celle
che contengono qualcosa,  è possibile sapere fino a quale riga o colonna
sono stati inseriti dei valori per settare il count del ciclo for ?
grazie 1000

 wrote in message
uXH_6.7060$bp5....@news1.tin.it...


 ha scritto nel messaggio
news:uXH_6.7060$bp5....@news1.tin.it...


...

Prova cosi' :
Range("a1").Select 
Selection.CurrentRegion.Select
totRighe = Selection.Rows.Count
totColonne = Selection.Columns.Count
Ciao