mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Come unire celle riga DATAGRID? VB.NET

Ciao a tutti.
Come posso durante l'evento ItemCreated intercettare quello che sarà
il contenuto delle celle lungo una particolare colonna e, al
verificarsi di una condizione (se il testo contenuto nella cella
inizierà con 'Vs.'), decidere di unire tutte le celle della riga in
questione, in modo che il testo in questione faccia un po' da
intestazione per le righe successive? (Questa eventualità dovrebbe
verificarsi più volte all'interno della griglia).
Cercando in giro ho trovato il codice seguente in C# da inserire
nell'evento ItemCreated che dovrebbe essermi utile, ma non riesco ad
adattarlo a 
VB.NET
.
Grazie anticipate a chiunque mi fosse d'aiuto:
Codice C#:
DataRowView drv = (DataRowView) e.Item.DataItem;
if ((int) drv["OrderID"] == -1)
{
    e.Item.BackColor = Color.White;
    e.Item.Cells[2].Font.Bold = true;
    e.Item.Cells[2].HorizontalAlign = HorizontalAlign.Right;
    e.Item.Cells.RemoveAt(1);    // la colonna OrderID
    e.Item.Cells[0].ColumnSpan = 2;
}

 }
Non l'ho provato, ma dovrebbe essere:
Dim DRView as DataRowView = Directcast(e.Item.DataItem, DataRowView)
Dim ValueToCheck as String=Ctype(DrView.Item("tuocampo"))
if  ValueToCheck ... then (*)           '(*) qui specifica il criterio che
deve soddisfare, es ValueToCheck.StartsWith....
    'nel tuo caso:
    Dim NumSpan as Integer = e.Item.Cells.Count
    Dim TitleCell as New TableCell
    TitleCell.Text = ValueToCheck
    TitleCell.ColumnSpan=NumSpan
    e.Item.Cells.Clear
    e.Item.Cells.Add(TitleCell)
End if
Prova cosě...
N.B.: il codice va messo nell'evento ItemDatBound, perché all'ItemCreated il
DatagridItem non č ancora stato associato ai dati.
                                    Ciao
                                                            Zephiross

Dim ValueToCheck as String=Ctype(DrView.Item("tuocampo"))
Ho pensato di riciclare il codice in un'altra webform per poter
eliminare delle righe vuote che a volte si possono generare, ma
stranamente la riga:
Dim DRView As DataRowView = DirectCast(e.Item.DataItem, DataRowView)
mi dà l'errore:
Cast specificato non valido
L'unica differenza è la presenza di due griglie nella seconda webform
e il fatto che nel secondo caso mi appoggio ad una vista e non a una
tabella come nel primo.
Cosa ne pensi? L'errore penso sia dovuto alla tipologia di dati che
utilizzo per il riempimento, ma sono eterogenei in entrambi i casi
(varchar e numeric).

 Cast specificato non valido
Brekka nel punto in cui ti dà errore e guarda di che tipo è il DataItem.
                                        Ciao
                                                        Zephiross

Grazie, ho risolto modificando il contenuto della cella con
un'istruzione tipo:
        If TypeOf DRView.Item("nome del campo") Is System.DBNull Then
            DRView.Item("nome del campo") = "0"
       End If

Newsgroup: it.comp.lang.visual-basic
Titolo: Enum enum enum um m

Scusate, forse è troppo banale la domanda ma è da 3 giorni che non mi
ricordo come funziona stò Enum...
Avrei il seguente spreco di codice:
With frmPrincipale
Load .txtCodice(N)
Load .txtImponibile(N)
Load .txtImposta(N)
.txtCodice(N).Top = .txtCodice(N - 1).Top + Y
.txtImponibile(N).Top = .txtImponibile(N - 1).Top + Y
.txtImposta(N).Top = .txtImposta(N - 1).Top + Y
.txtCodice(N).Visible = True
.txtImponibile(N).Visible = True
.txtImposta(N).Visible = True
.txtCodice(N) = ""
.txtImponibile(N) = ""
.txtImposta(N) = ""
End With
Forse con un ciclo ed un Enum, farei prima... ma come ??? 8(
Grazie a tutti
Ciao

 wrote in message
s0eY4.16826$VM3.1...@news.infostrada.it...



Grazie per il consiglio, ma questo lo ricordavo, il problema è che poi
l'Enum giornidellasettimana bisogna assegnarlo a qualcosa. Come e dove non
lo so.
Grazie di nuovo
Ciao 8)


Non capisco come un enum possa fare al caso tuo: un enum è solo un'altro
modo per definire delle costanti numeriche, con l'unico vantaggio che viene
riconosciuto dall'intellisense di VB mentre fa il completamento automatico
del codice.
Certo che l'enum va assegnato a qualcosa (anzi qualcosa va _dichiarato_ come
enum), enum è un tipo di dati! Il tuo "Come e dove non lo so" mi lascia
perplesso: ho non hai capito cosa sia un enum oppure non è adatto al tuo
scopo (se facesse per te e sapessi come usarlo non faresti questa domanda)
Ciao

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

Qualcuno di voi sa come si utilizza l'operatore AddressOf? MAgari con un
esempio.
Grazie

esempio.
L'argomento č piuttosto ampio e complesso.
Serve per ottenere l'indirizzo in memoria di una sub/function
Es.
Function SubPointer(ByVal Value As Long) As long
    SubPointer = Value
End Function
Debug.Print SubPointer(AddressOf MiaSub)
principalmente viene usato per le tecnica del subclassing, assegnando la
DefWindowProc personalizzata all'applicazione, appunto per indirizzo con
l'api SetWindowLong().
raramente viene usata per richiamare sub/function tramite il loro indirizzo
anzichč il loro nome:
Es.
Call CallWindowProc(AddressOf MiaFunction, par1, par2, par3, par4))
Ciao


Grazie. Effettivamente mi sento un pņ sperduto. Forse č meglio che cambi
strada per ciņ che devo fare.
Ancora Grazie e Ciao...OXI
Newsgroup: it.comp.lang.visual-basic
Titolo: Maledetta OPEN non ci capisco nulla

