mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: VB3 - Aiuto !!!

Cia a tutti,
io ho la necessita' di reinstallare VB3 ma non riesco piu' a trovare il
disco numero 1 per eseguire il setup.
Qualcuno e' cosi' gentile da inviarmelo via e-mail ???
Grazie in anticipo!
Daniele

 wrote in message
8l3j8n$9ji$1...@serv1.iunet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto UREGENTE!!! Protocollo TCP su LAN

Devo assolutamente finire un mio programma per la prossima settimana.
Il mio problema č che non ho la piů pallida idea di come si fa a stabilire
una connessione, con il protocollo TCP, fra due computer collegati via LAN.
Mi spiego meglio:
Ho due PC con Win95 collegati tramite una semplice LAN, cioč due schede di
rete e un cavo, niente server o cose del genere.
(In principio la LAN era pensata per giocare).
Quello che devo fare č:
Usare l'OCX winsock per creare un programma che riesce a stabilire una
connessione fra i due computer, usando il numero IP.
Deve funzionare sia sulla LAN di casa mia, sia su Internet.
(Il fatto č che non posso provare il programma via Internet. per varie
ragioni)
Cosi pensavo di provarlo a casa via LAN e poi usarlo su Internet.
...arrivando al succo del discorso...
O c'č qualche dio di VB5.0 che riesce a spiegare al sottoscritto come si fa
a usare il protocollo TCP via LAN oppure mi ditemi se non funziona(Cosi mi
sparo subito :)).
Per qualsiasi idea, suggerimento o spiegazione scrivete a: 
giga...@ats.it
Grazie 1000
    Marlon

No ho mai usato l'ocx ma solo le socket con c++.
In breve:
- un computer fa da server andando in 'listen' su un numero di porta
stabilito;
- il cliente esegue 'connect' con l'indirizzo ip e il numero di porta;
- il server sente la chiamata e si stabilisce la connessione;
- con funzioni tipo 'send' e 'receive' ci si passa i dati;
- si chiude la connessione quando finito.
Quando passi da internet, pero', hai il problema che l'indirizzo ip e'
dinamico.
Ciao.
--
Antonio Donatiello
(Rimuovere REMOVETHIS dall'indirizzo).

Figliolo, hai almeno il protocollo TCP/IP installato sulle macchine?
Se si segnati i rispettivi indirizzi IP o al limite i nomi delle macchine
quindi leggiti in maniera
approfondita la documentazione dell'OCX Winsock che M$ ha cosi
magnanimemente allegato al
tuo VB5.
Eh...benedetto figlioli.....vanno a pescare e non sanno nemmeno come sono
fatti i pesci......
--
Che il Bubuti Bauontico sia con Voi....
Gabriele Del Giovine
mc6491@_
sonoqui_mclink.it
Togliere _sonoqui_ per le risposte in e-mail
Please remove _sonoqui_ for e-mail reply
Newsgroup: it.comp.lang.visual-basic
Titolo: VISUAL FOXPRO, CHE PARANOIA!!!!!!

sALVE, ho provato questo codice con tutti driver possibili, ma nella
migliore delle ipotesi (che non riesco a capire)
mi ritorna questo errore:
[ODBC][DRIVER.......]Not a Table.
Lo sto sviluppando sotto win2000 e la macchina di destinazione e sempre win
2000
(la data di aggiornamento dei driver non č la stessa.....perň.....)
Public Sub connessionefox()
    strProvider = "Driver={Microsoft FoxPro VFP Driver
(*.dbf)};UID=;PWD=;SourceDB=c:\cartella\cartella2;SourceType=DBF;Exclusive=N
o;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"
    Set connConnection = New ADODB.Connection
    connConnection.CursorLocation = adUseClient
    connConnection.Open strProvider
    Set rs = New ADODB.Recordset
    'rs.CursorType = adOpenDynamic
    'rs.CursorLocation = adUseServer
    'rs.LockType = adLockOptimistic
    rs.ActiveConnection = connConnection
    rs.Source = "select campo from tabella where campo <>0"
    rs.Open
End Sub
Grazie amici :-)


strProvider= "Provider=MSDASQL.1;Persist Security Info=False;Extended
Properties=" & """" & "DSN=Database di Visual
FoxPro;UID=;SourceDB=c:\cartella\cartella2;SourceType=DBF;Exclusive=No;Backg
roundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;" & """"
ciao
ugo
Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 ed i numeri casuali.

Buongiorno a tutti,
sto scrivendo un giochino che, tramite alcune funzioni, genera una 
stringa contenente numeri casuali. La funzione principale, ancora 
incompleta, è la seguente:
Public Function InterRandom(tipo As String, max As Integer, lunghezza As 
Integer, doppi As Boolean) As String
Select Case tipo
Case "1"
Randomize
If doppi = False Then
num: For i = 1 To lunghezza
random = random & CStr(Int(max * Rnd))
Next i
End If
If InterValid(CStr(random)) = False Then GoTo num
InterRandom = random
End Select
End Function
L'unica funzione esterna chiamata è InterValid, che restituisce True o 
False a seconda se la stringa generata è adatta ai fini del gioco:
Public Function InterValid(stringa As String) As Boolean
InterValid = True
For i = 1 To Len(stringa)
posizione = InStr(1, stringa, Mid(stringa, i, 1), vbTextCompare)
If posizione <> 0 Then
secondaposizione = InStr(posizione + 1, stringa, Mid(stringa, i, 1), 
vbTextCompare)
If secondaposizione <> 0 Then
If InStr(secondaposizione + 1, stringa, Mid(stringa, i, 1), 
vbTextCompare) <> 0 Then InterValid = False: GoTo InterValidEnd
End If
End If
Next i
InterValidEnd:
End Function
Il problema è il seguente: quando la funzione InterRandom viene 
chiamata, ad esempio con un Debug.Print InterRandom("1", 8, 6, False), a 
volte manda nella finestra immediate la stringa casuale che deve dare, 
altre volte (praticamente sempre se viene chiamata in un ciclo for) 
freeza VB. Appena premo F5 o il tasto di esecuzione, vb si pianta 
totalmente e l'unico modo per uscire è con il task manager. Cosa può 
causare questo problema? Ho provato il codice su un VB6 Service Pack 5 
su Windows 2000 e su un altro VB6SP5 su Windows XP ma non funge in 
nessuno dei due casi.
Grazie!

 If InterValid(CStr(random)) = False Then GoTo num
ragiona sull'ultima e sulla prima riga.

 ragiona sull'ultima e sulla prima riga.
