mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: salvare lo stato di un form

salve.
vorrei sapere se è possibile salvare lo stato di un form i cui valori 
dei vari controlli (label, menù, eccetera) sono modificati a runtime 
(attraverso un file di risorse);
ho necessità di poter ripristinare lo stato iniziale del form 
principale,annullando tutte le modifiche fatte.
qualcuno saprebbe dirmi come si fa?
grazie mille
--
avast! Antivirus: In partenza messaggio pulito.
Virus Database (VPS): 0530-1, 26/07/2005
Controllato il: 28/07/2005 15.18.37
avast! - copyright (c) 1988-2005 ALWIL Software.
http://www.avast.com

Webm@N ha scritto:

--  
Postato da Virgilio Newsgroup: scopri i nuovi gruppi 
Eros, foto e video a 
http://newsgroup.eros.virgilio.it

Quella di prima è andata male...
Un modo abbastanza semplice è quello di scrivere tutte le 
impostazioni che vuoi salvare su un file. 
Per esempio nella forma
NomeLabel=ValoreLabel
In questo modo quando ti serve non devi fare altro che rileggere 
il file e per ogni controllo assegnargli il valore.
Per esempio:
NomeLabel.caption=ValoreLabel
Ciao 
Kenshirov.
Webm@N ha scritto:



 NomeLabel.caption=ValoreLabel
mmmh... la fai facile :)
Non sarebbe piů semplice fare una sub "Init" da chiamare sia nella Load che 
nel caso di ripristino?
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Se volete passare 5 min. sorridendo.....


alem...@tin.it
Ale

...


Ecco il dialogo tra un cliente e il suddetto impiegato:
... leggetevelo è troppo bello

Fortissimo !
Grazie

...
[...]>
Mai una OT è stata così benvenuta! :-)
Ciao
--
-
MIX (VB5SP3)
post...@yahoo.com
110 links ai siti VB
http://www.tempolibero.com/user/mix/
 (consigliato)
http://space.tin.it/computer/gaais
  (alternativo)
-


O magari "Io speriamo che me la SCSI"!  :-)
--
Roal Zanazzi
z...@iol.it

...
giuro che e' vero:
ho fatto un cut & paste del tuo messaggio su word... volevo mettere un po' a
posto gli a capi, ho schiacciato invio e----
"Questo programma ha eseguito un'operazione non valida e sara' terminato".
l'ha fatto anche la seconda volta
non dico piu' nulla
Francesco Mapelli ( 
mape...@tin.it
 )
http://members.xoom.com/Francesco
Mousestats, il contachilometri per il mouse
http://members.xoom.com/mousestats
Sito comune programmatori Visual Basic
http://members.xoom.com/it_lang_vb

 >21.Windows VirusScan 1.0 - "Windows found: Remove it? (Y/N)"
[CLIP]
Grazie per l'OT :-))
-- 
Ciao
By -MES-   Maronese Ettore
http:\\
ilmes.freeweb.org
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://members.xoom.com/it_lang_vb

AHAHAHAHAHAHAHAHAHAHAH..... ROTFL ROTFL ROTFL ROTFL ROTFL ROTFL
Basta... basta... scoppio dal ridere, sto affogando la tastiera con le
lacrime... Oddio... era tanto che non ridevo cosě!!!
Questo post lo salvo! 
Ciao. :-)))
GB

"Questo programma ha eseguito un'operazione non valida e sara' terminato".
... non mi dire! Ti è apparso Schwarzenegger sullo schermo ed ha
ucciso il programma proprio sotto i tuoi occhi! =:-O
Ma l'indirizzo di Guglielmino Cancelli non te lo ha proprio chiesto???
;->>>
Bye. ^_____^
GB

> > fischi....E CI RIESCI!!!
  Il vero schiavo di Internet riesce ad eccitarsi ascoltando i fischi
del modem che sta ricevendo un'immagine di Pamela Anderson.
  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"

Non serve dire che l'impiegato e stato licenziato; tuttavia, lui/lei ha
Perchè non vi è mai capitato il cliente che inserisce il CD nel drive del
floppy da 5.1/4
Bruno


Perche', che male c'e'?
A me funzionava come un grammofono! :-)
--
Roal Zanazzi
z...@iol.it

A me funzionava come un grammofono! :-)
    bhe' io una volta tentavo di inserire un disco floppy in uno ZIP! ;))
Newsgroup: it.comp.lang.visual-basic
Titolo: Help per VB6 (mi spiego meglio)

Ciao a tutti, ho installato MSDN Library dopo Visual Studio 6 ma ho un
problemino:
tra tutti i file .chm installati se ne aprono solo alcuni e, guarda caso,
quelli di help di VB6 (e VC++ 6) se aperti danno il messaggio: "Azione
annullata - Impossibile collegarsi alla pagina Web richiesta....", ho
provato anche ad aggiornare il programmino per vedere i file .chm ma non ho
risolto.
Premetto che detti file che non vengono aperti hanno una lunghezza
considerevole (anche 5 MB) ed inoltre in fase di installazione tutto è
filato liscio; insomma i file CI SONO ma non li apre!
Qualcuno ha qualche idea in merito?
Grazie a tutti
Gabriele
-- 
Posted from 
smtp2.libero.it
 [193.70.192.52] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:002401c09840$1f5a14a0$77d71d97@pentiumiii500...


Ho già provato ogni impostazione possibile, anche abbassando a zero quelle
sulla sicurezza, ma niente! In ogni caso solo alcuni file non vanno mentre
altri sì.
Grazie comunque, se avete altre idee fatemelo sapere
Gabriele
-- 
Posted from 
smtp3.libero.it
 [193.70.192.53] 


Newsgroup: it.comp.lang.visual-basic
Titolo: (?) dovrebbe essere facile...

Salve! Ho questo problema:
ho associato ad un tipo file,un mio programma in vb.
se però mentre questo è in esecuzione, clicko su un un altro file di quel
tipo, mi viene caricato un'altra volta,non sfruttando quello già in
esecuzione. Come posso fare per far sì che ciò non si verifichi?
grazie mille

 wrote in message
8evl43$aki$1...@nslave1.tin.it...


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

