mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: esecuzione terminata 2

Ti ringrazio per la risposta, ma essendo una principiante
mi potresti spiegare più dettagliatamente cosa significa configurare
la shell dos e come si fa ? Ti ringrazio anticipatamente.
-- 
Posted from 
relay4.inwind.it
 [212.141.53.75] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

la shell dos e come si fa ? Ti ringrazio anticipatamente.
Invito 2: invia le tue risposte in coda al thread, altrimenti non si capisce
di cosa stai parlando.
Devi cioè *non* fare un nuovo messaggio, ma rispondere al NG.
Vai su Start->Programmi
Click destro su "prompt MSDOS" (se hai IE4/5 installato)
Click su "Proprietà"
Linguetta "Programma"
Marca "Chiudi all'uscita"
Non so se si riesce a fare anche da VB... chissà se qualcuno lo sa.
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Store procedure in Vb

Ciao,
ho un quesito che mi assilla da quanche giorno,
Come faccio ad eseguire una store procedure con parametri in sqlserver
6.0 da Data environment ?
ho provato a mettere i parametri nella callsintax della store
procedure, ma non riesco a modificarli in run-time.
Com'è possibile che non si riesca a manipolare una prorpieta di un
comando di un data enviironment quando il cmando è una store
procedure?
Grazie all'animo gentile che mi risponderà.

Ho visto qualche cosa sul Visual Basic Journal, credo in questi ultimi mesi:
prova consultare il sito:  
www.vbpj.com
 e vedere con il locator + di
inserire il codice della rivista. E' facile il formato è VBPJmmaa (mese,
anno es. VBPJ0699) . Credo che tu ti debba registrare strada facendo.
l'ho letto perchè avevo problemi di parametri con query di Access.
ciao
Maccarrone ha scritto nel messaggio <375c0733.14487179@NETSERVER>...

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] ANTEPRIMA DI STAMPA

Vorrei che il mio programma prima permettere all'utente di stampare il
report lo puo vedere in un anteprima di stampa
So che ci sono piu strade voi  quale strada mi consigliate ???

Marco quello che ha mandato una bella e-mail a news ???

Grazie ragazzi ma ho risolto

 ha scritto nel messaggio 
news:fOiSd.58108$2h5....@tornado.fastwebnet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Da niubbo - cerco guida su funzioni contenute in dll

Ciao a tutti, mi chiamo Mauro e nuovissimo della programmazione (vba
più che vb in realtà)...anzi, qualcosa in meno, il mio problema è
questo, mi servirebbe sapere che funzioni sono contenute ad esempio
nella user32.dll ad esempio, ho scaricato degli esempi di programmi che
usano alcune funzioni contenute in questa libreria, ma non riesco a
trovare nulla con un elenco ed una piccola guida, così da imparare
anche io ad usare queste funzioni.
Avete qualche sito da suggerirmi?
Ciao a tutti

 ha scritto nel messaggio 
news:1153559629.1...@i3g2000cwc.googlegroups.com...


Certo: il sito ufficiale Microsoft (ovviamente).
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sdkintro/sdkintro/contents_of_the_platform_sdk.asp
Scegli l'ambito (le user32 ad es. sono sotto "Windows User Interface") e poi 
segui "Reference".
Ciao 


Senza dubbio 
http://vb.mvps.org/samples/apixref.asp
Questa pagina elenca le API di Windows raggruppandole in base alla DLL, anziché
semplicemente in ordine alfabetico.
Per la guida su ciascuna funzione specifica puoi consultare l'MSDN:
http://msdn.microsoft.com/library/en-us/winprog/winprog/windows_api_reference.asp
Bye
Raf
-----------------------------------------------------
Funk: cooler than the other side of the pillow.

 Avete qualche sito da suggerirmi?
Un sito che tratta di API win32.
Il primo che mi viene in mente: 
http://www.allapi.net/
, e molti altri.
Bye,
-- 
Carmine ( 
pikachu...@gmail.com
 (Togli la scritta NOSPAM) )
Webmaster di The Total Site 4 : 
http://www.thetotalsite.it
My Blog: 
http://blog.thetotalsite.it
MariokartDS Codice Amico: 532639027909 - CarmineC in MarioKartDS
Se un circuito funziona al primo tentativo è perchè il problema è molto
più nascosto e subdolo di quanto tu possa pensare...
E apparirà nel momento in cui farà il massimo danno 

 ha scritto nel messaggio 
news:1153559629.1...@i3g2000cwc.googlegroups.com...

Certo!
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winprog/winprog/windows_api_reference.asp
E' di una ditta quasi sconosciuta..
..ma dicono che di windows se ne intendono..  :-)
Ciao,
    Diego 

grazie a tutti...avevo vagato un po' su MSDN ma senza sapere dove
cercare esattamente.
Grazie ancora
Newsgroup: it.comp.lang.visual-basic
Titolo: [VBA] nominare un oggetto con una variabile

spero di essere nel ns giusto, di non andare ot e di spiegarmi bene, siccome
non sono un programmatore.....
Ho realizzato una macro con excel, tutto funziona bene, ma per
automatizzarla un pò di più mi servirebbe il vostro aiuto.
Dentro la macro c'è il seguente codice (vengono richiamate una useform e
parecchie textbox):
TextBox1.Text = Foglio1.Cells(riga_, 2).Value   dove riga_ è uina variabile
TextBox2.Text = Foglio1.Cells(riga_, 3).Value
TextBox3.Text = Foglio1.Cells(riga_, 4).Value
TextBox4.Text = Foglio1.Cells(riga_, 5).Value
TextBox5.Text = Foglio1.Cells(riga_, 6).Value
.......
eccc....
io volevo creare un istruzione for-next che in automatico passi alla textbox
successiva e mi permetta ri "riassumere" il tutto in una sola riga, ho
provato a scrivere una cosa del genere ma non funziona:
dim aaa as object
for a = 1 to 15
aaa= "textbox" & a
set aaa=texbox1
aaa.Text = Foglio1.Cells(riga_, 2).Value
next a
la variabile aaa dovrebbe assumere i valori textbox1 poi textbox2 poi
textbox3 e così via....invece continua ad assumere il valore textbox1!!!(E
mi dà errore se inverto le righe 3 e 4 )
come posso fare???


Su Visual Basic potresti fare cosě per esempio:
Dim I As Integer
Dim sBase As String
Dim Control As Object
sBase = "TextBox"
For Each Control In Form1.Controls
If (TypeOf Control Is TextBox) Then
    For I = 1 To NumeroDeiTextBox
    If Control.Name = sBase & I Then
        Control.Text = ....
    End If
    Next
