mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Update in Janus Grid

Allora, c'ho un problema relativo al metodo .Update di un Janus Grid 2000 
(denominata GridEX1)
All'interno di una procedura ho il seguente codice:
 Dim frm As New FrmMiaForm
 rs.Open "SELECT * FROM TABELLA", ActiveConnection:=cnx
 Set frm.GridEX1.ADORecordset = rs
            frm.GridEX1.ReBind
        frm.Show vbModal
'la griglia nella form presenta una colonna con una CheckBox
'per selezionare/deselezionare il relativo record ed un
'pulsante che chiude la form stessa e permette
'alla procedura di proseguire sino alla fine.
'Ora, in frm ho inserito il seguente codice per l'update:
Private Sub GridEX1_Change()
    SendKeys "{ENTER}"
    Me.GridEX1.Update
End Sub
ma che non funziona. Meglio, a volte funzione, altre no.
Se esco dal debug a questo punto e verifico la tabella relativa, essa appare 
scritta correttamente eppure la procedura stessa spesso arriva alla fine non 
tenendo conto delle modifiche apportate nella Grid.
Se ripeto la procedura una seconda volta, le modifiche operate la prima 
volta sono viste ed il risultato restituito � corretto.
Nota:  ho provato a settare la propriet� AutomaticArrange su Form_Load ma 
senza risultato
Dove sbaglio? C'� modo di risolvere?
Grazie per qualsiasi aiuto.
eSQueL 

 ha scritto nel messaggio 
news:ElkJl.307669$FR.6...@twister1.libero.it...
Per chi fosse interessato, ho risolto rendendo Public il recordset della 
Grid e spostandolo in un modulo bas.
Ciao :)
eSQueL

Newsgroup: it.comp.lang.visual-basic
Titolo: problemi " crystal32.ocx"

Ciao a tutti
Quando provo a installare il mio programma su un computer mi viene fuori che
č impossibile installare questo file " crystal32.ocx" sapete perchč??
Grazie ciao

 Grazie ciao
che installer usi?
crystl32.ocx ha un sacco di dipendenze. Io personalmente uso visual
installer e crystal reports 8.5 e non ho problemi di nessun tipo.
L'unico problema l'ho riscontrato su un sistema win98 pulito pulito: prima
di fare l'installazione del software, ho dovuto aggiornare windows installer
alla versione 2.0, altrimenti mi falliva il setup con il messaggio che è
capitato anche a te.
good coding!!!
-- 
Alletun
"Io lo so che accadrà. La voce sussurra nei miei pensieri
di Jair, Rone, Allanon e soprattutto nelle Mortombre.
Sussurra segreti che mi sono tenuti nascosti, nella grigia
oppressione di questo giorno e nell'oscurità caliginosa
di quello che mi aspetta.
Saremo distrutti. Tutti."
Brin Ohmsford - La Canzone di Shannara - T. Brooks

 ha scritto nel messaggio
news:yh38c.7138$jY1....@tornado.fastwebnet.it...

Devi registrare la libreria Implode.dll che il pacchetto di installazione di
VB mette, erroneamente nella directory del tuo programma, anzichč nella
System32 del sistema operativo.
Ciao, Vincenzo
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] BYTE is back!

Scusate l'OT, ma forse a qualcuno interessa.
BYTE, la rivista USA di information technology che preferivo, ha
chiuso i battenti circa una anno fa. Probabilmente era troppo
orientata ai professionisti dell'IT per vendere abbastanza (nel senso
che non c'erano prove di batteria su 450 PC da 3 milioni e simili ma
si trovava scritto cos'è il Microsoft Transaction Server un annetto
prima che sulle riviste di massa qualcuno se ne accorgesse...).
Ora BYTE ha riaperto come rivista on-line all'indirizzo 
www.byte.com
Si spera che il livello resti alto, in ogni caso spero di fare cosa
gradita a qualcuno con questo messaggio.
Ciao a tutti.
--------------------------------------------------------------------
Fulvio Senore
Eliminate "zz" dall'indirizzo e-mail per scrivermi (spammers...)
Remove "zz" from e-mail address to write me (spammers...)
--------------------------------------------------------------------

Perche', se ne sono accorti ? ;)
Alessandro Scardova
scar...@tin.it
http://space.tin.it/computer/ascardov/
Fulvio Senore ha scritto nel messaggio

Newsgroup: it.comp.lang.visual-basic
Titolo: Sintetizzatore

Ciao a tutti
C'è qualcuno che sa come si può fare a convertire una stringa numerica in
toni multifrequenza (quelli dei telefoni)? Io lo faccio con Soundforge, ma
vorrei automatizzare l'operazione in un form...
Grazie
DEGRA

Ciao Begra (miiiii)
Prova a preregistrare e salvare i suoni in piů file wave e farli eseguire a
comando con i 10 command button...
Ho detto una cazzata?
Ho tirato a indovinare? Si puň fare??
Rispondeteci!
Matteo
Newsgroup: it.comp.lang.visual-basic
Titolo: puntatore mouse

Salve a tutti.
Mi servirebbe un semplice programmino che muove automaticamente il puntatore
del mouse magari per un certo periodo di tempo. Qualcuno saprebbe suggerirmi
come fare?
Grazie
--
davser - 
dav...@libero.it
 - 
http://davser.cjb.net
---->>> Wapsite: 
http://space.tin.it/io/anserro/index.wml
 <<<----
ICQ 19930061

Questa API fa al caso tuo:
Public Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos"
(ByVal x As Long, ByVal y As Long) As Long
Assieme ad un controllo timer puoi fare quello di cui hai bisogno
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Sulla creazione di controlli ActiveX

