mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Inserimento img nella guida con Word

 stai parlando delle intestazioni | pič di pagina?


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

Qualcuno sa darmi un indirizzo dove trovare tutorial per l'utilizzo dei
virtual channel (a parte msdn !) e le dichiarazioni delle wtsapi in visual
basic 6 ?
grazie
Ciao



hai provato 
http://dev.remotenetworktechnology.com/
 ?
Ciao,
Moreno
-- 
sirri at morenosoft dot com
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: Programmatore VB

Cerco in provincia di Pesaro un esperto programmatore Visual Basic, Access,
Delphi, ecc. con il quale vorrei sviluppare del software di gestione per
aziende.
Chiunque fosse interessato è pregato di contattarmi via e-mail al seguente
indirizzo:
lambro...@info-net.it
 (togliere nospam).
Grazie




Newsgroup: it.comp.lang.visual-basic
Titolo: Aprire gli Indici di Clipper





Sul ng vo-clipper mi hanno confermato che VB 
apre gli indici di clipper; chi mi sa spiegare come si fa??


 


In clipper uso la seguente sintassi:


 


USE MAGA.DAT INDEX MAGA.DTX SHARED NEW


 


Le estensioni non sono standard *.DBF e *.NTX 
perchè sto usando gli archivi di un'applicazione clipper di terze parti, infatti 
per il momento mi sto arrangiando con ACCESS 97 ( Riesco a creare una tabella di 
collegamento con l'archivio  *.DAT ma non con il relativo l'indice ) visto 
che ACCESS 2000 non riconosce i file DBF con l'estensione *.DAT 
.


 


Se VB 6.0 apre i file indici di clipper, finalmente 
potro' convertire la procedura da dos a windows


 


Ringrazio anticipatemente


 


Flavio


 


Ps:


 


Volevo sapere se queste 2 DLL centrano con VB e gli 
indici di clipper


 


    sde32.dll 


    sdentx32.dll


 


Infatti l'aplicazione di terze parti ha anche una 
procedura in windows che utilizza gli archivi del programma principale dos 
(clipper)


 


 


 



 ha scritto


 le librerie apollo o la codebase (sequiter).
aggiungo: all'url del mio post su dbutils, e' segnata una libreria free che
supports the DBF files, dBase's NDX index files, Clipper's NTX files, DBT
memo files, and possibly others

Ti ringrazio, ma non riesco a capire 
" all'url del mio post su dbutils"
ci dovrebbe essere un link, ma non lo vedo.
Potresti per cortesia rinviarmelo.
ciao 
Flavio
-- 
Posted from 
dns2.masterweb.it
 [192.106.185.4] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Flavio
http://www.thefreecountry.com/developercity/database.html

Newsgroup: it.comp.lang.visual-basic
Titolo: Stringa di connessione ADO per database mdb. Quale ?

Salve a tutti, mi sono da poco accostato ad ADO e vorrei chiedervi qual 
è la migliore stringa di connessione per un file mdb. Inoltre vorrei 
sapere quale versione ADO devo utilizzare. Grazie Claudio


Inoltre vorrei sapere quale versione ADO devo utilizzare.
Io uso la 2.5,
è l' ultima.
Saluti...
--------------------------------
Inviato via 
http://usenet.iol.it
 

 è l' ultima.
E la 2.6 ?
--
Mauro



Per la versione ti hanno già risposto, per quanto riguarda la stringa, un modo per imparare a
costruirsela è quello di usare la pagina delle proprietà del controllo ADOData... poi puoi anche
fare a meno del controllo, intanto lo hai sfruttato per costruirti la stringa... :-)
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: CINESE e Fm20.dll

Ho la necessit' di fare un-applicazione che supporta le scritte cinesi e
coreane.
Dai post precedenti ho dedotto che la "Microsoft Forms 2.0" (Fm20.dll)
supporta le scritte in queste lingue, ma la dll non e ridistribuibile.
qualcuno sa dirmi cosa si puo fare?
grazie.



cerca Unitoolbox su google è una libreria per supportare unicode, noi
la stiamo provando funziona bene e la acquisterò.
Ciao
Alessandro
-----------------------------------------
http://www.geocities.com/abilato/

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Memoria esaurita?

memoria non ho mai + di 1 oggetto.
L'oggetto va prima deselezionato dal device context ripristinandone
l'oggetto originario e poi va distrutto
es
memDC = createcompatibledc(....)
newbitmap = createbitmap(....)
oldBitmap = SelectObject(memDC, newBitmap)
<operazioni grafiche con oggetto newBtimap>
' rispristino il device alla sua configurazione originale e distruggo gli
oggetti grafici
call SelectObject(memDC, oldBitmap)
call DeleteObject(newBitmap)
call DeleteDC(memDC)
Ciao Bruno


Non capisco, forse sarebbe meglio se postassi un esempio.
Ciao Bruno


Ciao Bruno

Newsgroup: it.comp.lang.visual-basic
Titolo: Come creare menu con la proprietà BorderStyle del Form = 0 - None

Ho questo problema: vorrei creare un menu disponibile cliccando con il
pulsante destro del mouse in un form in cui la proprietą BorderStyle č
impostata a None. Visual Basic non permette questo, o almeno penso, in
quanto dopo aver impostato la suddetta proprietą, creando un menu ed
eseguendo il programma, appare nuovamente la barra del titolo.
Ringrazio per eventuali suggerimenti,
Alex

 impostata a None.
Il menu ti conviene farlo su di un'altra form che mantieni visible=false.
Quando l'utente clicca col tasto destro sulla tua form senza bordo, mostri
il menupopup della form nascosta
Ciao
*Roby*

 wrote in message
news:8o1ks4$os2$1...@nslave1.tin.it...


 quanto dopo aver impostato la suddetta proprietà, creando un menu ed

Newsgroup: it.comp.lang.visual-basic
Titolo: problemino logico...

molte API usano un solo parametro che consente di specificare pių proprietā
vorrei includere questa cosa in una mia routine, ma non capisco come sapere
quali sono i singoli numeri passati
ecco come dovrei fare:
const Z_ATTR1 = 1
const Z_ATTR2 = 2
const Z_X = 4
const Z_BLABLABLA = 8
const Z_LPLPL = 16
call myFunc(..., ..., Z_ATTR1+Z_X+Z_LPLPL)
viene passato un intero (21), ma come faccio a sapere quante proprietā ho
passato e quali?
ciao
xA3RO

