mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Scaricare un file da internet

Ho preparato questa sub per scaricare un file da un sito internet.
In effetti funziona, ma l'unica cosa è che mentre sta scaricando il pc non
accetta di eseguire altre operazioni... ossia all'utente finale potrebbe
sembrare bloccato, invece sta semplicemente scaricando, al termine torna
alla piena funzionalità.
Qual'è il modo più corretto di ovviare a questo?
Ed eventualmente un suggerimento per costruire una progress bar per
visualizzare il progresso del download...?
Grazie a tutti!!
Questo è il codice che uso:
Private Declare Function URLDownloadToFile Lib "urlmon" Alias
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal
szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As
Long
Private Sub Command1_Click()
  Dim errcode As Long
  Dim url As String
  Dim localFileName As String
  url = "
http://www.mioSito.it/Prova.zip
"
  localFileName = "c:\Prova.zip"
  errcode = URLDownloadToFile(0, url, localFileName, 0, 0)
  If errcode = 0 Then
    MsgBox "Download OK"
  Else
    MsgBox "Errore nel download del file"
  End If

 ha scritto

io uso questa, presa praticamente di peso dall'help sul controllo inet.
sembra funzionare.
ciao, j.
Private Sub SaveJpeg()
    On Error GoTo errman
    Inet1.AccessType = icUseDefault
    Dim b() As Byte
    Dim strURL As String
    Dim fNum As Long: fNum = FreeFile
    Dim fName As String
    fName = "xxx_" & Format(Now, "yyyy-mm-dd_hh-mm-ss") & ".jpg"
    strURL = "http:// ... /xxx.jpg"
    b() = Inet1.OpenURL(strURL, icByteArray)
    Open App.Path & "\snaps\" & fName _
        For Binary Access Write As #fNum
    Put #fNum, , b()
    Close #fNum
    lblStatus = fName
    Exit Sub
errman:
    Close #fNum
    lblStatus = Error
End Sub

 ha scritto nel messaggio
news:bmv904$qsdot$1...@ID-51318.news.uni-berlin.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: Piu stampanti

Salve,
in che modo posso inserire sulla barra degli strumenti di word tre tasti
stampanti uno che stampi sulla prima stampante il secondo sulla seconda
stampante ed il terzo sulla terza stampante?
Non sono un programmatore, qualcuno puo' indicarmi la soluzione?
Grazie.


Anche se non sei un programmatore e` necessario che tu abbia appena un po'
di pratica nell'uso delle macro di Word e del registratore di macro,
altrimenti e` un po' dura. E in questo ng saresti OT. Ma la pazienza dei
colleghi e` sicuramente molta quindi non dovrebbero esserci problemi. Ma, se
vuoi, possiamo spostarci su uno di questi ng, dove saresti IT:
    it.comp.os.win.software
    free.it.comp.office2000
    microsoft.public.it.office
Attendo news. :-)
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------


mi accodo a questa replica, l'originale è espirato.
Si potrebbero creare macro ad hoc per ogni stampante ed assegnarle a
pulsanti nella barra strumenti: Es.:
Sub Stampante1
  ActivePrinter = "Epson Stylus COLOR 640"
  ActiveDocument.PrintOut
End Sub
Ciao, Silv:o)


Non lavoro con word, ma per scoprire che non riguardava vb ho dovuto aprire
il post.
Non te la prendere :), ho leggermente modificato il subject.
ciao, hal

> Maurizio Borrelli:

Mi sono riletto e non mi sono trovato d'accordo con me stesso. L'argomento
*non* e` OT! Scusate. :-(


Newsgroup: it.comp.lang.visual-basic
Titolo: Visual Studio 6.0

Vendo Cd Visual Studio 6.0 + MSDN ( in tutto 4 CD ) più in omaggio un CD con
Prodotti Macromedia ed Adobe ( 1 CD ), cioè in totale 5 cd A £.150.000 SPESE
DI SPEDIZIONE COMPRESE.PAGAMENTO IN CONTRASSEGNO.
Per contatti e info scrivetemi : 
prin...@principe101.net
 .
Ciao e a presto. Leonardo.

> Per contatti e info scrivetemi :
Vendi il tuo VB?
che fai abbandoni? allora non ti darò più nessun consiglio
su ICQ :Ppp
--
Fibia "Sakamoto" FBI

 che fai abbandoni? allora non ti darň piů nessun consiglio


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Spedire email con Winsock...non mi si connette.

Ho cercato nei post vecchi, ma non ho trovato molto...o meglio, tra i pochi
post non c'era quello che volevo io.
Stò provando a spedire email usando
il componente winsock...sebbene sò la procedura per farlo tramite telnet,
quindi so che comandi dare al server, non ho risposta da questo. Io mi
collego alla porta 25 del server di libero, e non succede niente :( 
Ho
provato con putty e il telnet normale e funziona, dal mio form no.
Ho
usato prima un solo winsock, e non è successo niente, ne ho allora messi
due, uno in ascolto e uno che manda i comandi ma...ancora niente, il
problema è che da parte del server non ho nessun segno, non mi risponde
proprio, manco per dirmi che è pronto.
Qualcuno ha provato a fare
qualcosa del genere?
Saluti...
--------------------------------
Inviato via 
http://usenet.iol.it

post non c'era quello che volevo io.
Ma non hai cercato sul sito comune ...
questa da te non me la sarei aspettata ;-)
-- 
ciao, hal

questa da te non me la sarei aspettata ;-)
Manco io, non
sono più RISORSEALTRUIDIPENDENTE :))
Ciao ciao...

Newsgroup: it.comp.lang.visual-basic
Titolo: Info Cristal Report X VB&

Qualc'Uno mi sa dire come funziona il Refresh del database inserito nel
Cristal Report?
----------------------------------------------------------------------------
-------------
Facendo delle prove ho notato questa cosa:
Se lancio il CrViewer la prima volta il report mi esce normale
Se Dopo faccio un addnew nel database (Modificandolo) e lancio di nuovo il
report mi
appare sempre il report di prima Ma non (L'aggiornamento).
Per avere l'aggiornamento devo premere il pulsante Aggiorna del CrViewer
Quindi credo..che sia una questione di refresh.
Qual'cuno mi puo aiutare ad usare il refresh da codice?
Grazie...

controlla se hai lasciato attivo il "salva dati con report" nel menu File.
Ciao, Vincenzo

 ha scritto nel messaggio
news:c4bsmv$2fsmuj$1...@ID-207068.news.uni-berlin.de...


Penso tu debba fare il .RetrieveDataFiles, almeno con l'ocx si fa cosě.
Ciao Gab

Newsgroup: it.comp.lang.visual-basic
Titolo: FAQ del gruppo?

Ciao, sono Paolo,
sono nuovo di 
VB.NET
, provengo dal C++.
 
Ero uno dei vecchi programmatori che detestavano il BASIC e ti 
guardavano male se non usavi C o C++, ma devo dire che 
VB.NET
 mi piace 
parecchio... sto imparando.
 
Ci sono delle FAQ del gruppo in modo che prima di chiedervi le solite 
stronzate possa acculturarmi...
 
Mi consigliate qualcosa in rete di ben fatto, a parte la MSDN che ce 
l'ho sempre sotto... Grazie a tutti.

Ciao,
al seguente indirizzo trovi un'ottima guida per 
VB.NET
.
http://totemslair.org/guide/vb.php#
 
E' gratuita e scaricabile.

Newsgroup: it.comp.lang.visual-basic
Titolo: Form parametriche

E

seconda della risoluzione video adottata?
  Certo, basta che tu scriva il codice per ridimensionare i controlli
oppure usi un ActiveX ad hoc. :-)
  P.S. Evita di postare in HTML, perche' viene una schifezza e puo'
