mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] passaggio di oggetti/varaibili da DLL activeX a exe

Salve
Ho sviluppato una dll che importa un formato di file proprietario.
Ora ogni entità letta nel file è incapsulata in un type es:
type Record
    var1 as double
    var2 as string
    var3 as integer
    var4 as boolean
end type
dopo aver importato il file nella DLL mi ritrovo con un vettore di di questi
record.
Vorrei impostare un metodo "getRecord (nrecord,rec as record )" che mi
ritorna il record che ho selezionato (nrecord) nella variabile Rec.
Ma VB5 mi da errore di cendo che non è possibile inserire in membri publici
variabili definiti dall'utente.
Come faccio?? Ho provato a creare una classe "record" ma anche così non
riesco a passare l'oggetto dalla dll all'exe.
Grazie a tutti...
Davide

 wrote in message
news:7xRJ5.26991$3K3.6...@news.infostrada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: UN click dopo l'altro.


iQA/AwUBONokVJ3vlwaf4J7sEQJvBwCdF2y/H2OSf0PuEMRln418eYgnH8oAoPt7
Ncf6a7tFyOI71DU90S+BRyqK
=3fNs
-----END PGP SIGNATURE-----

 che ho messo per ultimo
Public sub command1_click()
Static btnValue as Byte
    Select Case btnValue
    Case n
        Text1.Text = "Qualcosa n"
         btnValue = 1
    Case 2
        Text1.Text = "Qualcosa 2"
         btnValue = n
    Case 1
        Text1.Text = "Qualcosa 1"
         btnValue = 2
    Case Else
    'NOP
    End Select

> "Jimi"

Oppure cosi', pero' senza la n-feature:
Static y As Byte
  Select Case y
  Case 0
  Case 1
  Case 2
  Case Else
    'NOP
  End Select
  Let y = (y + 1) Mod 3
End Sub
--
Ciao.
Maurizio

 che ho messo per ultimo
La dichiarazione "dim x..." in Form_Load non ha senso in quanto lo scopo
della variabile si esaurisce all'uscita dalla routine: viene da pensare che
tu non usi "Option Explicit"... confermi?
Se tu avessi un pc mooolto lento, diciamo un 386SX, potresti distintamente
cogliere cio' che avviene realmente: PRIMA Text1 riceve il valore "This is a
test 1", POI "Secondo click!", e questo ad ogni clic. Puoi verificarlo
eseguendo passo-passo, col tasto F8, quello che i piu' pudibondi fra noi non
usano perche' non sta bene.
La soluzione gia' l'ha fornita Jimi.
--
Ciao.
Maurizio


iQA/AwUBONpo4p3vlwaf4J7sEQKerACZAZPNl0btUe5zjdiUo+Psk76YMusAoLTq
l3OYwz//K6KdcqZonCHma+C9
=tMLN
-----END PGP SIGNATURE-----

Case n 'cosa significa? 
Significa:
Nel caso che il valore btnValue 
	nel caso = 1
		allora esegui questo
	nel caso = 2
		allora fai questaltro
	nel caso = 3
		allora fai ciò altro
	altrimenti (Else)
		fai questa cosa quà
