mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Creare un form Trasparente

E' possibile creare un form che sia un gif trasparente appoggiabile
sugli oggetti del desktop ?
----------------------------------------------------------
Paolo Hölzl
Gruppo Tekup Software developer (Bologna)
----------------------------------------------------------
ATTENTION!, antispam 
For reply, substitute xxx with gruppotekup

Credo ci sia sul sito comune.

 sugli oggetti del desktop ?
tempo fa c'era un transparent.ocx, mi sembra free, che rendeva appunto
trasparente il form su cui lo mettevi. non era del tutto a punto ma andava.
se e'questo che ti serve, forse lo trovi cercando transparent.zip con
www.filez.com
 (ultimamente va un po' a sprazzi)
oppure
http://ftpsearch.ntnu.no/
mi sembra di averlo trovato su 
win95.com
(attualmente 
http://winfiles.cnet.com/apps/
 )
ma non ne sono sicuro.
hth, pal

 sugli oggetti del desktop ?


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

Mi serve sapere il codice da inserire per poter utilizzare le varie
commondialog (sopratutto salvare e stampare)

 commondialog (sopratutto salvare e stampare)
Hai provato con l'help in linea ?
Bye, G.
-- 
---------------------------------------------
    Le risposte alle tue domande le trovi
    sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
       ... e nell'help in linea !
---------------------------------------------
Real E-address: 
gaet...@hotmail.com

Newsgroup: it.comp.lang.visual-basic
Titolo: Combo e restituzione del codice

Salve,
ho scritto questo codice per leggere i dati all'interno di una tabella
mediante una combo.
LA combo è formata a due colonne, in che modo posso fare per
restituire, dopo la scelta del record, soltanto il valore della prima
colonna alla combo?
Sub popolacombo()
Dim rs As New Recordset
rs.Open "select colonna1, colonna2 from tabella", db, adOpenStatic,
adLockBatchOptimistic
If Not rs.EOF Then rs.MoveFirst
While Not rs.EOF
Form1.Combo1.AddItem rs.Fields(0) + " | " + rs.Fields(1)
rs.MoveNext
Wend
rs.Close
End Sub


if form1.combo1.listIndex<>-1 then
	codice=left(form1.combo1.text,instr(1,form1.combo1.text," |")-1)
end if
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 colonna alla combo?
Beh, prendi con mid o left solo dall'inizio della stringa al carattere " |
".
Al3x
Newsgroup: it.comp.lang.visual-basic
Titolo: CrystalRep + Errore apertura Access session

Utilizzo VB6 con CR5. Ogni tanto, all'avvio del report da form, esce
un "Microsoft Access Session" con UserID: "Admin" e password da
inserire. Ovviamente non ti lascia entrare con nessuna password e se
fai "Cancel" ti butta fuori dal programma con un msgbox "Crystal
Report: Errore in fase di apertura sessione". Non so più che pesci
pigliare e il bello è che non lo fa sempre...
Qualcuno ha avuto lo stesso problema??
Thanks in advance!!!
Ivan

 Thanks in advance!!!
prego (di niente)
ciaociao

io ho installato un software
che conteneva il driver di CR5
e tutto si è sistemato.
Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

...


Newsgroup: it.comp.lang.visual-basic
Titolo: LidtBox Drag / Drop

Hello,
Is it possible to Drag from a ListBox and Drop into another ListBox?
Thanks,
Susan 

Susan ha scritto:

Yes try using the standard events:
Private Sub List1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub List2_DragOver(Source As Control, X As Single, Y As Single,
State As Integer)
End Sub
@Alex
Newsgroup: it.comp.lang.visual-basic
Titolo: Stampa Unionre Con Word

Salve!
    Sto sviluppando un prg e ho avuto l'idea di collegare un rs a diversi
documenti Word, fin qua nessun problema, ma quando vado a creare un nuovo
documento, devo ripetere tutte le operazioni della stampa unione di word?
vorrei evitarlo come posso fare?
Grazie

> "Roberto" [...]:

    Potresti crearti un modello.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

Newsgroup: it.comp.lang.visual-basic
Titolo: combo e comando select

Salve ragazzi ho bisogno di voi.
Il un controllo combo no inserito nella rutine change una Select che insieme
alla funzione InStr trova in un database i record contenenti il stringa
contenuta nella text del combo.
il problema è il seguente:
come aggiorno il combo facendo apparire la lista con il risultato della mia
ricerca?
grazie.

 Salve ragazzi ho bisogno di voi.
Vorremmo, ma non si capisce (almeno io non ho capito) cosa vorresti fare.
Spiegati meglio.

Newsgroup: it.comp.lang.visual-basic
Titolo: [SITO COMUNE] Newsletter Aggiornamento

Newsletter di Aggiornamento del Sito Comune di Visual Basic 
http://www.it-lang-vb.net
.
csv2xls - Convertitore CSV -> XLS
Converte i files CSV nell'equivalente XLS in modalità batch. Necessita 
l'installazione di MS Excel 2000 o superiore
-----------------------------------------------------
MoxCdBurn
MoxCdBurn è un OCX che permettere di scrivere dati su CD in modalita' 
track at once. Incapsula una classe C++ che pilota l' unita' cdrom 
nativamente. Inoltre fornisce numerose informazioni sia sul 
masterizzatore che sul disco.
-----------------------------------------------------
Nicola Ottomano


Ho messo una segnalazione ed il link su:
m.p.i.o.e.
-- 
----------------------------
Mauro Gamberini
http://www.riolab.org/

Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 e Windows vista

Visual Basic 6 e Windows Vista sono compatibili?
Grazie. 

 Grazie.
si si si si si e poi si.

 ha scritto nel messaggio 
news:1170678295....@a75g2000cwd.googlegroups.com...


 installare vb6 e/o visual studio 6 per farci sopra dello sviluppo.
Dal tuo link, mi sa che vedi male:
"The Visual Basic 6.0 IDE will be supported on Windows Vista as part of the
Visual Basic 6.0 Extended Support policy until April 8, 2008. Both the
Windows Vista and Visual Basic teams are testing the Visual Basic 6.0 IDE on
Windows Vista."

 Windows Vista."
Il problema č per i componenti di terze parti, per cui Microsoft non 
garantisce (+ o - giustamente) nessuna garanzia.
Ciao 

 garantisce (+ o - giustamente) nessuna garanzia.
Giusta osservazione. Dovrebbero essere i produttori dei componenti ad
occuparsene. Ammettendo che non siano falliti nel frattempo. ;)

 occuparsene. Ammettendo che non siano falliti nel frattempo. ;)
Considerando che alcuni spacciano ancora per componenti "validi" gli OCX a 
16 bit...
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: visual basic e oracle

sapete se oracle supporta anche il visual basic?

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