c'è un modo per posizionare a propria discrezione mdichild
all'interno di un mdiform aperto in modalità maximized ?
A me le apre (giustamente) come le aprirebbe un programma win (una sotto
l'altra), io invece avrei bisogno di farle aprire
in punti ben precisi  sullo schermo.....
grazie

 in punti ben precisi  sullo schermo.....
Certo che puoi. Ti allego il codice di un mio programma di test che
prevede una MDIMainForm creata in modalita' Maximized, la quale carica
e visualizza altri form (child), posizionandoli all'interno della sua
client area. Ovviamente dovrai adattare il codice alle sue esigenze.
Le due Sub si riferiscono appunto al Load e al Resize della MDI...
Occhio ai DoEvents: puo' darsi che tu non abbia bisogno di tutti
quelli che ho messo io...
Private Sub MDIForm_Load()
    FormDatabase.Show
    FormSelected.Show
    FormDetails.Show
    DoEvents
    FormDatabase.SetFocus
    FormSelected.InitPatientList 0
    DoEvents
End Sub
Private Sub MDIForm_Resize()
FormDatabase.Top = 0
FormDatabase.Left = 0
FormDatabase.Height = 4 * Me.Height / 10
FormDatabase.Width = Me.Width / 4
DoEvents
FormSelected.Top = 0
FormSelected.Left = Me.Width / 4
FormSelected.Height = 4 * Me.Height / 10
FormSelected.Width = Me.Width * 3 / 4
DoEvents
FormDetails.Top = 4 * Me.Height / 10
FormDetails.Left = 0
FormDetails.Height = 6 * Me.Height / 10
FormDetails.Width = Me.Width
DoEvents
End Sub
Ciao!
--
Massimo Fauro
Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO! Creare query in ADO

Il mio DB è fatto da 3 tabelle:
1) Linea
    - ID
    - Nome
nome di una linea di prodotti
2) Tipologia
    - ID
    - Nome
nome di una tipologia di prodotti
3) Coppie
    - ID
    - IDTipologia
    - IDLinea
definisce per ogni linea quale tipologia è associata
Il problema è questo:
Nella form del mio progetto ho un DataCombo1 che mi visualizza il nome delle
linee disponibili dalla tabella Linea
Voglio poter visualizzare in un DataCombo2 il nome delle Tipologie associate
alla Linea selezionata nel Combo1.
Come posso fare tutto questo con ADO?
Spero di essere stato chiaro ad esporre il problema ma non ne sono sicuro al
100%!
Grazie a tutti!

 ha scritto nel messaggio
news:9sg72s$ejr$1...@fe1.cs.interbusiness.it...

Nella Combo1 puoi utilizzare la proprietà ItemData, così hai IDLinea e
NomeLinea
Nell'evento clicK della combo1 puoi costruirti il recordset utilizzando le
tabelle Tipologia e Coppie filtrando IDLinea del recordset=ItemData della
Combo1 e popolando la combo2 con le Tipologie filtrate.
giuseppeD

In che modo mi posso creare il recordset?
Tramite codice oppure inserendo un Adodc1 nella form?
e quali impostazioni devo settare?
Scusa ma sono abbastanza nuovo di VB6....
Grazie mille!
Newsgroup: it.comp.lang.visual-basic
Titolo: Passaggio ad XP

Cari amici, č da tempo che non frequento, ... a dire il vero č anche da
tempo che non "gioco" piů con VB.
Perň ho un problema che devo risolvere, e chiedo il vostro aiuto.
Scrissi un programma con VB 6  (Che utilizzava DB di access 97) tecniche
ADO, e DAO.
Tutto bene finche la cosa girava su Win 98.
Adesso il mio Cliente (Cliente, poi non direi visto che il PRG č gratis) č
passato ad XP.
Il programma una volta installato non gira +. mi da una serie di errori
rifewriti a dei CLSID.
Ho provato ad installare su Win 2000 NT Professional, e l'errore č
RUN TIME 3447 che l'inizializzazione di VBA Jet dll x 16 bit , e vba jet 32
dll x 32 bit. Non riuscita chiamata....
Provare a reinstallare l'applicazione.
In definitiva, penso che oltre VB 98, il pacchetto di installazione debba
preoccuparsi di installare qualcosa in piů !!!
Chi mi da un lume?
Grato di cuore
Cesare Rizzi

 Provare a reinstallare l'applicazione.
installa mdac_typ.exe (2.7 refresh) e il jet (adesso c'è la 4.0 sp6, attento
che c'è una versione diversa per ogni win, quasi)

 ha scritto

27/03/2002  00.31            4.057.520
jet40sp6_q320176_w2k_sp3_x86_it.exe
25/03/2002  22.36            4.210.944 jet40sp6_w2k_usa.exe
l'altro giorno dopo l'ultimo reinstall di vb, non trovavo piu' dao3.6.
prima di scoprire che sta nel mdac2.7, ho provato questi due.
in ogni caso mi e' venuto il messaggio:
"il jet installato e' piu' recente. questi servono con sp2."
(qui c'e' sp5).
mi sa che mdac basti.
in ms con le versioni ci stanno o giocando al lotto o scrivendo un
trattato di ars combinatoria.

 rifewriti a dei CLSID.
Segnati il numero di CLSID. Apri il regedit sul Pc dove sviluppi e cerca il
numero CLSID e ti ritorna la libreria a cui fa riferimento.
Comunque dovrebbe essere DAO360.dll non installata correttamente.

 ha scritto nel messaggio
news:at9h0b$11cv6e$1...@ID-173193.news.dfncis.de...


 Se avete altre idee, vi prego di darmi  una dritta.
XP, di suo, ha già la versione 2.7, semmai aggiornabile a 2.7 refresh.
Installare la 2.5 non dovrebbe quindi cambiare nulla. Dalla 2.6, Jet non
viene più distribuito con MDAC_TYP, vedi qui
(
http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q271908&
) e credo
quindi che debba essere installato esplicitamente (eventuali versioni già
presenti possono essere vecchiotte e a solo "uso interno"). Vedi qui
http://support.microsoft.com/default.aspx?scid=kb;en-us;Q282010
 e nota la
distinzione fra sistemi operativi

 ha scritto nel messaggio
news:atc4lv$129vpe$1...@ID-174464.news.dfncis.de...


 ha scritto nel messaggio
news:X4fK9.9041$TC5.3...@twister1.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Ordinare una msFlexGrig.

Ciao a tutti ,
il mio problema è riuscire ad ordinare in  un griglia msflexGrid dei valori 
NUMERICI!
Io ho inserito il codice per ordinare in modo crescente o decrescente la mia 
griglia quando clicco l'intestazione di una colonna.
Nessun problema tranne per i campi NUMERICI
La griglia la popolo creando un adodb.recordest e poi passo il recordset 
alla grglia:
msFlexGrid.DataSource = RS
Io mi ricordo che una volta ero riuscito anche ad ordinare i campi numerici 
che nella grigia sono visti come testo!
Nella query avevo messo una sintassi del genere:
SELECT "0000000" & NOME_CAMPO from TABELLA
ma cosi non me lo ordina lo stesso!
Grazie a tutti in Anticipo!
Alberto

Alberto Simonazzi ha scritto:

Per esempio:
     MSFlexGrid1.Col = 1
     MSFlexGrid1.Row = 1
     MSFlexGrid1.Text = 12.89
     MSFlexGrid1.CellAlignment = flexAlignRightCenter

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] CD-RIP... Come?