Scusate, ma non riesco a capire il funzionamento della OPEN di
vb6:
voglio aprire un file, leggere un numero dentro quindi incrementerlo ed
infine chiudere il file.
a) se il file non esiste me lo deve creare
b) se il file esiste non me lo deve sovrascrivere da 0 quando me lo apro
c) cosa uso la input o la output ???
d) W .NET e la sua classe di gestione dei file (chi concorda tiri una riga!)
Ciao

 d) W .NET e la sua classe di gestione dei file (chi concorda tiri una
riga!)
Intendi gli stream o il Fso?
--
ciao, hal
--------------------------------
Inviato via 
http://usenet.libero.it

 d) W .NET e la sua classe di gestione dei file (chi concorda tiri una
riga!)
Sì, se si potessero usare con altrettanta facilità le strutture per definire
un record da leggere/scrivere (.NET ha le capacità, ma non si applica :)).
Ciao
--
' // Initialize the expression evaluator
Engines.Evaluator = CreateObject("
http://www.neodatatype.net
")
' // you can find resources for and from the NG here!
Me.SitoComune = "
http://www.it-lang-vb.net
"

 un record da leggere/scrivere (.NET ha le capacità, ma non si applica :)).
Diciamo che e' diventato molto prolisso :-P


 d) W .NET e la sua classe di gestione dei file (chi concorda tiri una
riga!)
Oddio, W spazio .NET sarà forse una delle recenti divolerie di "Go to the
hell"?

 c) cosa uso la input o la output ???
'-----------------------
Option Explicit
Private Sub Command1_Click()
'voglio aprire un file, leggere un numero dentro quindi incrementerlo ed
'infine chiudere il file.
'a) se il file non esiste me lo deve creare
'b) se il file esiste non me lo deve sovrascrivere da 0 quando me lo apro
'1)controlla se il file esiste
Dim myFile  As String
myFile = "C:\pippo.txt"
Dim intFree As Integer
intFree = FreeFile
Dim theInputVar As String
If Dir(myFile) = "" Then
   'il file non esiste
   'scrivi in esso
   Open myFile For Output As #intFree
      Print #intFree, 1
   Close #intFree
Else
   'il file esiste
   'leggi da esso, incrementa
    Open myFile For Input As #intFree
      Line Input #intFree, theInputVar
   Close #intFree
   If IsNumeric(theInputVar) Then
      theInputVar = CLng(theInputVar) + 1
   End If
   'e poi aggiorna. Ora capiamoci:
   'se usi un file sequenziale puoi
   'riscriverlo tutto oppure
   'aggiungere qualcosda in coda, e
   'non puoi semplicemente modificare una parte.
   'Quindi, se voui avere solo il valore successivo
   'scrivi:
   Open myFile For Output As #intFree
      Print #intFree, theInputVar
   Close #intFree
''se invece voui aggiungere in coda il valore
''scrivi:
' Open myFile For Append As #intFree
'      Print #intFree, theInputVar
'   Close #intFree
'   'ma a questo punto se vuoi leggere
'   'l'utltimo valore, quando lo apri per leggere
'   'devi vare una serie di letture a vuoto e tenere solo
'   'l'ultimo valore(quello dell'ultima riga)
'   'cioč:
'   Open myFile For Input As #intFree
'      Do While EOF(intFree) = False
'         Line Input #intFree, theInputVar
'      Loop
'   Close #intFree
'
End If
End Sub
Newsgroup: it.comp.lang.visual-basic
Titolo: [semi OT] convertitore RTF-HLP oppure HTML-CHM

Vorrei fare un help fatto bene dei miei programmi. Finora ho usato un semplice file doc di word e
ora vorrei convertirlo in chm o hlp. so che c'è un programmino che crea i file hlp nel cd di vb ma
non mi piace.

 ha scritto nel messaggio
news:3b4c2af7...@news.inwind.it...

Per i chm c'è HTML Help Workshop, dovresti trovarlo sul sito m$.
ciao, Assa.
--
----------------------------------------------------------------------------
------
Assa (Gabriele Genta)
WebMaster del "Sito Comune dei militanti del newsgroup
it.comp.lang.visual-basic"
http://www.it-lang-vb.net

 ciao, Assa.
oppure nel CD di VB
--
Fibia "Sakamoto" FBI
E-mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Sito Personale: 
http://www.geocities.com/fibiafbi
VB Simple: 
http://vbsimple.virtualave.net
Membro #25 delle Mitiche Brigate Takahashi sezione Sud

 oppure nel CD di VB
doh!
mi rendo conto solo ora di aver scritto un castroneria
skiusa :)


 wrote in message
news:3b4c2af7...@news.inwind.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Aggiornamento di Dati

Se qualcuno potesse aiutarmi...... sono un Neofita di VB5.
Ho costruito un DB con Access (solo le tabelle) ed inserisco i dati
compilando una maschera di VB.
A volte però devo modificare alcuni Record.
Come posso fare per modificare un campo di un Record e salvare lo stesso
Record con il campo modificato ?????
Spero di essere stato chiaro, se così non fosse posso dettagliare meglio il
mio problema.
    Grazie per l'Aiuto. A presto.                           E-Mail
mice...@tin.it

Se qualcuno potesse aiutarmi...... sono un Neofita di VB5..............
Come posso fare per modificare un campo di un Record e
salvare.........Record con il campo modificato ?????..................
Data1.recordset.edit (se utilizzi l'oggetto datacontrol)
Primo caso utilizzando l'oggetto Recordset con l'oggetto Database
Database.recordset.edit
Database.recordset!NomeCampoTabella = NomeCampoTesto.txt (quello che hai nel
tuo form)
Database.recordset.update
Secondo caso utilizzando l'oggetto Datacontrol
sostituisci database con data1 (nome del datacontrol).
Spero di esserti stato utile.
Ciao Giuseppe.
Posta AntiSpam Remove #

Newsgroup: it.comp.lang.visual-basic
Titolo: Componenti Report

Esistono dei componenti free per la creazione
di reports?

 di reports?
Datareport?
Alberto

 ha scritto nel messaggio
news:DbdV9.7395$YG2.2...@twister1.libero.it...


 reports in genere ..dati ...e non
Prova a spiegarti meglio...
Secondo me con DataReport fai tutto, ma se vuoi altro, non so cosa ti serva.
Ciao
Alberto

 ha scritto nel messaggio
news:a4fV9.7851$ZE.2...@twister2.libero.it...


 dove posso trovare datareport?
Visual Basic -> Finestre di Progettazione
Ciao
Alberto

 ha scritto nel messaggio
news:a4fV9.7851$ZE.2...@twister2.libero.it...

Ci creo un grafico???
Umbe
Newsgroup: it.comp.lang.visual-basic
Titolo: Crea Collegamenti

Ciao a tutti
sto creando prg per un autorun di CD che al riavvio del sistema di deve
riavviare anche lui.
Pensavo di far creare un collegamento su "Esecuzione Automatica"
Tramite api so come trovare il percorso per questa cartella, ma non co come
si creano i collegamenti!!!
come faccio in vb6+sp5
Ciao e grazie
~~~~~~~~~~~~~~~~
Andrea Fabbrucci
anfa...@tin.it
~~~~~~~~~~~~~~~~

 ha scritto nel messaggio
news:MYrf8.23632$_u5.7...@news1.tin.it...

Si crea una chiave nel registro di sistema

 come faccio in vb6+sp5
Puoi creare una chiave di registro (vedi sito comune) in
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Runonce
Oppure fare un collegamento in Esec. Automatica (vedi Sito Comune)
Ricorda di mettere le DLL nel computer "cliente" oppure nella root del CD.
Ciao
--
Timothy Redaelli
timothy(dot)redaelli(at)email(dot)it
-----------------------------------
Links:
Sito Comune: 
www.it-lang-vb.net
MSDN: 
msdn.microsoft.com

 HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Runonce
Mea Culpa la chiave è questa:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run

Newsgroup: it.comp.lang.visual-basic
Titolo: [MDB] calcolare un campo=> risultato a 2 decimali

salve a tutti (anzi a chi e' ancora sveglio :-)))
su una tabella ho un campo di  tipo double con numeri decimali NON precisato
posso, usando 'solo' l'sql, fare un ricalcolo dello stesso ottenendo come
risultato un valore con sole 2 cifre decimali?
intendo utilizzando solamente un'update, e non scorrendo tutta la tabella
con un recordset ecc...
es.:
il campo1 (double) inizialmente vale 1000
eseguo la sql:
update campo1=([campo1]/3)
devo ottenere come nuovo valore del campo1:
333,33
come imposto l'update (se se po fa')?
PaoloS

[*PaoloS* : 
solo...@tin.it
] ha scritto:

Credo che ogni SQL abbia una funzione di arrotondamento. Non te la so citare
(potrebbe essere la classica ROUND), perchè non l'ho mai usata (quando
deposito i campi ne precalcolo il valore da codice VB).
Occorre sapere qual è il database, lo strumento di interfaccia (DAO, ADO) e
quindi utilizzare la sintassi corretta.


