mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Confronto proprietà campi DB (VB.NET)

La mia situazione è questa:
Gli utenti si connettono tramite la mia applicazione ad un database
Access.
Le proprietà dei campi di questo DB (ad esempio lunghezza massima
testo, valore predefinito, richiesto, indicizzato ecc..) potrebbero
però essere modificate per motivi che non posso controllare.
Vorrei, perciò, creare una funzione che mi confronti tutti i campi del
database degli utenti con la loro struttura corretta, e mi fornisca i
nomi di eventuali campi che non hanno le proprietà richieste.
Io non so da dove partire per recuperare queste proprietà... qualche
aiuto?
Ciao e grazie

Dopo che hai aperto il dataset con la tua query, basta che cicli sulle varie 
"Columns" della tabella che ti interessa e scoprirai che ti danno le 
informazioni sui dati che rappresentano.
In alternativa puoi usare ADOX come oggetto COM.
Scusa la curiosità ma che tipo di applicazione è che cambia il tipo di dato 
contenuto in una colonna?

 contenuto in una colonna?
è una vecchia applicazione gestionale fatta in access... a volte
vengono fatti degli aggiornamenti dagli utenti che poi si lamentano
che non va piu niente con il mio programma... in questo modo posso
capire velocemente qual'è il campo incriminato.
ciao e grazie!


è il dramma di access .....se hanno installato office ti cambiano la
struttura(è un mondo di spippoloni e di segretarie "imparate").
Soluzione Tampone
Password sul database....a te cambia solo la stringa di
connessione...se poi parametrizzi il tutto mettendo la password in una
variabile.....fai copia ed incolla solo dove hai la stringa di
conessione
Soluzion definitiva
sqlexpresss...si può instalare in rete MA ANCHE in locale....e l
diventa più difficile modificare un campo o una tabella se non si ha i
privilegi giusti
....pensaci!
Newsgroup: it.comp.lang.visual-basic
Titolo: [!] Architettura .NET e fregature...

Ragazzi, leggete cosa dice Eric Gunnerson di MS del nuovo framework
.NET: praticamente, non ci vorrà una cippa a fare il
reverse-engeneering del codice, anche compilato!
«
To get another touchy question out of the way: “If somebody can look
at my IL and metadata, can’t they reverse-engineer my code?” The
answer to that is “Yes, they can.” This isn’t really any different
than the world in the past, as optimized x86 code could also be
reverse engineered.
The difference is the amount of effort required; it’s a lot easier to
do in .NET than it was for native x86 code. This is another issue that
we’re working on. 
»
Eric Gunnerson is the QA lead for the C# compiler team, a member of
the C# design team, and the author of "A Programmer's Introduction to
C#." He's been programming for long enough that he knows what 8-inch
diskettes are and could once mount tapes with one hand.
--
DoS :: 
dos...@hotmail.com
«Non la forza, ma la costanza
di un alto sentimento fa gli
uomini superiori», Nietzsche

 reverse-engeneering del codice, anche compilato!
Si, si sapeva.
Per ora è tutto in chiaro... anzi, nel beta 1 Microsoft fornisce proprio
parecchi strumenti per andare a ficcare il naso dentro i compilati IL.
Mi sembra anche ovvio... altrimenti come si fa a vedere se ha compilato
tutto come dovrebbe?
Si tratta di cose che verranno tolte via via lungo il cammino verso la
release finale.
Byee
Zeross

Si 'parla' di una possibile criptatura del codice da parte del
compilatore...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] FORM1 uguale a FORM2

ho costruito la form1 contenente textbox,combo,list etc.. etc
ora devo costruire la form2 identica alla form1 come posso fare?
basta un copia incolla ? (orrribileeee!)
avete qualcosa di piu' intelligente da proporre?
grazie mille
Luciano

 wrote in message
8t8k9s$38ec$1...@stargate1.inet.it...


 wrote in message
8t8k9s$38ec$1...@stargate1.inet.it...


 wrote in message
news:8t8k9s$38ec$1...@stargate1.inet.it...


 wrote in message
8t8k9s$38ec$1...@stargate1.inet.it...


 wrote in message
8t8k9s$38ec$1...@stargate1.inet.it...


 ha scritto

cambia nome a form1 -> form2
salvalo con nome -> form2.frm
inserisci | form | esistente -> form1.frm

 wrote in message
8t8k9s$38ec$1...@stargate1.inet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto importante per database

Salve a tutti,
ho urgentemente bisogno di un aiuto.
Una mia applicazione contiene un database Access composto da una tabella
contenente due campi. Uno dei due campi contiene vari codici, l'altro
contiene la descrizione di ognuno dei predetti codici.
Ho bisogno dare all'utente la possibilità di cercare un codice inserendo in
una casella di testo quello che lui sa della descrizione.
Mi spiego meglio con un esempio:
se l'utente conosce un codice per esempio F881 che corrisponde a: "questo è
un esempio molto lungo da leggere", allora tutto bene sa già quale codice
usare, ma se l'utente non sà quale codice usare per la frase di prima allora
dovrebbe inserire in una casella di testo le parole che ricorda per esempio
"questo" o "esempio" e il programma gli dovrebbe restituire il codice F881 o
magari tuti i codici la cui descrizione comprende le parole da lui immesse,
magari più parole immette più si restringe il campo di ricerca. Insomma
vorrei una ricerca tipo quella che offre excel con trova.
Purtroppo non conosco bene i database, qualcuno potrebbe essere così gentile
da aiutarmi?
Vi ringrazio anticipatamente
Vincenzo

 wrote in message
8o11r2$9jq$1...@sirmdpsin16.inwind.it...

filtra il recordset caricato in base al cntenuto della textbox
rs.filter="nomecampo like '%" & text1.text & "%'"
cerca tutti quelli che iniziano e finiscono per qualsiasi cosa(il simbolo %)
e che contengono il testo in text1
volendo si possono uitilizzare gli operatori logici AND o OR

Newsgroup: it.comp.lang.visual-basic
Titolo: SQL server - security

E' possibile intervenire da VB sulla security di SQL2000 (creazione di
logins, gestione delle permissions etc)?
Dove posso trovare qualche esempio?
Grazie a tutti

Devi usare le Store Procedure di SQL.
DBCon.execute = "sp_createlogin" ....
le store procedure che ti servono sono:
sp_addlogin
sp_addrolemember
sp_grantlogin

 wrote in message
news:9ajucv$57e24$1...@ID-66163.news.dfncis.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: [2?]Aprire un recordset ed accodare le modifiche come nuovi record