Salve a tutti.
Secondo voi l'uso dei cicli quali while wend e for each next è da evitare
in favore dei rispettivi do while loop e for next?
Saluti.
 
 

 Il For..Next dovrebbe essere piu' veloce del For Each..Next, visto che per
quest'ultimo si usa l'iteratore COM.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

Newsgroup: it.comp.lang.visual-basic
Titolo: ActiveX DLL e memoria "cicciata"

Avrei un dilemma riguardo all'utilizzo delle ActiveX Dll. Avendo un
programma EXE di 12/13 Mb che stava diventando ingestibile, ho deciso di
"dividerlo" in diverse ActiveX dll. Il problema è: quanta memoria porta via
il caricamento di un ActiveX dll?
Ogni singola dll, che compilata occupa 1-2 Mb al massimo, quando viene
caricata in memoria quanto porta via?
E' meglio utilizzare 1-2 Activex DLL di 4-5 Mb ognuna o creare un 10-11
ActiveX DLL di 1-2 Mb?
Non so se è chiaro...
Cmq grazie x l'attenzione
Ciao

 Non so se č chiaro...



beh, l'ira di dio non proprio; è un gestionale per ditte di piccola/media
grandezza abbastanza completo...

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto -> fail to load 'pnen3260.dll' [?]

fail to load 'pnen3260.dll' [?]
Ho scaricato un simpatico programmino .exe
dalla rete, lo metto in un pc e funziona, lo metto in quello di fianco e mi
dà l'errore
...tutti e 2 con w2000
..purtroppo l'email del prorpietario non esiste piu'....
...sapete dirmi a cosa serve e come posso risolvere?

 fail to load 'pnen3260.dll' [?]