End If
Next
Ciao,
Andrea Fontana
E-Mail: 
tri...@katamail.com
Website: 
http://www.it.owns.it
ICQ Uin: 27799781

 spero di essere nel ns giusto,
    ng, prego. ;-)

    Qualcosa del genere:
    Option Explicit
    Const mc_lTextBoxesCount = 15
    Dim m_lRow As Long
    Public Sub TuaMacro()
        Dim lIndex   As Long
        Dim oTextBox As MSForms.TextBox
        Dim lCol     As Long
        m_lRow = <...>
        For lIndex = 1 To mc_lTextBoxesCount
            lCol = lIndex + 1
            Set oTextBox = Me.Controls("TextBox" & Format$(lIndex))
            With oTextBox
                .Text = Foglio1.Cells(m_lRow, lCol)
            End With
        Next
    End Sub
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------
Newsgroup: it.comp.lang.visual-basic
Titolo: Rinominare file

Ciao a tutti,
sto provando a creare uno scrip in vbs che mi rinomini un file inserendo la data.
Praticamente da nome.xls in nome02062004.xls
Riesco a recuperare la data ma non so come fare a rinominare il file.
Sapete darmi un consiglio, ??
Grazie 
Ciao
Dan

 ha scritto nel messaggio
news:64a8762d.04053...@posting.google.com...

Crei il nuovo file NomeData.xls e cancelli il vecchio.
Ciao, Vincenzo

 Sapete darmi un consiglio, ??
Name VecchioNome As NuovoNome
Ciao
--
Math Parser : 
http://www.neodatatype.net
FlowChart   : 
http://www.neodatatype.net/dump/flowchart/dir.asp
Sito Comune : 
http://www.it-lang-vb.net

 Praticamente da nome.xls in nome02062004.xls
'un file solo
sDay=Day(Date) :sMonth=Month(Date) :sYear=Year(Date)
  s = sDay&"-"&sMonth&"-"&sYear
Set fso = CreateObject("Scripting.FileSystemObject")
sTarget="C:\test.xls"
sRen="test"
  set oRen= fso.GetFile(sTarget)
 sTemp = sRen & " "& s
  oRen.Name = sTemp
Questo sotto e' l'help del WSH con numerosi esempi ( sopra il mega)
http://www.microsoft.com/downloads/details.aspx?FamilyId=01592C48-207D-4BE1-8A76-1C4099D7BBB9&displaylang=en
'multiplefile.vbs
sDirectory = "C:\WINDOWS\TEMP"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(sDirectory)
For Each oFile In oFolder.Files
  If InStr(UCase(oFile.Name), ".XLS") Then
sDay=Day(Date) :sMonth=Month(Date) :sYear=Year(Date)
  s = sDay&"-"&sMonth&"-"&sYear
Set f = ofso.GetFile(oFile)
str = oFile.Name
newstring = Left(str, Instr(str, ".")-1)
f.Name = newstring &" "&s& ".xls"
  End If
Next
--
Fosco

Newsgroup: it.comp.lang.visual-basic
Titolo: Copia righe da griglia1 a griglia2

Ciao a tutti
Chi sa dirmi come si fa a copiare un'intera riga da un flexgrid
a un altro vuoto?
Grazie enormemente!

a un altro vuoto?
a parte l' eventuale loop sulle celle, che darei per scontato <g>
cerca sull' help la proprieta' Clip, efficiente in casi come questi.
Es. preso da msdn:
Dim rs As rdoResultset
Set rs = MyConnection.OpenResultset("Customers")
'select the target range
MSFlexGrid1.Row = 5
MSFlexGrid1.Col = 1
MSFlexGrid1.RowSel = 8
MSFlexGrid1.ColSel = rs.rdoColumns.Count
'get the data
MSFlexGrid1.Clip = rs.GetClipString(4) 'returns 4 rows
hth, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto ! urgente problema con SETUP + ADO !

Ho un problema che non riesco a risolvere, e perciň chiedo aiuto a voi !
Ho fatto un programmino che utilizza ADO, ma quando (dopo aver creato
l'installazione guidata) lo provo su un altro computer, dove non č
installato VB, mi dice che non posso accedere al provider del database.
L'unica soluzione che ho trovato č quella di utilizzare l'installazione di
Vstudio (selezionando "componenti per l'accesso ai dati"), ma non č propio
una soluzione "ottimale" !!
Ho provato a utilizzare i vari DCOM, MSJETxx, etc.. ma non riesco a
risolvere il problema !
perciň mi affido a voi !!
salutoni !
Benjamin.

 installato VB, mi dice che non posso accedere al provider del database.
Assicurati di avere installato (a parte, non viene incluso nel setup della
tua app) MDAC in una versione >= alla tua e il MSJet4 se usi DB Access2000.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: VB e VC++

Salve,
avrei bisogno di sapere una cosa. Ho scritto delle classi in C++
(precisamente col Visual C++) e ora devo costruirci sopra l'applicazione.
Mi piacerebbe fare questo utilizzando Visual Basic. La domanda e' questa:
e' possibile, compilando le classi come DLL, da VB istanziare oggetti di
tali classi e chiamari i metodi.
Grazie.
Mirko Tedaldi.
--
Posted from 
promet1.deis.unibo.it
 [137.204.59.1]
via Mailgate.ORG Server - 
http://www.mailgate.org


NO, perche' VB gestisce gli oggetti in modo diverso dal C++.
...a meno che... non siano oggetti COM (ossia ActiveX DLL).
--
Roal Zanazzi
z...@iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Riutilizzare una funzione utente in altri fogli Excel

Ho definito una funzione utente con VB su excel.
E' possibile fare in modo che quando apro un nuovo foglio di excel,
posso inserirla come un'altra funzione, senza dover andare
nell'editor, inserire un nuovo modulo e copiare il codice della
funzione?
Ho visto che è possibile esportare il modulo contenente la funzione,
ma poi come dico all'applicazione excel di "considerare" quel modulo e
di farmi utilizzare le funzioni che ha dentro?
Ringrazio sin d'ora tutti coloro che forniranno una risposta.
Denis

funzione?
Prova a chiedere su microsoft.it.office.excel, li' sono sicuramente
piu' allenati di noi con excel.
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: centronics e VB

come si fa a sfruttare la centronics come dispositivo di I/O con vb????
per favore aiuto
rispondete, per piacere, in e-mail
lauc...@tin.it

Sul sito comune di questo ng:
www.murialdo.it/it_lang_vb
c'è una DLL che fa al caso tuo (Se non erro WinIO.Dll)
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)
Newsgroup: it.comp.lang.visual-basic
Titolo: Saldi parziali in Crystal Report 4.5

