mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Dim?

scusate ma a cosa serve l'istruzione Dim?
Grazie.
--------------------------------
Inviato via 
http://usenet.iol.it

 scusate ma a cosa serve l'istruzione Dim?
Scusa la polemica.
F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1
F1F1F1F1F1F1F1
ciao
ugo

 scusate ma a cosa serve l'istruzione Dim?
Data la domanda che fai. i casi sono 2: o usi solo l'istruzione Private per
dichiarare le variabili, oppure non usi Option Explicit.
In pratica "Dim" è equivalente a "Private". Serve per dichiarare una
variabile o un array che ha visibilità solo all'interno della funzione o del
modulo in cui la si dichiara.
Se non usi Option Explicit, puoi evitare di usare queste istruzioni, ma
rischi grossi problemi se per caso scrivi male un nome di variabile, visto
che non te ne accorgi e il programma pensa che vuoi usare una variabile
nuova.
Con Option Explicit invece ogni variabile prima di essere usata va
dichiarata con Dim, Private o Public, quindi se sbagli a scrivere il
programma si ferma e ti segnala l'errore.
Se vuoi approfondire, basta che digiti una qualunque delle parole chiave di
cui sopra nella tua finestra di sviluppo, ci vai sopra col cursore, e poi
premi F1. Se dopo aver fatto ciò hai ancora dei dubbi, chiedi pure.
Ciao
*Roby*

 F1F1F1F1F1F1F1
esagerato.
io p.e. la uso per smorzare una lampada in soggiorno :)

 F1F1F1F1F1F1F1
Ho scritto nell'ide la stringa ma non succede niente! Puoi darmi delle
delucidazioni a riguardo? :P
Ma non si era detto di ignorare le provocazioni? :?
Io mi stň sforzando...

 Io mi stò sforzando...
Già. Io ho risposto al messaggio apposta appena l'ho visto, ma era già
troppo tardi. :-(
Ciao
*Roby*


Lo so, hai ragione: č che sono appena rientrato...  :-)
ciao
ugo

 Lo so, hai ragione: č che sono appena rientrato...  :-)
Appunto dovresti essere il piů rilassato di tutti, e anche un po' sfiancato
dalla "cucaracha"! O;)

 wrote in message
213Z26Z221Z98Y...@usenet.iol.it...


 ha scritto nel messaggio
news:abfvt8$hv1tq$1...@ID-96367.news.dfncis.de...

Credevo che il NG si occupasse di Visual Basic!
Vabbe', giusto per restare in tema: che ha fatto Schumacher nelle libere di
oggi? ^_______^
(perdonate, perdonate... e' stato troppo forte, e si sa che l'uomo e' fatto
di carne...)
Ciao,
- SonicBoom -

 cioč un contenitore.
Cosě si fa ... con pazienza.
--
~~~ MrOnederfull ~~~
mroned...@hotmail.com
http://www.mronederfull.it
 (coming soon!)
Newsgroup: it.comp.lang.visual-basic
Titolo: problemi con crystal reports

Salve a tutti, premetto che sto imparando adesso ad utilizzare il programma.
Avrei questo problema:
Ho creato un report che va a prendere dei dati da un db e fin qui tutto 
bene.
se aggiungo dei nuovi records, pero' non mi vengono visualizzati nel report 
(non
viene fatto nessun refresh all'apertura).
come posso risolvere?
grazie
Riccardo


Ciao
Prova a vedere nelle opzioni report se per
caso hai attivato il salva dati con report.
Ciao
lorenzo

 ha scritto nel messaggio 
news:YZuze.6411$tX6.1...@twister1.libero.it...

_____________________________
Uso Crystal Reports 8.5.
In File-Options nella Scheda "Reporting" ho disattivato:
Save Data with Report
Discard Saved Data When loading Reports
...ora provo ad attivare questa ultima opzione soltanto.
ti faccio sapere.
ciao
Riccardo 

 Riccardo
____________________
Ho provato attivando Discard Saved Data When loading Reports
ma ugualmente non vi è refresh all'apertura del report.
Cos'altro posso vedere?
grazie 


ho notato che se disattivo la scelta 1 non mi permette di attivare la scelta 
2
(l'attiva ma quando riapro il report per modificarlo la trovo disattivata)
puo' dipendere da questo?
ciao

> 2- Discard Saved Data When loading Reports
questo vale per i nuovi report
Prova in File->Report Option
che sono le impostazioni per il report corrente.
L.

 ha scritto nel messaggio 
news:PAvze.6499$tX6.1...@twister1.libero.it...

________________________
Santa Lucia.
Avro' aperto almeno una 10ina di volte il Report Options ma non avevo mai 
visto quel flag.
Ora funziona bene
grazie mille
Riccardo
Newsgroup: it.comp.lang.visual-basic
Titolo: Come si fa?

salve
ho un piccolo problema:
ho l'esigenza di avere un array bidimensionale, e di modificarlo
[[array(indice_variabile, indice_fisso)]] con ReDim....
chi è tanto gentile da aiutarmi?
grazie

 wrote in message
86cbgi$com$1...@lacerta.tiscalinet.it...

ReDim array, nuovo_indice_variabile


non puoi perchè si può modificare solo l'ultima dimensione, dovresti
pertanto fare
Redim MyArray(dimensione_fissa, nuova_dimensione_variabile)
Ma il problema è limitato: basta che inverti gli indici!
Ciao

 wrote in message 86d9sl$npc$1...@nslave1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [Q] Voi come fareste in caso di help in multilingua ??

Ciao a tutti !
Ho un dubbio che mi assale da qualche settimana ......
Devo sviluppare un help per una app. in VB6. Ho pensato all'HTML Help.
Sono perplesso su due punti.
1) I file .chm necessitano, oltre che del run-time per l'help, anche di
Explore 3.x e piu' installato .... devo obbligare un utente a installarlo se
vuole l'help ...
2) Il mio committente vuole che l'help sia tradotto in altre 5 lingue oltre
all'italiano. Se ne occupa lui, io gli do' il testo e lui lo fa tradurre. Mi
arriva tradotto e io ricompilo l'help. Il problema e': un volta tornatami
tutto tradotto devo REIMPAGINARE in HTML per altre 5 volte .... alla meno
peggio devo fare del cut/paste sull'originale. Ho fatto alcuri giri ma non
esiste nessun tool ( RoboHelp e similari ) che mi aiutano nella gestione di
un progetto multilingue .... tipo il file di risorse di VB !!
Avete qualche consiglio ??
Grazie a chi mi puo' confortare ......
    Ciao, Gian Luca

 wrote in message
87udds$lh0$1...@fe1.cs.interbusiness.it...


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

Scusate anche questa...
Ho un SINGLE e dovrei mettere a video un numero fisso di cifre decimali....
Come fareste senza MSDN.... ? (e senza voglia di cercare su quella on-line
?)
Grzie

