mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: tasto su caption

http://www.lukino2000.net/vb/TastosuCaption.zip
in questa sera buia e tempestosa... mi stavo facendo 2 p...e cosě e ho
provato...
a parte la gestione degli errori che va fatta ditemi  che cosa ne pensate
ciao
L2K

 
http://www.lukino2000.net/vb/TastosuCaption.zip
Sempre se non lo hai fatto apposta... ti conviene mettere un file
"index.htm" in ogni dir, oppure settare meglio quell'Apache ;-)
Bye, G.

fatto apposta non avevo voglia di sbattermi... :)
sto creando la struttura della directory dove poi metterò tutti i sorgenti e
faro le statistiche di download.
ciao
L2K


per chiunque fosse interessato ...
aggiornato il progetto :
1. Cambiata sintassi per aggiungere nuovo tasto
2. Sistemato problema con focus (non veniva resa attiva la finestra se si
premeva su un tasto)
3. Adesso la finestra riceve tutti gli eventi mentre prima per un problema
non riceveva il MOUSEMOVE e LMOUSEUP
4. Sistemato problema di "flickering" in qwuando il mouse si muove sulla
caption o quando viene tenuto premuto il mouse su un tasto
5. Aggiunta variabile TAG al tasto in modo da aggiungere una qualsiasi
variabile collegata al tasto
6. Sistemato errore di funzionamento (logico)
    prima : mouse su un tasto, premo e tengo premuto il mouse, il tasto
viene disegnato come premuto, se sposto il mouse su un altro tasto creato il
precedente tasto viene disegnato normale e il tasto su cui ho posizionato il
mouse viene disegnato premuto
    adesso : mouse su un tasto, premo e tengo premuto il mouse, il tasto
viene disegnato come premuto, se sposto il mouse su un altro tasto creato il
precedente tasto viene disegnato normale e il tasto su cui sono posizionato
rimane normale, se risposto il mouse sul tasto precedente quest'ultimo viene
disegnato premuto
    (dicono sia il normale funzionamento di windows... boh!!
7. Sistemata proprieta caption del tasto : adesso se viene cambiata il tasto
viene ridisegnato mentre prima si doveva aspettare il successivo refresh
della finestra
... alcune cosettine nel codice ...
Manca ancora una reale gestione degli errori
Fatemi sapere se ci sono altri problemi
http://www.lukino2000.net/vb/L2K_TastoSuCaption_1.1.zip
Lukino2000


Veramente bellino :)
Perchè non lo invii al Sito Comune?
Ciao
------------------------- SiDB Simple DataBase engine ----
------------------------- adParser Expression evaluator --
 
http://space.virgilio.it/zntf...@tin.it/
----------------------------------------------------------

avevo intenzione di farlo quando e' tutto ok.... lo sto aggiornando
ulteriormente e sto cambiando iul nome delle classi che mi sembra pauroso...
ciao
L2K


SFOGO
minc@@a che "bordello" implementare dei tootip!!!
L2K
Newsgroup: it.comp.lang.visual-basic
Titolo: finestra in primo piano sempre [OT]

Scuse per l'[OT]
Il mio problema è il seguente:
ho bisogno di realizzare una barretta (contenente una immagine) che rimanga
sempre in primo piano e restringa automaticamente l'area di lavoro delle
applicazioni.
Tale barretta dovrebbe essere molto simile alla barra delle applicazioni di
windows
grazie per l'aiuto

be', non l' hai gia' chiesto ieri?
rifacendo la stessa domanda nel giro di neanche 24
la gente non ci si sente invogliati a rispondere, anzi ...
-- 
ciao, hal
IUnknown *pNetiquette

 ha scritto nel messaggio
news:e7yU8.28641$Jj7.7...@news1.tin.it...


che non rieco a decidere su quale provare
gia', e noi tutti qui a disposizione per te :-(
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: richiamare una Sub

ciao a tutti
memorizzo in una textbox il nome dell'ultima Sub lanciata e la voglio
richiamare con un pulsante
Private Sub cmdAggiorna_click
Call text1.text ' in text1 c'č MiaSubDaRichiamare
End Sub
ovviamente non funziona perchč passo un stringa. Come posso fare?
grazie claudio
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ovviamente non funziona perchč passo un stringa. Come posso fare?
Prova a vedere al CallByName

 Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio
news:b2c30eed1ba2ebf0d87...@mygate.mailgate.org...


 Usa la funzione callbyname
Guarda CallByName serve per chiamare i metodi degli oggetti. 
CallByName(object, procname, calltype,[args()])
Per usare questa funzione occorrerebbe prima portare tutte le procedure da
richiamare dentro un oggetto.
Mi sembra più semplice elencarle in un Select Case.
Ciao.
pinco_pallo


 Guarda CallByName serve per chiamare i metodi degli oggetti.
Non mi risulta, ma non insisto.
Da prove che ricordo di aver fatto (con un po' di casini nei parametri) si
può chiamare una sub qualsiasi.

 puň chiamare una sub qualsiasi.
Mai dire mai!
Perň la bibbia dice "The CallByName function is used to get or set a
property, or invoke a method at run time using a string name." .
E il tipo contiene quell' "object" come primo parametro che non promette
niente di buono:
CallByName(object, procname, calltype,[args()])
Comunque mettendo le procedure da chiamare in un modulo di classe e
istanziandone una, poi si puň certamente usare CallByName.
Ma mi sembra piů semplice elencare le procedure in un Select Case.
Ma tu sei riuscito a capire a cosa serve? Io no! E sono curioso.


 property, or invoke a method at run time using a string name." .
Infatti, una Sub di una DLL/CLS altro non è che un metodo/proprietà della
classe/DLL/CLS stessa...
Vedi il topic "Chiamare una funzione col nome" del 18-02-03

 wrote in message
news:b4ddk8$1ugk4v$
1...@ID-174464.news.dfncis.de
grazie per le risposte
CallByName non son riuscito a farlo funzionare
per quanto riguarda l'utilizzo...ho una maschera con un paio di ListView
e numerosi OptionButton e CheckBox per filtrare le viste, il tasto
Aggiorna
richiama l'ultima vista con l'ulteriore filtro...forse poteva essere
fatto
più elegantemente ma, al solito, si aggiunge sempre qualcosa e poi ci si
perde
ciao grazie


 ha scritto nel messaggio
news:b2c30eed1ba2ebf0d87...@mygate.mailgate.org...

Per quanrto ne sappia se la sub risede in un modulo di classe puoi
utilizzare CalByName altrimenti se risiede in un modulo generico puoi
solamente chiamare delle function public con il metodo eval
Dim Ret
Ret = Eval("=MiaFunction()")
Ciao omnitow
Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con access2000





Vorrei sapere come posso utilizzare access 2000 con 
visual basic 6.


Se utilizzo un database creato con access 97 con 
vb6 tutto procede bene, se invece utilizzo access2000 mi viene chiesto di 
convertire l'archivio.



 wrote in message 
news:000801c0459f$bbbcc0c0$7a151997@it
...


 ha 
  scritto nel messaggio 
news:8tukea$ho3$1...@nslave2.tin.it
...


 wrote


Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi co Icone nei menu

Ciao a tutti,
    Ho un problema con la visualizzazione delle icone nei menu:
Utilizzo le API per inserire nei menu le icone da visulaizzar, ma il
risultato č che l'immagine si vede per 3/4 e non č disegnata.
La raccolta delle immagini che devo utilizzare le ho messe in un ImageList e
impostato le dimensioni per le immagini nel controllo a 13X13. Le immagini
sono dei Bmp. (le immagini di estensione ico, non mi vengono visualizzate).
Le bmp che uso sono quelle in ...
Microsoft Visual Studio\Common\Graphics\Bitmaps\TlBr_W95
del pacchetto di Visual Basic, New, Open, Save...)
Se qualcuno potrebbe darmi un consiglio lo ringrazierei tantissimo
Ciao a tutti.

 risultato è che l'immagine si vede per 3/4 e non è disegnata.


 risultato è che l'immagine si vede per 3/4 e non è disegnata.


 ha scritto nel messaggio