Ciao,
devo creare una colonna di saldo parziale con il Crystal Report:
A B S
------
1 3 3
1 5 8
1 2 10
2 6 6
2 5 11
3 8 8
3 1 9
3 2 11
3 4 15
Le colonne A e B gia' le ho:
A e' un codice di gruppo
B e' un importo
con quale formula posso calcolare la colonna S (che contiene la somma
cumulata di B all'interno di ogni gruppo)?
ho provato piu' volte ma l'editore di formule non consente di far
riferimento a valori precedenti della stessa colonna (neanche
indirettamente).
Potete aiutarmi ?
Grazie,Vincenzo

 news:e43f8979.02042...@posting.google.com...

Crystal a parte, se tu avessi un campo ID (di tipo contatore o che comunque
sia univoco...) potresti scrivere la seg. query:
SELECT Tabella1.A, Tabella1.B, (SELECT Sum(Temp1.B) FROM Tabella1 AS Temp1
WHERE Temp1.ID<=Tabella1.ID And Temp1.A=Tabella1.A) AS S
FROM Tabella1
ORDER BY Tabella1.A, Tabella1.ID;
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

...

Ciao,
grazie per la risposta...
Nel frattempo penso di aver trovato la soluzione tramite crystal:
Utilizzo una nuova colonna dotata di formula:
WhilePrintingRecords;
NumberVar counter1;
if RecordNumber=1 then  counter1:=0
else if {Movimenti.CodiceConto}<>Previous ({Movimenti.CodiceConto})
then   Counter1:=0;
Counter1 := Counter1+{@saldo};
Counter1
nota:
@saldo contiene l'importo per ogni riga, metre Movimenti.CodiceConto
contiene il codice di gruppo.
Faro' delle prove...
Grazie,ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Eseguire report di Access con VB

Ciao a tutti
Su un manuale di VB ho letto che era possibile eseguire report creati con
Access 2000 con queste righe di codice:
riferimento: Microsoft Access 9.0 Object Library
Dim Access As Access.Application
                Set Access = New Access.Application
                Access.OpenCurrentDatabase ("C:\NomeDatabase.mdb")
                Access.DoCmd.OpenReport "RpProva", acViewNormal
                Access.CloseCurrentDatabase
                Set Access = Nothing
Viene stampato il report preparato con Acces senza visualizzare Access
stesso.
Quanto sopra funziona se sul PC è installato Access. Ma su un PC con
installato il solo RunTime dello stesso Access, il report non funziona
(nessun errore).
Eseguendo il report da una applicazione fatta con  Access  sempre da un PC
con installato il solo RunTime, funziona correttamente.
Occorre forse fare un riferimento ad un'altra Object Library?
Grazie per l'aiuto.
Ciao
Raffaele

 Dim Access As Access.Application
Come letto in un post di qualche giorno fa: quando si fa riferimento
all'applicazione access (Access.Application) tutto il programma, e non solo
i runtime, deve essere installato sulla macchina che esegue il programma. Se
hai la versione professional di VB6 puoi ottenere dei risultati abbastanza
simili utilizzando il DataReport, se il fatto di avere Access installato è
per te un problema insuperabile.
Salutoni
Sergio

 ha scritto nel messaggio
news:oyLb9.41038$pX1.1...@news2.tin.it...

Grazie per la tua risposta.
Il fatto è che non posso installare una licenza di access su ogni computer
su cui installerò il mio programma fatto in VB (ne sarebbe contenta la
Microsoft!)
Avendo però una licenza di Office Premium, ho la possibilità d'installare,
senza problemi di licenza il RunTime di Access che consente di eseguire
Applicazioni Access senza che quest'ultimo sia installato.
Con Access inoltre è possibile creare report complessi (sottoreport, ecc.)
che con il DataReport (ho la versione professional) non è possibile fare (o
si?).
Grazie ciao
Raffaele


Sinceramente il massimo che ho fatto fin'ora con il datareport è
l'equivalente di quelli access con i livelli di gruppo, per quanto riguarda
strutture report-sottoreport non ho mai provato e non so neanche se sia
possibile.
Salutoni
Sergio

 ha scritto nel messaggio
news:10307182...@tango.comm2000.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Option Info

Salve sto realizzando un programmino che mi deve catalogare dei CD musicali.
Ho inserito un adodc collegandolo ad un file del database.Poi ho messo due
option che con una clikkata mi permette di modificare i dati, con l'altra di
aggiungere. Il problema è nato perchè non riesco una volta avviato il
programmino a mantenere una delle due option attivate, nel senso che sono
tutte e due disattivate.
Aiuto..

 Aiuto..
il tuo programma non è indovino.....
non sa che vuoi tenere qualche option attivata e si sveglia con le
impostazioni predefinite!
Secondo te la proprietà VALUE che ci sta a fare?
perchè non spippoli un po cambiandola da programma?
-- 
Il Wodkino Nazionale è a : 
www.martek.it
Pagina Vb/Bestiario/Lamer Experience :
http://www.martek.it/go.asp?portamia=2
 Demo classe vb.NET :
WodkaThumb 
www.villaceleste.it
  click su "spippolando e
Programmando"
---
Messaggio scannerizzato e certificato "Virus free" da AVG free edition.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.797 / Virus Database: 541 - Release Date: 15/11/2004

Option1.Value = True
"THE MISTERY" <LO...@LOLLO.LJDSZ> ha scritto nel messaggio
news:RMLmd.351222$35.15...@news4.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: TXT....................DBF

Sono un neofita, da poco programmo in VB. Vorrei trasformare un file di
testo TXT in un file di data-base (formato access).
Qualcuno saprebbe aiutarmi ...
grazie mille

...

La cosa più veloce è aprire Access e fare un importazione di tabella da file
Txt. I problemi dipendono dal formato Txt che ha il file di origine. Se i
campi sono ben strutturati e con un carattere specifico di separazione di
campo non dovrebbero esserci molti problemi.
Ciao Max

...


...

Newsgroup: it.comp.lang.visual-basic
Titolo: Probelma con VB6 e Office95

Salve a tutti,
Ho realizzato una procedura che utilizza Word per le stampe.
utilizzo:
Set objword = CreateObject("Word.Application")
Per aprire Word e poi usarlo per le stampe.
Funziona perfettamente con Word di office 97.
Genera l'errore "Activex component can't create object" con Office 4
e non genera nessun messaggio d'errore e non fa nulla (non apre Word e non
stampa) con office95.
Che cosa posso fare per farlo funzionare con office 95?
Grazie a chi mi fornisce qualche suggerimento.

 stampa) con office95.