Come da topic... Qualcuno mi sa suggerire come posso estrarre delle tracce
(e magari poi codificarle in MP3) da un cd audio attraverso il VB?
Grazie 1000
Antonio Mirarchi

 VB?
EAC + Lame: perchè rifare ciò che esiste già e funziona bene?

> EAC + Lame: perchè rifare ciò che esiste già e funziona bene?
Perchè voglio integrare questa funzione in un programma molto più vasto!
Antonio Mirarchi

Newsgroup: it.comp.lang.visual-basic
Titolo: sstab e frame

amici,
Premessa: uso VB5 sp4 sotto win98 second edition.
ho una form con quattro tab di sstab
nella prima tab ho 2 frames affiancati in cui sono inseriti un paio di
txtbox e un combobox.
se vado nelle tab 2 e 3 e torno sulla prima va tutto bene, ma se vado nella
ultima tab e torno indietro mi viene visualizzata solo il primo frame e il
secondo sparisce(e con lui i controlli interni).
ho controllato che non fosse nascosto dietro il form ma nulla: sembra
sparito.
ho provato a cliccare nella zona grigia ma niente.
grazie a chi mi vorra' dare una dritta
filiberto
===============================================
I computer sanno contare solo da 0 ad 1. Il resto e' illusione.
Per. Ind. Filiberto Pivirotto
U.F. PISLL
ASL 9 di Grosseto

ho una form con quattro tab di sstab
perche' non usare il tabstrip dei common controls: e' un po' piu' manuale
ma non da mai problemi :)
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: Andare a capo!?!

Salve a tutti,
Ho una text box multiline vorrei sapere come devo fare per andare a capo da
codice; cioè ci devo mettere "pippo" e a capo "pluto".
Grazie

 ha scritto nel messaggio
news:9o4dki$d9j$1...@fe1.cs.interbusiness.it...


 ha scritto nel messaggio
news:9o4dki$d9j$1...@fe1.cs.interbusiness.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: importare dati

ma i programmetti che prendono i dati da un file TXT ( ad es. dati contabili 
o elenchi clienti \fornitori ) e li importano dentro a un database secondo 
il suo specifico tracciato ( ad es. li importano dentro a un file MDB ) si 
possono fare con VB 6 ?
E' molto difficile e complesso il listato di un tale programma , cioè lo può 
fare anche un pricipiante ?( sapendo il tracciato di partenza e di 
destinazione dei dati oggetto di importazione ) .
Sarebbe un'alternativa al data entry manuale .
-- 
Grazie e Cordiali Saluti


Molti DBMS tra cui Access e SQLServer offrono già funzionalità di import dati da
file TXT e sono parecchio user-friendly.
Ti consiglio di provarle prima, per valutare attentamente se è il caso di
riscriverle da capo in VB6, specie se, come affermi, sei un novizio.
Bye
Raf
-----------------------------------------------------
Funk: cooler than the other side of the pillow.

 destinazione dei dati oggetto di importazione ) .
Segui il consiglio di Rafunk, altrimenti il procedimento (dando per
scontato che conosci un po' Ado e SQL)
1) Type della tua struttura del file
2) Lettura file e inserimento (più eventuali controlli del tipo controllare
se un rigo esiste, se un campo ha valore ammesso ecc.)
'*****************************
  ff = FreeFile
  Open PathTUOFile For Random As #ff Len = Len(TUATYPE)
  LFile = LOF(ff) / Len(TUATYPE)
  For i = 1 To LFile
    Get ff, i, TUATYPE
    With TUATYPE
          ss = "INSERT INTO TUATABELLA(ELENCOCAMPI) VALUES " & _
              "('" & .Campo1 & "','" & .Campo2 & "','"& .CampoN  & _
              "');"
          Adocn.Execute ss
    End With
  Next i
  Adocn.Execute ss
'*****************************
-- 
DBMS Firebird
VB6 + Ado
Newsgroup: it.comp.lang.visual-basic
Titolo: Excel da VB

Questa macro eseguita in un modulo excel va
Sub Allinea()
     Range(cella1).selection.HorizontalAlignment = xlLeft
ens sub
La stessa macro adattata ed eseguita da codice vb, nisba (metodo non 
supportato)
Sub Allinea
    xlApp.Range(cella1).selection.HorizontalAlignment = xlLeft
Ennd sub
Sbaglio io a scrivere, o forse davvero non tutto è supportato da dentro vb?
Lo stesso problema l'ottengo anche ad applicare la dimensione del bordo ad 
una cella, mentre riesco a fare tutte le altre operazioni di formattazione.
-- 
Greg 


Private Sub Command1_Click()
    Dim objExcel As Object
    Dim objWorkbook As Object
    Dim objWorksheet As Object
    Const xlLeft As Variant = 2
    Const xlCenter As Variant = 3
    Const xlRight As Variant = 4
    Set objExcel = CreateObject("Excel.Application")
    Set objWorkbook = objExcel.Workbooks.Open("C:\mioFile.xls")
    Set objWorksheet = objWorkbook.WorkSheets("Foglio1")
    objExcel.Visible = True
    With objWorksheet
        .Cells(1, 1).Value = "Pippo"
        .Cells(1, 1).HorizontalAlignment = xlLeft
    End With
    objWorkbook.Save
    objExcel.Quit
    Set objWorksheet = Nothing
    Set objWorkbook = Nothing
    Set objExcel = Nothing
End Sub
-- 
---------------------------
Mauro Gamberini
http://www.riolab.org/

Newsgroup: it.comp.lang.visual-basic
Titolo: Inserire Oggetti senza usare la ToolBox, è possibile?

Ciao A tutti.
Mi trovo nella necessità di dover programmare in Visual Basic 6.0, edizione
Enterprise, senza poter utilizzare la finestra degli strumenti, a meno di
non voler compiere ardue manovre veramente molto dispendiose in termini di
tempo.
Vi chiedo se è possibile, naturalmente conoscendo gli strumenti che desidero
inserire, farlo direttamente digitandone il codice senza doverli
necessariamente trascinare dalla casella degli strumenti.
Sarò davvero grato a chi mi scrive due righe, mille grazie in anticipo.
Gabriele.