Ciao a tutti.
Dunque, nel mio programma per le offerte ho un form che devo dividere
in 2 parti. Piuttosto che usare quella abominevole riga nera --o
colorata-- che costituisce il controllo line, ho messo 2 linee
affiancate, utilizzando i colori di sistema in modo che fosse uguale
alle linee che fanno da bordo ai controlli frame.
Poi mi sono detto "figa, con tutte le volte che ho dovuto fare sta
cosa, se in 2 ore creo un controllo ActiveX, ho risparmiato un sacco
di tempo e posso tirare via tutte quelle brutte righe nere che ho
usato fino ad oggi". E ho preso la --malsana-- idea di creare, per la
prima volta nella mia vita, un controllo ActiveX. Ho cercato in rete e
ho trovato un sito dove e' stato copiato pari pari il sesto capitolo
di non so che libro per Visual Basic 6 --forse Creating ActiveX
Controls with Visual Basic 6 o qualcosa del genere-- come preview per
l'acquisto del libro --che non prendero', per il momento-- e ho letto
con interesse il capitolo, chiaro ed efficace.
Il problema, pero', e' che forse ho cominciato con un controllo un po'
sfigato... Infatti, quando si disegna una linea col controllo line, si
clicca per fare il primo estremo e si trascina per fare il secondo.
Finito il disegno della linea, per selezionarla e' necessario cliccare
su un estremo o su un punto della linea --riuscendoci: se e' obliqua
e' raro farcela--. La mia linea, invece, viene disegnata trascinando
il rettangolo che la conterra' e dopo viene selezionata cliccando in
qualsiasi punto all'interno di questo rettangolo. Inoltre, cosa ancora
piu' spiacevole, il rettangolo non riesco a stringerlo design-time
--trascinandone i quadretti come si fa coi Command Button-- fino a
farlo largo solo 2 pixel, perche' e' una misura non disponibile quando
si disegnano controlli agganciati alla griglia. Il secondo problema lo
posso risolvere forzando larghezza e/o altezza del controllo quando
intercetto l'evento resize, mentre rimango il problema che per
selezionare la mia linea vorrei dover cliccare su un estremo o su un
punto della linea piuttosto che su qualsiasi punto del rettangolo che
la contiene.
Spero di essere stato sufficientemente chiaro =)
Vi ringrazio, come sempre, in anticipo.
Saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 242, 152
  VBR - Vero Birro Romagnolo®, diffidate dalle imitazioni!
 Opel/ECC Calibrezio EVO-IV --- Kawasaki "Gas Gas" ZZ-R 1100
 ICQ# 36893168 - IRCNet: bugbarbeq, @ on #linux-it & #NetBSD

Ho letto ma sinceramente ho capito poco.
Tu vuoi che ridimensionando il tuo ocx si ridimensioni anche la tua
linea contenuta al suo interno?
Se si puoi impostare la dimensione della linea a quella
del ocx, sull'evento Resize
Linea1.With = With   'Intesa quella dello UserControl
Ciao
Oz
Newsgroup: it.comp.lang.visual-basic
Titolo: Errore di RunTime '50003'

Richiamando un form di ricerca, la procedura evidenzia l'errore di runtime
50003. Ho provato su un'altro personal computer e funziona perfettamente.
Che cosa puň essere.
Grazie. Stefano


Se non mi sbaglio è colpa delle versioni della ComDlg32.dll e OCX.
Verifica la versioni che hai sul tuo computer e su quello target.
Vedrai che sono versioni diverse e tra l'altro non completamente
compatibili!
Saluti, Massimo.

Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal Report, Access e Listview

Il mio report prende i dati da una tabella che, inizialmente vuota, riempio
coi dati che prendo da una listview.
Non tutti i campi vengono riempiti ogni volta.
Succede questo fatto strano.
La prima volta che mando in stampa il mio report tutto funziona bene.
La seconda no.
Ad esempio:
La prima volta stampo solo alcuni report e poi li stampo tutti.
Successivamente tento di stampare ancora alcuni report e me listampa tutti.
Riprovo a stampare gli stessi record e ora me li stampa giusti.
Preciso che controllando la tabella, i dati sono scritti esattamente e anche
che ho settato la proprietà "Verifica database ad ogni stampa", am nulla da
fare.
Se avete consigli li accetto molto volentieri, visto che è per un lavoro che
devo consegnare sabato.
Grazie a tutti,
                        Daniele

 wrote in message
8kvsbp$off$1...@pegasus.tiscalinet.it...


Caro Amico,
ho la versione di CR 4.5 ma non sono riuscito a trovare l'opzione "Verifica
database ad ogni stampa": forse ti riferivi all'opzione "Aggiorna dati in
stampa"? La verifica del database è diversa dall'aggiornamento dei dati!
Infatti, il primo verifica se ci sono stai cambiamenti nella struttura del
database, mentre il secondo nel contenuto!
Stai anche attento alla proprietà SelectionFormula: se l'hai settata per
filtrare i record, poi ti devi ricordare di resettarla, per leggere tutti i
record!
REPORT.SelectionFormula=""
Ciao!
============================================
                      CYBER Hardware & Software
                         di Albani Ettore Massimo
                           Via Scapacchiò, 48/B
                 35030 Selvazzano Dentro (PD) - Italy
                         Tel./Fax: 
(+39) 049-638681
 
http://www.protec.it/cyber
                           E.mail: 
cy...@protec.it
============================================


Non è che per caso tu abbia lasciato il flag su "Salva dati con
report" ->(File - salva dati con report"


 wrote in message
mD1d5.10454$z%4.11...@news.infostrada.it...


Un' altro problema che ho riscontrato è che se mando in
anteprima di stampa due report diversi uno di seguito all'altro, per vedere
il secondo devo mandare in stampa 2 volte percè la prima volta mi ripresenta
il primo report.
Ho provato a disinstallare CR (italiano) e installare quello in inglese
presente sul disco 3 di VS6, quando lo vado ad aprire mi ripresenta quello
in italiano. forse c'è qualcosa che non va con il CR installato.
Daniele

Newsgroup: it.comp.lang.visual-basic
Titolo: ?impostazioni applicazione

Scrivo le impostazioni per il programma nel registro.
Volevo sapere:
1) Meglio il registro o un file .ini?
2) Le impostazioni le fate scrivere tutte insieme all'inizio o le scrivete
quando le impostate?
3) Usate un file.reg? ho letto su google che è sconsigliato.
3) Nelle vostre applicazioni, le impostazioni, le fate leggere e memorizzare
in delle variabili pubbliche, tutte insieme all'inizio, quando lanciate il
programma, oppure man mano che vi servono?
Carmelo

Carmelo wrote:

Io utilizzo un file XML che memorizzo in 'Documents and 
Settings\<utente>\Application Data\<nome software>
Il vantaggio è che ogni utente ha le proprie impostazioni.
Per quanto riguarda la lettura/scrittura io mi affido ad una mia classe 
che legge/scrive dal disco ogni qualvolta è necessario, ovvero ogni 
qualvolta accedo in lettura/scrittura ad una proprietà.
Ciao!
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca

 Carmelo
Bye
Raf

 qualvolta accedo in lettura/scrittura ad una proprietà.
Quoto, anche se a differenza di te io uso gli ini a cui accedo da una 
mia classe.
bye
-- 
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it
Sinapsi Antispam. Antispam Gratuito.
http://www.nicolaottomano.it/sinapsi.htm
email spamtrap: 
spam...@nicolaottomano.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema matematico in Vb


