mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: ?VB6 -come  intercettare evento mouse over su un popupmenu.

salve,
e' possibile intercettare l'evento mouseover o mousemove nei componebti di 
un popupmenu a scomparsa ?
spero di rioscirci,altrimenti il mio progetto va a.....
leonello34 


Il menù nativo di VB non offre nient'altro che l'evento Click.
Soluzioni:
- Subclassing della form per intercettare i messaggi aggiuntivi dei
menù
- Usare un controllo sostitutivo, ad esempio uno di vbAccelerator:
http://vbaccelerator.com/home/VB/Code/Controls/Menus/index.asp
La seconda opzione è nettamente più pratica; oltretutto tutte le
librerie di quel sito sono fatte in maniera molto curata, non hanno
limitazioni di licenza e sono tutte complete di sorgenti ed esempi.

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

Come posso eliminare dall'elenco controlli della finestra "Componenti" un
controllo (da me creato) che non ho pi? intenzione di far apparire
nell'elenco  ?
Ringrazio anticipatamente per l'eventuale aiuto.
--
Automatic posted from [194.185.204.6]
via Mailgate Server - 
http://www.mailgate.org


Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con ListBox

Premetto che forse il mio problema è dovuto alla mia ignoranza, ma anche
leggendo la guida non riesco a trovare una soluzione
Ho una ListBox contenente un certo numero di articoli (LstArticoli)
Tale ListBox viene popolata con la seguente sub
stringa = "Select * from Articoli where In_Listino='Si'"
rsArticoli.Open stringa, conn, adOpenStatic
rsArticoli.MoveFirst
    While Not rsArticoli.EOF
        LstArticoli.AddItem rsArticoli!Codice_Articolo
        LstArticoli.ItemData(LstArticoli.ListCount - 1) = rsArticoli!id
        rsArticoli.MoveNext
    Wend
    LstArticoli.Visible = True
Ora, cliccando su un articolo mi appaiono i dati nella form.
tali dati possono essere modificati e poi salvati con il tasto "salva
modifiche"
Per una mia esigenza, dopo il salvataggio delle modifiche, devo eseguire un
refresh della ListBox ma vorrei comunque che comparissero nuovamente i dati
aggiornati ossia vorrei che dopo il refresh della listbox il programma
effettui da solo il click su quell'articolo che ho modificato.
Avevo provato selezionando direttamente la posizione dell'articolo
all'interno della list box con
        LstArticoli.Index = (IndiceVecchio)
        LstArticoli.SetFocus
dove IndiceVecchio è IndiceVecchio = LstArticoli.ListIndex
ma, visto che a causa del fatto che la ListBox è ordinata in ordine
alfabetico e che posso modificare anche il codice articolo, se modifico
l'articolo AAAAAAAA1 che si trova in posizione 0 e lo chiamo ZZZZZZZZZZ1 è
ovvio che l'articolo che occuperà la posizione 0 dopo la modifica sarà un
altro.
L'unico modo sarebbe quello di utilizzare l'ITEM DATA (che essendo l'id
della tb di access, è univoco e sempre lo stesso) ma non riesco a capire
come fare, ossia come trasformare queste istruzioni in istruzioni valide per
l'Item Data
IndiceVecchio = LstArticoli.ListIndex
        LstArticoli.Index = (IndiceVecchio)
        LstArticoli.SetFocus
Spero di essere stato chiaro e che mi potrete aiutare!
Grazie!

    LstArticoli.ItemData(LstArticoli.newindex) = rsArticoli!id
Salutoni
Sergio

         LstArticoli.SetFocus
forse ti conviene salvare direttamente ciò che c'è nell'itemdata e non
l'indice, ovvero
IDvecchio=lstArticoli.itemdata(lstarticoli.listindex)
fai il tuo bel refresh dei dati e poi
for i=0 to lstArticoli.listcount-1
    if lstArticoli.itemdata(i)=IDVecchio then
        lstArticoli.listindex=i
        exit for
    endif
next
--
byZ, doGmaI
ICQ#170836495

 --
Infatti, alla fine, ragionandoci un pň su ho scritto un codice uguale a
quello che mi hai dato tu :-D
Grazie!
Newsgroup: it.comp.lang.visual-basic
Titolo: File RIBA secondo standard CBI

Ciao a tutti.... tempo fa avevo già fatto questa richiesta, ma non mi è 
arrivato nulla.
Volevo chiedere a qualcuno che ha un software apposito (oche lo ha 
sviluppato) se mi può inviare un file per l'invio delle RIBA secondo lo 
standard del CBI.
Un grazie anticipato
TOGLI...@visionsoftware.TOGLIMIit 

 lo standard del CBI.
Non fai prima ad andare su 
www.associazionecbi.it
 e leggerti lo standard?
Io cmq l'ho fatto sia per Ri.Ba. che per MAV...
-- 
Alex {per email metti '[NOSPAM]' nell'oggetto}
"Prima di dedicarti all'impossibile accertati di aver fatto tutto il
possibile" (Alex1980)

 ha scritto nel messaggio 
news:2q54onF...@uni-berlin.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: *** Ricevere dati da una COM ***

Ciao,
ho questo quesito.
Come posso fare per ricevere in un file di testo automaticamente le
timbrature delle presenze dei dipendenti di un'azienda ?
Il lettore badge è collegabile con una porta COM.
Oggi ho provato a collegarmi con HyperTerminal e vedevo ad ogni timbratura
il codice , ma non la data e l'ora.
MA !!!
Grazie per l'aiuto
Saimon

 MA !!!
Bhe la data e l'ora le hai nel PC quindi usa quelle !
PS: bada bene al posizionamento del pc, che se arrivo in ritardo sposto
l'ora e ti frego ^_^
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/
Newsgroup: it.comp.lang.visual-basic
Titolo: Caricare DataGrid da codice VB

Ciao a tutto il ng.
Volevo chiedere: esiste un sito comune di questo ng.?
M'interesserebbero degli esempietti per gestire con VB il
caricamento/aggiornamento di DataGrid e similari ... c'è qualcosa?
Grazie, Ciao.
Alfiero

Si che esiste e lo trovi a questo indirizzo:
http://www.it-lang-vb.net

 
http://www.it-lang-vb.net
Mille grazie ;-)
Ciao: Alfio

Newsgroup: it.comp.lang.visual-basic
Titolo: Connessione a DB