necessariamente trascinare dalla casella degli strumenti.
Apri il file .frm col notepad ed inserisci i controlli da li'.
Per sapere i clsid ed altre amenita', apri degli altri frm gia' fatti e cerca i
blocchi Begin ... End.
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: HO LA VERSIONE DI VISUAL C++ 5.0 E NON SO USARLA COME FARE?

RAGAZZI VORREI UN CONSIGLIO , COME DEVO INIZIARE AD IMPARARE A PROGRAMMARE
IN C++?
Premetto che non sono un novellino e programmo gia' in Cobol, Pascal, Sql, e
gestisto reti e sono iscritto a Matematica con indirizzo numerico
applicativo!!!
Consigliatemi testi per iniziare ed andare avanti
SOS!!! GRAZIE

 wrote in message 7tg37v$g71$1...@nslave1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: icona sul desktop

Ciao a tutti,
scusate, ho creato un programma in VB6 e vorrei sapere come fare per
abbinarci un'icona in stile office (cioè non un collegamento ma una vera e
propria icona eseguibile), e soprattutto se e' possibile utilizzando il
programma di creazione delle installazioni fornito con VB6 dirgli di creare
una directory con relative sottodirectory e inserirci dei file a mio
piacimento (tipo file di configurazione, immagini o altro).
Ciao e grazie

 Ciao e grazie
Beh, un'icona č un collegamento a meno che non metti il programma vero e proprio
sul desktop. E un collegamento č eseguibile!
Spiegati meglio!
Ciao!
Esteban
Hosted by 
www.seber.it

Beh..per usare dei tuoi file in determinate cartelle devi smanettare con La creazione del pacchetto di installazione;
devi innanzitutto aggiungere i file che ti servono (quindi devi crearli prima, tipo dati.dat, log.txt ecc..inzzomma ciò che
ti serve).Una volta che li aggiungi al progretto di installazione, puoi settare le cartelle in cui verranno inseriti; di
solito c'è scritto $(AppPath) ma tu (penso) puoi anche dirgli:
" $(AppPath)\myfolder " ad esempio! Prova! Spero che funga...se non hai capito cosa intendo..perdonami..forse non mi sono
spiegato bene!
CIAO SIMO

_________________________
www.sasim.cjb.net
ESISTONO BANNER PUBBLICITARI DI QUALSIASI GENERE (NON OSCENO) in questo sito chi non li desiderasse è pregato di non entrare!
E' un sito di carattere personale, non tecnico!
Inoltre viene creato un Cookie Doubleclick che verrà immesso sul vostro HD. (facilmente rimovobile con programmi tipo
AD-AWARE)

 ha scritto nel messaggio
news:_NML6.1063$Kh.1...@news.edisontel.com...


 ha scritto

Newsgroup: it.comp.lang.visual-basic
Titolo: Domandina....

Dove posso trovare una versione free di Visual Basic per cominciare a
programmare?
Grazie e ciao

 programmare?
Scaricati il .NET Framework SDK, contiene
il compilatore per sviluppare in 
VB.NET
.
http://msdn.microsoft.com/library/default.asp?url=/downloads/list/netdevfram
ework.asp
Scaricati anche Sharp Develop che è gratuito.
http://www.icsharpcode.net/OpenSource/SD/Download/Default.aspx
Altre cosucce interessanti le trovi nella sezione download del mio sito in
calce.
Se intendevi Visual Studio.NET o il classico Visual Basic 6 gratis, l'unica
cosa è ordinare una versione trial
del Visual Studio .NET sul sito Microsoft.
HTH,
Antonio Cangiano
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Webmaster 
www.visualcsharp.it
"Great spirits have always encountered violent opposition
from mediocre minds." A.Einstein
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Newsgroup: it.comp.lang.visual-basic
Titolo: Trasferimento file

Cerco qualcuno che mi possa dare delle indicazioni per poter trasferire dei
file da due PC tramite modem.
questo mi serve senza usare una connessione internet.
Grazie.

questo mi serve senza usare una connessione internet.
Puoi usare l' accesso remoto, configurando uno dei due pc come server.
-- 
ciao, hal

Più in dettaglio le VPN (Virtual Private Network)
Ciao Andrea
Newsgroup: it.comp.lang.visual-basic
Titolo: Conversione Delphi -> VB

Buongiorno,
ho finalmente trovato quello che cercavo: il cluster size di volumi 
FAT32. Mentre pare che la GetDiskFreeSpace sia affidabile solo per FAT16 
(e quindi non dipende direttamente dalla versione del sistema ma dal tipo 
di filesystem usato...), non esiste una chiamata specifica per ottenere 
tale info su FAT32.
Ma le mie possenti ricerche hanno individuato un bel pezzo di codice. 
Esso però è in meraviglioso Delphi che mi sono sempre rirpomesso di 
imparare ma che per il momento mi sfugge, soprattutto per la parte legata 
alle chiamate di basso livello. Infatti fa uso dell'INT 21.
Ringrazio chiunque vorrà tradurre questo codice per il bene della 
comunità.
http://www.efg2.com/Lab/Library/UseNet/1999/0612a.txt
Grazie mille
	Paolo
ps: fra qualche settimana vi ammorberò su come si ottiene il cluster size 
di volumi NTFS ma per adesso proverò a cercare qualche info io stesso...