Non ne sono sicuro, ma non credo che le applicazioni Office 95 esportino un
modello ad oggetti verso le altre applicazioni. Di sicuro non Office 4 che è
a 16bit e nulla centra con ActiveX, COM e compagnia bella...
Morale della favola: upgrade to Office2000 ! ^__^
Zeross

 Che cosa posso fare per farlo funzionare con office 95?
Controlla il codice in esecuzione passo-passo, verifica che objword sia
effettivamente un oggetto Word.Application valido, e trova il codice che si
comporta in modo anomalo, poi postalo qui, se a quel punto non hai gia'
trovato il problema.
--
Roal Zanazzi
z...@iol.it


Ahi, ahi... ci diamo al terrorismo informativo?
Le applicazioni di Office 4 (4.3 per la precisione) sono OLE automation
servers, esattamente come quelle di Office 95 e 97... la differenza e' negli
oggetti e nella gerarchia esportata (ho usato piu' volte sia Excel 5 che
Word 6, via OLE in VB, sia a 16 che a 32bits).
FYI, OLE e' nato quando c'erano ancora i 16bits (e qui ActiveX non c'entra
nulla).
Morale della favola, per Office2000 aspettero' almeno il SP3 (come ho fatto
finora con VB ;-).
--
Roal Zanazzi
z...@iol.it

 Ahi, ahi... ci diamo al terrorismo informativo?
Roal suvvia... sono un beta tester M$, ovvio che devo fare pure della
pubblicità... e in questo caso proponevo l'upgrade a Office 2000. ^__^
Lo so, è uno sporko lavoro, ma qualcuno deve pur farlo ! ^_-
Zeross

 wrote in message 7kego7$di9$1...@nslave1.tin.it...

Scusa, ma il "contratto" di beta-tester prevede anche (oltre a fare il
lavoro che dovrebbero fare loro) la pulizia delle scale della sede di
Microsoft Italia una volta alla settimana?
Suvvia, fare il beta-tester da' i suoi vantaggi, ok, ma non mi sembra il
caso di doversi sbracare cosi'...
(senza offesa, ma mi pare inopportuno lasciar intendere alla gente che
dovrebbe fare l'upgrade a Office2000, quando magari non e' necessario ;-)
--
Roal Zanazzi
z...@iol.it

 Microsoft Italia una volta alla settimana?
No, io spolvero i pc.... la pulizia delle scale la fa il gruppo di test
delle utility tipo DEFRAG, SCANDISK, REGCLEAN.... sai,
loro sono più ferrati in materia di pulizie ! ^___^
Zeross
Newsgroup: it.comp.lang.visual-basic
Titolo: Finestre "sfumate"

Salve, una domanda un po' stupida.
C'č un modo per realizzare un rettangolo o (ancora meglio) lo sfondo di un
oggetto (tipo label) con colore sfumato?
In pratica volevo fare una ProgressBar sfumata ed ho trovato una "possibile"
soluzione usando le API, ma me ne servono una caterva per fare le cose per
bene!
Una per acquisire i due gradient di sistema (i due colori della barra
superiore delle form), una per "smembrare" il colore nella "santa triade"
RGB, una per convertire tali valori in Unsigned Long (a che serve???) ed una
per fare, finalmente la sfumatura!!! : O
Non č che conoscete un metodo (o un trucchetto) un po' piů semplice?
Grazie, byez
Tango

Creati una Picture sfumata delle dimensioni desiderate.. e poi la metti come
sfondo dei tuoi oggetti... troppo banale?

oggetto (tipo label) con colore sfumato?
Con la label non credo (non ha finestra), ma per oggetti tipo Form
e picture box basta giocare un po' con il metodo Line.
-- 
ciao, hal

 e picture box basta giocare un po' con il metodo Line.
line ????


Si', proprio lei, la vecchia Line :-)
-- 
ciao, hal

> Non č che conoscete un metodo (o un trucchetto) un po' piů semplice?
Ti scarichi il controllo free ARProgressBar (cerca su google) che fa i
colori gradienti e molto, molto, molto di piů!
Ciao
Bald0z

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] ADO 2.6 e SQL Server 2000

Qualcuno l'ha già usato?
Funziona bene?

 Funziona bene?
Io non l'ho provato .. ma esiste già un OLE DB provider specifico per SQL
S2000 ?
Saluti

 S2000 ?
Con MDAC2.6 viene distribuito lo stesso OLE DB Provider che trovi in SQL
Server 2000.
Newsgroup: it.comp.lang.visual-basic
Titolo: Porta Parallela

Salve atutti
Sono un giovane programmatore per gli amici Jolly.
Programmo con Vb6 e vorrei intrfacciare un piccolo circuito elettrico da me
progettato tramite porta parallela , ma non riesco a trovare un istruzione
che mi possa indirrizzare la porta e mi permetta di inviare dati su di essa.
L'unica cosa che ho trovato e il comando per la porta seriale ma al momento
non mi serve.
Se avete una soluzione al mio problema potete rispondermi anche alla mia
e_mail personale 
Jol...@tiscalinet.it
Grazie a coloro, i quali contribuiranno alla riuscita del progetto.

...


Newsgroup: it.comp.lang.visual-basic
Titolo: [SuperOT] Cerco lista gruppi stranieri

Cerco una lista "abbastanza" completa dei nomi dei Cantanti/gruppi musicali
stranieri
Va bene tutto , sito o cosa
Piu' Specificatamente ( ovviamente se possibile... )
SOLO lettera T
No Classica o simile
NO Folk ,Etnica ecc.
NO Blues , jazz
NO Metal
Niente di particolare cerco un gruppo e non riesco a trovarlo !!!
La pronuncia del gruppo e' simile a "tensi si" penso sia [tensy see] ma non
trovo nulla su internet
Grazie
--
Friciu

 Va bene tutto , sito o cosa