Prova con questo :
Private Sub GetNum(ByVal lValue As Long)
   Dim I As Long
   Dim X As Long
   Dim N as Long
   Dim colOutput As New Collection
   '
   ' N è il numero di attributi - 1
   ' nel caso tuo sarà 5
   N = 5
   For I = 0 To N
      '
      X = lValue And (2 ^ I)
      If X = (2 ^ I) Then
         ' Nuovo Numero Estratto
         colOutput.Add X
         lValue = lValue - X
      End If
      '
   Next I
   '
   Set colOutput = Nothing
End Sub
CIAO
Giuliano

 passato e quali?
F1 --> AND
esempio:
Function MyFunc(ParametroPassato)
if ParametroPassato And Z_LPLPL then
    msgbox "Il parametro Z_LPLPL c'era !"
end if
end function
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


--
Dos
minic...@cheerful.com

Newsgroup: it.comp.lang.visual-basic
Titolo: Visaul Basic ed Access.

Ho create con Access un database che gestisco perfettamente con un
programma VB5.
Dopo diverse sessioni di debug mi ritrovo il database con molti dati.
Attraverso il programma o direttamente da Access riesco ad eliminare i
records delle varie tabelle senza problemi. Ma accade questo: al
successivo inserimento dati nelle tabelle il valore di indice parte
non da zero ma dal vecchio valore (prima della rimozione dei records)
+1.
Come devo fare per mettere a zero gli indici (generati in maniera
automatica da Update) ?
Grazie anticipatamente a chiunque mi aiuterà.
---Bruno

...



nel messaggio di prima ne manca un pezzo.
Sistema barbaro ma efficace: compattare il database.

>Ho create con Access un database che gestisco perfettamente con un
????
non ho capito cosa hai detto...

automatica da Update) ?
Devi ricompattare il database
Ciao Bruno

Newsgroup: it.comp.lang.visual-basic
Titolo: Come posso colorare un triangolo?

Ciao a tutti!
Ho un problema e forse qualcuno mi può aiutare; sto scrivendo un piccolo
post-processor in VB5 per rappresentare dei dati sviluppati da un codice
FEM in fortran.
Il tutto, molto banalmente, si riduce a disegnare una miriade di
triangoli e riempirli con del colore ad hoc in base a dati letti da un
file.
Il punto è questo: io disegno i triangoli con 3 comandi line su una
finestra grafica, ma poi come li riempio? Qualcuno mi sa aiutare?
C'è un modo più rapido per disegnare i triangoli e riempirli?
Dovete scusarmi, ma la mia esperienza VB è veramente miserrima...
Vi ringrazio anticipatamente!!
					Fabrizio (
b...@iol.it
)

Dovete scusarmi, ma la mia esperienza VB č veramente miserrima...

Newsgroup: it.comp.lang.visual-basic
Titolo: cerco visual studio 6.0 o visual basic 6.0 o visual c++ 6.0 (masterizzati)

compro visual studio 6.0 o visual basic 6.0 o visual c++ 6.0
(masterizzati) fatemi sapere al mio indirizzo 
five...@tin.it
.
ciao

Cerco banconote false per truffa aggravata...
ma sparati!
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

Newsgroup: it.comp.lang.visual-basic
Titolo: 3D

Devo costruire un filmato di un'auto che percorre una strada sapete darmi
qualche consiglio sul prodotto da usare (il prodotto migliore che non
richieda grandi conoscenze di 3D)
Grazie

...

Il prog + semplice che ho provato è 3DStudio, ma se non sei un esperto di
modellazione 3D non farai molto più di palline e cubi colorati, a meno che
tu non riesca a trovare meshes (oggetti) già fatti, ad es. un'auto (in 3DS
c'è già una fantastica chevrolet decapottabile anni '70).
    Ciao.

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Controllo Image carica male le Icone??

Salve mentre stavo scrivendo un piccolo programma tanto per fare
qualcosa ho inserito un sul form  un controllo File1 e un controllo
Image1 .
Il mio problema e' che se passo alla Image un file di tipo .ico questo
viene visualizzato in modo pressoche' penoso mancano pezzi di immagine
e in icone con colori predominanti tutta l'immagine risulta di quel
colore.
Uso VB5 professional con SP3
Grazie per l'aiuto 
Diego the dolphin

...


 colore.
Ho avuto lo stesso problema con un controllo ImageList. Un amico mi ha detto
che se si carica un'icona, VB la converte in bitmap, ma con un'algoritmo
estremamente semplificato: vengono considerati 3 pixel sì ed uno no, o
qualcosa del genere. Quindi ciò che è disegnato nella riga o colonna di
pixel "scartata", lo perdi, a discapito ovviamente della qualità. Usa sempre
dei bitmap: ne trovi sul CD di VB5, oppure puoi crearli con programmi tipo
ImageEditor, anch'esso sul CD, o Microangelo, disponibile shareware su
Internet o su CD allegati alle riviste.
Ciao
Cesare Nicola

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] 19 Marzo

Auguri a tutti i papà programmatori, ricordandovi (nel caso in cui lo stretto contatto con VB ve lo abbia fatto
dimenticare), che per essere padri non è sufficiente generare un MDI Child..... ^___^
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

...