provocare problemi ad alcuni newsreader per cui alcuni utenti
potrebbero non riuscire a risponderti.
  Ciao :-)
  Massimo
  Nell'indirizzo, inserire una "h" tra la "t" e la "u"
  In the address, insert an "h" between the "t" and the "u"
Newsgroup: it.comp.lang.visual-basic
Titolo: Collaborazione editoriale

Salve, sono Gianfranco Forlino, mi occupo della rivista ioProgrammo, edita
dalla Edizioni Master. Cerco persone che siano addentrate nell'ambito
informatico e piů precisamente in grado di scrivere un o una serie di
articoli riguardanti le ultime tecnologie informatiche; il tutto ovviamente
č retribuito. Se pensate di essere in grado di svolgere una tale tipologia
di lavoro, contattatemi pure, sarň ben felice di valutare quanto propostomi
e se il caso lo prevede di proporre una collaborazione. Grazie
Gianfranco Forlino
(
gfr...@edmaster.it
)

 di lavoro, contattatemi pure, sarò ben felice di valutare quanto


 > ovviamente č retribuito
:)
l'avevo letta, ma per vedere se per caso cercassero (e retribuissero)
qualcuno che sapesse anche scrivere in italiano ("io programmo" peraltro lo
prendo sempre e in genere e' leggibile, anche se qualcuno cui l'ho fatto
vedere non apprezza il tono spiritoso di molti articoli), invece vogliono
solo i recensori dell' *ultimate technology*, quindi sono irrimediabilmente
tagliato fuori... ogni mia critica saprebbe di misera rivalsa... debbo
astenermi come un perditempo qualsiasi. che pal-le...
cmq (e' piu' forte di me) avra' -- a ragione -- considerato l'ambito
informatico come una selva selvaggia et aspra et forte...
Newsgroup: it.comp.lang.visual-basic
Titolo: immagini jpeg

Salve a tutti. Avrei bisogno di qualcosa utilizzabile via ASP o 
via VB6, per leggere i tag dei files Jpeg, tra i quali le misure 
dell'immagine ecc. Naturalmente tutto ciò gratuito.  Grazie
-- 
Postato da Alice Newsgroup: lo usi da web ma con le funzioni del newsreader 
http://newsgroup.alice.it
Gerarchie it, italia, it-alt, tin, it.binari. Unico!

dell'immagine ecc. Naturalmente tutto ciň gratuito.  Grazie
puoi trovare il formato del file .JPG su
http://www.wotsit.org/list.asp?page=3&fc=1&search=&al=
--
ciao
  Stefano

 Naturalmente tutto ciò gratuito.
Naturalmente :P
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] DB Clarion 6?

Ciao a tutti.
Scusate l'[OT].
Mi hanno chiesto di dare un'occhiata a questo DB, di cui non sapevo 
neanche l'esistenza, "Clarion 6".
Dopo una rapida ricerca su google e nei post vecchi non sono riuscito a 
trovare un granchè oltre al sito del produttore 
www.softvelocity.com
A quel che so mi han detto che è molto veloce e semplice e una presunta 
possibilità di creare grafici. 
Qualcuno Conferma la possibilità di creare grafici?
qualcuno lo ha mai usato?
e possibile pilotarlo da db magari con ado?
esiste una versione demo?
 
ciao
Dak


wrote:

Ciao...
Scusa se non quoto in modo corretto, non sono molto abituato a
rispondere sui NG.
Comunque Clarion NON E' un programma che crea grafici al pari di un
normale programma di grafica, è più "semplicemente" un linguaggio 4GL
che permette di creare applicazioni in modo abbastanza semplice, ma
molto professionale.
Comunque per il momento dovresti trovare in rete ancora la versione
5.5 che è stabile anche se ha numerose patch che si scaricano in vari
siti, oltre che dalla Softvelocity.
Per quanto riguarda il demo, in giro si trova soltanto la versione 5. 
Semmai ti conviene guardare nei siti dell'America Latina e del
Sudafrica, dove spesso ricercano programmatori solo di questo
linguaggio.
Di programmatori in Italia ce ne sono, anche se si contano sulle dita
di una mano...:-))
Se hai qualche altra domanda.. 
Alla prossima....
Ciao...

Newsgroup: it.comp.lang.visual-basic
Titolo: Filmato Flash Shockwave in un form

 come faccio a ad inserire un filmato flash in un form? Esiste l'oggetto
shockwave ma l'immagine rimane fissa sul primo frame. (fra l'altro succede
la stessa cosa se si prova ad inserire un filmato flash in una pagina html
usando come editor Front Page. Sarà colpa della Microsoft?)
 Grazie

E' giusto usare il controllo che hai detto. Dopo di che scrivi questa riga:
  "nomecontrollo".movie = percorso filmato
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Assegnare origine dati a Datareport

Probabilmente sto facendo una grossa cavolata, ma non so più in che maniera
provare;
ho scritto questo codice:
StrConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Logisticadati\datilog.mdb;Persist Security Info=False"
Set Conn = New adodb.Connection
Conn.Open StrConn
Set RstUtenti = New adodb.Recordset
RstUtenti.CursorType = adOpenKeyset
RstUtenti.LockType = adLockOptimistic
RstUtenti.Open "Utenti", Conn, , , adCmdTable
Set Riconoscimento.DataSource = RstUtenti
Riconoscimento.DataMember = "Utenti"
Riconoscimento.PrintReport
Lo scopo è quello di aprire una connessione al mio database di access 2000,
aprirmi una tabella, dire al DataReport di prendere i dati da questa tabella
e stampare.
Ora, eseguendo il comando di stampa ottengo l'errore 8577: Gli argomenti non
sono di tipo valido, non sono compresi nell'intervallo o sono in conflitto.
Dove sto sbagliando??
Grazie in anticipo....
CIAO.

 ha scritto nel messaggio
news:iHa69.205731$Jj7.4...@news1.tin.it...