Non illuderti, non lo troverai mai... :-) Comunque guarda qui:
http://www.freedb.org/freedb_search.php
...o soprattutto CERCA UN NG adatto tipo it.arti.musica.*
Credimi, non é (solo) per farti ferti notare che sei eccezionalmente OT, ma
anche perché qui troverai risposte sicuramente piů "competenti", ok? :-)
    Ciao
        Allanon
-- 
- SPAMKILLER
 Rispondete a: 
itlangv...@michele.sytes.net
 e lasciate la parola SPAMKILLER nella risposta

 trovo nulla su internet
Immagino siano i 10 CC almeno la pronuncia è quella :-).
Bye, G.

 Immagino siano i 10 CC almeno la pronuncia è quella :-).
dieci centimetri cubici?
cos'è, un medicinale?
:-)
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 :-)
se lo e', spero sia usato solo in veterinaria :)

Mi stavo per appisolare quando <Paperino> salto' su dicendo:

Trovato !
10cc esattamente la canzone era "Rubber Bullets"
Newsgroup.Efficienza = 1000
--
Friciu

Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto: cerco icone di play, pause e stop

ciao, qualcuno č cosě gentile da inviarmi le icone del classico
registratore?
mi servono i file .ico dei tasti play, pause, stop
grazie
togliere l'antispam
emai: mam...@TOGLIMIhotmail.com

grazie
A parte il fatto che le hai gia' sul tuo pc, e' proprio cosi' difficile
disegnare qualche triangolino, un quadratino e due barrette verticali?
-- 
ciao, hal

disegnare qualche triangolino, un quadratino e due barrette verticali?
... oppure farsi una ricerchina su internet? Bah... pigrizia! :(
-- 
Visita il sito comune del NG: 
http://www.it-lang-vb.net
Visit: 
http://www.hardwaretips.com

 ... oppure farsi una ricerchina su internet? Bah... pigrizia! :(
Perdonatemi tutti ma non resisto: ErgoSum si č dimenticato la parte piů
importante del detto :)
Ciao

 importante del detto :)
Eggià! Manca "Coito" ;-)


apri visual basic assicurati di visualizzare tutte le barre degli
strumenti (dove ci sono play stop e pausa) e premi Stamp/RSist.
Newsgroup: it.comp.lang.visual-basic
Titolo: TrayBar

Caro NG,
ho scaricato l'esempio traybar.zip dal sio comune per gestire l'icona del
mio programma nella tray bar.
Tutto bene se carico l'icona, ma quando chiudo il programma da menů con un
end mi da l'errore:
VB6 ha provocato un errore c0000026H nel modulo KERNEL32.DLL in
0187:bff88539.
Registri:
EAX=ffffffff CS=0187 EIP=bff88539 EFLGS=00000213
EBX=ffffffff SS=018f ESP=007ff0b0 EBP=007ff234
ECX=ffffffff DS=018f ESI=007ff188 FS=131f
EDX=bff7687a ES=018f EDI=8163b988 GS=3f07
Byte all'indirizzo CS:EIP:
5f 5e 5b 8b e5 5d c2 10 00 8b 4c 24 04 56 0f b7
Immagine dello stack:
0fc0c000 00000000 00654768 0001001f 00000000 00000000 00000000 00000000
00000000 00000000 ffff137f ffff0000 ffffffff 00000000 00000000 00000000
mentre se lo chiudo con la crocetta va bene.
Non me lo spiego, perchč ho inserito, sia nel Form_unload che nel mnuChiudi
la riga:
Call Shell_NotifyIcon(NIM_DELETE, nic)
Un altro errore che ho notato č nel popupmenu nel senso che, eliminando dal
modulo la riga
Form1.List1.AddItem "Premuto il pulsante sinistro!"
che precede la chiamata del popupmenu, il menu non compare.
Come mai ?
Grazie a chiunque mi rispondesse

 > Un altro errore che ho notato è nel popupmenu nel senso che, eliminando

Newsgroup: it.comp.lang.visual-basic
Titolo: [newbie] File di testo e VB

Salve,
ho un problema: se ho un file di testo che rappresenta una sorta di
database, con un record per riga e dei separatori per i campi, come faccio
ad andare a leggere i singoli record e i valori dei campi?
Immagino che si debba aprire il file, ma poi per "leggere dentro"? Conviene
leggere carattere per carattere?
Grazie per l'aiuto
Joe

 wrote in message news:3a57...@news.cis.it...

Questa e' una straFAQ.
Fatti un giro sul ng e troverai KB e KB di msg al riguardo.
Ti do cmq un aiuto:
cerca sulla guida i seguenti comandi:
Open            :        per aprire il file
Line Input        :        un modo di leggerlo riga per riga (se il file e'
aperto in modo testo)
Get                :        acquisisce un record ( se il file e' aperto in
modo binario)
Input            :    carica una porzione di file (anche tutto) in un buffer
(= variabile) da te definito
Split        : suddivide in un array di righe l' intero file e/o suddivide
in un array di campi la singola riga.
... e ce ne sarebbero ancora !
Ciao
Aldo

Grazie per le dritte... farň un po' di lurk...
Ciao
Joe

 wrote in message
937s7j$8s47n$1...@ID-56381.news.dfncis.de...


 righe consecutive, come si fà?
Si concatenano le variabili che contegono le due righe e si elaborano.
Es. (scritto direttamente in oe, percio' controlla la sintassi)
Dim nFile As Integer
Dim miorecord As String    ' ipotizziamo di buttarlo in una string
Dim buffer As String           ' legge la singola riga dal file
nFile = FreeFile()
Open strNomeCompletoFile For Input As nFile
miorecord = vbNullString
Do Until EOF(nFile)
    Line Input nFile, buffer
    If Len(miorecord) > 0 Then
        ' abbiamo completato il record
        miorecord = miorecord  & buffer
        '' qui mettere il codice che analizza il record
        ''''''''''' ...'''''
    Else
        ' e' la prima parte del record
        miorecord = miorecord  & buffer
    End If
Loop
Close nFile
Ciao
Aldo

         ''''''''''' ...'''''
        ' clamorosamente saltata la pulizia della variabile !
        ' dopo l' elaborazione, prima di proseguire il loop,
        ' occorre resettare miorecord
        miorecord = vbNullString

Newsgroup: it.comp.lang.visual-basic
Titolo: IP di collegamento

Ciao a tutti,
    avrei bisogno di sapere, tramite una qualche procedura
di VB, come individuare ip di collegamento ad internet (sia
tramite modem che router) e ip del Pc.
Grazie ciao

 ha scritto nel messaggio
news:bFKK9.14945$TC5.4...@twister1.libero.it...

Comado DOS "ipconfig".
Bye

 ha scritto nel messaggio
news:DM%K9.20988$ab2.6...@news1.tin.it...



http://www.vbip.com/winsock-api/
E' Natale, sono buono, ma questa domanda viene fatta regolarmente e 
regolarmente viene data risposta.
Ti consiglio di utilizzare 
groups.google.com
 prima di postare.
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 
www.whatismyip.com
).
Che nel mio caso, per esempio, toppa clamorosamente. :-)
A seconda della configurazione della rete, quella pagina ti mostra
semplicemente l'IP che arriva al server, e se sei sotto Proxy, o su
una rete NATtata, il server non potrà mai sapere quello "vero",
cioè quello con cui sei connesso su un'eventuale rete locale.
Lui vedrà, in questo caso, quello che gli viene inviato dal
Router/Proxy/NAT/PAT o quel che è.
Bye, G.

 Router/Proxy/NAT/PAT o quel che è.