Parole sante. Infatti ne ho generati 3 (quasi un'applicazione completa)

(togliete "#" dall'indirizzo)



Newsgroup: it.comp.lang.visual-basic
Titolo: rappresentazione binaria

Qualcuno sa dirmi come posso in visual basic trasformare del testo nella sua
rappresentazione binaria?
Ad es:
pip (testo)
00001010110101010011101111 (formato binario)
Grazie
Andrea


wrote:

Dim AR(1 To 200) As Integer
Dim a As Integer
Dim x As Integer
Dim cifra2 As Integer
Dim cifra As Integer
Private Sub Command1_Click()
Text1 = ""
For x = 200 To 1 Step -1
    AR(x) = 0
Next x
For x = 1 To Len(Text2)
    cifra2 = Asc(Mid(Text2, x, 1))
Next x
While Not cifra2 = 0
    Counter = 0
    Do
        a = 1
        For x = 1 To 1000 Step a
            a = Fix(a * 2)
            Counter = Counter + 1
            cifra = Int(Val(cifra2)) - a
 
            If cifra < 0 Then
                AR(Counter + 1) = 1
                Exit Do
            End If
        Next x
    Loop
            cifra2 = cifra2 - (a / 2)
Wend
For x = 200 To 2 Step -1
    Text1 = Text1 & AR(x)
Next x
Text1 = Mid(Text1, InStr(Text1, 1))
End Sub

Dim AR(1 To 200) As Integer
Dim a As Integer
Dim x As Integer
Dim cifra2 As Integer
Dim cifra As Integer
Private Sub Command1_Click()
Text1 = ""
For x = 200 To 1 Step -1
    AR(x) = 0
Next x
For x = 1 To Len(Text2)
    cifra2 = cifra2 & Asc(Mid(Text2, x, 1))


Newsgroup: it.comp.lang.visual-basic
Titolo: Invio automatizzato delle Mail

ciao a tutti.
ho questa necessità:
ho una lista di circa 1000 indirizzi e-mail di miei clienti.
dovrei inviare a loro lo stesso messaggio, ma mi ruga importarli in Outlook
per poi inviarli un po per volta.
ho VB 6 e sono collegato alla linea ADSL.
Sapete se posso usufruire di un programmino che invia automaticamente a
tutti questi indirizzi e-mail lo stesso messaggio ?
O posso scaricare da qualche parte un esempio o una routine che possa
aiutarmi ?
Grazie a tutti.

ho trovato sul sito comune un esempio che fa per me.
però all'atto di inviare un msg, mi appare una mascherina dove mi chiede
conferma dell'invio.
io vorrei by-passare questa mascherina e rendere il tutto automatico.
è possibile ?
grazie ancora.

 typed:


Togli il msgbox dal codice!

 ha scritto nel messaggio
news:bm3clr$11ft$1...@half.spin.it...


 sull'istruzione:
C'è un'altro esempio sul sito comune che non utilizza le mapi ma
direttamente winsock (pensavo ti riferissi a quello).
btw nel tuo caso non era più semplice fre un bel copia e incolla degli
indirizzi in ccn da un file di testo?

> Togli il msgbox dal codice!
Mi sembra che con gli ultimi Outlook abbiano inserito un controllo sull'
invio di e-mail proveninti da programmi esterni, quindi quella mascherina
potrebbe essere di outlook e non del programmma da te scaricato.
Se fosse cosi' devi sentire M$
--
Friciu

 Se fosse cosi' devi sentire M$
basta autorizzare l'invio da programmi esterni nelle impostazioni di
guardafuori. Perņ non si bypassa il numero massimo di destinatari, che
in autlukke, se non ricordo male, dovrebbe essere 500, mentre č
variabile per i mail server: quello di Libero, ad esempio, ne accetta
massimo 150 o 200 (tra rcp/cc/bcc)
Ciao,
Moreno
Newsgroup: it.comp.lang.visual-basic
Titolo: System.Diagnostics.Process

Ciao,
ho un problemino con la classe in oggetto,e vado a spiegarvi cosa 
succede....
Ho una applicazione che deve solo fare da starter per un altro programma. Se 
vengono soddisfatte delle condizioni, lo starter deve lanciare un exe, e per 
far questo ho provato con:
Dim Proc As New System.Diagnostics.Process
Proc.StartInfo.FileName = "Mio.exe"
Proc.StartInfo.WorkingDirectory = StartingPath
dove StartingPath non e' altro che  il percorso da cui e' stato lanciato lo 
starter; evidentemente sia lo starter che il programma da lanciare, si 
trovano in una stessa cartella.
Il programma da lanciare (Mio.exe nell'esempio) e' un software scritto in 
VB6 ed installato sulla macchina tramite il pacchetto di installazione che 
fa VB6.
Il problema nasce quando, oltre al Mio.exe presente nella cartella di 
installazione, ho un altro Mio.exe in una nuova cartella. Se provo a 
lanciare questo secondo eseguibile, tramite lo starter incluso nella stessa 
cartella, lo starter stesso, pur avendo la corretta WorkingDirectory, lancia 
Mio.exe presente nella cartella creata nel momento del setup.
L'unico modo che ho per far partire il Mio.exe presente nella seconda 
cartella, e' di cancellare Mio.exe presente nella cartella di installazione.
Come posso ovviare?
Grazie .... Maurizio

 Proc.StartInfo.FileName = "Mio.exe"
...
E' sufficiente indicare il percorso completo dell'eseguibile che si vuole 
lanciare, cioe'
Dim FN As String = System.IO.Path.Combine(StartingPath, "Mio.exe")
Proc.StartInfo.FileName = FN

Newsgroup: it.comp.lang.visual-basic
Titolo: renominare un file

volevo  rinominare un file come si fa??
saluti da 
webwa...@lycosmail.com



direttamente dalla guida in linea di VB
Name vecchionomepercorso As nuovonomepercorso
bye, Luys
--------------------------
Luigi Lando
mailto : 
lu...@telemar.it
--------------------------
Make things as simple as
possible - but no simpler.
--------------------------


P.S. Attenzione, se il vecchiopercorso<>nuovopercorso,
sposta il file nella nuova cartella.
Saluti, Massimo.

Newsgroup: it.comp.lang.visual-basic
Titolo: Form sempre in primo piano

In un progetto ho 3 form 2 delle quali le voglio sempre in primo piano...
Come???

Come???
Dai un'occhiata sul mio sito o sul 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
---------------------------------------------------------------------------

Guarda SetWindowPos....
-------------
Ciao
Sabba
Newsgroup: it.comp.lang.visual-basic
Titolo: Passaggio di Tabella come parametro

Ciao,
dovrei scrivere una procedura per leggere il contenuto di una eprom che
riceva come parametri il tipo di eprom ed una tabella per contenere i dati
della stessa tipo
read (Tipo_Eprom,tabella())
e ritorni al programma principale la stessa  tabella con i dati della eprom;
penso sia possibile passare una tabella non definita TABELLA( )
e definirla in seguito in base alla grandezza della eprom
REDIM TABELLA(32767) ecc.
ma in pratica ho un po' di problemi..
qualcuno mi darebbe qualche suggerimento?
grazie
bye

qualcuno mi darebbe qualche suggerimento?
Il seguente codice passa il riferimento di un array e lo utilizza subito dopo.
Option Explicit
Public Sub Main()
    Dim a() As Long
    Dim items As Long
    items = read(a)
    MsgBox a(12) & vbNewLine & items
    Erase a
End Sub
Private Function read(ByRef a_Arr() As Long) As Long
    ReDim a_Arr(0 To &H7FFF)
    a_Arr(12) = 1000
    read = UBound(a_Arr())
End Function
-- 
hth, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: edit box

Sono riuscito ad arrivare dentro ad una edit box di un'applicazione windows,
come faccio a prelevare il testo contenuto??
Grazie

 come faccio a prelevare il testo contenuto??
utilizza SendMessage con WM_GETTEXT
Ciao
Faber
P.S.: ci sei 'arrivato dentro'? hai fatto un buon tuffo?   :-)
spero che tu intenda "avere l'hWnd"...

Lo sapevate che funziona anche se la textbox č in "formato password"...sono
queste le cose belle di win!!!
----------
Ciao
Sabba

Newsgroup: it.comp.lang.visual-basic
Titolo: Ricerca in stringa

ciao
devo dividere una colonna di un db Access contenente i codici e le
descrizioni di un piano dei conti
A.10.10 - IMMOBILIZZAZIONI IMMATERIALI
A.10.10.02 Spese di costituzione e impianto
ecc.
in due colonne Codice e Descrizione
L'unica chiave utilizzabile mi sembra l'inizio della descrizione con 2
caratteri contigui es. "IM" e "Sp" ma con la funzione InStr non posso
usare il caratteri jolly "?"
Qualche idea?
grazie



trovare la posizione dello spazio? ;-)
-- 
ciao, hal

 trovare la posizione dello spazio? ;-)