Ahhhhhhhhhh l'euro! ? :)
Funzione ROUND()
Ciao SIMO
--
__________________
www.sasim.net
Vb è relativamente semplice perchè c'è MSDN!
Server IRC : 
irc.azzurranet.org
 --> Canale: #it_lang_vb
Sito Comune Ng: 
http://www.it-lang-vb.net
Manifesto del Ng: 
http://www.it-lang-vb.net/docs/Manifesto.txt


 ?)
con il mio manuale preferito, che ho sicuramente a portata di mano.
Faber

 wrote in message
S51D7.25724$Qj6.1...@news.infostrada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Dll vb6 e Web Sevice dot net - Aiuto

Ciao a tutti,
volevo un chiarimento su un particolare problema.
Attualmente ho creato delle dll (VB6). Attraverso Microsoft SOAP Toolkit
riesco a generare il wsdl (utility WSDL generator) e successivamente
chiamare le funzioni di tali dll attraverso client SOAP.
Quello che vorrei fare č creare veri e propri Web Service .NET, ma ho le
idee un po' confuse di ciň che devo fare.
Devo wrappare(?) tali dll in modo che siano eseguibili in un ambiente in cui
sia installato il framework? Se sě come?
Grazie per ogni suggerimento.
Ciao
Fabio


.A
UGIdotNET - 
http://www.ugidotnet.org

 UGIdotNET - 
http://www.ugidotnet.org
Grazie mille per la risposta esaustiva.
Guraderņ senza dubbio il sito!
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: [?][SQL] Una query 2 select...si può fare?

Salve,
con un db access è possibile fare una unica select che mi riempa un
recordset con i campi di tue tabelle, senza metterle però in join?
Una
cosa del tipo:
Seleziona tutti i campi dalla TabellaA e dalla TabellaB
Si può o devo fare per forza due select separate? Se si come...grazie.
Saluti...
--------------------------------
Inviato via 
http://usenet.iol.it

 ha scritto nel messaggio
news:157Z29Z81Z46Y9...@usenet.iol.it...

select campotab1,campotab2,camptabx  from tabella1 , tabella2 , tabellax
where .....

where .....
No, forse non mi sono spigato...nessuna where, tutti i
campi di entrambe le due tabelle senza nessuna consizione particolare,
tutto.


 ha scritto nel messaggio
news:157Z29Z81Z46Y...@usenet.iol.it...


 ha scritto nel messaggio
news:157Z29Z81Z46Y9...@usenet.iol.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: condivisione mdb

Aggiungo solamente che il blocco del record che un cliente sta aggiornando
dipende dale opzioni specificate nel Menu: Strumenti --> Opzioni -->
Avanzate di Access in cui puoi stabilire se il client:
 - Non fa nessun Lock sui record che sta modficando (due client possono
modificare in contemporanea lo stesso
   record. Non Consigliabile. Access comunque avverte il  Client W1 che il
secondo Client W2 ha eseguito una modica
   sullo stesso record e chiede all'ultimo Client che cerca di salvare le
modifiche come deve comportarsi.)
-  Ha un Lock sull'intera tabella (se il client entra in modifica della
tabella X nessun altro può fare altre modifiche su tutti i
   record di X)
-  Ha un Lock sul solo record in fase di modifica (Il Client W1 entra in
modifica di un record nessun altro può entrare in
   modifica dello stesso record)
Ciao Giorgio
-- 
Posted from 
smtp3.libero.it
 [193.70.192.53] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:OF4CA61E4A.B93C1D70-ONC12569D1.0036BEC4@com...


Newsgroup: it.comp.lang.visual-basic
Titolo: n.ri decimali

Salve, sono un principiante di VB
Ho un problema , sto' riportando dei dati da colonne excel su un file di
testo. In una colonna excel vi sono dei valori che a me interessa riportare
sul txt con 2 cifre decimali. se il numero è per es. 25,87 l'ho riporta
giusto
na se vi sono 2 zeri dopo la virgola non riporta gli zeri:
25,00 = 25
In pratica vorrei che il prg mi riporti anche gli eventuali zeri dopo la
virgola.
Sto' utilizzando queste stringhe:
Print #nuovofile, "Fascia 1    MC:" & Fascia1 & "      " & Prezzo1 & "
" & Importo1 & "  " & AliqIva1
Print #nuovofile, "Fascia 2    MC:" & Fascia2 & "      " & Prezzo2 & "
" & Importo2 & "  " & AliqIva1
Print #nuovofile, "Fascia 3    MC:" & Fascia3 & "      " & Prezzo3 & "
" & Importo3 & "  " & AliqIva1
Print #nuovofile, "Fascia 4    MC:" & Fascia4 & "      " & Prezzo4 & "
" & Importo4 & "  " & AliqIva1
Print #nuovofile, "Fascia 5    MC:" & Fascia5 & "      " & Prezzo5 & "
" & Importo5 & "  " & AliqIva1
grazie
Roberto


Format$(numero, "#0.00")
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Stampa file .prn

Devo stampare da vb5 un file pcl5 con estensione prn. Devo usare le api o 
l'oggetto printer ? Come devo fare ?
Aiuto !!!
Grazie in anticipo.
______________________________________________________
Get Your Private, Free Email at 
http://www.hotmail.com
--
Posted from [151.92.76.10] by way of 
law-f112.hotmail.com
 [209.185.131.175]
via Mailgate.ORG Server - 
http://www.mailgate.org


Apri una shell e passi al comando dos print il file... 
i files prn sono l'immagine della stampa fatta dal driver..
Assicurati che sia usata la stampante giusta.
Sidewinder
---------------------------------------------------
"C'e' una luce in fondo al tunnel....
   ... E' Tux con il casco da minatore!"




Newsgroup: it.comp.lang.visual-basic
Titolo: Programma di installazione

Dove posso trovare dei programmi di installazioni gratuiti per
l'installazioni di applicazioni create con VB6 grazie !!

...

Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal domanda generica (no codice)

Partiamo da questo dato :
1) Non ho la più pallida idea di come si faccia a gestire la stampa con
Crystal Report....
2) Ho provato a utilizzare Crystal ma VB non me lo
riconosce....dall'interfaccia il Crystal che ho mi sembra piuttosto obsoleto
Devo crearmi dei report (molto semplici) e vorrei uno strument efficace ed
immediato....
Crystal è il più semplice oppure ne esistono alcuni meglio???
Grazie
IAK

 Crystal è il più semplice oppure ne esistono alcuni meglio??
Se si tratta di report davvero semplici e vuoi predisporre le
stampe in modo grafico puoi usare il DataReport, che e' un componente
fornito con VB stesso.
-- 
hth, hal

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

    Come mai quando faccio stampa unione mi stampa UNIONE!!! E basta!!! Un