di volumi NTFS ma per adesso proverò a cercare qualche info io stesso...
Guarda un po' se ti va il codice che ho postato nel thread precedente.
L' ho derivato dal C++.
Quello di delphi non l' ho neanche guardato perche' penso che non 
lo imparero' mai :-(
ciao, hal

 
http://www.efg2.com/Lab/Library/UseNet/1999/0612a.txt
veramente interessante il codice !! :-)))
Vuoi una cosa rapida ed indolore ? Nessuna traduzione !! Ti piace ?
Sicuramente no, ma ti propongo un'alternativa.
Perchè non compili (all'interno di una DLL) il codice che hai trovato e ti
esporti una funzione che poi richiami dal tuo programma in VB ?
In poche parole, la DLL sarà fatta in Delphi, ma rimane comunque compatibile
con VB.
Il codice che hai linkato, usa l'api "DeviceIOControl".
Il secondo parametro ( DWORD dwIoControlCode,            // control code of
operation to perform ) ammette una serie di valori che se non erro non sono
stati ancora tutti tradotti in Delphi. In C++ ci sono, ma in Delphi non
tutti e quindi per usufruirne, bisogna tradurli. In VB chissà come funziona
la cosa.
Se sono dichiarati, non so come lo siano. Se non lo fossero, bisogna
dichiararli, ma meglio lasciar stare.
Poi se qualcuno esperto di VB che conosce anche Delphi e sa come fare,
meglio così.
Io ti posso solo suggerire la strada della DLL.
Se ti serve aiuto per la realizzazione della DLL, chiedi pure.
Infine si tratta di incollare il codice che hai trovato all'interno di un
nuovo progetto DLL, poi esportare la funzione ( renderla visibile
all'esterno della DLL ) in modo corretto per VB.
Infine si compila, poi da VB richiami la funzione della DLL compilata che
per semplicità potrai mettere nella stessa directory del tuo programma.
Ti saluto. Ciao e buona domenica.
Antonio Tarolla

 ha scritto nel messaggio
news:MPG.16151be1b...@news.tiscalinet.it...

Ciao
Non ho visto il link che citi, ma Delphi&windows mettono già a disposizione
delle funzioni per la FAT a 32 bit...
Vedi GetDiskFreeSpaceEx dell'SDK di Windows
Vedi DiskFree:int64 di Delphi
Ciao
Matteo
Newsgroup: it.comp.lang.visual-basic
Titolo: [.NET] Logica OOP.

Ciao a tutti,
mi sfugge in alcuni passaggi la logica OOP.
In un codice come questo:
http://pastebin.com/j3eVAR7k
 
 
è corretto che esegua l'analisi della stringa, senza "demandare ad altro oggetto" il compito ed eseguendo unicamente l'"Add" ?
Grazie.

 oggetto" il compito ed eseguendo unicamente l'"Add" ?
 
a che cosa serve quel codice visto che con "element" non ci fai nulla?
 
.m
 
-- 
blog @ //
milestone.topics.it
 
 
 

Scusa, era una vecchia prova:
http://pastebin.com/CGCp3zgg
 

 
http://pastebin.com/CGCp3zgg
 
 
che cosa è "Sezione"?


> che cosa è "Sezione"?
 
In questa window ho una ListBox dove carico alternativamente, articoli di categorie diverse. Quando carico i dati di una di queste, scrivo nella variabile stringa "Sezione", quale categoria è attualmente presentata. Mi serve per alcuni controlli, fra cui questo.

Ciao Fabrizio,
 
You wrote on 04/04/2013 :

concettualmente hai descritto molto bene come dovrebbe funzionare la 
tua logica OO, hai diversi tipi di sezione e ognuna è in grado, lei, di 
creare un nuovo elemento.


Grazie del commento Mauro.

 Grazie del commento Mauro.
 
attenzione che non vuo dire che il tuo pezzo di codice mi piaccia :-) 
anzi direi proprio che fa "schifio" :-)


Me lo aspettavo! :-D
Se hai suggerimenti son tutt'occhi!

 Se hai suggerimenti son tutt'occhi!
 
te li ho dati :-)
 
hai diversi *tipi* di sezione e ognuna è in grado, lei, di *creare* un 
nuovo elemento.
 
avrebbe senso delegare alla Sezione la creazione di un nuovo elemento?


Non ti seguo Mauro.
Il "tipo" di dati da inserire nella Collection che popola la ListBox, è identificato dalla variabile "sezione". Non sapendo come riconoscere il tipo contenuto, ho adottato questo artificio.

 Il "tipo" di dati da inserire nella Collection che popola la ListBox, è identificato dalla variabile "sezione". Non sapendo come riconoscere il tipo contenuto, ho adottato questo artificio.
 
Credo che stia cercando di dire questo: al momento la tua 'Sezione' è una semplice stringa, e rappresenta la selezione in un ListBox.... ma l'origine dati di questa lista cos'è?
Non potrebbe essere un insieme di oggetti X che rappresentano la 'Sezione'? e a questo punto non potrebbe essere direttamente un metodo di questo oggettoa creare l'istanza corretta di Articolo/Prodotto ecc.. sulla base dei suoi attributi?

Ciao Luca D,
ora credo di aver capito.
Grazie per la spiegazione ;-)

http://pastebin.com/VregCqYT
 
Ce l'avevo già fatto...
Grazie della pazienza ragazzi :-)
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Satira su Punto Informatico ?

scusate ragazzi ma leggendo le brevi di p.i. stasera mi e' venuto da ridere
su questa :
===================================================
COLOSSALE CAMPAGNA CONTRO IL FURTO P2P
La stanno per lanciare discografici e artisti. Una iniziativa senza
precedenti per tentare di sensibilizzare il pubblico, per spiegare che
condividere file a volte significa rubare. Parla Pavarotti
===================================================
e sottolineerei :
per spiegare che condividere file a volte significa rubare. Parla Pavarotti
LOL ^_^

 per spiegare che condividere file a volte significa rubare. Parla
Pavarotti
CUT
Beh ognuno la pensa come vuole...in fondo rubano il suo lavoro!
E' che se uno scambia... che fa Pavarotti???.....un tempo poteva
schiacciarli...ora è pure dimagrito!
"maledizione ....maledizioooone!"
(forza del destino)
Ciauz!
:o)





condividere file a volte significa rubare hummm sarebbe come dire che se
presto la mia macchina e come se IO avessi rubato la mia macchina??? Molto
profondo...molto profondo. Tranquillo Pavarotti noi le tasse le paghiamo :-)

 (forza del destino)
eh eh wodka sei un po fuori strada mentre Sergio e Max hanno colto ^_^
Il punto saliente e' : "a volte significa rubare. Parla Pavarotti"

 profondo...molto profondo. Tranquillo Pavarotti noi le tasse le
paghiamo :-)
lui doveva star zitto. ma che --> stanti le regole <--- il p2p non sia
il massimo della legalita'...
e' sbagliato il paragone. a parte che in genere su libri e cd c'e'
anche 'vietato il prestito', clonare non e' prestare.
poi su queste regole credo che la pensiamo tutti +- uguale. ma
confondere i ragionamenti e' pericoloso.
j.

Newsgroup: it.comp.lang.visual-basic
Titolo: semi-automated form filling

i hope this is the right ng for this.
i have to fill in a lot of form based pages for work.
the thing goes like this (almost):
1) i enter the first page and use a pull-down menu, selecting my account,
clicking on a radio button, filling a field with a password, and finally
clicking on a button.
2) on the second page i click on one of three links. let's say i click on
the first.
3) on the third, i select new options on various pull-downs, and click on a
button.
4) on the fourth, i enter some fields, and (optionally) click some radio
buttons for entering the fifth page where a report is shown.
having all of this to do many hundreds of times, i would like to have some
program/utility that does the following:
"read a textual description of the various actions to be performed on the
pages above from an ascii file that i perviously jotted down on my text
editor when off-line, then let the utility do all of the clicking and
menuing descripted in batch mode, while i drink my coffee."
the obvious advantage to do so is that the fields in the 4th page usually
contains one out of a dozens of standard texts, even if i have to do the
procedure thousands of different times.
i run win98.
thanks.