Ho creato 4 textbox: text1, text2, text3 e  text4.   
Voglio fare in modo che text4 restituisca un valore aritmetico pari alla

somma e non al concatenamento! 
dei valori di text1 + text2 + text3.

    Es. Text1  =  2 ;  Text2  = 
1  ;  Text3  =  2

           
Text4 = (2+1+2) = 
5


                                                                           

fra.an...@ntt.it



 scrisse:

prova con : val(text1.text) + val(text2.text) + .....
la proprieta' text è una stringa, con val la converti a numero
ciao
Antonio
(togliere NO SPaM dall'indirizzo per rispondere)

Prende il "valore" presente nelle caselle di testo...
text4.text=val(text1.text)+val(text2.text)+val(text3.text)
Prende l'intero presente (o non presente, es. 6.5 -> 6) nelle caselle di
testo...
text4.text=int(text1.text)+int(text2.text)+int(text3.text)
ciao Davide...
pir...@tin.it

 
fra.an...@ntt.it

...
Ho 
    creato 4 textbox: text1, text2, text3 e  text4.    
    Voglio fare in modo che text4 restituisca un valore aritmetico pari alla 
    
somma e non al concatenamento! 
dei valori di text1 + text2 + text3. 
    
    Es. Text1  =  2 ;  Text2  =  
    1  ;  Text3  =  2 
    
            Text4 
    = (2+1+2) = 
5


                                                                            
    
fra.an...@ntt.it
 


Allora 
    devi preventivamente usare la funzione Cint() o Clng() per preventivamente 
    trasformare i testi da sommare in numeri.


Ciao!


 



...

Newsgroup: it.comp.lang.visual-basic
Titolo: Grafico

Buongiorno a tutti.
Un mesetto fa ho scritto per avere aiuto riguardo l'utilizzo del
componente MSCHART per VB6. Non ho avuto nessuna risposta e adesso
sono alla disperata ricerca di aiuto, qualsiasi aiuto. Se c'è qualcuno
che me lo può dare lo ringrazierò per tutta la vita !
Ciao a tutti.
Paolo

mega...@tiscalinet.it
 ha spiegato il 04/09/2008 :

Beh, non è che uno si possa ricordare.
Dovresti spiegare cosa ti serve...
L'help del MSChart è abbastanza chiaro, oltretutto col registratore di 
macro di excel si riesce a ricavare quasi tutto, quindi non è che ci 
sia molto che uno non possa fare da solo.
Ma se spieghi il problema, chissà...
Alberto
-- 
Il tuo stesso identico umore,
ma la divisa di un altro colore

 
megab...@tiscalinet.it
 ha spiegato il 04/09/2008 :

Mitico Alberto !
Cerco di spiegarmi:
sto cercando di realizzare un grafico e ho qualche problema. Non so
come inserire le etichette delle righe (rappresento 4 linee) e vorrei
metterne anche sulla'asse X, solo alcune però, visto che rappresento
18.000 colonne (la mia base è 100ms) per rappresentare 30
minuti !
Ciao, Paolo

Il 04/09/2008, 
mega...@tiscalinet.it
 ha detto :

Da codice non saprei come fare, l'object model è complesso.
Ma in excel so di averlo fatto diverse volte, quindi per certo si può 
fare (c'è qualcosa tipo 'interval' che dice quante label saltare nella 
visualizzazione).
Per cui, io risolverei col registratore di macro.
Alberto
-- 
Fabio Fazio: Se siamo alleati come mai nei nostri bar si vende Coca 
Cola e nei bar americani non si vende l'amaretto di Saronno?

 Il 04/09/2008, 
megab...@tiscalinet.it
 ha detto :

Confesso tutta la mia ignoranza su Excel !
Paolo

Nel suo scritto precedente, 
mega...@tiscalinet.it
 ha sostenuto :

Beh, però pensare di usare MSChart senza passare da Excel, quantomeno 
per prendere confidenza con lo strumento, è masochistico...
Alberto
-- 
Thomas Fuller: Ci sono persone che sono state considerate coraggiose 
perchè avevano troppa paura per scappare.

 Nel suo scritto precedente, 
megab...@tiscalinet.it
 ha sostenuto :

Sarà cos' ! Ma io ho bisogno di aiuto per finire il mio programma,
quindi rinnovo il mio appello !!!
Ciao
Paolo

mega...@tiscalinet.it
 ha usato la sua tastiera per scrivere :

Scusa, ma non hai excel sul tuo pc?
Se anche non hai idea di come si utilizzi, credo che in un mese che 
cerchi una soluzione puoi anche dedicare 20' a fare qualche click in 
excel col registratore di macro...
Alberto
-- 
L'economia sa tutto di te e tu non sai niente dell'economia. La tua 
banca sa tutto di te, di quanti soldi hai, e quando li spendi; ma tu 
non sai niente di cosa fa la banca dei tuoi soldi e dove li mette, e se 
ce li ha!

 
megab...@tiscalinet.it
 ha usato la sua tastiera per scrivere :

Non ce l'ho installato. E cmq così non si va da nessuna parte. Sto
cercando qualcuno che mi possa aiutare.
Ciao
Paolo
Newsgroup: it.comp.lang.visual-basic
Titolo: Ordinere FlexGrid

Ciao a tutti, mi servirebbe un piccolo aiuto:
come posso ordinare una flexGrid ???
Devo sapere quando viene selezionata una intera colonna, cosi poi da poter
ordinare al tabella visualizzata.
Come si fa ???

 ha scritto nel messaggio
news:KVgN8.34450$86.8...@twister1.libero.it...

Hai guardato la proprietą Sort?

Scusate forse mi sono spiegato male.
Devo sapere quando viene selezionata una intera colonna, cosi poi da poter
ordinare al tabella visualizzata.
Come si fa ???
Grazie

 ha scritto nel messaggio
news:bPhN8.35041$K4.8...@twister2.libero.it...

Non uso la FlexGrid, ma mi pare che tu possa verificare (spero) quando si
clicca sulla riga 0 (insomma, la prima in testa) se ciò seleziona tutta la
colonna.

purtroppo non funziona cmq grazie lo stesso.
Newsgroup: it.comp.lang.visual-basic
Titolo: Posizione variabili

Un saluto a tutta il NG,
sono un principiante e
ho letto un file di testo in una matrice di stringhe (righe). In uno degli
elementi di questa matrice, ho messo la prima riga, il primo elemento,
quindi voglio inserire un dato preso da un'altra lista, poniamo che sia una
matrice di destinatari (praticamente una distributed list)
Esempio testo originale:
"Egregio signor #destinatario#, sono lieto di averla conosciuta al #luogo#
in occasione della #causa#, eccetera"
Ho risolto in questo modo:
sTesto = Join(vRiga, vbCrLf) (vRiga)===>>(testo acquisito da RichTextBox)
sTesto = Input(LOF(nFile), nFile)
For d = 0 To UBound(destinatari)
sDistribuito = Replace(sTesto, "#destinatario#", destinatari(d))
sDistribuito = Replace(sDistribuito, "#luogo#", sLuogo)
sDistribuito = Replace(sDistribuito, "#causa#", sCausa)
Open sNuovofile For Output As nuovofile
Print #nuovofile, sDistribuito
Close #nuovofile
Fin qui tutto ok, ma se ho l'esigenza di incolonnare le variabili, come
posso fare?
Supponiamo che io acquisisca con "apri file" un testo del tipo:
1) #var1#                         2) #var2#                         3)
#var3#
4) #var4#                         5) #var5#                         6)
#var6#
Etc
Attualmente ottengo dei dati non incolonnati perché ovviamente le variabili
non hanno
lunghezza costante. Ho provato molte soluzioni ma ho dei limiti.
Inoltre le variabili potrebbero anche non essere incolonnate, il testo è
sempre diverso.
In pratica vorrei sapere se è possibile ottenere automaticamente il
risultato precedente
o anche per es.: questo:
Egregio Sig. #var1#, abitante in via #var2#......etc( su questo non ci sono
problemi).
Quello che voglio ottenere in effetti è che i campi fissi " 2)
, 3)                   .etc" non si spostino
Con l'inserimento delle variabili.
Spero di essere stato chiaro, nel caso non mi fossi spiegato bene vi prego
di scusarmi.
grazie
Roberto

 testo è sempre diverso.