Oggi sei un po' banale nelle risposte :)
Ciao
--
Reporting tool: 
http://www.neodatatype.net

 Oggi sei un po' banale nelle risposte :)
non a caso l'ho girata come domanda :-P
-- 
ciao, hal

 A.10.10.02 Spese di costituzione e impianto
[cut]
Io a volte, quando non riesco in modo diretto, provo ad aggirare l'ostacolo. 
Ovvero, a quanto vedo, tra il codice e la descrizione c'è uno spazio mentre 
il codice è continuo. Pertanto con vba (puoi trasportare la tabella in excel 
x comodità d'uso), cicla su tutta la stringa corrispondente al campo 
(partendo da sinistra) e poi quando trovi lo spazio inserisci un bel 
carattere tipo §. Poi reimporta la tabella in access e imposti come 
parametri di delimitazione colonna il carattere §. E voilà il gioco è fatto.
ciao da striker
Newsgroup: it.comp.lang.visual-basic
Titolo: Referenziare oggetti in un altro programma

Ciao a tutti,
da un programma vb6 vorrei referenziare degli oggetti dentro un altro 
programma vb6. E' possibile? Potete darmi una dritta per cortesia?
Molte grazie,
L


Indir�zzati sullo studio degli ActiveX EXE.
Magari puoi partire da uno di questi articoli:
http://www.tutorialsweb.com/activex/standard-and-activex-projects.htm
http://kandkconsulting.tripod.com/VB/Tutorials/activex_exe_tutorial.htm
Bye
Raf

Newsgroup: it.comp.lang.visual-basic
Titolo: Una domanda su ODBX facile facile...

Premesso che se ho capito bene non importa che tipo di database tu acceda, i
comandi sono sempre i medesimi, cosa dovrei scrivere per esempio se avendo
un database chiamato Base(.dbf) avente due colonne, volessi le prime tre
coppie di record in 6 txtbox diversi?
P.S. Per favore nen scrivete "dopo aver inizializzato, aperto
,collegato......." perchč non ho la piů pallida idea di usino i driver odbc
Grazie Rivi

Rivi

Newsgroup: it.comp.lang.visual-basic
Titolo: il sito comune non va!!!

il sito comune sapete se ha qualcosa che noon va perchè non riesco ad
accedervi,grazie

 wrote in message news:8nhgvm$t4b$1...@nslave2.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Le date...

Ok, ciao a tutti ragazzi, sto impazzendo!
Per il mio divertimento (in effetti sarebbe dovuto essere un regalo
per la mia ragazza) sto sviluppando un piccolo programma che presa
in input una certa data e ora restituisca il tempo che č passato da
quella data, in anni/mesi/giorni/ore/minuti/secondi. Dovrebbe
essere possibile selezionare solo una voce, scendendo dall'alto
verso il basso come prioritą (vorrei poter scegliere di
visualizzare il tempo passato in minuti/secondi oppure in
ore/minuti/secondi).
Mi sono messo a scrivere un po' di codice, ma mi sono accorto che
sono in mezzo ad una palude di casi speciali (giorni nei mesi, anni
bisestili...) e che comunque quando seleziono minuti, devo
convertirni tutto quello che c'č ai livelli superiori e passarlo
come minuti... tipo: se ho anni=1 e mesi=3 devo convertire gli anni
in mesi e sommarli insieme, quindi passare il tutto in giorni poi
ore... Qui penso si usi la ricorsione, vero?
Ovviamente il tutto deve andare avanti in real time, non deve
essere un messaggio fermo, qui avevo pensato di usare un evento
Timer().

 Timer().
va benissimo il timer.
--
/\/\/\/\/\/\/\/\/\/\/\/\/
|  Partecipa alla stesura di progetti VB sviluppati in team,
|  informati sul Sito Comune sezione Leonardo. Io
|  partecipo al progetto Data Raptor, alleati con noi.
\/\/\/\/\/\/\/\/\/\/\/\/\
Ciao
Ettore Maronese, il Mes
http://www.maronese.com/mes
Sito Comune di questo NG
http://www.murialdo.it/it_lang_vb
Newsgroup: it.comp.lang.visual-basic
Titolo: AddNew in una DBGrid

Ho un problemino:
in un piccolo programma che sto facendo ho inserito
una DBGrid in cui ci sono alcuni dati, ho abilitato la possibilità
di fare delle addnew, ma le colonne della DBGrid non visualizzano
tutti i campi possibili (non mi serve).
Come posso dire, nel momento che un utente fa' una addnew nella dbgrid ,
che in alcuni campi ci vanno dei valori che dico io?
Spero sia chiaro il problema.
Grazie

 wrote in message
96isoj$4me$1...@news.IT.net...

forse intercettando l'evento click della DBGrid?

 wrote in message
96isoj$4me$1...@news.IT.net...


 ha scritto nel messaggio
news:96k6lt$9qf$1...@nreadA.inwind.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con il Timer

Sto facendo un programma che esegue un conto alla rovescia preciso ai decimi
di secondo, ma il controllo timer è molto impreciso e si blocca quando
visualizzo un form modale.
Come posso fare???
Grazie
pil...@tin.it

 wrote in message
7tdg33$5ki$1...@nslave1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: VB5 e win3.1

Come faccio a scrivere un'applicazione in VB 5 che giri però in Windows
3.11?
Grazie per l'aiuto
Leo

 Leo
forse montando le win32 su win3.11. ma non ho mai provato
seno' vb4 / 16bit.

 wrote in message
news:fKi16.170065$hk4.6...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] TWAIN!