esattamente cio' che avviene da noi. siamo in dhcp, ma nelle mie
macchine e in qualcun'altra al macaddress e' associato un ip vero. se
faccio ipconfig ottengo quello finto, ma se esco viene visto l'altro.
ciao.

 che gli viene inviato dal Router/Proxy/NAT/PAT o quel che è.
Esattamente. Conoscere l'IP del router dal PC è
assolutamente impossibile a meno di non interfacciarsi con il
router stesso.
Altrimenti utilizzare 
www.whatismyip.com
 (od una pagina
personale costruita ad arte) ma avendo l'accortezza di non
utilizzare nessun tipo di proxy...
Ciao.
-- 
BSD is for UNIX lovers -- linux is for Windows haters.
Newsgroup: it.comp.lang.visual-basic
Titolo: Errore (20)534 Crystal Report

Ho un semplicissimo programma in VB4. Sul mio pc, dove è presente VB4
e Access95 la stampa con Crystal Report funziona perfettamente.
Ho preparato l'installazione con il wizard di VB4 (includendo i file
proposti dal wizard più il report e l'mdb) , ma sui pc dove installo
il programma la stampa non funziona.
iEsitoStampa = rptModuli.PrintReport
If iEsitoStampa <> 0 Then
    stMessage = MsgBox("Si è verificato un errore in fase di stampa" _
        & Chr(13) & Chr(13) & "(20" & iEsitoStampa & "  " &
rptModuli.LastErrorString & ")", vbCritical)
End If
Al primo tentativo di stampare ricevo 20534 "Error detected by
database dll". Ai tentativi successivi 20504 "Report not found"
(che non mi sembra avere molto senso).
Forse qualche libreria non viene installata o c'é un problema di
Crystal Report nell'accedere al database (il proprietario del database
e delle tabelle è "Amministratore").
Aiuto!
Giuliano

...

Quando lanci la stampa del report con la proprietà Action=1, devi
aver impostato la proprietà DataSource(index) , la quale richiede
il path della tabella.
Questo errore avviene quando tu sviluppi il report con il CR ed imposti im
maniera fissa il database. In VB devi dire il nuovo path del database.

maniera fissa il database. In VB devi dire il nuovo path del database.
Grazie. Il problema è sicuramente il percorso. Però la proprietà che
intendi penso sia DataFiles(index);
DataSource non ha indice e credo abbia senso solo se ReportSource
è impostato a "3 - All Data Control Fields".
Ho inserito questo codice all'avvio.
sDir = CurDir
frmMain.datModuli.DatabaseName = sDir & "\Mvi.mdb"
frmStampa.rptModuli.ReportFileName = sDir & "\Mvi.rpt"
frmStampa.rptModuli.DataFiles(0) = sDir & "\Mvi.mdb"
Inoltre da Crystal Report ho modificato il mio .rpt impostando il
percorso del database uguale a quello del report.
La cosa incredibile è che ora funziona, ma solo per una volta. 
La seconda volta che lancio una stampa senza riavviare il programma
rispunta lo stesso errore. Bah..
Ciao e grazie.
Newsgroup: it.comp.lang.visual-basic
Titolo: Domandina facile facile

Scusate l'ingenuità della domanda ma come posso far apparire un file
help.txt alla pressione di un tasto e ritornare al mio prg quando chiudi
l'help.
Il codice per cortesia.
Grazie
jas



Sul Sito COmune trovi un esempio di come eseguire un task ed attenderne la chiusura.
Comunque per visualizzare un file di testo il codice è:
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
Dim valrest As Long
valrest = ShellExecute(0, "open", "Help.txt", "", "", 0)
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

 wrote in message
coa4js4n1orbnim1e...@4ax.com...


Scusa se insisto
http://www.murialdo.it/it_lang_vb/prj/ShellWait.zip

Newsgroup: it.comp.lang.visual-basic
Titolo: Domande su InnoSetup

Salve a tutti,
Da pochissimo ho cominciato a usare questo fantastico tool per creare i 
setup...
Ed ecco le prime domande:
1) Come faccio a fare in modo che innosetup prende i file .dll e .ocx, li 
copia in \WINDOWS\system32 e li registra?
2) Tra le opzioni č possibile fare in modo che richieda il codice seriale... 
perň ne fa impostare solo uno... č possibile invece fare in modo che il 
codice lo genera in base a un algoritmo(ad esempio prende il seriale del 
disco ecc...)
3) Come faccio a fare in modo che poi il programma appaia nel "menů avvio" 
in "tutti i programmi" ?
4) E... come fare per installare automaticamente il .net framework se non lo 
si ha installato?
Bye,
-- 
Carmine ( 
pikachu...@gmail.com
 (Togli la scritta NOSPAM) )
Webmaster di The Total Site 4 : 
http://www.thetotalsite.it
MariokartDS Codice Amico: 532639027909 - CarmineC in MarioKartDS 

 si ha installato?
se ti guardi questi post sul newsgroup di inno setup dovresti trovare
la soluzione
http://news.jrsoftware.org/cgi-bin/htsearch?method=and&format=builtin-long&sort=score&config=htdig&restrict=&words=install+.net+framework
-- 
Inno Setup Extension Knowledege Base
http://www.vincenzo.net/isxkb
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 
http://news.jrsoftware.org/cgi-bin/htsearch?method=and&format=builtin-long&sort=score&config=htdig&restrict=&words=install+.net+framework
Ok ci do un occhiata.


 E... qual'è il costrutto per creare lo shortcut?