Appunto.

Newsgroup: it.comp.lang.visual-basic
Titolo: Info:Si possono gestire le proprieta sui controlli in un DataReport?

------------------------------------------------------
Sto Cercando di capire se si possono gestire la proprieta e le funzioni
dei controlli che si possono inserire in un DataReport.
Es:........
Se Creo un datareport dove in unsa section gli inserisco delle caselle ti
testo...per
la visualizzazioni di alcuni dati che reupero  in Output da un Form..
Come posso gestire la prorieta di Output (Che dovrebbe essere un .Text) di
quel controllo?
................By Marlbory
-------------------------------------------------------

 .Text) di quel controllo?
Se ho capito ciň che vuoi fare cosě: (io uso le label per scrivere "a mano"
nei datareport)
Dim Lbl As RptLabel
Set Lbl = rptRiassunto.Sections("Section4").Controls("Data")
Lbl.Caption = Format(Now, "dd/mm/yyyy")
Alex

Ok...Grazie....Dell'informazione
.................................................
"Alex1980" <ba...@jumpyFREGATI.it> ha scritto nel messaggio
news:b7396q$iib$1...@fata.cs.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Indipendenti !

Salve, sto studiando da poca VB5 ma vorrei farvi una domanda che sicuramente
č stupida ma io non conosco la risposta.
I programmi  di  contabilitą creati con VB5 sono indipendenti da excel e
access?
Se si i files dove vengono inseriti?
                                Grazie !!!

Sě, a meno che non siano contemplati dei collegamenti a dette applicazioni.
Usa il Setup Wizard di VB per creare l'installazione, la quale automaticamente aggiunge i files utili al tuo progetto.
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

I programmi  di  contabilità creati con VB5 sono indipendenti da excel e


Newsgroup: it.comp.lang.visual-basic
Titolo: estrazione record da db

Ciao, non ho una grossa esperienza di vb. Generalmente lo utilizzo per
crearmi alcuni programmi console da utilizzare schedulati su windows.
Il mio mio problema e' questo:
Ho 2 query che mi esportano una serie si record.
Semplificando al massimo la prima esporta dei record simili a
"Cod_forn;num_ord;data_ord".
10;1:12/05/2011
12;4:12/05/2011
90;10:12/05/2011
105;13:12/05/2011
La seconda "num_ord;art;qta"
1:patate;10
1:riso;20
4:patate;10
4:riso;20
4:orzo;10
10:riso;20
13:patate;10
13:riso;20
Io dovrei creare un file di testo
10;1:12/05/2011
1:patate;10
1:riso;20
12;4:12/05/2011
4:patate;10
4:riso;20
4:orzo;10
90;10:12/05/2011
10:riso;20
105;13:12/05/2011
13:patate;10
13:riso;20
Penso sia banalissimo ma non riesco a venirne a capo.
Quale metodo mi conviene utilizzare per eseguire la query (bd MSSQL
2005) e soprattutto non riesco a capire come fare il ciclo per
"mescolare" i record.
Qualcuno mi puo' dre una mano?
Grazie
.yo.mo.

.yo.mo. ha pensato forte :

La query ï¿œ una normale query inner join, concettualmente una 
testata-righe.
A questo punto puoi scorrerti il recordset risultante, quando cambia la 
colonna di testata crei una riga di testata, e poi crei comunque la 
riga di dettaglio.
E cosï¿œ via.
Potresti anche generare direttamente un recordset con quella struttura, 
ma spippolando un attimino (niente di trascendentale, fatto una volta ï¿œ 
sempre la solita solfa), usando le clausole GROUP BY, ROLLUP, popolando 
'astutamente' le colonne con la funzione COALESCE, e poi ordinando con 
il normale ORDER BY.
Ciao
Alberto
Newsgroup: it.comp.lang.visual-basic
Titolo: ritornare un oggetto in VBScript/VB

Ciao!
Vorrei fare una funzione che ritorna un oggetto, in particolare una
connessione ADO.
tipo
function local_connect_db( name , password )
   ...
  dim conn
  conn=CreateObject("ADODB.Connection");
  ....
  local_connect_db = conn
end function
Non so la sintassi.
Qualcuno mi aiuta?
Mattia

 ha scritto nel messaggio
news:ugW17.11189$eB4.4...@news.infostrada.it...


  local_connect_db=CreateObject("ADODB.Connection");
  ....
end function
Questa è quella che uso io:
Function ConnectDB(DataBase)
    dim ed
    ed = "ConnectDB() failed." & vbCRLF & vbCRLF & "Database = " & database
    On error Resume Next
    Set ConnectDB = Server.CreateObject("ADODB.Connection")
    if ShowError(ed) then exit function
    ConnectDB.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
Server.MapPath(database)
    if ShowError(ed) then Set ConnectDB = Nothing