Salve a tutti!
Ci riprovo....ho un problema che non riesco a risolvere e credo che sia più
concettuale che tecnico.
Tramite ADO mi connetto a 3 tabelle in un file Access e recupero i dati che
mi servono popolando dei textbox ed una flexgrid.Lo scopo è quello di avere
nei textbox i dati anagrafici di un' azienda e nella flexgrid i dettagli
dell'estratto conto inviatogli(operazioni, importi, ecc).
Bene fino a qui tutto ok: definisco 2 recordset che mi collegano i dati
dell'azienda ed i dettagli dell'estratto conto.
Sono separati perche' devo poter scorrere la griglia con i dettagli
indipendentemente dai dati dei textbox.
L'utente deve  modificare alcuni valori presenti nella griglia o aggiungerne
di nuovi, cancellarne, ecc....e, una volta terminato, i dati della griglia
devono essere inseriti nella tabella Access relativa ai dettagli come nuovi
record(in coda) ed ovviamente anche la tabella che funge da relazione tra
quella dell'anagrafica e quella dei dettagli dovrà essere aggiornata con i
dati del nuovo estratto conto. Ovviamente l'utente puo' modificare anche _un
solo_ campo.
Io non so come fare: clonare il recordset che popola la griglia e accodare
questo a quello originale oppure posso fare tutto con un unico RS?
PS:tutto questo perchè spesso gli estratti conto che spediamo sono molto
simili....cambia solo qualche data o cifra.Quindi se i miei colleghi
potessero richiamarne uno già fatto, apporre le modifiche e generarne uno
nuovo farebbero molto prima.....  :-)
Grazie !
Alex

Beh una soluzione al volo che mi viene, visto che i dati sono comunque
pochi,
perchè immaggino tu li estragga per singolo cliente, potrebbe essere quella
di usare i recordset disconnessi.
In questo caso, quando farai l'updatebatch, automaticamente tutte le
modifiche
1 o mille, verranno riflettute e sparate sul db.
Ciao Andrea

 Ciao Andrea
Ciao e Grazie!!
Alex
Newsgroup: it.comp.lang.visual-basic
Titolo: FileCopy copia e falla

FileCopy copia il file con nome ed estensione, ma con le dimensioni di 1 Kb
non corrispondenti alle dimensioni del file di origine...infatti non è
leggibile.
Sto parlando di file wav...ma penso sia lo stesso con altri file.
FileCopy "origine", "destinazione"
Cosa manca ?
Grazie
-- 
Gulp ! Forse mi sono perso qualcosa !

 Grazie
La butto. Gli lasci il tempo di finire?
-- 
Ciao Gab
ICQ#158859446

 Cosa manca ?
 Mmmmm mi sembra strano che ci sia un "bug" cosi grossolano nella FileCopy,
se ti và posta il pezzo di codice nel quale usi la FileCopy magari il
problema sta in un altro punto del prg!
Ciao
--------------------------------
Inviato via 
http://usenet.libero.it

 ha scritto nel messaggio
news:213Z156Z54Z138Y...@usenet.libero.it...


 ha scritto nel messaggio
news:213Z156Z54Z138Y...@usenet.libero.it...

io l'ho usato, mai dato problemi, cmq sia in alternativa potresti
utilizzare:
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.CopyFile Origine, Destinazione
--
Ciao
Alfredo

 Ciao
 Ciaooo



Vedi che ho ragione. (rif Sotto). Non era il caso di calcare la mano e fare
questa battuta.
-- 
Ciao Gab
ICQ#158859446

 Ciao Gab
  Ciao


 giro...)
Si ma in galera ti obbligano a starci...qui no.
Ti faccio un esempio tu non sei obbligato a rispondere al mio messaggio...
come io non lo sarò al tuo.
Vuoi questo? che gli altri non rispondano più
ai tuoi messaggi???
non rispondere fai una prova lascia cadere la cosa...
quanto durerà questa storia? (domanda che non vuole una risposta)
Spero che non ci fraintendiamo in non prendo le parti di nessuno,non voglio
farlo.
Voglio solo dirti che secondo me stai sbagliando.
Non sul il singolo fatto(quello originario),che tra l'altro non c'ho capito
una mazza,ma perchè
stai prolungando una storia assurda,con questo non ti sto accusando sto solo
cercando di
farti capire che è inutile, finirai per farti una cattiva fama che forse non
meriti.
:)
Ciao
Alessandro
--
Morfeus

Sono con te 100%
Compreso il "non prendo le parti di nessuno"
Finita lě
-- 
Ciao Gab
ICQ#158859446

 Alessandro


"ŠGulp"
prova ad adoperare il fso sotto forma di Folder copy
che "cecca" anche se i files sono gia' presenti e avverte
in caso di tentata sovrascrittura
'object.CopyFolder ( source, destination[, overwrite] );
'overwrite Optional.
'Boolean value that indicates if existing folders are to be overwritten.
'If true, files are overwritten; if false, they are not. The default is true.
 '''''''' On Error Resume Next
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "D:\folder1\*", "C:\destinazione\", False
  If Err <> 0 Then
  MsgBox"Fail"
'send mail
else
  MsgBox"Succes"
End If
Set objFSO = Nothing
PS:
ovviamente puoi provare anche col singolo file con
objFSO.CopyFile "D:\file.xxx", "C:\file.xxx", False
il false ti da errore se il file esiste gia'
--
Fosco

usa l'API SHFileOperation
-> GbC|
www.gbcweb.com

 usa l'API SHFileOperation
eh eh , oramai te ne sei innamorato ^_^

ci faccio anche il caffè :)
-> GbC|
www.gbcweb.com
Newsgroup: it.comp.lang.visual-basic
Titolo: Annullare gli hot key di windows 95

Ciao a tutti,
vorrei sapere se esiste un modo, usando Visual Basic 4.0 a 32 bit, di
disabilitare i pulsanti di windows 95 come ALT+TAB e pulsante avvio.
Come si fa?
Antonio Mirarchi

...

----------
Ciao!
Sul mio sito trovi un esempio che ti mostra come disabilitare le
combinazioni di tasti CTRL+ALT+CANC, ALT+TAB e CTRL+ESC. E' per VB5, ma puoi
sempre aprire il form di esempio con Blocco note e fare taglia/incolla con
il codice.
Alla prossima.
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260/
http://www.armaditaggia.com/marco

Newsgroup: it.comp.lang.visual-basic
Titolo: Help Crystal Report!

Creo un report e lo salvo come .rpt;
Richiamo il report da VB e tutto sembra fnzionare bene fino a quando .....
Dim NumPart as Long
.........
.........
CrystalReportElenchi.SelectionFormula = "({credito.lista} >= NumPart) and
({credito.lista} <= NumArr)"
        Result% = CrystalReportElenchi.PrintReport