Ti ringrazio. Non m'ero accorto che la variabile random non veniva mai 
riportata a valore "".
Newsgroup: it.comp.lang.visual-basic
Titolo: [Consiglio] Certificazioni Vecchie

Salve ragazzi, finalmente ho un po' di tempo (e di soldi) per dedicarmi alla
famigerata certificazione MCSD.
Attualmente sono ancora disponibili corsi ed esami orientati alla vecchia
generazione di prodotti Microsoft.
Se volessi prendere la certificazione MCSD per la piattaforma .NET, dovrei
aspettare ancora del tempo (gli esami non sono ancora pronti).
Chiedo a voi un consiglio, specialmente a chi ci č passato prima di me:
Prendere la certificazione con gli esami vecchi (70-100, 70-175, 70-176) o
aspettare che siano pronti i nuovi esami per la piattaforma .NET?
In poche parole, pensate che tra qualche mese il buon vecchio VB6 verrą del
tutto abbandonato dagli sviluppatori?
Spero di ricevere risposte, dal momento che questo dubbio mi tormenta :-)
Saluti a tutti e grazie in anticipo,
Emanuele

 [cut]
ho lo stesso problema anche io.
anche se non credo che vb6 sarà abbandonato tanto presto, è un bel
dilemma...
spendere tanto per un pezzo di carta che rischia di diventare presto inutile
è un bel rischio, comunque penso che male non fa, peccato solo che non
esista l'esame con un prezzo "da aggiornamento"...
sarebbe stato bello, potevamo prendercele tutte e due...
se c'è qualcuno che prevede il futuro con una palla di vetro (cioè un
iMac... :)) ci faccia sapere!
ciao,
brand77

 ha scritto nel messaggio
news:QeUG8.74074$CN3.2...@news2.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Risposta conversione VB6-VB.Net

Qualche giorno orsono chiesi se qualcuno sapeva se era possibile convertire
un programma VB6 in VB.net. Ho trovato su un manuale che un programma VB6
può essere aperto in VB.net  dove c'è un
wizard che automaticamente effettua la conversione anche se il suddetto
manule mi sconsiglia di fare tale operazione  preferendo creare un programma
ex novo in VB.net.

 ha scritto nel messaggio
news:aoeh0p$1l2$1...@pluto.sm.dsi.unimi.it...

E' la stessa identica risposta che ti ha dato hal1961, non l'hai vista?
Ti spiegava anche uno dei perchè non è il caso di utilizzarla....
Salutoni
Sergio

Ciao!

Confermo tutto...
Anzi... in line teorica secondo me... il codice VB6 deve rimanere VB6 e
quello 
VB.NET
 rimarrà VB.NET...
La conversione manuale (alias riscrittura) é la migliore... tutte le altre
sono "un colpo al cerchio e un colpo alla botte"
        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à!

 sono "un colpo al cerchio e un colpo alla botte"
Ma la botte resta piena e la moglie si ubriaca?
No? Naaa, allora non va bene.

 No? Naaa, allora non va bene.
Ma sě che stai un una botte de fero :)
Ciao

 ex novo in VB.net.
Ho iniziato a studiare 
VB.NET
 tentando far migrare un piccolo programma
costruito in VB6.
Ti assicuro che non eseguirň un secondo tentativo.
Le modifiche sono strutturale.
Meglio partire da zero , se hai tempo cerca di non utilizzare
l'implementazione VB , altrimenti utilizzala per acquisire la nuova
architettura. Successivvamente dare sempre piů spazio alla libreria delle
classi di .Net framework
giuseppeD

 No? Naaa, allora non va bene.
:)
Lupo ubriaco?! :))


 Lupo ubriaco?! :))
Chi, io? Costantemente!

 Chi, io? Costantemente!
Dimmi dove lavori che vengo anch'io! :)


 Dimmi dove lavori che vengo anch'io! :)
ditemi che ditta cosi' faccio prima a sfrondare quando cerco :P

 Chi, io? Costantemente!
Ma come, prima lo insulti e poi lo imiti ?
Un Paperino "indovina di chi parlo :-P"

 Un Paperino "indovina di chi parlo :-P"
Ah (itch) quello che (itch) comincia per (itch) B?
Oh, beh, ma io (itch) sto ancora in piedi...

 "Paperino" ha scritto

Beh, facile, lo batti 4 a 2 :-).
Bye, G.

 Beh, facile, lo batti 4 a 2 :-).