End Function
Sub DisconnectDB(Conn)
    On Error Resume Next
    Conn.Close
    if ShowError("DisconnectDB() failed.") then exit Sub
    Set Conn = Nothing
End Sub
ShowError() è una funzione che costruisce una pagina html con le info
sull'errore e ritorna
    ShowError = (err.number <> 0)
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: R: Help HTML

Private Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal
hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal
dwData As Long) As Long
HtmlHelp frmMain.hwnd, HelpFile, &HF, HelpContextID
Ciao,
Corrado
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema nel richiamare una macro VBA Autocad2000 da VB

Salve a tutti,
in AutoCad2000 ho una macro scritta in VBA per recuperare una stringa
contenuta in un blocco di un disegno:
Function GetFormat() As String
    ' Iterate through the collection
    On Error Resume Next
    Dim I As Integer
    Dim msg As String
    Dim block As AcadBlock
    Dim find As Boolean
    Dim formato As String
    Dim first As String
    Dim last As String
    Dim last_val As Integer
    Dim elem As AcadEntity
    Dim Array1 As Variant
    Dim Count As Integer
    GetFormat = ""
[...]
        msg = ""
        For Each elem In ThisDrawing.ModelSpace
            With elem
                ' When a block reference has been found,
                ' check it for attributes
                If StrComp(.EntityName, "AcDbBlockReference", 1) _
                    = 0 Then
                    If .HasAttributes Then
                        ' Get the attributes
                        Array1 = .GetAttributes
                        For Count = LBound(Array1) To UBound(Array1)
                              formato = Array1(Count).TextString
                              first = Left(formato, 1)
                              last = Right(formato, 1)
[...]
End Function
quando eseguo la macro da Autocad2000 non ho nessun problema.
Ho realizzato poi un'applicazione VB per richiamare questa macro da linea di
comando:
Sub Main()
If Command = "" Then
MsgBox "Impossibile eseguire il programma: nome file mancante", vbCritical
End If
Call connectToAcad
Call openDrawing(Command)
Dim FileName As String
FileName = "Project.dvb"
' Load a sample VBA project DVB file
LoadDVB FileName
' Run the drawline sample macro
RunMacro "ThisDrawing.GetFormat"
' Unload the drawline VBA project DVB file now that we are done
UnloadDVB FileName
MsgBox "We just loaded, ran, and unloaded a VBA sample from code!"
acadApp.ActiveDocument.Close
acadApp.Quit
MsgBox "Fine Esportazione"
End Sub
Provando a debuggare passo-a-passo l'applicazione ottengo un errore di
compilazione alla linea
first = Left(formato, 1)
di GetFormat con il messaggio "Can't find project or library".
Qualcuno sa spiegarmi cosa succede?
Grazie
Bye Johnny

Secondo me ti conviene adattare la macro in VBA a VB e non richiamarla da
dentro VB.
Ci sono alcune cose da adattare ma non è cosa complessa.
Ciao
"Johnny" <j.za...@NOSPAMadvantage2000.it> ha scritto nel messaggio
news:actel3$7tk$1...@newsreader.mailgate.org...


 > Bye Johnny
Prova a verificare che tutti le "References" utilizzate nel progetto
VB siano effettivamnte necessarie (talvolta la funzionae "Left" č
utilizzata anche da altre librerie tipo arx caricare nelle References
e poi scaricate) ed eventualmente ricarica anche l'acad.tlb.
Ciao,
Marco
PS: sei a Roma? Sto cercando collaborazione per un progetto VBA per
AutoCAD, ma č difficile trovare persone. Fammi sapere.
Newsgroup: it.comp.lang.visual-basic
Titolo: stringa di connessione al db

Avrei bisogno di sapere come dovrei scrivere la stringa di connessione in
modo da passargli la password per aprire il db.
Set db =
OpenDatabase("c:\katia\prog2\db_preventivi\Catalogo32.mdb", , , "???")
grazie.
--------------------------------
Inviato via 
http://usenet.iol.it

Ho trovato grazie, solo che mi si verifica un errore di run-time '3031'
dicendomi che la password non è valida!
come e cosa posso fare??
ciao a
tutti
by Marta.
Il 29 Mag 2001, 16:49, 
marta...@tin.it
 ("Marta") ha
scritto: 


 ha scritto nel messaggio
news:213Z82Z52Z179Y...@usenet.iol.it...


Connection.Open
--------------------------------
Inviato via 
http://usenet.iol.it
 

 ha scritto nel messaggio
news:213Z82Z52Z179Y...@usenet.iol.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Treeview&HDD

C'è qualcuno che mi sappia indicare come usare il controllo treeview per
navigare nell'HDD???
Il problema risiede soprattutto nel riempire il treeview con le info
necessarie.. Dir, subdir, files, ecc.
AIUTO!!
Biagini Simone===> 
simb...@tin.it
   NOSPAWN

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Vb.net e tragedia

Ho compilato il pacchetto msi di un mio programma dopodichè l'ho riaperto e
mi dava tutto il codice ma il form era vuoto ho guardato nelle reference e
diceva di aver rilevato dei problemi a due dll le ho tolte e le ho rinserite
ma mi da ancora lo stesso problema.
Era già successo e formattando il pc lo script aveva ripreso a funzionare.
Il bello è che il prog funziona perfettamente su qualsiasi pc.
E' lo script che non va.
(Se lo ricompilo nel form non c'è niente come in vb)
Qualcuno ha qualche idea?
Grazie in anticipo

Qualcuno ha qualche idea?
Per curiosita', hai provato a rileggere quello che hai scritto?
-- 
ciao, hal


 mmmhuahaahahahahahahahahahaaahahahahhaahhh...ehm...
Ciao
--------------------------------
Inviato via 
http://usenet.libero.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Funzione Tipo Collegamento ipertestuale

Come posso fare in modo che quando si clicchi su di una label o text
contenente il percorso di un file presente nell' Hd, questo si apra con il
programma associato?
Mi serve per aprire documenti Word o PDF.
L'unico modo che ho trovato per ora e quello con shell, ma bisogna sapere
anche il percorso del file eseguibile adatto per lanciare il docuemnto, con
word funziona ma con acrobat reader NO.
Es: shell("c:\programmi\microsoft office\office\winword.exe
c:\documenti\testo.doc",1)
Grazie a tutti coloro che possono aiutarmi.
Saluti gabriele

 Mi serve per aprire documenti Word o PDF.
metti in un modulo:
private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String,
ByVal nShowCmd As Long) As Long
private Const SW_SHOWNORMAL = 1
Sub Lancia(ByVal hWndF As Long, ByVal Nome As String)
    ShellExecute hwndF, vbNullString, Nome, vbNullString, vbNullString,
SW_SHOWNORMAL
End Sub
poi, al click sulla label, usa
Lancia hwnd, "c:\documenti\testo.doc"
Ciao!
Faber
P.S.: dai un'occhiata alla guida, a proposito di questa funzione!    :)


 
 ---==[ BlacK Bird ]==---
     ICQ#: 14491159
 
 
b...@blackbird.cjb.net
 
 
     Web Site
 
http://www.blackbird.cjb.net

Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda facile facile... per chi sa la risposta :-)