Ciao a tutti!
Uso VB5 e desidererei sapere come fare a eseguire una scansione con uno
scanner parallelo e a mettere in un controllo immagine il risultato
dell'operazione (forse devo usare TWAIN? Come?). Vorrei inoltre sapere come
determinare i parametri della scansione (es. risoluzione, colore/bn,...).
Grazie 1000 in anticipo!
Salta a :
www.hophop.com/rosariolombardo


Per iniziare, consulta 
www.twain.org
Lì è disponibile l'SDK dello standard Twain (free), però è pensato per il
visual
C (ovviamente è possibile utilizzarlo da VB, con un bel po' di lavoro).
Comunque il Twain è piuttosto complesso. Ho trovato sul web alcune persone
che hanno realizzato degli OCX per collegarsi agli scanner twain (in pratica
hanno già fatto il lavoro di porting da C a VB) però sono tutti a pagamento.
Microsoft sta proponendo una nuova tecnologia (mi sembra la chiami ISIS)
che dovrebbe essere un'alternativa/sostituzione di Twain per Windows 98/2K.
Riferimenti e l'SDK di ISIS si trovano sul sito developer di Microsoft.
Saluti, Massimo.




Grazie mille a Marco e a Massimo!
Ciao e a presto!

 Ciao!
Tutto estremamente bello, ma...
che proprietą del controllo devo modificare per impostare la risoluzione,il
metodo di acquisizione (bn o colore), e l'area di acquisizione????
Grazie!


Newsgroup: it.comp.lang.visual-basic
Titolo: vb .NET - Caricamento Form

In visual basic . NET vorrei ottenere lo stesso comportamento
dell'apertura delle form di vb6. In altre parole, con il metodo show devo
aprire una finestra e se questa è già aperta non deve accarede niente
(invece il vb .NET ne istanzia un'altra). 
Grazie per l'attenzione
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 (invece il vb .NET ne istanzia un'altra).
variabile del modulo di classe
 Private f2 As tuaForm
------------
Nell'evento che istanzia la maschera
      If f2 Is Nothing OrElse f2.IsDisposed Then
            f2 = New tuaForm
            f2.Show()
        End If
il metodo evita di istanziare una seconda volta la classe
giuseppeD
Newsgroup: it.comp.lang.visual-basic
Titolo: L'oggetto non è più valido ??

E' un'ora che ci litigo.
E' vero che posso fare anche in altro modo, ma mi secca non riuscire
a capire dov'é l'inghippo.
Qualcuno č cosě gentile da darci un'occhiata? Grazie e ciao.
'// CODE //
Private Sub LoadRelationsAll()
Dim sSql As String
Dim rs As ADODB.Recordset
Dim values As Variant, recIndex As Long
Dim li As ListItem
Dim lsi As ListSubItem
Dim lngUserDef As Long
Dim varFields As Variant
sSql = "SELECT * FROM Relations WHERE ItemType = '" & sItemType _
         & "' AND ItemID = " & lngItemId
Set rs = cn.Execute(sSql, , adCmdText)
LV7.ListItems.Clear
With rs
   If .EOF And .BOF Then: GoTo ExitHere
   values = .GetRows
End With
Dim i As Integer
For recIndex = 0 To UBound(values, 2)
   lngUserDef = values(1, recIndex)
   varFields = f_LoadUserDef(lngUserDef)
   If Not IsEmpty(varFields) Then
'--------------------------------------------
'   Debug.Print UBound(varFields) <- Mi da 2
'   For i = 0 To UBound(varFields)
'      Debug.Print varFields(i) <- L'oggetto non č piů valido
'   Next
'Debug.Print varFields(0) & " - " _
'            & varFields(1) & " - " _
'            & varFields(2)      <- Se ne esce senza dir niente
'--------------------------------------------
   Set li = LV7.ListItems.Add(, , varFields(0))
         li.Tag = lngUserDef & "#" & "UserDef"
         li.SmallIcon = "User"
   Set lsi = li.ListSubItems.Add(, , varFields(1))
   Set lsi = li.ListSubItems.Add(, , varFields(2))
   End If
Next
ExitHere:
rs.Close
Set rs = Nothing
End Sub
Private Function f_LoadUserDef(ByVal id As Long) As Variant
Dim sSql As String
Dim rs As ADODB.Recordset
sSql = "Bla, bla, bla"
Set rs = cn.Execute(sSql, , adCmdText)
' in debug i campi sono valorizzati
f_LoadUserDef = Array(rs.Fields(0), rs.Fields(1), rs.Fields(2))
rs.Close
Set rs = Nothing
End Function


VACCACCIA LA MISERIA....
f_LoadUserDef = Array("" & rs.Fields(0), "" & rs.Fields(1), _
                        "" & rs.Fields(2))
Oppure
f_LoadUserDef = Array(rs.Fields(0).Value, rs.Fields(1).Value, _
                     rs.Fields(2).Value)
Ma perchč mi passa gli oggetti Fields?

 Ma perchč mi passa gli oggetti Fields?
*Tu* gli passi gli oggetti Fields, perche' Array() riceve ByRef.
Purtroppo visual basic con le proprieta' predefinite invita a
procurarsi questo genere di problemi, mentre in altri linguaggi
cio' non e' ammesso.
E' sempre bene, anche se appare prolisso, esplicitare sempre la
proprieta' cui si vuole accedere, anche quando e' predefinita.
-- 
ciao, hal

*Tu* gli passi gli oggetti Fields, perche' Array() riceve ByRef.
Eh, finché non ci sbatti contro....
Che dire....sei un grande.
Ciao e grazie
Newsgroup: it.comp.lang.visual-basic
Titolo: hellboy, help ! quicksort

ciao demonietto, fra un po' diventi a pieno titolo helpboy :)
beh, sempre di angeli si tratta, in fondo...
dunque, in ottobre avevi postato il codice di un quicksort per array e me
l'ero giudiziosamente archiviato.
ora tornava molto utile: l'idea sarebbe: faccio un dir() e ordino il
risultato. ma dopo il sort i file mi tornano _quasi_ tutti in ordine.
_quasi_, purtroppo, uno o due si ostinano a starsene fuori ordine, e io non
ci salto fuori.
non ti posto il codice x' e' lunghetto, ma se e quando ne hai voglia e' sul
sito del free, icontest, serve a caricare in una barra le icone di una
cartella. exe e vbp (con larghi blocchi al momento remmati) fanno in tutto
26k, quindi ci metti poco. o se preferisci te lo spedisco.
sempre che tu ne abbia voglia... :)
ciao e grazissime, pal
--
andrea palazzi
xday at libero dot it
free sw - 
http://www.comune.modena.it/cittadini/apal/html/

 wrote in message
Ote54.28224$Bg7.2...@typhoon.libero.it...


vedi messaggio [BUG] Quicksort che ho postato
ciao


Newsgroup: it.comp.lang.visual-basic
Titolo: collegamento ipertestuale

Volevo sapere se era possibile mettere su una form un collegamento
ipertestuale ad un documento word in modo da poterlo aprire al click
sul collegamento.
Grazie mille

 sul collegamento.
Puoi usare l'API ShellExecute:
Public Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hwnd As Long, _
    ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long
ShellExecute Me.hWnd, "Open", "Documento1.doc", vbNullString, _
    vbNullString, 0
Ciao!
--
Esteban
Hosted by 
www.seber.it
(Remove nonspammare for reply)

allora, io ho usato la ShellExecute che ti č stata suggerita da Esteban, ho
usato una Label con l'icona del mouse impostata su una personalizzata che č
la manina di Explorer......sul click richiamo l'API  sul sito che voglio
raggiungere.....
good coding!!!!
--
Damiani Liborio Igor
idam...@hotmail.com
 - 
igor.d...@light.it
http://www.igordamiani.it
ICQ : 11847262
Newsgroup: it.comp.lang.visual-basic
Titolo: Lettura/scrittura su file ad accesso casuale

Vorrei provare a memorizzare dei settaggi del mio prg in VB, ma senza usare
un Database.
So che si puň usare un file di testo e lě metterci i valori da riportare poi
in caselle di testo del prg.
La cosa + semplice(per me neofita), a parte usare il Jet, č quella di fare
tanti file txt quante sono le caselle su cui riportare il vecchio dato
salvato ed aprirli ognuno in accesso sequenziale.
Ma volevo fare con un solo file e lě su varie righe recuperarci i dati
salvati.
Sull'Help non sono(sic!) riuscito a capirci a sufficienza; conoscete qualche
progetto completo di esempio in cui si faccia ciň?
Grazie!
Giorgio

 progetto completo di esempio in cui si faccia ciò?
usa i file ini che sono adatti e creati allo scopo :)) (microsoft consiglia
il registro ma vedi tu)
sul sito comune c'è una classe che ti aiuterà a gestirli se non ricordo
male.
ciao
ps attento che errore comune di usare dichiarazioni per quelle funzioni
sbagliate .In alcuni parametri di quelle dichiarazioni per gestire i file
ini va usata "any" e non "string".
ma te ne accorgerai da solo :))

 Giorgio