Ahhh (credevo d'aver bevuto troppo) parlasi di punti d'appoggio, neh?!
Newsgroup: it.comp.lang.visual-basic
Titolo: modificare una riga in un file di testo

salve
avrei la necessità di modificare una riga di un file di testo che sto 
utilizzando come file ini per una mia applicazione.
poichè sono un novizio di VB avrei pensato a 2 metodi:
- lettura del file riga per riga conservando il puntatore alla riga 
corrente e quando trovo la riga da modificare faccio tornare indietro il 
puntatore e modifico la riga
- leggo il file copiandolo in un altro temporaneo e al momento in cui 
trovo la riga da modificare scrivo direttamente quella modificata 
sostituendo alla fine il nuovo file a quello vecchio.
sono idee fattibili? ci potrebbero essere altri metodi?
ringrazio in anticipo
saluti
Alessandro
--
avast! Antivirus: In partenza messaggio pulito.
Virus Database (VPS): 0530-3, 29/07/2005
Controllato il: 01/08/2005 13.19.48
avast! - copyright (c) 1988-2005 ALWIL Software.
http://www.avast.com

 sostituendo alla fine il nuovo file a quello vecchio.
Questa mi pare già meglio.
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio
news:jznHe.23723$2U1.1...@news3.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Le DBGrid

Come cavolo posso forsare a mano il numero di colonne da gestire,
spiego meglio, spesso imposto il rowsource manualmente ma vorrei poter
definire 5 o 6 colonne con le rispettive caratteristiche senza
necessita' di appoggiarli a una tabella che poi non mi serve a nulla,
come si fa ?
--------------------------------------------------------
Paolo Hölzl
Metis Informatica S.r.L technical manager (Ferrara)
--------------------------------------------------------
ATTENZIONE!, antispam 
per reply sostituire xxxx.xxxxxxx.xx con 
mail.asianet.it

come si fa ?
Ti conviene (se non lo hai ancora fatto) scaricare l'aggiornamento
gratuito della DBGrid dal sito Apex (
www.apexsc.com
): contiene anche
dei tutorial che spiegano molte cose.
P.S. Per chi sviluppa professionalmente conviene considerare
l'acquisto di TrueDBGrid 5. Si tratta di una di DBGrid ampliata con
molte funzionalità. Tra l'altro è facilitato l'uso senza datacontrol.
Sul sito si può prelevare una versione dimostrativa.
Ciao
--------------------------------------------------------------------
Fulvio Senore
Eliminate "zz" dall'indirizzo e-mail per scrivermi (spammers...)
Remove "zz" from e-mail address to write me (spammers...)
--------------------------------------------------------------------

dei tutorial che spiegano molte cose.
Ti ringrazio


dei tutorial che spiegano molte cose.
Direi che l'aggiornamento non sia tanto aggiornato, circa un anno.
Forse e' una politica del tipo se vuoi che ti rimuovo i cento bug
compra la nuova versione !!
Mi sbaglio ?
Antonio Tanzillo  
a...@pippo.netgroup.it
KillPippoforrepondez

Mi sbaglio ?
Non so quanto siano vecchi gli aggiornamenti, io ho TrueDBGrid5 e
l'ultimo aggiornamento è di dicembre 1997, se non sbaglio. Può anche
darsi che non ci siano aggiornamenti perché il prodotto funziona bene.
L'utilità comunque non è tanto nell'aggiornamento quanto nella
presenza di tutorial che spiegano le cose molto meglio che la
documentazione VB. Deve esserci anche un VB5 survival kit, o qualcosa
del genere.


Newsgroup: it.comp.lang.visual-basic
Titolo: Ho bisogno di aiuto!!

Sto usando VB5, quando clicco nella finestra "proprietą" e poi sulla
proprietą "Picture" e poi di seguito sui tre puntini di sospensione (...) mi
appare la finestra di dialogo "Carica immagine", come č possibile che in
questa finestra non trovo la cartella "Graphics"?
Come posso fare per ottenerla?
Grazie
^PgReKo^

...

Non l'hai scelta in fase di installazione del VB. Dovresti comunque trovarla
anche sul cd del Vb5. In ogni caso, puoi rilanciare l'installazione e
scegliere l'opzione di installazione disegni (o graphics). Poi, per
sicurezza, dovresti reinstallare eventuali SP del Vb.
Fabio Pagano

 wrote in message
7p7fi6$mia$1...@nslave1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Command con parametri

L'esecuzione di un command riferito ad una query con parametri in un MDB,
inserito nel DataEnvironment funziona.
Quello che non riesco a fare č l'update del Recordset generato dal Command
(se ha parametri).
Ad es:
MyDed.MyCommand parametro1, parametro2    'esegue il command
MyDed.rsMyCommand.Open                                 'apre regolarmente il
recordset
MyDed.rsMyCommand.movefirst
MyDed.rsMyCommand!MyField = Valore
MyDed.rsMyCommand.Update
Genera l'errore "Nessun valore specificato per uno o piů parametri
obbligatori".
La query č di tipo aggiornabile.
Provando a fare le stesse identiche cose con una query identica ma senza
parametri (al posto del parametro ho messo un valore costante nel SQL della
query) tutto funziona.
Come aggirare il problema ???
Ciao,
Riccardo Guirrini
Web :          
http://space.tin.it/computer/rguirrin
E-Mail:         
del...@tin.it

Riccardo, prova con
myDed.Commands("NomeCommand").Parameters("NomeParametro").Value =
"ValoreParametro"
myDed.Commands("NomeCommand").Parameters("NomeParametro2").Value =
"ValoreParametro2"
myDed.rsNomeCommand.Open
myDed.rsNomeCommand("Campo").Value = nuovo valore
myDed.rsNomeCommand.Update
myDed.rsNomeCommand.Close
bye,
Alessandro Scardova
scar...@tin.it
http://space.tin.it/computer/ascardov/

Riccardo,
    Probabilmente rsMyCommand e MyCommand non sono legati insieme,
altrimenti avresti un errore sulla open, perche' l'esecuzione del MyCommand
implica l'apertura del corrispondente recordset.
controlla la sintassi... e al limite ricostruisci MyCommand
ciao,


...

Newsgroup: it.comp.lang.visual-basic
Titolo: FileSystemObject: consigli

Ho implementato dei moduli di classe con alcuni metodi del FileSystemObject.
L'ho trovato semplice da scrivere e ben fornito di metodi, nn da problemi
"strani" che invece avevo con i comandi Dir$ e similari (del tipo cartelle
condivise che nn vengono viste...) ed inserendoli in moduli di classe son
usabili ovunque (per operazioni di tipo scan file in cartelle, leggi un file
di testo alla riga x, ecc....),.
Di contro ho notato un maggior tempo di esecuzione rispetto al codice
"classico" (Per uno scann dei files su una partizone del mio HDD, con 4960
file, un deertree basato su comandi Dir$ e similari ci mette 9.46 sec, il
mio programma ce ne mette 15.71).
vorrei dei pareri: lo usate? o preferite il codice classico? inoltre, ha
altre controindicazioni oltre ad una maggior lentezza di esecuzione? oppure
altri vantaggi? .....?
(lo stesso vale per i File Object ed i Folder Object)
Dite pure liberamente!!
^_^

x caso è in corso un embargo sulla mia casella di posta?!?
Nessun parere? possibile?!??!
(suvvia... nn ho chiesto di risolvermi chissacosa....solo 1 parere!)
.............

 altre controindicazioni oltre ad una maggior lentezza di esecuzione?
E' più lento? E' una sufficiente controindicazione.
Aggiungo anche che qualche provider ASP (sappiamo tutti di chi si parla)
aveva anche ipotizzato di eliminarlo perchè (anche a causa di problemi
evidenziati da M$) poteva permettere di superare certe ... protezioni.

 altri vantaggi? .....?
Altra controindicazione:
richiede la presenza del Wsh, il che significa che in macchine di
categoria 95/98/nt senza lo scripting host dovrai tu provvedere ad
installarlo.
ergo:
dove ti fa "veramente comodo" usare il filesysobject perchè
"core" della tua app, usdalo pure, ma ricordati di includere
il supporto scripting nel tuo setup.
Dove la necessità di accesso a file è limitata, usa i metodi "classici"
che vanno sempre bene...
ciao
ugo

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema Istallazioni

Ciao a tutti , qualcuno sa dirmi se esiste un modo per far creare in
automatico un'icona di collegamento sul desktop al programma di istallazione
? (possiedo Office XP developer e il prog. è fatto con Access). Ogni
suggerimento puo' essere utile, grazie mille ciao Carlo

 automatico un'icona di collegamento sul desktop al programma di
istallazione
Se parli del Wizard di VB, bisogna "smanettare" un po' con Setup1.vbp.
Altrimenti puoi usare l'Installer Microsoft che è gratuito ma solo in
inglese.
Ciao,
Un omonimo.
Newsgroup: it.comp.lang.visual-basic
Titolo: Sommare Textbox

Scusate la mia domanda ma sono alle prime armi e vi prego di avere un po di 
pazienza.......grazie.
Come faccio a sommare due cifre in euro contenute in due (o più) textbox? 
grazie a chi avrà la gentilezza per rispondermi 

danilo wrote:

Cint o cdbl applicati alla stringa di testo per convertirla in numero intero 
o reale.
-- 
Ciao,
 Fabrizio
=== 
http://www.negusweb.it
 ===

Grazie per la tua Gentilezza ma saresti cosi paziente da scrivere un piccolo 
esempio di codice perche a me non riesce di sommare i decimali...  ottengo 
solo risultati interi. grazie 

 ha scritto nel messaggio
news:xUvqe.144332$IN.24...@twister2.libero.it...

Perchè devi leggere le pagine dell'help relative a quelle funzioni per
capire come usarle!
CInt() (che secondo me non ha mai senso usare dato che c'è CLng) ovviamente
converte in intero.
Su come funzionano le approssimazioni ti rimando all'help.
CDbl() converte in double, usa le impostazioni internazionali per il
separatore dei decimali.
Val() converte in double, usa il "." come separatore dei decimali.
Per il loro comportamento con stringhe non numeriche ti rimando sempre
all'help, non tutte hanno la stessa reazione.
Ciao
--
Reporting tool: 
http://www.neodatatype.net

 contenute in due (o più) textbox?
E' tutta una questione di Tipi!
Se vuoi sommare interi usa il tipo Integer/Long, numeri a virgola fissa il tipo Currency, a virgola mobile il tipo Single/Double.
Le TextBox sono controlli che contengono testo, quindi di tipo String. Quello che leggi NON e' un numero.
Pertanto dovrai:
1) Dimensionare nel modo opportuno (tipo giusto) la variabile che conterra' la somma (e ti possono far comodo anche due variabili 
per gli addendi)
2) Convertire il contenuto della TextBox con le opportune funzioni CInt/CLng/CCur/CDbl/CStr ecc.
3) Sommare i numeri ottenuti dalla conversione
4) Convertire in stringa il risultato e visualizzarlo nella TextBox che contiene risultato.
Se la stringa contiene il simbolo dell'Euro €, potresti aver bisogno di "eliminarlo" prima di convertire in numero.
In tal caso cerca sulla guida la funzione Replace.
hth,
Lokar
-- 
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs
­/Manifesto.txt
Statuto: 
http://www.it-lang-vb.net/docs
­/Statuto.txt
UGIdotNET - 
http://www.ugidotnet.org
 