Ciao a tutti, secondo Voi č possibile connettersi e lavorare
contemporanemamente con due DB (uno locale e uno in rete) tramite un
applicativo realizzato in vb? Mi spiego: quello che vorrei fare io č
aggiornare automaticamente il DB locale con i dati di quello in rete e
viceversa.
Grazie in anticipo per l'attenzione

 Grazie in anticipo per l'attenzione
YES
brutalmente poi si posson fare tante finezze a seconda dello specifico db
ma in generale con ADO
se ti fai 2 connection su 2 db diversi......
:-)
--
Il Wodkino Nazionale è a : 
www.martek.it
Pagina Vb/Bestiario/Lamer Experience :
http://www.martek.it/go.asp?portamia=2
 Quotefix e altro:
http://www.martek.it/go.asp?portamia=4
Usr: ICLVB Pw: amici


Se il DB e' MSAccess spesso risulta conveniente collegare in un DB le tabelle
dell'altro che interessano e usare l'SQL sulle tabelle come se fossero locali.

 viceversa.
Certo che sě!
Io faccio lo stesso con due db uno SQL-SERVER e uno AS400, oppure uno ACCESS
e uno MySql in internet...
basta avere due oggetti connection...
alex
Newsgroup: it.comp.lang.visual-basic
Titolo: Chiudere word da VB??Aiuto

Ciao a tutti!
Ho creato un piccolo programma in vb che tramite
l'invio di comandi a word apre dei file li
formatta e li stampa. Il mio problema e che devo
chiudere word alla fine delle operazioni di
stampa ma questo avviene prima per cui mi compare
il messaggio "Uscendo da word le stampe verranno
annullate" Come faccio ad intercettare la fine
delle operazioni di stampa o come faccio a
chiudere word dopo????
il codice usato e tipo questo (ho tagliato delle
parti):
Static MyWd As Word.Application
Static MyWdDoc As Word.Document
Set MyWd = New Word.Application
MyWd.Visible = False (word gira sotto e non si
vede)
Set MyWdDoc = MyWd.Documents.Add
("c:\intestordini\intest22.dot")
    With MyWdDoc.Application
    .ScreenUpdating =
False.ActiveDocument.SaveAs "C:\ordformail\" &
lista1.List(i)
    .ActiveDocument.PrintOut , , , , , , , Npagine
    .ActiveWindow.Close
    .application.quit
 *****Se metto qui il codice mi chiude word e
quindi mi annulla le stampe
End With
End If
Next i
Set MyWd = Nothing
Sent via Deja.com
http://www.deja.com/

 ha scritto nel messaggio
news:93q85d$sd0$1...@nnrp1.deja.com...


Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con listView

Ciao Ragazzi,ho un problema con il drag drop tra due
listview.
Nessun problema per il trascinamento , mentre invece
non è così per il rilascio  
nella funzione :
 
Private Sub ListViewDestinazione_DragDrop(Source As
Control, x As Single, y As Single)
 
Vorrei che un elemento della listview1 finisse sulla
listview2.
Mi aiutate a completarla ?
 
Grazie Mille Ciao
__________________________________________________
Do You Yahoo!?
Yahoo! Photos - 35mm Quality Prints, Now Get 15 Free!
http://photos.yahoo.com/
--
Posted from 
web117.yahoomail.com
 [205.180.60.91] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

listview2. Mi aiutate a completarla ?
Questo forse lo so fare io :)) Per elemento cosa intendi? Stai
lavorando con file e directory? A me forse è veunto in mente qualcosa,
ma dipende da quello che devi spsosare...premesso, ho avuto un lampoi
dgneio ora leggendo il tuo post, non ì una cosa provata, io stò qualhe
passo dietro di te :))
PS: io invece non riesco a visualizzare in questo oggettino bastardo
il contenuto di una Dir. Poi un altra cosa, come si mette la barretta
grigia, simptaica, con la scritta proprietà, nome...etc?

 Mi aiutate a completarla ?
L'informazione essenziale che ti interessa e' il parametro "Source" che contiene
un riferimento al controllo che ha avviato il Drag, il resto viene piu' o meno
automaticamente:
Private Sub ListViewDestinazione_DragDrop(Source As Control, x As Single, y As
Single)
'verifichiamo che l'origine sia a sua volta un listview
If TypeOf Source Is ListView Then
    If Not (Source.SelectedItem Is Nothing) Then
        With Source.SelectedItem
            ListViewDestinazione.ListItems.Add , .Key, .Text, .Icon, .SmallIcon
            'poi eventualmente replichi i valori dei subitems ecc..
        End With
    End If
End If
End Sub
Ciao
--
Luca Dormio
luca....@tin.it
luca....@sig-la.com
Newsgroup: it.comp.lang.visual-basic
Titolo: per creare una Directory?

Salve a tutti,
ecco un problema banele: debbo creare la subdirectory Pluto nella directory
Pippo (es. "c:\Pippo\Pluto") .
Volontariamente ho scartato la funzione MKDIR di VB perchč non restituisce
alcun valore e sono passato alla funzione API CreateDirectory()
Ora se la directory (es Pippo) non esiste la funzione
CreateDirectory("c:\Pippo\Pluto", Security) restituisce un errore e peratnto
dovrei prima creare la Directory (es. Pippo)e poi la sua Subdirectory(es.
Pluto):
Ret& = CreateDirectory("c:\Pippo", Security)
Ret& = CreateDirectory("c:\Pippo\Pluto", Security)
Tutto va bene se il numero delle subdirectory č fisso, ma se fosse variabile
dovrei interpretare il pathName (es "c:\Pippo\Pluto") per ricavarli il
numero e il nome delle subdirectory.
Non esiste un'istruzione che mi eviti di fare ciň?
Grazie 1000
Mosca

 alcun valore
Beh... che valore dovrebbe restituire... da un errore di runtime se non é
riuscito...
Un'altra alternativa sarebbe usare il FileSystemObject (scrrun.ddl)
                Ciao
                                        Allanon
--
- SPAMKILLER
 L'indirizzo delle risposte é 
itlangv...@michele.sytes.net
 LASCIATE il NOSPAM fa parte dell'indirizzo :-)
  Per superare le impostazioni di protezione antispam scrivete
  nel testo del messaggio la scritta "SPAMKILLER"
Scusate il disturbo, ma non posso più di pubblicità

 Non esiste un'istruzione che mi eviti di fare ciò?
potresti creare e looppare la stringa da passare es:
Percorso = "C:"
for i = 1 to 5
    percorso = percorso & "\sub" & i
    ret = CreateDirectory(Percorso,Security)
next i
ora questo crea una cosa simile a : c:\sub1\sub2... sub(i)
Era quello che volevi o ho capito male ?