Se l'errore ti viene segnalato sulla riga in cui scrivi
riconoscimento.datamember.....
la questione è dovuta al fatto che il DataMember entra in gioco solo quando
hai a che fare con un recordset gerarchico, e non mi sembra questo il caso.
Devi invece settare la proprietà DataSource di ciascun campo di testo del
report al recordset che hai aperto, e la proprietà DataField al campo che
deve visualizzare.
Salutoni
Sergio

 ha scritto nel messaggio
news:Tan69.208152$Jj7.4...@news1.tin.it...

Mi autocorreggo: devi solo impostare DataSource per il DataReport, e poi il
DataField per i campi testo
Faccina molto contrita per la figuraccia, ma non so come si disegna.
Salutoni.
Sergio

Newsgroup: it.comp.lang.visual-basic
Titolo: Due form

Scusate la banalita'.
Ho aggiunto un secondo form al mio progetto.
Quando richiamo variabili definite Public nel modulo,
queste assumono valore zero.
Devo dare qualche impostazione al form aggiunto?
Non dovrebbe veder comunque le variabili definite Public nella sezione
Declarations?
(Come avviene nell'altra form in cui tutto funziona)
Dove potrebbe essere l'inghippo?
Grazie e scusate
Luca

 Devo dare qualche impostazione al form aggiunto?
Ohibò! Non direi. Posta il codice incriminato

 Ho come l'impressione che mi sfugga qualcosa...
Sfugge anche a me... Le variabili sono uguali a zero prima della chiamata?
Quand'è che vengono impostate con valori diversi da zero?


Le variabili sono diverse da zero e prima di arrivare a quella chiamata del
form2
sono gia' state utilizzate piu' volte, ma senza essere modificate.
Non e' che il problema sta nel caricamento dei form o simili?

 ha scritto nel messaggio
news:9b3uks$22c$1...@fe1.cs.interbusiness.it...



Assolutamente no, perche' quei valori mi servono sempre.

 ha scritto nel messaggio
news:9b3v1v$fat$1...@fe2.cs.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Sms!

E' possibile inviare c'è gia la connesione internet attiva un sms ad un
cellulare...non so sfruttando in qualche modo i motorisms gia
esistenti...come kataweb...gsmboz e coì via?

 esistenti...come kataweb...gsmboz e coì via?
Certo che e' possibile, ma c'e' un piccolissimo problemino.
E' ILLEGALE!!!
--
Fibia "Sakamoto" FBI
URL: 
http://www.geocities.com/fibiafbi
VB Simple: 
http://vbsimple.virtualave.net
E-Mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Membro #25 delle Brigate Takahashi Sez. Sud

 E' ILLEGALE!!!
Perchè ???
Sir Jo

 se mandi un sms da un programma o sito esterno che usa i loro servizi...
Grazie Sir Jo. stavo per scriverlo io, ma il sig. Winzozz ha deciso
di scioperare la sua attivita'. ora cmq tutto ok.
Non ricordo se e' nel sito Jumpy o di Blu, ma e' scritto __esplicitamente__
che non puoi utilizzare quel servizio per i tuoi scopi e per implementare
motori che mandino sms a loro spese.


Newsgroup: it.comp.lang.visual-basic
Titolo: mschart???

Salve a tutti...
scusate il disturbo.. potreste darmi un aiuto a proposito di grafici in 
Visual Basic?? 
Devo creare un grafico di una serie di dati... sto usando MsChart..ma 
non riesco ad espandere l'asse delle x. Devo cioč poter espandere/ 
restringere l'asse in modo da analizzare attentamente la serie di dati 
graficata..
Come potrei fare??? 
AIUTOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
grazie 
-- 
Posted from 195.223.93.201 by way of 
smtp2.libero.it
 [193.70.192.52] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Devo creare un grafico di una serie di dati... sto usando MsChart..ma
non riesco ad espandere l'asse delle x. Devo cioč poter espandere/
restringere l'asse in modo da analizzare attentamente la serie di dati
graficata..
************
č un po che non uso ms chart (quindi č un po che non bestemmio piu... magari
S. Gennaro ormai si č scordato di me, posso anche tornare in chiesa...
::))))), quindi non sono sicuro di quello che dico.
se non mi sbaglio, per quello che vuoi fare tu, in realta, l'unica soluzione
č reimpostare la serie di dati.
ad es. se tu colleghi i dati a una variabile array con 100 elementi, se vuoi
fare una sorta di "zoom", devi reimpostare i dati, riducendo le dimensioni
della matrice.
almeno credo...
MarioH
Newsgroup: it.comp.lang.visual-basic
Titolo: Connessione ad un Server

il mio programma ha qst compito:
Deve collegarsi, da un computer residente in una azienda, un database
residente sul server dell'azienda stessa.
Sto usando la Tecnologia ADO e ho usato una connessione molto semplice:
gstrDBase = "\\SERVER\MIADIR\DATABASE.mdb"
Set cnnTempor = New ADODB.Connection
  With cnnTempor
     .CursorLocation = adUseClient
     .Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & gstrDBase
  End With
Vorrei sapere una cosa:
il metodo che io ho usato va bene oppure è poco professionale?
Conoscete qualche altro metodo per risolvere questa situazione?
1 GRAZIE in anticipo
FormWare

Conoscete qualche altro
metodo per risolvere questa situazione?
Bhè, di metodi per risolvedere
una cosa ce ne saranno chi lo sa quanti :)
Comunque se ho capito bene devi
aprire una connessione su un db residente su un altro pc, ma nella stessa
rete dove si trova il tuo....in due parole, un db è in una rete locale e te
devi farci delle robbe sopra. Bhè, è una cosa abbastanza standard
questa...può cambiare la connectionstring e...qualche altra fessata...come
altro avresti voluto aprire una connessoine al db? :))
Saluti...
PS: il pc dove stà il db è sulla stessa rete (fisica) degli altri pc?
--------------------------------
Inviato via 
http://usenet.iol.it
 

 PS: il pc dove stà il db è sulla stessa rete (fisica) degli altri pc?
SI
Grazie per avermi risposto.
FormWare


Ecco: questa è un'affermazione poco professionale.

il metodo che io ho usato va bene oppure è poco professionale?
Se la stringa di connessione (con nome provider e tutto) e' hard-coded nel codice
allora vale la pena trovare un modo per leggerla dall' esterno, in modo da poter
accedere ad un altro database (non necessariamente mdb) senza ricompilare
il programma.
Cosa utilizzare ? A tuo piacimento: un file .ini, il registro, un file .udl, un parametro
sulla riga di comando, ...
hth, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Eliminazione files


Controllo prima se esiste e in caso affermativo lo cancelli.
es:
if dir(pathFile)<>"" then kill pathFile
Ciao Bruno

...