danilo wrote:

Penso che le informazioni di Zanna siano più che sufficienti per fare dei
test.
Se ci sono altri problemi, chiedi pure.

Newsgroup: it.comp.lang.visual-basic
Titolo: Icone da file .exe

In un programma devo fare una spece di esplora risorse, in pratica l'utenete
sceglie un sottoinsieme di programmi e questi vengono visulizzati in una
listview. Come faccio a recuperare l0icona dal file ,exe, per esempio scelgo
word.exe e voglio che nella listview appaia l'icona di word.
Quanlc'uno riesce ad aiutarmi?
Grazie 1000

 wrote in message
7vl3r0$bgh$1...@pinco.nettuno.it...



Ciao, ti rispondo con un messaggio che avevo postato qualche mese fa, ed č
abbastanza completo sull'argomento:
----------------
A grande richiesta ho deciso di scrivere come fare per estrarre icone da
dll, exe, ocx e qualsiasi altro file compilato contenente icone.
Scriverň anche come ottenere l'icona del programma associato ad un file.
NB: queste sono solo nozioni di base, ma spesso sono piů che sufficenti.
1) - Icone da dll, exe, ocx.
Api richieste:
ExtractIcon()
DrawIcon()
DestroyIcon()
' - Sample -----------------
Dim IconsInFile as long
Dim hIcon as long
Dim i as integer
Dim FileName as string
FileName = "C:\Win95\System\Explorer.exe"
IconsInFile = ExtractIcon(App.hInstance, FileName, -1) 'Ottengo il numero di
icone nel file
For i=0 to IconsInFile -1
    hIcon = ExtractIcon(App.hInstance, FileName, i) 'Estraggo la i-esima
icona dal file
    DrawIcon(Form1.hDC, i * 36, 20, hIcon) 'La disegno
    DestroyIcon(hIcon) 'L'icona non mi serve piů: libero la memoria
Next i
Per ottenere le icone piccole occorre l'Ape ExtractIconEx, non trattata in
questa sede perchč la devo ancora provare...
2) - Icona del programma associato.
Api richieste:
ExtractAssociatedIcon()
DrawIcon()
N.B.: sembra che in questo caso DestroyIcon() non serva.
' - Sample -----------------
Dim hIcon as long
Dim FileName as string
FileName = "C:\Win95\System\Explorer.exe"
hIconRet = ExtractAssociatedIcon(App.hInstance, FileName, 0&)
Call DrawIcon(Form1.hDc, 1, 1, hIcon)
Attenzione: la dichiarazione di ExtractAssociatedIcon nel file WIN32API.TXT
č sbagliata! (ci ho perso un quarto d'ora di insulti alla M$ per capire
dove...): l'alias non č ExtractAssociateIcon ma ExtractAssociatedIcon con la
"d"!!!
Ciao
Adesso per un po' basta con quest'argomento...
Per qualsiasi chiarimento contattatemi pure.

Newsgroup: it.comp.lang.visual-basic
Titolo: Un timer piu' accurato..

Salve, non so se si puo' fare..pero' avrei bisogno di avere la precisione
del millesimo di secondo usando il controllo timer di VB6...Ora come ora, ho
testato , mi fornisce solo i censtesimi di secondo...
In pratica vorrei fare questo:
1) compare una scritta, lo user preme un tasto
2) compare un'immagine, e scatta il conteggio del tempo
3) lo user clicka sullo schermo e il tempo si ferma
4) scrive il tempo di risposta in millesimi di secondo su un file...
Per ora l'unico problema e' appunto quello dei millesimi di secondo...c'e'
una soluzione?
ciao e grazie,
  Alessio
Newsgroup: it.comp.lang.visual-basic
Titolo: Ereditarietà di interfaccia

Problema:
ho 2 classi ciascuna con un metodo ... per prova
-IClass1
	- Public sub Metodo1()
-IClass2
	- Public sub Metodo2()