Newsgroup: it.comp.lang.visual-basic
Titolo: Contare (e chiudere) le finestre sul Desktop

Come posso fare a sapere quante (e quali) finestre sono aperte sullo schermo
per poterle magari chiudere?
Ringrazio anticipatamente, Danilo.

per poterle magari chiudere?
Sul sito comune trovi almeno un paio di programmi adatti al tuo caso...
Ciao,
Brando

 wrote in message
80a09i$6gm$1...@draco.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Flex Grid Control 6.0

Salve a tutti.
Sono alle prese con un Flex Grid Control 6.0, ma non riesco a gestire bene
l'evento clic.
Vorrei semplicemente farmi restituire le coordinate della casella in cui ha
cliccato l'utente, ma la prima riga e la prima colonna non sono
selezionabili. Cliccando su di loro il valore contenuto nelle proprietà Col
e Row non è esatto.
Un'idea sarebbe di ignorare Col e Row e all'evento click prendere le
coordinate del mouse tramite un'api, per poi calcolarsi la casella
cliccata...
Che voi sappiate c'è un modo più semplice o migliore?
Grazie in anticipo.

e Row non č esatto.
Cioe', quale valore ottieni e quale, invece, ti aspetti?
-- 
ciao, hal

> Nel senso che sono Fixed?
Ebbene si, avevo FixedRow e FixedCol entrambi a 1, ma non sapevo neanche che
esistessero queste due proprieta'!
Problema risolto, grazie!
Newsgroup: it.comp.lang.visual-basic
Titolo: Selezione di tutta una riga nella Listview??

Ciao a tutti avrei un problema
se c'e' una buon anima....che mi aiuta....ne saro' riconoscente
Ho l'oggetto listView č quando cerco di selezionare una riga lui mi
seleziona
solo il primo elemeno della riga io vorrei far visualizzare tutta la riga
Se gentilmente potete scrivere a 
and...@tin.it
 mi fate un favore
CIAO E GRAZIE A TUTTI

Ho l'oggetto listView è quando cerco di selezionare una riga lui mi


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Sempre ricerco GreyLine

Ciao....
AIUT... DISPERAT.... CERC....
sempre "disperatamente" cerco una sorgentella per visualizzare su una mappa 
la classica GreyLine, in tempo reale....
Ho cercato un po' ovunque senza esito...
qualche info??
GRAZZZZIE
----== Posted via Newsfeeds.Com - Unlimited-Unrestricted-Secure Usenet News==----
http://www.newsfeeds.com
 The #1 Newsgroup Service in the World! 120,000+ Newsgroups
----= East and West-Coast Server Farms - Total Privacy via Encryption =----

> la classica GreyLine, in tempo reale....
cosè una GreyLine?  :)
Grazie!

 cosè una GreyLine?  :)
è la classica linea giorno notte.... su mappa mondiale (sunset sunrise) tipo 
questa:
http://tinyurl.com/oqwrr
da fare però in VB6...
Qualche consiglio???
ciao e grazie


 ciao e grazie
Non è una cosa da niente ma non è neanche impossibile.
Ti do un suggerimento:
http://www.vbaccelerator.com/home/VB/Code/vbMedia/Image_Processing/index.asp
Qui puoi trovare validi esempi VB su come modificare i colori di 
un'immagine o una parte di essa.
Il resto sta a te :)
bye

Ehmmm GRAYline... sry
ciao


Newsgroup: it.comp.lang.visual-basic
Titolo: ### Dao e connessione a SQL SERVER senza ODBC come? ###

Salva a tutti,
mi hanno detto che è possibile connettersi tramite dao ad SQL server senza
usare ODBC.
Mi sapreste dire dove posso trovare delle informazioni o fare un esempio?
Grazie

 senza usare ODBC.
mi hanno detto che usare dao per connettersi a sql server sia una cosa
sconveniente, e me lo diceva un famoso sostenitore ad oltranza di questa
libreria.
poi, naturalmente, puoi fare come ti pare.
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 libreria.
vediamo se indovino il sostenitore...
...si tratta di un uomo con simpatica cagnetta programmatrice...
;)
ciao
ugo

 ...si tratta di un uomo con simpatica cagnetta programmatrice...
nope.
si tratta direttamente del quadrupede allo stato brado.


 ha scritto nel messaggio
news:2p3lo1F...@uni-berlin.de...

Lo so anche io ma ho un programma molto complesso da portare in ADO e prima
volevo fare delle prove in DAO su SQL Server... avete un esempio?
Grazie

 esempio?
l'unica cosa che mi viene in mente è creare, all'interno del db di access,
una serie di tabelle collegate a quelle di sql server che ti interessano.


 volevo fare delle prove in DAO su SQL Server... avete un esempio?
http://groups.google.com/groups?hl=en&lr=&ie=UTF-8&safe=off&scoring=d&q=dao+odbcdirect+ugo+group%3Ait.comp.lang.visual-basic&btnG=Search&meta=group%3Dit.comp.lang.visual-basic
ciao
ugo
Newsgroup: it.comp.lang.visual-basic
Titolo: Export in File di testo di un DataGrid

Voglio esportare in accodamento ad un file di testo esistente tutte le righe
selezionate da un DataGrid, ed ogni colonna che equivale ad un  campo del
DataGrid separata da ".
Che tipo di istruzione devo usare?
Grazie Roby



Per scrivere nel file di testo cerca sulla guida Open, Print, Close se
vuoi usare le istruzioni tradizionali di visual basic, oppure il File
System Object.
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Stampare testo in verticale

Ho bisogno di stampare su Printer e anche su una form del testo in 
verticale, insieme ad altro testo "normale" e un po' di grafica.
Esiste un metodo semplice e poco impegnativo per farlo?
-- 
Bye,
    Max
NOTA:  Per scrivermi eliminate NOSPAM dall'indirizzo.
NOTE:  Remove NOSPAM from my address in order to email me.

 Esiste un metodo semplice e poco impegnativo per farlo?
Vai sul Sito Comune (vedi qui in fondo) e scaricati il file "Rottxt.zip", ti permette di stampare scritte con qualsiasi
angolazione.
Per farlo su stampante, basta che usi l'hdc del Printer (Printer.hdc).
-- 
Hi, Ciao
Ettore                 By -MES-
http://freeweb.aspide.it/freeweb/ilmes
 
(con OCX per stampare i Recordset)
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb

Newsgroup: it.comp.lang.visual-basic
Titolo: Una domanda stupida su oggetto DataGrid