Io faccio cosi':
..........
On Local Error Resume Next
Kill "nonuccidermi.txt"
On Local Error Goto 0
.......
Ciao

 
Puo' sembrare stupido, ma anche io faccio cosi'!
-- 
Hi, Ciao
Ettore                 By -MES-
http://www.aspide.it/freeweb/ilmes
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb
Newsgroup: it.comp.lang.visual-basic
Titolo: Radice cubica

chi mi sa aiutare in questo tipo di problema riscontrato con VB5?
se scrivo:
a = -27
b =  a ^ (1/3)
il risultato non riesce a calcolarlo e da errore
Se scrivo:
b = -27 ^ (1/3)
il risultato è corretto.
siccome io devo utilizzare assolutamente una variabile come risolvo il
problema?
Grazie in anticipo a tutti!


Perché il "meno" ha una priorità inferiore all'elevamento a potenza, quindi
in realtà lui valuta prima l'esponenziale (con una base = 27 cioè positiva),
e poi al risultato applica il meno. Con le variabili lo risolvi così:
a = -27
b =  sgn(a) *(abs(a) ^ (1/3))




Grazie in anticipo a tutti!
Prova ad usare questa funzione:
Public Function CubicRoot(Value As Variant) As Double
     Dim a As Double
     a = 1 / 3
     CubicRoot = Abs(Value) ^ a * Sgn(Value)
End Function
Inoltre questa potrebbe essere facilmente modificata per calcolare il
risultato di qualsiasi tipo di radice:
Public Function AnyRoot(Value As Variant, RootIndex As Long) As Double
   If RootIndex < 1 Then Exit Function
   Dim a As Double
   a = 1 / RootIndex
   AnyRoot = Abs(Value) ^ a
   If RootIndex And 1 Then AnyRoot =AnyRoot * Sgn(Value)
End Function
Sono routine molto semplici, cmq se qualcosa non ti è chiaro dimmelo. ^__^
Ciaoo
Zeross

End Function
Probabilmente stamattina ero ancora in dormiveglia dato che una routine l'ho
ricopiata giusta, mentre un'altra no. Mah... correggiamo il tutto:
Public Function AnyRoot(Value As Variant, RootIndex As Long) As Double
     If RootIndex < 1 Then Exit Function
     Dim a As Double
     a = 1 / RootIndex
     AnyRoot = Abs(Value) ^ a * Sgn(Value)
End Function
Ora posso tornare a letto....Ronf !!! ^__^
Zeross
Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con select

In un prog. creato con VB5 SP3, collegato ad un database access97,
utilizzo questa select
= "Select * from articoli where numdoc = ' & text1.text & "'"
numdoc è un campo numerico intero lungo
come devo fare per evitare l'errore di runtime N.3464 tipi di dati non
corrispondenti?
So che è una domanda da principiante, ma tale sono
Un saluto e mille grazie a tutto il NG
Valli

 wrote in message 8kqp2r$i4$1...@nslave1.tin.it...


 corrispondenti?
La tua stringa è errata in quanto non cmpone la costruzione con i contenuto
del campo testo (le virgolette si chgiudono alla fine e quindi...
Se numdoc è un numerico (non importa il formato... in questo caso long) gli
apici non devono essere usati, quindi l'istruzione esatta è:
"Select * from articoli where numdoc = " & text1.text
Nel caso numdoc fosse stata stringa, l'istruzione avrebbe dovuto essere:
"Select * from articoli where numdoc = '" & text1.text & "'"
Nota che nell'ultimo caso potresti avre problemi nel caso text1.text
contenga apici singoli (')
Ciao
--
Marco Leto
xar...@tin.it
____________________________________
Voltato l'angolo forse ancor si trova
Un ignoto portale o una strada nuova;
Spesso ho tirato oltre, ma chissà,
Finalmente il giorno giungerà,
E sarò condotto dalla fortuna
A est del Sole, ad ovest della Luna.
Finalmente il giorno giungerà,
E sarò condotto dalla fortuna
A est del Sole, ad ovest della Luna.

 corrispondenti?


 ha scritto nel messaggio
news:8kqp2r$i4$1...@nslave1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Richiesta info

Volevo chiedere se qualcuno potrebbe dirmi se è possibile utilizzare le
variabili dinamiche in VB (quelle che fanno uso dell'heap anziché della zona
di memoria 'normale'), ed in caso affermativo in che modo.
Ringrazio anticipatamente!!!!


Ciao Luca,
l'allocazione dinamica delle variabili (nello heap) non e' possibile per i
tipi di dato predefiniti (es. Integer, Long, ecc.) o definiti dall'utente
con Type.
E', invece, non solo possibile, ma anche necessaria, per gli oggetti (es.:
Collection, o classi personalizzate) mediante l'operatore New.
La sintassi e':
'********************
Dim MioOggetto As MiaClasse
' Equivale ad allocare in memoria un *RIFERIMENTO* all'oggetto, *NON*
l'oggetto in se.
Set MioOggetto = New MiaClasse
' Alloca in memoria un'istanza di MiaClasse ed assegna a MioOggetto un
riferimento all'oggetto appena allocato.
' ...
' La deallocazione dell'oggetto e' automatica in VB ed avviene mediante
reference-counting:
' quando non esistono piu' variabili che si riferiscono all'oggetto allocato
questo viene deallocato =)
' E' comunque possibile deallocare immediatamente e manualmente un oggetto
con l'istruzione:
Set MioOggetto = Nothing
'********************
"Pare" che VB nel deallocare automaticamente non sia molto bravo =) (Evviva
M$)
Pertanto consiglio sempre di deallocare manualmente (Set MioOggetto =
Nothing) un oggetto quando non se ne fa piu' uso.
Spero di esserti stato di aiuto,
Lokar
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema di gesione errori

Ciao a tutti ragazzi, io avrei un problemino.
Ogni volta il programma trova un errore mi da un avviso e poi invece di
continuare mi chiude l'applicazione, è possibile fare in modo che la mia
applicazione possa girare ignorando l'errore?

 ha scritto nel messaggio
news:a33glb$q1g$1...@lisa.galactica.it...

cercati on error sulla guida.
ciao, assa.
--
Sito Comune
http://www.it-lang-vb.net/

 wrote in message a33glb$q1g$1...@lisa.galactica.it...



Oppure in Modo Piů semplice...
Private Sub Prova()
On Error Goto ErroreProgramma
Codice...
Exit sub
ErroreProgramma:
    msgbox err.Number & " - " & Err.Description ' Almeno Visualizzi L'errore
Per Poi Risolverlo
Exit sub
End Sub
Puoi , conoscendo il Numero di Errore Gestirlo Cosě :
ErroreProgramma:
If err.number =x then
    esegui una Funzione tua Specifica o una Msgbox
End if
By Utente Win2k

Newsgroup: it.comp.lang.visual-basic
Titolo: datacombo e textbox