news:9cc8fb$csr25$6...@ID-87006.news.dfncis.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: vb6 -- quanti controlli ha un form ??

hello
scusate l'errore sul post precedente
come faccio a sapere quanti e quali controlli ci sono in un form ?
naturalmente non in fase di costruzione ,ma in esecuzione ?
leonello
grazie
leonello

 ha scritto 

Private Sub Form_Load()
    Dim j As Long
    For j = 0 To Me.Controls.Count - 1
        Debug.Print j, Me.Controls(j).Name
    Next
End Sub
->
 0        Data1
 1        List1
 2        Combo1
 3        Check1
 4        Option1
 5        Frame1
 6        Text2
 7        Text1
 8        Command1
ciao, a.

grazie1000
lo scopo finale e' quello di zoommare un form e tutti i suoi controlli cosi 
come facilmente si fa in excel o powerpoint con la proprieta userform.zoom 
che in VB6
non esiste.
leonello


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

Salve gente, c'è qualcuno che mi sa dire
se è possibile avere un elenco a runtime di tutti gli oggetti presenti ?
E' possibile in'oltre stampare il singolo oggetto ?
Grazie Luca
lm...@tin.it

 scritto nell'articolo
<01bda597$242a0420$b5b5d8d4@luca>...

Controlla sull'Help la classe Controls.
Per esempio specificando NomeForm.Controls(i%) utilizzerai il controllo
"iesimo" di "NomeForm".
Newsgroup: it.comp.lang.visual-basic
Titolo: Where can I Download VB?

Help me!
I need a new version of Visual Basic as mine (VB3) is really old.
Can anybody tell me where to download VB 3, 4, 5 or 6 from for FREE?
Andrew Chappell
MrLu...@yahoo.com

...


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

 
          come posso fare per copiare un dato file su un dato server , allo
spegnimento di un pc su cui gira win xp?
come si intercetta la chimata di spegnimento?
grazie
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 come si intercetta la chimata di spegnimento?
La chiusura di un applicativo genera un evento QueryUnload, che tu puoi
tranquillamente gestire.
A tale evento viene passato un parametro che indica *chi* ha richiesto lo
spegnimento. Se è il sistema operativo, puoi supporre che la chiusura sia
richiesta per arresto del sistema (beh, anche da task manager...).
Su MSDN trovi tutto.
Altrimenti, puoi schedulare l'esecuzione di un tuo .bat o .exe, nelle
operazioni di sistema. Ma questo non è più un discorso di vb.
Ciao
Alberto
--
E tutto mi sembrava andasse bene...

lo so avevo letto sul newsgroup un messaggio in cui si spiegava ciò, ma non
riesco a farlo funzionare nella mia applicazione
ho guardato anche siu msdn ma non ho trovato nulla
grazie



 Su MSDN trovi tutto.
forse e' intercettabile anche il taskman.
questa era una vecchia proposta di vb4u+me:
Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
'UnloadMode possibilities:
'0 The user has chosen the Close command from the Control-menu box on the
form.
'1 The Unload method has been invoked from code.
'2 The current Windows-environment session is ending.
'3 The Microsoft Windows Task Manager is closing the application.
'4 An MDI child form is closing because the MDI form is closing.
If UnloadMode 1 Then
Cancel = True
' free to continue with program
End If
End Sub
ciao, j.

 ho guardato anche siu msdn ma non ho trovato nulla
Bugia.
Alberto




 ha scritto nel messaggio
news:213Z206Z148Z225Y...@usenet.libero.it...


 forse non l'ho detto prima ma come sistema operativo ho xp
xp dovrebbe comportarsi come un nt.
ho fatto un vbp nel cui form1 c'e' solo questo codice:
Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    MsgBox "Unload Type: " & UnloadMode
End Sub
se lo chiudo con la x, prima di chiudersi da' 0
con taskman da' 2
ho fatto riavvia windows (2000), e da' 3
quindi e' in grado di comprendere.
se vuoi bloccare la chiusura, direi che devi mettere fra le istruzioni anche
cancel=true.
pero' non ho voglia di riavviare win. magari prova tu.
se invece del msgbox c'e' del codice, dovrebbe eseguirlo. non so cosa
succede se il codice compie operazioni lunghe. spesso quando chiudo windows
vedo le finestrine perche explorer o iexplorer o un altro programma non si
chiude...
in alternativa puoi sempre fare il batch e schedulare, come ti hanno
suggerito.
ciao, j.

 ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: VB e SQL

Non sono proprio esperto di SQL Server ma questo non lo capisco.........
Uso Interbase 6.0 e non riesco ad aggiornare un record del database:
Allora....... prima apro il database......
Dim DB As New ADODB.Connection, RS As New ADODB.Recordset
DB.ConnectionString = "Provider=SIBProvider;Location=localhost:;" & _
    "Data Source=" & CurDir & "\WTS.GDB;" & _
    "User Id=SYSDBA;Password=masterkey;"