bye
R

Grazie!
Finalmente ho capito come si usa il sequenziale.
Giorgio

Newsgroup: it.comp.lang.visual-basic
Titolo: Form SDI e form MDI

Ho creato un'applicazione con molti form e ne ho definito uno
principale (con tutti i menu).
Vorrei però fare una cosa + sistemata, cioè trasformare il form
principale da SDI a MDI in modo da renderlo inattivo e inacessibile
quando ci sono tutti gli altri form aperti.
Come posso gestire queste proprietà?
Ho visto che quando si definisce un form MDI esso viene visualizzato
con un'icona diversa in Gestione Progetti e tutti gli altri forms in
trasparenza.
Come posso creare questo tipo di struttura a parte l'autocomposizione
(perchè il progetto è già a buon punto)?
Grazie

 Grazie
Andrea


wrote:

Mi spiego,
quando si crea con l'autocomposizione un form MDI e poi si aprono
altri form secondari collegati a questo, esso resta inaccessibile
(quindi il click del mouse non funziona) fino a quando non siano chusi
tutti i secondari.
Solo che io il progetto l'ho già creato e vorrei cambiare questa
struttura ora.
Posso? Come!
Thanks!

 Thanks!
Ciao
Andrea

 Thanks!
devi rendere children tutti i form secondari settando l'apposita
proprieta' dei form.
non puoi rendere children quelli che mostri come modali.
una volta che li hai resi children, li richiami dalla toolbar o dal
menu dell'mdi, tipo photoshop per intenderci.
nb: in questo modo, salvo i momenti in cui e' esposto un form modale,
l'mdi e' l'unico form _sempre_ attivo e accessibile :)
ciao



Non sono riuscito a settare Children tutti i form secondari con la
relativa proprietà.
Mi puoi aiutare?
Ma lo devo settare nell'evento o nelle proprietà del form?
Grazie

 Grazie
Newsgroup: it.comp.lang.visual-basic
Titolo: [!?] RAS Connection (esempio di Piccole Perle)

ciao !
qualcuno ha provato la Connessione per mezzo di RAS Dial  dell'esempio
presente sul Sito Comune ?
non va .... cosa sbaglio ?
grazie !

...


Allora:
Prima di scrivere l'articolo, ovviamente, ho testato che funzioni... ed in effetti funzionava tranquillamente...
Oggi, per curiosità ho provato ed in effetti ho avuto il tuo stesso problema.
Premetto che nel frattempo ho aggiornato il DialUp Adapter... non so se possa centrare...
In ogni caso controllerò dove sta il problema e lo risolverò quanto prima (anche se nella prossima settimana sarò fuori
città, e potrò usare il PC solo per posta e news...)
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

Newsgroup: it.comp.lang.visual-basic
Titolo: ? moduli di classe

i moduli di classe in vb servo solo per aggiugere propieta e metodi ad un
oggetto? o altro?

 oggetto? o altro?
anche eventi.

 ha scritto
| i moduli di classe in vb servo solo per aggiugere propieta e metodi ad un
| oggetto? o altro?
Un modulo di classe rappresenta il rappresentante dell'insieme di istanze (oggetti) di quella
classe.
Come tutte le classi puo' avere metodi, campi (proprietą), eventi.

Newsgroup: it.comp.lang.visual-basic
Titolo: Vediamo se qualcuno e' in gamba

Grazie in anticipo a chiunque mi darà delle lucidazioni in merito.
Voglio copiare un File in un volume di un server novell assicurandomi pero'
che il file non esista. Chiaramente ho usato la funzione dir. Sorpresa! Il
File non esiste pero' la funzione dir mi dice il contrario. Ho notato dopo
un'attenta analisi che il nome contratto di un file gia' presente nella
directory di destinazione era identico a quello che stavo copiando. Difatti
eseguendo il comando dir su un serve novell e su un'hard locale la
contrazione differisce (il server novell non usa il carattere ~)
Hard disk locale:
LTWINC~1.CFG
Hard disk di rete:
LTWINCFG.CFG
Ho usato anche l'istruzione open. Stesso risulato!
Qualche idea ?
Grazie di nuovo.

 Qualche idea ?