Salve, volevo chiedervi :
come faccio a fare in modo che in un textbox compaia il valore del campo
"descrizione" della tabella che scorro in un datacombo (che mostra il campo
"codice") ?
(Cioe' scendendo e salendo con il cursore, e selezionando di volta in volta
un codice articolo diverso, vorrei che in una casella di testo venisse
mostrata la descrizione)
Grazie.

 ha scritto nel messaggio
news:2SvH6.13355$0t6.4...@news.infostrada.it...


 ha scritto nel messaggio
news:9cn1r7$kgc$1...@pegasus.tiscalinet.it...


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

Come faccio a "copiare" un intero recordset in uno uguale?
Come faccio a mettere in un recorset vuoto il risultato di una query
effettuata su un altro recordset?
Grazie
Roberto

...


 wrote in message
news:37E9FA59...@netsurf.it...


I recorset di ADO conoscono anche un metodo "Clone"....
Set orsTaget = orsSource.Clone
Ti aiuta?
--
Giulio
Remove NOSPAM. for reply.


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] VB5 Drag&Drop e DBGrid

Un saluto a tutti
Utilizzo VB5 con SP3
Vorrei sapere se è possibile utilizzare il metodo drag & drop per trascinare
il record selezionato in una dbgrid collegata ad una tabella, in una riga di
un'altra dbgrid collegata ad un'altra tabella, ed eventualmente dove trovare
documentazione in italiano al riguardo.
Ho provato a cercare nella guida in linea, am non ho trovato nulla.
Grazie 1000!!
Ciao, Valli

...


...


 wrote in message
8lm520$rap$1...@serv1.iunet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Ricerca di Files e Tutorials

Sto cercando disperatamente File tutorials e quant'altro
che riguardi VB6, perchč mi sta appassionando
particolarmente!! aiutatemi per favore grazie!!
* Sent from AltaVista 
http://www.altavista.com
 Where you can also find related Web Pages, Images, Audios, Videos, News, and Shopping.  Smart is Beautiful

 particolarmente!! aiutatemi per favore grazie!!
--
---> search for it in / cerca nel sito comune del ng:
http://www.murialdo.it/it_lang_vb/
---> 1k vblinks in:
http://www.comune.modena.it/cittadini/apal/html/
Newsgroup: it.comp.lang.visual-basic
Titolo: API GetPrivateProfileString e WritePrivateProfileString

Qual'è la sintassi corretta ??
di queste due API ,WritePrivateProfileString e
in particolera della GetPrivateProfileString
Marco
nige...@tin.it

...



Non ho capito come usare queste :
ByVal lpDefault As String, ByVal lpReturnedString As,String, ByVal nSize As
long
Es:
dim X$ as string
dim lpRetStr as String * 50
INI_NAME = App.Path + "\File.cfg"
X$=GetPrivateProfileString ("Sezione","Nome", ????, ????, ?????, INI_NAME)
Cosa devo mettere al posto dei ?????.
Grazie
N.B. Followup impostato *anche* su poster.
---
Andrea :-{)
acm...@hotmail.com

 X$=GetPrivateProfileString ("Sezione","Nome", ????, ????, ?????,
INI_NAME)
diventa:
X$=GetPrivateProfileString ("Sezione","Nome", lpDefault, lpReturnedString,
nSize, INI_NAME)
Dopo la chiamata, lpReturnedString contiene appunto il valore cha hai
richiesto.
Insomma:
lpDefault dà la stringa di default, quella che viene restituita se l'entry
non esiste nel file INI;
lpReturnedString è una stringa che va predimensionata come quasi tutte le
stringhe che si passano a funzioni API, o con dim .... *50 o il valore che
vuoi, o con Space$(50) o il valore che vuoi, ma comunque sempre sufficiente
a contenere il valore di ritorno. In questo caso la stringa di ritorno non
potrà avere più di 50 caratteri;
nSize è il valore che dice alla funzione quanti caratteri può passare a
lpReturnedString, e si capisce che poiché abbiamo predimensionato
lpReturnedString nSize può essere minore o uguale alla lunghezza di
lpRetuirnedString, pena tagli della stringa nel migliore dei casi, crash
nel peggiore.
Saluti,
Domenico
Newsgroup: it.comp.lang.visual-basic
Titolo: VB6-SP6 su W7 64bit

Seguendo i consigli di Massimo sono riuscito
a fare passi avanti nell'installazione di VB6.
L'ho installato e in parte sembra funzionare.
Il primo grosso problema e quello che non
trova i componenti (common dialog, ecc.).
Tra l'atro la cartella proposta per la ricerca
non �:   C:\WINDOWS\SYSTEM32\....
ma una cartella strana tanto lunga che non
sono riuscito a leggerla e che nel percorso
contiene ACROBAT e che quindi deve
essere errata.
Cercando o trovato degli ocx nella cartella
che comincia per:  c:\Programmi(86) \VisualStudio
Per� se faccio sfoglia e cerco di aprire
comdlg32.ocx ricevo un rifiuto.
Mi � venuto un dubbio:
Ho installato direttamnete SP6  (che si � installato
senza domande) senza passare attraverso SP5
che mi chiedeva invece la cartella di installazione
che io non conoscevo.
Se per� ho capito bene SP6 dovrebbe gi� contenere
gli aggiornamenti comulativi.
Qualcuno mi pu� aiutare?
Grazie e saluti
Sauro 

 Grazie e saluti
Confermo, sp6 � cumulativo.
Dicci come prosegue la cosa, prima o poi tutti dovremo passare a w7
-- 
Greg 


La cosa non prosegue proprio se
qualcuno non mi aiuta.
Spero ancora nell'aiuto di MaXimo
che ne sa molto pi� di me in merito
e che mi ha permesso di installare
almeno VB6 "base".
Ho salvato le sue istruzioni in merito
e le completer� con le altre eventuali
se riuscir� ad arrivare in fondo.
Ciao Greg
Sauro 

 ha scritto nel messaggio 
news:ht2p0t$cfn$1...@speranza.aioe.org...

Mi sa che devi disintallare tutto e
installare sp5 e poi sp6 

 installare sp5 e poi sp6
Quando ho installato VB6 poi MSDN
poi MDAC 2.7 seguendo le tue
istruzioni (almeno per VB6) tutto �
avvenuto in automatico.
Quando ho provato ad installare SP5
mi chiedeva il percorso (mi sembra la
cartella di destinazione).
Non sapendo cosa risposndere ho
installato direttamente SP6.
Tu conosci il percorso da scegliere
per SP5?
Grazie e saluti.
Sauro 

 per SP5?