DB.Open
e poi se faccio questo:
DB.Execute "update cli set documento='CIAO' where CODICE='C00002'"
funziona a meraviglia,
ma se faccio questo:
RS.CursorLocation = adUseClient
RS.Open "SELECT * FROM CLI WHERE CODICE='C00002'", DB, adOpenStatic,
adLockOptimistic, adCmdText
RS!documento = "CIAO"
RS.Update
Quando esegue Update mi appare questo errore:
Impossibile individuare la riga specificata per l'aggiornamento.
E' possibile che alcuni valori siano stati modificati dopo l'ultima
operazione di lettura.
Ho provato a cambiare il CursorLocation su adUseServer,
ma allora non dą errore, ma non aggiorna niente.
Ho provato a cambiare adOpenStatic in tutti gli altri possibili, ma niente.
Qualche idea ??????
Che sia proprio colpa del provider ????
Tutte le altre operazioni le esegue correttamente.............
Ciao
Sirjo


Ciao Sirjo,
ho avuto problemi simili con ADO ...
Prova a cambiare il riferimento da 'Microsoft ActiveX Data Objects 2.1
library' a 'Microsoft ActiveX Data Objects 2.0 library' piuttosto che
'Microsoft ActiveX Data Objects 2.5 library' ...
Ciao
Franco L.

 adLockOptimistic, adCmdText
*******************************+
devi usare adOpenDynamic non Static altrimenti il RecordSet è read-only
*******************************+


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

Salve a tutti, ho un piccolo problema con la MshFlexGrid. Vorrei caricare un
controllo di questo tipo e, in base ai valori contenuti nelle celle (0
oppure 1), sovrapporre ad ogni cella una immagine di un controllo imagelist.
L'istruzione che ho usato è qualcosa del tipo:
GrigliaStandard.CellPicture = Me.ImageList.Item(1).Picture
Il mio problema è che l'immagine non si sostituisce al contenuto della
cella, non ne copre il valore precedente.
Tengo a precisare che non posso cancellarlo questo valore perchè mi serve
per ordinamenti vari.
Qualcuno conosce qualche proprietà della MshFlexGrid o della ImageList che
possa aiutarmi in questo problema.
Vi ringrazio tutti anticipatamente,
    -Carlo-
c.sp...@effemme.com
spi...@interfree.it

per ordinamenti vari.
Dunque... intendi dire che hai il valore 1 oppure 0, ma vuoi mostrare
l'immagine invece del numero nudo e crudo?
Se fosse cosi', allora potresti usare due colonne: una visibile,
cohe mostri le immagini, e l'altra nascosta (da tenere sincronizzata
con quella visibile) contenente il valore usato per le elaborazioni. 
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: Scroll TreeView

Ciao,
situazione di partenza: TreeView con dentro gia' i nodi che mi
servono.
Lo spostamento di un nodo ad un altro non e' un problema e viene
eseguito perfettamente ma questo spostamento viene reso possibile solo
nella parte visibile della TV.
Come posso fare per prendere un nodo (in fondo all'alberatura) e
portarlo all'inizio? In pratica vorrei far scorrere la TV fino al nodo
interessato ma non ci riesco.
Spero di essere stato chiaro:S
Grazie millle
Ciao BlackSun

"BlackSun" ha scritto

Vedi se è quello che ti serve: SetTreeViewFirstVisibleNode
http://www.devx.com/vb2themax/Tip/18991
Bye, G. 

 Vedi se è quello che ti serve: SetTreeViewFirstVisibleNodehttp://
www.devx.com/vb2themax/Tip/18991
Grazie per la risposta... purtroppo mi sono spiegato male.
Quello che cercavo era questo:
Dim m_Ticks As Long
Private Sub TreeView1_DragOver(sender, e).............
            myTreeView = CType(sender, TreeView)
            pt = myTreeView.PointToClient(New Point(e.X, e.Y))
            myNode = myTreeView.GetNodeAt(pt)
            Dim ts As New TimeSpan(Now.Ticks - m_Ticks)
            If pt.Y < myTreeView.ItemHeight Then
                'if within one node of top, scroll quickly
                If Not myNode.PrevVisibleNode Is Nothing Then
                    myNode = myNode.PrevVisibleNode()
                End If
                myNode.EnsureVisible()
                m_Ticks = Now.Ticks
            ElseIf pt.Y < (myTreeView.ItemHeight * 2) Then
                'if within two nodes of the top, scroll slowly
                If ts.TotalMilliseconds > 250 Then
                    myNode = myNode.PrevVisibleNode()
                    If Not myNode.PrevVisibleNode Is Nothing Then
                        myNode = myNode.PrevVisibleNode()
                    End If
                    myNode.EnsureVisible()
                    m_Ticks = Now.Ticks
                End If
            End If
End Sub
Grazie lo stesso! :-)
Ciao BlackSun

 Grazie lo stesso! :-)
Io ci ho provato :-)
Bye, G. 

 Io ci ho provato :-)
Grazie lo stesso... la prssima volta devo essere piu' preciso!
Ciao BlackSun
Newsgroup: it.comp.lang.visual-basic
Titolo: stampa di 380!! campi





Devo eseguire una stampa con 380 campi. Ho crystal report 7 
che però sembra non ce la faccia. Ho pensato di scrivere su un file di testo la 
parte fissa del report, leggerlo e stamparlo assieme ai valori calcolati. Non so 
però come gestire i font e le dimensioni dei caratteri (non pretendo di ottenere 
un layout simile a quello ci crystal report, ma almeno riuscire ad avere 
caratteri formattabili (dimensione, grassetto..). Qualcuno sa darmi una 
dritta? Esiste forse già qlcosa (un ocx? o altro) che risolva questo 
problema? 


Grazie in anticipo per la vostra 
attenzione.



 ha scritto nel messaggio
news:001601c0a723$49631ca0$a47d1c97@foxy...

Da perfetto ignorante direi di usare i controlli dell'oggetto printer
printer.fontname, printer.font ecc.ecc.
PS: non postare in html... :-))
_____________________________________________
James Tiberius Kirk, matricola SC 937-076 CEC
  Nato a Riverside, nello Iowa, USA, Terra
            il 1277.1 (26/03/2233)

Newsgroup: it.comp.lang.visual-basic
Titolo: Lettore MP3

Ho iniziato da pochissimo a programmare in Visual Basic ed ho bisogno del
vostro aiuto. Ho scaricato dal Sito Comune il controllo MP3OCX.OCX, ma non
sono in grado di sfruttarlo a pieno. Il file di documentazione e' per Word
9x ed e' illegibile con il mio Wordpad. Sono comunque riuscito a leggere
qualche cosa, ma non ho potuto capire come si calcola la durata della
canzone ed il tempo percorso; inoltre non sono in grado di gestire la
Slider.
Chi mi spiega nel modo piu' semplice possibile cosa devo fare?
Vi prego, e' importante.
Grazie a tutti e buone feste.
Carmelo.

 wrote in message 84871b$e4u$2...@nslave2.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Qualcuno mi aiuti !