pardon... pensavo di averlo detto...
cmq il database e' MDB e l'accesso e' DAO...
in effetti quello che non trovo e' proprio una funzione round per dao..

 quindi utilizzare la sintassi corretta.
Ho provato, sia in DAO che in ADO, verso Access con:
Update Tabella Set Campo=Round(Campo/3,2)
Funziona.

 in effetti quello che non trovo e' proprio una funzione round per dao..
Vedi sopra. Il dubbio (che non riesco mai a ricordare) è: Sarà VB che
"parsa" il comando SQL prima di passarlo al motore oppure è il motore stesso
che "digerisce" le istruzioni VB? ;-)


gia'... e' proprio round.... infatti avevo lo stesso dubbio, solo che su
access non trovavo il round quindi pensavo non fosse valido!!!
grazie mille
PaoloS

 access non trovavo il round quindi pensavo non fosse valido!!!
La guida di access (specie se 2000) fa un po' schifo... spesso se provi 
le funzioni VB in access funzionano allo stesso modo.
Ad es. ho scoperto che access2000 accetta i $ nelle funzioni stringa 
(che il 97 non voleva) e permette di fare SELECT anidate.
Questo però facendo delle prove del tipo "vediamo se access me lo permette".
P.S.: la Round in access ho scoperto che funziona solo con i double.
Con i single fa dei casini incredibili.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto!!!Vi prego!!!Leggete qui!!!Sono disperato!!!

Ciao a tutta la ML,
ho un problema che non mi da pace, non riesco a dormire, quindi vi prego
aiutatemi.
Premetto che sono un programmatore alle prime armi, un principiante.
Ecco il mio problema:
Nel mio bellissimo form ho inserito un menů, e all'interno del menů ho
inserito un sottomenů, e nell'evento click ho messo la seguente riga di
codice: nomeprogetto.Show; come bene capirete quando clikko in quella
sottovoce mi appare una finestra da me create. Fin qui ci
siamo...?...Bene...allora, all'interno di questa finestra c'e' una textbox,
che, in pratika, quando viene inserito del testo all'interno e poi clikkato
su un command button sempra presente all'interno di quella finestra,
dovrebbe andare ad inserirmi (con il metodo AddItem) il valore digitato
all'interno di una listbox che si trova nel form principale, ma quando io
clikko sul command button, mi viene detto che la variabile non č definita,
in pratika non trovando la listbox che si trova nel form principale, non mi
compila il programma...ok?? lo so, non mi sono spiegato molto bene ma ve ne
sarei grato se mi aiutaste a risolvere questo problemino, se volete che vi
spieghi meglio, allora scrivetemi al mio indirizzo personale
fure...@libero.it
ciao e grazie per l'attenzione

Se form1 =  form principale e list1 il listbox nel form principale devi
utilizzare la seguente sintassi nell'evanto Command_click
form1.list1.additem text1

 spieghi meglio, allora scrivetemi al mio indirizzo personale
Se il tuo form principale si chiama Form1 e quello secondario Form2, dentro
Form2 devi scrivere
Form1.ListBox1.AddItem .....
per fare riferimento ad un form diverso da quello su cui ti trovi.
Ciao
--
Frogman
indirizzo e-mail corretto: 
be...@reboot.to
--------------------------------------------------------
Abito in un paese cosi' piccolo che non abbiamo nemmeno
lo scemo del villaggio.  Dobbiamo fare a turno.
--------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: ordinamento in listview, e' complicato?

Ciao,
Ho un controllo listview in cui carico dei dati. Vorrei poterli ordinare
semplicemente cliccando sul nome della colonna, come avviene per tutti i
programmi classici. Per esempio, ho una colonna con nome e una con
cognome, vorrei cliccare su "nome" in testa alla colonna e ordinare i
dati in ordine alfabetico e lo stesso per le altre colonne. Credo che non
ci siano proprieta' che lo permettano automaticamente.
Mi date qualche consiglio? E' complicato farlo?
Grazie.


Devi scrivere codice nell'evento "ColumnClick" della listview.
In questo esempio con poche righe hai l'ordinamento che cerchi (e se 
clicchi una seconda volta sulla stessa colonna inverte l'ordinamento):
Private Sub Lista_ColumnClick(ByVal ColumnHeader As 
MSComctlLib.ColumnHeader)
    If Lista.SortKey = Lista.Index - 1 Then
        Lista.SortOrder = 1 - Lista.SortOrder
    Else
        Lista.SortKey = ListaIndex - 1
    End If
    Lista.Refresh
End Sub
-- 
Ciao!
   -DocDoc-
--- Per scrivermi: docdoc()
sertel.net
Sei anche tu stanco dei messaggi spam? Usa Terminator, il programma
anti-spam italiano FREEWARE!     
http://www.spamterminator.it/

 End Sub