Sono alle prime armi...
riuscite a spiegarmi come faccio ad aprire un file audio...mi spiego meglio
vorrei fare un programma con la funzione timer che ogni tot secondi/minuti
apre un file wav o mp3
Grazie


Se sei alle prime armi prima studia e poi fai le cose piu' complesse... vai
sul sito comune che trovi tutto o con il mitico 
google.it
 !
-- 
RedFoxy
A fox around web
Power at fox for a yiffing world!

 ha scritto nel messaggio
news:bn3tg1$tda$1...@newsreader.mailgate.org...


 per una risposta cosi' non c'era bisogno di usare il newsgroup!
PLONK.
Andrea
Newsgroup: it.comp.lang.visual-basic
Titolo: Stampa elementi di una listview

Ciao a tutti...
Ho creato dei report di stampa tramite il datareport che anche se non è il
massimo
funzionicchia abbastanza bene ed è incluso nel pacchetto VB...
Il mio problema è che ora in coda di stampa dovrei stampare dei dati che
sono inseriti
in una listview....e che non sono presenti su un db.
Il problema mi sembra di non immediata soluzione...
Qualcuno che ha dovuto affrontare un problema simile potrebbe darmi qualche
consiglio???
E' possibile passare al data report dati nn contenuti in una base dati ma
contenuti in un form
(nel mio caso una listview)?
Grazie
IAK

"PiantoTardivo" <Pianto...@PiantoTardivo.it> ha scritto nel messaggio
news:t1gXd.1486$Tm5....@twister2.libero.it...

Potresti caricarli in una tabella tmp locale
da gestire con semplici query
Saluti
Yenkee_dudu

"PiantoTardivo" <Pianto...@PiantoTardivo.it> ha scritto nel messaggio
news:t1gXd.1486$Tm5....@twister2.libero.it...

Devi mettere delle label sul datareport e poi passi i valori ad esempio
cosi:
Datareport.Sections("section2").Controls.Item("label1").Caption = "stringa
da stampare"
dove sections2 e' la sezione in cui si trova label1 .ecc
Ciao

 ha scritto nel messaggio
news:o4iXd.1024493$35.38...@news4.tin.it...

Ho già provato ma mi dice fonte dati non valida!!!!
SOB :(


Cmq il Datareport deve essere legato ad un database ; visto che avevi detto
che volevi aggiungere i dati in coda di stampa credevo che volessi usare lo
stesso Datareport che gia ti funziona.
Cmq prova a legare un database qualunque al Report e poi non lo usi.
Ciao


cmq per non complicarti la vita puoi usare l'oggetto Printer.
ciao


Hai due strade (ma a furia di ripetere le stesse cose prima o poi mi rompo i 
coglioni...)
- Leghi il datareport ad un recordset in Ram, con un solo record, e poi 
popoli le Caption delle RptLabel con una normale navigazione nell'object 
model del datareport. La sfiga è che non puoi creare le RptLabel a runtime, 
quindi devi inserire a designtime un numero sufficiente, potenzialmente 
elevato e quindi pesante per il sistema.
- Crei a run-time un recordset con i dati che ti servono, disconnesso da 
qualunque db, tanto i recordset non richiedono una base dati sotto. Poi lo 
leghi al datareport normalmente e hai il datareport come solito.
Ricordo che il modo migliore di usare il datareport è quello di evitare il 
dataenvironment, e usare il binding a runtime fra recordset e datareport (su 
MSDN e google c'è codice a volontà da copiaincollare).
Ciao
Alberto
-- 
E tutto mi sembrava andasse bene... 

 ha scritto nel messaggio
news:BDiXd.1024727$35.38...@news4.tin.it...

Ok...hai ragione...è che stavo facendo delle prove su un'altra finestra del
data report non collegata...
Effettivamente...non è stata una bella mossa... :)
Ciao

 ha scritto nel messaggio
news:395rg5F...@individual.net...

Effettivamente il dataenviroment non lo prendo neanche in considerazione....
Ciao Grazie
IAK
Newsgroup: it.comp.lang.visual-basic
Titolo: URK! Immagini su sfondo di Toolbar!

Come posso mettere immagini sullo sfondo di una toolbar (flat)?

URK! Ti consiglio di fare un salto sul Sito Comune di questo Newsgroup, URK!
Troverai, URK!, un sacco di cose interessanti, tra cui:
URK! 1)		Le risposte alle tue domande
URK! 2)		Il manifesto di questo newsgroup, ch insegna un po' come sfruttare al meglio questo strumento (ed in
primi, come fare le domande....)
URK! Ciao!
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)
---------------------------------------------------------------------------
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: matrice di frame

 Salve a tutti