Vorrei sapere se qualcuno è a conoscenza della possibilità di far interagire
Visual Basic con Excel. In particolar modo la creazione di fogli di calcolo
su cui stampare i risultati di un codice Visual Basic per farne poi il
relativo grafico.    Grazie.

...


Newsgroup: it.comp.lang.visual-basic
Titolo: HELP: Schema cavo per Siemens C35i

Ciao a tutti, sto cercando lo schema elettrico del cavo per collegare il PC
al mio Siemens C35.
Se qualcuno ce l'ha, mi farebbe davvero un gran favore postandolo sul NG.
Volevo poi sapere se con il C35 va bene il software per l'S25 o se ce n'è
uno particolare.
Ciao
--
Marco Anelli
ane...@libero.it
turb...@infinito.it
ICQ#: 34172672

 ha scritto nel messaggio
news:hS0f5.40497$sE5.4...@news.infostrada.it...



No e' suffuciente anche il driver del modem generico da 9600 bps...
Qualche problema c'e per il fax perche e' riconosciuto come Fax classe 1
e non classe 2 come per la maggior parte dei modem
-- 
Sidewinder  
---------------------------------------------------------------------
I'll burn my books.
		-- Christopher Marlowe
---------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: help: Help Help

Nel mio programma, devo creare una stampa e sono collegato ad un  database
tramite un ODBC ma il mio problema è....
la data....
quando vado a stampare su Crystal la data mi viene in formato testo tipo
19981228 metre a me serve 28/12/1998 come posso modificarlo???
ringrazio in anticipo chi saprà aiutarmi
cordialità Gianluca
gvde...@iol.it

...

Visto il manifesto e le recenti discussioni dovresti (giustamente) ripostare
il messaggio intitolandolo:
[?] ODBC-Crystal Report: problemi di data
Ciao.

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] PopUpMenu e MDI Form

Ciao a tutti ho un problema con il popupmenu
Ho fatto un programma che ha una finestra mdi (con dei menu: file,edit
etcc..) e
una form settata come child che ha un menù non visible che uso come pop up
menu.
Quando passo dalla form mdi alla form child i menu della mdi scompaiono
(xchè entrano in
gioco quelli della child),
C'è il sistema per far si che ogni finestra si tenga i suoi menù (visibili o
meno) senza che interferiscano con quelli della mdi ???
Spero di essermi spiegato !??!?!?
Se qualcuno sa come potrei fare me lo faccia sapere xchè sto toccando
proprietà alla cieca !!
Un grazie a tutti !!!
Ciao, Alessandro

 wrote in message
10roftq$ddt$1...@fe2.cs.interbusiness.it...


Sicuramente e' un grosso limite. Io ho avuto lo stesso problema, e dopo ore
di ricerche ho optato per una soluzione "Artigianale" .... ho creato dei
"Pannelli" con i controlli della Sheridan (il pannello sarebbe come il frame
ma piu' bello graficamente) ed ho riprodotto in tutto e per tutto il menu
popup. Ricordati che se fai cosi devi regolare la proprieta' VISIBLE del
pannello (o frame) e anche la posizione di TOP e LEFT del frame, a seconda
di dove fai click con il mouse.
Ciao e Auguri...
Matteo

 ha scritto nel messaggio
news:10s290g$asc$1...@fe2.cs.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Formattare email con CDO

Devo inviare (e quindi ricevere) delle email formattate (testo in grassetto,
colorato, ecc...) tramite CDO (non MAPI!!).
Riesco a formattare il testo come voglio tramite una richtextbox, poi invio
la mail, la ricevo ma il formato del testo che ho impostato non viene
mantenuto... ho provato con le varie proprietà HTMLBody, HTMLBodyParts ma
invano...
qualcuno saprebbe risolvere il problema? è un pò che ci sbatto la testa...
:-((
ciao,
    mik

 colorato, ecc...) tramite CDO (non MAPI!!).
Le email formattate non sono altro che una pagina HTML.
Quindi crea una pagina HTML e invia quella... i programmi che lo supportano
la vedranno come email formattata.
Ciao

 ha scritto nel messaggio
news:a4mrg1$hpi$1...@newsreader.mailgate.org...


Ciao, il fatto è che l'unico modo che avrei di inviare una pagina html è
tramite allegato, che però (ho provato) arriva proprio come allegato, non
viene visualizzata nel corpo del messaggio!
Proverò a cercare qualche altra opzione che magari mi è sfuggita e comunque
grazie!
mik


 e-mail con allegati.
io ho fatto cosě:
nei riferimenti includi:
-Microsoft CDO for Windows 2000 library
-Microsoft ActiveX Data Objects 2.5 library
e poi:
****************************************************
    Dim cdo2configuration As New CDO.Configuration
    Dim cdo2fields As ADODB.Fields
    Dim cdo2message As New CDO.Message
    Set cdo2fields = cdo2configuration.Fields
    With cdo2fields
        .Item(cdoSMTPServer) = "nome_server_smtp"
        .Item(cdoSendUsingMethod) = cdoSendUsingPort
        .Update
    End With
    Set cdo2message.Configuration = cdo2configuration
    cdo2message.From = 
mitt...@pluto.com
    cdo2message.To = 
destin...@pippo.com
    cdo2message.Subject = "prova con attachment!"
    cdo2message.TextBody = "Testo del messaggio"
    cdo2message.AddAttachment "percorso_e_nome_file_che_vuoi_allegare"
    cdo2message.Send
****************************************************
ciao,
    mik

 viene visualizzata nel corpo del messaggio!
No no, mandala come solo testo ma con all'interno i tags!
Esempio:
 cdo2message.TextBody = "<html><body><b><i>Grassetto Corsivo
</i></b></body></html>"
Dovrebbe funzionare.
Prova con Outlook a mandare a te stesso un messaggio in solo testo con
all'interno del messaggio questa stringa, senza ""
"<html><body><b><i>Grassetto Corsivo </i></b></body></html>"
E vedrai il risultato :)
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: <no subject>





Ciao  a tutti, iosto cercando 
dei manuali scaricabili da internet che introducono Visual Basic e il C++! Se 
percaso avete siti internet da cui si possono scaricare me li segnalate? 
Grazie!


    
                
        By Unoz


e-mail: 
be...@freesurf.ch



 wrote in message
news:000801bfe450$c2d1a8e0$3382e6c2@zizzi...

Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con API e WIN 2000

Ho incontrato problemi imprevisti con l'API di Win '2K e vorrei un vostro
parere sulla faccenda.
In un'applicazione piuttosto complessa, ho necessità di nascondere a Runtime
i pulsanti di chiusura/ridimens. di alcune Form ... per ottenere ciò mi
affidavo al seguente codice con Win '98/ME:
Public Const GWL_STYLE = -16
Public Const WS_SYSMENU = &H80000
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As
Long
Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
'Nasconde i pulsanti di chiusura di una finestra
Public Sub ModifyAppWind(wChildWnd)
    Dim wParentWnd%
    wParentWnd = wChildWnd
    Dim PrevWinStyle As Long, NewWinStyle As Long
    PrevWinStyle = GetWindowLong(wChildWnd, GWL_STYLE)
    NewWinStyle = PrevWinStyle And Not WS_SYSMENU
    PrevWinStyle = SetWindowLong(wChildWnd, GWL_STYLE, NewWinStyle)
End Sub
All'interno della form bastava chiamare: ModifyAppWind Me.hwnd
Ora, con Win 2000 non funziona: segnala Overflow su wParentWnd = wChildWnd
Conoscete un'API funzionante sotto tutte le realese di Win che ottenga
l'effetto desiderato?
Altra faccenda:
Shell "rundll32.exe shell32.dll,Control_RunDLL main.cpl @2"
Normalmente fa apparire la comodissima finestra di selezione stampanti.
Anche in questo caso Win '2k mi risponde picche ... qualche idea?
Ciao a tutti, Simone

 Overflow su wParentWnd = wChildWnd
wParentWnd è dichiarato come Integer(%). Va invece dichiarato come Long.
Ciao.

 wParentWnd č dichiarato come Integer(%). Va invece dichiarato come Long.
E' beh ... a volte ci si perde in un bicchier d'acqua :-)
Molte grazie!
Ciao, Simone