Ciao e grazie,
solo un problema... in esecuzione si ferma con un messaggio di errore
sulla seconda riga dello script che hai postato:
Errore di run time 343:
L'oggetto non e' una matrice
Da cosa dipende?
Grazie


Private Sub ListView1_ColumnClick(ByVal ColumnHeader As
MSComctlLib.ColumnHeader)
ListView1.Sorted = True
ListView1.SortKey = ColumnHeader.Index - 1
ListView1.SortOrder = Abs(ListView1.SortOrder - 1)
ListView1.Refresh
End Sub
Il problema č che cosě ti ordina solo delle stringhe.
Per un ordinamento piů "professionale" prova a guardare su:
http://www.mvps.org/vbnet/
Ciao
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Da cosa dipende?
Scusa, nel copia/incolla ho voluto mettere un nome piu' generico per la 
lista ma ho esagerato, cambiando anche "ColumnHeader"..;-)
Ecco il codice esatto:
If Lista.SortKey = ColumnHeader.Index - 1 Then
     Lista.SortOrder = 1 - Lista.SortOrder
Else
     Lista.SortKey = ColumnHeader.Index - 1
End If
Lista.Refresh
-- 

Newsgroup: it.comp.lang.visual-basic
Titolo: Macromedia

Ciao a tutti,
ho un altro problema: come faccio ad integrare un file swf all'interno di
una form di un'applicazione?
Grazie.
Mauro

se hai installato il Flash Player, vai in -->Progetto-->Componenti e attivi
la check-box relativa.
A quel punto puoi posizionare sul form l'oggetto Flash e visualizzare il
filmato!!!!
Ciao, e good coding!!
--
Damiani Liborio Igor
idam...@hotmail.com
 - 
igor.d...@light.it
http://www.igordamiani.it
ICQ : 11847262

Newsgroup: it.comp.lang.visual-basic
Titolo: Risorse di rete con una dirlistbox

Sapete se e' possibile e come selezionare cartelle residenti in
Risorse di rete utilizzando questo controllo ?
Io al momento riesco solo a selezionare cartelle residenti in un
determinato drive ma non in quelle delle risorse di rete.
Grazie

Risorse di rete utilizzando questo controllo ?
No, non si puo'.
In sostituzione puoi usare il FolderTreeView di Brad Martinez:
http://www.mvps.org/ccrp/controls/ccrpftv6.htm
ciao, hal

 
http://www.mvps.org/ccrp/controls/ccrpftv6.htm
gran controllo.
non sembra neanche vb :)

Newsgroup: it.comp.lang.visual-basic
Titolo: Applicazione MDI: una domanda.

Mi scuso se non sono stato molto chiaro nel subject, ma mi era
difficile sintetizzare.
Allora: in un'Appl. MDI ho una finesta principale aperta, vorrei  che,
cliccando ad es. su un pulsante,  una certa azione venisse effettuate
se un0altra finestra è aperta altrimenti vorrei essere avvisato che la
finestra non è aperta. Ho provato ma quando faccio qualsiasi
riferimento alla finestra "chiusa" l'effetto è quello di aprirla, io
però voglio avvistato e non voglio aprirla.
Sperando di essermi spegati attendo eventuali risposte,
grazie
Robin


Quindi vuoi sapere se una certa finestra e' caricata, giusto ?
Se si', cerca sull' help l' insieme Forms.
ciao, hal

 ha scritto

un motodo: fai una var pubblica logica
    isLoadedMioFrm
in MioFrm_load:
    isLoadedMioFrm =true
e ---> false all'unload
dall'mdi leggi il val di isLoadedMioFrm
ciao, a.

 ha scritto nel messaggio
news:8hb2ht07o50jc7643...@4ax.com...

dim frm as form
For each frm in forms
    if 
frm.name
= "pippo" then
        msgbox ("Il form pippo è aperto")
        exit for
    endif
next frm
ciao
ugo

 perň voglio avvistato e non voglio aprirla.



Succede che quando legge il valore di isLoadedMioForm MioForm attiva
l'evento
Load se non era ancora letto, imposta isLoadedMioForm a true e quindi il
risultato è lo stesso... isLoadedMioForm è sempre true se lo vai a leggere.
Io consiglio di utilizzare la collection Forms.
P.S. X Pal
Sto terminando quel programma per l'upload resisti ancora qualche giorno...
... sono un poò incasinato con il lavoro.
--
Ciao Diego.
*******************************
http://www.mso.it/public/vbprogrammer
il portale italiano dedicato al Visual Basic
*******************************

 ... sono un poò incasinato con il lavoro.
fai con calma, anch'io sono fino alla collottola.
ciao, a.
Newsgroup: it.comp.lang.visual-basic
Titolo: [extreme ot] ciappi

http://members.xoom.it/chappi
ci sono un po' di scemenze che mi mandano o trovo qua e la'.
su wrongcar credevo di piangere.
quando la bionda si soffia via la ffrangia, da guardare alla moviola
attenzione solo che e' un .wmv, se non c'e' il codec giusto (credo), col
mediaplayer come default win2k fa un bel reboot senza a ne ba.
alien-wazzup e' un omaggio budweiser a java.


Grande lo zio :)
OT[pal]++ - ne sentivamo la mancanza :)
Ciaotutti,
*


Ehm... Naturalmente volevo dire:
OT(pal) = OT(pal) + 1
Troppo JS fa male alla salute :P
Ciaotutti,
*

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

Come definisco il punto d'ingresso a una dll?


Dipende se usi il C o il C++......
In VB non si definisce un punto di ingresso poichè in realtà non è una dll
regular.
Dopo che hai creato una dll in VB devi per poterla utilizzare registrarla
nei riferimenti del progetto e potrai usare quelle funzioni...
se poi usi il C  o C++ fammelo sapere e ti indico come fare.
Marcello

No uso VB, in c lo so fare, come la registro nei riferimenti?
Xchč nn č "regolare" se la voglio usare poi anke col C nn si puo'?


Prima cos, le o non sono un optional.
NON e' un avverbio di tre lettere, tra un po' attivo una regola di posta che
cassi tutti i messaggi contenti  " nn "...
Secondo, VB consente di creare solo DLL ActiveX (al limite puoi crearne una
'mista' usando alcuni SW speciali che si interpongono tra VB ed il linker).
Questo non significa che non puoi usarle da C, solo che non puoi aspettarti
di utilizzarle come le DLL standard.
Devi usare C++ e le estensioni COM, creando gli oggetti con le varie
CoCreateInstance.
Se vuoi utilizzarle come DLL standard devi usare uno di quei SW di cui
sopra, cerca sul SC per ulteriori info.
Ciaotutti,
*