Il risultato č:
Result% = 20515
Da notare che se alla variabile sostituisco dei numeri funziona
perfettamente.
Le ho provate tutte ma nulla da fare anche se dalla documentazione sembra
sia possibile passare delle variabili....
Ringrazio anticipatamente quanti riusciranno a darmi un consiglio utile.
Tecnolog

 Il risultato è:


 > Il risultato č:


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

Ciao, ho un problema, vi prego di non ridere:
Quando cancello l'ultimo record di un recordset, non aggiorna le textbox a
lui associati, rimangono i dati del record che ho appena cancellato. Ho
provato con il refresh o update ma niente, per farlo aggiornare dovrei
uscire dalla form e rientrare, ma mi girano un po.. fare ciò per un
aggiornamento. Sapete consigliarmi che cosa devo fare ?
Grazie.
Ciao

 uscire dalla form e rientrare, ma mi girano un po.. fare ciň per un


 wrote in message 385a5...@news.megasys.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: 2 domande su vb2008

Ho installato vb 2008 express per vedere di che si tratta, anche se avevo 
smanettato sul 2005.
1) Il 2005 era corredato di esempi, questo nemmeno l'ombra. Dove posso 
trovare qualche esempio?
2) Questo, installa sql server 2008. L'ho aperto ma non ho visto niente che 
mi faccia creare un database. Di cosa si tratta?
Carmelo 

 mi faccia creare un database. Di cosa si tratta?