devi riempire la sezione [Icons] e nell'help di Inno Setup
trovi le Constants da usare per creare le icone dove desideri.
Ad esempio {userdesktop} per creare lo shortcut sul desktop dell'utente.


 dell'utente.
Ok quindi:
[Icons]
Name: "{userdesktop}"; Filename: "{app}\programma.exe"Giusto?
Ora vedo un pò l'hep per vedere le costanti...

Newsgroup: it.comp.lang.visual-basic
Titolo: DATA REPORT - Stampa in orizzontale

Scusate la mia insistenza: qualcuno sa come stampare un report con
DataReport in orizzontale invece che nel solito formato A4 verticale?



 DataReport in orizzontale invece che nel solito formato A4 verticale?
Non uso datareport, ma non sara' forse la proprieta' Orientation? Io ci ho
provato!

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Compressione in tempo reale

  Ho visto che esistono diversi controlli per la
compressione/decompressione dei file ma esiste qualcosa per effettuare
queste operazioni in tempo reale in maniera trasparente per l'utente?
In pratica, mi puo' capitare di lavorare con file random composti da
migliaia di record e quindi molto grossi e mi piacerebbe che
occupassero meno spazio, ma siccome devo continuare ad utilizzarli da
un programma non posso semplicemente zipparli, dovrei usare una
tecnica che mi permetta di comprimerli ma allo stesso tempo permetta
al programma di decomprimere i dati che legge e presentarmeli "in
chiaro", come facevano i vecchi Stacker, DoubleSpace & C. ma sul
singolo file (mi pare lo faccia NT).
  Qualcuno conosce un ActiveX/DLL (sarebbe gradita l'esistenza anche
di una versione a 16 bit) che faccia questo lavoro?
  Ciao :-)
  Massimo
  Nell'indirizzo, inserire una "h" tra la "t" e la "u"
  In the address, insert an "h" between the "t" and the "u"


No, ma sul Sito Comune (
http://www.murialdo.it/it_lang_vb/
) trovi dei
sorgenti VB per algoritmi di compressione (LZW).
--
Roal Zanazzi
z...@iol.it

sorgenti VB per algoritmi di compressione (LZW).
  Questo puo' essere comunque utile. :-)


Newsgroup: it.comp.lang.visual-basic
Titolo: Dove cambio il nome Progetto1?

Ciao a tutti,
essendo probabilmente una domanda banale ho preferito cercare su vecchi post
con Google.
Ma tutte le precedenti richieste si riferivano alla cartella di destinazione
dell'installazione dell'applicazione...
Io, invece, vorrei cambiare il nome al progetto, cioè quello che appare
nella lista dei progetti recenti all'apertura di VB NET. Ogni applicazione
infatti si chiama sempre Progetto1 pur avendo modificato il suo nome in
"Proprietà-->Proprietà di Progetto1..."
Ringrazio tutti in anticipo.
Ciao
Emiliano

 "Proprietà-->Proprietà di Progetto1..."
Forse hai cambiato il nome dell'assembly...
In Esplora Soluzioni, clicca col tasto destro del mouse sul nome del
progetto (o della soluzione) --> Rinomina.
Così dovrebbe andare.
:-)
                                Ciao
                                        Zephiross

                                         Zephiross
Ok grazie,
adesso funziona...
Ciao
Emiliano
Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con Visual Installer 1.1

Salve a tutti,
Ultimato il mio programma, scritto con Visual-Basic 6, ho creato un
pacchetto con visual intaller 1.1
ma mi da un messaggio nel task list che e' il seguente:
One or more files in MDAC.MSM have different versions than those installed
on this machine.
Come risolvere il problema?
Grazie a priori.

 ha scritto nel messaggio
news:sWoxb.147265$vO5.5...@twister1.libero.it...

viene fuori anche a me, ma si tratta solo di un warning. il setup risultante
è perfetto e funzionante. Anche perchè di solito mdac_typ.exe lo installo a
manina prima o dopo aver fatto il setup della mia applicazione. Tra l'altro
lo stesso msg mi appare anche per tutta una serie di dll/ocx di cui faccio
nell'applicazione....
non so darti un motivo preciso, ma ti posso dire di andare avanti
tranquillo....
good coding!!!
-- 
Alletun
Sorry, ask me if you want to get my e-mail!