foglio bianco con scritto solo UNIONE!!!!!!! E' un virus? Ha... me lo fa
solo con world.
    Vorrei che excell quando batto 4 suonasse la rumba. Un esperto (mio
cuggino) mi hanno detto che devo postare su un ng as. Cosa vuol dire! Sono
niubbi.
    Hi! Avete presente exccel???? Ekko io vorrei fare un kosa kosi xke lo
uso molto bene e oh idee che sicuro vndibili come il pane. In ditta dicono
non c'e' problema basta ke lo faccio senza usare il pc ma io celo akasa. uso
winmx+vb5 ke celo fatto comprare tre anni fa' mi avevano assunto. anzi se lo
volete lo vendo e ankora celofanato un amico me lo mastrriza il suo ma e
tanto ke non si vediamo. scusate mi ho perso mi appasionano queste kose
scusatte gli errori scrivo in fretta xke o-line Mi spiego meglio Hi! Avete
presente eccell? Ekko io vorrei fare una kosa kosi ma lho gia detto. E'
possibile!!! konosco c c++ (plaspla) pasal java cioe js è difficile vb5 o 6
e lo stesso per uno che sa i miei linguagii. Cosa centra la balena! e come
dire auguri? secondo voi e meglio plaspla o pasal!!!!!! Io linux lo odio.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 ha scritto nel messaggio
news:ah9jet$rb3cv$1...@ID-52090.news.dfncis.de...
[cut]
senza parole...
:-PPPPPPPPPPPPPPPPPPPPPPPPPPPPPP
ciao, g.

"Maurizio Borrelli" <

Anfetamine?  ;-D
Ciao, Max

Anche Maurizio č andato...

 dire auguri? secondo voi e meglio plaspla o pasal!!!!!! Io linux lo odio.
Altro ce alla Ferilli , la statua la dovevano fare a te sei un mito ( e
mandarmi la Ferilli a casa pero' non sarebbe nemmeno male ... )

 Maurizio
Evidenti sintomi del subclassamento .
Il cervello ha intercettato un messaggio elaborato da Windows durante un
errore irreversibile.
Terapia: nessuna. E' irreversibile.

 ha scritto nel messaggio
news:ah9jet$rb3cv$1...@ID-52090.news.dfncis.de...

Sarà il caldo... :-P
--
Ciao
   Sharkman
-----------------------------
Rimuovere NOSPAM per risposte

 dire auguri? secondo voi e meglio plaspla o pasal!!!!!! Io linux lo odio.
Che dire oltre che ROTFL...
...e pensare un po' a quanto hai ragione.
Bye, G.

 auguri? secondo voi e meglio plaspla o pasal!!!!!! Io linux lo odio.
Andato anche lui! :(
Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal Report mi fa impazzire :(

Salve,
dopo giorni che sto' sbattendo la testa con CR non ho risolto alcuni miei
problemi:
Ho creto un report semplice. Nell'editor grafico dei report ho settato il DB
e preso alcuni campi di una tabella e li ho inseriti sul report. Il problema
ora e' il path assoluto che inserito nel report per collegarmi al DB. Se
porto la mia applicazione su un altro Pc il report funziona lo setesso
oppure no perche' magari ha un path diverso del DB? Posso settare quel path
di connessione al DB (tramite ODBC) a codice? Se si per trascinare i campi
nel report dall'editor grafico devo cmq fare una connessione al DB?
Vi prego sto' impazzendo su questa cosa!
Grazie Infinite!
 Robby
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Grazie Infinite!
non dici che database usi, ma indipendentemente da questo, usa ODBC per
connetterti al database.
in questo modo, il report se ne sbatte di dove sta fisicamente il database:
a lui importa solamente che c'è una voce, esempio, "Rubrica" nelle
connessioni ODBC e lui usa quella per popolare i dati......
occhio che all'inizio, quando stai disegnando il report, ti viene chiesto
quale tipo di database vuoi usare: indica espressamente ODBC e poi seleziona
la voce che desideri.....
che release di crystal report usi?
good coding!!!
--
Alletun
"Se ti va di spassartela adesso
Prendi il Vettore oggi stesso."
Terre Desolate - Stephen King

nel report dall'editor grafico devo cmq fare una connessione al DB?
La cosa migliore che tu possa fare e':
1) fare si che il tuo applicativo possa connettersi alla base dati in
modo personalizzato, magari via ODBC
2) usare le librerie di run-time di CR - in particolare gli oggetti
CRAXDRT.Application e CRAXDRT.Report - in modo da caricare il report e
passare ad esso la connessione che piu' ti aggrada.
In questi giorni sto generalizzando in una classe un modulo di codice
che avevo scritto per una mia applicazione l'anno scorso. Se ti puo'
interessare, scrivimi che quando ho finito te lo invio.
Ciao!
Luca

 interessare, scrivimi che quando ho finito te lo invio.
Grazie della gentilezza.. ti contattero' sicuramente :)


connessione con i metodi da te indicati visto che non li conosco?
Meglio se ti mando il codice una volta finito, credi. Anche perche' ci
sto lavorando su, spero tra oggi e domani di finirlo, visto che mi
serve.
Ciao!
Luca


Grazie mille mi sembra che pian piano sto' iniziando a capire come funziona
questo CR!! Allora Aspetto con ansia il codice! ;)
Grazie Ancora
 Robby

Newsgroup: it.comp.lang.visual-basic
Titolo: Nel Frattempo utility all EXIF

Un anno fa avevo cercato delle utility per rimuovere e/o modificare tutti
gli exif dai files più comuni: tif, jpg, gif, psd ecc ecc.
Sapete se nel frattempo qualcuno ha messo a punto delle utility di
questo tipo?
Grazie a chi mi darà indicazioni.
Ciao
Pi ero 

pi ero ha scritto:



non so se intendi utils a se' o cose da usare in vb.
comunque ho chiesto a google
exif "visual basic"
e il primo link è
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnhcvb04/html/vb04b15.asp
che rimanda fra l'altro a un prog con sorgenti
http://www.sentex.net/~mwandel/jhead/
hth, ciao, a.
-- 
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:d99et7$imf$1...@news.newsland.it...


 Grazie a chi mi darà indicazioni.
prova a farti un giro qui ... parecchio che li ho sul HD
non so' se sono ancora "vivi" :
http://www.exif.org/
http://www.exif.org/john.html
http://www.pima.net/standards/it10/PIMA15740/Exif_2-1.PDF
http://www.exif.org/programs.html
http://www.din.de/gremien/nas/nabd/iso3166ma/codlstp1/
su 
http://www.autoitscript.com/forum/index.php?showforum=9
c'e'  \Udf For Reading Exif Info
se non lo trovi piu'  e sei interessato chiedi che ti posto il codice (*.au3)
Here is my attempt to make UDF for retrieving EXIF info from JPEG's in "right way". Not sure it will work with edited
images, and currently it don't work with EXIF's have straight byte order (for ex. all Casio cameras). But it work fine
with all images I have from other cameras (7 different models). If you know how you are welcome to add other parameters
(Shutter Speed, Aperture etc.)
codice :
[CUT]
--
Fosco

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