Ma sul PC dove non va, c'è la Dll richiesta?
Altrimenti, la copi dal PC che funziona, la metti in system32, poi fai un
bel regsvr32.
Declino ogni responsabilità su Virus e affini :-((((
Alberto

 ...sapete dirmi a cosa serve e come posso risolvere?
Era difficile cercare su google vero? :-\
http://www.google.it/search?q=pnen3260.dll&ie=UTF8&oe=UTF8&hl=it&btnG=Cerca+
con+Google&lr=
Ora spiegami cosa c@ppero c'entra con il Visual Basic?? :|

 ha scritto nel messaggio
news:acfp4u$ru2$1...@newsreader.mailgate.org...

...ok ...adesso tutto ok
grazie 1.000

Newsgroup: it.comp.lang.visual-basic
Titolo: dll activex

dove posso trovare un tutorial o una guida in linea su come creare
correttamente e far funzionare delle dll activex con VB6?
Grazie
Davide

 wrote in message
news:Kgk76.215238$DG3.5...@news2.giganews.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Ridimensionare listView con il Form

Ho un form che si compone di una ListView che riempie tutto il form
tranne che per un bottone "OK" in basso e centrato.
Vorrei che il mio ListView si ridimensionasse automaticamente quanto
l'utente ridimensiona il form, occupando tutto lo spazio disponibile
(senza sovrascrivere il bottone). Riesco a fare quasi tutto ma....
come si trova la dimensione height della "caption" del FORM ??
Qualcuno ha un esempio che mi possa aiutare ??
"Twip, Pixel, Dot, mm, ..." e chi ci capisce piu' qualcosa ??
Saluti !
Marco Grignoli
postaNO...@sinfo2000.it
www.sinfo2000.it

 "Twip, Pixel, Dot, mm, ..." e chi ci capisce piu' qualcosa ??
lascia twips
form_resize
    lv.left=0 : lv.top=0
    lv.width=scalewidth
    lv.height = scaleheight - command1.height
    command1.left=(scalewidth - command1.width)\2
    command1.top=lv.height
end sub
(fa conto che scaleheight ( e scalewidth) siano lo spazio che puoi
utilizzare.)
ho scritto al volo, fa' un po' di prove.
ciao, a.
ciao, a.

 "Twip, Pixel, Dot, mm, ..." e chi ci capisce piu' qualcosa ??
Oltre la risposta di pal, l'altezza della titlebar del form è
   'Dimensione in pixel
    lngRet = GetSystemMetrics(SM_CYCAPTION)
    'Dimensione in twips
    lngRet = lngRet * Screen.TwipsPerPixelY

 "Twip, Pixel, Dot, mm, ..." e chi ci capisce piu' qualcosa ??
lasciando Twips, l'altezza è data da
Me.Height - Me.ScaleHeight
(altezza totale - altezza dell'area client)
Ciao
Faber
Newsgroup: it.comp.lang.visual-basic
Titolo: PROBLEMA

Ho un problema: non ho mai affrontato problemi di grafica col VB6 e adesso
vorrei fare un tool che mi carica un file BMP in B/N con dimensioni (altezza
e larghezza) fisse e me lo mette in una griglia che separa pixel per pixel;
l'utente col mouse può cliccare sui pixel per modificarli e alla fine il
tutto deve essere salvato su file .BMP.
COME POSSO FARE !? Inoltre l'installazione di Visual Studio 6 mi dà tutte le
librerie che mi servono ?!
Vi ringrazio anticipatamente per le vostre risposte...
CIAO e buona domenica a tutti !

 librerie che mi servono ?!
sì: ho visto un editor di icone (IconEdit Pro) scritto interamente in VB 5
Trovi il codice sorgente qui (spero): 
http://216.46.226.13/PlanetSourceCode/

Newsgroup: it.comp.lang.visual-basic
Titolo: Creazione DLL

Da quello che ho capito leggendo i vari messaggi, non è possibile
creare un repository di funzioni in visual basic e richiamarle da una
qualsiasi procedura, con il nome e cognome, cioè senza classi.
In parole povere, se ho una funzione "pippo()", non posso inserirla in
una dll e richiamarla semplicemente Pippo() ???
Diversamente c' è qualcos'altro al di fuori di visual basic che mi
possa aiutare a creare una dll con tutte le funzioni che ho creato ??
Grazie.

 ha scritto nel messaggio
news:79217c6f.05031...@posting.google.com...

Dipende da CHI la deve richiamare.
Se il chiamante è sempre VB puoi creare una classe GlobalMultiuse che verrà
autoinstanziata da VB e ti permetterà di usare solo il nome delle funzioni.
Ad es. la funzione Cos() di VB è contenuta nella classe Math (controlla con
F2).
Ma stiamo sempre parlando di oggetti ActiveX.
Ciao
--
Reporting tool: 
http://www.neodatatype.net
Qualunque mentecatto può scrivere codice che un computer possa capire.
I buoni programmatori scrivono codice che gli uomini possano capire.
[Martin Fowler]

 Ciao
Grazie. Funziona.
Visto che ci siamo e vista la tua conoscenza, vorrei capire come è
possibile creare una dll come l'esempio che hai riportato, ma che può
essere vista da tutte le applicazioni.
Ciao.

 essere vista da tutte le applicazioni.
non credo di aver capito la domanda.
Se la tua app (parliamo di vb) referenzia la dll sei a posto.
Se parli di come usarla da altri linguaggi non so se basta il riferimento.
VB non supporta la creazione di dll standard, quindi niente dll tipo c++
utilizzabili con la declare.


 essere vista da tutte le applicazioni.
questo è un esempio per esportare un dll vb...
http://www.visual-basic.it/articoli/agDllByVB.htm
Magari ti può essere utile
-- 
"Tutta la droga del mondo non vale un grammo della mia adrenalina"
Lorenzo Cherubini alias Jovanotti
Per bypassare i filtri antispam scrivi nel testo del messaggio "AIEIE"
MasterDavidex - David Ruscelli
ICQ 223258511
Newsgroup: it.comp.lang.visual-basic
Titolo: Strana cosa su database ...

Salve a tutti ...
usando i database in una mia applicazione ho riscontrato una cosa
alquanto strana ...
in pratica :
- ho un database tipo access con una tabella che contiene 324 righe e
diversi campi alla quale accedo non con il controllo data ma
direttamente usando da DLL  (Dao 2,5-3,5)...
a questo punto se decido di aggiungere un ulteriore record con AddNew e
poi Update succede che il record non mi viene salvato alla fine del
database ma in un posto al suo interno ... nel mio caso lo salvava alla
riga 95 ... Notare che non cancellava ciň che era contenuto in tale riga
semplicemente ne aggiungeva una in mezzo tra la 94 e la 95 ... e poi
prima dell'AddNew si era posizionati nella tabella sull'utimo record ...
qualcuno sa dirmi qualche cosa?
Mauro

qualcuno sa dirmi qualche cosa?
Se hai un indice attivo il nuovo record viene aggiunto FISICAMENTE
alla fine del database, ma LOGICAMENTE viene mostrato nell'ordine
dettato, appunto, dall'indice.

...
| Salve a tutti ...
| 
| usando i database in una mia applicazione ho riscontrato una cosa
| alquanto strana ...
| in pratica :
| - ho un database tipo access con una tabella che contiene 324 righe e
| diversi campi alla quale accedo non con il controllo data ma
| direttamente usando da DLL  (Dao 2,5-3,5)...
| a questo punto se decido di aggiungere un ulteriore record con AddNew e
| poi Update succede che il record non mi viene salvato alla fine del
| database ma in un posto al suo interno ... nel mio caso lo salvava alla
| riga 95 ... Notare che non cancellava ciň che era contenuto in tale riga
| semplicemente ne aggiungeva una in mezzo tra la 94 e la 95 ... e poi
| prima dell'AddNew si era posizionati nella tabella sull'utimo record ...
| 
| qualcuno sa dirmi qualche cosa?
| 
| Mauro
| 
| 
Se tu avessi una scatola di fogli, in piedi uno vicino all'altro, senza
alcun ordine, e ne dovessi inserire uno, lo inseriresti all'inizio, alla
fine o dove capita? Cosi fa il database: se c'č posto in mezzo, perchč deve
arrivare fino in fondo? Prova a compattarlo e vedrai che i dati vengono
aggiunti alla fine.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] come diavolo funziona questa query

Vi scrivo perché ho un piccolo problema che mi sta facendo diventare pazzo:
nel dataenvironmment che ho creato ho impostato un collegamento ad un
database
Access (i campi della tabella presa in considerazione sono tutti di tipo
text),
avendo la necessitá di eseguire una ricerca su tutta la tabella di un
record, ho ben pensato
di creare una query (appena sbaglio fermatemi); vi spiego perché la cosa é
complicata:
questo tipo di ricerca mi é necessaria perché quando voglio inserire un
record nella tabella
voglio assicurarmi che questo record non esista, quindi, la cosa che faccio,
é quella di
importare i dati da inserire da un file di testo, verificare che il record
non esista in tabella e se tutto é giusto procedere all'inserimento dei
dati; finite le spiegazioni, proseguo ad esporvi il fattaccio: creata
la query qryVerificaEsistenza nel data environment, clicco sul pulsante
"Generatore SQL", (ho il VB6 Enterprise) faccio tutte le selezioni del caso
ed il codice SQL che esce fuori é il seguente:
SELECT DATA_IN_OUT AS Expr1, BADGE AS Expr2, ORA AS Expr3,_
PORTA AS Expr4, VERSO AS Expr5 FROM TORNELLI WHERE_
(DATA_IN_OUT = '"N_Data"') AND (BADGE = '"T_badge"')_
AND (ORA = '"t_ora"')_ AND (PORTA = '"t_porta"')_
AND (VERSO = '"t_verso"')
N_Data, T_Badge, T_Ora, T_Porta e T_Verso, sono le variabili che escono
fuori dall'acquisizione
di cui vi ho parlato, se eseguo questa query, non c'é verso di farla
funzionare (mi spiego meglio, non mi viene restituito nessun errore, bensì
NIENTE), prima quando utilizzavo il controllo data e scrivevo la stessa
identica istruzione SQL funzionava tutto bene, ora invece sembra che la
query non riconosca le variabili, eppure le istruzioni
    Dim de As DataEnvironment1
    Set de = New DataEnvironment1
    de.rsqryVerificaEsistenzaRecord.Open
viene eseguita subito dopo l'impostazione delle variabili.
Potete aiutarmi, sono veramente nei guai. Grazie a tutti
Luca

La prima cosa che mi salta all'occhio e' che manca il carattere di
concatenazione tra le variabili ed il
resto dell'istruzione ossia :
 sql = "SELECT DATA_IN_OUT AS Expr1, BADGE AS Expr2, ORA AS Expr3,_
 PORTA AS Expr4, VERSO AS Expr5 FROM TORNELLI WHERE_
 (DATA_IN_OUT = '" & N_Data & "') AND (BADGE = '" & T_badge & "')_
 AND (ORA = '" & t_ora & "')_ AND (PORTA = '" & t_porta & "')_
 AND (VERSO = '" & t_verso & "')"
inoltre occhio alle variabili numeriche o data che non devono essere
racchiuse tra apici.........
Ciao
Ven


 dati;
??????????????????
Mai sentito parlare di indici univoci ? ^______^
Fanno tutto quello che serve a Te.
In un MDB puoi crare degli indici composti ( Campo1 & Campo2 & ... CampoN) e
definire la proprietà "Duplicati non Ammessi"!
CIAO ;-)
Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con Crystal Report in VB5 Professional

Chiedo aiuto per due tipi di problemi:
1) Quando creo un report associato formattato come da Help di CR e in
esecuzione avvio la stampa di un report, anche all'uscita del programma
viene creato il file .ldb (file di Access  sul controllo dei blocchi) che
non mi consente di effettuare ad esempio la compattazione del database non
quanto il file è utlizzato in modo esclusivo. Questo succede solo se
utilizzo durante il programma il controllo di CR, altrimenti all'uscita del
programma non ho nessun problema.
2) Mediante la procedura di installazione su un altro computer del
precedente programma, mi viene segnalato un errore nella registrazione del
file CC245IT.DLL, e utilizzando ignora continuo normalmente con
l'installazione. Che i due problemi siano legati.
N.B.: esistono gli aggiornamenti per i controlli di CR?
Grazie per tutto quello che potete fare.

 l'installazione. Che i due problemi siano legati.
Ciao Claudio, ho avuto anche io il secondo problema e non sono ancora
riuscito a risolverlo.
Mi è anche successo che non registrava proprio l'ocx di CR.
Se riesci ad avere notizie, mi faresti la cortesia di inviarle anche a me?
Ovviamente se le avrò ti mando di corsa un'e-mail.
Ciao e grazie
Luca
i...@iol.it


Potrebbe essere causato dalla mancanza di una DLL che serve all'OCX e che il
Setup Wizard si "dimentica" di includere...
La DLL si chiama CRXLAT32.DLL e la trovi nella directory C:\Windows\Crystal.
--
Roal Zanazzi
z...@iol.it

Mi è anche successo che non registrava proprio l'ocx di CR.


Newsgroup: it.comp.lang.visual-basic
Titolo: Block Num, Caps Lock & Co.

Ciao,
Come faccio a vedere se Block Num e/o Caps Lock e/o Scroll Lock sono
attivi?? quale api devo utilizzare???
grazie per le risposte :)))