Newsgroup: it.comp.lang.visual-basic
Titolo: come si usa umageList? ;-(

Piu' conosco VB 5 SP3 e piu' lo vorrei evitare :
Utilizzavo un comando del genere per caricare una sequenza di bitmap:
for i=1 to 8
	image1(i).picture=loadpicture(file(i))	
next i
( la notazione file(i) e' una abbreviazione! )
Queste image1() si trovano su uno UserControl ed alcune istanze di
questo UserControl si trovano su frm1.
Poiche' mi sembrava poco efficiente caricare ogni volta le immagini da
disco ho avuto la brillante idea di usare un controllo ImageList!
Lo ho inserito in un form; ho caricato le mie bitmap e ho modificato la
sintassi come segue:
for i=1 to 8
	image1(i).picture=frm1.imagelist1.listimages(i).picture
next i 
( o per i piu' pignoli tra voi, anche set image1 ... )
e ... non funziona piu' nulla. O meglio se non caricasse piu' le
immagini non sarebbe un grande problema; ma, udite! udite! non riesco
piu' a visualizzare frm1 (non in run-time, in design-time !!!) ed appare
il msg "An instance of frm1 cannot be created because its designer
window is open". Open dove??? mi chiedo io!!!
Ho commentato le righe incriminate ma il problema permane; procedero' a
caso finche' non riottengo il mio frm1 !
Cosa succede?
grazie
		maxx

 
Guarda che se stai scrivendo un UserControl e hai il progetto di prova
nello stesso gruppo di progetti, devi chiudere tutte le finestre di 
codice dello UserControl e POI riaprire il progetto di prova.
Ciao
Riccardo

 Riccardo
Ovviamente lo ho fatto...e non fungeva lo stesso...
Purtroppp avevo dimenticato di commentare una riga...
Comunque, non credo sia il modo piu' intelligente per gestire il
problema (da parte di VB, ovviamente). Ed infatti ho rinunciato ed ho
spostato la imageList nello UserControl. E tutto funziona!
Grazie comunque
maxx
Newsgroup: it.comp.lang.visual-basic
Titolo: Stringhe

Vorrei far in modo che nelle caseele di testo vengano scritti solo numeri ma
non so come fare la restrizione sui caratteri.
Qualcuno ha qualcosa da suggerirmi?
Grazie
Paolo Giammarco
p.gia...@flashnet.it

...

Devi settare la Proprieta' Multiline a true e la proprieta' Align a Right
dopodiche' controlli con l'evento Key_Press che vengano digitati solo
numeri.
Ciao
Fabio Carucci
Mc1...@mclink.it

...


 numeri.
  Scusa, ma a cosa serve settare tutte le property di cui parli? Mi pare 
che per trappare certi caratteri sia sufficiente scrivere un paio di righe 
di codice nell'evento Key_Press.
-- 
  Ciao :-)
  Massimo
  Nell'indirizzo, sostituire DIESPAMMERS con MC1258
  In the address, replace DIESPAMMERS with MC1258

-- 
Serve ad avere il numero allineato a destra, come in Access.
Ciao
--------------------------------------------------------------------
Fulvio Senore
Eliminate "zz" dall'indirizzo e-mail per scrivermi (spammers...)
Remove "zz" from e-mail address to write me (spammers...)
--------------------------------------------------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con funzione selcet

...


Newsgroup: it.comp.lang.visual-basic
Titolo: GradientTitle OCX

Salve a tutti
Ho un'applicazione scritta in VB6.0 nella quale utilizzo il controllo
scaricato dal sito comune (mi pare) gradienttitle.ocx
Ho il seguente problema: lanciando il setup del mio pacchetto sotto NT 4.0
nessun problema, invece, sotto Win95 mi da un messaggio di errore che dice
che è fallita la registrazione dell'OCX.
...mi era già capitato e mi pare fosse necessario includere una DLL del VB5
per non avere pià questo problema... ma non ci salto fuori... guardando i
vecchi setup di programmi funzionanti non riesco a capire quale è la dll da
includere!
grazie e ciao

 wrote in message
10nelng$ini$1...@fe2.cs.interbusiness.it...


Gia provato, ma non è quella la DLL!!!

 scaricato dal sito comune (mi pare) gradienttitle.ocx
Se serve, ho un modulo .bas + esempio che fa esattamente
la stessa cosa ma senza usare OCX, solo l'API.
Dato che è un modulo piuttosto completo, che può servire
anche ad altre cose, non lo posto qui - non è proprio il caso.
Per posta si. Devi dirmi se l'indirizzo email da utilizzare è quello
corrente.

 la stessa cosa ma senza usare OCX, solo l'API.
interesserebbe anche a me, se puoi, grazie in anticipo.
l'inidirizzo e' qui sotto, non fare reply.
ciao, a.
--
andrea dot palazzi at tin dot it
free vb/sw: 
http://www.comune.modena.it/cittadini/apal/html/

 corrente.





Ho trovato, era la dll "Msvbvm50.dll"
Newsgroup: it.comp.lang.visual-basic
Titolo: codice ASCII del tasto INVIO

Ho la necessità di conoscere il codice ASCII del tasto INVIO, purtroppo
per quello che devo fare la costante VbCrLf non funziona. Potete
aiutarmi ???
Grazie
LP

Dovrebbe essere 13 (a capo) e 10 (new line)...
Sono parecchi mesi che non uso questi codici... se non vanno prova solo
13...
CiaoZ
SebaMix

usa la costante vbkeyreturn

 aiutarmi ???
Per forza, stai usando il ritorno a capo completo, composto da due 
caratteri, Invio + Linefeed.
Devi usare VbCr ovvero il valore 13.
-- 
News2000 1.5ß Version 
http://socket2000.8m.com

usa  keydown ti restituisce
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim x
End Sub
comunque invio è il 13
"due di picche" <mega...@TOGLIaruba.it> ha scritto nel messaggio
news:9194ql$4rl$1...@fe2.cs.interbusiness.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Confronto Array

Salve ha tutti ho un problema. (Grande inizio è!)
devo fare una piccolo funzione in VB5 SP3 per confrontare due array di 6
elementi.
questa funzione (booleana) deve ritornare falso se almeno un elemento nel 1°
array compare anche nel 2°, vere se nessun elemento del 1° array compare nel
2°.
Secondo voi qual'è la via più breve per eseguire questa stupida funzione?
Magari fatemi qualche esempio di codice!
Grazie in anticipo
Andrea

Improvvisando:
Public Funzione (array1(), array2()) as Boolean
Dim I as byte, J as byte
For I = 1 to 6
    For J = 1 to 6
        If array1(I) = array2(J) then
                Funzione = False
                Exit Sub
        End If
    Next J
Next I
Funzione = True
End Sub
Dovrebbe funz., Ciao Carlo


End Sub
OK, questo è perfetto se hai piccoli array. Se però dovessi cominciare a
lavorare con strutture più grosse, i due cicli annidati comincerebbero a
diventare troppo onerosi. Per esempio con array di 1000 elementi avresti
1000*1000=1000000 cicli.
Una soluzione potrebbe essere quella di ordinare gli array prima di eseguire
il confronto. Puoi usare uno dei soliti algoritmi di ordinamento (ti
consiglio mergesort o quicksort) e poi eseguire il confronto in questo modo
(se gli array sono stati ordinati in senso crescente, dove MaxArrayX è il
numero di elementi di ciascun array):
Public Funzione (array1(), array2()) as Boolean
Dim X as Long
Dim Y as Long
Do Until Array1(X) = Array2(Y)
    If Array1(X) < Array2(Y) Then
        X = X+1
    ElseIf Array1(X) > Array2(Y) Then
        Y = Y+1
    End If
    If (X = (MaxArray1-1)) And (Y = (MaxArray2-1)) Then
        Funzione = True
        Exit Do
    End If
Loop
Funzione = False
End Function
Come vedi hai al massimo MaxArray iterazioni più la spesa per odinare i due
array; considerando che gli algoritmi di ordinamento hanno un numero di
cicli pari a N*log(N), nel caso di 1000 elementi verresti ad avere:
(spesa per odinare il 1° array)+(spesa per odinare il secondo array)+(spesa
per il confronto) =
1000*log(1000)+1000*log(1000)+1000 =
circa 21.000 cicli.... contro il 1.000.000 richiesto dal ciclo annidato!!!
Ovviamente, ripeto, il tutto non ha senso per array di piccole dimensioni.
Ciao, Alessio.