Salve a tutti, ho la necessità di impostare delle HOTKEY al mio programma e
stavo prendendo spunto dal codice presente sul sito comune a questo
proposito. L'esempio mostrato funziona molto bene ma il mio problema è il
seguente:
premendo i tasti CTRL-C devo attivare la subroutine trova_click() (associata
al menù trova).
Per chi non avesse visto l'esempio sul sito-comune le cose stanno così:
...
    Dim Esegui As Long
    'Fa sapere a Windows quale hotkey si vuole associare
all'applicazione(es.CTRL-A)
    Esegui = SendMessage(Me.hwnd, WM_SETHOTKEY, HK_ControlA, 0)
    'Imposta l'azione che deve essere compiuta alla pressione della hotkey
    'Nell'esempio viene visualizzata la finestra.
    Esegui = DefWindowProc(Me.hwnd, WM_SHOWWINDOW, 0, 0)
...
pensavo di usare la costante WM_MENUSELECT ma non so
1) quali sono i parametri wParam ed lParam
2) se è la strada giusta
grazie in anticipo...a buon rendere
Fabio

 al menù trova).
fra tutte le combinazioni che puoi usare, proprio ^C ???
giusto per un minimo di uniformita' tra i prg windows, mica per altro...
Newsgroup: it.comp.lang.visual-basic
Titolo: server

Debain, FreeBSD, SUSE, Slackware, Mandrake 
www.comserver.net

 
www.comserver.net
Mavaacaghčer!

 Mavaacaghčer!
ahhhhhhh
mi mancava tanto :))))
stavo quasi per dirlo io ma non sapevo come sarebbe andata per il copyright
:)
-> GbC|
www.gbcweb.com

 
www.comserver.net
Fottiti!!!

Newsgroup: it.comp.lang.visual-basic
Titolo: binding controlli su classe personalizzata

Ciao,
ho definito una variabile di tipo arraylist che mi ritorna una lista di 
istanze di una classe usata per memorizzare dati
E' possibile effettuare un binding fra controlli e questa lista di istanze ?
Grazie


Se ho capito bene la domanda si. E' anche facile da fare.
In Aggiungi origine dati scegli "Oggetto" e selezioni la tua classe. Poi 
con il drag & drop puoi crare e personalzzare le form di visualizzazione 
e modifica.
Se ti scarichi 101 Samples 
VB.NET
 della microsoft trovi anche un esempio 
completo in DataSamples->ObjectBinding.
Se poi cerchi object binding con google trovi di tutto, ad esempio:
http://www.15seconds.com/issue/040614.htm
oppure
http://www.theserverside.net/tt/articles/showarticle.tss?id=DomainObjectsPersistencePattern
ciao
Mauro


Grazie 1000, il link � abbastanza esplicativo e non troppo diffcile.
Un'altra domandina al volo: � possibile creare relazioni(padre figlio) fra 
business objects?
Grazie

Newsgroup: it.comp.lang.visual-basic
Titolo: combo box display

Can someone help me out with a problem. I want to set up a combo box but the
contents of it come from a plain text file rather than into the code or
added later on.
thanks
steve

 ha scritto

steve
start a new project. put a command and a combo in form1 and paste the
code below, adjusting the textfile name (and path, in case).
hth, pal
--
andrea....@tin.it
http://www.comune.modena.it/cittadini/apal
Option Explicit
Dim fName As String, fNum As Integer
Private Sub Command1_Click()
    On Error GoTo errman
    Dim sLine As String
    Combo1.Clear
    fNum = FreeFile
    Open fName For Input As #fNum
    While Not EOF(fNum)
        Line Input #fNum, sLine
        Combo1.AddItem sLine
    Wend
    Close #fNum
    Combo1 = Combo1.List(0)
    Exit Sub
errman:
    MsgBox Error
    Close #fNum
    Exit Sub
End Sub
Private Sub Form_Load()
    fName = App.Path & "\test.txt"
End Sub

 wrote in message
news:9jucqg$1mq2v$1...@ID-51318.news.dfncis.de...


 wrote:
combo1.clear
open txtfilepath for input as #1
	do while not eof(1)
		line input #1, s
		if s <> "" then combo1.AddItem s
	loop
close	
Or is there more to this ?

Regards, Frank.
Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con FIND

Come mai in DAO con questa
.Recordset.FindFirst "COMUNE ='" & Replace(nComun,"'","''") & "'"
Non trova CASTEL D'AZZANO
ed invece con la seguente si ?
.Recordset.FindFirst "COMUNE LIKE '" & Replace(nComun,"'","''") & "'"
-- 
©Gulp
----
Forse mi sono perso qualcosa.

>.Recordset.FindFirst "COMUNE ='" & Replace(nComun,"'","''") & "'"
ma:
.Recordset.FindFirst "COMUNE ='" & Replace(nComun,"'","*") & "'"

 anche quandi li richiami esegui le replace
Fatto sta che con LIKE il tutto funziona.Il perchè non lo so.
Grazie
Ciao


ci avrei giurato :-)
si l'ho usato anche io per un programmino delle province e comuni
Io ho ovviato al disagio
con
"select * from table"
ciclo del recordset
rs("campocomuni")=replace(rs("campocomuni"),"'","*")
rs.update
in questo modo ripristini il DB senza apici!
allora poi puoi usare tutte i comandi sql che vuoi!

Newsgroup: it.comp.lang.visual-basic
Titolo: Database Access

Salve. Stavo utilizzando in Microsoft Visual Basic 6 Professional il Wizard
per la creazione di un form da un Database Access. Quando seleziono il
database però VB mi dice che non riconosce il formato del database. Io lo
avevo già fatto con un database di Access 97 ed era tutto OK. Ora però ho
Access 2000, e l'ho creato con quello. Sono incompatibili?
Spero qualcuno mi sappia dire qualcosa.
Grazie.
--
Ramses
http://evilzone.tsx.org
ICQto: 39860665
mailto: 
ram...@freemail.it
"God is just a statistic"

 per la creazione di un form da un Database Access. Quando seleziono il
[...]

> Installa mdac 2.5
Thanx


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