Scusate la domanda che sicuramente sarà stupida, ma avrei necessità di
cambiare ad un certo punto dell'esecuzione, l'intestazione di una colonna di
una datagrid che prende i campi da un database.
Ho provato a cercare sulla guida ma non ho trovato nulla.
Non mi dite di farlo nelle proprietà perchè così facendo la modifica avviene
appena si carica il form invece a me serve quando l'utente preme un
pulsante.
Ho provato con DataGrid1.Col=0
                         DataGrid1.Caption= "TestoColonna"
ma così mi viene aggiunta l'intestazione di tutta la tabella.
Come faccio?
Grazie.

 ha scritto nel messaggio
news:9v9v1p$6mq$1...@nreada.inwind.it...


 ha scritto nel messaggio
news:9v9v1p$6mq$1...@nreada.inwind.it...

sub Gestione_evento_pressione_tasto()
...
datagrid.columns(numero colonna).caption="pippo"
...
end sub
PS: ho premuto F1....;-)
Ciao
Alex
Newsgroup: it.comp.lang.visual-basic
Titolo: Creazione di un Sito Visual Basic in Italiano

Mi piacerebbe creare insieme ad altre persone un sito sulla programmazione
in Visual Basic o magari entrare in collaborazione con altri siti gia'
esistenti per aiutare a realizzare nuove rubriche . Per qualsiasi cosa il
mio indirizzo di posta e' :
fon...@microelettra.it
Un salutone Claudio  :-)

...


Ciao Claudio!!!
Sono interessatissimo al sito su Visual Basic!!!
Tienimi aggiornato!!!
ciao da Alfonso.


Io un sito ce l'ho e anche abbastanza massiccio. Sono interessato a
collaborare.
Ciao.
Federico Galli
FedE...@tin.it
Visual Basic and Delphi
http://www.geocities.com/colosseum/loge/2151

Rendo disponibile lo spazio sul nostro server per creare il sito.
fatemi sapere.
Ciao

E' tanto tempo che io ci penso, tempo fa ho realizzato un sito che era
simpatico, si potevano lasciare programmi beta, sorgente, esempi, poi
l'ho un po' abbandonato perchè la partecipazione era minima, pochi
erano disposti a offrire anche i codici sorgente dei programmi, però
vedendo questo messaggio mi è un po' tornata la speranza, sto giusto
rimodernando il mio vecchio sito, teniamoci in contatto !!!!
PS: Per Federico Galli, potevi anche avvertirmi di questo messaggio !!
blac...@tin.it
 
http://www.geocities.com/SiliconValley/Way/8960

>PS: Per Federico Galli, potevi anche avvertirmi di questo messaggio !!
Macchia Nera! Non mi e' venuto in mente...
Ciao Simo.

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT]: Auguri a tutti del NG

Mago.Poof()
Un augurio a tutti del ng......
Un felice Natale ed un buon 2002
e che Babbo Natale porti a tutti voi tanti contratti .............
Mago.Poof()

 e che Babbo Natale porti a tutti voi tanti contratti .............
SPERIAMO!.....anche a te....Buone Feste....
SIMO

 ha scritto nel messaggio
news:TlMU7.26447$OP2.9...@news2.tin.it...


 ha scritto nel messaggio
news:TlMU7.26447$OP2.9...@news2.tin.it...


 ha scritto nel messaggio
news:TlMU7.26447$OP2.9...@news2.tin.it...


ovviamente contraccambio.......
Buon Natale e Felice 2002...........
--
Damiani Liborio Igor
idam...@hotmail.com
 - 
igor.d...@light.it
http://www.igordamiani.it
ICQ : 11847262

 e che Babbo Natale porti a tutti voi tanti contratti .............
no! che mi porti tanti soldi, non contratti, quelli ne ho già abbastanza :))
--
Buone Feste
Fabio Guerrazzi
VB Graphic Developer
http://www.sourcecode4free.com/cgt
fab...@libero.it

Ricambio gli auguri a te e a tutto NG
Divertitevi e non pensate ad altro,
non fate come me che ho ancora
molto lavoro da fare prima del 31
Cioa Enzo
www.scozzaro.it

Auguri a tutti!
CiaoZ
SebaMix

AUGURI
urlo cosě mi sentono anche negli altri NG
:)
L2K

 ha scritto

auguri a tutti, j.

urlo cosě mi sentono anche negli altri NG
Hai urlato?
Allora ti plonko :PPP
Auguri a tutti :-)
-- 
ciao, hal

Un augurio a tutti del ng......
Eredito i tuoi auguri e li estendo a tutti i vostri cari...
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
---------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Risoluzione Schermo

Vi prego ragazzi aiutatemi!!!,
Stò sviluppando un'applicazione che verrà utilizzata in multiutenza, però
molti utilizzatori hanno dei vecchi PC con una risoluzione 800x600, mentre
altri hanno 1024x768(come la mia). se io creo i form con i relativi
controlli, quando eseguo il prog. su 800x600 quello che appare e' a dir
poco raccapricciante(praticamente non posso usare la meta' delle funzioni,
tra cui il tasto per chiudere). come posso fare, ho visto il resize() ma
non ci ho capito molto. E' mai possibile che non abbiano pensato a questo
problema???, sicuramente c'e' qualche impostazione da fare che non conosco.
Grazie a tutti come sempre.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 c'e' qualche impostazione da fare che non conosco.
Prepara tutto per 800x600.
Su 1024x768 si vedrà un pochino più piccolo, ma va bene lo stesso.
Oppure prepara due versioni di ogni form e scegli quale usare leggendo le
impostazioni prima di visualizzare ciascuna form.
Oppure puoi cimentarti col resize (ci sono anche routine già fatte in rete),
ma ci sono controindicazioni un po' complesse.
Oppure passa a .Net, che se non sbaglio fa tutto da solo.
Ciao
Alberto

 > Vi prego ragazzi aiutatemi!!!,
ehila', abbiamo sbloccato il caps ! bene bene :)

oppure prova l'ocx che trovi al link qui sotto.
mi sembra fatto bene, ma l'ho testato davvero poco.
http://business.vsnl.com/rationalbrains/index.html
albe: tu cosa faresti se di una stessa app gli utenti volessero 800 small,
800 large, 1024 small, 1024 large, e comunque quando ne hanno una davanti
non gli va bene perche' o e' piccola o non ci sta ?
l'utenticidio e' perseguibile ?
ciao, j.

 Oppure passa a .Net, che se non sbaglio fa tutto da solo.