...
Ciao,
il percorso che ti chiede, almeno se stai utilizzando un file simile a 
quello che ho io (io pero' installo direttamente sp6), il percorso che ti 
chiede e' quello che serve a lui per scompattarsi. In quel percorso poi 
troverai un bel po' di files, e tra questi c'e' il setup da lanciare.


Forse adesso ricordo.
Grazie e saluti Maurizio.
Sauro

Newsgroup: it.comp.lang.visual-basic
Titolo: Database e piccolo motore di ricerca

Hi all!
Non so se sono OT, ma il programma e' in vb quindi mi affido a voi... ;)
In una query relativa a un database access, dovrei definire: se una casella
(dove dovrebbe essere inserito il valore su cui viene filtrato una tabella)
e' lasciata vuota la query dovrebbe prendere in considerazione tutti i
valori della tabella.
Il tutto dovrebbe essere iterato in modo tale da poter effettuare ricerche
tipo "motore di ricerca"...
Qualche idea?!
Thanks in advance...
Ciao, Alfonso.

 wrote in message
7v6agr$ms7$1...@nslave1.tin.it...

Con un'istruzione SQL che filtra i dati con una proposizione WHERE con
all'interno una bella LIKE!
 __     __
<o>  <o>
      []
  \____/   ......(Statti bene!)
Pasquale Minerva
mine...@libero.it

 > tipo "motore di ricerca"...

Newsgroup: it.comp.lang.visual-basic
Titolo: Apertura file MSG

Ho un problema...
Volevo sapere se esiste un modo generico di 'aprire' i file .EXT e dare a
Windows la possibilita' di scegliersi con cosa aprirlo.
Es. .txt con notepad, .msg con outlook, .xls con excell etc
Ciao

"DanKan"

Option Explicit
Private Declare Function ShellExecuteEx Lib "shell32.dll" _
(SEI As SHELLEXECUTEINFO) As Long
Const SEE_MASK_INVOKEIDLIST = &HC
Const SEE_MASK_NOCLOSEPROCESS = &H40
Const SEE_MASK_FLAG_NO_UI = &H400
Private Type SHELLEXECUTEINFO
cbSize As Long: fMask As Long: hwnd As Long
lpVerb As String: lpFile As String
lpParameters As String: lpDirectory As String
nShow As Long: hInstApp As Long: lpIDList As Long
lpClass As String: hkeyClass As Long: dwHotKey As Long
hIcon As Long: hProcess As Long
End Type
Private Sub Form_Load()
    Dim SEI As SHELLEXECUTEINFO
Dim r As Long: Dim lng As Long
    With SEI
   .cbSize = Len(SEI): .fMask = SEE_MASK_NOCLOSEPROCESS
.hwnd = Me.hwnd: .lpVerb = "open"
    .lpFile = "C:\WINDOWS\TEMP\test.txt"
.lpParameters = vbNullString: .lpDirectory = vbNullString
.nShow = 1: .hInstApp = 0: .lpIDList = 0
    End With
    ShellExecuteEx SEI
    Debug.Print SEI.hProcess
End Sub
http://www.allapi.net/cgi-bin/redirect.cgi?place=apiguide
scarica >> API-GUIDE
--
Fosco

OK!
Grazie.
L'avevo anche gia' usata ma, nel momento del bisogno, sono entrato nel
panico e non mi sono ricordato dove l'avevo usata...
Io ho usato una variante un po' meno laboriosa:
Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String,
ByVal nShowCmd As Long) As Long
Grazie
DanKan
-- 
DanKan
MSN: 
ame...@msn.com
"Fosco" <fa...@fake.invalid> ha scritto nel messaggio
news:4hhtc.346463$rM4.14...@news4.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: ot HELP drivers stampante

Mi scuso per il quesito che nulla centra con VB, ma non so a chi
rivolgermi....(e Voi siete sempre cosí carini.....)
sto cercando il driver per stampante "generica solo testo" per Windows 95
- il cd di windows 95 perso, nel sito microsoft non l'ho trovato (mi sembra
impossibile ma é cosi)
quindi non so dove recuperarlo....
Grazie mille per la risposta

 impossibile ma é cosi)
Prova su 
www.tucows.com
 o 
http://www.volftp.it
Ci sono tanti siti che mettono a disposizione driver fra i più disparati:
con un motore di ricerca dovresti risolvere il problema.
Ciao,
Carlo.

 ha scritto

e comunque forse e' meglio se fornisci il nome del driver. windows dovrebbe
specificarlo nei messaggi di errore. io francamente non me lo ricordo. se
riesci a tirarlo fuori, insieme a un indirizzo giusto di posta, dovrei
potertelo mandare.
ciao, a.
Newsgroup: it.comp.lang.visual-basic
Titolo: VB 6.0 SP5: come visualizzare il numero delle righe, etc ...

In VB 6.0 SP5 :
    1) visualizzare il numero delle righe ;
    2) inserire i commenti all'inizio di ogni riga appartente ad una
selezione
A tale proposito esistono dei plug-in?
Grazie
Mosca

ti consiglio mztools, che uso da 3 settimane e si integra perfettamente con
l'ide di vb....
ha veramente tante features, tra cui i numeri di linea e l'aggiunta di
codice usando modelli parametrici molto interessanti.....dagli
un'occhiata.....
basta che googli un po' e lo trovi di sicuro.....
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: Stampare printer.endDoc

Come si fa per far in modo che dopo il comando printer.endDoc la stampante
non espelli il foglio.
Ho provato a mettere l'alimentazione della stampante su modulo continuo ma
il problema non l'ho risolto.
Grazie.

 wrote in message 7g22t9$ijj$1...@nslave1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Concorrenza inaspettata

http://www.newtechusa.com/ppi/main.asp
ROTFL
Saluti,
Antonio Cangiano
-- 
Webmaster & Content Manager 
www.visualcsharp.it
Il portale italiano della programmazione C# e .NET
A breve: 
www.windowserver.it
Il portale italiano dei sistemisti Microsoft Windows

 
http://www.newtechusa.com/ppi/main.asp
Finalmente le origini !
Segnalare al WM il proprio primate.
giuseppeD ^______^

Newsgroup: it.comp.lang.visual-basic
Titolo: Registrazione Crystal (CC245IT.DLL)

Nell'installazione di un'applicazione il programma di setup
mi restituisce un errore di registrazione di cc245it.dll
Ho scoperto che questa dll viene utilizzata dall'ocx di crystal.
Ho provato a registrare manualmente l'ocx e la dll ma non si registrano!
Sapete come risolvere il problema?
Grazie
Saluti
Paolo Tagliaro

...