Tipo questa?
http://www.microsoft.com/downloads/details.aspx?familyid=08E52AC2-1D62-45F6-9A4A-4B76A8564A2B&displaylang=it
(non l'ho mai installata)

"Andrea [Work]" <andrea.isw...@gmail.invalid> ha scritto nel 
messaggio news:dqa6xxibxvnl$.1b9kcf2s91kkf$.dlg@40tude.net...

Gli esempi del 2005 li converte male, non riporta neanche i controlli.
Carmelo 

 Gli esempi del 2005 li converte male, non riporta neanche i controlli.
Comunque non � che devi toglierlo il 2005, io di express ho tutte le
versioni installate.
Newsgroup: it.comp.lang.visual-basic
Titolo: Gestione file INI

Navigando su internet avevo trovato un sito sulla programmazione in
Visual Basic che che spiegava come gestire i file INI.
Ora non so piu' trovarlo: ne conoscete l'indirizzo?
Ciao
--
Mauro G. Todeschini
e-mail: 
mgt...@lycosmail.com
ICQ UIN: 51957951

Ora non so piu' trovarlo: ne conoscete l'indirizzo?
Sito Comune
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
---------------------------------------------------------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: vai a vedere $$$

www.jennyp.cjb.net
Invia SMS gratis e fai ricerche con altavista......

Newsgroup: it.comp.lang.visual-basic
Titolo: Tesi con VB

Ciao a tutti,
ho bisogno di un consiglio. Ho intenzione di prendere una tesi sul tema 
dei frattali e volevo chiedervi se secondo voi è un argomento che si 
può sviluppare in VB. L'argomento della tesi riguarda una specie di 
giardino virtuale, realizzato, appunto, tramite frattali. E' possibile 
farlo in VB? o è meglio Java? Io preferirei, e di mooooooooolto, VB....
-- 
P.
Clark Kent rappresenta la critica di
Superman alla razza umana.
Bill

 farlo in VB? o è meglio Java? Io preferirei, e di mooooooooolto, VB....
Le Direct3D hanno un buon modello ad oggetti sotto VB, e' sufficientemente
veloce e semplice.

Ecco alcuni esempi di cosa si può fare in VB:
http://www.it-lang-vb.net/archivio.asp?subMenu=Tutte&FullText=on&TypeRic=AND&keyword=frattali
http://www.vbaccelerator.com/home/VB/Code/vbMedia/Algorithmic_Images/index.asp
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
"Seminate Linux, che Windows si pianta da sè...." (Antico Adagio)
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con ADODB

Con questo codice scrivo un record nella tabella "Pratiche" di un certo
DB:
 
......
  Dim cn1 As New ADODB.Connection 
......
  With Pratica
    .Anno = Year(Date)
    .Archiviata = False
    .Data = Lbl_Data.Caption
    If CbBx_Comuni.ListIndex = -1 Then
      .IDComune = 1
    Else
      .IDComune = Ente(CbBx_Comuni.ListIndex + 1).ID
    End If
    .IDResponsabile = Responsabile(CbBx_Resp.ListIndex + 1).ID
    .NumFascicoli = Lbl_fascicoli.Caption
    .Oggetto = TxBx_Oggetto.Text
    .Richiedente = TxBx_Ric.Text
    .Tipologia = Lbl_Tipologia.Caption
 
    strQ = "INSERT INTO Pratiche " _
         & "(Anno, Data, IDComune, IDResponsabile, NumFascicoli, " _ 
         & "Oggetto, Richiedente, Tipologia) " _
         & "VALUES (" _
         & "'" & Trim(Str(.Anno)) & "', " _
         & "'" & Trim(Str(.Data)) & "', " _
         & "'" & Trim(Str(.IDComune)) & "', " _
         & "'" & Trim(Str(.IDResponsabile)) & "', " _
         & "'" & Trim(Str(.NumFascicoli)) & "', " _
         & "'" & .Oggetto & "', " _
         & "'" & .Richiedente & "', " _
         & "'" & Trim(Str(.Tipologia)) & "')"
  End With
  With cn1
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data " _ 
        & "Source=" & PERCORSO & "Ufficio.mdb"
    .Open
    .Execute strQ
    .Close
  End With
Tutto bene, il record viene aggiunto regolarmente ma dopo aver eseguito
il comando execute è possibile sapere qual è il valore del campo ID
della tabella "pratiche" che è autoincrementante?
Va bene anche il record in quanto il software non consentirà di
cancellare record dalla tabella "Pratiche".
Grazie.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

     .Anno = Year(Date)
.......
Potresti fare cosi:
Dim RstId As ADODB.Recordset
Dim NewId As Double
aggiungi alla stringa sql (strQ):
; SET NOCOUNT OFF; SELECT @@IDENTITY;
sostituisci l'esecuzione dell'sql in questo modo
Set RstId = cn1.Execute(strQ).NextRecordset
NewId = lRstId(0)
NewId contiene il numero dell'identity del record appena inserito.
il tutto funziona con SQL non so con Access
Ciao,
LittleWave

 ha scritto nel messaggio 
news:1135591306.6...@g44g2000cwa.googlegroups.com...


Per mysql dopo la query d'inserimento puoi lanciare la seguente query:
strQ = "SELECT LAST_INSERT_ID()"
e leggi il recorset che ritorna (di una riga e di una colonna)

Newsgroup: it.comp.lang.visual-basic
Titolo: Pagina Su e Pagina Giu

ciao a tutti.
Come faccio a scorrere i records premendo i tasti [pag.giu] e [
pag.su
] ?
Grazie.

 wrote in message
WeYV6.7104$GZ5....@news1.tin.it...


ringrazio Sharkman per il contributo preciso ed efficace.
Mario.
Sharkman <s...@rk.man> wrote in message #t97xON9...@cwnts22.ciaoweb...

Newsgroup: it.comp.lang.visual-basic
Titolo: Avvio macro su excel

Ragazzi aiutatemi, come si fa ad avviare le macro di un file xls?
Sono arrivato a questo punto  grazie alla guida ma nonostante abbia cercato
non sono riuscito a continuare. Il bello è che l'Excell si apre!
Public xlApp As Object ' Dichiara la variabile in cui
                            ' memorizzare il riferimento.
Set xlApp = GetObject(App.Path & "\Fogli.xls")
    ' È necessario impostare la proprietà Visible
    ' su True per visualizzare l'applicazione.
xlApp.Application.Visible = False
    ' Utilizza xlApp per accedere ad altri oggetti
    ' di Microsoft Excel.
xlApp.Parent.Windows(1).Visible = True
Aiutatemi vi prego!
Ciao
--
Andrea Fabbrucci
anfa...@tin.it

...

Newsgroup: it.comp.lang.visual-basic
Titolo: Ordinare griglia con indice inserito a mano

Ciao a tutti,
ho una griglia contenente (per semplicità)
Cod.Articolo	ProgRiga
PIPPO		1
PLUTO		2
PAPERINO	3
Se clicco su questa griglia carico i dati su delle txt per modificarli.
E' nata l'esigenza che l'utente possa modificare anche il ProgRiga, che
servirebbe come ordinamento.
Ovviamente può anche inserire una riga specificando un prog riga.
Quindi può inserire
TOPOLINO	2
(in questo caso pippo=1,topolino=2,pluto=3,paperino=4)
Oppure modificare
PLUTO		1
(in questo caso pluto=1,pippo=2,paperino=3)
Avevo buttato giù una cosa del genere ma non funziona bene:
Avete qualche consiglio su come procedere?
Grazie
Alla conferma
        i = .Row
        .TextMatrix(i, 0) = txtDB(0)'copio dalle txt alla griglia
        .TextMatrix(i, 1) = txtDB(3)
        .TextMatrix(i, 2) = txtDB(4)
        .TextMatrix(i, 3) = txtDB(1)
        .TextMatrix(i, 4) = txtDB(2)
        .TextMatrix(i, 5) = txtDB(5)
        .TextMatrix(i, 6) = txtDB(6)
        .TextMatrix(i, 7) = txtDB(7)
        .TextMatrix(i, 8) = txtDB(8)
        .TextMatrix(i, 9) = txtDB(9)
 
        Dim IndexRiga As Integer  'gestione ordinamento
        IndexRiga = Val(txtDB(7))
        If IndexRiga > 0 Then
          For i = 1 To .Rows - 1
            If Val(.TextMatrix(i, 7)) = IndexRiga And i <> .Row Then
              .TextMatrix(i, 7) = Val(.TextMatrix(i, 7)) + 1
              IndexRiga = Val(.TextMatrix(i, 7))
            End If
          Next i
          .col = 7
          .Sort = flexSortGenericAscending
          For i = 1 To .Rows - 1 'rimetto gli indici in caso di intervallo
1,2,4,5,6
            .TextMatrix(i, 7) = i
          Next i
        End If

0 (se =0 non ho cambiato il prog riga).
Mi basta gestire se non inserisco il progriga devo mettere in fondo, mi
basta fare if indexriga=0 then indexriga=32655 (tanto saranno max 100
righe)
Sub OrdinaGridDB(Row As Integer, IndexRiga As Integer, sft As Integer)
'Ordino la griglia di Distinta Base
'Row index della row della griglia
'IndexRiga è il valore di ProgRiga
'Sft se ho diminuito o incrementato
With GridDB
  Select Case sft
    Case Is > 0 'es da 4 a 2
      For i = 1 To .Rows - 1
        If Val(.TextMatrix(i, 7)) = IndexRiga And i <> Row Then
          .TextMatrix(i, 7) = Val(.TextMatrix(i, 7)) + 1
          IndexRiga = Val(.TextMatrix(i, 7))
        End If
      Next i
    Case Is < 0 'es da 2 a 4
      For i = .Rows - 1 To 1 Step -1
        If Val(.TextMatrix(i, 7)) = IndexRiga And i <> Row Then
          .TextMatrix(i, 7) = Val(.TextMatrix(i, 7)) - 1
          IndexRiga = Val(.TextMatrix(i, 7))
        End If
      Next i
  End Select
  .col = 7
  .Sort = flexSortGenericAscending
  For i = 1 To .Rows - 1 'rimetto gli indici in caso di intervallo
1,2,4,5,6
    .TextMatrix(i, 7) = i
  Next i
End With
End Sub
Newsgroup: it.comp.lang.visual-basic
Titolo: Richiesta ancora aiuto!! su VB6 e keypreview

Buon giorno....
richiedo ancora aiuto da qualcuno...............
devo fare una applicazione in VB6 (a 32 bit) che utilizza molto anche la
tastiera (oltre che il mouse) per un controllo numerico a bordo di una
macchina utensile.
Devo pero' distinguere la pressione dei tasti speciali (frecce up/dw, del,
home, ins, pgup e pgdw)  quando sono premuti i tasti sul keypad con il
numlock disattivato e quando sono premuti i tasti separati, perche' devono
corrispondere a diverse funzioni.
Non so come fare visto che l' evento key-down rende esattamente la stessa
vbkey in entrambi i casi.
Forse con le API? Oppure e' possibile farsi una dLL in Visual C?
Grazie per la collaborazione ed auguri a tutti per il 2000...
Ciao
Maurizio

 vbkey in entrambi i casi.
Scusa, a me funziona correttamente, sei sicuro di stare usando
l'evento giusto ?
____
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Debug.Print KeyCode
End Sub
____
Tasto premuto e risultato:
Tasto 1 =  35  ' con numlock non attivo
Tasto 2 =  40 
Tasto 3 =  34 
NumLock =  144 
Tasto 1 =  97 ' con numlock attivato
Tasto 2 =  98 
Tasto 3 =  99 
Bye, G.
-- 
---------------------------------------------
    Le risposte alle tue domande le trovi
    sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
       ... e nell'help in linea !