getkeystate


GetKeyboardState()

Newsgroup: it.comp.lang.visual-basic
Titolo: -- collegarsi a un server smpt

non so se sapete che x mandare un email ci si puo' collegare
direttamente al server smtp, usando il programma "telnet", e dando gli
opportuni comandi: "mail from", "rcpt to", "data", ecc.
Adesso intuisco (ditemi se sbaglio) che in vb si potrebbe fare
altrettanto con il controllo "Microsoft Comm Control".
Ma quello che non riesco a capire e' come specificare il nome del
server, e la relativa porta.
Dov'e' che non arrivo?


cerca SMTP fra i sorgenti del sito comune
http://it-lang-vb.net/
ciao, hal

Il 01 mag 2001 alex ha espresso la sua creatività scrivendo:

Io ho risolto col controllo Winsock.
Il listato per l'uso del POP3 è:
With Winsock
    	' Setta Host e porta, quindi connette
    	.RemoteHost = "
pop.tiscalinet.it
"
    	.RemotePort = 110
    	.Connect
    	' Per inviare una string poi basta fare
    	.SendData "USER utente" & vbCrLf
End With
Ciao
-- 
WulfMp3
wul...@email.it
"Poni ciò che sei nel minimo che fai."
Newsgroup: it.comp.lang.visual-basic
Titolo: Eliminazione bytes finali di un file

Buongiorno a tutti,
il mio problema è il seguente: una volta al giorno mi
arriva un file (la cui dimendione è variabile) e mi viene data
l'indicazione di quanti bytes in fondo al file devo eliminare.
Esempio:
il file è lungo 8765432 bytes e mi viene detto che devo eliminare gli
ultimi 432 bytes, ottenendo cosy un file di 8765000 bytes.
Esiste una
funzione che mi permette, dopo essermi posizionato con SEEK nella posizione
voluta (8765000) di eliminare dal file i bytes oltre quella posizione (432
bytes)?
Io ad oggi leggo il file un byte alla volta e lo scrivo su un
altro file, alla fine cancello l'originale e ridenomino la copia.
Grazie
, Mario
--------------------------------
Inviato via 
http://usenet.iol.it

 l'indicazione di quanti bytes in fondo al file devo eliminare.
si vede che oggi non ho un c.... da fare:
Dim ff As Integer
Dim bidone1 As String
Dim bidone2 As String
Dim nbyte As Long
Dim scarto As Long
scarto = 432                                'qui' gli passi una variabile
ff = FreeFile
Open "miofile.dat" For Binary As #ff        'apre il file
nbyte = LOF(ff)                             'legge grandezza file (es.
8765432)
bidone1 = Space$(nbyte)                     'bidone1=buffer di nbyte spazi
Get #ff, 1, bidone1                         'legge in blocco il file
Close #ff                                   'chiude il file
bidone2 = Left$(bidone1, nbyte - scarto)    'in bidone2 il file ripulito
Kill "miofile.dat"                          'cancella il vecchio file
ff = FreeFile
Open "miofile.dat" For Binary As #ff        'riapre il file
Put #ff, 1, bidone2                         'scrive il nuovo contenuto
ripulito
Close #ff                                   'chiude il file
Ciao                                        'comando non supportato
buc

buc
Grazie, Mario


 voluta (8765000) di eliminare dal file i bytes oltre quella posizione