nella 3ª classe eseguo l'Implelments delle 2 precedenti
-clsClass
Implements IClass1
Implements IClass2
Private Sub IClass1_Metodo1()
End sub
Private Sub IClass2_Metodo2()
End Sub
Il problema nasce quando viene creata un'istanza di clsClass
Dim c as clsClass
	Set c = New clsClass
	c.Metodo1 è presente
	c.Metodo2 non è presente Errore -> Impossibile trovare il metodo o il
membro dei dati
Se inverto l'ordine delle implements il problema sui metodi si inverte
anch'esso
E' possibile fare questa cosa?? Manca qualche cosa ???
	Grazie a tutti
-- 
Posted from [217.57.33.234] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

E' possibile fare questa cosa?? Manca qualche cosa ???
Potresti impostare i due metodi come Public, ma così facendo scateneresti le ire dei presenti... :-P
Non è possibile che un oggetto esponga più di una interfaccia, quindi puoi aggirare l'ostacolo in
questo modo:
Public Property Get IIClass1() As IClass1
    Set IIClass1 = Me
End Property
Public Property Get IIClass2() As IClass2
    Set IIClass2 = Me
End Property
Quindi:
Dim c as clsClass
Set c = New clsClass
c.IIClass1.Metodo1
c.IIClass2.Metodo2
Ciao,
Moreno
#sirri#@#
morenosoft.com#
(togliete "#" dall'indirizzo)
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: Errore durante la cancellazione da un database Access

Ciao.
Il mio problema è il seguente: da un programma in VB tento di
svuotare una tabella di un database Access associato ad un controllo Ado.
Per fare ciò ho creato una routine, che richiamo ogni qualvolta mi serve,
nella quale c'è il seguente codice:
....
Load frmvisric
If frmvisric.adoric.Recordset.RecordCount <> 0 Then
  frmvisric.adoric.Refresh
  frmvisric.adoric.Recordset.MoveFirst
  Do Until frmvisric.adoric.Recordset.EOF
   frmvisric.adoric.Recordset.Delete                     '<<<<<<<<<
   frmvisric.adoric.Recordset.MoveNext
  Loop
End If
....
Sembrerebbe funzionare..infatti funziona, ma se e solo se nella tabella ci
sono
all'incirca una decina di elementi. Gli errori li ho quando in questa
tabella sono
caricati molti records........
Ho provato di tutto (ho aggiunto dei refresh, dei movefirst) con la speranza
di
riuscire nell'intento.., ma niente!
Spero in un aiuto o cmq in una "consolazione"  ;-))
P.S.: Gli errori che ricevo sono i seguenti:
"The specified row could not be located for updating: some values may have
been
 changed since it was last read"
oppure
"Insufficient or incorrect key column information; too many rows affected by
update"
Anticipatamente grazie.
Ciao e a presto.
                  \ \ \ | / / /
                 \ \   -  -  / /
                 (   0  0   )
+-------o00o-(_)-o00o-------+
 | Mider  mailto:
mi...@libero.it
 |
+----------------0ooo---------+
               ooo0     (      )
              (      )       )  /
               \  (       (_/
                 \_)

 wrote in message
news:QfbN4.30561$xt2.3...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [vb.net] Gestione della memoria

Salve a tutto il ng!
Avrei una domanda da porvi.
Ho notato che le mie applicazioni hanno un consumo di memoria esorbitante.
Anche un semplice form senza nient'altro, occupa ben 13 mega,
come mai?
Come faccio a ridurre il consumo di memoria?

leo wrote:

Secondo me è colpa di dot net che deve caricare tutte le librerie
di supporto



Beh, certo pero' che non e' esatammente il massimo :'(

leo wrote:

Dovresti abituartici all'idea! ;-)
Altrimenti usa linguaggi efficienti che non siano interpretati.

> Altrimenti usa linguaggi efficienti che non siano interpretati.
Puntualizzazione:
.NET _non e'_ interpretato, quello che viene eseguito dal processore sono 
istruzioni X86 oltremodo ottimizzate per il processore e la macchina dove 
sta girando l'eseguibile.
HTH
-- 
Corrado Cavalli [Microsoft .NET MVP-MCP]
UGIdotNET - 
http://www.ugidotnet.org
Weblog: 
http://blogs.ugidotnet.org/corrado/

sta girando l'eseguibile.
Infatti, l'esecuzione è molto veloce. Bisognerebbe fare qualcosa per
l'avvio....
--
Ciao!
Luca Menegotto

Puoi provare con NGEN...

Newsgroup: it.comp.lang.visual-basic
Titolo: Form sbiancate

Ciao a tutti
perchè quando lancio una lunga elaborazione
(anche mettendo la ProgressBar che mi dice
a che punto sono arrivato)
la MDIform e la form diventano tutte bianche ????
ho provato anche ad usare Me.Refresh 
ma non cambia di molto.
Avete suggerimenti ????
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Avete suggerimenti ????
Inserisci un DoEvents subito dopo l'aggiornamento della progress bar.
Ma attento ai side-effects dovuti al fatto che quell'istruzione rende
l'interfaccia utente "sensibile" alle azioni dell'utente: sincerati che gli
elementi visuali (menu, pulsanti etc.) che potenzialmente potrebbero interferire
negativamente con l'elaborazione siano disabilitati durante tutta la lunga
operazione, altrimenti l'utente potrebbe fare casino mentre aspetta.
Bye
Raf

sei un grande !!!!!
ora le mie applicazioni sembrano professional
ma senti, 
cosa succede se mentre
un elaborazione è in corso,
io premo un pulsante che ne lancia un altra ??
vanno tutti e due i processi in parallelo 
o viene data priorità alla seconda ???
Grazie mille


e poi....
se io volessi interrompere il processo
in corso, cosa devo mettere nel pulsante di "stop" ??
Grazie


 in corso, cosa devo mettere nel pulsante di "stop" ??
È semplice, nell'evento cmdStop_Click devi settare una variabile-flag
(dichiarata con visibilità almeno di modulo), e devi controllarla nel loop della
tua elaborazione, causandone l'uscita in caso essa sia True.
Spero di essere stato sufficientemente chiaro.
Bye
Raf

 End Sub
Ma la parte divertente avviene in questo caso:
 Sub Elabora1
     Do While Condizione
         ...
         DoEvents
         --------->  Sub cmdElabora1_Click()
                             Call Elabora1
                         End Sub
         <---------
         ...
     Loop
 End Sub
;)
Ciao
--
Reporting tool: 
http://www.neodatatype.net

 ha scritto nel messaggio