---------------------------------------------
Real E-address: 
gaet...@hotmail.com
Newsgroup: it.comp.lang.visual-basic
Titolo: esportazione su .doc

ho trovato un esempio sul sito 
http://www.redangel.it/
 (tanks to) che mi è
stato molto utile per quanto riguarda l'esportazione da VB a WORD.
i codici di esempio sono:
' Apro una nuova istanza di Word
Dim WordApp As New Word.Application
'crea un documento nuovo
WordApp.Documents.Add
'scrive
WordApp.Selection.TypeText Text1.Text
'centra
WordApp.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
'borda
WordApp.Selection.ParagraphFormat.Borders.Enable = True
'seleziona
WordApp.Selection.MoveLeft Unit:=wdCharacter, Count:=Len(Text1.Text),
Extend:=wdExtend
'grassetto
WordApp.Selection.Font.Bold = wdToggle
'ingrandisce
WordApp.Selection.Font.Size = 20
'salva
WordApp.Documents(WordApp.Documents.Count).SaveAs App.Path & "\prova.doc"
'apre
res = MsgBox("visualizzo?", vbYesNo)
If res = vbYes Then WordApp.Visible = True
'chiude
WordApp.Quit
PROBLEMA:
premesso che 'istanza WordApp è stata dichiarata in un modulo come global,
(non posso fare altrimenti)
dopo che ho popolato il mio documento .doc e l'ho chiuso, se tento di
ripetere la routine mi becco l'errore:462
il computer server remoto non esiste o non è disponibile
?????? help grazie

 ha scritto


 io di solito mando su html e apro l'html con word.
Continuerò con il "non a tono" :-) ma allora non è più semplice
(e più supportato) scrivere in una RTBox e salvare l'RTF ?
Se non sbaglio se ne parlò anche un paio di mesi fa.
Dubbio. Non mi sono mai servite... ci sono problemi per
fare delle tabelle ?
********
Appropo' non ricordo se hai segnalato tu la cosa, txt2pdf
(
http://www.fytek.com
), per queste cose è carino; anche
la versione free, con tutti  i suoi limiti, è utilizzabile.
Bye, G.
--
Un Paperino che domani va in ferie, Buon Natale a tutti :-)

 Un Paperino che domani va in ferie, Buon Natale a tutti :-)
auguroni. non ti chiedo dove vai, mi sa che noi non ci si muove, pero' un zi
za mai.... a buon conto saluta chi trovi.
buona fine e buon principio, ciao,
a.
--
www.sundaysw.com
 <--- under construction :)
(*) manco morto

 wrote in message
%vIS7.7710$o9.3...@news1.tin.it...

mi fa molto piacere che la mia domanda sia stata di interesse, ma il
problema persiste, comunque do un' occhiata all'esportazione su HTML
grazie, ciao

 buona fine e buon principio, ciao,
TNX, ma per Natale torno, ci si sente prima del "capo dell'anno" :-)
Bye, G.
--


 usi commerciali. In compenso ci sono i sorgenti disponibili aggratise...
Yoppà :-) [1]
Ho scoperto ora che è la libreria usata anche da quello che hai segnalato tu :-)
[1] Espressione di etimo incognito, e dal significato incerto,
ma ci stava foneticamente bene. :-)

Newsgroup: it.comp.lang.visual-basic
Titolo: Tasti di direzione

In un form con TextBox posizionati casualmente e creati dinamicamente,
vorrei controllare lo spostamento da un TextBox all'altro con le freccie di
direzione... esiste qualche API, ActiveX, DLL che sottointende a tale
operazione? Grazie mille per l'aiuto.


non so se ho cpaito...
ma ti basta impostare form.keypreview = true e poi nell'evento keydown
intercettare i vari tasti che ti interessano.Per attivare il controllo
(textbox)   control.setfocus=true
ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Insert Into

Come si fa ad esportare i dati contenuti in una tabella di un db access2000
in un database su sql server?
(computers diversi ovviamente!)
Il tutto utilizzando Vb e Ado!
Ciao
Andrea

 ha scritto nel messaggio
news:8raagn$8kj$1...@nslave1.tin.it...

Apri una connection da una parte, una connection dall'altra.
Leggi i dati da una parte, e li scrivi dall'altra.
-vibino

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Passaggio da DAO 3.51 a ADO

OK, mi devo rassegnare, devo (!) passare da DAO 3.51 per Access 97 a ADO per
Access 2000 e per SQL Server. Ho un sacco di documentazione stampata da
MSDN, ma, in tutta sincerità, non voglio leggere 1000 pagine per 3/4 cose di
partenza. Lo farò dopo per tutti i casini che avrò. Quindi approfitto e
chiedo:
Per poter aprire da VB6 (SP5) un database SQL Server (7.0, in ambiente NT4,
già installato) e creare, aggiornare, modificare, annullare records di un
recordset,
1) Quali riferimenti devo attivare in VB (ADO 2.0, 2.1, 2.5, boh!)
2) Quali drivers (per SQL Server) devo installare, con che versioni?
3) Quale MDAC devo installare?
4) Cosa devo distribuire con i pacchetti di installazione?
Grazie a tutti.

 4) Cosa devo distribuire con i pacchetti di installazione?
Mdac_typ.exe
ciao
ugo

 ...giů, java, stai buona...  non mordere, buona...     ;-PPPPP
guarda, a conclusione di una giornata infernale, alle 23 ieri sera, mentre
cercavo di rispondere con qualche calma al ristoratore mucho hablante, il
portatile non ha piu' visto la tastiera... nenanche una esterna... no
comment... e di grazia che arriva al login, cosi' ci ho messo solo 8 ore a
travasare 16 g di dati e sistema. a casa. dovro' rifarlo in ufficio... sto
usando il desk di casa, che era tutto fuorche' configurato... figurati se ho
tempo per badare a queste piccinerie... quando avro' finito con le macchine
qui e in ufficio, saremo a ado3... posso prenderla calma :)
intanto archivio quel che mi aspetta. di mdac devo averne 28 versioni
ormai...
sqlserver mi ci sto per rassegnare. su access 2000 pero' avrei qualche
dubbio, se non e' obbligatorio. se quello che serve e' il db e non il front
end, mi sembra francamente peggio del 97 spreca spazio e basta. certo, se
uno deve archiviare testi coreani, hindi e mandarini (bergamotti a noi !
disse bossi)...
ciao, j.desk
che minkia di idea ebbi a prendere la ms natural keyb ? dopo 5 anni di
portatrile, non trovo un tasto che uno...

 portatrile, non trovo un tasto che uno...
eh... l'errore č pensare che ms possa fare qualcosa di "naturale"...
se le cose non sono contorte, non le fanno...
ciao
ugo