ho creato un frame che contiene alcuni controlli e ne ho fatto una matrice.
Ora ho bisogno di creare n frame dinamicamente (nell'evento load del Form)
ma mi appare solo il frame senza nessun controllo al suo interno. Perchč?
Allego qualche riga di codice:
For i = 1 To
   Load Frame1.Item(i)
   Load lblOrdine.Item(i)
   Load lblInizio.Item(i)
    Load mskInizio.Item(i)
    Load lblFine.Item(i)
    Load mskFine.Item(i)
Next i
 For i = 1 To 3
    Frame1.Item(i).Top = FrameLavoriSingoli.Item(i - 1).Top + 450
    lblOrdine.Item(i).Top = lblOrdine.Item(i - 1).Top + 450
    lblInizio.Item(i).Top = lblInizio.Item(i - 1).Top + 450
    mskInizio.Item(i).Top = mskInizio.Item(i - 1).Top + 450
    lblFine.Item(i).Top = lblFine.Item(i - 1).Top + 450
    mskFine.Item(i).Top = mskFine.Item(i - 1).Top + 450
    Frame1.Item(i).Visible = True
    lblOrdine.Item(i).Visible = True
    lblInizio.Item(i).Visible = True
    mskInizio.Item(i).Visible = True
    lblFine.Item(i).Visible = True
    mskFine.Item(i).Visible = True
Next i
Grazie a tutti

 ma mi appare solo il frame senza nessun controllo al suo interno. Perchè?
prova cosi': (si presuppone Frame1(0) con un Text1(0) dentro)
    Load Frame1(1)
    Frame1(1).Visible = True
    Frame1(1).Top = 1100
    Frame1(1).Left = 200
    Load Text1(1)
    Set Text1(1).Container = Frame1(1)
    Text1(1).Visible = True
CIAO!

 ma mi appare solo il frame senza nessun controllo al suo interno. Perchč?
Credo che il motivo di questo comportamento stia nel fatto che i controlli
che carichi dinamicamente stanno ancora all'interno del frame originario
(frame1(0)). Per verificarlo tu stesso, prova a visualizzare qualcosa del
tipo:
msgbox lblOrdine(1).container.index
Alternativamente, suppongo che a design time il tuo frame1(0) sia
invisibile: mettilo visibile per renderti conto...
Per risolvere il problema devi cambiare il container di ciascun controllo,
cosi':
set lblOrdine(i).container=frame1(i)
Spero che sia questo...
Ciao,
Luciano
Newsgroup: it.comp.lang.visual-basic
Titolo: vbAccelerator cPopMenu Control

Ho scaricato vbAccelerator cPopMenu Control, se qualcuno l'ha usato, può
dirmi se ne vale la pena?
Devo inserire l'OCX in system necessariamente?
E' distribuibile?
Ciao Carmelo

 E' distribuibile?
di solito i controlli di vbAccelerator sono gratuiti, cmq dovrebbe
esserci una nota allegata al componente o sul sito stesso
Ciao
Faber

 "Carmelo"

Io l'ho scaricato ed è ottimo a parte il fatto che ti disabilita il tasto X.
Cmq va bene..
Ciao Francesco

 Ciao Francesco
che cosa è esattamente questo controllo? che cosa fa di speciale?
MarioH


Questo controllo tramite subclassing inserisce le icone nei menu e si può
inserire addirittura uno sfondo per il menu. Fa le stesse cose di un menu
normale come quello di word o excel... peccato per la X...
Ciao Francesco
P.S. forse faccio un pò troppa pubblicità a questo controllo... dovrei
chiedere qualcosa come compenso a Steve McMahon! :-)


uno sfondo per i menu?? addirittura  ???
uhm quasi quasi gli do un'occhiata...
MarioH

Nel mio PC funziona perfettamente e non disattiva la X.
No so se qualcuno l'ha mai distribuito a utenti finali.
Io l'ho fatto e mi da errore "il componente activex non può creare
l'oggetto".
Vorrei qualche dritta per la distribuzione. Premetto che ho inserito tutte
le librerie che richiede,
come consiglia il sito web.
vbAccelerator, cosa ci guadagna a dare i controlli gratuiti?
Ciao Carmelo
Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal Report e Overflow

Salve gente a nessuno è mai capitato quanto segue ?
E se si qualcuno ha una soluzione ?
Allora i progetti VB6 SP5 che stampano report fatti con il CR 8.0
utilizzando il componente Crystl32.ocx, spesso danno errore di overflow non
appena si tenta di aprire un Database con DAO subito dopo aver chiuso la
preview del report .....
Aspetto ansioso vostri commenti ...
Ciao a tutti
Francesco

 preview del report .....
Non so se puo' esserti utile, ma a me e' capitato una volta perchè ho usato
piu' di un controllo CR in un progetto.
Ciao

 piu' di un controllo CR in un progetto.
Puņ forse essreti anche utile fare come ho risolto io: i report li ho dovuti
mettere tutti su un Form a parte e ogni volta che ne chiamo uno poi
riscarico questo form.
Giorgio
Newsgroup: it.comp.lang.visual-basic
Titolo: tornare alla directory inziale

Salve a tutti, ho letto nei vari post i consigli ma non
ho risolto il problema. Se apro un file con una common dialog,  come faccio 
a tornare alla directory del programma? ho provato con
ChDir(App.Path)
ChDrive Left(App.Path, 2)
ma niente.
Grazie Alberto 

ChDrive Left(App.Path, 2)
  Con questa sequenza se hai cambiato drive certamente non funziona ma
ricevi qualche errore? Hai provato a vedere passo passo cosa succede?
Insomma, ci dici proprio poco...
-- 
  Ciao :-)
  Massimo
Nell'indirizzo, sostituire "micio" con "mc"

 Insomma, ci dici proprio poco...