news:LFvwe.89191$75.41...@news4.tin.it...

Specialmente in presenza di utenti parkinsoniani... 8-)
Ciao
Raf

ROFL
io mi diverto troppo in questo NG.....
"Rafunk" <rafun...@NOTHANKSlibero.it> ha scritto nel messaggio 
news:d9u14t$q04$1...@alix.livenet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] E' possibile sapere tramite codice se una tale data è un giorno festivo?

Ho provato con il metodo day(date)
ma non funziona
Ho impostato il codice in questo modo
if day(date)="domenica" then msgbox"Festa"
Se è possibile dove sbaglio!
Un saluto a tutti !
mauro.b...@tiscalinet.it


Trovare il giorno festivo è un po' difficile.
Per trovare se è domenica puoi fare
If Weekday(date) = vbSunday then MsgBox "Domenica"
Ciao
Sirjo

 Se č possibile dove sbaglio!


 ha scritto nel messaggio
news:91n716$p5k$1...@pinco.nettuno.it...

Prova con le seguenti Sub.
Public Function Festivo(Giorno As Date) As Boolean
   Festivo = False
   If Weekday(Giorno) = vbSunday Then Festivo = True
   If Day(Giorno) = 1 And Month(Giorno) = 1 Then Festivo = True
   If Day(Giorno) = 6 And Month(Giorno) = 1 Then Festivo = True
   If Day(Giorno) = 25 And Month(Giorno) = 4 Then Festivo = True
   If Day(Giorno) = 1 And Month(Giorno) = 5 Then Festivo = True
   If Day(Giorno) = 15 And Month(Giorno) = 8 Then Festivo = True
   If Day(Giorno) = 1 And Month(Giorno) = 11 Then Festivo = True
   If Day(Giorno) = 8 And Month(Giorno) = 12 Then Festivo = True
   If Day(Giorno) = 25 And Month(Giorno) = 12 Then Festivo = True
   If Day(Giorno) = 26 And Month(Giorno) = 12 Then Festivo = True
   If Giorno = Pasqua(Year(Giorno)) + 1 Then Festivo = True
End Function
Public Function Pasqua(ByVal Anno As Integer) As Date
   Dim A As Integer, B As Integer, C As Integer
   Dim P As Integer, Q As Integer, R As Integer
   A = Anno Mod 19
   B = Anno \ 100
   C = Anno Mod 100
   P = (19 * A + B - (B \ 4) - ((B - ((B + 8) \ 25) + 1) \ 3) + 15) Mod 30
   Q = (32 + 2 * ((B Mod 4) + (C \ 4)) - P - (C Mod 4)) Mod 7
   R = (P + Q - 7 * ((A + 11 * P + 22 * Q) \ 451) + 114)
   Pasqua = DateSerial(Anno, R \ 31, (R Mod 31) + 1)
End Function

Newsgroup: it.comp.lang.visual-basic
Titolo: Font size di sistema

Ciao,
qualcuno ha affrontato il problema della variazione delle dimensioni dei
caratteri
nelle applicazioni VB al variare delle impostazioni di sistema?
Nella mia applicazione, se metto in win NT il set di caratteri grandi, si
modificano le dimensioni dei font nelle form. Ad es. se metto obj.font.size
= 8
vedo il carattere + piccolo con win impostato su caratteri normali e +
grande con
win impostato su caratteri grandi.
Grazie in anticipo
Marco



Se non erro sul Sito COmune c'è qualcosa che fa al caso tuo...
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: Compilatore Gwbasic

Salve!
Mio padre è un super affezionato di gwbasic.
Sapete se esiste un compilatore?
<D-1>

Il quick basic 4.5 dovrebbe essere (quasi) completamente compatibile col
gwbasic.


Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] aggirare la protezione di windows in VB6

Ciao a tutto il NG,
sto scrivendo un programmino che dovrebbe
effettuare qualche piccola modifica ad un file di sistema.
la procedura lavora correttamente se la applico allo stesso file copiato
in una cartella non di sistema.
Se invece faccio girare il prog sulla cartella giusta (system32)
viene effettuata la modifica del file ma subito dopo viene ripristinata la
copia
originale di winzozz (opera del Windows File Protection di Xp Sp2).
avete qualche dritta per aggirare la protezionesui file.sys?
ciao e grazie a tutti.
___________________________________
|Per chi volesse contattarmi in privato:              \
|mailto: shaver999@NOSPAM_hotmail.com   \
|ICQ #: 33754988                                           \
|___________________________________\

 avete qualche dritta per aggirare la protezionesui file.sys?
E' un bel casino: mi ci sono selvaggiamente picchiato con il SP1 di XP.
Con il nuovo XP non so se cambia qualcosa, ad ogni modo avevo risolto
prendendo spunto da qui:
Changer le nom du bouton Démarrer
http://www.infos-du-net.com/modules/nsections/astuce-42.html
A me non serviva cambiare la scritta del pulsante Start, ma le
informazioni li' contenute all'epoca mi erano venute bene,
spero possano servire anche a te.
Cosi' per curiosita', su quali file devi applicare le modifiche?
Magari si puo' trovare una strada alternativa se questa non
funzionasse.
-- 
ciao, hal

 
ha scritto nel messaggio news:32gg9oF...@individual.net...


 mi sa che ci si deve buttare su qualche .inf...
Premetto che e' gradito un quoting umano, cioe' con la risposta *sotto*
al testo a cui si risponde ;-)
Non basta quello che hai fatto tu (e neanche quello che ti avevo
detto prima io ;-)
Avevo dovuto anche 'taroccare' la sfc_os.dll, come spiegato qua:
http://www.winguides.com/registry/display.php/790/
Pero' con SP2 alcune cose sono cambiate ed ho trovato questo
articolo che lo spiega:
http://www.wown.com/articles_tutorials/Tweaking-XP-Windows-File-Protection-SP2.html
Visto che ci lavori, ci terrei parecchio se mi aggiornassi
sulla validita' di quest'ultimo articolo per SP2 (quello per
SP1 garantisco io che funziona ;-)
-- 
ciao, hal

 SP1 garantisco io che funziona ;-)
Ti ringrazio per la dritta....vado subito a spulciare gli articoli...
appena scopro qualcosa di utile ti faccio un fischio.
ciauzz

Newsgroup: it.comp.lang.visual-basic
Titolo: PLAY WAV o MP3

Salve a tutti,
qualcuno sa gentilmente indicarmi il modo di ascoltare un WAV o MP3 potendo
andare AVANTI VELOCE o INDIETRO VELOCE?
Ho guardato sul SC ma i player non prevedono queste funzionalita'.
Ho cercato anche sul NG.
Ringrazio anticipatamente.
Linguaggio e Sistema: VB6 SP3 W98
-- 
Ciao
Roberto