...
Grazie.
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto per novellino

Sarei curioso di sapere a che versione di Visual Basic corrisponde quella
fornita con Office 97. L' "Info su" dell'help non lo dice.
Grazie mille a tutti coloro che mi risponderanno.:-))
s...@ntt.it
	Stefano.

fornita con Office 97. L' "Info su" dell'help non lo dice.
[...]
Sul libro di Ken Getz e Mike Gilbert "Il manuale di VBA" ed. McGraw-Hill si
parla esplicitamente di VBA 5.0 per Office 97.
Ciao
--
-
MIX (VB5SP3)
post...@yahoo.com
110 links ai siti VB
http://www.tempolibero.com/user/mix/
 (consigliato)
http://space.tin.it/computer/gaais
  (alternativo)
-

Newsgroup: it.comp.lang.visual-basic
Titolo: Prima 30 secondi poi 20 secondi

Salve e tutti.
Scusate la domanda cretina, ma mi sono accorto di una cosa e vorrei capirci
bene: ho un database con una tabella da 100'000 record su cui faccio una
query (tramite codice) e tale query impiega 30 sec per dare i risultati. Poi
rifaccio tale query (stessissima ricerca) e ci vogliono 20 sec.
Qualcuno sa spiegarmi il perchč?
Grazie.


Probabilemnte entrano in gioco fattori diversi .. cache del pc .. altri
applicativi che girano .. antivirus e balle varie ... se fai delle
statistiche devi fare tanti tentativi .. creandoti un file di log ... e poi
analizzi i risultati !!!
--
Ciaps
Stracca (
http://www.stracca.net
)
---------------------------------------------
    Le risposte alle tue domande le trovi
    sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
       ... e nell'help in linea !
---------------------------------------------

analizzi i risultati !!!
Aggiungo: o butti via la prima prova (quella che accede per prima al disco)
o conteggi solo i tempi delle "prime" prove.
Senz'altro il fattore che influenza maggiormente č la cache di win.
Ciao

beh....tutti i dbms hanno una struttura volta ad ottimizzare le prestazioni,
alcuni dati richiesti vengono mantenuti in memoria (con MSQL7 si nota
moltissimo), poi ci si aggiunge il buffer del disco e del so.
byE
Newsgroup: it.comp.lang.visual-basic
Titolo: dial-up da visual

Ciao a tutti, come faccio a lanciare una sessione dial up da visual???
Ho visto che potrei usare una connessione di accesso remoto preesistente con
il comando shell ma e' un po' sporco come sistema perche' se la linea e'
occupata o altri eventi strani non ho il completo controllo della
situazione..  grazie e ciao

Ciao a tutti, come faccio a lanciare una sessione dial up da visual???
  Per avere il controllo completo del collegamento a Internet puoi
utilizzare le RAS API. Cerca l'articolo q150948 della knowledge base
di microsoft, scarica il file VB32RAS.EXE  dal link che troverai
nell'articolo e poi utilizza a piacere il sorgente in VB4/32 (lo
carichi tranquillamente in VB5) e/o la DLL inclusa.
  Ciao :-)
  Massimo
  Nell'indirizzo, sostituire DIESPAMMERS con MC1258
  In the address, replace DIESPAMMERS with MC1258


Se dai un'occhiata as sito 
www.catalyst.com
 troverai un componente
gratuito per la connessione RAS e soprattutto alcuni articoli
introduttivi sull'argomento.
Altrimenti devi guardare le API RAS di MS
Ciao,

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

Ciao a tutti .. forse e' una banalita':
c'e' un modo per indentare automaticamente il codice VB?
GRAZIE
Pippo

Non saprei...
Io proverei premendo TAB una o più volte all'inizio di ogni riga di codice
:)))

 ha scritto nel messaggio
news:912dar$pco$1...@fe1.cs.interbusiness.it...


 wrote in message
news:9135ir$2po07$2...@ID-60503.news.dfncis.de...


 wrote in message
news:914ok3$9lo$1...@fe2.cs.interbusiness.it...


 c'e' un modo per indentare automaticamente il codice VB?
Ricordo un vecchio thread, ma non troppo vecchio, in verita`, in cui se ne
e` parlato approfonditamente. Prova a cercarlo su deja.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

Newsgroup: it.comp.lang.visual-basic
Titolo: Creare un servizio

Ho sviluppato un programmino in VB ed ora dovrei farlo diventare un
servizio, come posso fare?

 servizio, come posso fare?
Ecco un'altra bella FAQ.
Cercare(con google) non fa male alla salute :-).
Ciao
--
Timothy Redaelli
timothy(dot)redaelli(at)email(dot)it
-----------------------------------
Links:
Sito Comune: 
www.it-lang-vb.net
MSDN: 
msdn.microsoft.com
P.S. Un'aiutino: 
http://vbwire.com/advanced/howto/service.asp

 wrote in message
news:73mm8.10123$pT1.2...@news1.tin.it...


               Fabio Viganň