Newsgroup: it.comp.lang.visual-basic
Titolo: Api - come portare il cursore alla fine e all'inizio?

Sapete dirmi quale api utilizzare e come
per poter portare il cursore all'inizio e alla
fine di una text box senza utilizzare cosě
il sendkey?
Ciao Enzo
www.scozzaro.it



HELP:
Text1.SelStart = X
Text1.SelLength = Y
Ciao

 ha scritto
| Sapete dirmi quale api utilizzare e come
| per poter portare il cursore all'inizio e alla
| fine di una text box senza utilizzare cosě
| il sendkey?
Text1.SelStart = 0 ' inizio
Text1.SelStart = Len(Text1.text) ' fine

"Jabba The Hutt" <Jabba....@Alderaan.SW> ha scritto
| Text1.SelStart = 0 ' inizio
| Text1.SelStart = Len(Text1.text) ' fine
Senza scomodare le API... :)))

Jabba The Hutt Hutt Hutt
mi ha detto qualcosa che potrebbe
forse risolvere i tuoi prob.
textbox1.selstart=0
test it... io non ho avuto la possibilitą di vederne il corretto
funzionamento ma dovrebbe andare.
Bus_hello
(ascolta Red House Painters)

 wrote in message
9ue1lf$cls$1...@newsreader.mailgate.org...


 wrote in message
svGO7.8047$NA1.2...@news2.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: ciclo di for.......... ma non proprio

salve a tutti
ho un ciclo di for abbastanza lungo
volevo aggiornare una
label del mio form del progresso numerico del for .. ma non ci riesco. mi
appare solo l'ultimo numero quando esce dal command.
sub command1.click
for a=1 to 10000000
label1.caption=a 
next
end sub
qualcuno gentilmente
potrebbe segnalarmi link, o darmi un qualsiasi suggerimento?
grazie in
anticipo
--------------------------------
Inviato via 
http://usenet.iol.it

 end sub
Se devi solo far scorrere l'indice del ciclo basta mettere
label1.refresh
dopo in tuo label1.caption=a

 dopo in tuo label1.caption=a
Con quel "Se devi solo..." volevo dire che io metteri un bel DoEvents,
specie se il ciclo è davvero lungo

 specie se il ciclo è davvero lungo
Sempre ricordandosi che con un DoEvents l'utente potrebbe cliccare su altri
controlli e far partire altre cose, mentre il ciclo for non è ancora
completato, con tutte le conseguenze del caso...
Il DoEvents è ottimo se vogliamo mettere il bottoncino "Annulla" per
interrompere il ciclo :-)))
Alberto

specie se il ciclo č
davvero lungo
hai ragione: infatti č in un ciclo di Do...  :-)) 
ma era
per semplificare al massimo il mio problemino.
ancora grazie e ciao
:-)


 interrompere il ciclo :-)))
Si è giusto, ma io volevo solo completare la casistica delle possibilità. E'
chiaro poi che la scelta finale e il modo in cui viene effettuata dipendono
da chi realmente è impegnato nel lavoro.
Ciao

 specie se il ciclo è davvero lungo
Ricordarsi che il DoEvent, oltre a tutte le controindicazioni è anche
mooooolto lento, quindi farei un
if (i mod 100)=0 Then Doevents '(ogni 100 cicli)
Se il loop è breve è molto meglio solo la .Refresh
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: SQL Server & WinXP: non si connette!

Ciao,
ho un cliente che ha un pc con WinXp Pro installato. Il sistema operativo è
in lingua tedesca (se può influire).
Sopra ho installato SQL Server 7.
Se mi collego al server con Query Analyzer tutto bene.
Ma se ci provo con Enterprise Manager nisba!
Mi si collega al server ma se vado sui database mi dice: "An error occurred
while triing to access to database information"
Anche se mi collego con un programmino VB non va...
Ho già provato un pò di tutto... qualcuno ha delle idee da suggerirmi?
Grazie


Beh, direi che non hai i diritti di amministratore di Sql-Server, ma solo di
utente.
Se usi l'autenticazione Sql-Server, devi solo inserire uid e pwd di un
administrator del server, se usi l'autenticazione NT devi accertarti di
essere administrator del dominio, che per macchine NT potrebbe anche
coincidere con la macchina stessa.
Ciao
Alberto

 coincidere con la macchina stessa.
Prima di tutto grazie.
L'utente con cui sono entrato è amministratore...
L'autentificazione  è quella Sql Server

 L'autentificazione  č quella Sql Server
Beh, allora, a meno di bug dell'Enterprise Manager, verifica che l'utente
amministratore possa accedere ai singoli db...
Una domanda: non č che per utente amministratore stai utilizzando 'sa',
vero?
Ciao
Alberto

 vero?