hai provato ad usare l'oggetto scripting.filesystemobject ?
la dll è scrun.dll
Ciao
Enrico

contrazione differisce (il server novell non usa il carattere ~)
Da quanto ne so Novell non supporta i nomi lunghi (non so le ultime
versioni, ma è sempre stato indietro una decina d'anni rispetto alla
concorrenza), quindi il tuo problema non sembra risolvibile.
Ciao

Prova ad usare il controllo FileListBox invece della dir, io risolsi cosi'
un porblema simile diverso tempo fa ...

 Grazie in anticipo a chiunque mi darà delle lucidazioni in merito.
prego, ma se vuoi delle risposte incomincia a postare un subject decente
ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: OCX eccezionale

E' disponibile a giorni sul sito comune un ocx per creare coolbar modello
IE4 con tanto di dropdownlist.
e udite udite c'č il codice di esempio, potete personalizzare il controllo
come volete voi.
Marcus

Scusa la mia ignoranza, ma qual è il sito comune?

Scusa per la domanda, scorrendo i msg del ng l'ho trovato.
E devo dire che è fantastico!!!
CIAO
Stefano

 e udite udite c'è il codice di esempio, potete personalizzare il


Aspetta un pò cacchio.
Ciao marcus
Stefano ha scritto nel messaggio <01be03ee$4bbf98a0$e58ad8d4@stefano>...



'sta gente che pubblicizza un prodotto quando non e' ancora pronto ;-)
--
Roal Zanazzi
z...@iol.it

'sta gente che pubblicizza un prodotto quando non e' ancora pronto ;-)
Già, mi ricorda tanto qualcuno.....
un tale Bill.....
si...@tin.it

Newsgroup: it.comp.lang.visual-basic
Titolo: ODBC - Problemi di DATA -URGENTE-

Carissimi  innanzi tutto devo ringraziarvi tutti per i vostri aiuti che x me
sono di importanza vitale...
Mi trovo avanti ad un piccolo problema che spero qualcuno possa svelarmi...
Nel mio programma devo occuparmi di una stampa... e per farlo uso CR...
Problema
Sono connesso ad un database tramite un  ODBC  e la data mi viene stampata
in forma di testo...  in questa maniera 19990101 (odioso) come posso
trasformarla???? in  01/01/99 o se non č possibile in questa maniera  mi
basterebbe convertirla in formato numerico!!!??? oppure č possibile
spezzetarla in varie variabili tipo:
19990101
var1=1999
var2= 01
var3= 03
certo di ricevere un vostro valido aiuto... Vi saluto cordialmente Gianluca

...


Newsgroup: it.comp.lang.visual-basic
Titolo: INFO: Sheridan Control + SP3

Nel CD di VB5 trovi gli Sheridan Controls (THREED32.OCX), anche se non
vengono installati automaticamente puoi registrarli a mano compiando il file
in windows\system e successivamente registrarlo con:
C:\WINDOWS\SYSTEM>REGSVR32 THREED32.OCX
dopodiché devi fare doppio click sul file .reg che si trova nella stessa
directory del CD per installare la licenza di sviluppo dell'OCX.
ciao.
Riccardo

quello dell' interdev, xché x ora devo installare solo le patch x vb5.
Io ho preso DEV di Maggio 98 (numero 52)...
Il CD contiene il SP3 per VisualStudio 97, comunque l'installazione
riconosce i componenti (vb5, vc++5, vss5...) che sono presenti e installa la
patch solo per quelli.
--
Roal Zanazzi
z...@iol.it


No, assolutamente... ho controllato, prima di iniziare la copia dei file, ti
da la lista dei pacchetti che hai installati (io ho VB5 e VSS5, non ho
VC++5, etc...).
Inoltre, quella che c'e' su DEV di maggio e' la SP3 international, nella
quale ci sono molte cose duplicate per diverse lingue nazionali (cinese,
koreano, etc...).
Potresti addirittura cancellare le sottodirectory delle lingue che non ti
servono (in pratica rimane solo italiano), prima di lanciare il setup.
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Avvio di un progetto in VB

Che differenze ci sono tra l'aprire un progetto con il doppio click sul file .VBP, ed avviare VB e scegliere lo stesso file dalla maschera che viene presentata all'apertura (per 
intenderci, quella con i tab Nuovo, Esistente e Recente)? Io ci ho perso una settimana di lavoro, perche' un progetto doveva essere aperto in un modo piuttosto che nell'altro 
per funzionare correttamente 8-(
Bye by Massimo 8-]

dipende........
allora, se il progetto lo apri facendo doppio-clic sul VBP, allora quando
premerai F5 per lanciare il programma, la directory corrente sarà quella in
cui si trova il VBP
mentre, se lo apri prendendolo dai files recenti, la directory corrente è
quella in cui è installato Visual Basic
quindi, può essere che in un caso o nell'altro non vengano trovati alcuni
files!!!!
ciao, e good coding!!!
--
Damiani Liborio Igor
idam...@hotmail.com
 - 
igor.d...@light.it
http://www.igordamiani.it
ICQ : 11847262

 --
In effetti, la directory dell'applicazione e' differente, ma con un ChDir
rimetto le cose a posto...e continua a non funzionare! Il problema sta' in
un controllo AdoDataSource, che ha come ConnectionString
"FileName=pippo.udl". Pippo.udl risiede nella cartella dell'applicazione, e
se avvio il progetto con due click sul .vbp, viene trovato correttamente,
altrimenti non si trova. E non voglio cablare il percorso completo!
Bye by Massimo 8-]

beh, scusa.......non diventare matto per niente.......
tu apri il progetto facendo doppio-clic e risolvi la cosa.....anche perchè è
un tuo problema in fase di programmazione: per l'utente finale questo
problema non c'è, visto che lui lancerà il programma usando uno shortcut che
gli verrà impostato dal setup.....
quando la dir iniziale del programma sarà quella in cui si trova
l'EXE........ok?
ciao, e good coding!!!
--


ma  non puoi usare
"Filename=" & app.path & "\pippo.udl"
?
ciao
L2K
PS : la stessa cosa per tutti i file che apri


 --
Bye by Massimo 8-]
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Riconoscimento di variabili file non inizializzate