"fare tutto da solo" è un pochino esagerato.
diciamo che può semplificare un po' la cosa.
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 l'utenticidio e' perseguibile ?
Per il large o small mi cambia poco, perchè 'penso' sempre ai controlli come
se venissero popolati in large, quindi abbondo quanto a spazio.
Su 800, 1024, ecc..., cerco di realizzare tutto per 800x600. O, come
successo di recente, addirittura per il 640.
L'utenticidio è perseguibile.
Quello che va depenalizzato (visto che oramai si depenalizza di tutto...) è
l'assicuratorecidio.
Alberto
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] VB6 + WIN95 COME INSTALLO?

PROBLEMA ENORME!!!
Ho installato WIN95 PRIMA VERSIONE senza nessuna altra applicazione.
Ho provato ad installare una mia applicazione (setup) fatta da WIN98 con
VB6.
Installa il tutto, faccio partire l'exe ed ecco che esce la scritta:
1. se uso VISE installer al RUN mi dice: TABCTL32.OCX  FAILED TO LOAD SSTAB
FROM YOUR VERSION OF TABCTL32.ocx may be outdated...
2. se uso invece il programma di installazione di VB6, creazione di
pacchetti, addirittura durante l'installazione mi dice IMPOSSIBILE
REGISTRARE DAO360.DLL MSJRO.DLL e MSADOX.DLL
Accidenti anche il REGSRV32 non serve a nulla... che si fa?!?
Come mai ?
ciao
Franco

Un'enorme difficoltà di installazione che non capisco proprio per la mia
poca conoscenza nel campo del SETUP.
Ho fatto una applicazione sotto WIN98-SE / VB6 -SP3
Ho provato a fare creare un SETUP dal suo programma di creazione di
pacchetti di installazione.
MAMMA MIA  CHE DISASTRO... questo SETUP fa funzionare la mia applicazione
solo su sistemi che sfruttano WIN98 SE e null'altro, inoltre con alcune
versioni mi comunicano di avere problemi addirittura a far funzionare il
tutto.
Sotto WIN95 addirittura non riesce nemmeno a funzionare e mi comunica
IMPOSSIBILE registrare DAO360 MSJRO MSADOX.DLL e si stinca l'installazione.
Allora ho sfruttato VISE che come setup è molto ma molto meglio, ma anche
qui incorro in problemi quando voglio far partire l'applicazione da
WINDOWS95 o da altri sistemi.
Cavolo... sotto WIN95, alla fine dell'installazione mi dice: FAILED TO LOAD
SSTAB FROM YOUR VERSION OF TABCTL32.OCX may be outdated...
Anche il REGSRV32 non serve a nulla registrando le due cose.
COMUNQUE DEVE ESSERE POSSIBILE:
Ho fatto una prova, ho installato OFFICE2000 (in particolare access 2000) e
come per magia, alla fine dell'installazione di OFFICE2000 la mia
applicazione gira perfettamente su tutti i sistemi di windows,
Ora mi chiedo, dato che non posso distribuire OFFICE2000 con la mia
applicazione:
- MA COME CAVOLO FACCIO A FAR PARTIRE LA MIA APPLICAZIONE SU TUTTI I
COMPUTERS ?-
Premetto che la mia applicazione gira senza ACCESS ma suppongo che qualche
libreria di ACCESS venga sfruttato dalla mia applicazione di DATABASE!!!
AIUTOOOOOOOO!

Newsgroup: it.comp.lang.visual-basic
Titolo: Connessione a Database

Ciao a tutti,
                    mi stavo chiedendo se è possibile fare la connessione ad
un database tramite un file DSN? , se è possibile qualcuno mi può spiegare
come si fà??
Grazie mille
Ciao Gabriele
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB 6 e form MDI] Form MDI Child in primo piano

Ciao,
scusate il tormento ma se non finisco entro domani sera il mio capo gioca a
biglie con i miei aggeggi:
Ho un probema:
Ho una Form MDI che contiene altre 10 Form filgie.
Una sola di queste 10 deve stare sempre in primo piano rispetto alle altre
9, anche se clicco su qualsiasi altra form questa deve stare in primo piano.
Non mi interessa se perde il focus ma deve stare il primo piano.
Non ho trovato nessuna proprietą a riguardo . Ho provato anche il codice che
usavo per le form normali ma non funziona. Che posso fare?
Allego di seguito il codice che ho provato:
Option Explicit
      Public Const SWP_NOMOVE = 2
      Public Const SWP_NOSIZE = 1
      Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
      Public Const HWND_TOPMOST = -1
      Public Const HWND_NOTOPMOST = -2
      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 Function SetTopMostWindow(hwnd As Long, Topmost As Boolean) As Long
       'Call LogData("Form on top Init")
       If Topmost = True Then 'Make the window topmost
          SetTopMostWindow = SetWindowPos(hwnd, HWND_TOPMOST, 1, 1, 1, 1,
FLAGS)
       Else
          SetTopMostWindow = SetWindowPos(hwnd, HWND_NOTOPMOST, 1, 1, 1, 1,
FLAGS)
          SetTopMostWindow = False
       End If
       'Call LogData("Form on top End Init")
End Function

On Thu, 21 Nov 2002 16:15:14 GMT, "Marcolino7" <pi...@pippo.pip> wrote:
Premetto che non ho provato, ma ad occhio dovrebbe andare (mai dire
cosě! :-)
prova a subclassare la mdi, intercettare il messaggio
wm_windowposchanging ed impostare a 0 il zorder della form che ti
interessa.
Occhio a bloccare la propagazione del messaggio altrimenti ho paura che
venga generato anche il  poschanged e di conseguenza uno spiacevole
refresh.
Fammi sapere se funzia o che fine fanno i tuoi attributes... :-P
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
---------------------------------------------------------------------------

 ha scritto nel messaggio
news:qrkqtugpou0hrimdv...@4ax.com...


...


> refresh.
A dire il vero credo che dovrebbe crasharsi, poiché in risposta al
poschanging, cambiando il zorder ne generi un altro...

Newsgroup: it.comp.lang.visual-basic
Titolo: Colore di un punto

Devo dire al programma di vedere che valore RGB è assegnato ad un
determinato pixel, cioè di che colore è questo pixel del desktop. Ad esempio
voglio sapere di che colore sia il pixel (100,234). Cosa posso fare? che
istruzione devo usare?
Ringrazio tutti i programmatori che mi aiuteranno: è molto importante che io
sappia come fare!!
 Grazie a tutti ragazzi!

 wrote in message
AykF5.14884$Z95.4...@news.infostrada.it...

