mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Catturare i files di una directory + Libro

ciao a tutti,
    premetto che sono alle prime armi.
Mi servirebbe sapere come catturare tutti i files presenti in una dir
per magari visualizzarli in un controllo che mi permetta di selezionarli.
Esiste qualche funzione che fa questo?
Vista la premessa, esiste in commercio un buon libro per VB5,
magari in italiano (se c'è in inglese fa lo stesso).
Grazie,
                    Manrico

Per conoscere i file presenti in una directory usa il controllo filelist:
file1.path="C:\Esempio\"
file1.pattern="*.jpg;*.bmp;*.gif"
file1.listcount restituisce il numero di file
io ho I segreti di VB5 della Apogeo...
Ti consiglierei di aspettare pero' visto che e' uscito vb6, meglio prendere
un libro sull'ultima versione...
nel frattempo puoi imparare tantissime cose dalla Rete, ti assicuro che di
materiale su vb5 se ne trova.
Ciao, cordialmente, Davide Piras

Newsgroup: it.comp.lang.visual-basic
Titolo: ODBC 3.0

Cari navigatori,
ho sviluppato un'applicazione Win95 in VB 4.0 32 bit che utilizza ODBC 3.0
per accedere al mio DataBase .mdb tramite AutoCAD R13 e R14 ma ho questo
problema :
 dopo aver installato l'applicazione su un sistema pulito, dal pannello di
controllo vorrei creare la fonte dati (es. "pippo") che utilizza il
Microsoft Access Driver, nel momento che premo il bottone Fine della
finestra "Crea nuova fonte dati" mi si verifica questo errore "The setup
routines for the Microsoft Access driver (*.mdb) ODBC driver could not be
loaded due to error code 1157", premo OK e compare questo nuovo messaggio
"Could not load the setup or translator library" con il seguente titolo
"Driver's ConfigDSN, ConfigDriver or ConfigTranslator Failed".
Da cosa è dovuto tale errore?
E possibile che durante l'installazione dimentico di copiare qualche dll
necessaria ad ODBC 3.0 ?
Se SI dove posso recuperare l'elenco del file necessari per installare ODBC
3.0 ?
Potrebbe esserci qualche problema nell'installare l'ODBC 3.0 con il
JetEngine 3.0 del VB4 ?
Ringraziandovi anticipatamente e disperatamente vi porgo i mie più cordiali
saluti.
Andrea Romano



Cari navigatori
Ho sviluppato un'applicazione Win95 in VB 4.0 32 bit che utilizza ODBC 3.0

problema :





RingraziandoVi anticipatamente e disperatamente Vi porgo i mie più cordiali
saluti.
Andrea Romano

Newsgroup: it.comp.lang.visual-basic
Titolo: Query in Enviroment

potete illuminarmi come si fa un select via codice in un oggetto command di
un dataenviroment e il relativo refresh?
mi serve anche con l'utilizzo di variabili.
ho provato con il metodo che utilizzo per i controlli Data ma mi dà errore
es.
        Data30.RecordSource = "Select * from Scadenze_Pass where CodFatt='"
& Text1.Text & "'"
        Data30.Refresh


Newsgroup: it.comp.lang.visual-basic
Titolo: Campo Long autoincrementale

Salve a tutti,
qualcuno mi saprebbe dire come si chiama la proprieta' per rendere un campo
Long di nome 'Campo' di tipo Autoincrementale da codice?
Campo.????????? = True
Grazie in anticipo per il disturbo e per la eventuale risposta.
--
Ciao
Roberto
Email:
robert...@libero.it

 ha scritto nel messaggio
news:3RrV5.595$hk4....@news.infostrada.it...


Ciao Gianfranco,
grazie 1000 per la risposta.


 Se ti vuoi creare il campo da vb...niente da fare: non esiste.
Forse si puo', per lo meno con DAO.
Ho copiato il codice di esempio riguardo CreateField e l' ho leggermente
modificato allo scopo. L'ho provato e funziona.
Eccolo:
'''''''''''''''''
Option Explicit
Public Sub Prova()
    Dim dbsNorthwind As Database
    Dim tdfNuovo As TableDef
    Dim fld As Field
    Set dbsNorthwind = OpenDatabase("F:\Program Files\Microsoft Visual
Studio\VB98\NWind.mdb")
    Set tdfNuovo = dbsNorthwind.CreateTableDef("MiaTabella")
    ' Crea e accoda nuovi oggetti Field per il
    ' nuovo oggetto TableDef.
    With tdfNuovo
        ' Il metodo CreateField imposterà una Dimensione
        ' predefinita per un nuovo oggetto Field se nessuna dimensione viene
specificata.
       Set fld = .CreateField("ChiaveIncr", dbLong)
       fld.Attributes = fld.Attributes Or dbAutoIncrField    '// ecco il
trick !
        .Fields.Append fld
        .Fields.Append .CreateField("CampoTesto", dbText)
        .Fields.Append .CreateField("CampoIntero", dbInteger)
        .Fields.Append .CreateField("CampoData", dbDate)
    End With
    dbsNorthwind.TableDefs.Append tdfNuovo
End Sub
Ciao
Aldo

Newsgroup: it.comp.lang.visual-basic
Titolo: Colori in list

E' possibile e come si puo colorare ogni riga di una list
di un colore diverso ?
Grazie Andreik

 di un colore diverso ?
se intendi listbox non puoi ...non con metodi semplice..dovresti gestire tu
il paint
ciao :)

 ha scritto nel messaggio
news:ys6L8.2494$K4.4...@twister2.libero.it...


> Come ?
pronto :)
http://www.mvps.org/vbvision/_samples/Virtual_Listbox_Demo.zip

 ha scritto nel messaggio
news:%l7L8.3092$86.5...@twister1.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] IoProgrammo

Ciao a tutti
Mi hanno detto che sul numero di questo mese di IoProgrammo c'è un 
articolo su come connettersi a DB con il palmare.
Qualcuno che l'ha preso può dirmi più precisamente di cosa tratta 
l'articolo in questione?
Ciao

 ha scritto nel messaggio
news:bn8spv$ucevv$1...@ID-184808.news.uni-berlin.de...

Non ne capisco molto e quindi non sarò molto preciso ma ho tutti i numeri di
IoProgrammo.
Ti elenco rapidamente gli articoli
Se ti riferisci a quello di Ottobre ci sono 2 articoli:
1) XML mobile: creare pagine per i cellulari con XHTML-MP (non sarà lui)
2) GPS e PocketPC : dice che nel precedente articolo (settembre) abbiamp
progettato un'applicazione che si interfaccia con un modulo GPS esetrno al
Pocket PC. ... Nel presente articolo ci proponiamo di progettare e
implementare la parte server che ha òo scopo di visualizzare la posizione di
un veicolo equipaggiato co il pcket PC e il relativo modulo GPS.  ...
utilizzando un DB su SQLServer 2000
Se ti interessa:
Giugno: SQL Server- Installare e configurare un database per Pocket PC (CD)
Luglio/Agosto: Moblilità dei dati con SQL Server CE (merge replication e
RDA) (CD)
Settembre: prestata (CD)
Ottobre: scritto sopra (ma non ho il CD dove c'è di solito il codice)
Novembre: lo compro domani
Hubert
P.S.
Scusa ma ti ho scritto per sbaglio sulla mail personale
Newsgroup: it.comp.lang.visual-basic
Titolo: Client/server da Delphi a VB

 --
La soluzione non è complicata ma è moolto lunga da spiegare.
Innanzi tutto
DAO : Data Access Object è un modello di accesso ai dati concepito in
particolar modo per la connessione ai DB Access (con motore Jet); molto
semplice da utilizzare ma non ti può aiurtare con InterBase.
ADO : ActiveX Data Objects è anch'esso un'interfaccia di accesso ai dati che
però sfrutta il Provider OLEDB (il nuovo standard Microsoft).
Borland non ha messo a disposizione un OLEDB Provider diretto per la
connessione a InterBase; ciò vuol dire che se mai riuscirai a connetterti al
DB avrai dei tempi di accesso estremamente lunghi.
L'alternativa è il passaggio tramite l'interfaccia ODBC oppure in ADO puoi
usare "OleDB Provider For ODBC Drivers" il quale ti consente di conneterti a
tutti i DB che vuoi ma ti assicuro che i tempi di risposta sono tutt'altro
che accettabili !
Infine prova a guardare anche RDO Remote Data Objects studiato appositamente
per le connessioni ODBC (anche in RDO non si parla di gestione di
connessione ma solo Set di risultati)
Spero di esserti stato minimamente di aiuto !


Ti ringrazio, anche solo per avermi chiarito la differenza tra i vari
DB engine.
Fino ad ora, sono riuscito a connettermi al DB Interbase attraverso
ADO. Non so che prestazioni ne verranno fuori, proprio perche' non so
come scrivere e leggere in maniera efficiente sul DB.
Ovvero, potrei creare delle form su cui mettere dei controlli non
orientati ai DB, e, alla pressione dei tasti OK, o Annulla, aprire una
transazione, scrivere i dati e quindi chiuderla. In questo modo dovrei
scrivere tutte le varie query, copiarvi il contenuto dei controlli e
cosi' via.
Non e' un lavoraccio, pero' complica molto la manutenzione del sw!
Oppure, potrei usare i soliti controlli associati ai dati, e lasciare
che si occupi ADO di gestire le transazioni.
Pero', come ho gia' detto, con Delphi, grazie agli UpdateSQL, ero
sicuro che la gestione fosse efficiente, perche' l'apertura della
transazione, la scrittura dei dati e la chiusura, avvengono in
un'unica fase di cui non devo preoccuparmi.
Con VB non capisco se e' possibile un meccanismo del genere. Non posso
aprire la transazione all'apertura della form e sperare che
l'operatore prema OK al + presto, giusto?
E quindi, qual'e' il metodo migliore in VB per gestire queste
situazioni?
Grazie ancora
Saluti
--
Piero Bonanno
bop...@libero.it
pie...@tiscalinet.it
bop...@tin.it
bpie...@hotmail.com
______________________________________________
"Madame, lei ha tra le gambe uno strumento
che puo' offrire piacere a migliaia di persone,
e tutto quello che sa fare e' grattarlo"
- Sir Thomas Beechan a una violoncellista
Newsgroup: it.comp.lang.visual-basic
Titolo: Qualcuno mi vuole dare una mano?

Salve,
che ne direste di aiutarmi a comprender meglio il mondo di visual basic???So
che ci sono i libri per questo, ma lì sopra l'unica cosa che sono riuscito a
comprendere sono le variabili e i loro diversi tipi.
Se mi date una mano vi sarò eternamente riconoscenti.
Grazie

 Se mi date una mano vi sarò eternamente riconoscenti.
Eternamente! Non esageriamo! :) Magari mandaci qualcosa a casa, tipo
Iacchetti a Striscia! :)))
Ultimi consigli: visita il sito del NG (l'indirizzo lo trovi nella firma qui
sotto) e non rivolgere troppe domande a me, che sono un principiante come
te! :))
--
Ciao a tutti
Cesare Nicola
http://digilander.iol.it/cesare
L'indirizzo del sito comune è:
http://www.murialdo.it:8000/it_lang_vb/

 Se mi date una mano vi sarò eternamente riconoscenti.
Cosa intendi con "dare una mano"? Non ti bastano le risposte alle tue
domande?
Attento poi che, in queste cose "eternamente" e' un po' poco: c'e' chi ci
campa... come il sottoscritto, per esempio.
Per cui e' d'uopo che tu solennemente ti impegni, ora per allora e non
appena te ne riterrai in grado, di dare una mano a quelli che verranno, a
titolo di risarcimento non oneroso per l'aiuto ottenuto (speriamo) in questa
sede.
Letto, approvato e sottoscritto ecc.
--
Ciao.
Maurizio

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

Salve,
ho inserito una toolbar in una mia form, ho messo un bottone di prova;
vorrei aggiungerci un immgane sopra. Se con il tasto destro clicco
sulla toolbar mi si apre una finestra, li definisco i miei bottoni e
credo (visto che non mi funziona) che sia li dove selezionare l'
immagine da mettere sul bottone. Ne seleziono una, vado a cliccare su
applica e mi dice sempre "valore della proprietą non valido". Ma qual'
č la proprietą da cambiare??
Aspetto news, grazie.
Saluti, ciao ciao.

Prima di tutto devi mettere nel form un'imagelist. E' un controllo che devi
inserire nel progetto quindi vai su Progetto>Componenti... oppure premi
CTRL-T. Ora devi selezionare il componente giusto... non ricordo quale. Ora
che hai messo l'imagelist nel form cliccaci con il pulsante destro del mouse
e seleziona proprietà, quindi carica le immagini.
Stai attento di settare la dimensione delle immagini su quella giusta prima
di caricare il tutto!
Ora vai sulle proprietà della toolbar e setta l'imagelist (sul combo
dovrebbe apparirti l'imagelist che hai appena messo!). Ora devi andare sul
tab dei pulsanti, selezionarne uno.
Non mi ricordo bene ma dovrebbe esserci una proprietà del tipo ImageIndex.
L'ì ci devi mettere l'index dell'immagine all'interno dell'imagelist!
Se vuoi gestire l'evento click della toolbar (toolbar_click) devi
distinguere i pulsanti con button.index.
Spero che tutto questo ti serva a qualcosa!
ByeZ
SebaMix

Spero che tutto questo ti serva a qualcosa!
Si, qualcosa in più l' ho imparata, per non funziona :(( Perchè??

Newsgroup: it.comp.lang.visual-basic
Titolo: ftp

Ciao a tutti
Vorrei creare un .exe che a intervalli regolari mandi al mio sito internet
un determinato file di testo. Ho provato con il controllo inet ma non riesco
mai a connettermi all'host remoto e non trovo documentazione esauriente in
merito.
Possibile che non si possa passare i comandi ftp a un modulo?
Potete aiutarmi?
Ezio

 wrote in message
XW_s6.46650$6W.45...@news.infostrada.it...

questa funziona:
Inet1.RemoteHost = txtHost.Text
Inet1.password = txtPwd.Text
Inet1.UserName = txtLogin.Text
url = "ftp://" & txtLogin.Text & ":" & txtPwd.Text & "@" & txtHost.Text &
"/"
'invia il file
Inet1.Execute url, "SEND test.txt test.txt"
'attende che il trasferimento sia completato
Do Until Inet1.StillExecuting = False: DoEvents: Loop
lo metti in un timer e sei a posto
ciao

 wrote in message
wO%s6.35373$x3.6...@news2.tin.it...


Io userei il controllo di devpower x l'FTP (
www.devpower.com
).
E' gratis e semplice da utilizzare. L'ho usato in qualche mia app e non mi
ha mai dato problemi...
CiaoZ (c)(r)
SebaMix
--
------------------ - -  -   -    -     -      -
Sito Comune del newsgroup it.comp.lang.visual-basic
http://www.murialdo.it/it_lang_vb
------------------ - -  -   -    -     -      -
Rimuovete NOSPAM dall'indirizzo per scrivermi...
Remove NOSPAM from address to write me...
------------------ - -  -   -    -     -      -
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Indice riga Datagrid da DataRow: come?

Salve, ho una DataGrid grid collegata ad una DataTable dt.
devo fare un find sulla datatable e selezionare la riga corrispondente sulla
datagrid.
Ho trovato il metodo seguente ma mi obbliga ad ordinare il datatable per il
campo di ricerca... come posso riuscirci lasciando l'ordinamento originale?
GRAZIE
ID=100 '<----- valore campo di ricerca
' Get the Currency Manager by using the BindingContext of the DataGrid
Dim cm As CurrencyManager = CType(Me.BindingContext(grid.DataSource,
grid.DataMember), CurrencyManager)
' Retrieve the default DataView of the DataGrid
Dim dv As DataView = CType(cm.List, DataView)
Dim drv() As DataRowView
'Sort the DataView coumn to search
dv.Sort = "ID"  '<---- sono obbligato ad ordinare per il campo di ricerca!!!
:-(
'Search the row
drv = dv.FindRows(ID)
'If found position the cursor in the row found
If drv.Length > 0 Then cm.Position = cm.List.IndexOf(drv(0))

 datagrid.
se il campo su cui fai la ricerca č la chiave primaria della tabella, la
datatable ti permette di fare un find su di esso.
mi ricordo giusto?
hai provato a vedere che cosa succede se lo fai?
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 hai provato a vedere che cosa succede se lo fai?
Ciao, il mio problema non č fare il find sulla datatable... per quello ci 
riesco...
il problema č: fatto il find e trovata la datarow desiderata come faccio a 
sapere qual'č la riga corrispondente della datagrid collegata al datatable?
GRAZIE 

 collegata al datatable?
io farei questa prova...
(a proposito, ho visto che find č un metodo del datawiew, non del datatable,
ricordavo male)
un find sul default view della data table dovrebbe ritornarti un indice, se
usi questo indice per impostare il currentrowindex della datagrid, ottieni
quanto ti serve?
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 quanto ti serve?
purtroppo (a quanto ne so) il metodo find di un dataview (nel caso suggerito 
dt.defaultview) mi obbliga sempre ad ordinare per campo di ricerca come 
riportato nel codice del primo post... possibile che non ci sia un metodo 
per trovare l'indice della riga senza dover cambiare l'ordinamento?!?
nessuno ha risolto questo problema?
GRAZIE

Newsgroup: it.comp.lang.visual-basic
Titolo: Help me to find how to clone an object when an app is running...

Hi
I'm a french student, and i work on VB5. I have to make an app wich reads a
database and puts some informations in textbox. But I don't know, before the
running, how many textbox I need. So I have to CLONE one from an object in a
existing form. Don't you know how to do it...

Create an array of textboxes by setting, at design  time, the index property of
the textbox to 0. When you need another one, load it with
Load textboxname(textboxname.UBound + 1)

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Menu contestuale delle textbox/combobox

Salve a tutti,
ho un problema alquanto... Singolare. Avete presente il menu contestuale che
appare facendo click con il pulsante destro su una textbox o una combobox?
Bene, vorrei poter aggiungere delle voci personalizzate a quel menu o, se
proprio non c'č altro modo, impedire che appaia quel menu sostituendolo con
un personalizzato. Lo scopo č, ovviamente, quello di aggiungere dei comandi
raggiungibili direttamente facendo click col pulsante destro sulla casella
di testo. Potreste aiutarmi?
GRAZIE
Antonio Mirarchi

 che appaia quel menu
dal librone del balena.
sorry, è in inglese ;-)
<citazione>
Visual Basic's implementation of pop-up menus has a serious flaw. All Visual
Basic TextBox controls react to right-clicks by showing the standard Edit
pop-up menu (with the usual commands, such as Undo, Copy, Cut, and so on).
The problem is that if you invoke a PopupMenu method from within the TextBox
control's MouseDown event, your custom pop-up menu will be displayed only
after the standard one, which is obviously undesirable. You can solve it
only by resorting to the unorthodox and undocumented technique shown below.
Private Sub Text1_MouseDown(Button As Integer, _
    Shift As Integer, X As Single, Y As Single)
    If Button And vbRightButton Then
        Text1.Enabled = False
        PopupMenu mnuMyPopup
        Text1.Enabled = True
    End If
End Sub
</citazione>
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 ha scritto nel messaggio
news:CQRjb.42232$Zh.1...@tornado.fastwebnet.it...
: Salve a tutti,
: ho un problema alquanto... Singolare. Avete presente il menu contestuale
che
: appare facendo click con il pulsante destro su una textbox o una combobox?
: Bene, vorrei poter aggiungere delle voci personalizzate a quel menu
Giù di subclassing...
: o, se proprio non c'è altro modo, impedire che appaia quel menu
sostituendolo con
: un personalizzato.
Credo che tu debba proprio sostituirlo (smentite ben accette).
: Lo scopo è, ovviamente, quello di aggiungere dei comandi
: raggiungibili direttamente facendo click col pulsante destro sulla casella
: di testo. Potreste aiutarmi?
: GRAZIE
: Antonio Mirarchi
Prego.
Ciao, Luca.

 </citazione>
In effetti come metodo funziona perfettamente... Solo che cosě posso
eliminare il menu standard e sostituirlo con un nuovo, io invece preferivo
aggiungere delle voci a quello standard. Anche perchč il ComboBox non ha la
l'evento MouseDown :-( Grazie comunque!
Antonio Mirarchi

Ottima, non la conoscevo!
Ciao, Luca.
Newsgroup: it.comp.lang.visual-basic
Titolo: Disabilitare CTRL+ALT+CANC

Ho necessità di disabilitare il CTRL+ALT+CANC quando lancio l'esecuzione di
una applicazione realizzata in VB 4.0 o VB 5.0. Dal momento che il
subclassing non è supportato dal VB, come posso fare?
						Grazie e ciao
						Giulio Ancilli

l'unico modo è maniplare la chiamata alla dll che è presente in KERNEL32
per fare questo però bisogna costruire una DLL che metta la priorità di
kernel32 in normal e che si metta davanti lei per poter intercettane la
gestione....
Giulio Ancilli ha scritto nel messaggio
<01bd72b2$fdadc190$0800005a@russell>...




Ciao,
Esiste il modo per Disabilitare tutte le combinazioni di WIN95.....CTRL+ESC,
CTRL+ALT+CANC, ALT+TAB
Con Questo sistema li blocchi Tutti !!!!
Per Farlo devi ricorrere alle api di Windows.......Ecco come fare :
Dichiara la funzione in un Modulo o nelle dichiarazioni Generali del Form.
Private Declare Function SystemParametersInfo Lib "user32" Alias
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long,
lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const BLOCCO = 97
Per Bloccare il Sistema devi Scrivere :
Dim ret As Integer
Dim pOLD As Boolean
ret = SystemParametersInfo(BLOCCO, True, pOLD, 0)
Per Sbloccarlo invece :
Dim ret As Integer
Dim pOLD As Boolean
ret = SystemParametersInfo(BLOCCO, False, pOLD, 0)
Attenzione a Quando usi questa Funzione !!! Prevedi sempre un Bottone o un
Sequenza di Tasti che ti Sblocchi il sistema o che ti faccia uscire dal
programma........
Questro Trucco Funziona anche in VB4.........
Spero di Esserti Stato Utile.....
A Presto.
Bye Bye
Alessandro Palmieri aka CUJO.


Ho letto quello che dici
mi potresti dire se esiste qualcosa di cosi veloce anche in Windows NT
almeno dove andare a vedere)?
grazie
Luca B.

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Dll ActiveX - ma è vero che...

    Ciao,
    pensavo una cosa (solo una?): se io faccio una dll activex e poi la
ricompilo modificandone alcune caratteristiche va a finire che devo
ricompilare anche tutti i programmi che ne fanno uso (alla faccia della
riusabilità delle dll).
    Però se, anzichè includerla nel progetto come referenza,  creo le classi
esportate con la CreateObject() il problema di compatibilità sparisce (o per
lo meno non mi esplode l'applicazione quando tenta di linkarsi alla dll).
    Rimane ancora il problema di dover registrare comunque la dll nuova, ma
così buona parte del problema è comunque risolto.
    Sbaglio?
    Cosa ne pensate?
Ciao a tutti.

, 
zntf...@tin.it
 says...

mi pare che se non modifichi l'interfaccia (nomi funzioni e parametri) e 
setti alcune opzioni non occorre ricompilare, ma fare una prova per 
essere di + preciso.
--
Gio_F - mailto:
jg...@tiscalinet.it

 riusabilità delle dll).

Newsgroup: it.comp.lang.visual-basic
Titolo: Percorso

Salve, vorrei aprire un'immagine con una commondialog e per visualizzare il
percorso di dove è depositato il file(C:\windows\bollicine.bmp)su una
textbox.
potete dirmi il codice?
GRAZIE


Lo trovi sulla guida in linea, premendo F1 con il commondialog selezionato.
ciao, hal

 ha scritto nel messaggio
news:zjav6.20526$dJ6.1...@news.infostrada.it...

Dai, sono buono....
On Error Resume Next
cdl1.Filter = "File immagine|*.bmp;*.gif;*.jpg;*.jpeg"
cdl1.ShowOpen
If Err.Number = cdlCancel Then
    txt1.Text = Empty
Else
    txt1.Text = cdg1.FileName
End If
Newsgroup: it.comp.lang.visual-basic
Titolo: text trandorma in numero

devo fare la somma in 2 text la somma numerica non la somma di 2 stringhe. 
mi ricordo che c'e' un comanda da metter avanti alla casella text. ma non me 
lo ricordo e il mio amato manulae non l' ho dietro oggi. helpp 

 lo ricordo e il mio amato manulae non l' ho dietro oggi. helpp
Quello che chiedi sono cose così di base che il manuale non dovresti
neanche citarlo.
Se hai bisogno del manuale per ricordarti le funzioni "C" + il tipo che
vuoi ottenere sei messo molto male.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio 
news:d45s34$ppi$1...@news.newsland.it...

ho iniziato a programmare in VB da 3 giorni... 

 ho iniziato a programmare in VB da 3 giorni...
Allora attacca una catenella e appenditi il manuale al collo, così non te
lo dimentichi :)).
Certamente che con vb c'è anche l'help in linea (ce l'hai l'help in linea
vero?)


 ha scritto nel messaggio 
news:d45sf0$rmt$1...@news.newsland.it...

mi sembra CDbl o CSbl 

 mi sembra CDbl o CSbl
Hai visto che uno l'hai preso! il secondo "quasi" CSng (trasformazione in
single)


 ha scritto nel messaggio 
news:d45tft$n9$1...@news.newsland.it...

Dim totale As Integer
 totale = CDbl(Text1(0)) + CDbl(Text1(1))
 Lbltotale.Caption = totale
mi da errore nella seconda riga.... tipo non corrispondente

 mi da errore nella seconda riga.... tipo non corrispondente
Evidentemente il "tipo" della label non corrisponde a double e quindi devi
traformare il double in stringa


 ha scritto nel messaggio 
news:d45vo0$9oc$1...@news.newsland.it...

errore mi da in questa riga
totale = CDbl(Text1(0)) + CDbl(Text1(1))
che ora ho trasformato per comodita'text1 e text2
nella label come faccio a far comparire la virgola?? 

 nella label come faccio a far comparire la virgola??
Non credo si possa continuare a botta e risposta.
Fai un passo indietro (dalla tastiera) e leggi il manuale o l'help in
linea.


 mi da errore nella seconda riga.... tipo non corrispondente
dimensioni totale come integer, poi gli assegni la somma di due duble e poi 
lo passi a una stringa...
Dim totale as integer
totale =val(Text1(0).text) + val(Text1(1).text)
Lbltotale.Caption = cstr(totale)
in pratica questo e' tutto quello che accade tra le conversioni. Attento che 
Val prende in considerazione sempre il punto come separatore cdbl prende in 
considerazione il separatore nelle impostazioni internazionali.
-- 
-Gigio2k-
www.g2kweb.it

 prende in considerazione il separatore nelle impostazioni internazionali.
Esatto, come ti hanno fatto vedere ricordati che:
    - i testi delle text e delle label sono stringhe (tipo String)
    - per passare da stringhe a numeri o viceversa devi usare le funzioni di 
conversione (vedi help CDbl, ecc.)
E poi aggiungo io:
    non puoi pretendere un risultato con la virgola se dici che totale è un 
numero intero (Integer). E non ha heanche senso usare CDbl (che converte in 
Double) se usi un integer (casomai usi CInt).
Il consiglio resta comunque: "Usa il tasto F1"
Ciao,
    Diego
Newsgroup: it.comp.lang.visual-basic
Titolo: Domande varie

1) Come faccio a far apparire una form on top come winzip?
2) Come faccio a fa apparie l'icona del mio programma nella traybar?
3) Perche' non riesco ad entrare nel sito comune di questo NG?
CiaoZ

 wrote in message
bO3w5.86$XZ4....@news.infostrada.it...




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

C'e' qualcuno che per favore sa dirmi come mai ad aprire un recordset ADO
con le seguenti istruzioni
    Set DEP_REC = New ADODB.Recordset
    Set DEP_REC.ActiveConnection = CONN
    DEP_REC.CursorLocation = adUseClient
    Criterio = "select rec_descrizione, rec1_divisa, sum(rec_importo) from
rec inner join rec1_rec on rec_serial = rec1_serial "
    DEP_REC.Open Criterio, , adOpenForwardOnly, adLockOptimistic
mi da il messaggio di errore
        run time error '-
2147217900
 (80040e14)'
        Espressione join non supportata.
Uso un database di  Access 2000.
--------------
     /\
   /__\
 /lessio\
--------------

 wrote in message
9nnrn8$qsp$1...@fe2.cs.interbusiness.it...


 wrote in message
9nnrn8$qsp$1...@fe2.cs.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT Natalizio] - THREAD x AUGURI

Plz, invece di postare nuovi messaggi di auguri, inseriteli qui
dentro...
Grassie
---
GbC
http://gbc.homeip.net
---

Si dai facciamone un'altro :))
C'era gia' un thread per gli auguri, [OT] Auguri ed era anche bello
frequentato :9
Cmq sia,
Ciaotutti e BUON NATALE! Nonche' buon anno, buon millennio e buon
resto-delle-vostre-vite :)
Se le cose vanno come spero non ci si sente + fino all'8 :)
GbC <-...@O-O.OOO> wrote in message
news:Q2H06.158966$hk4.5...@news.infostrada.it...


 Se le cose vanno come spero non ci si sente + fino all'8 :)
Allora Ok .. ci risentiamo tutti martedì 26 .. come al solito ...
Vedo già i post di Sebastiano, di Skunk ecc.. con dei subject del genere :
- "Come faccio a verificare che ieri era veramente Natale"
- "[OT] Chi ha l'indirizzo di un sito dove scaricare Babbo Natale in formato
kjnpqw..."
- "Distinguere un aereo da babbo Natale con il controllo Winsocket (non
funziona)"
... e tanti altri quesiti vari ...
Saluti festosi a tutti ...
        Davide

bUoN nAtAlE a TuTtI !
Aldo

Newsgroup: it.comp.lang.visual-basic
Titolo: twips e pixels

Salve, vorrei sapere alcune cose sui sistemi misura:
visto che tutte la API usano i pxels, come faccio a sapere quanti
pixels sono un tot di twips? Nel senso se io ho una picture box, e ci
clikko sopra, l'evento click da le coordinate in twips, giusto? come
faccio a sapere quanti pixels sono?
Spero di essere stato chiaro
Giacomo

 ha scritto nel messaggio
news:3a6dc227...@news.tiscalinet.it...


 ha scritto nel messaggio
news:3a6dc227...@news.tiscalinet.it...

Per le OPicture esiste la proprietą ScaleMode che ti permette di utilizzare
direttamente i Pixel (vale anche per i Form).
Ciao VB

Newsgroup: it.comp.lang.visual-basic
Titolo: Condivisione in Aplicazioni MDI & database

Salve a tutto l'NG
Il mio problema e' il seguente
ho un'aplicazione MDI che utilizza due tipi di form che accedono ad un unico
database.
Ho dichiarato
Public db as database
nella form madre.
Quando cerco di abrire il database da una delle form riglie ho in risposta
un errore che indica che la variabile db non e' definita.
Ho fatto aprire il data base dalla form madre, ma vorrei aprirlo quando e'
necessario dalle form figlie.
Grazie anticiapatamente per la risposta.

| Ho dichiarato
| Public db as database
| nella form madre.
| Quando cerco di abrire il database da una delle form riglie ho in risposta
| un errore che indica che la variabile db non e' definita.
Al posto di db.Open, sulle figlie prova a scrivere FormPrincipale.db.Open

 e l'unico modo per accedervi è utilizzare la sintassi
<form>.<variabile>...
si'. anch'io di solito io faccio:
'bas
    public MainDb as database
'mdiform_load
    set maindb=opendatabase...
ciao, a.
Newsgroup: it.comp.lang.visual-basic
Titolo: pacchetti installazione

Su VB .Net Standard è possibile creare i pacchetti di
installazione ?
 
Grazie
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 installazione ?
penso di si. quando crei un nuovo progetto, quali scelte ti propone?
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

nel mio pc non ce l'ho ancora installato, è per questo che lo chiedo prima
di comperarmelo.
quindi mi pare che la risposta si affermativa ?

--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 quindi mi pare che la risposta si affermativa ?
fra i vari tipi di progetto, ce n'è uno dedicato alla creazione
dell'installer. Non so se funzioni bene oppure no, so solo che c'è e basta.
Comunque la risposta è affermativa.
good coding!!!
-- 
Alletun
"Io lo so che accadrà. La voce sussurra nei miei pensieri di Jair, Rone,
Allanon e soprattutto nelle Mortombre.
Sussurra segreti che mi sono tenuti nascosti, nella grigia oppressione
di questo giorno e nell'oscurità caliginosa di quello che mi aspetta.
Saremo distrutti. Tutti."
Brin Ohmsford - La Canzone di Shannara - T. Brooks

Newsgroup: it.comp.lang.visual-basic
Titolo: !! AIUTO x finestra sempre in primo piano

Grazie per aver letto il messaggio
Come si può fare per avere una finestra sempre in primo piano, anche
aprendone altre ?? (nel mio caso ho bisogno della finestra sempre in
primo piano per monitorare quello che arriva sulla seriale mentre
scrivo dati su altre finestre)
Grazie Max

...

Poni il seguente codice in un modulo:
Declare Function SetWindowPos Lib "user32" _
       (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
        ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
        ByVal cy As Long, ByVal Wflags As Long) As Long
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_SHOWWINDOW = &H40
Public Const SWP_NOACTIVATE = &H10
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Sub FormOnTop(Handle As Integer, OnTop As Boolean)
 Dim Wflags As Long
 Dim PosFlag As Long
 Wflags = SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW Or SWP_NOACTIVATE
 Select Case OnTop
  Case True
   PosFlag = HWND_TOPMOST
  Case False
   PosFlag = HWND_NOTOPMOST
 End Select
SetWindowPos Handle, PosFlag, 0, 0, 0, 0, Wflags
End Sub
Ora puoi mettere in primo piano il tuo form con l'istruzione:
 FormOnTop Me.hwnd, True
(ove con ME si intende il nome del form).
per ritornare alla situazione originaria poni false il secondo argomento.
Ciao.
Newsgroup: it.comp.lang.visual-basic
Titolo: database e sicurezza

salve,
dovrei sviluppare un'applicazione web che usi un DB Access in cui siano
presenti i nominativi di utenti iscritti ad un determinato servizio. nel DB
dovranno esservi anche le password che tali utenti avranno scelto. come
posso fare in modo che il proprietario del sito, che ha ovviamente accesso
al DB, non "veda" le password (per motivi di sicurezza) ?
grazie
Mario

 al DB, non "veda" le password (per motivi di sicurezza) ?
Hashale. Cerca HASH su un google qualsiasi :)
Scarta tutta la parte legata agli array e cose simili e vai dritto alle
funzioni di hashing, ne trovi a caterve...
http://www.di-mgt.com.au/src/basCRC32.txt
Mi pare un gran buon inizio (OK, e' un CRC e non un hash, ma direi che e'
ottimo lo stesso :))
Il principio e': nel DB non memorizzi la password ma solo il suo hash (o il
CRC); quando l'utente reinserisce la password, ricalcoli l'hash e lo
confronti con quello memorizzato: se corrispondono la password e' giusta.
Ciaotutti,
*

 ha scritto nel messaggio
news:a4issm$in8b$1...@ID-70152.news.dfncis.de...


 ha scritto nel messaggio
news:a4issm$in8b$1...@ID-70152.news.dfncis.de...

Semplice.. non utilizzare Access.. ;-)
Ciao
 valter

 --
ri-ehm... ma costa qualcosa utilizzare un canale SSL ?
Mario


Il tuo provider deve supportarlo...
Ciaotutti,
*

 un modulo che calcola il CRC32).
E le CryptoAPI ? Mai usate, ma so che ci sono. :-)
Bye, G.

 
Si', anche a me hanno detto che ci sono... ;-)
Ciaotutti,
*


wrote:

Scusate la domanda:
Ma se il proprietario del sito puo' entrarci scaricando il DB, puo'
farlo anche per le pagine web che contengono il codice che "decripta"
qualunque esso sia.
Come funziona allora la cosa?
Ciao a tutti!


dove lo hai postato in link? io non lo vedo...
grazie
Mario


No, dico, lo avessi postato due anni fa sotto il topic "giochi senza
frontiere", ma e' IN QUESTO STESSO THREAD!!!
Ciaotutti,
*

 Ciao a tutti!
Semplice, non esiste nessun codice che "decripta" :)
Memorizzi le password in forma criptata ONE-WAY, cioe' senza che esista
alcuna funzione per decriptarle.
Quando vuoi verificare la password inserita con quella nel DB, non decripti
la pass nel DB, cripti la pass inserita :)
Ciaotutti,
*



Scusa se approfitto della tua gentilezza,
ma dove avviene il confronto?
Cioe', io ho PSW (una variabile che contiene la password in chiaro)
e un RS("Password") con la password criptata: come la confronto?
Ciao, grazie!

 >
Non mi sembra cosi' difficile da tradurre in codice VB...
Anziche'
If Decripta(rs("Password")) = sPassword Then
[...]
fai
If rs("Password") = Cripta(sPassword) Then
[...]
No?
Ciaotutti,
*


Appunto, ma posso tranquillamente andare a vedere la funzione Cripta
cosa fa ed usarla per rivelare il contenuto del DB.
Quello che dicevo e' che se il proprietario del sito puo' andare a
fare un FTP per prendersi il DB puo' anche fare il download della
funzione Cripta. Giusto?
Lo so, so de coccio!
Grazie per la pazienza!

 cosa fa ed usarla per rivelare il contenuto del DB.
Ovviamente... No :)
La funzione Cripta e' ONE-WAY:
y=f(x)
x<>f(y)
Chiaro? :)
Ciaotutti,
*
Newsgroup: it.comp.lang.visual-basic
Titolo: Proteggere una cartella

Ciao a tutti
Ho un quesito:
Ho fatto un programma che legge dei file contenuti in un cd. Questi stessi
file però sono di tipo TXT, AVI, HTML... che possono quindi essere letti da
altri programmi (Es. File TXT=Blocco note, HTML= IE, AVI= Windows media
player), io però ho la necessità di far vedere questi file solo dal mio
programma che è protetto da password (chiunque infatti potrebbe aprire il CD
senza passare dal programma e aprire singolarmente i file).
Insomma come avete capito ho la necessità di proteggere il contenuto di una
cartella.
Una soluzione potrebbe essere zippare il tutto e proteggere lo zip con
password ma credo che poi per utilizzare i file li devo cmq scompattare in
una cartella di appoggio (e questo non sarebbe tanto male) ma si pone il
problema che sono tanti dati da salvare! (un cd intero!)
Come posso fare?
~~~~~~~~~~~~~~~~
Andrea Fabbrucci
anfa...@tin.it
~~~~~~~~~~~~~~~~

 cartella.
se vuoi far in modo che per aprire i file bisogna passare direttamente dal
tuo prog, potresti metterli via cifrati in qualche maniera.
ciao!
Marco

 tuo prog, potresti metterli via cifrati in qualche maniera.
č proprio il tassello che mi manca!!!
In che modo posso codificarli?
Ciao

 ha scritto nel messaggio
news:%qZe9.81363$pX1.2...@news2.tin.it...


se i file non sono grossi perché criptoapi sono di una lentezza esasperante
Altrimenti in rete trovi parecchi esempi di crittografia

 ha scritto nel messaggio
news:HbZe9.81281$pX1.2...@news2.tin.it...

Con .NET puoi monitorare una cartella o un singolo file sull'accesso in
lettura scrittura ecc... (quali altri accessi esistono ??)
Saluti

 lettura scrittura ecc... (quali altri accessi esistono ??)
Esecuzione ?
Bye, Paperinux
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Stampante (x tutti e x Jimi in particolare)

Ciao Jimi e grazie della dritta.
Ho avuto alcuni problemi sotto NT, ma ora è tutto a posto.
Senti una cosa, x modificare le impostazioni della stampante, (formato ed
orientamento) è + o - la stessa cosa?
Ciao Francesco.

 orientamento) è + o - la stessa cosa?
No, è tutta un'altra cosa.
Ci sono alcuni problemi sa superare che riguardano il passaggio
dei puntatori nelle strutture printer_info_2, DEVMODE e
printer_defaults. C'è anche da considerare che la struttura
printer_info_2 nell'API Viewer, sia di VB5 che di VB6 è dichiarata
male, tanto da precludere ogni possibilità di utilizzo della funzione
SetPrinter() e dell'impostazione corretta di fullDEVMODE (ossia
DEVMODE nella sua porzione pubblica unita alla porzione privata).
Per quanto riguarda NT, non sono necessari particolari accorgimenti,
tranne che per l'impostazione di accesso al security descriptor, che
deve essere impostato su security_all_access. Inoltre alcuni parametri della
struttura DEVMODE nella porzione pubblica non sono supportati.
Ma questo non ha importanza se devi solo cambiare l'orientamento di
stampa, dato che la struttura viene solo copiata e modificata nella
parte relativa, appunto, all'orientamento.
Spiegare il procedimento a parole è un tantino lungo, benché la
chiamata all'API sia una sola. Faccio prima a mandarti un esempio + note
(più che altro perché adesso non ho tempo di dilungarmi oltre).
Se ti interessa, dammi un email valido.


france...@usa.net
Ciao e grazie

Se ti interessa, dammi un email valido.
Ehmm... sarei interessato anch'io. E' possibile avere un CC della mail
a 
cli...@tiscalinet.it
 ??
TIA
	Massimo

Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda da neofilo di visual basic!

E' possibile sfruttare gli oggetti windows tipo barra delle applicazioni di
windows etc. e cosa sono le API e se centrano qualcosa con la domanda di
prima?
Grazie 
mauro.b...@tiscalinet.it

e se centrano qualcosa con la domanda di prima?
Sicuramente.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Trovare il valore di una costante C

Salve
Ho la necessità, per implementare una funzione delladll wsock32.dll, di
scoprire il valore di una costante della funzione getsockopt
la costante è:
SO_REUSEADDR
purtroppo non sono riuscito nella documentazione ad ottenere
quest'informazione (ho cercato sia nell'sdk del winsock, che con il metodo
"cerca").
C'è nessuno che ha qualche consiglio da darmi?
VByez
Cornova

 SO_REUSEADDR
E' una BOOL, guarda quì:
http://msdn.microsoft.com/isapi/msdnlib.idc?theURL=/library/sdkdoc/sockspi/wsspiref_5hte.htm
L'ho trovato (attivando tutte le aree) su:
http://search.microsoft.com/us/dev/
Bye, G.
--
---------------------------------------------
    Le risposte alle tue domande le trovi
    sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
       ... e nell'help in linea !
---------------------------------------------
Real E-address: 
gaet...@hotmail.com


Dubito che non sia nell'SDK del WinSock...
SO_REUSEADDR    = $0004;          { allow local address reuse }
--
Roal Zanazzi
z...@iol.it

GRAZIE DI TUTTO A Paperino E A Roal Zannazzi

Newsgroup: it.comp.lang.visual-basic
Titolo: [SITO COMUNE] Candidature nuovo WM

Ciao a tutti,
il 14 è scaduto il mio mandato come WebMaster del Sito Comune, che come
sapere dura sei mesi. Come di consueto il wm uscente invia questa mail per
dare il via alle candidature del nuovo webmaster. Ricordo che ognuno può
candidarsi e chiunque può proporre (solo proporre, naturalmente il diretto
interessato può anche rifiutare) la cadidatura di qualcun'altro.
Sintetizzando il wm ha semplici ma fondamentali compiti:
- provare e pubblicare tutto il materiale inviato al sito
- leggere e deciedere se pubblicare o meno i commenti degli utenti
- registrare i nuovi utenti
Chiunque si voglia candidare o proporre risponda semplicemente a questo
post.
Il termine delle candidature è fissato tra una settimana, seguirà un altro
post per le votazioni, sempre di una settimana, per cui non esprimete
preferenze per nessuno in risposta a questo post.
ciao,
--------------------------------------------------------------------
Assa (Gabriele Genta)
WebMaster del "Sito Comune dei militanti del newsgroup
it.comp.lang.visual-basic"
http://www.it-lang-vb.net

 post.
Assa carissimo, io ti vedrei bene come WM RIentrante :)
Voi che dite? :)
Ciaotutti,
*

 ha scritto nel messaggio
news:a23u9v$uccoa$1...@ID-68324.news.dfncis.de...

Meglio uno con un nick un po' meno palindromo e che abbia piů asterischi ...
opss... capita a fagiolo un certo *Alessandro* :)
Ma Java non se la sente ?
se fosse per lui aprirebbe il sito www.lang.vb.OT
Saluti


Uhm... Senonche' poi il webmaster altro che latitare, viene dato per
disperso dopo tre giorni :P
Ciaotutti,
*

ciao,
Intanto grazie Assa per l'impegno costante in questi mesi!
Ciao,
Moreno
-- 
sirri at morenosoft dot com
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

 lasciato solo... :-P
Io sono uno studente, quindi ne avrei di tempo da impegnare nel SC.
Dato anche il fatto che io lo seguo da anni e mi ha sempre dato una mano.
Quindi se volete *io sono pronto per questa avventura*.
Ciao
--
Timothy Redaelli (aka RedaTim)

 ha scritto nel messaggio
news:a23tle$ufvkp$1...@ID-60516.news.dfncis.de...
[cut]
dopo averci pensato ho deciso di ricandidarmi (pensavate di scamparla, vero?
:) ), così spero di riuscire a portare a termine quello che ho iniziato in
questo periodo.
ciao, assa.


Ok.
Hai il mio voto.
Assa for (ri)president
ciao
ugo
Newsgroup: it.comp.lang.visual-basic
Titolo: Il Bottone nella DBGrid

ho una DbGrid (collegata ad una tabella) in una colonna ho settato l'opzione
pusante e le celle di questa, quando le seleziono diventano come una
ComboBox.....
Come si fa a collegare questa Combo ad un campo di una tabella?
Se invece volessi farlo con una normale ComboBox ? Come dovrei usare il
metodo AddItem?
Grazie
Max

Il bottone della DbGrid non è una combobox e solo un pulsante. Tu puoi farla
sembrare una combo usando un controllo lista che attacchi al campo che ti
interessa. Quando si clicca il tasto della griglia conmpare la lista
allineata al tasto, con i valori che ti servono.
Ciao Luciano.

Mi sa che sono stato poco felice nel formulare la domanda
So benissimo che il bottone della DB Grid non è una Combo ma quello che mi
chiedevo è come si "Attacca" un campo a quel bottone?
Grazie

Credo di essere stato poco felice nel ridponderti. In VB puoi attacare un
campo ad un bottone? NO! puoi solo usarlo per far succedere qualche cosa,
quindi ti ho consigliato una lista che visualizzi quando viene premuto il
bottone che puoi attacare ad un campo o magari qualche altro controllo...
Magari questa volta sono stato più chiaro... ^__^
Ciao Luciano.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] come dichiarare funzioni in dll scritte in C che vogliono " *variabile "

Salve,
ho un problema con una DLL.
Non so come scrivere il declare corretto.
La definizione nell'header del sorgente in c č la seguente:
ushort Find (ushort *sales);
quindi in VB dovrebbe essere:
declare function  find lib "miadll.dll" (??????????) as integer
il mio problema č: come si rende in vb *sales??
ho provato con
declare function  find lib "miadll.dll" (sales%)as integer
ma tutto quello che ottengo č un run-time error 49....quindi ho sbagliato la
declare...
grazie per l'aiuto...
Davide

 ushort Find (ushort *sales);
Declare Function Find Lib "qualchelib" (ByVal Sales As Long) As Long

 Declare Function Find Lib "qualchelib" (ByVal Sales As Long) As Long
che "luk" che sono!!!
grazie e scusate la faq mostruooosa ;)
Davide


Sicuro?
A me risulta
Declare Function Find Lib "qualchelib" (ByRef Sales As Long) As Long
Ciao

 Declare Function Find Lib "qualchelib" (ByRef Sales As Long) As Long
In genere si passa una variabile, non un valore.
Dato che la funzione (a 16 bit ?) si aspetta un puntatore, occorre
passare comunque una variabile. Ossia non credo che accetti:
    lngRet= Find(300)    ma
Dim Pippo As Long
    Pippo = 300
    lngRet= Find(Pippo)
A occhio, se usi ByRef (nel messaggio originale si dice che il valore
passato ByRef causa errore) dovresti scrivere:
Dim Pippo As Long
    Pippo = 300
    lngRet= Find(VarPtr(Pippo))
Forse la dichiarazione piů "coerente" potrebbe essere:
Declare Function Find Lib "qualchelib" (Sales As Any) As Long
usando poi VarPtr.
La dichiarazione č comunque "strana".
Se non č a 16 bit, sembra una funzione ad "uso interno".
Le funzioni non dovrebbero richiedere parametri di questo tipo.
Non esiste, che io ricordi, una funzione dell'API Win32 che
richieda un parametro del genere.
In genere vengono passati come puntatori far solo costanti (strutture).
Vengono dichiarati "ushort" solo i membri di alcune strutture.
Ad esempio:
DWORD DeviceCapabilities(
    LPCTSTR pDevice,
    LPCTSTR pPort,
    WORD fwCapability,                        <--
    LPTSTR pOutput,
    CONST DEVMODE *pDevMode   <--
   );
Newsgroup: it.comp.lang.visual-basic
Titolo: "SINCRONIA" DI 2 DATABASE

Ciao a tutti.
Avevo creato una applicazione per un mio amico.
Poi mi ci sono divertita un po' e col passare del tempo l'ho modificata e
incrementata, e per far questo ho anche modificato di una cifra il database
che usavo.
Da "dilettantissssssssssima" come sono stata, non mi sono segnata tutte le
modifiche che ho fatto e ora che questo mio amico mi ha chiesto di
correggere una cosina.
Io posso solo dargli la versione nuova del programma (perché quella vecchia
da "dilettantissssssssssima" l'ho sovrascritta.
Posso creare un progettino che metta a confronto i due archivi (tabelle e
tipo campi compresi)e mi faccia vedere le differenze?
Se si mi date qualche indicazione su come posso fare?
Sarņ eternamente grata a chi vorrą aiutarmi.
Elisa.

 Elisa.
Posso tentare di darti uno spunto per partire...
1. Apri i due db
2. Per ogni tabella del primo db, apri la rispettiva tabella
nel secondo db (se non c'è la tabella nel secondo, hai trovato
la prima differenza).
3. Per ogni campo della tabella aperta nel primo db, controlli
se esiste il rispettivo campo nella tabella aperta del secondo db.
4. Infine confronti le proprietà dei campi.
Se lo fai in DAO Potresti cominciare con F1 su tabledefs.
Il programma potrebbe cominciare così:
' per ogni tabella nel primo db...
db1 = opendatabase("db1.mdb")
db2 = opendatabase("db2.mdb")
For iNum = 0 To db1.TableDefs.Count - 1
   ' Se la tabella non è interna di access...
   If db1.TableDefs(iNum).Attributes = 0 Then
       on error resume next
       TabRec2 = db2.openrecordset(db1.TableDefs(iNum).Name)
       if err.number <> 0 then
           on error goto 0
           ' La tabella non esiste nel secondo database.
           [...]
       endif
       on error goto 0
       [...]
   endif
endif
[...]

 Se lo fai in DAO Potresti cominciare con F1 su tabledefs.
Che significa F1 su tabledefs?


Puoi provare a crearti una replica del tuo db e poi sincronizzarla
col suo. La sincronizzazione ti riporta tutti i cambiamenti alla
struttura ed ai dati nel nuovo db ( quindi se hai modificato i dati stai
attenta
perchè gli cambierai anche i suoi.)
Prima di procedere fatti delle copie di sicurezza di entrambi i db.


 Che significa F1 su tabledefs?
Significa che devi scrivere la parola tabledefs in Visual Basic e
premere
il tasto F1 (la guida) su tale parola.