no no...
non so piů che fare... :-(
Newsgroup: it.comp.lang.visual-basic
Titolo: Errore di sistema...HELP !!!

Ciao,
pochi minuti fà sono piombato nella disperazione! (bè forse ho un pò
esagerato...).
Comunque ero in fase di test della mia applicazione realizzata in VB6 e
Access utilizzando gli ADO quando il sistema và in crash e appare la
classica finestra di windows con sù scritto : L'istruzione a "0x784abac4" ha
fatto riferimento alla memoria a "0x29e8d445". La memoria non poteva essere
"written".
A quel punto ho provato e riprovato e mi sono accorto che il msg compare
sempre dopo la sesta operazione di modifica dei campi.
Ho guardato se per caso stavo allocando troppa memoria ma dal task manager
non si direbbe, rimane sempre costante.
Secondo voi quale potrebbe essere l'errore?
Grazie e Buona Giornata,
Fabio
--------------------------------
Inviato via 
http://usenet.libero.it

Cosě č impossibile aiutarti devi specificare:
 - S.O. (anche se dal messaggio credo sia Win 2000)
 - Versione degli ado e stralcio di codice che genera l'errore
 - Versione VB e service Pack (non fa mai male)
e forse qualcuno capisce il problema...
Ciao
Andrea

 Così è impossibile aiutarti devi specificare:

Ciao, sì scusa hai ragione. Ho scritto il post in fretta descrivendo solo
l'errore e anche in modo grossolano ma sono stato colto 5 minuti di panico!
Comunque allarme rientrato, a furia di debug e pezzi di codice commentato
sono riuscito a isolare la parte di codice bacata. Ora dovrò sistemarla per
benino...
Grazie lo stesso.
Ciao


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Mdac_typ.exe

Chi sa dirmi quali DLL si installano da questo file?
So che riguardano i componenti di ADO.. ma vorrei sapere in modo più
specifico i nomi delle
DLL che vengono installate..
Grazie a tutti..

Le DLL sono indicate nell'HELP di MSDN Library installato con Visual Studio,
alla voce "Redistributing Data Access Components".
Gabriele Vaccher ha scritto nel messaggio ...


Newsgroup: it.comp.lang.visual-basic
Titolo: Indirizzi LPT e COM

Esiste qualche comando in VB5 o API con il quale è possibile sapere quante
COM e
LPT sono presenti sul PC e a che indirizzo risiedono?
Un milione di grazie a tutti e auguri di buone feste.
Dm

 ha scritto nel messaggio
news:q8CT7.326710$sq5.15...@news.infostrada.it...


E se ho un modem interno in un notebook con questo codice mi rileva la
seriale associata a questo ?
Ciao, Claudio.

 ha scritto nel messaggio
news:9vpng6$99i$1...@nreadb.inwind.it...


 ha scritto nel messaggio
news:q8CT7.326710$sq5.15...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: encryption con VB

Dobbiamo scrivere un'applicazione che verifiche e validi delle password
oltre ad ereditare delle informazioni che sarebbe bene siano criptate.
Qualcuna sa se esistono librerie, prodotti od altro che permettano di
ottenere questo risultato lavorando un VB ?
Grazie
Pier Michele Impeduglia

 ha scritto nel messaggio
news:RzxB6.148174$lj4.4...@news6.giganews.com...


 ottenere questo risultato lavorando un VB ?
prova a cercare sul Sito Comune (
http://www.it-lang-vb.net/
) l'esempio
"clsCrypto.zip"
Ciao
--
Luca Dormio
luca....@tin.it

da me, una ocx...
area files...
NmCrypt
dovrebbe essere anche nel SC...
--
GbC
http://www.chiappori.net
http://www.gbcweb.com
--

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

Salve a tutti.
Ho un problema.
Ho due PC sui quali sono installati i Sistemi Operativi Win2000 e Win98.
Su Win2000 ho alcuni files che sono infetti dal virus I-Worm.Frethem.E
Ho lanciato l'antivirus IRClean.
Fino ad un certo punto tutto bene.
Dopo qualche minuto appare il messaggio di Win2000:
"Si è verificato l'errore di exception  unknown software exception
(0xc00000fd) nell'applicazione alla posizione 0x784ab134.
Fare click su OK per terminare l'applicazione.
Fare click su Annulla per eseguire il debug dell'applicazione".
A cosa pensate che sia dovuto questo fatto?
Ho fatto varie prove ma il risultato è sempre il solito: non porta a termine
la scansione del disco.
Avete qualche idea?
Grazie a tutti per le eventuali risposte.
AH! Sapete come cancellare tale virus??
Grazie ancora.
By Riccardo

 wrote:
Sei OT.
Prova su it.comp.sicurezza.virus
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: TrueDb7.0

Con questo ocx ho la possibilità di avere una casella a discesa (combo box)
all'interno della griglia ?
Grazie, Alberto

 ha scritto nel messaggio
news:vkX96.2384$A23....@news6.giganews.com...


Esatto...hai la possibilità di gestire la ComboBox all'interno della
tabella.
Ma come ti ricorda Seba vatti a vedere i Tutorial ....
Ciao Stefano
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Campo Euro in un database

Salve,
in un programma con connessione ad un DB con accesso ADO
scrivevo in un campo il credito residuo in lire.
Funzionava correttamente.
Nel passagio all'euro il database mi viene aggiornato sempre
arrotondando il valore dopo la virgola.
Ho provato ad usare currency ma mi restituisce nel DB sempre un valore
intero.
il databese viene aggiornato in questo modo:
recdb.Fields("CreditoIniziale") = newcred1
dove newcred1 e' una stringa
E' possibile avere un aiuto su come procedere o cosa cercare nella
guida?
Grazie
Marco
Vuoi guadagnare navigando?
Fatti assumere da una compagnia marittima.

Risolto...
bastava ricreare il DB....avevo dichiarato i campi dbLong
 :-)))
Marco
-- 


Newsgroup: it.comp.lang.visual-basic
Titolo: [Help] Abilitazione Condivisione internet

Slave.
Ho 3 PC in rete uno dei quali (Win2000) ha un modem ISDN se lascio la
condivisione di connessione internet sempre attiva il PC mi si connette a
caso, quindi vorrei evitare il tutto facendo un exe che abilita da uno dei
due PC(Win 98 2° Ed.) in rete la condivisione sul PC(Win2000) e poi la
disabilita.
Di sicuro devo usare una API ma quale?
e per il fatto che l'exe lo eseguo da un altro PC?
Grazie in anticipo

 wrote:
Prima di tutto:
il crossposting e' contrario alla netiquette (o la netiquette e'
contraria al crossposting, fai tu) e, per quanto mi riguarda, rispondo
solo su questo gruppo.

Installare un proxy fa cosi' schifo?
-- 
ciao, hal

... il PC mi si connette a caso, quindi vorrei evitare il tutto ...

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] X Zeross

Forse ho trovato questo bug di outlook 5. Metti Visualizza\Visualizzazione
corrente\Nascondi messaggi già letti
e poi scarica i messaggi dei vari news. A volte non te li visualizza tutti.
Se metti visualizza tutti i messaggi, dopo averli scaricati, e poi rimetti
nascondi i msg letti, te li visualizza tutti....
Ciao

Meimi <^_^@^_^.it> wrote in message 77ocg1$7kt$1...@fe1.cs.interbusiness.it...

Ehm... arrivi tardi.  E' un bug noto che è già stato risolto nella beta 3
^_^;;
Zeross


Era tanto per dire... non pensavo di aver scoperto qualche novitaà...
figurati.
Cmq ie 5 si blocca più spesso e da più errori del 4.....
Ciao


Anche netscape 4.5 si difende bene.... ma che programmatori
imbranati!!!!!!!!!!!

Meimi <^_^@^_^.it> wrote in message 77r2se$9qu$1...@fe2.cs.interbusiness.it...

Beh.. bisogna però far presente che Netscape 4.5 è già una release, mentre
IE5 è ancora una beta (quindi può ancora peggiorare ^__^)
Ciao ! ^_-
Zeross
Newsgroup: it.comp.lang.visual-basic
Titolo: Inserire campo contatore con istruzione CREATE TABLE

Ciao a tutti.
Mi sapete dire come fare a creare 1 nuova tabella mediante Istruzione CREATE
TABLE (SQL microsoft jet) la quale mi deve inserire 1 campo tipo contatore o
in alternativa un campo che inserisce 1,2,3,4, ecc.
Grazie.