Chiedo ulteriore aiuto. Con la GetPixel non si può fare, solo se ho una
picturebox o cose del genere vero?

 istruzione devo usare?
non ho provato, ma se dovessi farlo tenterei con GetDC(0) e GetPixel()
Ciao
Faber

picturebox o cose del genere vero?
Basta copiare l'area del desktop in una picturebox. Non ricordo se ci sia un esempio sul SC: e non
c'è, senza che cerchiate tra i vecchi post, ditmelo che lo cerco...
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
---------------------------------------------------------------------------

 sappia come fare!!
    Dim DeskWnd As Long
    Dim DeskDC As Long
    DeskWnd = GetDesktopWindow()
    DeskDC = GetDC(DeskWnd)
    Call BitBlt( ... )
    ReleaseDC DeskWnd, DeskDC
ciao
xAERO

     ReleaseDC DeskWnd, DeskDC

 volte + veloce
A parte il fatto che non gli spieghi come e cosa blittare, la funzione
BitBlt() non restituisce un colore, che è l'informazione cercata, ma
soltanto un valore che indica il successo o meno dell'operazione.
Quindi, che se ne fa ? Dovrebbe comunque fare un GetPixel() nel
DC di destinazione.
Che il DC di origine non supporti GetPixel() è possibile, comunque
prima lo si testa con GetDeviceCaps().
Il fatto che BitBlt() sia "20 volte" più veloce di GetPixel() lo riporti
per sentito dire o che altro ?
BitBlt() è la funzione più veloce - a livello GDI - per la copia di un
DC in un altro. Non è la funzione più veloce _in assoluto_ a completare
un task.

 un task.
ops! scusa, ho detto una cazzata io
non so dove l'ho letto, ma credevo che lui volesse copiare una parte di
schermo in un PicBox o in un Form... poi ho letto tu che volevi usare
GetPixel e ho pensato che volevi inserirlo in un doppio ciclo form per
ridisegnare in un PicBox con PSet l'area letta, e ho pensato che sarebbe
stato terribilmente lento...
scusate...  :)
--
ciao
xAERO
Newsgroup: it.comp.lang.visual-basic
Titolo: [URGENTE] Visual basic e win 2000 server

Innanzitutto saluto tutti e ringrazio per eventuali risposte.
Vi pongo il mio problema:
Ho installato da poco windows 2000 server sulla macchina sulla quale
sviluppo con visual basic 6 service pack 3
Da quando sono passato a questo sistema operativo non riesco piu' a
debuggare gli oggetti in visual basic (ad esempio una dll) chiamati da
un'altro porgramma visual basic.  Se nelle referenze lascio la dll compilata
funziona, ma se apro un'altra istanza di visual basic non si "aggancia" e mi
da errore 450 (impossibile creare l'oggetto). Su altri sistemi operativi
tutto andava (e va) liscio.
Se qualcuno avesse avuto lo stesso problema ed avesse trovato la soluzione
sarei lieto se potesse cominicarmela, perche' sono veramente nei pasticci
Saluti a tutti
Alex

Rettifico... il numero di errore runtime e' 430
Inoltre lo stesso tipo di problema si verifica con l'aggancio tra visual
basic e interdev

 wrote in message
IApE5.25920$N93.8...@news.infostrada.it...


 mi sembra che è arrivato il momento di installare service pack 4.ciao.
L'ho installato stamattina. Il problema persiste.
Ciao

 wrote in message
news:IApE5.25920$N93.8...@news.infostrada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Controllare un processo MS-DOS

Devo aprire un processo MS_DOS, nel frattempo aumentare gli scatti di una
status bar e nel momnento in cui finisce il
processo devo chiudere il programma con un semplice UNLOAD.................
Se qualcuno puņ aiutarmi gliene sarei molto grato.......
FABIANO............GRAZIE

 wrote in message
news:7lv7ka$kft$1...@fe2.cs.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiutatemi con queste DBgrid, vi prego !!!!

Sto cercando di capire come utilizzare il pulsante presente nelle
colonne delle DBGrid, cioè quello che dovrebbe funzionare come una
ComboBox.
Se qualcuno può aiutarmi, gliene sarei gratissima, visto che sull'help
di VB non c'è nessun aiuto.

...

Non ci riesci perche quello e' _solo_ un pulsante. NON e' una combobox.
Prova a dare un'occhiata sul Sito Comune, nella sezione Piccole Perle, c'e'
un esempietto su come mettere una combo su una DBGrid (un barbatrucco).
http://members.xoom.com/it_lang_vb
Saluti
Ciao
By -MES-   Maronese Ettore
http://ilmes.freeweb.org
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://members.xoom.com/it_lang_vb

Ti ringrazio per l'aiuto, ma non sono riuscita a trovare quello che dicevi
nelle Piccole Perle. Mi puoi dare un'indicazione più specifica?
Grazie mille,
ciao ciao
            Ursula


nelle Piccole Perle. Mi puoi dare un'indicazione più specifica?
Caspita, hai ragione!
E' andata persa nel passaggio dalla vecchia alla nuova grafica :-(
Comunque ho ripristinato il giusto ordine delle cose :-)
Ti chiedo scusa si ti ho fatto girare per il sito a vuoto. Per farmi
perdonare ti posto qui quello che e' ora veramente reperibile anche sotto
Piccole Perle.
------------------- INIZIO
Posizionare una Combobox su un DBGrisd
Se si ha la necessita' di avere una selezione dei valori da inserire in un
campo di una DGBrid, e' possibile farlo simulando una combo nella casella
della DBGrid, col codice qui riportato.
(autore: Francesco C. & Ettore Maronese)(fornitore: Ettore Maronese)
Come procedere:
1) Aggiungere una DBGrid1 al form
2) Aggiungere una Combo1 al form
3) Aggiungere il codice qui sotto
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA"
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam
As Long) As Long
Private Const WM_KEYUP = &H101
Private Sub DBGrid1_KeyUp(KeyCode As Integer, Shift As Integer)
    Dim x As Long, y As Long
    Dim c As Integer
    ' il tasto &HF4 non esiste, e' un messaggio per spostare la combo
    If KeyCode = &HF4 And Shift = 0 Then
        If DBGrid1.CurrentCellVisible Then
            c = DBGrid1.Col
            x = DBGrid1.Left
            y = DBGrid1.Top
            Combo1.Width = DBGrid1.Columns(c).Width
            Combo1.Left = x + DBGrid1.Columns(c).Left
            Combo1.Top = y + DBGrid1.RowTop(DBGrid1.Row)
            Combo1.Visible = True
        Else
            Combo1.Visible = False
        End If
    End If