"max101000010.01000101" <pxa...@SPAMinwind.it> ha scritto nel messaggio
news:...

Newsgroup: it.comp.lang.visual-basic
Titolo: Oracle Long RAW

Come posso ottenere il valore di un campo LONG RAW di Oracle con una
connessione ADO ?
Al momento mi ritorna una serie di caratteri indecifrabili...
Grazie x l'attenzione
Fabio GRANDE

 wrote in message
8tsnqg$417t$1...@ID-56381.news.dfncis.de...


 > >
Penso che per fare questo lavoro servano i metodi AppendChunk (scrive) e
GetChunk (legge) del recordset.
Ti segnalo il seguente articolo di msdn che tratta della memorizzazione di
BLOB
(Binary Large OBjects) in Oracle, anche se come principio va bene anche per
gli altri database:
Q185958 HOWTO: Use ADO GetChunk/AppendChunk with Oracle for BLOB Data
Ciao
Aldo

Newsgroup: it.comp.lang.visual-basic
Titolo: rinominare e cancellare

Salve a tutti
ho la necessità di cancellare un file e di rinominarne un altro ...
quali istruzioni VB6 devo utilizzare?
avete qualche dritta da darmi?
grazie in anticipo.
mickey 

 ha scritto

kill percorso+nomefile
(elimina definitivamente, non nel cestino)
name percorso1+file1 as percorso2+file2
ciao, j.

Newsgroup: it.comp.lang.visual-basic
Titolo: Creare un icona sul desktop tipo ...

... Risorse del computer,
il Cestino,
Internet Explorer,
Microsoft Outlook, ecc
che non sono propriamente dei link, ma oggetti particolari.
Vorrei crearne una mia che non possa essere cancellata e che facentoci clic
col tasto dx proponesse le proprietą di un certo programma.
grazie

Netslacker ha scritto:

Sono oggetti della shell, che non e' proprio il massimo programmare con vb.
Peraltro, se la procedura di disintallazione del programma non provvede
a ripulire il registro (es. HomeSite di Allaire), tali oggetti persistono anche
quando il programma che li ha creati non c'e' piu', a meno di non smacchinare
col registro (ma ce lo vedi un utente normale a farlo?)
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: REQ: Icone animate....