Newsgroup: it.comp.lang.visual-basic
Titolo: -> connessione a internet senza Accesso remoto

c'e' un modo x connettersi a internet senza Accesso remoto.
Siccome sto realizzando un programma x email,vorrei che quando c'e' da
inviare/ricever un email,non si aprisse la finestra con NomeUtente e
Password,ma che la connessione venisse gestita dal programma stesso.
Si puo'?
Rispondetemi sul NewsGroup
(pultroppo c'e' gente che ha il vizio di farlo x email)

certo che si puň.....il problema č che dovresti gestire da capo a piedi il
protocollo TCP/IP.
in vb credo che sia abbastanza difficoltoso e lento, mi sa che ti conviene
continuare a usare il buon vecchio Accesso Remoto......se no usa visual c++.
Damiani Igor
ico...@simcity.it
<le...@no.spam> wrote in message news:38bfdb46...@news.libero.it...


nopn è per niente difficile
basta usare le connessioni con RASDIAL .
naturalmente devi sapere nomeutente e password dell'abbonamento!
Vedi sul sito comune le piccole perle
--
farlo x email)
Newsgroup: it.comp.lang.visual-basic
Titolo: Stato connessione database

E' possibile sapere se un database è aperto da un altra applicazione o 
utente?
Ciao
Luca 

Luca ha scritto:

Di che database stai parlando....?
Access genera un file LDB, mentre SQL_Sevrer tramite una SP nativa
ti può restituire il numero di connessioni aperte( se non ricordo male
"exec sp_who" o "exec sp_who2")
Cosa intendi tu...?
@Alex

Newsgroup: it.comp.lang.visual-basic
Titolo: dao e ado

mi spiegate che differenza c'è tra dao e ado?
grazie
andrea

Newsgroup: it.comp.lang.visual-basic
Titolo: Array con indici negativi

ho la necessit� di utilizzare indici negativi all'inteno di Array, � 
corretto quanto ho scritto sotto?
Ho fatto delle prove e mi funziona tutto ma volevo sapere un parere vostro.
Grazie.
dim Valori(-10 To 20) as Long
Valori(-10)= 1234
Valori(-9)= 5678
.........
Valori(20)=987

 Valori(20)=987
In 
VB.NET
 non ti funzionerebbe (se ricordo bene la base � sempre e solo 0),
per il resto va bene, se ti serve in quel modo.

Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal Reports

Devo usare la selectionformula per stampare dei record da data a data.
Qualcuno mi sa  dire come si scrive la select con la grammatica giusta in
modo che mi riconosca le due date?
Gli intervalli sono 2 Maskedbox.
grazie mille stefano

--> C.R legge le date in questo formato: AAAA,MM,DD per cui:
strData = "({Fatture.DFattura} >= " & cryData(0) & ")"
--> Io ho creato una funzione che converte le date come piaciono a CR:
Function cryData(dteData As Date) As String
  cryData = Year(dteData) & "," & Month(dteData) & "," & Day(dteData)
  cryData = "Date(" & cryData & ")"
End Function
Stefano <stefano...@NOSPAMlibero.it> wrote in message
91qitp$a3b$1...@news.IT.net...

Newsgroup: it.comp.lang.visual-basic
Titolo: VBAjet e Windows 95. Urgente. Per Favore

Ripeto la domanda perchè veramente urgente.Scusate!
Creo un'applicazione con visualbasic 5.0 (ho installato anche il 6.0 con
relative librerie aggiornate,quindi) e mi funziona perfettamente con windows
98 (ci sono archivi Access). Quando però la installo su windows 95
(attraverso la procedura di installazione) all'apertura degli archivi
ottengo sempre:
"Inizializzazione del file VBA di Jet (VBAJet.dll o VBAjet32.dll) non
riuscita alla chiamata....errore runtime 3447"
Cosa vuol dire ? Cosa devo fare per farlo girare ?
HELP!!

Il problema è legato al fatto che hai installato VB6, aggiornando i
files VBAjet*.dll con le nuove versioni distribuite. Poi lo hai
disinstallato (mi sbaglio?) ed hai reinstallato VB5...
Ho fatto anche io questa stronzata...
Ed ho perso un casino di tempo...
Cosa ho fatto?
Ho eliminato a manina tutti i files legati alla gestione di Access,
eliminato a mano le chiavi dal registry, disinstallato Office, VB5, e
tutto ciò che poteva utilizzare Access...
Ho eseguito il 'setup' di W98 (da Windows, per ripristinare i files
danneggiati e/o mancanti), quindi ho reinstallato Office, VB5 con SP3
e quant'altro...
Facile, no? Solo un paio di giorni di lavoro...
--
GbC
--
PS:
Le release PARI dei linguaggi M$ in genere non sono affidabili.
Perché? Non lo so perché... ma basta pensare a VB3 e VB4... VB6 non
sfugge a questa regola. Programmo professionalmente ed ho tutte le
versioni di VB, oltre i vari C, C++, VJ, ecc.; finché non ci sarà un
release 'solida' di VB (spero nella 7) userò la 5.

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