Si tratta di un problema ben conosciuto (ma non da tutti, pare :-)
Il problema e' che il Setup Wizard tenta di registrare la suddetta DLL come
server OLE, cosa che non e'...
La soluzione e': edita il file setup.lst (e' un file di testo) della tua
installazione, alla riga relativa alla DLL, elimina la dicitura
{OLESelfRegister} (non ricordo bene la stringa...
Fai attenzione a lasciare le virgole prima e dopo!
--
Roal Zanazzi
z...@iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con query

q = "SELECT Dal, Al, Nazione, PV, Sum(Clienti) AS Ospiti "
q = q & "From Istat GROUP BY Dal, Al, Nazione, PV "
q = q & "HAVING Nazione = 'Italia' And (Al = Date() Or Dal = date())"
La suddetta query mi restituisce 2 record identici quando invece in tabella
c'è un solo record con Nazione = Italia.
Cosa è che che non so?
-- 
Greg


Non so e non ci vedo: sono 2 i record e ne escono 2.
Chiedo venia :(
-- 
Greg
Newsgroup: it.comp.lang.visual-basic
Titolo: Aggiornamento dati con ADODC

ho scritto una form dove vi é una griglia collegata con ADODC1.
Visto che ADODC1 non gestisce le transazioni inserisco e modifico i dati
tramite un'altra
connessione inserita in una classe.
Il problema sorge quando voglio rinfrescare i dati della griglia in modo da
visualizzare i dati da me
inseriti.
Il rinfresco della griglia se lo gestisco tramite un bottone con
Private Sub Command1_Click()
   Adodc1.Recordset.Requery
   griglia1.Refresh
End Sub
funziona.
Ma se lo stesso codice lo inserisco in automatico nella procedura di
inserimento dei dati non funziona.
ho provato il metodo Adodc1.Recordset.resync senza risultati.
Ringrazio anticipatamente tutti e vi auguro buon anno.

 inserimento dei dati non funziona.
posteresti la procedura di inserimento???


Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto lista dinamica

salve, avrei bisogno di creare con vb6 una lista in cui ci siano una 
serie di prodotti(che vengono aggiunti man mano dall'utente) con le 
relative quantità disponibili.
con un altro form poi devo gestire le aggiunte ed i prelievi.
la lista deve essere di questo tipo:
prodotto    q.ta
A             3
B             2
C             5
prelevato:
    prodotto ___
    q.ta  ___
aggiunto:
    prodotto___
    q.ta ___
se ad esempio nella finestra prelevato metto come prodotto "C" e come 
q.ta  "1"
la tabella dovrebbe diventare:
prodotto    q.ta
A             3
B             2
C             4
mentre se in aggiunto metto come prodotto "k" e come q.ta  "7"
la tabella dovrebbe diventare:
prodotto    q.ta
A             3
B             2
C             4
k             7
ovviamente posso aggiungere quantità di un prodotto che c'è già nella 
lista, non deve essere perforza un nuovo prodotto
avete idea di come fare?
devo usare per forza vb6, poichè è una funzione che devo aggiungere ad 
un programma....
grazie, ciao

marcolino83 ha detto questo martedì :
-cut-
nessuno ha qualche idea?
grazie, saluti

marcolino83 ha scritto:

Mai sentito parlare di Database...?
Usa Vb6 per gestire i dati, ma ti serve una base in cui metterli, e
visto che parli anche di movimenti.......
Nel tuo caso usare un DB come Access(di cui sfrutti solo JET) ritengo
sia la cosa migliore, ma sinceramente la tua domanda mi terrorizza un
pò......
@Alex
Newsgroup: it.comp.lang.visual-basic
Titolo: Dll OLE in assembler?!?

Ciao a tutti, vorrei sapere se è possibile creare delle dll OLE in assembler
richiamabili da VB, inoltre vorrei delle dritte su degli editor per
assembler (possibilmente free ) che girino sotto sistemi a 32 bit
ovviamente.
Grazie in anticipo!!!
Massimo ^__^

 assembler (possibilmente free ) che girino sotto sistemi a 32 bit
Vai su 
www.google.com
 e fai una ricerca per Visual Assembler. Vedrai che
qualche cosa trovi.
Personalmente ho usato per un po' MultiEdit della AmericanCybernetics, che è
shareware ma puoi usarlo per 1 mese prima di comprarlo.
Per quanto riguarda invece routine e assemblatori, un buon punto di partenza
è questo:
http://www.pbq.com.au/home/hutch/masm.htm
Da qui ti scarichi l'ambiente di sviluppo e trovi dei link a librerie già
pronte ed un minitemplate per scrivere programmi ASM sotto Win32.
Se trovi qualche cosa interessante che riguarda l'assembler, mi fai un
favore se mi mandi via mail i link.
Ciao
*Roby*

Newsgroup: it.comp.lang.visual-basic
Titolo: Installazione VB6

Causa che l'HD č zeppissimo, č possibile installare VB6 su un disco
removibile tipo iomegazip da 100 mb?

 removibile tipo iomegazip da 100 mb?
Credo di si... perň devi impostare il disco Iomega come "disco non
rimovibile"
e impostarlo cosě ogni volta che vuoi usare VB.
Io ho provato ad installare su uno ZIP 250 la guida MSDN... e ha
funzionato...
Se perň hai la versione parallela... la lentezza sarŕ spaventosa... :-))))
--
Ciao!
==================================
Daniele Pinna
Email: 
dap...@lycosmail.com
Nell'indirizzo Email eliminare la parola OOPS
Sito Web: Il DoCFa in Pillole: 
http://dapinna.freeweb.org
ICQ UIN: 24567484
______________________________________
  La fantascienza come Star Trek non e' solo un buon divertimento, ma
assolve anche uno scopo serio, che e' quello di
espandere l'immaginazione umana.
  Limitare la nostra attenzione a questioni terrestri equivarrebbe a fissare
dei confini allo spirito umano.
Stephen Hawking
Newsgroup: it.comp.lang.visual-basic
Titolo: Come ottenere elenco delle finestre attive in windows? (.net 2005)

Vorrei sapere se esiste un insieme di oggetti nel framework che rappresenta 
l'elenco delle finestre attive in Windows.
Io vorrei poter far vedere la lista e far scegliere quale finestra attivare 
per un sendkeys.
Grazie
-- 
Franco Belgiorno - Logic 

 attivare per un sendkeys.
Dovresti usare la enum windows.
Bye,
-- 
Carmine ( 
pikachu...@gmail.com
 (Togli la scritta NOSPAM) )
Webmaster di The Total Site 4 : 
http://www.thetotalsite.it
My Blog: 
http://blog.thetotalsite.it
MariokartDS Codice Amico: 532639027909 - CarmineC in MarioKartDS
Se un circuito funziona al primo tentativo è perchè il problema è molto
più nascosto e subdolo di quanto tu possa pensare...
E apparirà nel momento in cui farà il massimo danno 

Prova questo:
'in a form
Private Sub Form_Load()
    Me.AutoRedraw = True
    EnumDesktops GetProcessWindowStation, AddressOf EnumDesktopProc, 0