[dani = 
circa_...@tin.it
 in ymwkc.124916$
hc5.5...@news3.tin.it
] ha
scritto:

Con ADO:
CREATE TABLE tabella (campo_id Int IDENTITY)

Il 30/04/2004 19.51, dani scrisse:

Vedi qui:
http://groups.google.com/groups?hl=en&lr=&ie=UTF-8&oe=UTF-8&threadm=b0gf58%24p1auk%241%40ID-97197.news.dfncis.de&rnum=2&prev=/groups%3Fhl%3Den%26lr%3D%26ie%3DUTF-8%26oe%3DUTF-8%26q%3Dcontatore%2Bemmexx%26btnG%3DSearch%26meta%3Dgroup%253Dit.comp.lang.visual-basic
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 CREATE TABLE tabella (campo_id Int IDENTITY)
Con DAO:
CREATE TABLE tabella (campo_id COUNTER)
oppure
CREATE TABLE tabella (campo_id AUTOINCREMENT)
Newsgroup: it.comp.lang.visual-basic
Titolo: Come si disegna e si salva il lavoro ?

ho necesità di eseguire un disegno su un'immagine caricata in una picture o
image.
Ho fatto delle prove ma riesco a disegnare ma non a salvare il lavoro fatto.
Mi date un aiuto ?
Pippo

 wrote in message
news:uKWU5.2263$tS2....@news.infostrada.it...

Con SavePicture salvi il disegno in formato bitmap.
Ciao
Aldo

Newsgroup: it.comp.lang.visual-basic
Titolo: OT kiss 1600 media player

Mi han regalato un kiss 1600 media player
Non me ne faccio nulla: ho già una vechia xbox come media player...non
ho tv HD......e comunque ho anche un hd multimediale che esce in alta
definizione!
Fatemi una proposta se vi interessa altrimenti lo metto in soffitta!

 Fatemi una proposta se vi interessa altrimenti lo metto in soffitta!
Venderlo su ebay?
Nicola
Newsgroup: it.comp.lang.visual-basic
Titolo: Sovrascivere un file

Forse sarà una domanda banale...
Con che comando posso sovrascrivere un file esistente?
Grazie
-- 
Gulp ! Forse mi sono perso qualcosa !

Con che comando posso sovrascrivere un file esistente?
Sovrascrivere come? 
Durante una copia? Vedi l'istruzione Name.
Modificarne il contenuto da programma? Puoi aprirlo in binario e
sovrascrivere i byte che ti interessano con Put, oppure ne fai uno
nuovo, elimini il vecchio e rinomini il nuovo con il nome del vecchio.
-- 
ciao, hal

 sovrascrivere i byte che ti interessano con Put,
Tra questo ed il metodo che ho adottato quale ti sembra il piů adatto allo
scopo?
Grazie per aver risposto


beh, se usi fso, devi averlo installato anche sul PC client, cioč il PC su
cui fai girare la tua app.
io opterei per la classica istruzione Open, che č nativa di VB e non hai
bisogno di niente in particolare
Open "C:\Pippo.txt" for Output As #1
o qualcosa del genere. Cosě apri il file in scrittura, lo scrivi dove vuoi,
come vuoi. Guarda MSDN per la sintassi corretta se quella che ti ho indicato
non va bene, ok?
good coding!!!
-- 
Damiani Liborio Igor
ig...@igordamiani.it
 - 
soft...@igordamiani.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262

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

Ho fatti un programmino in vb4/vb6 per archiviare dei documenti, ora
vorrei inserire anche lo scan dei documenti, qualcuno mi può indicare come
fare/o che oggetto utilizzare?
mille grazie anticipate per la cortesia.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 mille grazie anticipate per la cortesia.
www.twain.org
 qui dovresti trovare qualcosa.
Ciao a presto
Stephen

 ha scritto nel messaggio
news:cvd6s1$6ni$1...@news.newsland.it...


 mille grazie anticipate per la cortesia.
io uso il controllo  imgscan.ocx   prova a cercarlo

 
http://www.jflinc.com
-> If you're looking for our ObjectTWAIN ActiveX scanning toolkit, click the
related link on the left.
-> ObjectTWAIN is currently not available for purchase.
potevano mica almeno scriverlo in homepage :P

Newsgroup: it.comp.lang.visual-basic
Titolo: Parametri da riga comando

Un problema che mi sta togliendo il sonno...
come faccio a passare dei parametri da riga comandi ad un programma scritto
in VB6 ???
Vorrei ad esempio da riga comandi scrivere...
c:\pippo\applicazione.exe x y z
dove x y z sono dei parametri che userò all'interno del programma.
Please datemi qualche dritta.
Grazie e a buon rendere
Massimo

 in VB6 ???
Consulta la guida in linea.: funzione Command.
Se hai ulteriori perplessità, comunicacelo.
Ciao 
	Adriano


vedi "command" sulla guida in linea
ciao
ugo

 ha scritto nel messaggio
news:9f0pvv$bvg$1...@fe2.cs.interbusiness.it...


 Please datemi qualche dritta.
Command$
se ti serve dividere la stringa in parametri puoi usare la funzione 
strtok della libreria msvcrt.dll, ma non ho la Declare pronta, e ignoro 
se sia sufficientemente compatibile con VB

 se sia sufficientemente compatibile con VB
uhmmmmm non va bene Split? (se usa VB 6...)
Faber

:

no, è diverso, strtok mangia gli spazi e i tab in eccesso, interpreta 
correttamente le virgolette come raggruppatori e si può usare un passo 
alla volta

Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda su DirListBox

Ciao, come posso fare per visualizzare un path di cartelle, in un controllo
DirListBox, solo a partire da una certa directory in avanti? Ad esempio
vorrei che fosse possibile visualizzare SOLO la cartella C.\windows\system e
tutte le sottocartelle, NON altro.
E' possibile? Qualcuno può aiutarmi?
Grazie,
Antonio

E' possibile? 
Su, un po' di fantasia :)
metti una dirlistbox in un form e nel codice copia questo:
Option Explicit
Private Const MAX_PATH = 260
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Function vbGetSystemDirectory() As String
    Dim lpBuffer As String
    Dim apiRet As Long
 
    lpBuffer = Space(MAX_PATH)
    apiRet = GetSystemDirectory(lpBuffer, MAX_PATH)
    vbGetSystemDirectory = Left$(lpBuffer, apiRet)
End Function
Private Sub Dir1_Change()
    Dir1.Path = vbGetSystemDirectory()