Quoting: 2 :-(
http://www.marco5x.net/usenet/quoting.php


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

Salve, esiste un modo per rendere il form trasparente?

 Salve, esiste un modo per rendere il form trasparente?
su sistemi 2000 like esiste una api "alphablend" o roba simile che assegna
una gradazione da 0 a 100 alla form. Usando il .net lo si ha gia' tra le
property delle form.
Consiglio il sempre valido apiguide su  
www.allapi.net
-- 
-Gigio@Work(?)-


Grazie ho risolto.

 ha scritto nel messaggio
news:6kKoc.183426$hc5.7...@news3.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Come si fÿffffe0 ad utilizzare la porta parallela in VB ???

Vorrei far comunicare il mio PC con una periferica esterna
tramite porta parallela LPT1. Come si fÿffffe0 in VB, dato per
scontato che giÿffffe0 sÿfffff2 il formato dei dati che gli passo ????.
Grazie. Ciao by  Max.
* Sent from AltaVista 
http://www.altavista.com
 Where you can also find related Web Pages, Images, Audios, Videos, News, and Shopping.  Smart is Beautiful

Grazie. Ciao by  Max.
Ti consiglio di non usare più altavista per inviare i tuoi messaggi: non so
se è un problema solo mio ma io non riesco a leggere cosa hai scritto...
Ciao

 * Sent from AltaVista 
http://www.altavista.com
 Where you can also find
related Web Pages, Images, Audios, Videos, News, and Shopping.  Smart is
Beautiful
Parser return code: 243b
"Don't use AltaVista for posting msg in the NG!"
bye!
Xaero

Grazie. Ciao by  Max.
LAscia stare ALtavista e va sul Sito Comune: lì si capisce cosa cìè scritto e trovi la risposta alla
tua domanda... ^___^
(Tra l'altro, già che ce l'ho nella clipboard, la risposta è:
http://www.murialdo.it:8000/it_lang_vb/prj/win95io.zip
)
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
---------------------------------------------------------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: Programmino msg tra 2 computer...

Salve, è la prima volta che scrivo su questo News.
Volevo realizzare in VB (5) un programmino per mandare messaggi tra due
computer
collegati tramite una scheda di rete.
Per intendarsi come Win popup, ma proprio non lo sopporto quindi volevo
provare a farne uno da me.
Ho visto che il visual basic fornisce il controllo Winsock, ma come fare ad
usarlo??
Mi potreste dare un dritta? Non ho mai fatto programmi simili e quindi non
so bene come fare.
Ciao e Grazie!
__________________
 
dani...@inwind.it
__________________

Vai sul sito comune troverai un esempio su misura.....

Se non conosci URL sito Comune.....in Firma
Ciao SIMO
* 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
* I vecchi messaggi su: 
http://groups.google.com/


Ciao e Grazie!
C'è l'esempio anche sulla guida di VB.
Crea un controllo Winsock in un form, selezionalo e premi F1, sulla
guida, circa a metà c'è un esempio a mio avviso molto utile.
Ciao,
Aran
Newsgroup: it.comp.lang.visual-basic
Titolo: Source safe ed affini ...

Salve raga',
in giro si legge di questi tools per "automatizzare" la gestione dei
sorgenti (in genere li chiamano Change Management System e sono mooolto
utilizzati negli ambienti mainframe).
Datemi un consiglio: vale la pena? il gruppo di lavoro deve investire molto
tempo per questa attività? avete qualche altra osservazione da fare che vale
la pena di tenere in considerazione?
TNX
ABC

Ho usato Visual Source Safe e devo dire che, nonostante i (numerosi) bug dal
punto di vista dell'integrazione con VB, fa davvero molto comodo per
progetti "grossi", dove a lavorare insieme sono più di 3-4 persone.
Se invece a lavorare su un progetto sei solo te o al massimo tu e un tuo
collega vicino di scrivania ... allora puoi benissimo farne a meno.
Ciao
  <ond...@DELiname.com> wrote in message 7ueijl$ra6$1...@nslave1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: vb e Cad

Salve a tutti,
    vorrei sapere dove attingere informazioni per sviluppare un software con
vb che mi permetta di disegnare linee, rettangoli,
etc, etc, tipo cad - con coordinate, lunghezze e tutto il resto.
grazie in anticipo.

Se guardi qui forse puoi trovare quello che ti serve (numero 30; Controllo
di AutoCAD da Visual Basic):
http://www.ing.unitn.it/~jacucci/esempi/index.html
Ciao

 ha scritto nel messaggio
news:u8wl7.109158$TS4.9...@news2.tin.it...


 
http://www.thopos.com
 ) nella sezione VB