fine nel caso
 

 


 personale ;-(
--
Ciao.
Maurizio

 ...

Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal Report

Richiesta di Aiuto!
Sto cercando sul Web documentazione relativa a crystal report (tutorial,
esempi, help, ecc.) per progettare dei report da utilizzare in una
applicazione basata su vb6 e access.
Qualcuno č in grado di aiutarmi?

Aiuto!!
Devo realizzare un applicativo gestionale basato su vb6 e access con la
possibilità di stampare dei report.
Pensavo di utilizzare crystal report che però sto imparando ad utilizzare,
siete in grado di indicarmi qualche sito che contenga tutorial, manuali,
esempi o qualche libro da consultare??
grazie in anticipo.
claude75

 wrote in news:ah4f0l$60u$1
@
serv1.albacom.net
:

www.crystaldecisions.com
ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: controllo Common Dialog

Sto creando una applicazione VB che utilizza la finestra di dialogo Apri del
controllo Common Dialog.
Attraverso l'evento FileName riesco a leggere percorso e nome del file che
viene selezionato per l'apertura ed a memorizzarlo in una variabile di tipo
stringa.
In un'altra stringa vorrei memorizzare solo il percorso del file selezionato
senza però il nome.
Come posso fare??
Grazie a tutti

senza però il nome.
InstrRev su "\"
-- 
ciao, hal

 InstrRev su "\"
Solo per amore di completezza: c'è anche la .FileTitle, che
dà solo il nome del file. Si può quindi fare un
strPercorso=left$(.FileName, len(.filename)-len(.filetitle))
Sicuramente la soluzione dell'InstRev sarà più veloce,
perché non deve accedere a più proprietà... ma in VB5
la InstrRev non c'è :-)), quindi o ne usi una emulazione,
o usi quest'altro sistema.
Bye, G.

 la InstrRev non c'è :-)), quindi o ne usi una emulazione
InStr(StrReverse(stringa), "\")
Con VB6, devo scrivere come sopra perchè InStrRev non mi funziona !
A meno che non mi sfugga qualcosa dal codice qui sotto:
'assegna a imgfile la stringa(path attuale del file) con lettura del file
ini
imgfile = Cini.LeggiIni("Gnomo", "BackImg", "C:\Oleg.ini")
If imgfile = "nessuna" Or imgfile = "desktop" Then GoTo windir
'trova la posizione della barra in stringa imgfile
poslash = InStrRev(imgfile, "\")
'trova il nome del file
nomefile = Right(imgfile, poslash - 1)
'determina la path di imgfile escludendo il nome del file
finalpath = Left(imgfile, Len(imgfile) - Len(nomefile))
Grazie.
--
Gulp ! Forse mi sono perso qualcosa !

 nomefile = Right(imgfile, poslash - 1)
Forse è poslash +1
Però, la prossima volta, specifica meglio quale è il problema. Non per noi,
sia chiaro, è che qualche volta, "formalizzando" il problema, cioè
descrivendolo in modo chiaro, la soluzione la trovi ancora prima di fare la
domanda.
Salutoni
Sergio

 ancora prima di fare la domanda.
Ok hai ragione. Scorro spesso in lettura i vari thread del NG, si impara
sempre qualcosa !
Ho letto questo thread e non sapevo di InStrRev ... mi piace pensare che il
codice sia il più pulito ed il più semplice possibile...anche il più corto
(!) e, spesso per un hobbista come me, non è sempre facile.D'istinto sono
corso a sostituire InStrRev a InStr(StrReverse....
col risultato che non funzionava più....
Ciao.

Newsgroup: it.comp.lang.visual-basic
Titolo: [?OT] Problemi newsgroup

Succede solo a me, o č un problema comune quello di evere messaggi del
24.12.2001 di questo newsgroup 'non piů disponibili sul server'?
--
Esteban
Hosted by 
www.seber.it
Remove 'nonspammare' for reply


Risolto, scusate!
E' colpa di IOL che mi ha detto che il server delle news č cambiato, ma non č
vero!
Ciao!


Newsgroup: it.comp.lang.visual-basic
Titolo: Controlli e layer di lavoro

Salve,
premetto che il tasto F1 l'ho già pigiato...
vorrei sapere se è possibile portare in secondo piano un oggetto (label) a
runtime.
Mi spiego, in fase di escuzione programma creo alcuni oggetti,bene,dovrei
ordinare i piani e sovrapporre due oggetti creati a mio piacimento.
Es,
creo un shape
creo una label
vorrei portare la label "dietro" la shape.
Grazie
R.Zanni
-- 
Posted from  [193.70.106.130] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

metodo Zorder
CIAO
Claudio Gamberini




Newsgroup: it.comp.lang.visual-basic
Titolo: Numeri decimali

In un campo del mio form posso inserire solo valori numerici, ma per default
il valore del tastierino numerico è il punto e non la virgola. Dato che
abitualmente si utilizza il tastierino numerico per valorizzare il
separatore decimale, c'è qualche proprietà da attivare o qualche altro
trucchetto per fare in modo che il valore ottenuto da questo tasto sia la
virgola e non il punto?
Grazie a chiunque può darmi una dritta....
MAZ

se ho capito bene vuoi trasformare il punto in virgola
se ho capito bene eccoti la proceduraù


 il punto venga scritto?
Non mettiamo in mezzo i polli :)
Private Sub Text1_KeyPress(KeyAscii As Integer)
   If KeyAscii = 46 Then KeyAscii =44
End Sub
Tutto qua...
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca

 se ho capito bene eccoti la proceduraů

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Duplicazione Tabella

Come posso duplicare una tabella?
ovvero.. ho 2 mdb e devo copiare tutti i campi da una tabella all'altra
che ha diverso
nome ma campi identici...
e possibile farlo con un unico comando ?
tipo APPEND del clipper
o almeno un record alla volta
o devo inserire la replace di tutti i campi ?
Grazie 100.00  !!!
--
!------------------------------------------------!
!ICQ     : 8281944
!E-Mail  : 
Dan...@levon.it
!
!" Niente forma il carattere quanto l'abitudine
!  costante a dire sempre la verita' "
!
!HomePage : 
http://www.levon.it/daniele
!
!------------------------------------------------!

tipico caso in cui un'istruzione sql potrebbe essere piu' veloce. se nessuno
te la propone (io non mi sento molto sicuro nel campo), se vuoi mi ero
scritto un ciclo dao, dovrei cercarlo ma da qualche parte ce l'ho. cmq non
e' difficile da impostare. fammi sapere se ti serve.
Daniele Pinai <d.p...@Levon.it> wrote



Devi usare la SELECT INTO o la INSERT INTO...... un'istruzione SQL ed il
gioco e' fatto.
Ricordati che SELECT INTO non vuole la tabella di destinazione esistente,
infatti la crea automaticamente, mentre la INSERT INTO vuole chiaramente una
tabella gia' presente.
Dai uno sguardo all'HELP in linea e fai qualche prova, se hai problemi fammi
sapere ti posto l'istruzione esatta.
Ciao
Ven.

In un caso analogo io ho fatto cosě:
Dim TipoFld, NomeFld, SizeFld, AlwZero, AttrFld
Dim NewTab As TableDef
Dim templateTab As TableDef
Dim FLDCiclo As Field
Set NewTab = MyDb.CreateTableDef("NuovaTabella")
Set templateTab = MyDb.TableDefs("VecchiaTabella")
For Each FLDCiclo In templateTab.Fields 'copia tutti i campi del template
    TipoFld = FLDCiclo.Type
    AttrFld = FLDCiclo.Attributes
    SizeFld = FLDCiclo.Size
    NomeFld = FLDCiclo.Name
    AlwZero = FLDCiclo.AllowZeroLength
    NewTab.Fields.Append NewTab.CreateField(NomeFld, TipoFld, SizeFld)
    With NewTab.Fields(NomeFld)
        .AllowZeroLength = AlwZero
        .Attributes = AttrFld
    End With
Next FLDCiclo
MyDb.TableDefs.Append NewTab 'crea la nuova tabella
'riempie la tabella con i dati
txtSQL = "INSERT INTO NuovaTabella  SELECT * FROM VecchiaTabella;"
MyDb.Execute txtSQL, dbFailOnError
Sappimi dire se č quello che cercavi

 Sappimi dire se è quello che cercavi


Proposizione "IN".
Esempio: (database di partenza=FromDb) (path del database di
arrivo=ToDbPath$)
FromDb.Execute "Insert into MiaTabella2 In '" & ToDbPath$ & "' Select * From
MiaTabella1"
Attento agli apici.
Fabio Pagano
Daniele Pinai ha scritto nel messaggio <381F1A14...@Levon.it>...

Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo WebBrowser e ReadyState

Qualcuno ha qualche tutorial sull'uso del controllo in questione?
In pratica, non ho la possibilita' di utilizzare gli eventi dell'OCX per
controllare quando una pagina ha finito di caricare, ma posso usare solo la
proprieta ReadyState...e non mi sembra una proprieta' molto affidabile :-)
Qualcuno di voi ha gia' dovuto affrontare il problema ed ha qualche
suggerimento?

 per controllare quando una pagina ha finito di caricare
davvero?
che problemi hai?
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 ha scritto

esempi ce ne sono sparpagliatissimi per tutta la rete, di livello molto
vario, in genere bassino.
se ti serve sapere la progessione del caricamento puoi usare progresschange.
qui e' visualizzata via progressbar
Private Sub WB1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As
Long)
    On Error Resume Next
    PB.Max = ProgressMax
    PB.Value = Progress
    PB.Refresh
End Sub
e qui da un'etichetta autosize dentro un picbox:
Private Sub WB1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As
Long)
    On Error Resume Next
    With lblPB
        .Width = (Progress * PB.ScaleWidth) / ProgressMax
        .Caption = (Progress * 100) / ProgressMax & "%"
    End With
End Sub
-- 
hth, ciao, j.
http://www.sundaysw.com

 che problemi hai?
C'e' un solo OCX comune a tutte le form ed ognuna lo usa per i cavoli suoi,
quindi non mi pareva geniale mettere del codice negli eventi dell'OCX in
modo da gestire solo una situazione. Comunque ho risolto.

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

Salve a tutti, mi controllate la sintassi di questa query SQL....mi dice che
si aspetta un tipo di dati diverso sulla data:
 SQLEstraiAcquisti = "INSERT INTO StatTemp SELECT * FROM Movimenti " _
                        & " WHERE Datamovimento BETWEEN '" & DataIni & "'
AND '" & DataFin & "'" _
                        & " AND TipoMov = 'I' AND TipoMov = 'C' " _
                        & " AND   Fornitore = '" & DBCombo1.Text & "'" _
                        & " AND   Categoria = '" & DBCombo2.Text & "'" _
                        & " ORDER BY DataMovimento"
PS: dataini e datafin contengono il format in americano di una data.
Grazie


Non vorrei sbagliare, ma forse al posto degli apici dovresti usare il
carattere #
Ciao

 


                         & " ORDER BY DataMovimento"
Io ti consiglio di utilizzare un sistema diverso quando lavori con le date.
Se il campo data contiene (appunto!) solo una data, usa una sintassi del
tipo "Select datefield From tablename Where clng(datefield)=clng(date)".
Il sistema funziona anche se il campo contiene un'orario, ma a te non interessa.
In questo modo eviti i casini che Access si porta dietro con il formato della
data. Se invece nel campo date hai anche un orario, invece di clng usa cdbl.
--
Bye. __Andrea Cao__
Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO

c'č qualcuno che mi puņ aiutare. sono impallato!!!
ho eseguito una update di  win98. ora quando apro un pgr in access mi
segnala un errore di run time 3170 impossibile eseguire ISAM istallabile. il
comando su cui si blocca č " docmd.trasfertext. Grazie a tutti e aiutatemi.

Salve a tutti sono Mimmo,
avrei bisogno di associare una fototessera ad una banca dati access, tutto
tramite vb6.
grazie.

 grazie.
salva i jpeg in una dir app.path\jpeg\, e chiamali con un id univoco (il
classico cli_cod e' ottimo). se l'utente "zuzzurellone" ha un id=528, la
foto la chiami 528.jpg.
salvaci anche uno 000.jpg o simili, per i casi in cui la foto non c'e' o non
si trova.
poi nel reposition del datacontrol (se lo usi), o luogo equivalente, chiami
una sub come quella qui sotto. l'ho scritta d'urgenza in 3 minuti ed e'
migliorabile, ma va. attenzione pero' a gestire gli on error sui move del
recordset. a bof/eof senz'altro non corrisponde una foto...
il frmjpeg e' calcolato su un'altezza di 400px per tutti i jpeg. contiene
solo un image.
"completo" e' un campo ricavato, composto da "cognome, nome"
in futuro, p.f., usa soggetti piu' specifici per i post. molti filtrano
quelli troppo generici come "aiuto", e tu non avresti risposta.
--
ciao, j.
www.sundaysw.com
Public Sub JpegShow(ByVal uCod As Long, f As Form)
    If IsNull(uCod) Or uCod = 0 Then Exit Sub
    On Error Resume Next
    Dim fJpeg As String, fEmpty As String, rs As Recordset, sName As String
    Set rs = MainDB.OpenRecordset("select completo from clienti where cod="
& uCod, dbOpenSnapshot)
    sName = rs.Fields(0).Value
    rs.Close: Set rs = Nothing
    fJpeg = dbPath & "jpeg\" & CStr(uCod) & ".jpg"
    fEmpty = dbPath & "jpeg\000.jpg"
    With frmJpeg
        .Move 0, 0
        If Dir(fJpeg) <> "" Then
            .imgJpeg = LoadPicture(fJpeg)
            .Width = .imgJpeg.Width: .Height = .imgJpeg.Height 'migliorabile
            .Caption = CStr(uCod) & " - " & sName
        Else
            .imgJpeg = LoadPicture(fEmpty)
            .Width = .imgJpeg.Width: .Height = .imgJpeg.Height 'migliorabile
            .Caption = CStr(uCod) & " - " & sName & " : immagine non
disponibile"
        End If
        .Show
    End With
    f.ZOrder
End Sub
Newsgroup: it.comp.lang.visual-basic
Titolo: TextWidth

Ho bisogno di usare la funzione TextWidth() da VBA di Excel ma pare che non
esista.
Esiste un altro metodo per calcolare la larghezza in pixel di una stringa,
magari qualche API?
Ciao e grazie.
--
/||||||||||||||||||||||||||||||||||||||||||||||||\
               Kjo
\||||||||||||||||||||||||||||||||||||||||||||||||/

 Esiste un altro metodo per calcolare la larghezza in pixel di una stringa,
magari qualche API?
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 in quanto, essendo un metodo, lo e` di un qualche oggetto particolare.
    Oggetto.TextWidth() e' un metodo.
    TextWidth(stringa) e' una funzione. (Visto che esiste anche in questa
forma.)
Se proprio vogliamo essere precisi, e se VB fosse un linguaggio OO allora
TextWidth(stringa)  potrebbe essere definito (impropriamente !) un Metodo Di
Classe,
al contrario di Oggetto.TextWidth() che sarebbe (propriamente !)un metodo di
Istanza.


     TextWidth(stringa) e' una funzione. (Visto che esiste anche in questa
forma.)
In effetti quello che in vb4 veniva chiamato metodo in vb6 viene chiamato
funzione, ma la sostanza non cambia.
Della funzione, in senso proprio, che dici tu, invece, non ne sono a
conoscenza. Gentilmente, potresti darmi indicazioni in proposito? Nella
guida non riesco a trovarla.


 guida non riesco a trovarla.
Credo che non esista, mi sembrano la stessa cosa, solo che nella seconda è
stato omesso l'Oggetto e quindi è un metodo del form attivo, ma forse già lo
sapevi ;-)
Anzi la prima non funziona, l'argomento è obbligatorio
Ciao VB
Newsgroup: it.comp.lang.visual-basic
Titolo: windows2000 e servizi (forse OT)

Ragazzi ho messo su un programma in vb per
monitorare il traffico sulla porta seriale e parallela
(inutile ora stare qui a spiegarvi a cosa serva...)
ma il mio problema è questo:
dovendo far girare tale software sempre ed in
continuazione vorrei registrarlo come servizio
del sistema operativo. Tutto facile, un paio di api...
certo ma finkè rimango sotto win98...o 98se...
nel momento in cui passo a nt o 2000 vado in crisi
perkè la microsoft mi ha tolto le api per registrare
il programma come servizio per questioni di sicurezza...
come posso risolvere il problema?
praticamente, come posso eliminare da vb il mio
programma dall'elenco delle applicazioni attive
del task manager del 2000 o nt ?
grazie a tutti

 come posso risolvere il problema?
Una rapida ricerca tra i post potrebbe aiutarti vedi links sopra! ;)

ti ringrazio :))
eheh altro ke virus, worm occhicchesia (cosě va meglio? =P) ma č
l'abitudine...
ciao e grazie mille ancora
RamboII

ti ringrazio avevo pensato ad eventuali post precedenti ma nn ne ero
riusciti a trovarli...nn ci crederai ma google nn mi
aveva aiutato :) si vede ke lo avevo irritato troppo =p
grazie ancora.

Una rapida ricerca tra i post potrebbe aiutarti vedi links sopra! ;)
Linchs, vorrai dire :-PPP
-- 
ciao, hal

 del task manager del 2000 o nt ?
Rendere una normale applicazione un servizio è una cosa molto
semplice, puoi utilizzare l'ottimo FireDaemon
(
www.firedaemon.com/
).
Ma, come è stato discusso più volte in questo NG, non è
possibile nasonderla dall'elenco applicazioni attive (al più
puoi mascerarne il nome), cosa, tra l'altro, più che ovvia e
giusta.
Ciao.
--
BSD is for UNIX-lovers -- linux is for Windows-haters.
Newsgroup: it.comp.lang.visual-basic
Titolo: [MANIFESTO] Votazione

 soluzione.
---------------------------------------------------
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
---------------------------------------------------------------------------

 conteggi.
che problema c'e' ? appena jimi ricompare sugli schermi (letteralmente,
eheheh) gli facciamo scrivere un apposito programmino di scansione
(parsing), tanto si sta gia' occupando dei dbx :))
dunque, spero di non essermi perso fra bis e ters :)
1 - s
2 - s
11 - s
12 - s
3 - s
4 - n
4bis - s
5 - n
5bis - n
5ter - s
6 - s
7 - s
10 - n
10bis - n
10ter - s :)
ciao, a.

Dimenticando di farvi gli auguri nel messaggio precedente.
Vi auguro un  buon Natale e felice anno Nuovo.
                       Paolo

Moreno

>MODIFICA12: SI
Smurfit, non capisco il tuo problema... hai letto il post di discussione?
P.S.:
Cerca di quotare il testo.


 --- Modifica N°12: ---    SI
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!

MODIFICA7: sostituire "Bill..." con "Bill Gates"
Come già detto, per le discussioni c'era un mese di tempo: ora non è più possibile apportare
modifiche.



Mi pareva di aver capito che il *non* votare un punto significasse
lasciare in bianco la risposta, ho capito male.
Non mi pareva il caso di quotare tutto il post.
Ciao ed auguri a tutto il NG

 Modifica N°1: SI
 Modifica N°2: SI
 Modifica N°11: SI
 Modifica N°12: SI
 Modifica N°3: NO
 Modifica N°4/bis: SI
 Modifica N°5/ter: SI
 Modifica N°6: SI
 Modifica N°7: SI
 Modifica N°8: SI
 Modifica N°9: SI
 Modifica N°10: SI
Newsgroup: it.comp.lang.visual-basic
Titolo: Che componente usare?

Devo creare una tabella di questo tipo:
Simbolo    Quantità    Prezzo
Pippo      200         5
Pluto      500         3
Che tipo di componente esiste in VB per fare questo?
Grazie
Giuseppe Di Natale
gdin...@tin.it

 Che tipo di componente esiste in VB per fare questo?
Non hai che l'imbarazzo della scelta.
Ora, tralasciando un attimo VB, tu cosa useresti?
Ciao

 Ora, tralasciando un attimo VB, tu cosa useresti?
sottoscrizione annuale a mickey mouse library ?

 Che tipo di componente esiste in VB per fare questo?
Consiglio:
- Se gli item sono pochi usa una ListView
- Se devi formattare la tabella in modo complesso e flessibile usa una
FlexGid
- Se hai tanti dati, magari inseriti in un DB, usa una DBGrid
Ciao,
Carlo.

 ha scritto nel messaggio
news:9svou6$gjd$1...@lacerta.tiscalinet.it...


 sottoscrizione annuale a mickey mouse library ?
C'è l'hooooooooooooo :)))))))))

Newsgroup: it.comp.lang.visual-basic
Titolo: Treeview e posizione

Salve a tutti,
spero che non siate troppo attaccati alla strasudata tastiera....
cmq eccovi il problema, ho una treeview l'utente può aggiungere cartelle,
documenti, etc.
Come posso aprire la treeview in una data posizione dopo l'aggiunta delle
cartelle o dei documenti?
Uno spunto, meglio uno spuntino, mi potrebbe essere di aiuto.
Grazie a tutti,
Simone





 spero che non siate troppo attaccati alla strasudata tastiera....
Credo che tu abbia un problema. "Mi facci vedere i diti".

in effetti vorrei essere la "tastiera napoletana" appiccica abbastanza ;-)

"Simone Sarzano" <sim...@sarzano.com.invalid> ha scritto nel messaggio
news:bfr3r9$obc$1...@fata.cs.interbusiness.it...

TreeView.Nodes("Key").Expanded (non ricordo se è un metodo oppure una
property da impostare a True).
Collapse dovrebbe essere l'operazione opposta
Ciao

 Collapse dovrebbe essere l'operazione opposta
C'è pure un Selected e un EnsureVisible da qualche parte.
Ciao

Grandiiiiiiiii
proprio quello che mi serviva!
Grazie mille, spero di poter contraccambiare!
Simone

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

Come far suonare note musicali in VB come si faceva in Basic ma tramite
scheda audio invece che speaker ???
Grazie
Cristian

 wrote in message
816gm2$6n8$1...@aquila.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: controllo MsHFlexGrid ??

dove posso trovare il controllo MsHFlexGrid ?? Nei componenti di VB6.0
esistesolo un controllo che si chiama MSFlexGrid. E' lo stesso controllo ??
grazie.


No, non è lo stesso controllo.
MSFlexGrid = Microsoft FlexGrid Control
 ( in genere C:\Windows\System\MSFLXGRD.OCX )
MSHFlexGrid = Microsoft Hierarchical FlexGrid Control
( in genere C:\Windows\System\MSHFLXGD.OCX )
Ciao
 Valter
Newsgroup: it.comp.lang.visual-basic
Titolo: Application.Docmd e MSAccess Object Library

Stavo cercando di stampare un report via Vb...
ho cercano nei vecchi post e sul sito di 
morenosoft.com
 mi ritrovo il
codice... piccolo problemino:
"Necessita della libreria di oggetti Microsoft Access 8.0 Object
Library (da aggiungere tra i riferimenti del progetto)."
hem... come si fa ad aggiungerla tra i riferimenti?
Con Pulsante destro addcomponents non c'č......
Grazie...
Fly
P.S: Visual studio 6.0

 ha scritto nel messaggio
news:k6m4guk4on18ll168...@4ax.com...

Progetto, Riferimenti

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

come si fa da vb a cancellare un file su un disco remoto o in locale???
10xatall
masc

 wrote in message
bm5t5.5852$_U1.1...@news.infostrada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [VB.NET] lettura caratteri da file

Voglio leggere il contenuto di un file ma con il seguente sistema non riesco
a caricare tutti i caratteri
(ad esempio ù,è,é,à,ò, ecc):
stringa = leggifile(Percorso)
Function LeggiFile(ByVal Percorso As String) As String
Dim xReader As New System.IO.StreamReader(Percorso)
Dim strLettura As String
strLettura =  xReader.ReadToEnd
xReader.Close()
LeggiFile = strLettura
End Function
come fare?

Aggiungi le informazioni di encoding ovvero:
Dim xReader As New System.IO.StreamReader(Percorso,,
System.Text.ASCIIEncoding.Default))
HTH
-- 
Corrado Cavalli [Microsoft MVP]
UGIdotNET - 
http://www.ugidotnet.org

 ha scritto nel messaggio

Newsgroup: it.comp.lang.visual-basic
Titolo: Apertura database

Come faccio a sapere se ho un database aperto?
Ho provato ad utilizzare:
Databases.Count ma non me lo riconosce
Grazie
LAURA

Laura ha scritto nel messaggio ...

Una volta chiuso con db.close ho assegnato a db nothing

Newsgroup: it.comp.lang.visual-basic
Titolo: Inserire Risultato QUERY su una DBGrid

Vi posto parte del pgm:
Aiutatemi... l'errore è nella parte finale....
Private Sub Command1_Click()
Dim db As Database
Dim rs As Recordset
Dim querySQL As QueryDef
Dim sSQL As String
'Dichiarazione del file Access GestGP.MDB
Set db = OpenDatabase(App.Path & "\GestGP.MDB", False, False)
'****************
'* SELECT ..... *
'****************
sSQL = "SELECT * FROM GP ORDER BY Dipendente " 'WHERE " '& _
       '"GP = '" & Combo1.Text & "' AND Stagione = '" & Combo2.Text & "'"
'MsgBox sSQL
' Crea un nuovo oggetto QueryDef. Poiché ha già
' un nome, l'oggetto viene automaticamente
' accodato all'insieme QueryDefs.
Set querySQL = db.CreateQueryDef("NuovoQueryDef", sSQL)
Set rs = querySQL.OpenRecordset()
DBGrid1.DataSource = rs
E QUI MI DA UN BEL ERRORE :(
' Cancella l'oggetto QueryDef
db.QueryDefs.Delete querySQL.Name
rs.Close

| DBGrid1.DataSource = rs
Usa :
Set  DBGrid1.DataSource = rs

 Set  DBGrid1.DataSource = rs
Ottengo il seguente errore :
La classe non supporta l'automazione (errore 430)
HELP MEEEE

Per prima cosa devi dichiarere il tuo rs withevents globale all'interno
della form
Es.
Option Explicit
Dim withevents rs as ADODB.Recordset
Nella form_load  della finestra  devi dichiarare :
Set rs = new ADODB.Recordset


wrote:

Certo, la proprietà DataSouce di DBGrib non c'è in run time.
La puoi impostare solo prima di avviare il programma.
Puoi risolvere così: inserisci nel progetto un controllo Data e poi
come  recorset del CData gli imposti la query.
Ciao
Robin
(Spero di essere stato chiaro) :-)
Newsgroup: it.comp.lang.visual-basic
Titolo: Lettura file su web server

Ho la necessità di leggere un file di testo presente nella cartella di
un web server.
Leggendo i post precedenti e le indicazioni del sito comune ho buttato
giù questa roba.
----------------------------------
Private Sub Command1_Click()
	Me.Winsock1.Connect "
http://serverweb/sviluppo/testi/20050513.xml
", 80
End Sub
Private Sub Form_Activate()
	Me.Winsock1.Protocol = sckTCPProtocol
'	Me.Winsock1.RemoteHost = "
http://serverweb
"
	Me.Winsock1.RemotePort = 80
End Sub
Private Sub Winsock1_Connect()
	Me.Winsock1.SendData "GET / HTTP/1.0" & vbCrLf & vbCrLf
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
	Dim wTesto As String
	MsgBox "Ricevuti " & bytesTotal & "bytes"
	Me.Winsock1.GetData wTesto, vbString
	Me.txtMessaggio.Text = Me.txtMessaggio.Text & wTesto
	Me.Refresh
End Sub
----------------------------------
... che ovviamente non funziona. In particolare, non viene mai
innescato l'evento "DataArrival".
Cosa sbaglio? Grazie
Peppe

gd6...@eudoramail.com
 wrote:
accesso ftp non si può fare???

 accesso ftp non si può fare???
No. In qualche caso c'è anche l'ftp, ma non sempre, e io ho bisogno di
qualcosa che funzioni "a prescindere".

Dimenticavo un particolare. Sto parlando di VB6.

 Dimenticavo un particolare. Sto parlando di VB6.
Non hai messo la tag [.NET] nel subject, quindi "per default di
it.comp.lang.visual-basic" era implicito che tu parlassi di VB6.
L'errore (= dimenticanza) sarebbe stato fare il contario.
Ciao.
Mauro

 innescato l'evento "DataArrival".
Se modifichi come ti ho indicato, il DataArrival dovrebbe verificarsi.
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: "ping -a" in visual basic

hola gente
domanda: in che modo, in visual basic, riesco a simulare il comando "ping
-a" (ovvero lo switch del comando ping che ritrova l'hostname della
macchina)?
ho trovato tanti esempi, anche uno targato microsoft, per creare un ping in
vb, ma non riesco a raccapezzarmi tra gli zilioni di pagine msdn per
trovare come impostare, da codice, 'sto cazz di switch...
grazie in anticipo
	d.
-- 
Sai quelli che dicono: «Uno torna la sera a casa stanco...».
«Che strazio questo che torna sempre a casa stanco. Lo detesto.
Ma non tornare a casa! Sei stanco? Muori!». 
                                             ### E. Vaime

 macchina)?
Ma vuoi pingare o ti basta risolvere l'ip?
-- 
This fortune soaks up 47 times its own weight in excess memory.
News 2002 [v 2.07] / StopDialer / PopDuster - 
http://www.socket2000.com
Akapulce portal: 
http://www.akapulce.net

 d.
http://www.vbnet.mvps.org/
cerca "ping".
ciao, a.

 Ma vuoi pingare o ti basta risolvere l'ip?
mi serve di chiappare l'hostname (nel senso proprio del bieco nome del pc
che si imposta in windows)
ciao


 
http://www.vbnet.mvps.org/
ci sono delle volte che uno dice "ma minchia, sviluppo in vb da anni e mi
sono perso siti come questo!!!"
^__^
grazie mille

Newsgroup: it.comp.lang.visual-basic
Titolo: stringa casuale

Ciao a tutti, voglio creare una stringa di 10 lettere casuali(es.
"ajstuhnfoe"), ma non ho ben presente come fare.
ho pensato di fare un random tra 1 e 255 e inserire le corrispettive lettere
ascii nella stringa ma non so come fare.
avete qualche idea?
grazie in anticipo
--
-=GicK=-
gi...@gick.cjb.net

 
dim i as integer
dim stringa as string
for i= i to 10
	stringa = stringa & chr$(cint(rnd * 26) + 65)
next i
Questo esempio genera stringhe casuali di sole lettere maiuscole.
Cint(rnd * 26) genera numeri interi da 0 a 25 compresi.
65 e' il codice ASCII della lettera A
Se vuoi aggiungere lettere minuscole devi complicare un po' la routine 
con un altra rnd per scegliere 65 o 97 (a maiuscola o a minuscola).
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

> stringa = stringa & chr$(cint(rnd * 26) + 65)
 e' sapevo che esisteva una cosa tipo CHR$() ma non me la ricordavo. ti
ringrazio di cuore mi hai aiutato tantissimo ciao!!!

Newsgroup: it.comp.lang.visual-basic
Titolo: calcoli su numeri in input

premessa:
sono alle prime armi :-)
devo acquisire in input da un textbox un numero e su di esso scegliere che
tipo di operazione voglio fare( oltre alle quattro operazioni anche sin,cos,
e tangente) tramite un oggetto option o un check.
 ma non riesco nemmeno a cominciare( non riesco a fare acquisire un numero
in input) !!!
1000 grazie.

1.crei un Form
2.Ci metti dentro una textBox di nome txtCalcolo
3.Il Valore della textBox č txtCalcolo.text
"T-T Combo!" <x@y.z> ha scritto nel messaggio
news:gRxH7.68785$sq5.3...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: far funzionare un programma su un altro computer

ho creato un programma che per funzionare ha bisogno di questi file
mswinsck.ocx
comcat.dll  
stdole2.tlb
asycfilt.dll
olepro32.dll
oleaut32.dll
msvbvm60.dll
Vorrei sapere se per farlo funzionare su un altro computer (sprovvisto
di visual basic) mi basta copiare questi file nelle relative
directory, o occorre fare ulteriori operazioni.
In pratica vorrei evitare di creare il programma di setup!

ho creato un programma che per funzionare ha bisogno di questi file
A parte che alcune di queste credo vanno registrate tramite regsvr32,
mi spieghi perche' non vuoi fare un setup?
--
Ciao!
Luca Menegotto

 mi spieghi perche' non vuoi fare un setup?
Eh.... indovina un po'? :D
Mah...
-- 
Rivolterò il mondo per trovarlo, e anche se andasse in Indocina uno dei 
nostri starà nascosto in una ciotola di riso pronto a sparargli nel culo.
(Pulp Fiction)

 scrisse:

Mah, vedendo il wisock viene in mente qualcosa di "losco", ma in
mancanza di ulteriori info.... fino a prova contraria si č innocenti
:D
Ciauz
Aran Banjo
-
web: 
www.ponchio.it
 (non aspettatevi molto)
C'č da chiedere cosa togliere nell'indirizzo ;)
Replay to: *[[banjo]]spamdim..@**
abilene.it
**

 mi spieghi perche' non vuoi fare un setup?
Io un'idea la ho... <eg>
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it

mi spieghi perche' non vuoi fare un setup?
per comprimere il tutto in un zip, ed inviarlo via email (il setup
ordinario occuperebbe molto + spazio)

bye
quanto siete maligni :-)

Newsgroup: it.comp.lang.visual-basic
Titolo: data environment

Ciao ragazzi,
ho un problema.
Ho cercato nei post vecchi ma non ho trovato risposte.
In fare di esecuzione è possibile che non possa cambiare un
dataenvironment?
Ho bisogno di generare un report in base a delle scelte dell'utente.
Credo che sia semplice, ma ci ho perso dietro dei giorni senza capirci
un tubo!
Grazie mille
Matteo
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Ho cercato nei post vecchi ma non ho trovato risposte.
Probabilmente non hai trovato gran che perche' chi ha un po' di
esperienza evita il dataenvironment come la peste.
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Formuletta in VB -> Excel per excel in tutte le lingue

Excel.ActiveCell.FormulaR1C1="=somma(R[-10]C:R[-1]C)"
Questa formula imposta una formuletta, una somma, in una casella di
excel tamite VB.
Ma non credo che funzioni in una macchina in Russia o in Turchia.
Come faccio a inserire la formula in modo "internazionale"?
Saluti

Come faccio a inserire la formula in modo "internazionale"?
Traducendolo in inglese
Cheers
termoPilucco

Traducendolo in inglese
Mica vero!
Provato, non funzia.
Altre idee?

Altre idee?
Certo:
http://tinyurl.com/5cjta
termoPilucco

=SOMMA(A1:A8)   funzia
=SUM(A1:A8)       non funzia
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Errore di Automazione

Scusate il disturbo.
Ogni tanto seguo nell'ombra il newsgroup.
Volevo sapere se qualcuno di voi ha riscontrato il mio stesso problema.
Vi espongo i dati essenziali:
- il mio sistema è un PII 64Mb con WIN95B e IE5.01 senza active desktop
installato e utilizzo VB6 con il SP3;
- Il progetto è abbastanza grosso in dimensioni ma non ritengo siano le
dimensioni dei file a crearmi il problema;
- Ho due controlli OCX (uno sviluppato da me, e l'altro freeware modificato)
che forniscono una incapsulazione di alcuni controlli di base.
- La fonte dati è esclusivamente ADO;
- ActiveReports in versione dimostrativa in attesa che il mio capo faccia
l'acquisto della licenza;
L'errore è saltato fuori all'improvviso senza che io abbia fatto niente di
particolare: Venerdì pomeriggio ho apportato delle modifiche al sorgente e
ho modificato due reports.
Ho ricompilato il tutto, e nella fase di link, senza che generasse
l'eseguibile mi da l'errore di automazione 440 con la caption bar della
MsgBox che ha l'intestazione del controllo sviluppato da me, e
l'errore -
2147352571
 (il codice hex non me lo sono scritto) 'Tipo non
corrispondente' sull'altro controllo.
Visto che ho una certa esperienza con i sistemi windows ho fatto alcune
prove tra cui (previo backup) la formattazione dell'HD e reinstallazione del
minimo indispensabile.
Niente da fare. Tra le prove che ho fatto c'è anche quello di ripristinare i
vecchi sorgenti (gli ultimi utilizzati senza problemi), e quello di
ricompilare i controlli OCX proprietari.
Ho notato che il VB mi da lo stesso errore nel visualizzatore di risorse
solo se è avviato e caricato (prima non lo faceva).
Ho provato a guardare tra le KB di gennaio installate sul mio sistema e non
ho trovato nulla di utile, ho fatto un ricerca anche tramite dejanews e sul
sito della Microsoft, senza nessun risultato.
Grazie a chi si interesserà del mio problema.
Martino Serri.

Sono riuscito a risolvere il problema da solo. Espongo la soluzione per chi
fosse interessato:
In realtà quando avevo fatto la prova con i vecchi sorgenti, non mi aveva
copiato tutti i file. Mi sono accorto tramite Filemon quale era l'ultimo
file processato dal link e sono andato a vedere cosa avesse di particolare
quel form. Magia! Mi si sono ripresentati i due errori, allora ho svuotato
da notepad il contenuto della form e ho reinserito nuovaemente i controlli.
Adesso funziona!
Martino.
Newsgroup: it.comp.lang.visual-basic
Titolo: [Leggere file grafico]e metterlo negli appunti

Salve,
sono nuovamente qui a mendicare un grosso aiuto.
L'idea è quella di scrivere una piccola utility per proteggere dei
files di AutoCAD,in merito ho pensato diverse cosucce ma mi mancano
diverse basi VB per poterle realizzare,da qui le mie
domande/richieste.
Come da oggetto vorrei poter leggere un file grafico (vettoriale di
AutoCAD) e copiarlo negli appunti precedentemente cifrato in un
qualsiasi modo,non mi interessa come.
Avete suggerimenti su come posso fare? o magari dei pezzi di codice?
PS
Ho letto molti post ma,come ho detto non avendo basi ferme non mi è
facile trovare quello che può risolvermi il problema.
Grazie a tutti per le risposte
R.Zanni
Se volete potete inviare anche sulla mia e-mail le risposte :
rza...@fipnet.it

 Avete suggerimenti su come posso fare? o magari dei pezzi di codice?
Visto che li devi cifrare ti conviene aprire il file in binario , leggere X
byte alla volta e cifrarli
------
'apro il file in modalita' lettura
Open "C:\test.dwg" For Binary Access Read Lock Read  As #1
... applichi un algoritmo di cifratura come vuoi tu ( esempio prendi 1
coppia di byte , li inverti e gli aggiungi o togli qualcosa )
close #1
-----
poi  ti scrivi in un text box un file con lo stesso procedimento di sopra e
alla fine quando hai il tuo file intero tutto bello impiastricciato usi
l'oggetto clipboard
'scrivo
clipboard.SetData  "text1" ' e' solo un esempio non funziona
'leggo
clipboard.GetData
quindi su msdn cercati "Istruzione OPEN" e "clipboard" e sei a posto (credo)

 byte alla volta e cifrarli
Credo che per "cifrare" intendesse "come li memorizzo nella clipboard in
modo che possano essere incollati?".
Ciao
--
using System.Gtk.Forms = "
http://www.neodatatype.net/windowsforms/sgf.aspx
"
mathParser = "
http://www.neodatatype.net
"
sitoComune = "
http://www.it-lang-vb.net
"

Salve,
grazie per i suggerimenti,proverò a "scribacchaiare",eventualmente mi
ritroverete a mendicare aiuti.
Grazie
R.Zanni

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

E' possibile reperire in Internet una manuale con le specifiche per la
programmazione che indichi come dare il nome alle variabili ed agli oggetti?
Magari fornito da Microsoft.
es.
Un commad lo chiamo cmdBottone1, una label lblEtichetta1.
Grazie

...


 Se non sbaglio sull'msdn c'č proprio quello che cerchi.


Visual Basic".
... e sarà a breve presente anche sul Sito Comune (nella sezione "Documentazione" (con il prossimo
aggiornamento).
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
---------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: PDF da VB

Ho letto qualche post scritto in precedenza e mi è parso di capire che 
per creare PDF da report generati è PDFcreator il quale installa una 
stampante aggiuntiva tipo come fa il distiller di acrobat.
La mia domanda è, siccome io utilizzo active report per generare report 
di stampa esiste qualche sistema per creare PDF di report senza 
installare programmi aggiuntivi ma implementando tutto in VB6? L'idea è 
quella di creare una routine che generi un PDF da un report di stampa e 
lo invii via email alla sola pressione di un pulsante senza richiedere 
nessun itnervento da parte dell'utente. Ho scritto tutto il modulo SMTP 
ma mi manca la parte per la creazione del PDF per questo chiedevo consigli.
Grazie.

 installare programmi aggiuntivi ma implementando tutto in VB6?
non uso abitualmente active report, ma mi pare ci pensasse lui
a produrre direttamente i pdf.
-- 
ciao, hal

 ha scritto nel messaggio news:UpSQf.5788

Basta stampare sulla stampante "PDF Creator".
Il driver è completamente configurabile anche per automatizzare la scelta 
del nome del file.
Ciao 

Fabio ha scritto:

Si ok, ma posso anche predisporre di creare il PDF senza installare su 
tutti i pc il PDFCreator?

 tutti i pc il PDFCreator?
Dunque, PDF Creator è in tutto e per tutto una stampante del pannello di 
controllo.
Quindi, o ti installi i driver sul client o condividi la stampante in rete.
Ovvio che se non è in qualche modo raggiungibile VB mica se lo inventa come 
slavare il PDF :)
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Copiare i file....

Salve a tutti.
Avrei bisogno di sapere come copiare un file senza l'uso di filecopy,
che non ha nessun codice di ritorno per saper se tutto è andato
bene.....
Mi spiego meglio.
Vorrei copiare un file generico e creare la barra che si sposta in base
alla quantità di informazioni spostate. Tenete presente che devo usare
il VB4 16 bit  ahime'......
Grazie a tutti.
--
Posted from 
agora.stm.it
 [195.62.32.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

Questo è un pezzo di codice postato da Mauro Puddinu nella mailing list
di beginend.
Spero ti sia utile ma stai attento che non è testato:
 Const BufferSize As Long=32000 'Esempio di buffer
    Dim lFileSize As Long
    Dim iFileIN As Integer
    Dim iFileOUT As Integer
    Dim chBuffer(1 To BufferSize) As Byte
    Dim lLastBuffer As Long
    Dim chLastBuffer() As Byte
    'Apre il file di input
    iFileIN = FreeFile
    Open "INFile.TXT" For Binary Access Read _
                        Lock Read Write As #iFileIN
    'Crea il nuovo file prima di scriverlo
    iFileOUT = FreeFile
    Open "OutFile.TXT" For Output Access Write _
                        Lock Read Write As #iFileOUT
    Close #iFileOUT
    iFileOUT = FreeFile
    Open "OutFile.TXT" For Binary Access Write _
                        Lock Read Write As #iFileOUT
    'Progressbar
    Progressbar.Min = 0
    Progressbar.Max = 100
    ProgressBar.Value = 0
    ProgressBar.Visible=True
    'Ciclo di lettura/scrittura
    lFileSize = LOF(iFileIN)
    Do Until EOF(iFileIN)
        lLastBuffer = lFileSize - Seek(iFileIN) + 1
        If lLastBuffer < BufferSize Then
            ReDim chLastBuffer(1 To lLastBuffer)
            'Leggo buffersize byte alla volta
            Get #iFileIN, , chLastBuffer
            'E li riscrivo
            Put #iFileOUT,, chLastBuffer
        Else
            'Leggo buffersize byte alla volta
            Get #iFileIN, , chBuffer
            'E li riscrivo
            Put #iFileOUT,, chBuffer
        End If
        'Avanza la progressbar
        If Progressbar.Value < 100 Then
            ProgressBar.Value = INT(ProgressBar.Value + (100 /
Seek(iFileIN)))
        End If
    Loop
    Close #iFileIN, #iFileOUT
    ProgressBar.Visible=False
-- 
May
---------------------------------------------------------
May.ya...@Lycosmail.com
Togliere MAYBE
ICQ_UIN: 27234690
---------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: help per report

salve programmatori,
sto tentando di scrivere un pgm in vb, ed ho il seguente problema:
utilizzo vb5 e crep.
allora ho dei dati che stampo (una fattura per la precisione), quando
rilancio la procedura, mi vengono ristampati anche i dati relativi alla
prima fattura!!
sara' un problema stupido, ma non ancora riesco a trovare la soluzione!!
forse che crep ha bisogno di essere "ripulito" ogni volta che viene
lanciato??
grazie tante per la collaborazione, e buon lavoro a tutti
roberta
rober...@iol.it

 lanciato??
No, devi semplicemente creare una formula di selezione che ti permette di
filtrare i
dati e non stampare tutto ma solo una fattura o le fatture di una certa
data.

lanciato??


Newsgroup: it.comp.lang.visual-basic
Titolo: Perso nei meandri delle API di windows sotto VB6 !

Ciao a tutti, io utilizzo VB6, tuttavia nonostante io abbia compreso come 
importare le definizioni per poter utilizzare le librerie API, e nonostante 
le mie tante ricerche sul web, ma non conoscendo l' inglese ahimè, non 
riesco a capire che parametri passare a queste librerie ad esempio quelli 
obbligatori e quelli facoltativi, insomma avrei proprio bisogno di trovare 
la traduzione italiana al dettaglio di ogni funzione, con relative 
spiegazioni di quali parametri si aspetta ciascuna di esse e quali parametri 
mi ritornino ove previsto, esiste qualcosa del genere o sono fregato?
Chessò, magari anche un libro di testo, ma che però sia molto dettagliato, 
ovviamente non voglio trovare una deludente guida rapida che mi dica frasi 
del tipo "i dettagli esulano dallo scopo di questo libro" come mi accadde 
con un testo tempo fà, del quale evito di citarne titolo ed editore.
Grazie anticipatamente a tutti coloro che potranno indirizzarmi verso un 
testo in italiano davvero dettagliato, anche in formato elettronico su web 
magari, che almeno non spendo nulla e sarebbe ancora meglio !!! :-)
Salutoni a tutto il News Group. 

 ha scritto:

Non so se è molto dettagliato come lo intendi tu, ma in Italiano
conosco solo questo:
http://members.xoom.virgilio.it/CesareRizzi/
ciao
  Stefano
Newsgroup: it.comp.lang.visual-basic
Titolo: Import di sorgente da VB5 a VB.NET ??

E' possibile importare il sorgente di una applicazione scritta in VB5 nel
VB.NET
?
Il mio scopo è quello di far migrare alcuni programmi da VB5 ad una versione
Web-based...
Ad esempio, ho scritto un programma di contabilità, e mi tornerebbe molto
comodo poterlo convertire in un formato rileggibile dai browser mantenendo
le funzionalità (usa database Access e crystal reports) col minimo sforzo.
Che sia possibile?
Saluti

 ha scritto nel messaggio
news:iA%a9.112714$lu5.2...@twister1.libero.it...

Se il codice è stato scritto con della testa, generalmente la migrazione col
wizard di .Net genera un progetto funzionante abbastanza bene.
Per quanto riguarda il DB, ovviamente occorre che il file Mdb sia sul server
e che il web-server supporti il framework .Net.
Per Crystal-Report non ho idea di cosa succeda.
Non sono mai passato da un Exe a un Asp.Net, per cui non ti so dire. Ho
provato però da Exe a Applicativo .Net, e da VBD a Asp.Net, e in entrambe le
modalità il wizard mi ha generato un progetto funzionante.
Ovviamente, però, il risultato non è ottimizzato per .Net, e se hai usato
controlli di terze parti o Api puoi lasciar perdere.
ciao
Alberto

Newsgroup: it.comp.lang.visual-basic
Titolo: variabile esterna

Salve a tutti ,mi sto cimentando in un terminale packet per radioamatori che
e' oramai finito ma non riesco a trovare il modo (da buon neofita.....)di
far cambiare la visualizzazione dell'ora in una stusbar ,dando magari la
possibilta di utilizzare un inputbox all'utente.
Per far apparire l'ora costantemente ho usato la seguente routine:
PRIVATE SUB TIMER1_TIMER()
DIM UTC
DIM DIF
UTC=DATEADD("h",DIF,TIME)
STATUSBAR1.PANELS.ITEM(4).TEXT=FORMAT(UTC,"SHORT TIME")
END SUB
Il risultato deve essere l'ora UTC che differenzia dalla nostra di 1 o 2 ore
,se inserisco l'inputbox qua dentro mi si forma un bel loop.
Come si potrebbe fare??? Grazie anticipate      Giorgio  (VA)

...

Puoi seguire questa via:
In un modulo bas dichiari come public la variabile DIF.
Crei una form per settare le varie opzioni tra cui quella di DIF.
Nella sub Timer1 elimina la dichiarazione di DIF.
Una volta che esci dall'applicazione ricordarti di salvare DIF nel registro
o, meglio ancora, in un file ini.
Ciao Marco

ok ti ringrazio per il suggerimento che mi hai dato Marco funziona!!
ciao    Giorgio

Newsgroup: it.comp.lang.visual-basic
Titolo: CR + header

ciao
ho una query in un db per recuperare l'intestazione di una ditta, ma
nella sezione report header non viene visualizzato nulla, avete
qualche consiglio?
grazie

Uao ... ecco un altro che crede che abbiamo la palla
di vetro.
Abra cadabra ... abra cadabra .... schshhhhssss
zzzhdhhh putnnnsaa .. BOOOMM
Mi si č rotta sorry.
Ma come diavolo credi che facciamo a sapere
perchč non ti si vede il report se non specifichi
quale strumento usi, quali db stai usando, quale
tipo di connessione .....
Passa pių tardi ...
-- 
Saluti
Andrea Moro

tipo di connessione .....
Prelevo un campo da una query in un db access utilizzando una
connessione odbc

PLONK