End Sub
Private Sub Form_Load()
    Dir1.Path = vbGetSystemDirectory()
End Sub
hth, hal

 wrote in message
9e8dqg$1efk0$1...@ID-56381.news.dfncis.de...



Al change del path annulli qualunque cambiamento ti porti sopra il percorso
corretto.
Una cosa del tipo
Private Sub [...]_Change
    If Left([...].Path,Len(STR_DEF_PATH))<>STR_DEF_PATH  Then
        [...].Path = STR_DEF_PATH
    End If
End Sub
Ciaotutti,
Asterix
Newsgroup: it.comp.lang.visual-basic
Titolo: diagramma GANT

Richiesta di informazioni:
Per cortesia, mi sapete indicare un controllo per rappresentare dei dati in un
diagramma di GANT.
Ho provato lo schedule 3.0 della dbi-tech, ma ...non trovo il crack.
Indicatemi un'alternativa anche semplice.
GRAZIE.
-- 
Posted from  [213.217.178.254] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Indicatemi un'alternativa anche semplice.
cut


A parte che affermare in questo NG 'non trovo il crack' e' quasi come
recitare il Padre Nostro ad Al Qaeda...se non hai esigenze troppo
'esigenti', anche il controllo Microsoft Chart (incluso in VB6) offre un
Gantt piccolino.
Bye by Massimo 8-]
P.S. Prova ad andare su 
www.componentsource.com
, e cercare 'Calendar &
Scheduling' tra i componenti di VB

 wrote in message
news:xFlB7.6799$C57.1...@news1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Come si manda a capo in un text box?

Proprietą Multiline del tetbox: impostala su True.
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

come in oggetto

a capo cosa devo fare?
Hai provato a premere "Invio"????


 (togliete "#" dall'indirizzo)
ok ma se io in un box multiline voglio scrivere un tot di caratteri e poi andare


Hai provato a premere "Invio"????
Moreno penso che intenda farlo da codice...
Devi usare la costante vbCrLF
Text1 = Text1 & vbCrLF & s
Dove s è la stringa che vuoi mettere a capo
Ciao
Marco Frazzoli

Newsgroup: it.comp.lang.visual-basic
Titolo: HELP ME su winsocket

ciao a tutti.
ho un problema con il control winsocket: ne metto 100 su una maschera, poi
gli do' a tutti il listen.. solo che dopo 14 mi dà l'errore  10055 "spazio
del buffer esaurito". come posso risolvere????
grazie
gualty
codice:
Private Sub InizializzaAscolti()
Dim i As Integer
For i = 0 To 99
    tcpServer(i).LocalPort = 1001 + i
    tcpServer(i).Listen
Next
num_messaggi = 0
End Sub

...


 >gli do' a tutti il listen.. solo che dopo 14 mi dą l'errore  10055


> >gli do' a tutti il listen.. solo che dopo 14 mi dà l'errore  10055


 wrote in message
8cv2re$hob$1...@pluto.sm.dsi.unimi.it...


>del buffer esaurito". come posso risolvere????
Questo errore esce anche a me e ne uso solo 4. 
Credo che sia un bug del controllo, e non e' il solo mettici un on
error, 
ON ERROR  e' l'unico comando di microsoft che funziona perfettamete
!!!!!
Newsgroup: it.comp.lang.visual-basic
Titolo: Early vs. Late Binding

Qualcuno mi sa dire come mai questo codice in early funziona, mentre in
late no?
Dim OggettoExcel As New Excel.Application
OggettoExcel.Workbooks.Open (InputFile)
OggettoExcel.ActiveWorkbook.PrintOut
Dim OggettoExcel As Object
Set OggettoExcel = CreateObject("Excel.Application")
OggettoExcel.Workbooks.Open (InputFile)
OggettoExcel.ActiveWorkbook.PrintOut 
'^^^^ Errore definito dall'applicazione o dall'oggetto
Praticamente non mi stampa tutto il documento.
Questo invece funziona in entrambi i casi:
OggettoExcel.ActiveWindow.SelectedSheets.PrintOut
Ovviamente stesso file di input.

Dopo dura riflessione, Andrea [Work] ha scritto :

Quello con l'ActiveWindow lascialo stare, funziona ma non ï¿œ detto, 
basta che ci sia qualche macro o qualche cosa che ti cambia 
l'activewindow in maniera asincrona che diventi matto.
Esattamente, non ti so dire perchï¿œ funzioni l'Early Binding (che con 
Office ï¿œ sempre e comunque un male), e non il Late Binding.
Perï¿œ io il late binding lo uso con i riferimenti precisi.
Cioï¿œ, quando fai l'Open del WorkBook, il metodo ti restituisce il 
riferimento ad un oggetto WorkBook, che dovresti conservare in un 
Object apposito e poi fare il PrintOut di questo.
dim MyWorkBook as Object
set MyWorkBook = OggettoExcel.Workbooks.Open (InputFile)
call MyWorkBook.PrintOut
Ciao
Alberto
-- 
Georges Pompidou: Un uomo di stato ï¿œ un politico che dona se stesso al 
servizio della nazione. Un politico ï¿œ un uomo di stato che pone la 
nazione al suo servizio.

 call MyWorkBook.PrintOut
Si, avevo fatto anche in questo modo all'inizio, ma poi era equivalente.
Praticamente a me serve aprire un file "di nascosto", e stamparlo su
stampante PDF (in riferimento al post di tempo fa).
Sto incontrando non poche limitazioni con BullZip e Office.
Excel per selezionare la stampante non vuole il nome classico ma un
qualcosa con aggiunto tipo "Ne03:" che ho scoperto essere variabile.
Allora ho cambiato la stampante di default a livello di OS, e lo faccio
andare sulla stampante predefinita e poi rimetto tutto com'era.
Poi BullZip non mi fa sapere quando sta creando il PDF, e su file grandi
non so realmente quando l'ha creato. Anche se in ambiente reale quel file
non ho bisogno di leggerlo o spostarlo.
Inoltre su qualche documento di word mi fa 1 pagina sola, quando facendo
tutto da word, sempre con bullzip crea tutto il file correttamente.
Insomma io avevo proposto che invece di fare i file PDF si lasciano i file
in formato nativo, memorizzando in un DB l'md5 in modo da vedere se vien
modificato (o magari genero una password random di 20 caratteri e zippo il
file con questa password che poi metto nel solito DB).
Poi se uno in lettura li vuole estrarre in PDF allora in qualche modo si
fa, e se non funziona uno si legge il file originale.
Ma non � stata passata la proposta...
E' che facendo cos� non posso assicurare che il PDF abbia il contenuto
corretto e completo del file di origine...