Ciao, esiste un modo per visualizzare delle icone animate su una form (non
un' immagine gif ma una icona con estensione .ani) ?
Grazie anticipatamente,
Pasquale.

 un' immagine gif ma una icona con estensione .ani) ?
    'Dichiarazione nel form
    Private Declare Function LoadCursorFromFile Lib "user32" _
        Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
    Private Declare Function SetClassLong Lib "user32" Alias _
        "SetClassLongA" (ByVal hwnd As Long, _
        ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Const GCL_HCURSOR = (-12)
    Private OldCursor As Long
    'Nel Form_Load
    Dim hCursor As Long
    hCursor = LoadCursorFromFile(App.Path & "\MyPointer.ani")
    OldCursor = SetClassLong(Me.hwnd, GCL_HCURSOR, hCursor)
all'uscita del programma bisogna ripristinare il vecchio puntatore
(nel Form_Unload)
    SetClassLong(Me.hWnd, GCL_HCURSOR, OldCursor)
Ciao
Faber

usa ExtractIconEx.....
Questa domanda l'hanno fatta ieri.....
------------
Ciao
Sabba

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

Qualcuno sa dirmi se c'è un modo per sapere quali sono le proprietà e i
metodi supportati da un oggetto creato con la funzione createobject?
Ovviamente non si tratta di creare un riferimento ad applicazioni tipo word
o excel, sarebbe troppo facile.
Io sto parlando di applicazioni che non sono state create con vb (nel mio
caso si tratta di SAS): finora sono riuscito a usare la proprietà visible e
il metodo quit, ma immagino che ce ne siano altri.
Grazie.

...

Questo oggetto è una DLL COM?

Newsgroup: it.comp.lang.visual-basic
Titolo: Access e query parametrate

Ciao a tutti.
Premetto che sono alle prime armi con VB.
Qualcuno puņ aiutarmi a risolvere il seguente problema in Access 7.0?
Ho una tabella che contiene delle date e in base ad una variabile devo
estrarre determinate date. Come fare? Posso passare una variabile ad una
query?
Grazie





...



La query SQL e' una stringa di caratteri, quindi basta che "concateni" la
query con la tua variabile data.
Ricorda che in SQL le date devono essere passate in questo formato:
#MM/DD/YYYY#
quindi, esempio:
Data1.Recordsource = "SELECT * FROM tabella WHERE data = #" & Format(Now,
"mm/dd/yyyy") & "#;"
--
Roal Zanazzi
z...@iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Still Can't Open Excel :(

Please Help !  Please try my code.
The line 'Set tryTab = tryDb.OpenRecordset("86xx")' has error.
---------------------------------------
Private Sub Command1_Click()
    Dim tryDb As Database
    Dim tryTab As Recordset
    Dim tmp As String
    Set tryDb = OpenDatabase("f:\My Documents\mic\excel\86xx.xls",
dbDriverPrompt, True, "Excel 5.0")
    Set tryTab = tryDb.OpenRecordset("86xx")
    temp1 = tryTab.Fields("id_no")
    tryTab.Close
    tryDb.Close
End Sub

 End Sub
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------
Newsgroup: it.comp.lang.visual-basic
Titolo: [BO] LAVORO OFFRESI

[BO] informatica - ricerca personale
Janus & Partners, azienda operante nel campo dei servizi INTERNET e
MULTIMEDIA, cerca collaboratori-collaboratrici con i seguenti
requisiti:
area web:
Tipologia 1
conoscenza approfondita:
del linguaggio HTML
strumenti di sviluppo web (dreamweaver - home site - frontpage -
ecc..)
(costituirà elemento di preferenza il know-how sull'ottimizzazione
della grafica per il web)
Tipologia 2
conoscenza approfondita:
del linguaggio HTML dinamico (XML - javascript - vbscript - css -
ecc..)
strumenti di sviluppo web (dreamweaver - home site - frontpage -
ecc..)
Tipologia 3
conoscenza approfondita:
della programmazione ASP
del linguaggio SQL
Tipologia 4
conoscenza approfondita:
programmazione Visual Basic 5 e 6 con esperienze DAO / ADO
componenti Activex e DLL, windows API 32
Tipologia 5
conoscenza approfondita:
NetCommerce - DB2 - application server IBM
E' inoltre gradita (per le tipologie 1 - 2 - 3) la conoscenza degli
applicativi Macromedia Flash 4 e Director 7 e di Adobe Photoshop 5.
Il collaboratore - la collaboratrice - deve risiedere a Bologna o
nella sua provincia.
E' indispensabile una consolidata esperienza documentabile nell'ambito
della programmazione per Internet.
Chi e' interessato-interessata  invii il proprio curriculum
all'indirizzo:
in...@janus.it
 
inserendo come 'oggetto' del messaggio il riferimento 'RIF.42000'.
P.S. Rimuovere NOSPAM dall'indirizzo in caso di replay
Cordialmente,
Staff Janus
TEL. 051 6167076
TEL. 0338 8890100 (MAURIZIO)

 ....


Newsgroup: it.comp.lang.visual-basic
Titolo: compressione in zip

Ciao,
qualcuno sa dirmi come si puo' creare un file zip da VB?, Esistono degli OCX
freeware?
Luca

Io conosco delle DLL (ma sicoramete esistono anche dei controlli), che si
chiamano zip32.dll e unzip32.dll, e ti permettono di fare proprio quello che
cerchi...non ricordo da dove li ho scaricati, comunque se ti servono io sono
qua (via posta č meglio) credo che siano freeware quindi non ci dovrebbero
essere problemi di utilizzo.
----------
Ciao
Sabba


Ciao, io sarei molto interessato a queste DLL, se me le invii mi faresti
risparmiare molto tempo. Se ti č possibile, anche due righe su come si
utilizzano. Grazie,
Cristiano.

Posso essere incluso nei destinatari ?
Grazie


-------------------------------------
Non mi stancherň mai di imparare...
Grazie a tutti!
dario.m...@SONOlibero.it 
(ovviamente da correggere)
Newsgroup: it.comp.lang.visual-basic
Titolo: ho acquistato vb6 professional: 2 domande vi prego...

Ho acquistato un pacchetto visual basic professional 6.0....
Avrei due domande
non l'ho ancora installato in quanto devo deinstallare prima la versione
enterprice di "prova" (non storcete il naso....lo ammetto per iniziare ho
utilizzato quella!!!).
E' una versione del 98 (secondo me era da poco uscito), all'interno contiene
un cd di "Visual J++ 6.0 Tecnology prewiew 2" e un modulo per prenotare
gratuitamente j++ 6.0 al suo rilascio.
Da questo deduco che non sia compreso nel pacchetto dei 2 cd che ci sono
all'interno...
Questo vuol che non sarò coperto da licenza per vj++?
Voi che ne pensate.
P.s: nel pacco ci sono:
2 cd per vs con codice di registrazione
2 cd per msdn
5 cd (sql server training, service pack3 ,nt service pack4,msde etc)
1 cd vj++ tecnology preview
1 cd con librerie di activex etc...
i vari opuscoli e manualetti..
Il pacco originale è corredato di etichetta di certificazione e etichetta
con numero di serie.
Ora devo fare qualcosa tipo registrazione etc?
Non c'è un certificato cartaceo come quelli con windows '95?
Basta solo il pacco con il certificato di autenticità?
P.s: come + volte discusso con gli amici del ng mi sono fatto fare una
scrittura privata con tanto di C.I del venditore, n° di serie del prodotto
etc.

 Ho acquistato un pacchetto visual basic professional 6.0....
    Pardon...visual studio!!!
Newsgroup: it.comp.lang.visual-basic
Titolo: Colloquio tra progetti VB

Qualcuno sa come unire più progetti VB esistenti e farli colloquiare tra
loro?Ho letto che il problema non è solo il mio, spero che qualcuno mi
possa aiutare.
Grazie a tutti
Ciao.
--------------------------------
Inviato via 
http://usenet.iol.it

 possa aiutare.
vedi "gruppi di progetti"
...e la risposta esauriente di Zanna 3 post più sotto...  :-)
ciao
ugo
-----------------------------------
Links:
Sito Comune: 
www.it-lang-vb.net
MSDN: 
msdn.microsoft.com
Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo Inet Upload e Rename

Ho bisogno di caricare, scaricare, rinominare dei file su uno spazio 
web e sto lottando con il controllo Msinet.
Per il download non problem, ma tanti per l'upload, sembra superati se 
nomefile di source  destinazione coincidono, se cambiamo otendo un 
errore "200.... 8 bynary..." non ricordo bene.
 
Ad ogni modo, per non impazzire, ho pensato di uploadare con lo stesso 
nome e poi fare Rename, ma ottenfo questo errore:
 
RNFR accettato - il file esiste, pronto per destinazione
451 Errore in rinomina/sposta: No such file or directory
 
Il comando è questo, e aggiuno che in NewFile la cartella non cambia:
 
 cInet.Execute "", "RENAME " & NomeFile & " " & NewFile
 
 
Che fare?
 
-- 
Greg
 
 

 451 Errore in rinomina/sposta: No such file or directory
 
Trovato l'arcano, colpa mia, carattere non ammesso in NewFile :(
 
-- 
Greg
 
 

Il 28/10/14 21.34.27 Greg ha scritto:

Mai penato cosi tanto!
Ad ogni prova sembra che funzioni, ma quando vado a ripetere non 
funziona piu.  Un errore nuovo: adesso FILE ESAURITI! Ma il file è 
sempre uno solo :(
 
-- 
Greg
 
 

Ho trovato un esempio sul sito della casa madre:
IFCFTPSample.vbp
'Written by Brian Combs Microsoft Corporation
 
un progettino che mostra tutte le operazioni, ma non sempre va bene, 
spesso si impalla. In particolare con il comando CD
 
Attese estenuanti per uscire dall'errore, ho provato a modificare il 
TimeOut da 60 a 15 secondi ma non sembra avere effetto.
 
Ma non c'è niente di meglio (per vb6) per caricare un file sul web?
 
-- 
Greg
 
 

 
 
In mancanza di alternative, in .NET ci sono parecchie implementazioni che funzionano piuttosto bene, per esempio 
https://ftpclient.codeplex.com/
 o 
http://www.codeproject.com/Tips/443588/Simple-Csharp-FTP-Class
 
 
E' piuttosto semplice incapsularle in una Class Library con compatibilità COM (dovrebbe andar bene anche una versione Express gratuita di VS), in modo che possano essere usate anche in vb6... per lo più è sufficente anche il FW 2.0 come target, che è ormai quasi sicuro trovare installato

Il 29/10/14 12:05:36 Luca D ha scritto:

Grazie Luca, purtroppo il Net non lo conosco per nulla, devo restare a 
qualcosa del mondo VB6
 
-- 
Greg
 
 


Se puoi usare l'FTP ti metto online un controllo ed un esempio.
 
-- 
GbC
www.gbc.uno

 Se puoi usare l'FTP ti metto online un controllo ed un esempio.
 
Grazie GbC, vai pure
 
-- 
Greg
 
 


ChilkatFTP, gratuito, 330k.
L'installer copia un progetto demo.
L'ho usato molto in VB6.
 
http://win.gbcdepot.com/_files/ChilkatFtp_VB6.rar
 
 
-- 
GbC
www.gbc.uno


  ah mi sono accorto che esistono ancora
 
http://www.chilkatsoft.com/ftp-activex.asp
 
 
meglio :)
 
-- 
GbC
www.gbc.uno

 meglio :)
 