Newsgroup: it.comp.lang.visual-basic
Titolo: Pilotare Crystal Report

Chiedo scusa ragazzi, so che la domanda è trita e ritrita ma non trovo vecchi post sulla
questione...
Quale script utilizzare per far stampare un Report utilizzando come criterio di filtro una casella
di testo su form?
Ho lavorato parecchio col Report Engine di Fox Pro e sono ancora parecchio incartato col crystal...
Vi ringrazio, ciao

di testo su form?
Se usi l'OCX, devi usare la proprietą SelectionFormula
ErreBi

 
Puoi usare la proprieta' SelectionFormula del controllo CrystalReport
(v. 4.6 perlomeno)
ciao
		maxx

fai piů o meno cosě
Repselect = "{tabella.campo}= " & variabile & "and {tabella.campo}>" &
variabile2.........ecc..ecc
Report1.ReplaceSelectionFormula (Repselect)
ciao
max

Molte grazie ragazzi, ..... a buon rendere!
Ciao, Max

Newsgroup: it.comp.lang.visual-basic
Titolo: [forse OT]: UML

Salve a tutti ,
ho seguito anni fa un corso UML , lo ho ripreso questi giorni , utilizzando
un testo e passando da Visio 2000 a Visio 2002.
In considerazione delle esperienze precedenti che quando proponi una spesa
iniziale in tempo per una analisi ti "guardano non benevolmente" , se ho
capito per due motivi principali:
1 - trasmettere una conoscenza dell' attività può essere causa di perdita di
potere.
2- non vedono la necessità di una analisi e vogliono vedere i risultati il
prima possibile, costringendo a finire lavori con almeno il  30% in meno del
tempo necessario (con costi aggiuntivi successivi superiori al risparmio
!!!).
Ho deciso comunque di investire un tempo , stimato dalle due alle tre
settimane , per implementare la conoscenza sia di UML che di Visio .
Mi piacerebbe sapere altre esperienze in merito e quanto è valutato dal
mercato l'analisi UML
giuseppeD

ore giornaliere, UML e' nella mia lista delle cose da approfondire :-)
Difatti anche io lo trovo molto potente... ma di qui a farlo diventare
uno standard ce ne vuole.. trovami un'analista che usa UML e poi se ne
parla ;-).
Ciao.
Jarod Freeson

Newsgroup: it.comp.lang.visual-basic
Titolo: [EXCEL] Numero righe

FOrse è OT ... cmq sapete mica quall'è la property in VB x Excel che mi
restituisce il numero di righe usate nel foglio?
Grazie
--------------------------------
Inviato via 
http://usenet.libero.it

 restituisce il numero di righe usate nel foglio?
A memoria non ricordo. Ma se accendi il registratore di macro, e ti sposti
con CTRL+freccina, forse te lo visualizza lo stesso Excel.
Ciao
Alberto
Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Richiesta FIle

Per eseguire un programma sono richiesti i seguenti file ma io non li trovo.
- CMDIALOG.VBX
- MSMASKED.VBX
- MSABC200.DLL
- MSAJT112.DLL
- MSAJT200.DLL
- VBDB300.DLL
- VBRUN300.DLL
Chi ha informazioni a riguardo, o li ha, me li potrebbe spedire o dirmi dove
scaricarli?
Grazie
Gabriele F.
gfio...@NOSPAMbresciaonline.it.it
Eliminare NOSPAM per scrivermi

Hai per caso un exe senza file di installazione?

 ha scritto nel messaggio
news:Pmde6.76653$ew1.4...@news.infostrada.it...


 ha scritto

direi siano controlli e dll di un prg vb3 che usa access2.
se non li trovi altrimenti, domani posso cercare di mandarteli, sperando che
sia la versione giusta.
ciao, a.

 ha scritto nel messaggio
news:95brsc$g2foe$6...@ID-51318.news.dfncis.de...








Grazie mille lo stesso, ma li ho trovati in tarda serata.
Ciao

 - VBRUN300.DLL           go
circa 2K, Lor.
Newsgroup: it.comp.lang.visual-basic
Titolo: Non mi chiude la connessione

L'ho già postato il 10/12/2004 ma probabilmente non mi sono spiegato
bene.
Parto da una Form1 e con un pulsante Comm2 passo su una form2 e
contemporaneamente eseguo una connessione ad un file .mdb con adodb.
Poi eseguo alcune istruzioni chiudo la connessione :
......
...
....
CN.CLOSE
Successivamente scarico la Form2 e torno sulla form1
A quel punto sulla Form1 devo usare nuovamente Comm2 e attivare la
stessa connessione ... ma quando cerco di farlo mi da il messaggio
<run time error 3705
l'operazione non è consentita se l'oggetto è aperto> 
( in debug visualizza in giallo l'istruzione di open sulla connessione
che ho comunque chiuso con la CN.CLOSE precedente  )
ho provato anche a fare
<CN.CLOSE
SET CN = Nothing>
Ma ha avuto lo stesso effetto
( ho provato anche a chiudere il recordset ... nessuna differenza )
Grazie a tutti coloro che mi aiuteranno
Gov...@infinito.it

 ha scritto nel messaggio
news:56cd3b81.04121...@posting.google.com...

e se provi a mettere prima dell'apertura cn.close, funziona tutto a dovere?
evidentemente ti perdi in qualche passaggio e l'istruzione cn.close non
viene eseguita
hai provato a mettere un breakpoint su quell'istruzione? ci passa?
e dopo l'istruzione cn.close che altre istruzioni vengono eseguite?
detto così senza vedere il codice non è un problema risolvibile!
ciao!

Newsgroup: it.comp.lang.visual-basic
Titolo: Impossibile caricare il controllo ....

Salve.
Ho un terribile dramma.
L'OCX ActiveBar della Datadynamics mi sta improvvisamente dando dei
problemi. Succede che richiamando un progetto che utilizza tale OCX,
VB5 non carica il componente ed il log della form contiene il
messaggio
"Riga 13: impossibile caricare il controllo ActiveBar1."
Stranamente pero' il controllo e' visibile ed utilizzabile nella
toolbox, infatti posso riposizionarlo ed utilizzarlo in runtime, salvo
poi salvare il tutto e ritrovarmi l'errore appena ricarico il
progetto.
Cosa ancora strana e' che gli exe precedentemente  creati e che
contengono il famigerato, funzionano normalmente.
Finora ho provato a :
- disinstallare e reinstallare l'ocx anche in dir diverse
- disinstallare e reinstallare VB5
- eliminare tutti i riferimenti al componente con il regedit
Purtroppo ancora il malefico non funziona e temo al pensiero che
dovro' formattare e reinstallare WIN98 !!!!
Saluti e grazie.