End Sub
Private Sub DBGrid1_RowColChange(LastRow As Variant, ByVal LastCol As
Integer)
    ' Aggiurno la posizione della combo di edit simulando il tasto &HF4 (che
non esiste)
    Call DBGrid1_KeyUp(&HF4, 0)
End Sub
Private Sub DBGrid1_Scroll(Cancel As Integer)
    ' Aggiurno la posizione della combo di edit simulando il tasto &HF4 (che
non esiste)
    Call PostMessage(DBGrid1.hwnd, WM_KEYUP, &HF4&, &H40F40000)
End Sub
------------------- FINE
Salutoni
Newsgroup: it.comp.lang.visual-basic
Titolo: Gestione del TimeOut della pagina

Il mio programma si connette via FTP ad un particolare sito, il mio problema
consiste:
quando non ci si puo' connetere al sito per particolari problemi di linea il
mio programma va in TimeOut, si ferma e io devo rifare ripartire tutto da
capo. Io voglio cercare, quando va in timeout, di cercare di continare a
collegarmi al sito, magari ogni 15 secondi, o anche in
continuazione.....come posso fare???
Ciao e grazie
        Chiara

Sperando che ho capito quello vuoi potresti mettere nella funzione
in cui ti connetti un bel:
private sub tal_dei_tali()
On error goto errore
    exit sub o function
errore:
    if err.number= errore_generato_timeout then call
riconnettiti(indirizzo_ftp)
end sub
Che oggetto utilizzi?Inet?
Ma per sito ti intendi un indirizzo ftp
(
ftp.microsoft.com
 in cui entri nel loro server)
oppure è un sito Web?
Ciao
Oz

 oppure č un sito Web?
E' un sito web
Ciao e grazie
         Chiara

Newsgroup: it.comp.lang.visual-basic
Titolo: Dove si trova il mio programma?

Vorrei sapere il codice per dire al programma in che directory si trova.
Esempio:
                eseguo "MioProgramma.exe" che deve sapere dove si trova se
stesso (in che directory) per eseguire altri file (scusate ma a volte non mi
riesce di essere chiaro :-)   ).
Come si fa?
                    Grazie per tutte le risposte
                Auguro a tutto il NG Tanti Auguri di Buon Natale
                            Fabiano

App.Path
---
GbC
http://gbc.homeip.net
---

 Esempio:
App.Path
quarda sull'Help oggetto App
Ciao stefano

Newsgroup: it.comp.lang.visual-basic
Titolo: ADO e cursorlocation

Qualcuno sa dirmi quale tipo di cursorlocation utilizzare per i recordset?
Dai miei test sembra che il cursore lato server sia piů veloce, ma in Rete
ho trovato siti che dicono che adUseClient č migliore.
Grazie
-- 
Posted from  [212.102.33.108] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ho trovato siti che dicono che adUseClient è migliore.


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

Sono riuscito a scanerizzare mediante
controllo imgedit ecc.
Con che sistema posso salvare le immagini tiff
per avere il minor spazio ocupato e la miglior
qualita' ???

...

Non devi salvarle in tiff....

Qualche suggerimento su come eseguire piu' INET contemporaneamente ????
quando uno parte , finche non finisce non restituisce il controllo al VB.
Grazie Claudio





qualita' ???
Saresti tanto gentile da spiegarmi come hai fatto? sono TRE SETTIMANE che ci
provo ed ora non so proprio cosa altro inventarmi per riuscirci
GRAZIE MILLE!!!!!!!
Newsgroup: it.comp.lang.visual-basic
Titolo: Collegamento a sql server 7 senza utilizzare odbc

Salve !!!
come posso fare a collegarmi a sql server 7 senza utilizzare driver odbc...
mi dicono ce e' piu sicuro e piu' performante !!!
ora utilizzo queste riche
    Private oADANA As ADODB.Recordset
    Private cn As ADODB.Connection
    Set cn = New ADODB.Connection
    Set oADANA = New ADODB.Recordset
    Set oADANA2 = New ADODB.Recordset
    cn.ConnectionString = "DSN=Pc_Aie;uid=max;pwd=12345"
    cn.Open
    oADANA.Open "select * from Adana WHERE RagSoc1 Like '" + ws_Ric.Text +
"'", cn, adOpenKeyset, adLockOptimistic
Grazie 1k
Massimo

 ha scritto nel messaggio
news:9e08op$lck$1...@pegasus.tiscalinet.it...


 ren \\it.comp.lang.visual-basic \\it.comp.lang.database
Per tua informazione, visto che ti stanno tanto antipatiche le domande sui
database, si dà il caso che Vb permetta di usare gli oggetti Dao, gli Ado ed
anche Odbc.
Inoltre buona parte dello sviluppo non "giocoso" su Vb ha a che fare con la
gestione dei dati.
Domande sull'uso dei database NON sono OT, come credo che ti potranno
confermare tutti.
Se hai bisogno di pubblicizzare un altro Ng, fai pure, con discrezione
please... , se hai voglia di rispondere -seriamente- anche, sennò non
rompere le...  OOOO
( p.s.
Chiedo scusa a tutti per lo spazio inutile occupato da questa serie di
risposte.)
ciao
ugo


Che io sappia tutti i client per Sql Server utilizzabili da Vb usano,
esplicitamente o implicitamente, Odbc.
Francamente, non credo che l' - eventuale - incremento di performance
rispetto all'uso di Ado valga gli sforzi di sviluppo e manutenzione del
codice che implicherebbe.
ciao
ugo

 ha scritto nel messaggio
news:9e08op$lck$1...@pegasus.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Duplicare un record di un recordset

Ciao a tutti.
Ho un recordset che riempio prendendo dati da varie tabelle di un database
SqlServer 2000.
Avrei la necessità di duplicare alcuni record, ossia di inserire un record
identico a quello che ho appena inserito (tranne alcuni campi che cambierò
successivamente).
Come posso fare?
In un primo momento ho pensato di utilizzare GetRows per salvare i dati del
record corrente in un Array, fare un AddNew nel recordset ed inserire i dati
nel nuovo record leggendoli dall'Array.
Poi ho pensato che potrebbe andare bene l'oggetto Record di ADO, ma non l'ho
mai usato e non sono riuscito a metterlo in "collegamento" con il recordset.
Avete qualche idea?
Grazie e ciao.
-- 
Skysurfer

 che cambierò successivamente).
L'hai inserito? Rifallo, con le modifiche del caso, e ne avrai un altro.
Leggendoti davvero non si capisce quale possa essere il problema.