Non ricevo errore, non ho cambiato drive.  Io penso che dovrebbe tornare 
alla directory del programma con
 ChDir(App.Path)  invece niente. (ChDrive Left(App.Path, 2) l'ho provata 
perchè l'ho letto in un post)
Alberto

 Alberto
Anch'io mi sono trovato "nei guai" per colpa di common dialog, ma avevo 
risolto non forzando il chdir, ma riferendomi, ai file della cartella 
dell'applicativo, anzichč:
open mioFIle ....
cosě:
open App.Path & "\" & mioFIle ....
Spero possa servirti.
-- 
Emanuele Torrenti

 wrote:

Se vuoi che la common dialog si apra sulla dir del programma, devi
settare la .InitDir. Altrimenti non ho capito cosa intendi.
Ciao

 Ciao
Io voglio semplicemente che dopo aver aperto una common dialog il programma 
mi ritorni
nella directory app.path  (se possibilmente che la commondialog  mi si 
riapri in app.path).
Ho fatto cosě
    CommonDialog1.InitDir = App.Path
    CommonDialog1.CancelError = True
    CommonDialog1.Flags = cdlOFNHideReadOnly
    CommonDialog1.Filter = "Tutti i File Immagine 
(*.bmp;*.jpg;*,gif)|*.bmp;*.jpg;*.gif|File BMP (*.bmp)|*.bmp|File JPEG" & _
    "(*.jpg)|*.jpg|File GIF (*.gif)|*.gif"
    CommonDialog1.FilterIndex = 1
    CommonDialog1.ShowOpen
   MyFile = CommonDialog1.FileName
 ChDir App.Path
' Adesso ho provato a ripetere la directory iniziale
    CommonDialog1.InitDir = App.Path
La commonDialog si apre dove č stata chiusa, perň la directory sembra essere 
tornata a quella del programma.
Comunque visto che cosě non mi da problemi, mi accontento cosě.
Alberto

 Comunque visto che cosě non mi da problemi, mi accontento cosě.
Ottimo. Non č quello che volevi?
-- 
Emanuele Torrenti

 Si è proprio quello che volevo.
Appunto. L'osservazione di Manuel era legata (penso) alla tua 
affermazione "Comunque visto che così non mi da problemi, mi accontento 
così.".
Se è esattamente ciò che volevi, perchè dici di 'accontentarti'?
Alberto (l'altro)
-- 
Autore di
"Petting for Dummies"

 così.".
No, l'affermazione di Manuel era legata al fatto che lo stesso aveva 
dato una pezza(riferirsi ai path assoluti), piuttosto che una soluzione, 
quindi era un modo per complimentarsi col nostro collega per esserci 
riuscito ugualmente, anche grazie a consigli di altri.
-- 
Emanuele Torrenti
Newsgroup: it.comp.lang.visual-basic
Titolo: Tag Mp3

Ragazzi, avrei un problema.
Mi servirebbe un componente che sia in grado di leggere i tag degli
mp3. Ovviamente come nella migliore tradizione meglio se freeware.
Sapete mica dove trovarlo?
Grazie anticipatamente.


se non errro mi semrba di aver visto qualcosa sul sito comune.

Sito Comune:
http://www.it-lang-vb.net/download.asp?file=Archivio/Sorgenti/Mp3Info.zip&ID
=309
http://www.it-lang-vb.net/download.asp?file=Archivio/Sorgenti/ID3TagEditor.z
ip&ID=186
http://www.it-lang-vb.net/download.asp?file=Archivio/Sorgenti/id3tags.zip&ID
=357
prova uno di questi tre.....dovrebbe andare bene!!!!!
good coding!!!!!
--
Damiani Liborio Igor
idam...@hotmail.com
 - 
igor.d...@light.it
http://www.igordamiani.it
ICQ : 11847262

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB.net]HTML Agility Pack

Ho scaricato la libreria in oggetto.
L'ho inserita in un progetto e ho comnciato a smanettare.
Il problema e che se provo a debuggare, quando (con F8) voglio passare 
oltre una funzione contenuta in quell'Assembly cerca di aprire VC#, che 
non è installato per il debug. Il bello e che non ho nemmeno i sergenti 
della libreria, perchè non li ho scaricati da codeplex in quanto non mi 
interessavano. Quindi mi va in errore con un eccezione specifica (perchè 
non trova i sorgenti vc#)
Può essere che è stata compilata in Debug e non in Release?
EffeGi.

 EffeGi.
.m
-- 
Mauro Servienti
{C67C0157-5D98-4733-A75E-93CAEE4BADC8}
Microsoft MVP - Visual C# / MCTS
http://mvp.support.microsoft.com
blog @ 
http://milestone.topics.it
whynot [ at ] topics [ dot ] it


Stasera Verifico.
Grazie.

Newsgroup: it.comp.lang.visual-basic
Titolo: Dammi solo un minuto

Ciao, no non è la canzone dei gemelli diversi, piuttosto concedetemi un
vostro minuto per rispondere alla mia domanda.
Allora, io per modificare il file win.ini uso faccio le seguenti operazioni:
prima dichiaro:
Declare Function getprofilestring Lib "Kernel" (ByVal lpappname As String,
ByVal lpkeyname As String, ByVal lpdefault As String, ByVal lpreturnedstring
As String, ByVal nsize As Integer) As Integer
Declare Function writeprofilestring Lib "kernel" (ByVal lpappname As String,
ByVal lpkeyname As String, ByVal lpstring As String) As Integer
e poi uso questo per scrivere:
setini "PROVA", "Prova", prova$
e questo per leggere:
prova$ = getini("PROVA", "Prova")
Ok, ora la mia domanda è questa:
come faccio a usare tutta sta roba ma per modificare un file .ini diverso da
win.ini.
Insomma devo creare un file ini mio.
Ciao e GRAZIE
--
Max Damage - (
mxda...@tin.it
)
ICQ#: 25607876
http://space.tin.it/giochi/btama
######################################
#        Carmageddon II - Carpocalypse Now
#                         
www.sci.co.uk
#                See you on the road to hell
######################################

 Ok, ora la mia domanda č questa:


 lpFileName As String) As Integer
Newsgroup: it.comp.lang.visual-basic
Titolo: Copiare matrici

Č possibile copiare una matrice singola,senza loopare
da una a piů dimensioni.
Mi spiego meglio:
Sia una matrice;
Dim a(2)
  a(0) = "zero"
  a(1) = "uno"
  a(2) = "due"
x copiarla;
  b = a
  b0 = b(0)
  b1 = b(1)
  b2 = b(2)
ma se ho:
Dim a(2, 2)
  a(0, 0) = "zero"
  a(1, 0) = "uno"
  a(2, 0) = "due"
'Voglio copiare solo la prima dimensioni;
  b = a(1)
Mi sembra strano che non vi sia un
modo x farlo.
Qualsiasi consiglio č bene accetto anche API.

 da una a piů dimensioni.
Puoi con VB6 (il 5 non ricordo ma mi pare di sě).
Le matrici devono essere dinamiche e non statiche.
ciao
--
' // Initialize the expression evaluator
Engines.Evaluator = CreateObject("
http://www.neodatatype.net
")
' // you can find resources for and from the NG here!
Me.SitoComune = "
http://www.it-lang-vb.net
"

   b = a(1)
Posto che un tal metodo non esista in vb (e io credo che non esista) forse
dovresti creare strutture adatte al linguaggio che usi. In questo caso ti
converrebbe creare una struttura piuttosto che un array multidimensionale.
P.es.:
Type MyTpe
    mS() as String
    mT() as String
    [...]
End Type
Dim mta() as MyType, mtb() as MyType
[...]
mta(1).mS(1)="Pippo"
mta(1).mS(2)="Pluto"
[...]
mtb(1).mS=mta(1).mS
--
rumplestiltskin


Credo che si possa copiare solo la dimensione orizzontale, e non quella
verticale.
La 1° dimensione corrisponde a righe, la 2° alle colonne
In memoria immagino che tra il valore del primo elemento a(0,0) e il secondo
a(1,0) ci siano tutti i valori di a(0,n), e quindi impossibili da copiare in
un colpo solo, non essendo conticui.
Comunque fai delle prove con CopyMemory e vedi cosa succede (a parte i
possibili crash:)):
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As
Any, source As Any, ByVal numBytes As Long)
** grosso modo le istruzioni sono queste
Dim Lung as Long
Lung=2   ' n° elementi in a(0,n)
' copia in b gli elemnti di a(0,0)
CopyMemory b(0), a(0,0) , Lung  * Len(a(0,0))
Fabio Guerrazzi