Ciao a tutti!
Io ho questo problema: in un form vorrei chiudere un file che ho aperto in
un altro form. E' possibile?
Mi verrebbe da pensare di usare variabili Public ma poi che faccio??
Grazie x l'aiuto (sperando ke arrivi.. :-) !! )
Ciao dal Bongio

 
Dalla guida:
"Istruzione Reset
Chiude tutti i file su disco aperti con la funzione Open.
Sintassi
Reset
Osservazioni
L'istruzione Reset consente di chiudere tutti i file attivi aperti con 
l'istruzione Open e di scrivere il contenuto di tutti i buffer su disco.
"
Se invece vuoi chiudere un file particolare basta che ti passi da un 
forma all'altro l'handle del file. Un modo semplice e' definire una 
variabile Public fileHandle nel form dove apri il file. Puoi chiudere il 
file con una istruzione
close(tuoForm.fileHandle)
ciao
		maxx

Newsgroup: it.comp.lang.visual-basic
Titolo: VB& DataReport & numerazione pagina

Ho questo problema .
Ho un data report e devo stampare il numero pagina partendo da un numero 
specifico.
Esempio la prima pagina deve iniziare dal numero 3.
Con l'istruzione   %p  mi inizia a stampare dalla prima pagina.
Qualcuno ha avuto questo problema?

Raffaele ha detto questo martedì :

No, non ho mai avuto quella specifica necessità.
E, così in prima battuta, mi verrebbe quasi da dire che non c'è 
soluzione...
Alberto
-- 
La forza di volontà è guardare negli occhi una ragazza in topless.
Newsgroup: it.comp.lang.visual-basic
Titolo: Riempire un array con numeri casuali unici

Qualcuno ha scritto un algoritmo per riempire un array con numeri casuali
unici compresi tra un intervallo definito?
Sono alle prime armi e trovo qualche difficoltà a tal proposito, mi serve
per mischiare le carte in un gioco di poker che vorrei sviluppare.
Grazie, Xabaras

...

Penso sia più semplice fare così:
Fatti un array Carte(1..52) as boolean (sono 52 nel poker vero?), e poi
do while CarteMescolate <= 52
    ProssimaCarta = CInt(Rnd(1)*53)-1
    if Carte(ProssimaCarta)=false then
        aCarteMescolate(ProssimaCarta)=CarteMescolate
        CarteMescolate=CarteMescolate + 1
        Carte(ProssimaCarta)=true
    end if
loop
Non so se hai capito il giro (che tra l'altro non ho provato): così facendo
forzi il prog a pescare a caso dal mazzo ordinato una carta alla volta
finchè il mazzo non è finito, e mettendo le carte pescate una sull'altra nel
mazzo mescolato.
Ciao.


1. Riempi il vettore v con i numeri da 1 a n.
2. Estrai un numero casuale x tra 1 e n.
3. Il numero estratto univoco e' v(x).
4. Metti in v(x) il contenuto di v(n).
5. Decrementi n di 1.
6. Se n > 0 vai al punto 2.
7. Fine
Ciao.
Antonio Donatiello.


Questo algoritmo "teoricamente" potrebbe non terminare mai. Infatti quando
devi estrarre l'ultima carta hai 1 probabilita' su 52 che rnd() ti torni il
numero cercato.
Ciao.
Antonio Donatiello
PS: in un precedente messaggio ho scritto una mia versione di algoritmo.


Si, ma con i Pentium si presume che qualche migliaio di tentativi vengano
comunque gestiti in 3-4 di secondi!!...
E non ti basta?

Prova cosi':
il codice dovrebbe essere auto esplicativo
Dim Mazzo(51) As Integer
Sub MescolaMazzo()
Dim Idx%, Estratto%
    Randomize Timer
    For Idx% = 0 To 51
        Mazzo(Idx%) = Idx% + 1
    Next Idx%
    For Idx% = 51 To 1 Step -1
        Estratto% = Int(Idx% * Rnd(1))
        Scambia Estratto%, Idx%
    Next Idx%
End Sub
Sub Scambia(Indice1 As Integer, Indice2 As Integer)
Dim Tmp%
    Tmp = Mazzo(Indice1)
    Mazzo(Indice1) = Mazzo(Indice2)
    Mazzo(Indice2) = Tmp
End Sub
Ciao
Roberto


E non ti basta?
A me basta e avanza dato che il problema non e' mio!
Comunque io avevo scritto "teoricamente".
D'altronde questo e' un gruppo di discussione...
Ciao.
Antonio Donatiello


.... non dimenticare pero' all'inizio delle routine suggerita da ZANNA di
aggiungere l'istruzione :
Randomize Timer
altrimenti ........
Ciao.

Newsgroup: it.comp.lang.visual-basic
Titolo: Campo DESC

In una tabela di un database SQL ho un campo descrittivo chiamato
DESC.
In VB non riesco a fare delle query e mi restituisce sempre errore
perchè interpreta (giustamente) quella stringa non come nome campo ma
come funzione DESC di ORDER.
Come posso risolvere il problema a parte cambiare il nome del campo
che per me risulterebbe essere un casino?
Thanks!!!

 ha scritto nel messaggio
news:qjtr0v4sg4j8pevbo...@4ax.com...

Racchiudi il nome del campo tra parentesi quadre:
[DESC]
Ciao!
Esteban



Grazie!!!
Newsgroup: it.comp.lang.visual-basic
Titolo: Ancora array

Salve, volevo sapere se in Vbscript esiste qualche funzione che ricerca un
dato elemento nell'array, o se bisogna scorrere ogni volta tutto l'array
alla ricerca del carattere.
Qualcuno sa consigliarmi una bella guida (possibilmente scaricabile da
Internet) che tratta vbScript?

 Internet) che tratta vbScript?
quella ufficiale puoi trovarla direttamente su
http://msdn.microsoft.com/scripting/
 oppure in italiano su
http://www.microsoft.com/italy/scripting/
 ; in entrambi i casi segui il link
"VBScript\Download"
Ciao
--
Luca Dormio
luca....@tin.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Who said VB isn't fun?

Private Sub MyBrain_Load()
   On Error GoTo MyBrain_Error
   If IsNull(MyBrain) Then GoTo Bed
   If IsEmpty(MyBrain) Then GoTo Psychoanalyst
   If Type(MyBrain) = vbUnknown Then GoTo X-Files
   If MyBrain.Caption = "Windows is Wonderfull !!!" then
      MsgBox "You are very, very tired guy!!!, vbVeryCritical
      GoTo Bed
   End If
   MsgBox "So good!!. Even it's seems your brain is working!!", _
                 vbOk+vbSurprise
MyBrain_Error:
   If Err.Description = "Unknown Error" Then
      MsgBox "You have a serious problem, guy!!", vbVritical
   Else
      MsgBox "Try again another day, ok?"
   End If
End Sub

Newsgroup: it.comp.lang.visual-basic
Titolo: Runtime error "Interfaccia non registrata"