GRazie Gbc, adesso ci strabiccolo :)
 
-- 
Greg
Newsgroup: it.comp.lang.visual-basic
Titolo: Convertire un oggetto StdPicture in uno stream di Byte.

Devo salvare delle immagini (icone) contenute in una ImageList in un
campo BLOB e non voglio usare file su disco.
Quindi:
Dim PicBytes() As Byte
Dim mStream   As ADODB.Stream
Set mStream = New ADODB.Stream
mStream.Type = adTypeBinary
mStream.Open
ImgList.ListImages(1) -> PicBytes()  <- Boh!!?!?
mStream.Write PicBytes
rs.Fields("ICON_DATA").Value = mStream.Read
Qualcuno ha idee?
Forse usando la OleSaveToStream?
Tnx.
Daniele.

 ha scritto nel messaggio 
news:1184940360.6...@g4g2000hsf.googlegroups.com...

Guarda, ho risposto a una domanda simile proprio ieri in un altro NG.
Prova a guardare questo esempio, non so se fa al caso tuo ma potrebbe 
funzionare.
Visto così recupera e ripristina solo i byte dell'immagine, l'header ce lo 
devi mettere tu, oppure devresti riuscire a recuperare tutto lavorando un 
po' sui puntatori giusti... boh... :)
http://allapi.mentalis.org/apilist/SetBitmapBits.shtml
Ciao


Ti stupirň con effetti spettacolari... stavolta niente API OLE e strane menate,
ma una soluzione "PURE VB": si puň usare un oggetto PropertyBag come appoggio
per "serializzare" dati binari.
Dim pb As New PropertyBag
    pb.WriteProperty "MyImage", ImgList.ListImages(1)
    mStream.Write pb.Contents
etc. etc.
Bye
Raf
-----------------------------------------------------
Funk: cooler than the other side of the pillow.

>
Anzi, niente Stream: non serve a una cippa!
Dim pb As PropertyBag
    ' Scrittura
    Set pb = New PropertyBag
    pb.WriteProperty "MyImage", ImgList.ListImages(1)
    rs.Fields("ICON_DATA").AppendChunk pb.Contents
    rs.Update
    ...
    ' Lettura
    Set pb = New PropertyBag
    pb.Contents =
rs.Fields("ICON_DATA").GetChunk(rs.Fields("ICON_DATA").ActualSize)
    Set Picture1.Picture = pb.ReadProperty("MyImage")


     Set Picture1.Picture = pb.ReadProperty("MyImage")
E andiamo!!! ;o)
Tnx!
Daniele.
Newsgroup: it.comp.lang.visual-basic
Titolo: Formato CHI

Ho creato la guida in formato CHM di una mia applicazione e quando sono
andato a creare la procedura di setup con il programma fornito con VB
(creazione guidata pacchetti di installazione) lo stesso mi avverte della
mancanza dei file in formato CHI. Tali file non vengono creati con la
compilazione della guida e non so di che cosa si tratta.
A che cosa servono ?
Sono indispensabili ?
Grazie per le Info
Fabio

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Limite download

Scusate ma non so dove chiedere...
esistono dei programmi che monitorizzano la quantità di Mb scaricati in un
certo periodo di tempo (mensile) da Internet tenendo conto che il
collegamento che ho è tramite router, e ho un indirizzo IP statico.
Grazie
davide

 ha scritto nel messaggio
news:9rtps4$1054pp$1...@ID-73094.news.dfncis.de...

Dipende dal router... con la maggioranza si può tramite snmp mi pare...
prova a dare un'occhiata su tucows...
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Help! VB & matrici :((

Ciao a tutti.
Ho un problema legato alla gestione di matrici all'interno di un form...
allora:
1) dichiaro un gruppo di matrici monodimensionali nell'area generale del
form, dimensionandoli con una constante (Q) anch'essa dichiarata nella
medesima sezione.
2) all'interno del form vi sono una serie di subroutine che accedono agli
array, indicizzandoli con variabili diverse, a seconda delle variabili che
contengono. Ad esempio:
-    articoli(A)
-    articoli(lstServizi.ListIndex +1), ecc....
3) IL PROBLEMA è che ho creato una sub, chiamata clean:
Sub Clean()
' pulisce tutti i vettori e le listbox del form
  lstServizi.Clear
  lstListini.Clear
  lstServizi2.Clear
  For I = 0 To Q
    Servizi(I) = 0
    ServiziPrz(I) = 0
    Listini(I) = 0
    ListiniPrz(I) = 0
    Servizi2(I) = 0
    Servizi2Prz(I) = 0
    Servizi2Qta(I) = 0
  Next
End Sub
La invoco da diverse parti dello stesso form, e non ottengo di azzerare
alcun risultato o  valore: le matrici hanno deciso che COMANDANO LORO!!!
:(((
Aiutatemi vi prego, sto impazzendo!
Grazie.
Gabriele

Prova a traciare il programma quando entra nella routine e testa il valore
di Q. A occhio sembra che Q sia sempre <=0.
Comunque ti consiglierei una bella redim Servizi(0 to Q), molto piu' veloce
ed economica.
----------------------------------------------------------------------
Stefano Minardi
zet...@mclink.it
----------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Non ho trovato nulla... sigh!

Ho fatto mille esperimenti, consultato il sito comune e anche Deja per
vedere se avevate toccato l'argomento....
non riesco ad imporre che il menu di una MdiChild rimanga nella sua form e
non vada a sostituire il menu della main form.
Qualcuno mi puo' smentire o illuminare?
Grazie in anticipo
-MAD-

 ha scritto nel messaggio
news:CTX19.148837$Jj7.3...@news1.tin.it...

non e' possibile fare quello che chiedi.
puoi aggirare il problema usando un form normale
e impostare il parent del form con la SetParent.
tieni conto che l'uso delle API e' sempre portatore di
casini, dunque fai tu!
bye
R

 Qualcuno mi puo' smentire o illuminare?
fatto.
beppe