Premetto che mi capita solo su un PC
Ho creato un programma VB6 utilizzando i controlli ADO
Su un PC su cui ho installato il programma, mi capita che le caselle testo e
i combo che fanno riferimento a controlli ADO non visualizzino i dati
cioč cliccando sui pulsanti di scorrimento il recordset va avanti ma i dati
non vengono visualizzati.
ovviamente aprendo i combo, questi sono vuoti.
Sicuramente il programma di installazione non č riuscito ad aggiornare
qualcosa... ma cosa?
sapete dirmi come riparare?
Grazie
Alberto

 wrote in message
7j7t3n$nog$1...@nslave1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Sostituire un carattere in una stringa

Ciao a tutti.
In VBA  ( che sposterà pochino dal VB6  per questa cosettina ) ho bisogno
di sotituire tutti i caratteri  * con  %    e   ?  con  _)  per analogia
con un altro programma realizzato in LPG (linguaggio procedure grafiche
che usano in ditta), LPG non RPG che non c'entra niente.
Quanto sopra sposterà ben poco dal seguente esempio che risolto questo ho
risolto tutto:
in visual basic se uno mi digita in una stringa di testo
  s   =  "Precipitevolissimevolmente"     
lo devo far diventare sostituendo tutte le e in delle X
  s   =  "PrXcipitXvolissimXvolmXntX"     
Se qualcuno ha in mente qualche funzione........
grazie 
Indriano
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Se qualcuno ha in mente qualche funzione........
Scrivo al volo:
  s   =  "Precipitevolissimevolmente"     
For i=1 to Len(s)
  If mid$(s, i, 1)= "e" Then  mid$(s, i, 1) = "X"
Next
--
ciao
  Stefano

   Stefano
Grazie Stefano,   hai scritto al volo ma hai scritto anche bene !!!!
Va da Dio.
Sicuramente sei maggiormente assiduo al visual basic di me.
Io faccio programmazione saltuariamente  quando devo risolvere dei
problemi orientati solo a me stesso.
Ciao


 Next
Replace non la conosce nessuno?
s = Replace(s, "e", "X")
Bye
Raf
-----------------------------------------------------
Funk: cooler than the other side of the pillow.

s = Replace(s, "e", "X")
In VBA non ero sicuro che ci fosse, (in VB5 non c'č) cosě per andare sul sicuro
ho usato Mid$
--
ciao
  Stefano


Volevo essere ironico... ;-) ma ho dimenticato la faccina!
Comunque Replace esiste da VB6/VBA di Office 2000 mi pare.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Database

Ciao a tutti!
Sto studiando il M$ Jet, (mi conviene?) o c'è di meglio?...
Dato che ho il manuale in inglese, non son riuscito a capire a cosa servono
le QUERY(SQL) e cosa vuol dire il manuale per quanto riguarda le RELAZIONI?
Grazie a chi mi rispondera'. Agli altri no.


Date le premesse (le tue domande)...
PRIMA studiati i database, cosa sono, a cosa servono, come li si interroga
(il linguaggio SQL).
Decisamente sei partito col piede sbagliato.
Stai cercando di costruire una automobile quando non sai nemmeno a cosa
servono i freni. (non so se il paragone rende)
I concetti di database relazionale, schema, tabelle, record, campi,
relazioni, query, SQL etc... sono universali nel mondo dei database; il JET
e' solo il motore di Access, quindi una parte ben piu' piccola di quel
mondo.
Inoltre, se non hai almeno una vaga idea del mondo dei database, non
riuscirai a comprendere nemmeno JET e Access, a livello di sviluppo del
software.
SQL: Structured Query Language (linguaggio strutturato di richiesta), e' il
linguaggio standard utilizzato per "costruire" i database e per
"interrogarli", ossia richiederne i dati voluti.
Es. in SQL la richiesta "SELECT * FROM Tabella1 WHERE Campo1 = 100"
significa dammi tutti i record della Tabella1 che hanno il valore 100 nel
Campo1.
Le relazioni... sono un po' complesse da spiegare.
Direi proprio che dovresti fare una visita al tuo libraio di fiducia.
Per l'SQL dovrebbe esserci un libro della McGraw-Hill.
Se vuoi farti del male (scherzo...) un libro un po' "tosto" e'
"basi di dati"   p.atzeni,s.ceri,s.paraboschi,r.torlone   McGraw-Hill
buono studio :-)
--
Roal Zanazzi
z...@iol.it