Dopo l'installazione di un progetto su Win95/98, quando eseguo la stampa di
un report (anteprima) appare il messaggio "Interfaccia non registrata"
errore N. 80040154.
Come risolvere il problema?
Grazie.
Danilo.

A me dà un problema simile con un progetto visual basic che fino a
ieri funzionava.
Ora anche se creo un progetto nuovo e cerco di vedere i componenti che
posso utilizzare (CTRL + T) mi dà l'errore &h80004002 
(-2147467262
)
"Interfaccia non supportata" e mi fa vedere la lista vuota.
Non riesco più ad utilizzare un progetto di un programma che devo
vendere (che ho già venduto ma che devo consegnare).
Qualcuno sa darmi una soluzione per questo problema.
	Grazie tantissimo in anticipo.
P.S.: L'unica altra soluzione che mi viene in mente è quella di
reinstallare tutto il sistema operativo. :-((((


Grazie, ho provato ma non è cambiato nulla.
Ho però capito chi è che provoca il problema, ma non il motivo.
Il visual basic 5 ha dei problemi con la comctl32.ocx e suoi colleghi
(almeno nel mio caso). Perchè gli altri elementi  riesco a rimetterli
nella lista (anche se appare vuota) mentre quello mi dà appunto
l'errore segnalato.
Qualche altra idea, Grazie tante Paride


Newsgroup: it.comp.lang.visual-basic
Titolo: Seleziobare row in datagrid

Come posso selezionare un record da codice in una datagrid ?
Grazie, alcau

 
DataGrid1.SelBookmarks.Add rs.Bookmark
rs e' il record associato al controllo Datagrid1
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

On 21/12/2002 10.27, emmexx wrote
  rs e' il *recordset* associato al controllo Datagrid1


Ancora una domanda :-)
Come posso visualizzare solo l'elemento corrente se mi sposto con le freccie
su e giu ?
Ho provato ma le righe vengono evidenziate man mano che mi sposto.
Come posso evidenziare solo una riga quando mi sposto con le frecce ?
Ho provato con .remove ma a volte di dice indice non compreso.
 DataGrid1.SelBookmarks.remove rs.Bookmark-1
Grazie, alcau


Prova con
DataGrid1.SelBookmarks.Remove 0
Attento pero' a gestire bene il tutto perche' se non e' selezionato 
nessun record ti dara' errore ...


Ma perchč, secondo te, se uso le freccie e pgup e pgdown va tutto ok mentre
se clicco sulla griglia con il mouse e poi uso le freccie per spostarmi
l'evidenziazione non funziona + ?.
Cioč funziona finchč sto nelle righe che visualizzo nello spazio della grid
(circa 20), appena passo alla riga successiva (all'insů o all'ingiů)
l'evidenziazione sparisce !
Tu ne sai qualcosa ??
Grazie, alcau


Dovresti postare un po' di codice ... Non so come hai implementato i 
miei suggerimenti ...


Newsgroup: it.comp.lang.visual-basic
Titolo: Child Form (domanda cazzutella)

Ciao a tutti, vi espongo il mio problema:
Ho un'applicazione MDI.
Ho il bisogno di fare Visualizzare a RUN-TIME un certo form
MDI-Child in forma modale.
I form MDI-Child, come sappiamo, non possono essere mostrati in forma
modale.
A RT non e' possibile impostare la proprieta' MDIChild a false, quindi se io
definisco un form di tipo MDI-Child in fase di progettazione, non posso
visualizzarlo in forma modale.
Domanda :
E possibile via API realizzare quanto detto ?
(Per ex. Ridefinendo la WndClass del form MDI-Child......)
Se si....vi prego di scrivermi un esempio di codice o mandarlo per posta.
Grazie
Vincio
ervi...@yahoo.com









Scusate il post multiplo
comunque ho risolto il problema....
Bisogna effettuare un subclass del form child ed intercettare
il messaggio WM_MDIGETACTIVE
semplice no ?
Vincio



...

Newsgroup: it.comp.lang.visual-basic
Titolo: excel errore su SaveAs

salve
in un programma che sto facendo
creo un file excel, inserisco dei dati nelle celle
e poi salvo (tento) il file su disco
con il metodo SaveAs
ho creato il pacchetto di installazione con la creazione
guidata pacchetti di installazione (senza cambiare le impostazioni)
quando eseguo il programma sul pc in cui lo sto sviluppando
non mi da nessun problema e funziona bene
dopo averlo installato su un qualsiasi altro pc mi da un
errore quando tento di salvare il foglio excel su disco
l'istruzione che da errore e' questa:
xlBook.SaveAs NuovoNomefile
per capire che era questa ho fatto diversi pacchetti di installazione
in cui mettevo diversi msgbox("sono qui") per capire il punto
l'errore e' il solito messaggio:
il programma pincopallino ha eseguito un operazione non
valida (o non permessa?) e sara' terminato
non capisco il perche'
ciao

 
qualcuno ha avuto lo stesso problema ?
grazie

Newsgroup: it.comp.lang.visual-basic
Titolo: Chi sa usare visual basic????????????????????????????????????????

devo realizzare un percorso multimediale :-((((
ovvero 
devo collegare delle info ad un percorso che collega due punti e
cliccandoci sopra aprire un doc.
come posso fare??????????????''''
posso utilizzare visual basic??????????????????????????'
rispondetemi sull'e-mail.
grazie e ciao.
mcl...@ermes.it

Ma che vuol dire 'sta roba?
Ciao.

Newsgroup: it.comp.lang.visual-basic
Titolo: [?2] Crystal Reports

Scusate il nuovo post di questo msg ma è molto urgente (causa acquisto).
Devo sapere se nel pack di vb6 (professional o enterprise) c'è o meno il
Crystal Reports 6 (o cmq una versione nuova) oltre alla solita 4.6.
Come forse avrete letto in altri miei msg, c'è chi mi ha detto che è
presente, e chi mi ha detto il contrario.
Delucidatemi!
Ste

...


...

Newsgroup: it.comp.lang.visual-basic
Titolo: Query con AND e OR

 0 and idNominativo = 441 or  idNominativo = 456"
Questa query mi restituisce tutti i nominativi.
Ma se io voglio solo quelli con Id=441 e 456 MA che hanno EstrattoConto > 0
ED ANCHE AccontiRicevuti > 0?
Perchè la seconda query ignora il filtro sugli Id=441 e 456?
Forse è una questione di priorità negli and ed or?
Grazie.
Giorgio

 ha scritto nel messaggio
news:jeuH7.35075$zu5.1...@news1.tin.it...


 SQL$ = "select * from AppRiepCont where EstrattoConto > 0 or
AccontiRicevuti > 0 and idNominativo = 441 or  idNominativo = 456"
allora visto che non ho capito al 100% quello che volevi non ti dò la
soluzione...ma il modo di applicarla...poi fai tu...
devi usare le parentesi tonde per dare priorità alle condizioni:
esempio:
((b>0) or (a>0 and b=0)) prende tutte le condizioni dove B>0...oppure dove
B=0 e A>0...applica questo sistema nella tua select e avrai quello che ti
aspetti di trovare.
Gianni Moretti

 [...] Ma se io voglio solo quelli con Id=441 e 456 MA che hanno
EstrattoConto > 0 ED ANCHE AccontiRicevuti > 0?
Se non ho capito male basta sostituire l'OR con un AND.
Ciao,
Carlo.

Grazie! Quella delle parentesi tonde non l'havevo mai vista ma č stata
risolutiva per il mio problema.
Giorgio
Newsgroup: it.comp.lang.visual-basic
Titolo: Re: Help Required Upgrading VB6 project to VB Net -> specifically VarPtr solution

(Sorry if you get part of this twice... i pressed the wrong button while i 
wrote it !)
As i was saying, i have been trying to upgrade the VB6 project that can be 
found at
http://www.vbaccelerator.com/home/VB/Code/vbMedia/Audio/WAV_File_Viewer/article.asp
I have managed to get the majority done, using a combination of the upgrade 
facility and some programming of my own. I have now unfortantly got stuck 
with the following line of code:
"copymemory(VarPtrArray(iWav), VarPtr(tSA), 4)"
(copymemory being the standard API call to RtlMOveMemory in kernel32)
The problem i have is the VarPtr command, and to some extent the VarPtrArray 
command. I need a solution for VBnet.
Background information:
tSA is variable of the following structure:
"<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
Private Structure SAFEARRAYBOUND
Dim cElements As Integer
Dim lLbound As Integer
End Structure
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
Private Structure SAFEARRAY2D
Dim cDims As Short
Dim fFeatures As Short
Dim cbElements As Integer
Dim cLocks As Integer
Dim pvData As Integer
<VBFixedArray(1)> Dim BoundsR() As SAFEARRAYBOUND
Public Sub Init()
ReDim BoundsR(1)
End Sub
End Structure"
and is created just before the copymemory line by
Dim tSA As SAFEARRAY2D
tSA.Init()
and propulated with
With tSA
.cbElements = 2
.cDims = 2
.BoundsR(0).lLbound = 0
.BoundsR(0).cElements = m_cWAVRead.ReadbufferSize
.BoundsR(1).lLbound = 0
.BoundsR(1).cElements = 2
End With
iwav is created in the following method
Dim iWav() As Short
If you need any more information please email me at 
adria...@nospamWarwick.ac.uk
 (please remove the nospam)
or reply to the post. I have both the orignal VB6 project, the VBnet project 
created using the upgrade wizard and my
own semi working version.
Thanks for any help provide
Adrian 

I have been trying to update/upgrade the VB6 wave render project that can be 
found at
Newsgroup: it.comp.lang.visual-basic
Titolo: Che c@@@o vuol dire??

Ciao ragazzi
ho fatto una sub che lavora con un recordset
le prime due istruzioni sono:
cnControlla As ADODB.Connection
rsControlla As ADODB.Recordset
appena arriva allaprima lo stronzo mi dice:
istruzione non valida all'esterno di un blocco Type
Che cosa vuol dire?
Che rimanga secco colui che non ha messo un help decente in VB!
Ciao

 Che rimanga secco colui che non ha messo un help decente in VB!
hai guardato sull'help cosa dice in proposito?
ciao
Faber

Che rimanga secco colui che non ha messo un help decente in VB!
Io non uso Stronzo, ma Visual Basic, però credo che la sintassi sia la stessa...
La guida in linea non è il massimo ma basta saper leggere, infatti c'è scritto che per dichiarare
delle variabili bisogna usare la parolina "Dim" (oppure "Public" o "Private")
Perché non moderare il linguaggio?
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------


Ma hai messo il DIM prima dell'istruzione?
Dim cnControlla As ADODB.Connection
Dim rsControlla As ADODB.Recordset
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!
Newsgroup: it.comp.lang.visual-basic
Titolo: Applicazione via web

Ciao a tutti,
Ho fatto un applicazione in vb6 collegata a un db sql, la macchina che
ospita il db č un server collegato a internet con un indirizzo ip statico,
l'applicazione funziona in una rete aziendale ma vorrei permettere a degli
utenti che magari si collegano da casa di far girare il programma, č
possibile?
Grazie a tutti e buon lavoro
Andrea

certo che è possibile.....
dipende dal database...in linea di massima, senza sapere nulla di più
specifico, ti posso dire che quando ti viene richiesto il nome del pc su cui
gira il servizio, devi mettere l'ip su cui hai appoggiato il pc.....
good coding!!!
domanda OT : hai un'abbonamento adsl con ip fisso?
--
Damiani Liborio Igor
ig...@igordamiani.it
 - 
soft...@igordamiani.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262


si

Newsgroup: it.comp.lang.visual-basic
Titolo: Relazione con VB6

Ciao a tutto il ng,
ho un gran problema:
sono riuscito tramite il riferimento "MICROSOFT DAO 3.5/2.51 COMPATIBILITY
LIBRARY" a creare una tabella indicizzata (per voi sarŕ uno scherzo farlo,
ma per me č stata dura).
ERGO:
come posso creare una relazione tra due campi di due tabelle????
quali variabili e codici devo inserire?!
Ringrazio tutti e buone feste.
Cerber...@tin.it
Cerber...@hotmail.com

quali variabili e codici devo inserire?!
Poiche' parlavi di DAO, suppongo ti riferisca ad Access:
http://msdn.microsoft.com/library/en-us/dndao/html/daotoadoupdate_topic6.asp
-- 
ciao, hal

Ringrazio tutti e buone feste
e di che?

 e di che?
Grazie ancora.

 ciao, hal
Ciao ed ancora Grazie.

Newsgroup: it.comp.lang.visual-basic
Titolo: Diagrammi di GANTT

Salve a tutti.
Ho scaricato dal sito 
http://support.microsoft.com/default.aspx?scid=kb;en-us;254008
una dll per creare diagrammi di GANTT con VB.
Una volta registrata la libreria, mi sono accorto che la prima volta
la toolbar di GANTT che crea in Excel funziona.. tutte le volte dopo
no!
Dalla documentazione relativa non viene accennato al fatto se si
tratti di una demo o meno..
Come fare?
Grazie.

 ha scritto nel messaggio
news:2a3eb988.04071...@posting.google.com...

http://www.componentsource.com/catalog.asp?fl=&bc=&sc=CS&gf=+BUSFUNCCALEND&g
d=Calendar+%2F+Schedule&sr=&ec=&refresh=Refresh&SERC=GGC1
 
http://www.wolfebyte.com/vb-scheduler.php
Quando sviluppavo in vb6, dopo ricerca, nessuna offerta pronta soddisfava
l'esigenza realizzativa, quindi l'ho costruito utilizzando la flex in
corredo.
Gratuiti non ne ho trovati.
Gli indirizzi indicati sono a titolo informativo; non ho utilizzato nessun
prodotto tra gli offerti.
Ave
giuseppeD
---
CCR

 prodotto tra gli offerti.
Grazie mille per le dritte.. ma nessuno ha mai scaricato
quell'applicativo dal sito della MS?!? C'è qualcuno che può
confermarmi che si tratti di una demo?
Grazie.
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con eventi su form sovrapposte

Ho un problema in un'applicazione nel caso due form siano sovrapposte.
Da una form (FORM1) richiamo un'altra form (FORM2) con form2.show.
Da una grid (msflexgrid) di FORM2, con doppio click eseguo una sub su FORM1,
e FORM1 torna in primo piano.
Se le 2 form sono sovrappposte ed esegui il doppio click nella grid in
corrispondenza del controllo treeview della finestra sottostante (FORM1),
nel momento in cui questa viene riportata in primo piano mi viene scacenato
un evento click per la treeview. Questo non succede per nessun altro dei
controlli contenuti nella FORM1.
Attualmente ho risolto il problema con una variabile globale che attivo nel
momento del doppio click nella grid e disattivo con un timer. Volevo solo
sapere se è un comportamento normale o se ho sbagliato qualche cosa e
soprattutto, se c'è un modo migliore di risolverlo.
Grazie mille.
Enricov

 controlli contenuti nella FORM1.
Non č che per caso invece di programmare l'evento dblclick della grid posta
sul form2 hai scitto il codice per l'evento click?
Ciao, Adriano


No, l'evento doublwclick della grid lo esegue correttamente, e seguendo
anche l'esecuzione in debug al rientro nella form1 mi esegue il click nella
treeview.
Grazie.
Enrico

Newsgroup: it.comp.lang.visual-basic
Titolo: Questi DB3 cancellati

Salve.
Ho necessità di lavorare su file DB3, e fin'ora sono riuscito ad aprirli 
e a leggerli.
Ora... Se cancello un record, questo nella tabella viene "segnato come 
cancellato". E il problema sorge quando leggo la tabella: quei campi li 
becco lo stesso, anche se sono cancellati.
Uso ADO 2.8: come posso fare per scartare i campi markati a 
cancellazione oppure eliminarli definitivamente?
Thx in anticipo!!!
-- 
Nella vita una sola cosa è certa: se la storia ci ha insegnato qualcosa, 
è che si può uccidere chiunque. (Micheal Corleone)
Posted from X-Privat Free NNTP server - 
www.x-privat.org

 cancellazione oppure eliminarli definitivamente?
Con ADO 2.8 dovresti avere la gestione completa dei file DBF.
Puoi aprire tranquillamente un DBF (sfruttando il provider Jet Oledb) come
un recordset, cancellando tranquillamente con un rs.delete.
Un esempio potrebbe essere questo:
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Properties("Extended Properties") = "dBase IV"
conn.Open "c:\tuadirectory"
SQL = "SELECT * FROM tuofile.dbf WHERE condizione"
rs.Open SQL, conn, adOpenStatic, adLockOptimistic
Do While Not rs.Eof
    rs.Delete
    rs.MoveNext
Loop
rs.Close
conn.Close
Dovrebbe funzionare anche direttamente come query Sql direttamente con
l'oggetto connessione ...
SQL = "DELETE FROM tuofile.dbf WHERE condizione"
conn.Execute SQL
A presto
FabioRM
Newsgroup: it.comp.lang.visual-basic
Titolo: [!] Inserire icone nelle voci dei menù

Questa è il codice che ho provato (e funziona) per inserire delle icone nei
menù.
E' possibile inserire BMP o GIF però funziona solo con particolari
dimensioni e numero di colori dell'immagine(io non le so e se qulacuno
potesse aiutarmi).
In un modulo :
Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As
Long) As Long
Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal
nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long,
ByVal hBitmapChecked As Long) As Long
Nel form :
Dim iRis As Long
Dim iBitmap As Long
Dim hmnMenuPrinc As Long
Dim hmnPopup As Long
Const MF_BYPOSITION = &H400&
    hmnMenuPrinc = GetMenu(Me.hwnd)
             ' Me è il form con il menu in questione
             ' hwnd restituisce l'handle del form
    hmnPopup = GetSubMenu(hmnMenuPrinc, 0)
              ' con la seconda voce (0) si sceglie uno dei vari sub menù (es
: File(0) , Modifica(1) , ...)
    iBitmap = img.ListImages(1).Picture
              ' 1 è per il numero dell'immagine dell'IMAGELIST
    iRis = SetMenuItemBitmaps(hmnPopup, 3, MF_BYPOSITION, iBitmap, iBitmap)
              ' 3 è il numero della voce del menu in cui si vuol inserire
l'icona (es : Apri(0) , Salva(1), Salva con nome(2) , ... )
            ' il primo iBitmap è quando la voce è unchecked
            ' il secondo iBitmap è quando la voce è checked
            ' iRis restituisce il risultato
            ' MF_BYPOSITION lo devo ancora capire e se qualcuno lo sa ... me
lo dica
Ciao.

 wrote in message
85502i$ki7$1...@nslave1.tin.it...


 potesse aiutarmi).
Ciao, vai su 
vbaccelerator.com
 e trovi la soluzione al tuo problema.
Se poi hai particolari esigenze che vanno oltre a quelle che troverai lì, io sto
lavorando proprio su quel codice per aggiungere ulteriori funzionalità.
Quando terminerò il controllo se ti può interessare lo metterò disponibile su
members.xoom.it/DefSoft


Era stato postato tempo fa questo che ho raccolto...
icone nei menu
Hai bisogno delle 3 api GetMenu, GetSubMenu e SetItemItemBitmap e le
immagini che vuoi caricare devono essere 13 x 13 x 16 colori.
Non l'ho usato, però
Ciao                            Alberto

Newsgroup: it.comp.lang.visual-basic
Titolo: Scusate la domanda...

Salve a tutti,
	sono nuovo del ng, e mi piacerebbe imparare a programmare in VB,
pero', prima di acquistarlo, volevo sapere se e dove e' possibile
reperire in internet un qualcosa di simile ad un manuale, guida
(possibilmente in italiano)...
Grazie,
	Luca

Allora: per partire, è efficace la guida in linea.
Inoltre nel CD  ci sono i manuali in formato elettronico.
Altrimenti, i manuali in formato.DOC (per la versione 5) li trovi su:
ftp://ftp.areacom.it/vb32/
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)