Hai provato, dopo averne cancellato i riferimenti, a ri-registrarlo con
REGSVR32?
Paolo
TMax <a...@def.ghi> wrote in message 37d4dfb0...@news.betacom.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: (OT) Nome computer Win98 non in rete.

Da un'ora sto cercando di capire come trovare il
nome del mio computer.
Come si fa?
Grazie, Sauro

 Grazie, Sauro
-- 
!!! SODDISFATTI O RIMBORSATI !!! Nessuno si è mai lamentato della nostra 
offerta 2x1. Morire in 2 e pagare per 1.
[CapoBecchino] - hotmail/msn: capobecchino [@] hotmail [.] com

 dovrebbe funzionare ;)
No, non funziona.
Funziona invece:
Pannello di controllo\Rete\Identificazione.
... come mi hanno suggerito dopo.
Grazie comunque ;-)
Ciao, Sauro


scrisse:

ipconfig /all
dovrebbe esistere anche in Windows 98 e dovrebbe darti la prima voce
"nome host"
ciau
AranBanjo
-- 
web: 
http://www.ponchio.it
Replay to: *[[banjo]]spamdim..@**
ponchio.it
**
"E' un vero peccato che tutte le persone che sanno come far
funzionare il paese siano troppo occupate a guidare taxi o
a tagliare capelli" - George Burns

 ha scritto nel messaggio 
news:QK0vg.44298$zy5.9...@twister1.libero.it...

Beh, ci sono molti modi..
1) esegui da una finestra del prompt il comand ECHO %computername%
2) esegui da una finestra del prompt il comand PING localhost
3) esegui da una finestra del prompt il comand TRACERT localhost
4) pannello di controllo - rete - identificazione (quest'ultima non sono 
proprio sicuro si chiamasse cosě)
:-)
Ciao!
    Diego 

     Diego
Risposta piů completa non si poteva avere!  ;-)
Grazie Diego.
Ciao, Sauro

 AranBanjo
Grazie e ciao.
Sauro

Newsgroup: it.comp.lang.visual-basic
Titolo: duplicazione righe?

Potrebbe capitare che saltuariamente il codice che dovrebbe scrivere un
record su di una tabella si sbagli e ne scriva due di queste righe ?
In un gestionale scritto in VB6 e che usa access 2000 + ADO  esiste una
form da cui l'utente inserisce un movimento contabile .
Confermando l'inserimento il codice scrive anche un movimento di
contabilitą analitica su di un'altra tabella , prendendo gli stessi dati.
Ogni tanto mi segnalano che di queste righe ce ne sono due gemelle , a
meno ovviamente della chiave primaria ID di questa seconda tabella.
E' possibile che il codice faccia di questi errori che non riesco a
ripridurre ?
Saluti!
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 record su di una tabella si sbagli e ne scriva due di queste righe ?
certo che potrebbe.
ma potrebbe anche non.
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo


 seconda tabella.
La cosa è abbastanza frequente quando l'insert verso la seconda tabella 
contiene almeno un join.
Se l'Insert non è fatto come si deve, e il db contiene qualche cosa di 
duplicato, anche l'insert si trova a lavorare su dati duplicati e ad 
eseguire due insert anzichè uno.
Ma perchè avvenga ciò, occorre che l'insert sia una vera porcheria (un buon 
insert è immune da questi problemi).
Posta l'insert e vediamo cosa si può fare.
Ciao
Alberto
-- 
"C'è un Calvelli dentro ognuno di noi" (cit.)
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con Crystal Report

Come si fa a collegare un campo di un report con un campo di una form in
modo che nel campo del report venga visualizzato il valore del campo della
form? Il campo della form non è collegato a nessun campo di data base!
Ho provato in tutti i modi ma non ci sono riuscito! E' possibile farlo?
Grazie Andrea

 wrote in message
8kaei8$jso$1...@fe1.cs.interbusiness.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: ? Cerco Funzione per textBox

Mettiamo che ho tre text allineate tra loro.
La proprietą Multilinea č impostata su tutte.
La domanda č questa:
Come posso scrollare contemporaneamente tutte e tre le textbox agendo solo
sulla scroll bar di una delle tre???
Grazie per l'Aiuto
--
Posted from 
romeo.logikos.it
 [193.70.26.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

 sulla scroll bar di una delle tre ???
API SendMessage, sul sito di un certo Cesare Rizzi dovresti
trovare un esempio... ;-))) !
Comunque:
*Scrollare il testo in una TextBox:
Const EM_LINESCROLL = &HB6
SendMessage Text1.hwnd, EM_LINESCROLL, 0&, Linee  'scroll verticale
' Valori positivi di Linee vanno in giù, negativi per andare in su.
SendMessage Text1.hwnd, EM_LINESCROLL, Caratteri, 0& ' scroll orizzontale
' Valori positivi di Caratteri vanno a dx, negativi per andare a sx.
*Trovare il numero della linea corrente in una TextBox:
Const EM_LINEFROMCHAR = &HC9
LineaCorrente = SendMessage(Text1.hwnd, EM_LINEFROMCHAR, Text1.SelStart, 0&)
' Attenzione, la linea più in alto è la 0, non la 1
' possono essere utili, non le avevo mandate...
* Prima linea visibile di una TextBox
Const EM_GETFIRSTVISIBLELINE = &HCE
PrimaLineaVisibile = SendMessage(Text1.hwnd, EM_GETFIRSTVISIBLELINE, 0&, 0&)
*Scrollare fino alla linea dove c'è il cursore
Const EM_SCROLLCARET = &HB7
SendMessage(Text1.hwnd, EM_SCROLLCARET, 0&, 0&)
L'ostacolo grosso è che la TextBox purtroppo non ha un evento Scroll, dovresti
usare delle scrollbar separate, invece di usare quelle incorporate nel controllo.
In questo modo nella tua scrollbar verticale, puoi mettere nell'evento change
una chiamata all'API che scrolli in sincrono le tre textboxes.
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

hahhaaahaha
Grazie Paperino


Grazie di cuore
Le tue preziose precisazioni, sono state inserite nel txt del file di
esempio della raccolta API.
ma... a proposito.
In una scroll bar, diciamo verticale, come fai a comandare nell'evento
change, lo scroll in giu e lo scroll in su ???
Ciao a presto