Ho provato la demo del tuo programma e mi sono chiesto una cosa...
Ma come hai fatto ad estrarre le coordinate del Pregeo 7 dal
file .OUT, abilmente crittograffato dalla Sogei?
Io ci ho provato per parecchio tempo e non ci sono assolutamente
riuscito :-((
--
Daniele Pinna  (leva oops. per rispondere) * ICQ 24567484
Sito Web: Il DoCFa in Pillole: 
www.dapinna.too.it

Newsgroup: it.comp.lang.visual-basic
Titolo: sincronizzare rixhtextbox con listbox

come posso sincronizzare una listbox con una richtextbox?
con due listbox si fa cosě:
Private Sub List1_Scroll()
    list2.topindex = list1.topindex
    list2.listindex = list1.listindex
end sub
Private Sub List2_Scroll()
    list1.topindex = list2.topindex
    list1.listindex = list2.listindex
end sub
ma nel mio caso?
grazie



Che cosa c'e' nella richtexbox?
Cosa devi sincronizzare, le righe tenendo conto degli a capo oppure di
come viene visualizzato il testo?
-- 
ciao, hal

 ha scritto nel messaggio
news:63s9iv0gamgp8pppr...@4ax.com...

le righe tenendo conto degli accapo ad es.
listbox | richtextbox
1         | ciao
2         | i.c.l.v
ho risolto come creare un numero ad ogni invio, ma quando compaiono le barre
di scorrimento i due oggetti non sono piů sincronizzati.

di scorrimento i due oggetti non sono piů sincronizzati.
Cioe' non trovi piu' la riga? e perche'? Dovrai far fare uno scroll
alla rtb, immagino.
-- 
ciao, hal

 ha scritto nel messaggio
news:9e2bivclqnp2ah6fe...@4ax.com...

scusa, ma č una situazione complessa da spiegare. cercherň di essere il piů
conciso possibile:
come posso far si chč scorrendo la richtextbox, scorra automaticamente anche
la listbox?
grazie
Newsgroup: it.comp.lang.visual-basic
Titolo: HELP! Clipboard -> Bmp

Come faccio a salvare una immagine contenuta nel Clipboard in un file .bmp?
Non ho ancora capito ...
Ho visto il metodo getdata dell'oggetto Clipboard, pero' non ho ancora
capito
Help me!
Thanks!

Dovresti utilizzare l'istruzione SavePicture in questo modo:
SavePicture Clipboard.GetData(vbCFBitmap), "percorsofile"
Attenzione, la risoluzione del file dipende da quella impostata sulla scheda
grafica.
Ciao
    Rita


Newsgroup: it.comp.lang.visual-basic
Titolo: Vendo VB.Net,VC++.Net,VS.Net,VB6.0,VC++6.0 NUOVI e ANCORA IMPACCHETTATI.

Salve a tutti, come da oggetto ho la possibilità di vendere copie di Visual
Basic .NET italiano, Visual C++ .NET italiano, Visual Basic 6.0 ita, Visual
C++ 6.0 ita, Visual Studio .NET ita.
Per i prezzi contattatemi.
giusepp...@softhome.net
I pezzi sono perfettamente regolari, nuovi ancora impacchettati. Le licenze
sono a posto.
Ho solo le versioni complete e non aggiornamenti.
Ciao a tutti

 Ciao a tutti
Ciao a te e allo spam, comunque:
-Perchè "copie di ..."?
-Perchè mai i prezzi dovrebbero essere "perfettamente regolari" e non, per
esempio, "quelli che tu vuoi"? Cosa vuol dire?
-Cosa significa quel "Le licenze sono a posto" se "nuovi ancora
impacchettati"?
-Sicuro di avere anche VB 6?
No, non mi quadra...

 esempio, "quelli che tu vuoi"? Cosa vuol dire?
pezzi, items...

 No, non mi quadra...
Mi dispiace molto.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: "Clonare" una ListView

Salve, mi scuso se vi faccio una domanda un p' strana, però ho il seguente
problema:
Form1: c'è una ListView con N colonne e M "righe".
Form2: c'è un'altra ListView vuota.
Come faccio a "clonare" la 1° Lvw nella seconda, cioè a "travasare" tutti i
dati della prima senza fare un casino di cicli (1 per creare le N colonne,
uno per le righe ed un terzo per i sottoelementi)?
Ho provato da "furbo" a fare set form2.listview = form1.listview ma il
compilatore s'è offeso...
Cmq, generalizzando il problema, è possibile in VB settare un qualsiasi
oggetto di una form identico ad un'altro, sia nei contenuti che nelle
proprietà?
Grazie.
Byez!
Tango

 uno per le righe ed un terzo per i sottoelementi)?
Public Sub ListView_Copy(ByRef Source As ListView, ByRef destination As
ListView)
  ListView_CopyStructure Source, destination
  ListView_CopyContents Source, destination
End Sub
Public Sub ListView_CopyStructure(ByRef ListView1 As ListView, ByRef
ListView2 As ListView)
  If ListView1.ColumnHeaders.Count > 0 Then
    Dim i As Long
    Dim clmX As ColumnHeader
    ListView2.Sorted = ListView1.Sorted
    ListView2.View = ListView1.View
    ListView2.MultiSelect = ListView1.MultiSelect
    ListView2.FullRowSelect = ListView1.FullRowSelect
    ListView2.LabelEdit = ListView1.LabelEdit
    ListView2.HideSelection = ListView1.HideSelection
    ListView2.ColumnHeaders.Clear
    For i = 1 To ListView1.ColumnHeaders.Count
      Set clmX = ListView2.ColumnHeaders.Add(, ,
ListView1.ColumnHeaders(i).Text)
      clmX.Width = ListView1.ColumnHeaders(i).Width
    Next i
  End If
End Sub
Public Sub ListView_CopyContents(ByRef ListView1 As ListView, ByRef
ListView2 As ListView)
  If ListView1.ColumnHeaders.Count = ListView2.ColumnHeaders.Count Then
    Dim i, j As Long
    Dim itm1 As ListItem
    Dim itm2 As ListItem
    ListView2.ListItems.Clear
    For i = 1 To ListView1.ListItems.Count
      Set itm1 = ListView1.ListItems(i)
      Set itm2 = ListView2.ListItems.Add()
      itm2.Text = itm1.Text
      For j = 1 To ListView1.ColumnHeaders.Count - 1
        itm2.SubItems(j) = itm1.SubItems(j)
      Next j
    Next i
  End If
End Sub



Sub CloneList(LWOrig, LWDest)
Dim LX1 As ListItem
Dim LX2 As ListItem
Dim X As Integer
For Each LX1 In LWOrig.ListItems
    Set LX2 = LWDest.ListItems.Add
    LX2.Text = LX1.Text
    For X = 1 To LX1.ListSubItems.Count
        LX2.SubItems(X) = LX1.SubItems(X)
    Next X
Next
End Sub
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Convertire un numero in lettere

Salve a tutti,
avrei bisogno di sapere se c'è la possibilità di effettuare la conversione
da un numero scritto in cifre, ad un numero scritto in lettere.
esempio: 123 ---> Centoventitre
Qualcuno sa dirmi qualcosa?
Grazie
Brunix


http://www.it-lang-vb.net/archivio.asp?subMenu=Tutte&FullText=on&TypeRic=AND&keyword=numeri+lettere
Ciao
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 ha scritto nel messaggio
news:82Z89Z247Z6Y10...@usenet.libero.it...


 ha scritto nel messaggio
news:0dE1d.319468$5D1.14...@news4.tin.it...

ecco un suggerimento e se vuoi altri suggerimrnti fatti vivo
leonello
ps
 ho fatto un programma che converte numeri  (ma solo interi) fino a 12 cifre
a lettere )
ed in piu  il numero lo puoi  sentire pronunciato dalla voce della mia
nipotina,ma naturalmente non gli ho fatto incidere in wav migliardi di files
ma solo circa 40..il mio programma e' in rete su 
www.vbscuola.it
e cerca nelle applicazioni 2002
-------------------
Public Sub da_1_a_999(numero As Integer, n_lettera As String)
''
'   costruzione della stringa alfanumerica  esempio  148   centoquarantotto
'
Dim da_1_a_20 As Variant
Dim decina As Variant
da_1_a_20 = Array("", "uno", "due", "tre", "quattro", "cinque", _
            "sei", "sette", "otto", "nove", "dieci", _
            "undici", "dodici", "tredici", "quattordici", "quindici", _
            "sedici", "diciassette", "diciotto", "diciannove", "venti",
"ventuno")
decina = Array("dieci", "dieci", "venti", "trenta", "quaranta", _
              "cinquanta", "sessanta", "settanta", "ottanta", "novanta",
"cento")
'
Dim centinaia As Integer
Dim decine As Integer
Dim temp As String
n_lettera = ""
Dim cento As String
decine = (numero Mod 100)
centinaia = (numero - decine) \ 100
'
If numero < 22 Then
n_lettera = da_1_a_20(numero)
Exit Sub
End If
'
cento = "cento"
If numero > 21 And numero < 100 Then
  n_lettera = decina(decine \ 10) & da_1_a_20(decine Mod 10)
         If (decine Mod 10) = 1 Or (decine Mod 10) = 8 Then
             temp = decina(decine \ 10)
             n_lettera = n_anomalo(temp) & da_1_a_20(decine Mod 10)
          End If
  Exit Sub
End If
'
If numero > 99 And numero < 1000 Then
   If centinaia = 1 Then centinaia = 0
       If decine < 22 Then
       If decine Mod 10 = 8 And decine \ 10 = 0 Then cento =
n_anomalo("cento")
        n_lettera = da_1_a_20(centinaia) & cento & da_1_a_20(decine)
       Else
       If decine \ 10 = 8 Then cento = n_anomalo("cento")
        n_lettera = da_1_a_20(centinaia) & cento & decina(decine \ 10) &
da_1_a_20(decine Mod 10)
          If (decine Mod 10) = 1 Or (decine Mod 10) = 8 Then
             temp = decina(decine \ 10)
             n_lettera = da_1_a_20(centinaia) & cento & n_anomalo(temp) &
da_1_a_20(decine Mod 10)
          End If
      End If
    Exit Sub
End If
'
n_lettera = " errore"
End Sub

 ha scritto nel messaggio
news:0dE1d.319468$5D1.14...@news4.tin.it...