End Sub
'in a module
Declare Function EnumDesktops Lib "user32" Alias "EnumDesktopsA" (ByVal
hwinsta As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As
Long
Declare Function GetProcessWindowStation Lib "user32" () As Long
Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As
Any, pSrc As Any, ByVal ByteLen As Long)
Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal
lpString As Long) As Long
Function EnumDesktopProc(ByVal lpszDesktop As Long, ByVal lParam As
Long) As Boolean
    Dim Buffer As String
    Buffer = Space(lstrlen(lpszDesktop))
    CopyMemory Buffer, lpszDesktop, Len(Buffer)
    Form1.Print Buffer
    EnumDesktopProc = True
End Function
Ciao
@Alex

Come non detto, non avevo visto il .NET.....
@Alex

 ha scritto nel 
messaggio news:e5d34e$job$1...@area.cu.mi.it...


 ha scritto nel messaggio 
news:1148887843.5...@j55g2000cwa.googlegroups.com...


Newsgroup: it.comp.lang.visual-basic
Titolo: trovare i nomi delle tabelle di un database access

Vorrei trovare i nomi di tutte le tabelle di un database access all'avvio
del programma,
cosě da poter effettuare la scelta di quella alla quale connettermi, E
possibile fare ciň?
Grazie
Carlo


se utilizzi DAO:
Dim tblTable As DAO.TableDef
For Each tblTable In MioDB.TableDefs
    Debug.Print tblTable.Name
Next
Faber


wrote:

Dim Cnn as New ADODB.Connection
Dim szConnectionString as String
Dim Rs as New ADODB.Recordset
Dim szTableArray() as String
Dim byI as Byte
szConnectionString = "............"
Cnn.Open szConnectionString
set Rs = Cnn.OpenSchema(adSchemaTables)
With Rs
	Do
		if .EOF then exit do
		Redim Preserve szTablesArray(byI)
		szTablesArray(byI)  = !TABLE_NAME
		byI = byI + 1
		.Movenext
	Loop
	.Close
end With
in questo modo riempi l'array con i nomi delle tabelle
Newsgroup: it.comp.lang.visual-basic
Titolo: Signore e signori...

Avrei bisogno di una mano: il mio programma deve fare una certa istruzione
se il computer su cui sta girando è collegato ad Internet, altrimenti no:
come posso far vedere al mio programma se è presente una connessione ad
Internet o no?
Grazie raga, mucca.
Enjoy yourself, but don't fuck too much!!

Internet o no?
Innanzitutto dai una letta la manifesto che trovi sul Sito Comune di questo newsgroup (url nella
firma): ma ti pare che "Signori e signore" sia un subect chiaro e che riasume il tuo problema?
Poi, dai un'occhiata sul mio sito e troverai quello che cerchi...
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------


eh si...
ti sei svegliato male stamattina!!! :-))

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto - Ancora... ADO e VB6

Cercherò di essere breve,
Ho quasi completato un programma scritto in VB6 ed ho utilizzato gli oggetti
ADO per accedere ad un database in Access97. Se il programma dovesse
funzionare solo su un PC non ci sarebbe nessun problema ma, dato che mi
necessita utilizzarlo in rete ho un problema, il seguente:
per impostare il Data Source nelle proprietà degli oggetti ADO ho utilizzato
il metodo "Usa stringa di connessione"
per cui ora tutti gli oggetti ADO presenti nei vari form utilizzano la
stringa di connessione per connettersi al database, ora, è possibile
cambiare la stringa di connessione con del codice su tutti gli oggetti ADO
in modo tale che tale stringa possa essere passata ogni volta che il
programma parte ? visto che utilizzo un file INI per rilevare la path del
database
p.s.
ho provato con "ADODC1.CONNECTIONSTRING =  (nome della stringa che contiene
la stringa di connessione)" ma, sembra essere prioritaria la stringa
presente nelle proprietà dei controlli ADO.
Grazie a quanti mi aiuteranno.

 wrote in message
news:Fcan5.86942$dF5.1...@news.infostrada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [HELP] Bitmap di sfondo

Ho il seguente problema
sto scrivendo un app mdi e voglio mettere nel form padre un'immagine di
sfondo.
Ma se la metto al form direttamente, quando allargo la finestra l'immagine
non si ridimensiona.
C'e un modo per farla ridimensionare, visto che il controllo Image non lo
posso inserire perchè non contiene la proprietà "Alignment" ?!
Utilizzo VB6
--
Lucash

 ha scritto nel messaggio
news:7A%j9.5199$e31.1...@twister2.libero.it...

Se puoi, usa immagini vettoriali; quelle si ridimensionano automaticamente.

Cosa intendi per immagini vettoriali? Come posso realizzarle, crearle?
  Grazie
  --
  Lucash

 posso inserire ?!
Inserisci una picturebox senza bordo sullo sfondo, e dentro a questa metti
un controllo image che si ridimensioni nell'evento Resize della PictureBox.
Ciao
*Roby*

 ha scritto

semplice e pulito.
seno':
http://www.mvps.org/vbvision/Sample_Projects.htm
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con RichTextBox

Il problema è questo:
Devo caricare in una RichTextBox circa 200.000 righe di testo
provenienti da un file,solo che con la seguente formula i tempi di
caricamento diventano molto lunghi:
Open NomeFile$ For Input As #1
Do Until EOF(1)
Input #1, Variabile$
RichTextBox1.Text = RichTextBox1.Text + Variabile$
Loop
Qualcuno di voi ha una soluzione più efficente?
Grazie a tutti per le evantuali risposte.
die...@netsys.it
--
Posted from 
obi.netsys.it
 [194.244.100.2]
via Mailgate.ORG Server - 
http://www.mailgate.org

Salve,
guarda che il richtextbox ha una proprietà Filename. Passale il path\nome
del file che vuoi caricare e fa tutto da solo. Sarà senz'altro più veloce.
Saluti,
Domenico
"Diego" ha scritto nel messaggio <000101bece46$af0dc3a0$4c64f4c2@c400>...


Newsgroup: it.comp.lang.visual-basic
Titolo: OT definizione junior/senior

ho già chiesto su un altro NG ma non credo nessuno sapesse molto....
Disputa tra amici: Junior e Senior, negli annunci di ricerca di personale
soprattutto nell'informatica, cosa significano?
ivan

 soprattutto nell'informatica, cosa significano?
Sei Junior quando hai bisogno che ti affianchino un Senior. Sei Senior
quando sei in grado di seguire un Junior.
Ciao
*Roby*

 wrote in message
JJS37.61838$q77.5...@news2.tin.it...



è la contrapposizione Recluta / Nonno... negli uffici il Senior (nonno)
mette le puntine sulla sedia del Junior (recluta), gli frega il pranzo, e
gli fa i gavettoni con le graffette e i tempramatite... ::))))
MarioH


il cd. "pizzo di Don Vito Corleone Senior"... ::))))
MarioH