Salve prodi colleghi(non é propaganda elettorale!)
Ecco il problemuccio(banale ma me sto a scervellà fra poco)
io uso una variabile File globale così
Option Explicit
Dim fil As File
Dim okchange As Boolean
questa variabile deve contenere un file immagine jpeg che viene selezionato
da un controllo file con pattern *.jpg.
Una volta che si é scelta l'immagine, si pigia il tasto command4 che esporta
il path del file immagine in un DB in questo modo:
Private Sub Command4_Click()
    Dim AlSuoPosto As String
    If not isempty(fil) Then
        AlSuoPosto = "c:\programmi\DB\immagini\" + Text1.Text + "_" +
Text2.Text + ".jpg"
        fil.Copy AlSuoPosto
        Adodc1.Recordset("foto") = AlSuoPosto
        mostra_foto
        Else
        MsgBox "Non é stata selezionata nessuna immagine!", vbExclamation,
"Attenzione"
    End If
    Command2.Enabled = True
    Command7.Enabled = True
    Command3.Enabled = True
    Frame2.Visible = False
End Sub
il problema é che isempty mi restituisce sempre FALSE!
Come cavolo fate voi a determinare se una variabile OGGETTO é uguale a
nothing o é inizializzata?
Prostrato e riconoscente
 
mde...@stardust.it

    If not isempty(fil) Then
[SNIP]
Prova con "If Not fil IS Nothing Then"
Ciao.
--
Luca Dormio
l...@sig-la.com
ldo...@tin.it

     If not isempty(fil) Then


Newsgroup: it.comp.lang.visual-basic
Titolo: Invio su KeyDown: provoca beep

Un mio vecchio problema:
su alcuni sistemi (...) nell'evento KeyDown se si preme Invio c'e' un
beep dell'altoparlante di sistema, poi il codice viene regolarmente
eseguito.
es.
if keycode = 13 then
    Text2.setfocus
end if
Qualcuno sa perche'?
Ciao a tutti, lucio
cr...@tin.it
luc...@tin.it

Il caso tipico è quello della textbox:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
    Text2.SetFocus
End If
End Sub
quando l'utente ha finito di scrivere nella textbox1 e batte INVIO, vogliamo
che il focus salti automaticamente alla tectbox2; e in quel momento salta
fuori il famigerato BEEP.
Motivo: l'evento KeyDown viene PRIMA passato alla Window Procedure che
gestisce la textbox, poi alla routine Visual Basic Text1_KeyDown. Nel caso
di pressione dell'Invio (ma anche dell'ESC), il comportamento predefinito
della Window Procedure è l'emissione del BEEP.
Se usci invece l'evento KeyAscii, puoi evitare il BEEP forzando a zero il
valore di KeYAsccii  alla fine della SUB:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Text2.SetFocus
End If
KeyAscii = 0
End Sub


Per passare il focus ad un altro controllo dovresti usare l'evento
keypress e poi inmpostare il valore del tasto premuto a 0
es.:
Sub Controllo_KeyPress(Keyascii as NonRicordo)
If Keyascii=13 Then
	controllo2.SetFocus
	keyascii=0
endif
End Sub
Ciao.
Newsgroup: it.comp.lang.visual-basic
Titolo: Interruzione SQL

Qualcuno mi sa indicare come poter interrompere ( se possibile )
l'esecuzione di una istruzione SQL ?
Mi spiego meglio:
supponiamo che un utente lanci una query che richiede molto tempo (1 o 2
minuti ) ed intenda interromperla in esecuzione, come puo' fare ?
E' possibile visualizzare un form col pulsante annulla ?
Grazie mille in ogni caso
S.E.I.T.  PARMA S.p.A.
se...@rsadvnet.it

...


dipende dal modello a oggetti che usi per accedere ai dati .. DAO, RDO, ecc
UTILIZZO UN DATABASE DI ACCESS 97 CON dao.
Ciao Luca

Newsgroup: it.comp.lang.visual-basic
Titolo: ? Lista a colori

Forse è banale ma ...
Ho la necessità di un controllo che realizzi una list ma nel quale sia
possibile impostare il backcolor (e magari anche il forecolor) di ogni
singola riga.
La lista la devo riempire a mano, non mi servono database o altro
Ho cercato anche sul sito comune ma non ho trovato niente che faccia al caso
mio
Qualcuno mi può aiutare ?
Grazie

 ha scritto nel messaggio
8u9ni0$3jc$1...@nread2.inwind.it...
| Forse è banale ma ...
|
| Ho la necessità di un controllo che realizzi una list ma nel quale sia
| possibile impostare il backcolor (e magari anche il forecolor) di ogni
| singola riga.
C'è il controllo Listview (quello di esplora risorse in modalità dettagli)
che permette di gestire ogni riga.... lo trovi in Microsoft Windows Common
Controls 2


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

Ho un problemuccio con un vecchio adaptec 1505/1515
che consiste nel fatto che non mi permette una volta rivelato e settato di
portare a termine il caricamento di win95
o meglio se lo configuro con ind. 340H e irq 10  quando viene riveleto si
imposta su 140 e 10
ma poi se metto 340  il pc si blocca nel caricamento di W95
ma il bello e che succede anche se sposto tale indirizzo su 140 ????
ho gia fatto molti tentativi pert lo piu inutili chi puo aiutarmi ????
rikki

sei ot... dovresti postare la tua richiesta du it.comp.hardware.scsi...
ů

Newsgroup: it.comp.lang.visual-basic
Titolo: Cerco OCX

Salve a tutti,
cerco un componente che mi faccia fare una cosa del genere..
            Colonna1    Colonna2    Colonna3
Riga1       Valore       Valore        Valore
        1Sottoriga con descrizione
        2Sottoriga con descrizione
        3Sottoriga con descrizione
Riga2       Valore       Valore        Valore
        1Sottoriga con descrizione
        2Sottoriga con descrizione
        3Sottoriga con descrizione
Spero che mi sia spiegato...

 cerco un componente che mi faccia fare una cosa del genere..
In vb6 potrebbe essere la hflexgrid, in .net la datagrid standard permette
già di visualizzare i dettagli se c'è una relazione 1 a molti tra due
datatable.
-- 
Salutoni
Sergio
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 datatable.
Meglio ancora una Hyerarchical Flex Grid (sperando di aver azzeccato "H" e 
"y" varie nel nome) che permette anche di unire celle che hanno lo stesso 
valore.
Ciao
-- 
Free .Net Reporting Tool - 
http://www.neodatatype.net