Avete qualche idea?
L'oggetto record sembra essere "abbastanza slegato" dall'oggetto
recordset.
http://www.askasp.com/wrox/ado_chp8/27500802.htm
Ciao!
Newsgroup: it.comp.lang.visual-basic
Titolo: Visualizzazioni bloccate

Ciao a tutti...
Spero di aver azzeccato il NG giusto....eh eh eh
Ho un problema di questo tipo:
In un foglio excel, ho messo un pulsante che attiva una macro in Visual
Basic di Excel.
Tale macro seleziona delle celle su piu' fogli e ne cancella il contenuto.
Siccome i fogli sono molti, a video si vedono le operazione che fa,
continuando a cambiare finestra ....insomma va un po' insieme la vista.
Non esiste un comando che permetta di eseguire il codice, senza che l'utente
veda tutte le operazioni a video; che causano anche un rallentamento.
Vorrei che cliccando questo pulsante, la visualizzazione rimanga sul foglio
dove c'e' il pulsante, mentre il codice viene eseguito.
In Lotus esiste il comando: MENUINVIS e FININVIS.....
E in Excel?
Grazie a tutti.
Ciauz..........
*************************************************
Oriano (yayo)
Era meglio morire da piccoli........
no spam, please....

 ha scritto nel messaggio
news:3a89625f$1...@nnrpsrv.unisource.it...


 Grazie a tutti.
Application.ScreenUpdating = False     'Disattiva l'aggiornamento dello
schermo
Application.ScreenUpdating = True      'Attiva l'aggiornamento dello schermo
Ciao VB

Newsgroup: it.comp.lang.visual-basic
Titolo: L'AGO NEL PAGLIAIO


Parli di questo qui ?
http://www.aptech.com/s2_whatis.html
Sal

 ha scritto nel messaggio
news:CNFI7.40990$Y54.1...@weber.videotron.net...


 wrote in message
news:w8OI7.13591$5l.3...@news1.tin.it...


 > Sì, grazie!


Newsgroup: it.comp.lang.visual-basic
Titolo: Estrazione numeri

Avendo per esempio 10 numeri, come faccio (in modo casuale) a fare si che mi
estragga delle serie di numeri (serie da 2, da 3, da 4 o da 5) ?
Per esempio: io inserisco 5 numeri e voglio che lui mi estragga in modo
casuale 3 coppie di numeri.
CiAo :-)


sub estrai()
' I numeri sono memorizzati in un array NUM(5)
for i=1 to 3
	msgbox ("Coppia :" & NUM(CInt(Rnd(1)*5)+1) & "," &
NUM(CInt(Rnd(1)*5)+1))
next i
end sub

 end sub
Grazie, ma l'utente ogni volta dice quante combinazioni vuole, e dice se le
vuole di 2, 3, 4, o 5 numeri.
Supponiamo che una variabile contenga il numero di combinazioni da creare,
un'altra il numero di numeri che ogni combinazione deve avere, un'altra i
numeri da gestire e un'altra il numero di numeri inseriti
Come faccio a modificare la funzione in modo che si adatti ogni volta ?
Un'ultima cosa: ogni numero di una combinazione deve essere diverso dagli
altri.
Grazie mille.
CiAo :-)

> estragga delle serie di numeri (serie da 2, da 3, da 4 o da 5) ?

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] [matemaica] Arrotondamenti particolari... come?

Mettiamo di avere un ipotetico numero n a virgola mobile, quale potrebbe
essere ad es. quello che risulta da
Rnd * 10.
Poniamo di avare anche un numero x anch'esso a virgola mobile ma con un
numero di decimali finiti, come ad es.
0.2, 0.48, 1.622 o 2 (zero decimali).
Il mio intento č quello di trovare il multiplo di x che piů si avvicina a n,
cioč arrotondare n su x.
esempio
n = 7.058415
x = 0.2
y => 7
n = 7.358415
x = 0.2
y => 7.4
n = 7.258415
x = 1.5
y => 7.5
n = 7.258415
x = 3
y => 6
Qualche idea che escluda loop empirici?
Ciao

 cioè arrotondare n su x.
[cut]
Mi pare che
Function Round(ByVal n As Single, ByVal x As Single) As Single
    Round = Int(n / x + 0.5) * x
End Function
possa essere la funzione che cerchi.
Ciao
Raf

 possa essere la funzione che cerchi.
Sembra ottima :)
Qualche problema di arrotondamento in .Net ma aggirabile con un
Math.Round(y, 5)
Ciao
--
Reporting tool: 
http://www.neodatatype.net

Newsgroup: it.comp.lang.visual-basic
Titolo: evento "su corrente" di msaccess in vbexpress 2010

Ciao a tutti
Sono nuovo di vb e sfruttando le conoscenze acquisite lavorando per
anni con MS-Access, sto cercando di "tradurre" un programmino che ho
realizzato qualche anno fa, riportandolo interamente in vb2010 tranne
le tabelle che resteranno sempre su db access (visto che per ora non
ho trovato il modo di collegare file di testo ed archivi dbf su vb).
Ho realizzato una maschera di visualizzazione dati + relativa foto di
cui il percorso è già presente nelle tabelle.
In access, nel'evento "su corrente" della maschera dati, ci inserivo
il comando  "immagine.picture=me.percorso" e scorrendo i vari record
avevo dati e foto. In Vb ho trovato il modo di visualizzare la foto
con "immagine.ImageLocation = PercorsoTextBox.Text" ma tra gli eventi
non trovo quella relativa al record corrente"...
su che evento devo inserire il comando in modo da associare dati +
foto?
scusate per le domande banali
Nicola

 foto?
Devi postare un po' di codice su come ora carichi i dati.

On 26 Apr, 17:58, "Andrea [Work]"

Al momento ho effettuato un semplice collegamento ad una tabella del
db access che contiene i dati e creato una form trascinandoci i campi
che mi servivano quindi codice vero e proprio (a parte quello per la
visualizzazione della foto) non ce n'è...
il dilemma di oggi è: come faccio a far cambiare la foto cambiando
record?
Nicola

 record?
Se ti ha fatto un BindingSource dovresti avere l'evento CurrentItemChanged
e da lě leggere la riga corrente:
AnagraficaBindingSource.Current
Questo ti da l'oggetto che puň essere credo un DataRowView o un DataRow. Da
lě accedi alla colonna del datarow che ti interessa.
http://msdn.microsoft.com/it-it/library/system.windows.forms.bindingsource.current.aspx