(432
API SetEndOfFile(handle) in Kernel32
Vedi un po' se riesci a chiamarla da VB
--
-=[]=- 
ian...@libero.it
 -=[]=-

 Vedi un po' se riesci a chiamarla da VB
C'č un esempio perfettamente calzante all'indirizzo
http://www.devx.com/free/tips/tipview.asp?content_id=3346
Saluti
Luca Barbetta kck/skd

Funziona con file piu' grandi di 64K? Io non credo :-)

Luca Barbetta kck/skd
L'ho provato e funziona perfettamente. Grazie
ancora, Mario

Newsgroup: it.comp.lang.visual-basic
Titolo: [Splash] Come ottenere un caricamento veloce

Ho implementato un progetto che prevede un form di splash, lanciato da
main() e chiuso dal primo form operativo una volta che le operazioni di
caricamento dei dati sono concluse.
La bitmap del form di splash pero` compare in ritardo (la setto a runtime in
un oggetto picture).
Ho notato che e` possibile inserire bitmap nell'exe (cosa che deve essere
legata a file con estensione .frx) e probabilmente otterrei un caricamento
immediato.
Come si ottiene cio`?
Grazie in anticipo

Ho implementato un progetto che prevede un form di splash, lanciato da


oppure carica prima la splash e poi la main()...
cosě vedi subito la splash e poi -con calma- carichi tutto il resto...
;)
--[GbC]--

 un oggetto picture).


Grazie per i suggerimenti!
susanna

Newsgroup: it.comp.lang.visual-basic
Titolo: Limiti nelle classi.

Ultimamente ho provato a utilizzare una struttura pubblica in una classe
privata:
impossibile !!!!!
MSDN consiglia di usare solo classi pubbliche con le strutture, la mia
domanda è:
E' possibile definire una classe pubblica che non sia  un componente ActiveX
? ma una banale classe contenuta nel programma ?
Questo problema l'ho in quanto volevo scrivere una classe che si riferisse
direttamente alle dll di cristal report, basandomi con delle dichiarazioni
recuperate sul cd di cristal.
Visto che quest'ultimo dichiara alcune strutture, mi è stato impossibile
completare l'opera e le strade davanti sono apparse due: Scrivere un Ocx o
accontentarmi di un modulo di codice standard. Visto che tutta la pippa
mentale me la stavo facendo per escludere quell'aborto di Crw32.ocx dai miei
programmi mi è sembrato logico seguire per il momento la seconda strada. Per
la cronaca ho quadagnato circa il 25% di velocità.
Qualcuno ha qualche idea ? Si possono usare le strutture pubbliche in classi
private ?

? ma una banale classe contenuta nel programma ?
Credo che l'unico modo di avere una classe pubblica in un eseguibile sia di
usare un progetto di tipo "EXE ActiveX".
Buona fortuna
Sig


Nella procedura che commercializziamo il problema e' stato risolto con una
normale activex dll che racchiude al suo interno una serie di chiamate alle
api di crystal reports (un wrapper, insomma).
Questa dll viene referenziata all'interno di ogni programma che prevede una
stampa (early-binding) e non rimane altro che effettuare le 2-3 chiamate
alle funzioni di classe principali (creazione di un job di stampa, passaggio
parametri al job e run del job) per ottenere il risultato !
Per ovvi motivi (non l'ho scritto io...) non posso postare il codice della
classe (tra l'altro piuttosto complicato, come immaginerai...) !
Se posso essere di aiuto con altri spunti....volentieri !
Ciao
Lorenzo


Newsgroup: it.comp.lang.visual-basic
Titolo: Contascatti trucco...

A chi interessa un trucco per far partire un contascatti a connessione
avvenuta mi puņ scrivere al n.g. oppure a
m.c...@tiscalinet.it...............


  -----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
 
http://www.newsfeeds.com
       The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including  Dedicated  Binaries Servers ==-----

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

dove posso trovare le runtime di VB 6.0?
GRAZIE

 ha scritto nel messaggio
news:5XfG5.17487$Nz.4...@news.infostrada.it...


> dove posso trovare le runtime di VB 6.0?
dovrebbe essere
ftp://ftp.microsoft.com/softlib/mslfiles/vbrun60.exe
 ('liscio')
oppure
ftp://ftp.microsoft.com/softlib/mslfiles/vbrun60sp3.exe
 (con SP3)
Ciao
Faber

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Aiuto!!! MMControl

Ciao a tutti.
Spero ci sia tra di voi qualcuno che mi puņ aiutare.
Stņ sviluppando un'applicazione che richiede un piccolo filmato iniziale.
Ho utilizzato MMControl.
Pultroppo prima della partenza del filmato compare al centro dello schermo
l'icona Windows.
Qualcuno mi sa dire come eliminarla?
Se proprio non fosse possibile, esiste il modo di cambiarla con un'altra
icona?
Grazie a tutti per l'attenzione.

sito comune...
agggratis...
--[GbC]--
Newsgroup: it.comp.lang.visual-basic
Titolo: Dropdowlist, xè non si riempie?

Ciao, ho scritto queste righe di codice per riempire un campo
dropdownlist copiandole da un esempio nel quale si riempiva un
"Datagrid".
Ho provato a usarle per riempire un datagrid e funzionano, cosa mi
manca, o cosa sbaglio per il dropdownlist?
Se lancio il debug mi viene la classica casella combinata piena di
valori "System.data.datarowview"
Scusate se sono banale ma è il primo giorno che riesco a vedere qualche
risultato, fino a stamane solo errori...
Dim myconnection As System.Data.SqlClient.SqlConnection
        Dim mycommand As System.Data.SqlClient.SqlDataAdapter
        myconnection = New
System.Data.SqlClient.SqlConnection("server=ALESSANDRO\VSdotnet;database=copia
access;trusted_connection=yes;")
        mycommand = New System.Data.SqlClient.SqlDataAdapter("Select
Nome From famiglia", myconnection)
        Dim DS_fam As DataSet
        DS_fam = New DataSet()
        mycommand.Fill(DS_fam, "famiglia")
        Tx_famiglia.DataSource = DS_fam.Tables("famiglia")
        Tx_famiglia.DataBind()
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

PS: TX_famiglia č il mio dropdownlist


 PS: TX_famiglia č il mio dropdownlist
nel senso di ComboBox?
hai provato a valorizzare il Displaymember (con il nome di campo che ti
interessa) del ComboBox?
--
Salutoni
Sergio

 interessa) del ComboBox?
Ciao Sergio, grazie per la risposta.
Scusa la mia ignoranza ma sono veramente alle prime armi.
Io sto usando VS.Net e sto facendo una Web Application (cioè ASP.Net)
Non trovo le combobox che invece sono presenti nelle Win application
Il dropdownlist mi pare identico alle combo ma se io scrivo
"TX_famiglia."
mi viene visualizzata una lista di funzioni tra le quali non appare il
displaymember.
Ho guardato la guida in linea e:
a) Crea un array
b)Tx_famiglia.datasource= array


 Non trovo le combobox che invece sono presenti nelle Win application
ehm... e dirlo? :-)
Scusami ma, come hai visto anche tu, l'indicazione che davo era per le windows
form, con i web form (e relativi controlli) non ho mai lavorato...
--
Salutoni
Sergio

Ci sono riuscito, non avevo aggiunto nessun campo alla casella e
tantomeno lo riempivo.....
Ve l'avevo detto che sono un nuovo utonto..


Newsgroup: it.comp.lang.visual-basic
Titolo: Visual basic 3 vorrei aggiornarmi

Sarei interessato all'acquisto di visual basic 6o5 per aggiornarmi un pò (ad
un modico prezzo).
se qualcuno è interessato alla mia richiesto mi dia la sua email.

 ha scritto

http://www.emsps.com/oldtools/msvb.htm

se qualcuno è interessato
alla mia richiesto mi dia la sua email.
Bhè io volendo potrei
masterizzarti il pacchetto INTERO del visual studio enterprise 6 in
italiano ma...come ben sai queste cose richiedono tempo, quindi anche la
spesa non è proprio...proletaria :))
Hehehehe :) FERMIII!! FERMI TUTTI,
stò schersando :P
Saluti...
--------------------------------
Inviato via 
http://usenet.iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: La difesa del sw autoprodotto.

Scusate per la domanda un po' OT, ma non sapevo dove rivolgermi.
Come posso difendermi dalla copia del software di mia produzione? Devo
iscrivermi obbligatoriamente alla SIAE? Devo iscrivermi da qualche altra
parte?
Sapete indicarmi le migliori soluzioni ed eventualmente i costi a cui vado
incontro?
Una volta fatto questo come faccio a registrare un sw in modo da poterlo
tutelare con il copyright?
Scusate per la complessità della domanda, spero che qualcuno mi sappia
aiutare.
Grazie
olmof

GPL GPL GPL GPL GPL GPL GPL GPL GP GPL
:)))))))))))))))))))))))))))))))
p.s.: Metti [OT] anche nel Subject.
Ciao SIMO
--
__________________
www.sasim.net
* Vb è relativamente semplice perchè c'è MSDN: Usa F1 !!
* Server IRC : 
irc.azzurranet.org
 --> Canale: #it_lang_vb
* Sito Comune Ng: 
http://www.it-lang-vb.net
* Manifesto del Ng: 
http://www.it-lang-vb.net/docs/Manifesto.txt
* I vecchi messaggi su: 
http://groups.google.com/


 tutelare con il copyright?
http://www.whatiscopyright.org/
Faber

Newsgroup: it.comp.lang.visual-basic
Titolo: MSDE e Office

salve,
MSDE (che è gratuito) si trova sul CD di Office Small Business, oppure devo
prendere Office "normale" (che costa un puzzo di soldi) ?
grazie.
Mario

 wrote in message
news:a9pnoo$597co$1...@ID-70152.news.dfncis.de...

Lo scarichi gratis da Microsoft (
www.microsoft.com/sql
)
Dads

Newsgroup: it.comp.lang.visual-basic
Titolo: dump? Hook?

ciao a tutti esiste un programma o dll ocx che scrive in un file 
tutto quello che viene scritto sulla tastiera indipendentemente al
programma che sto usando???
grazie a tutti!!!
Antonio.

 wrote in message
3B495C63...@tiscalinet.it...


 
???
come si chiama???

 wrote in message
3B496172...@tiscalinet.it...


grazie 1000!!!
Antonio.

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

1) Ho l'esigenza di sapere quando un tasto del mouse viene premuto, anche al
di fuori dalla mia applicazione.
quindi Form_MouseMove non va bene perche limitata al mio form
come GetCursorPos che ritorna le coordinate del cursore
da qualsiasi punto dello schermo.
Ho visto tutte le api con Get... ma non c'e' nessuna che
riguardano il mouse ,l'unica è mouse_event che imposta i valori ma non
ritorna.
2)si può subclassare una finestra che non sia quella della mia applicazione
orf...@tin.it

2)si può subclassare una finestra che non sia quella della mia applicazione
Si, una volta che ne hai catturato l'hWnd puoi farci tutto quello che
vuoi.
---
Vorrei vedere le piramidi di Cheope,
ma sono miope, ma sono miope.
---

2)si può subclassare una finestra che non sia quella della mia applicazione
Certo.

Newsgroup: it.comp.lang.visual-basic
Titolo: database access e vb - grid querys

Come faccio a collegare tramite script un database access in visual...
e poi....sempre tramite scrip eseguire una query su un datagrid selezionanto
dalla tabella cliendi quelli che hanno id maggiore di 3 ?
Questa query naturalmente voglio applicarla ad un button...
grazie

 ha scritto nel messaggio
news:bMqVb.275502$_P.94...@news4.tin.it...

Tramite script (vb script) o tramite codice ?
Ave
giuseppeD
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] chi "è" del newsgroup?

Mi chiedevo... E' un pò che leggo e rispondo quà e là, quando ho tempo...
E' sufficiente per dire che "sono del newsgroup"?
Grazie e buona Pasqua!
Ciao
Elef 


Ti hanno fatto la tessera di socio?
Livello sopportazione troll?

Wodka ti è arrivata la mia mail?
bye
-- 
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it
Sinapsi Antispam. Antispam Gratuito.
http://www.sinapsi-antispam.tk
http://www.nicolaottomano.it/sinapsi.htm
Ingrosso Orologi.
http://www.supertop.it
email spamtrap: 
spam...@nicolaottomano.it

 Grazie e buona Pasqua!
stiamo discutendo no ?
stiamo in un gruppo no ?
Ok , si, sei del NG...
ultimo passaggio e' versare i 100euro nelle casse del Comitato Soci Ng (ti
ho mandato il CC in mail non te preoccupe ^_^)
-- 
[Gigio2k]
http://www.g2kweb.it
[ it-alt.comp.hardware.modding ] - 
http://www.g2kweb.it/ichm

 Grazie e buona Pasqua!
Prego e Buona Pasqua e superamento della prova a te.
Ave
giuseppeD
---
CCR 

 Per la prova rivolgersi al webmaster.
Hai omesso il versamento di 100 euro come compenso amministrativo del
webmaster.


Newsgroup: it.comp.lang.visual-basic
Titolo: Informazioni sul sistema

Ciao a tutti.
Come faccio a mettermi in una variabile informazioni sul pc tipo quelle di
pannello di controllo - sistema ?
In particolare a me interesserebbe il processore, se possibile anche la ram
e simili.
Grazie

 ha scritto nel messaggio
news:dWRqb.433320$R32.14...@news2.tin.it...


 ha scritto nel messaggio
news:QQSqb.108964$e5.39...@news1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [.NET] alternativa al DataGrid

Salve a tutti.
Potete consigliarmi un controllo per 
vb.net
 simile al vecchio
msflexgrid?
Grazie anticipatamente,
Salvo

 msflexgrid?
Cos'ha che non va il DataGrid?
E' ottimo, un po' complesso da usare all'inizio forse.
Ciao 

 msflexgrid?
Io uso la WebGrid ma è un po' lenta e complicata da usare:
http://www.intersoftpt.com
Prova anche a vedere la DBGrid di Componentone
http://www.componentone.com/
oppure guarda su
http://www.dbnetgrid.com/dbnetgrid/default.aspx



Grazie 1000, ora gli do un'occhiata!


wrote:

la datagrid va bene ma per il mio scopo è poco adatta esteticamente.
Come stile dovrebbe essere esattamente come la griglia del foglio di
lavoro di excel. Un po' come la msflexgrid (ai tempi di vb6 avevo
anche escogitato un sistema per permettere all'utente di modificare il
contenuto delle celle facendo doppio click).
Newsgroup: it.comp.lang.visual-basic
Titolo: Creare una mia dataGrid

Salve a tutti.
Devo utilizzare la DataGrid di VB6 ma mi servirebbe che quando chiudo la
finestra le dimensinoi delle colonne siano salvate per essere riprese la
volta successiva.
Ovvimente penso quindi di realizzare un componente derivato dal DataGrid in
cui io agggiungo questo comportamento, in maniera tale da poter riutilizzare
tale componente in tutto il programma.
Essendo un neofita di VB6 non so da che parte cominciare, l'unica cosa che
mi č venuta in mente č quella di creare un componente activeX e inserici la
DataGrid.
Perņ vorrei tra le proprietą pubbliche del componente quelle di link ai dati
della datagrid, inoltre vorrei che alla distruzione della datagrid venissero
salvatele dimensioni mentre alla cerazione venissero caricate.
Ci sono dellle dritte su come fare questa cosa o degli esempi ?
Grazie
---------------------------------------
Rodolfo Rughi
rodolfo at eurnet dot net

hai provato a creare un file .ini dove ti salvi le informazioni che ti servono
alla chiusura per recuperarle ed usarle all'apertura?

 alla chiusura per recuperarle ed usarle all'apertura?
Anch'io uso lo stesso metodo.
In alternativa puoi usare il registro di sistema invece del file .ini, ma
costruire una datagrid personalizzata solo per mantenere le larghezze di
colonna mi sembra un lavoraccio un po' inutile (tieni presente che per fare
un buon lavoro dovresti mappare tutte le proprietą e metodi della DBGrid,
una ad una, con le Property pubbliche della tua datagrid e poi...
Non ne vale la pena, se non per esercizio personale.
Ciao,
Carlo.
Newsgroup: it.comp.lang.visual-basic
Titolo: VB NET Elenco nomi tabelle e campi.

Salve.
Ho una domanda da fare. Avrei questa esigenza: recuperare i nomi delle 
tabelle in un database e successivamente anche i nomi dei campi di una 
tabella specifica.
Uso queste istruzioni per connettermi al DB
Dim Cnn As New System.Data.OleDb.OleDbConnection(CnnDb)
Cnn.Open()
Dim Cmd As New System.Data.OleDb.OleDbCommand("SELECT * FROM TABELLA", Cnn)
Dim Dr As System.Data.OleDb.OleDbDataReader = Cmd.ExecuteReader
E' possibile tramite DR recuperare il valore di tutti i campi della tabella 
senza specificare il nome del campo?
In VB6 facevo cosi:
Dim DB As ADODB.Connection 'Connessione a Database.
Dim RS As ADODB.Recordset  'Insieme di record della tabella.
Dim Testo As String        'Stringa contenente il record selezionato.
Dim Ind As Integer         'Indice dei nomi dei campi della tabella.
' Connessione Database
  Set DB = New ADODB.Connection
  DB.Provider = "Microsoft.Jet.Oledb.4.0"
  DB.Open "Data Source=" & Trim(Archivio)
' Apre l'insieme di record
  Set RS = New ADODB.Recordset
  Call RS.Open(Trim(IstrSql), DB, adOpenStatic, adLockPessimistic)
If RS.EOF = True Then ' Se l'insieme di record RS e' vuoto indica che la 
ricerca e' fallita.
   LstZoom.AddItem "Ricerca completata. Non e' stato trovato nessun 
elemento."
   Exit Sub
End If
LstZoom = ""
Do While RS.EOF = False
   riga = ""
   For Ind = 0 To RS.Fields.Count - 1
       riga = Trim(riga) & "  " & Trim(RS.Fields(Ind)) & "  "
   Next
   LstZoom.AddItem riga
   RS.MoveNext
Loop
Quindi riepilogando vorrei usare DR per recuperare il nome del campo di una 
tabella e il relativo valore.
Grazie per l'attenzione.

 ha scritto nel messaggio 
news:_XT2i.9918$U01.1...@twister1.libero.it...

Risolto in parte il problema.
Esempio:
Dim Cnn As New System.Data.OleDb.OleDbConnection(CnnDb)
Cnn.Open()
Dim Cmd As New System.Data.OleDb.OleDbCommand("SELECT * FROM TABELLA", Cnn)
Dim Dr As System.Data.OleDb.OleDbDataReader = Cmd.ExecuteReader
For Ind = 0 To DR.FieldCount - 1
        MsgBox(DR.GetValue(Ind))
Next

Newsgroup: it.comp.lang.visual-basic
Titolo: compatibilità vb-db2 IBM

Vorrei sapere se qualcuno ha già avuto esperienze con questa combinazione,
se magari è una accoppiata valida o meno.
Grazie

l'ho utilizzato, con VB 5.0 e accesso tramite gli oggetti rdo, odbc, ma è il
db2 che è meno esplicito di database come sql od oracle,
esempi:
in alcune versioni le store procedure sono da compilare in c o cobol
l'installazione del prodotto client / server è migliorata dalla ver. 5 ....
nicoletta

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Aggiungere un riferimento web

In Visual Studio .NET provando ad aggiungere un riferimento web ho ottenuto
il seguente errore:
-----------------------
Il documento non è stato riconosciuto come tipo di documento noto (WSDL,
schema XML o documento di individuazione) per i seguenti motivi:
  - Il tipo di contenuto 'application/octet-stream' non è valido per i
documenti XML.
-----------------------
Eppure il file nomeservizio.vsdisco che ho provato ad aggiungere non l'ho
mica creato io ma l'ha creato in automatico Visual Studio. Di seguito
riporto il suo contenuto:
<?xml version="1.0" encoding="utf-8" ?>
<dynamicDiscovery xmlns="urn:schemas-dynamicdiscovery:disco.2000-03-17">
<exclude path="_vti_cnf" />
<exclude path="_vti_pvt" />
<exclude path="_vti_log" />
<exclude path="_vti_script" />
<exclude path="_vti_txt" />
<exclude path="Web References" />
</dynamicDiscovery>
Qualcuno può aiutarmi?
Ringrazio in anticipo,
Adriano

 documenti XML.
Punti il riferimento al file .asmx?
Ciao
--
Marco Camplese
-Windows .Net Server (RC1)
-Visual Basic .NET Standard
-Framework Sp2

 Punti il riferimento al file .asmx?
No, al file 
http://localhost/nomecartella/nomeservizio.vsdisco

 No, al file 
http://localhost/nomecartella/nomeservizio.vsdisco
Il file asmx è quello che contiene il manifesto del servizio
http://localhost/nomecartella/nomeservizio.asmx
Poi al resto pensa Visual Studio
(spero di non aver scritto cose strane... si accettano anche smentite)


Newsgroup: it.comp.lang.visual-basic
Titolo: [½ O.T] Visual Interdev 6.0

Non riesco a utilizzarlo poichè mi chiede, nella creazione di un nuovo
progetto web, il nome del server che voglio utilizzare. Sul mio computer c'è
il Personal Server Web della Microsoft che dovrebbe bastare ma non riesco a
fargli capire che il computer da utilizzare come server deve essere il mio,
quello su cui è in esecuzione Visual Interdev.
Grazie per l'aiuto

Devi inserire il nome del server web che hai installato sul tuo computer.
Esempio: se il server web è all'indirizzo 
http://roberto
 (di solito prende
il nome dato al momento dell'installazione di windows) devi inserire
"roberto".
Se non funziona c'è qualche problema di installazione del server o delle
estensioni del server.
ciao

 wrote in message
news:8sn4mq$r25$1...@pluto.sm.dsi.unimi.it...


grazie a tutti e scusate l'OT


Newsgroup: it.comp.lang.visual-basic
Titolo: salve a tutti..info...please

Salve vorrei sapere una stampante ad aghi,capace di stampare su dei fogli
carbone...
cioe' intendo quei fogli che scrivi sul primo e copia sul secondo e sul
terzo..
praticamnete riguarda una scuola guida ,che deve stampare sui fogli di
Foglio ROSA.
qualcuno + darmi informazioni su quale stampante scegliere?
grazie

 ha scritto nel messaggio
news:946fe5$ksb$1...@fe2.cs.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Creare controlli a run-time

Scusate la domanda, lo so che č banale ma non mi ricordo piů come si usa...
Allora, ho creato una form con dentro una shape. Gli do Index 0, quindi
vorrei a runtime creare altre "copie" di quella shape. Devo usare "new" ma
come? Ho provato
set myobj = new shape
e cose analoghe ma non funzionano... non vi vorrei far perdere tempo ma
qualcuno si ricorda la sintassi esatta?
e poi... quando chiudo la form devo settare a nothing tutte le shape(s)
eventualmente create, o no?
Grazie in anticipo...
Välërďö

Caspita che velocità di risposta!!!...
Mi ero confuso il load con il new   :-(
Grazie tante!!!! :)))
Ciao,
Välërïö

Newsgroup: it.comp.lang.visual-basic
Titolo: Disegnare un albero

Salve,
avrei un problema che considerp abbastanza complicato da risolvere.
Io devo costruire un grafico che mi visualizzi una struttura gerarchica di
una azienda... praticamente un albero. Lo volevo fare utilizzando i
componenti standard di VB (tipo shape o pannelli o cas'altro) ma la cosa
risulta proibitiva.
Infatti devo calcolare la posizione dell'albero sul form (che eventualmente
verrà visualizzato tramite scrollbar se eccede le dimensioni del form) non
sapendo però come fare.
L'idea era di partire dalle foglie, disegnare queste e poi andare ad un
livello superiore e trovare qualche algoritmo per calcolare la posizione dei
nodi superiori. C'è da dire che un nodo può avere un n di figli >=0 e quindi
anche naggiori di due.
Magari qualcuno ha qualcosa che fa al caso mio ????  Oppure qualche dritta
????
Altrimenti mi dovrò rompere la testa su questo problemino...
Grazie e ciao
                                                GIANGI

una azienda... praticamente un albero.
Io ho fatto qualche tempo fa un programma che disegnava un albero
genealogico.
Il disegno era fatto con delle textbox normali (con dentro il nome della
persona) e con delle linee. Con delle scroll bar si poteva poi spostare il
disegno.
Naturalmente la funzione di disegno deve essere ricorsiva.
Se non ricordo male faceva una cosa del genere:
1. la funzione riceve il nodo di partenza e il punto di partenza del
disegno, disegna l'albero da li' in poi e ritorna l'area occupata dal
disegno.
2. per fare questo la funzione richiama se' stessa per ogni suo figlio
(passando un punto di partenza piu' in basso), disegna il nodo di partenza
al centro dell'area occupata dai figli e collega i nodi con delle linee.
Antonio Donatiello

Io devo costruire un grafico che mi visualizzi una struttura gerarchica di

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Socket in VB6

Salve, io ho questo problema:
Ho creato un socket con il controllo OCX di VB6 che è sempre in attesa su
una port e che mi fa da server.
Se voglio creare un socket client estemporaneo che faccia in successione:
1 -creazione socket
2- spedire dati
3 -sconnesione socket  e chiusura
ho un problema tra il passo 1 e 2 ovvero il prg è talmente veloce che il
socket non riesce a passare allo stato di CONNESSO (sckconnected) e rimane
IN CONNESSIONE (sckconnecting)
Ho provato anche a mettere un rtitardo ma nulla da fare.
Come faccio !?!?!
GRAZIE, ciao.
    Aldo

 Ho provato anche a mettere un rtitardo ma nulla da fare.
Nel codice che ho postato per Nicola82 nel thread "VB vs Telnet", c'č
proprio l'evento che fa per te...
ciao
Alberto


suppongo che tu stia utilizzando un controllo Winsock
se si', per controllare la connessione devi:
***
  WS(1).Connect server,NumPorta
 ' verifico che la connessione sia avvenuta entro 8 sec.
 t# = Timer
 While Timer < t# + 8 And WS(1).State <> sckConnected
  DoEvents
 Wend
 If WS(1).State <> sckConnected Then
  WS(1).Close
  MsgBox "Remote Host Timeout"
  Exit Function
 End If
***
mentre per verificare che i dati siano stati trasferiti
gestisci l'evento SendComplete in questo modo:
***
Private Sub WS_SendComplete(Index As Integer)
'setta il flag di avvenuta consegna pacchetto
OKToSend = True
End Sub
***
nella sub che invia i dati metti:
***
OKToSend = False
WS(1).SendData "DATA" & Chr$(13) & Chr$(10)
'attende l'avvenuta consegna pacchetto
While OKToSend = False: DoEvents: Wend
***
naturalmente devi dimensionare OKToSend a livello di modulo
HTH
bye
R

Newsgroup: it.comp.lang.visual-basic
Titolo: fsignor@hotmail.com

sdfòldsf

d oavbuoaugvoasvo
:)

Newsgroup: it.comp.lang.visual-basic
Titolo: OT:Prova

scusate solo una prova....

 scusate solo una prova....
usa it.test
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Lock di record su SQL 2000

Quello che desidero e' leggere una riga utilizzando una stored
procedure, visualizzarla a video finche' l'utente non compia la
modifica di alcuni valori del record o decida di rinunciare
alle modifiche, tenendo il record sempre loccato in modo che
nel frattempo nessun altro vada a modificarlo (magari potrei
accettare un timeout) e finalmente, con un'altra stored
procedure sbloccare il record precedentemente loccato.
Tengo a precisare che il blocco-sblocco del record deve
tassativamente essere fatto con 2 stored procedure diverse
chiamate anche a distanza di diversi minuti una dall'altra.
Grazie in anticipo
Per gli stranieri:
What I want to do is read the row using a stored procedure,
display it to a user for updating (manually) and keep it locked
away from other users until the first user has sent back (via
another stored procedure) or abandoned any
changes.

 Per gli stranieri:
E se fossi straniero ma...Taiwanese? (magari saprei meglio l'inglese!) ^_^