Errore grave !  Il JET e` il motore Microsoft x desktop database,
xcio` e` il motore di Access, di VB, di VC++, di VJ++ ecc. ecc.

...

Ufffhh, si', hai ragione, era una semplificazione fuorviante (grazie per la
nota correttiva) ...
Come se dicessi che il BDE e' il motore di Paradox!
Comunque il concetto da me espresso rimane corretto. Il JET non e' il mondo
dei database.
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Funzione AddRows per matrici con CopyMemory; non va

Ciao a tutti. Chi mi sa dire perchè il seguente codice non va?? Eppure
mi pare tutto in regola
Private Type CellProperty
    N As Long
    W As String * 1
End Type
Private Type Table
    '...
    Rows As Long
    Cols As Long
    Cells() As CellProperty
End Type
Private TB As Table
Public Sub AddRows(ByVal InsertAfter As Integer, ByVal HowMuch As
Integer) 'Se InsertAfter = 0 inserisce le righe all'inizio.
Dim i As Long, j As Long, k As Long, L As Long
    If (InsertAfter < 0) Or (InsertAfter > TB.Rows) Or (HowMuch < 1)
Then Err.Raise 380: Exit Sub
    ReDim M(TB.Rows + HowMuch, TB.Cols) As CellProperty
    If InsertAfter > 0 Then
        L = Len(M(1, 1)) * InsertAfter
        For i = 1 To TB.Cols
            CopyMemory M(1, i), TB.Cells(1, i), L
        Next
    End If
    If InsertAfter < TB.Rows Then
        L = Len(M(1, 1)) * (TB.Rows - InsertAfter): j = InsertAfter +
1: k = j + HowMuch
        For i = 1 To TB.Cols
            CopyMemory M(k, i), TB.Cells(j, i), L
        Next
    End If
    TB.Rows = TB.Rows + HowMuch
    ReDim TB.Cells(TB.Rows, TB.Cols)
    TB.Cells() = M(): Erase M()
    '...
End Sub

Ho risolto! Navigando sul Forum ho trovato il suggerimento di passare
i primi due argomenti di CopyMemory in questo modo: Byval
VarPtr(Argomento), e sembra che funzioni!
Newsgroup: it.comp.lang.visual-basic
Titolo: Forma del cursore

Salve, volevo chiedervi : c'e' un modo per modificare la forma del cursore
(per esempio su un textbox o in genere su tutti i controlli che lo
gestiscono) ?
Grazie

Carmelo R. ha scritto:

  la risposta è sì
se guardi bene nelle proprietà degli oggetti troverai
mouse icon
se non erro

 ha scritto nel messaggio
news:KI0w8.63564$m41.1...@twister2.libero.it...


     e poi scegliere con la prop. MOUSEICON l'icona.
Non l'icona, il cursor (.cur).
Ha lo stesso formato di un'icona, ma ha definito anche l'hot-spot.
Ciao

 > Devi prima settare a 99 la proprietà del controllo

Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Crystal report e Win95

Non riesco ad installare un programma che utilizza Crystal Report su un PC
con Win95 prima versione. Mi dice che non riesce a registrare Crystal32.ocx
Cosa devo fare?
Grazie
Gabriele F.

 con Win95 prima versione. Mi dice che non riesce a registrare
Crystal32.ocx
significa che nel computer target non ci sono tutti i file necessarie e che
questi non sono nemmeno nel tuo pacchetto di installazione...
ti consiglio di cercare sul sito 
http://support.crystaldecisions.com
 la
lista dei file necessari all'installazione..
HTH
--
Stefano Zamboni 
sz...@libero.it
Legge di Tussman:
Niente è inevitabile come un errore il cui momento è giunto.
Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto: come riconoscere se il db a cui mi connetto è locale o no?

Ciao a tutti!
Ho una rete di 5 pc, uno di essi funge da server sql,  e tutti e 5 lanciano 
un'applicazione VB6 che risiede nel server, un semplice database clienti.
Avrei bisogno di gestire la modalit� di accesso al database, utilizzando la 
propriet� CursorLocation della ADODB.Recordset: per fare ci�, ho necessit� 
di sapere a runtime se il database che sto per interrogare � remoto (come 
nel caso dei 4 pc), oppure locale (se la query la effettua il pc che fa da 
server): come posso ricavare questa informazione?
Vorrei impostare CursorLocation = adUseClient ogniqualvolta rilevo che il pc 
da cui parte la query ha il databse in locale, e CursorLocation = 
adUseServer nel caso opposto, ossia quando la query parte da un pc 
remoto...gestire correttamente questa cosa, da prove fatte, aumenta 
notevolmente la velocit� di molte operazioni...
Grazie,
Luke

 notevolmente la velocit� di molte operazioni...
Non conosco il DB, ma concettualmente io uso i cursori a seconda di quello
che mi serve, ovvero non imposto quasi mai la propriet�, che di default va
su adUseServer.
Ma la imposto a Client ad esempio se ho bisogno di recordset disconnessi in
memoria.
Pero io lavoro sempre recuperando i dati, disconnettendomi, e poi salvando
le modifiche con Command SQL.
In quali fai hai riscontrato rallentamenti?

 posso ricavare questa informazione?
Mi pare che nel percorso di rete ci sia sempre la sottostringa "\\"
Vverifica che nel percorso del database no sia la sottostringa "\\"  quello 
� il server
-- 
Greg 

 Luke
......chiedersi il perchè casomai non farebbe male!
Grazie al piffero che un cursore locale "sembra" andare più
veloce...chiediti cosa fa AdUseClient ed hai la risposta!
La domanda casomai sarà: nel caso che ho "tanti" dati sulla mia
tabella....perchè se uso i cursori client sulla tabella
clienti....rallenta tutto anche internet???
La normalità sarebbe usare i cursori "locali" anche sulle macchine in
rete...ed ottimizzare il database!
In dotNet non avresti codesta "pruderia": ammessi solo record
disconessi...locali....
e ciò ti obbligherebbe a concentrarti sul tuo database!...che
probabilmente è ottimizzato alquanto poco!
....Non mi dire che alle postazioni in rete fai chiedere al server
tutta la tabella clienti più volte perchè ti plonko all'istante! :P

 � il server
Tranne che non sia un percorso di rete mappato, tipo Z:\Dati, che poi
dipende dal DB la connectionstring come deve essere.
Newsgroup: it.comp.lang.visual-basic
Titolo: problemino con errore 3709

Ciao
praticamente ho il mio progetto che ho spostato di recente da un server
 ad un altro, con tutta la cartellina
e mi sono accorto che non mi parte più la connessione al db
mi da un errorino del tipo:
"
Errore di run-time 3709
Connessione chiusa e non valida in questo contesto. Impossibile
utilizzarla per eseguire l'operazione" 
il fatto è, che sullo stesso server, c'è un'altra cartellina con lo
 stesso progetto, in una versione + vecchia, e funziona
partendo dal presupposto che non ho modificato nulla che dovrebbe
 influenzare la connessione al db, da cosa può essere generato
 quell'errore?
cosa mi sono perso durante i vari traslochi? :)
thanks

 scrisse:

trovato grazie, il problema sta in un file .dat usato x la connessione
che non si sa come, si rovina a seconda di dove viene lanciato,
 sovrascrivendo qualcosa... insomma devo analizzare meglio il progetto
 :p
-- 
SCIRIO - 100% COMMERCIALE - 8 9 2 Z - 8 9 2 Z
http://scirio.altervista.org
http://moofushi.altervista.org
http://ihu.altervista.org
http://x-privat.org
 
http://scirio.altervista.org/cinema/

Newsgroup: it.comp.lang.visual-basic
Titolo: cancellare tanti record in una botta sola....

tutto felice del mio super distruttivo codice:
 rs.MoveFirst
    For nn = 0 To rs.RecordCount
        rs.Delete
        If rs.EOF Then Exit For
        rs.MoveNext
    Next nn
    rs.Update
al 250º record mi dice:
"Informazioni sulla colonna chiave insufficienti o errate. Troppe righe
interessate dall'aggiornamento."
cmq i record da cancellare dovrebbere essere intorno ai 5000
--
____________________________
   G 1 0 X®
Web: 
www.giox.net
Alt. Mail: 
info...@libero.it
Icq Uin: 47698601
Irc Chan. @azzurranet:
   #mhackerone; #ahccc; #linux;
   #hackers-it; #programmatori
_____________________________


dim con as adodb.connection
...
...
...
con.execute "DELETE FROM MIATABELLA WHERE"
ciao
ugo

 interessate dall'aggiornamento."
A parte che per questo tipo di operazioni è senz'altro meglio un'istruzione
SQL, vediamo di capire il problema.
Probabilmente ti va in errore perchè fai una MoveNext su un record
cancellato.
Prova così
rs.MoveFirst         'casomai fosse oltre l'EOF
Do While Not Rs.Eof
    rs.MoveFirst
    rs.Delete
Loop
rs.Update ' ??? a che serve?
Ciao

 ugo

 dim con as adodb.connection
on dirait: ado, c'est une con-nerie :)
j.oue

 wrote in message
YvSa8.18050$Jo.5...@twister2.libero.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: AAAARGHHHHH!!!!!! Problemi CON VB5 IN NT!!!!

Naaaa!!! Ho cambiato sistema operativo ... da win98 a NT!
E non riesco piu' a utilizzare nessun componente ocx!!!
Se apro un nuovo documento e faccio clic destro sulla barra degli
strumenti e scielgo componenti mi da il seguente messaggio d'errore:
Classe non registrata.
Si sta cercando di l'oggetto con CLSID:
{0002E005-0000-0000-C000-000000000046 }.
Datemi una mano vi prego!!!!
grazie, grazie
Werewolf: "Questo e' l'ultimo colpo lo sento"!
gio...@iol.it

- Disinstalla vb5
- reinstallalo con le opzioni minime
- aggiungi successivamente i controlli che ti servono dal setup
Edoardo

Newsgroup: it.comp.lang.visual-basic
Titolo: Riferimenti Excel

Ciao a tutti,
mi sapete dire quale riferimento devo caricare nel mio progetto .vbp che
contiene queste righe di codice ?
*****************************
Set appAccess = CreateObject(Access.Application.8)
appAccess.OpenCurrentDatabase AppPath & "\nomeDB.mdb"
appAccess.Docmd.OutpuTo acOutputQuery, "Stampa_01_xls" acFormatXLS,
Work_RPT & "REPORT.XLS"
*****************************
In pratica questa parte di programma deve creare un file Excel, rilevato
da una query di database.
L'errore che mi da è il n. 429 (l'ActiveX non può creare l'Oggetto), ma
mi sembra di aver creato tutti i riferimenti corretti.
Un grazie per l'aiuto a tutti.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

il riferimento dovrebbe essere "Microsoft Access 8.0 Object library"
ma se aggiungi il riferimento ti conviene cambiare il codice...
 *****************************
dim appAccess as Access.application
Set appAccess = New Access.Application
 appAccess.OpenCurrentDatabase AppPath & "\nomeDB.mdb"
 
 appAccess.Docmd.OutpuTo acOutputQuery, "Stampa_01_xls" acFormatXLS,
 Work_RPT & "REPORT.XLS"
 *****************************
se tra i riferimenti non hai la versione 8.0 bensi la 9.0 o la 10.0 metti
quelle che funziona lo stesso.
--------------------------------
Inviato via 
http://usenet.libero.it

 contiene queste righe di codice ?
senza inserire nessun riferimento prova questo codice:
Option Explicit
Dim appAccess As Object
Private Sub Command1_Click()
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase "c:\temp\parametri.mdb"
appAccess.Visible = True
'******************
'Msgbox "se appaio va bene"
' codice vario
'******************
appAccess.quit
Set appAccess = Nothing
End Sub
beppe

Funziona modificando la riga 
Set appAccess = CreateObject(Access.Application.8)
e cambiando l'8 con il 9.
Grazie mille per l'aiuto.


 
usa questa
Set appAccess = CreateObject(Access.Application)
anche se mi verrebbe di usarela sintassi cosi' 
Set appAccess = CreateObject("Access.Application")
in queste maniere ti svincoli dalla versione di Access
Newsgroup: it.comp.lang.visual-basic
Titolo: C#/VBnet Scrittura file INI che non scrive correttamente \

Sto cercando di scrivere una configurazione su un file ini
Per la scrittura uso la solita WritePrivateProfileString:
 
[DllImport("kernel32", CharSet = CharSet.Unicode)]
static extern long WritePrivateProfileString(string Section, string Key, 
string Value, string FilePath);
 
public void Write(string Key, string Value, string Section )
    { WritePrivateProfileString(Section, Key, Value, Path);}
 
Bon funziona tutto ad eccezione di quando tento di scrivere come Value 
una directory con i backslash del tipo c:\peppe\mariuccia
I caratteri \ (dec 92) contenuti nella stringa passata al parametro 
Value vengono probabilmente interpretati come fine stringa e nel file 
ini mi ritrovo un CR (dec  13)
Come l'e' sta roba qua?
 


E' una vita che non uso quelle funzioni ma è probabile tu debba fare l'escape dei \ in \\
 
Detto questo, hai qualche requisito di retrocompatibilità particolare che ti costringe ancora ad usare gli INI? perchè tra xml serializetion e altro, puo fare le stesse cose con 4 righe e meno mal di testa (vedi altro topic con trigger dell'antivirus)


Si, so che da qualche anno sono in disuso
Mantengo gli ini perche' comodi da modificare anche a mano con un 
qualsiasi editor
Dici che scrivendo su un xml posso replicare rapidamente le funzionalita 
ReadIni / WriteIni ?
 

 ReadIni / WriteIni ?
 
Diciamo che la bellezza è avere i tuoi dati belli strutturati in una classe (e quindi già tipizzati, non tutte le volte stringhe da convertire), e poterli leggere/scrivere in un colpo solo, invece che dover sempre ragionare per sezioni/chiavi ecc..
 
Il codice per la gestione effettiva del file è, di base, sempre lo stesso
 
'Scrivi
Dim fs As New IO.FileStream("IlTuoFile.xml", IO.FileMode.Create)
Dim serializer As New Xml.Serialization.XmlSerializer(GetType(LaTuaClasse))
serializer.Serialize(fs, IlTuoOggetto)
fs.close
 
'Leggi
Dim fs As New IO.FileStream("IlTuoFile.xml", IO.FileMode.Open, IO.FileAccess.Read)
Dim serializer As New Xml.Serialization.XmlSerializer(GetType(LaTuaClasse))
Dim IlTuoOggetto As LaTuaClasse = CType(serializer.Deserialize(fs), LaTuaClasse)
fs.Close
 
e lo puoi applicare a qualunque tua classe marcata come <Serializable> e le cui proprietà pubbliche siano di tipo appropriato
 
In più, mantieni la comodità dell'editarli a mano come testo

Newsgroup: it.comp.lang.visual-basic
Titolo: Deactivate:era intercettare minimizzazione etc.


L'avevo fatto, ma l'evento deactivate non "parte"
quando si attiva un processo esterno.
Cito dall'help in linea:
"Gli eventi Activate e Deactivate vengono generati solo quando viene
spostato lo stato attivo in un'applicazione. Lo spostamento dello stato
attivo da o su un oggetto di un'altra applicazione non genera nessuno dei
due eventi. "
Comunque grazie ancora.

...

E' vero, hai ragione.
Chiedo scusa.
Ciao.