mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: [vb 2005] comportamento fastidioso dell'editor

Ciao a tutti.
Sono un programmatore VB6 ed ho cominciato a "pasticciare" con VB 2005 
Express. Ho notato una cosetta: forse non ho settato qualche 
impostazione in modo corretto, ma l'editor di VB 2005 non "corregge" i 
nomi delle variabili secondo le maiuscole/minuscole.
Mi spiego meglio: in VB6 se dichiaravo una variabile:
           Dim nNumero as Integer
e poi la riga sotto "usavo" questa variabile scrivendola senza badare 
alle maiuscole/minuscole, così:
           nnumero =9
L'editor, giustamente, quando andavo a capo, provvedeva a "correggere" 
"nnumero" in "nNumero".
In VB 2005 questo non avviene, neppure con le sue parole riservate 
(Next, ecc..). Va bene che VB non è "case sensitive", però...
Qualcuno di voi mi può aiutare? E' un tipo di utilità che si può 
ripristinare?

 ripristinare?
Deve essere spuntato Strumenti > Opzioni > Editor di testo Basic > 
Riformatta il listato di codice. Percorso valido se è deselezionato 
"Mostra tutte le impostazioni".
-- 
news:it-alt.comp.software.openoffice : Il newsgroup dedicato a
OpenOffice.org, la suite open source di applicazioni per ufficio.
Saluti, VITRIOL

 "Mostra tutte le impostazioni".
Sicuramente è una cosa che voi già sapete, ma vorrei condividere 
ugualmente una chicca che ho "scoperto" proprio nei giorni scorsi (e che 
mi ha fatto capire quanto ancora devo imparare dell'ide di 
VS.NET
 2005)
Se dichiaro una variabile, la uso e poi mi accorgo che magari anziche 
dichiarare Pippo l'ho chiamata Pipo, quando vado a rinominarla, mi 
compare -al pedice della variabile- un rettangolino rosso, ci faccio 
clic sopra e ... tah dah, mi permette di sostituire tutte le occorrenze 
presenti nella funzione, anche con l'anteprima.
si lo so è una sciocchezza ... perdonatemi. :-)
ciao
stefano

 presenti nella funzione, anche con l'anteprima.
Con la versione Express non funziona, a meno che non ci sia da abilitare 
qualcosa :-)
Io di solito faccio semplicemente clic destro > Rinomina.


 Io di solito faccio semplicemente clic destro > Rinomina.
A me funziona anche con la express, e mi sembra di aver lasciato le 
impostazioni di default ... credo.
ciao
stefano

 impostazioni di default ... credo.
Hai ragione, funziona. Lo devi fare quando il cursore è ancora sulla 
parola, e non l'avevo notato :-)
Mi aspettavo di vedere uno smart tag permanente come quando c'è un 
errore nel codice, invece lo rimuove appena ti sposti da un'altra parte.

Newsgroup: it.comp.lang.visual-basic
Titolo: Ricky

Ho un problema stranissimo.
Ho un documento Word in cui ho una tabella in cui ho incollato un
codice RichText che viene correttamente interpretato. Il problema che
ho ora è il seguente:
se questo codice è particolarmente lungo, il testo non continua nella
pagina seguente ma viene apparentemente troncato.
Se visualizzo il documento Word in Visualizzazione Normale lo vedo
tutto mentre in layout di pagina e in anteprima di stampa mi viene
troncato.
A cosa puo essere dovuto? Sapete un modo x risolvere questo problema?
Grazie mille

[CUT]
Oggetto... sbagliato!
Richiesta.... sbagliata!
Qui si parla di Visual Basic!!!!!!
Ciao, Vincenzo

Ops.. Scusami... Non mi sono spiegato interamente...
Il documento Word di cui parlo è generato in VB.
Il codice RichText è inserito nella tabella all'interno del documento
con le seguenti istruzioni:
Clipboard.Clear
Clipboard.SetText cella, vbCFRTF
Tabella.cell(R, C).Range.Paste
C'è qualche parametro da specificare affinche mi venga visualizzato
tutto il testo?? Xke come dicevo prima in modalità Normale lo vedo
tutto ma dentro la cella no!!
AIUTO!

Newsgroup: it.comp.lang.visual-basic
Titolo: Spazio su disco

Grazie di cuore e complimenti per il tuo sito.E' straordinario e ricco di
utilità.
Ma devo essermi spiegato male:
Il mio problema è localizzare un file Es. Pippo.Mdb ,vederne ed enunciarne


Newsgroup: it.comp.lang.visual-basic
Titolo: Per iniziare!

Studio il VB da "ben 5 giorni", e mi accorgo che è ancora "...un po' presto"
per postarvi qualche domanda degna di qualche interesse.
Volevo pero' chiedervi se potete consigliarmi qualche libro interessante di
livello edio - basso, magari con molti esempi, ma che non sia ovviamente
l'orribile VB for Dummies, che purtroppo ho letto, senza troppa
soddisfazione.
Grazie.
andr...@usa.net

 wrote in message 7rbb4t$t4j$1...@nslave1.tin.it...

Come (spero) gia' saprai, questo newsgroup ha anche un sito WEB (il Sito
Comune), che contiene vario materiale, articoli, links e... recensioni di
libri.
Direi che e' il primo posto dove guardare per dei libri su VB:
www.murialdo.it/it_lang_vb/
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: macro complessa in excel

come faccio a registrare una macro che mi copia delle righe dal foglio 1,
le cancella, e le incolla nel foglio 2?
premetto che nel foglio 1 c'č un
elenco di dati che ogni tanto devo scaricare per caricarli nel foglio2.
aiutooooo
--------------------------------
Inviato via 
http://usenet.iol.it

 elenco di dati che ogni tanto devo scaricare per caricarli nel foglio2.
    Da quest'ultima frase sembrerebbe che piu` che un copia/incolla tu abbia
bisogno di un taglia/incolla. Se le cose stanno cosi` allora, per esempio:
    Partiamo con Foglio1 con tre celle di intestazione colonna:
    A1: Campo1
    B1: Campo2
    C1: Campo3
ed un Foglio2 identico a Foglio1. Poi immettiamo, a partire da A2, i
seguenti dati:
1    2    3
4    5    6
7    8    9
    Salviamo! Quindi, in un modulo del progetto vb della cartella, scriviamo
il seguente codice:
Option Explicit
Sub Accoda()
  On Error GoTo errh
  Const c_sWksInput = "Foglio1"
  Const c_sWksOutput = "Foglio2"
  Dim oXLWksInput   As Excel.Worksheet
  Dim oXLWksOutput  As Excel.Worksheet
  Dim oXLRngInput   As Excel.Range
  Dim oXLRngOutput  As Excel.Range
  With ActiveWorkbook.Worksheets
    Set oXLWksInput = .Item(c_sWksInput)
    Set oXLWksOutput = .Item(c_sWksOutput)
  End With
  With oXLWksInput.UsedRange
    Set oXLRngInput = .Resize(.Rows.Count - 1).Offset(1)
  End With
  Debug.Print oXLRngInput.Address
  With oXLWksOutput.UsedRange
    Set oXLRngOutput = .Resize(1, 1).Offset(.Rows.Count)
  End With
  Debug.Print oXLRngOutput.Address
  oXLRngInput.Cut oXLRngOutput
ext:
  Set oXLRngOutput = Nothing
  Set oXLRngInput = Nothing
  Set oXLWksOutput = Nothing
  Set oXLWksInput = Nothing
  Exit Sub
errh:
  Beep
  Resume ext
End Sub
    Compiliamo, salviamo e testiamo.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 Inviato via 
http://usenet.iol.it
Da inserire nel modulo di Excel 
(Strumenti-->Macro-->VisualBasic Editor) e poi copia ed incolla
la macro prende il nome esegui volendo si può cambiare
Gli apici sono i commenti
Ciao
      Franco
Sub esegui()
' inserisco i dati inerenti la tabella nel foglio1
inizio_riga_foglio1 = 2   'riga 2
inizio_colonna_foglio1 = 3   ' colonna C
numero_colonne = 5
numero_righe = 2
' inserisco i dati inerenti il foglio2
' fisso il punto in alto a sx da dove verrà inserita la tabella nel
foglio2
inizio_riga_foglio2 = 5 'riga 5
inizio_colonna_foglio2 = 6 'colonna F
' classico ciclo for per tabelle
For i = 0 To numero_righe - 1
  For j = 0 To numero_colonne - 1
 
  Worksheets("Foglio2").Cells(i + inizio_riga_foglio2, j +
inizio_colonna_foglio2) = Worksheets("Foglio1").Cells(i +
inizio_riga_foglio1, j + inizio_colonna_foglio1)
 
  Worksheets("Foglio1").Cells(i + inizio_riga_foglio1, j +
inizio_colonna_foglio1) = ""
 
  Next j
 
Next i
End Sub
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.visual-basic
Titolo: handle du file

Una piccola domanda :
dim  pipehandle as Long
pipehandle = CreateFile(txtPipe.Text, GENERIC_READ, 0, 0, OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL, 0)
dove la variabile pipehandle contiene l'handle del file .
Vorrei ottenere una cosa inversa dato handle vorrei ottenere il nome del
file .
Sai come si fa ?

Granata Crescenzo ha scritto nel messaggio ...


Mah, seguendo un po' le tracce di CreateFile() sull'MSDN si arriva a
OpenFile() di cui credo ti possa interessare il parametro di tipo OFSTRUCT
Ciao

 wrote in message news:8ojhmm$9fp$1...@nslave2.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Reading Data from an RTB

Hello everyone.
    What I 'm trying to do is read in one word, one number(of any length.
2,3,4+characters long), one character.
I kind of have the one character down, but the one word and one number is
baffling me.
I 'm using an RTB to store the information from the file, and at the end of
each line, there's the lf/cr codes(10/13 respectively).
I know there "has" to be a simpler way of doing this. I've tried Mid/Instr,
but I can't get anywhere with it cuz the RTB is multilined.
Any help would be greatly appreciated.
TIA,
Bobby
Here are my functions:
Function fread_word(StartPos As Integer, strReturn As String)
    Dim strTemp As String
    strReturn = ""
    rtfText.SelStart = StartPos
    rtfText.SelLength = 1
    If Asc(rtfText.SelText) = 10 Or Asc(rtfText.SelText) = 13 Then
        Do While Asc(rtfText.SelText) = 10 Or Asc(rtfText.SelText) = 13
            StartPos = StartPos + 1
            rtfText.SelStart = StartPos
            rtfText.SelLength = 1
        Loop
    End If
    Do While Not rtfText.SelText = " "
        strReturn = strReturn & rtfText.SelText
        StartPos = StartPos + 1
        rtfText.SelStart = StartPos
        rtfText.SelLength = 1
    Loop
    If rtfText.SelText = " " Then
        StartPos = StartPos + 1
    End If
End Function
Function fread_char(StartPos As Integer, strReturn As String)
    rtfText.SelStart = StartPos
    rtfText.SelLength = 1
    Do While Asc(rtfText.SelText) = 10 Or Asc(rtfText.SelText) = 13
        StartPos = StartPos + 1
        rtfText.SelStart = StartPos
        rtfText.SelLength = 1
    Loop
    rtfText.SelStart = StartPos
    rtfText.SelLength = 1
    strReturn = rtfText.SelText
    StartPos = StartPos + 1
End Function
Function fread_number(StartPos As Integer, intReturn As Integer)
    Dim FindEndPos As Integer
    Dim strTemp As String
    Call fread_char(StartPos, strTemp)
    FindEndPos = StartPos + 1
    rtfText.SelStart = StartPos
    rtfText.SelLength = 1
    Do While IsNumeric(strTemp)
        Call fread_char(StartPos, strTemp)
        If IsNumeric(strTemp) Then
            intReturn = intReturn & Str(strTemp)
        End If
    Loop
'    StartPos = StartPos - 1
End Function

 wrote in message
news:9jkr93$3n1$1...@iac5.navix.net...

Newsgroup: it.comp.lang.visual-basic
Titolo: worksheets

Quando creo un nuovo worksheet in un oggetto di tipo Excel.Application,
mi vengono creati di default altri 3 fogli, che sono Foglio1, Foglio2,
Foglio3.
Come faccio ad eliminarli tutti e tre tramite codice?
Questo è il codice che uso per generare un nuovo foglio:
Set ExcelWbook = ExcelApp.Workbooks.Add
Set ExcelWsheet = ExcelWbook.Worksheets.Add
ExcelWsheet.Name = "DataEntry"
Grazie, Stefano.

 Come faccio ad eliminarli tutti e tre tramite codice?
Il numero di fogli visualizzati in un nuovo Workbook
dipende dalle impostazioni immesse dall'utente e
pertanto puo' essere variabile. Di default vengono
creati 3 fogli. AFAIR non si possono eliminare TUTTI
i fogli, pertanto il meccanismo migliore e' rimuovere
tutti i fogli finche' ne resta uno solo e poi
rinominarlo.
Non ricordo i nomi dei metodi e delle proprietą a memoria
ma dovrebbe essere qualcosa tipo:
Do Until myWorkBook.Worksheets.Count = 1
   Call myWorkBook.Worksheets.Remove(1)
Loop
myWorkBook.Worksheets.Item(1).Name = "MioFoglio".
hth,
Lokar

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

Aiuto. Ho questo problema :
la selection Formula di CR. Per fargli intendere di ricercare in un campo di
testo faccio così:
                "{nometabella.nomecampo}= ' " + VariabileTesto + " ' "
Ma come faccio con una variabile numerica ?
Grazie a tutti.
--
CHE LA FORZA SIA CON VOI
E ricordatevi di visitare il sito :
http://digilander.iol.it/lamak

 testo faccio cosě:


 wrote in message
8ebgm2$bmu$1...@serv1.iunet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] non si dovrebbe fare, ma lo faccio lo stesso :-)

come da oggetto.
qualcuno ha notizie del papero?
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 qualcuno ha notizie del papero?
<LURCH> Chiamatooo ? </LURCH>
Hai posta :-)
Bye, G.

 Hai posta :-)
Correggo: avresti posta se l'indirizzo che avevo fosse ancora
funzionante...
Your message cannot be delivered to the following recipients:
  Recipient address: [tuo indirizzo che ho sempre usato]
  Reason: Remote SMTP server has rejected address
  Diagnostic code: smtp;550 sorry, no mailbox here by that name (#5.1.1 - chkusr)
Se "newsgroup" è buono dimmelo, altrimenti mandami tu una mail.
Se non hai più l'indirizzo, usa quello di questo post, è valido.
Bye, G.

Newsgroup: it.comp.lang.visual-basic
Titolo: [NET] Save project as... dov'è finito?

In Vb6 quando dovevo creare una nuova versione di un programma salvavo 
tutte le form, moduli, ecc. in una nuova cartella ed alla fine facevo 
"Save project as..." e cambiavo nome al progetto.
In VB 2005 express come fareste?
Grazie
Ghigo
-- 
www.ghigoweb.com

> In VB 2005 express come fareste?
Copiando i file... la versione si può impostare dal file AssemblyInfo.vb 
di ciascun progetto.
Newsgroup: it.comp.lang.visual-basic
Titolo: consiglio su pacchetto di installazione

mi accingo finalmente a (forse) distribuire il mio primo programmino scritto
in Visual Basic 6. non so ancora se e quanto mi pagheranno, ma molto
probabilmente si tratterà di distribuirlo attraverso un floppy (o Cd)
allegato a 3-4 riviste di tiratura medio-bassa (riviste settoriali, diciamo
così...).
il problema è ora la compatibilità con Win NT e Win 95 e la creazione del
pacchetto di installazione.
il prog l'ho fatto sul mio PC che ha Win 98, ver 4.1. come devo comportarmi
per Win 95? e Win NT?
e poi il pacchetto di installazione sarà necessario perchè ci sono un oceano
di controlli, oltre ai Common Control 6. c'è Chart, Common Dialog e
HFlexGrid...
qual è, secondo voi, il software migliore per creare pacchetti "sicuri"?
InstallShield? Quanto costa? Sapete se negli ultimi numeri di "Io Programmo"
ne è uscita qualche versione free? Ed è possibile aggiungere tanti
controlli, dirgli in che directory deve installare il mio programma, ecc.
ecc.?
grazie 1000
Mario

 wrote in message
jYh56.8377$FF1.5...@twister1.tin.it...

hai provato CREAZIONE GUIDATA  di VB6  ??
Tommaso

Prova InnoSetup, 
www.innosetup.com
Gratuito, ottimo, molti tool di terzi, abbastanza personalizzabile,
con registrazione di dll e ocx...
Vuoi dire che una rivista di informatica pubblica un tuo software?
Complimenti!


--
Brian T
Risposte via email a ::
#hitech@#
virgilio.it#


l'ho scartata a priori perche ho sentito che fa casini... ho sbagliato?
mario

 Complimenti!
noooooooo magari... ::)))))))
non è una rivista di informatica, ma 3-4 riviste "accademiche" che non hanno
a che fare con l'università. ho fatto un programma che secondo i direttori
di queste riviste puo servire ai lettori, tutto qui. non so manco quanto mi
pagano...
mario

l'ho scartata a priori perche ho sentito che fa casini... ho sbagliato?
Interesserebbe anche a me saperlo, visto che dovrei passare a VB6 fra
poco...
Intanto posso dire nella mia esperienza che la creazione guidata in
VB5 funziona bene, non mi ha mai dato particolari problemi ed e'
semplice da usare... l'unica cosa e' un po' incasinata da
personalizzare...
Ciao
--
GrayMute
:: VeGaN today for a better tomorrow ::

> Prova InnoSetup, 
www.innosetup.com
gratuito E ottimo? mmmh... e come mai?
ma č meglio di installshield? ma installshield č gratuito?
mario

personalizzare...
Secondo me è ancora la migliore.
Non è il massimo della flessibilità però funziona bene.
Con lei ho risolto un problema che con il Visual Installer della MS non
riuscivo ad eliminare nell'installazione di MDAC.
Inoltre puoi crearti pacchetti di installazione in qualsiasi lingua se
scarichi il pacchetto multilingua.
Inoltre è moooolto più semplice da usare di molti altri prodotti "più
potenti".
Ciao

 potenti".
Concordo. Nella maggioranza dei casi, fai tutto in pochi minuti.
Ciao
Aldo
Newsgroup: it.comp.lang.visual-basic
Titolo: + istruzioni sql contemporaneamente

Penso che non si possa fare, ma vorrei fare
s= "insert into blabla ; insert into bla bla; insert into bla bla";
db.execute s
ma mi da un errore che dice che access non vuole nienre dopo il ;
non e' possibile eseguire + istruzioni sql in una volta sola ?


penso che dovresti usare le stored procedure ma in access non
si puo'
che senso abbia questo genere di operazione non lo capisco
proprio. non puoi eseguire prima una e poi l'altra?
--
Fibia "Sakamoto" FBI
E-mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Sito Personale: 
http://www.geocities.com/fibiafbi
VB Simple: 
http://vbsimple.virtualave.net
Membro #25 delle Mitiche Brigate Takahashi sezione Sud


non so se access lo supporta, ma potresti evitare del tutto il punto e virgola o,
eventualmente, metterlo solo alla fine, ed interporre una GO tra una insert e l' altra:
insert into bla bla
go
insert into bla bla
go
...
ciao, hal

Che io sappia Access non supporta la "go", credo non supporti affatto
accodamenti di query.
(da verificare)
ciao
ugo

proprio. non puoi eseguire prima una e poi l'altra?
Lo faccio gia', ma per accodare molti record ci mette un bel po'.
Volevo vedere se passando tante insert insieme le cose miglioravano o
no.
Ma ho velocizzato in un modo leggermente diverso. Grazie lo stesso

Newsgroup: it.comp.lang.visual-basic
Titolo: problemino banale

Ciao a tutti,
qualcuno sa come posso associare il tasto ENTER al tasto TAB  ?
In poche parole voglio che l' ENTER faccia la stessa funzione del TAB.
Grazie a chi mi rispondera'n !

 ha scritto nel messaggio
news:bf6bvs$enf$1...@lacerta.tiscalinet.it...

look for 'sendkeys'...

SYNCROVA ebbe il coraggio di dire:

puoi intercettare il keypress del tasto enter, e gestirlo come se fosse un
tab (setfocus) o puoi lanciare
con un sendKey mi sembra il tasto tab (IMHO)!
MIk

 ha scritto nel messaggio
news:bf6bvs$enf$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: visualbasic6 - controllare esistenza di un percorso di rete

Salve, avrei la necessità di controllare se un percorso di rete esiste
oppure no, in questo modo posso capire se la cartella desiderata è
raggiungibile o meno
per esempio:
//pc-rete/pippo
ho provto con Dir ma non credo sia la strada giusta in quanto da
errore...quindi se la cartella non esistesse farebbe il  suo dovere,
ma se non esiste proprio il pc collegato in rete...diventa un bel
problema...
spero possiate aiutarmi,
grazie,
Clam


Sia che non esista la cartella che il PC cosa cambia sempre errore
restituirebbe...!
Cosa devi controllare di preciso...?
Se vuoi controllare un PC connesso devi controllare se esiste l'IP o
l'HostName...
Boh non capisco...
@Alex


in effetti hai ragione....mi parela lasciasse stringa vuota...invece
no...
faccio una semplice gestione errori  :-)
ciao e grazie

Dopo dura riflessione, clam80 ha scritto :

Purtroppo il problema è annoso.
Se il pc non è in rete, qualunque cosa tu faccia resta appeso in 
clessidra una vita. E se lo fai in automatico molto di frequente, si 
arriva anche a far sballare l'orologio della macchina (strano, ma 
vero).
Personalmente eseguo PRIMA un ping (sperando che si stia usando il 
TCP/IP e che il firewall consenta il ping), e POI cerco di aprire la 
risorsa (comunque gestendo l'errore, perchè la risorsa potrebbe anche 
esistere ma io non avere le autorizzazioni).
Ciao
Alberto
-- 
Fabio Fazio: Se siamo alleati come mai nei nostri bar si vende Coca 
Cola e nei bar americani non si vende l'amaretto di Saronno?

Newsgroup: it.comp.lang.visual-basic
Titolo: debug.print

Con 
vb.net
 cosa si usa per stampare una riga in una certa coordinata?
grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 grazie
Console.Writeline

 Con 
vb.net
 cosa si usa per stampare una riga in una certa coordinata?
Non mi risulta che debug.print ti permett di scegliere la "coordinata"...
L'equivalente di debug.print di VB6 é:
Debug.writeline
Oppure puoi usare il più potente Trace.WriteLine
Se non funzionano Trace e Debug devi controllare nelle proprietà del
progetto:
Configurtion Properties -> Build  e controllare che siano attive le costanti
Debug e Trace
            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à

Newsgroup: it.comp.lang.visual-basic
Titolo: COme visualizzare file HTML

Salve a tutti, vorrei visulizzare dei file html con vb5, come fare ?
Grazie anticipatamente.
Leonardo Orazi.

...


Usa:
C:\WINNT\system32\Shdocvw.dll
(credo sarà stato postato 32.000 volte ma tant'è...)

Newsgroup: it.comp.lang.visual-basic
Titolo: info su velocita' della seriale

Dovrei scrivere un sw per gestire una periferica da interrogare a 
intervalli di circa 10ms.
Sono perplesso sull''intervallo: ci sto dentro o è troppo breve a causa 
dei controlli?


Devo andare da qui a lì, secondo te 5 minuti bastano ?
***************************
Stavo per rispondere inca##ato, poi mi sono reso conto di
aver preso troppo caffè... però scusa, renditi conto di una
cosa: come si fa a darti una risposta se non si sa neanche
_CHE CONTROLLI_ devi fare ?
Che sistema vuoi usare, poi ? Tanto per dire, il controllo timer
di VB non va bene di sicuro per 10 millisecondi, ha un limite
di 55, devi usare un timer multimediale. Che processore avrà
la macchina che deve fare il lavoro ? Che tempi di risposta hai ?
Che S.O. ? Che periferica è ? Ah, no, hai detto (nel subject...)
che è una seriale.
Beh, una seriale ha un limite di velocità a seconda del chip
UART, della bufferizzazione eccetera... quanti dati devi inviare
o ricevere ?
Cerca di capire, non è colpa tua, sono io che ho mandato
la palla di cristallo a ripararare...
Bye, G.

 o ricevere ?
carina quella della palla di vetro a riparare... :-))
Dunque: la periferica è una bilancia. Questa eroga costantemente i dati 
della lettura fatta, con 11 caratteri. Quindi ho la seriale 
constantemente in ascolto (quindi non bidi).
In realta' la valutazione del tempo è particolare: cioè avere una idea 
dell'ordine di grandeza del tempo che l'applicazione impiega per 
"leggere i dati dal buffer della UART".
Non ho molta esperienza in VB - come puoi ben notare - quindi devo 
capire se la strada è quella giusta o se rischio di troavare difficolta' 
non previste.
In ogni caso ti riporto i dati di macchina:
processore: PII,
os: Win98,
UART: 16550,
l'ambiente di sviluppo è il VB6,
bilancia: trasmette @9600 baud
puoi darmi dei suggerimenti, indicazioni o materiale da consultare???
grazie dell'aiuto!!!

 puoi darmi dei suggerimenti, indicazioni o materiale da consultare???
Non avendo mai lavorato con seriali e bilance, posso darti solo
un paio di indicazioni generiche; intanto l'articolo dell'ottimo Mes
sul S.C., 
http://www.it-lang-vb.net/
 -->documentazione-->articoli-->
"gestire la RS232", e poi cerca su Google che cosa si è già
detto da queste parti sull'argomento:
http://www.google.com/groups?as_oq=bilancia%20bilance&as_ugroup=it.comp.lang.visual-basic&as_scoring=d
Dovresti trovare roba interessante, per quel che ricordo.
Bye, G.
Newsgroup: it.comp.lang.visual-basic
Titolo: Active X per topografia

Salve a tutto il NG,
sto cercando un algoritmo già pronto, freware o comunque non troppo costoso,
per
fare dei calcoli di distanza tra 2 punti di cui siano note le coordinate
UTM.
Il problema è molto semplice quando i due punti sono nello stesso fuso, in
quel caso basterebbe il teorema di Pitagora. Quello che cerco è invece un
qualcosa che possa fare il calcolo anche tra 2 punti in 2 fusi adiacenti.
Mi può essere utile l'algoritmo, un ActiveX o una DLL.
Grazie per la collaborazione.
Marco Sabatini.

Se devi calcolare celerimensure di stazioni o poligonali posso aiutarti.
Fabio


Grazie,
il mio problema è potenziare ulteriormente un programma che sto sviluppando.
Dovendo calcolare la velocità con in cui viene percorsa una certa distanza,
di cui un punto è variabile ed uno è fisso, vorrei poter introdurre nel
programma NON le distanze misurate sulla carta 1:25000 ma anzi le coordinate
UTM misurate in situ con un GPS portatile.
Dovendo poi (spero) esportare il mio programma anche in alcuni paesi
stranieri, potrebbe capitare che i due punti finiscano in due fusi diversi
(In Italia, la zona di mio interesse cade tutta nell'area 32T)
Se ti viene in mente una soluzione... ti ringrazio in anticipo.
Marco Sabatini

Newsgroup: it.comp.lang.visual-basic
Titolo: Verificare presenza Floppy

Ciao, non  ricordo più come fare per verificare se nel floppy è presente
il dischetto, mi serve  fare un controllo prima di lanciare una
procedura....grazie

 il dischetto,
On error resume next
Dir "a:\"
If err>0 then
   msgbox "Nessun floppy"
Else
   msgbox "Floppy inserito"
Endif
On error goto 0
Ciao
*Roby*

 procedura....grazie
Sub Proc()
  On Error GoTo ErroreDischetto
  fl1 = 1
  Open "A:NOMEFILE" For Input As #1
  If fl1 = 0 Then
    pnlMsg = "FILE NON PRESENTE."
    Wait (10)
  End If
  Exit Sub  
  ' *****************
ErroreAnagrafiche:
 
  ' Controllo codice errore
  Select Case Err.Number
 
    ' file non presente: azzera flag
    Case 53
      fl1 = 0
      Resume Next
    Case Else
      Msg = Err.Number & " - " & Err.Description
      Resume Next
  End Select
  ' *****************
End Sub

Newsgroup: it.comp.lang.visual-basic
Titolo: ma con visual basic 2008 express ....

posso sviluppare un'applicazione e commercializzarla ?
O è solo per usi personali ?
Non mandatemi a quel paese, lo so che nel license agreement sarà scritto ...
Marco

 posso sviluppare un'applicazione e commercializzarla ?
Sě, non ci sono limitazioni di licenza d'uso per le versioni Express.
-- 
news:it-alt.comp.software.openoffice : Il newsgroup dedicato a
OpenOffice.org, la suite open source di applicazioni per ufficio.
Saluti, VITRIOL

 ...
Vabbè, però ti mandiamo a quel paese perchè c'è un post esauriente del 
28 maggio e non ci hai dato un'occhiata.
:-)))
scherzo eh.
ciao
stefano

 maggio e non ci hai dato un'occhiata.
Vabbè, dai, prometto che un giro ce lo faccio presto ( a quel paese ) .
Ciao e grazie ;-)
Marco
Newsgroup: it.comp.lang.visual-basic
Titolo: GetDiskFreeSpace

Agradeço que informe como utilizar esta função, ou outra forma de obter
o espaço
livre em disco ou disquete.
Agradecido
Rogerio Nunes
 mailto:
rmn...@mail.sonet.pt

...

Newsgroup: it.comp.lang.visual-basic
Titolo: Ciclo For ... Next

Private Sub Command1_Click()
k = 9
For i = 1 to k
    if i = 7 then
        k = k -1
    end if
    debug.print i;k
next i
End Sub
Non so voi, ma io ricordavo che in un ciclo del genere il confronto tra i e
k veniva fatto in testa ad ogni ciclo ...... e invece provate a vedere cosa
succede.
Decrementando k di 1, i conta lo stesso fino a 9.
Qualcuno sa spiegarmelo ? Suggerimenti ? Mi rassegno a metterci un if
all'interno che mi controlla se i>k ?
Sinceramente al momento (dopo tre giorni che non riesco a far girare
correttamente il mio programma a causa di questa lieta scoperta) sono un pò
sconcertato.

 sconcertato.
Sinceramente sono sconcertato quanto te. La condizione viene in qualche modo
definita all'inizio e poi non piů verificata! La pensavo anche io come te.
Ho verificato la cosa con il Do While e qui non si verifica l'errore (se
cosě lo possiamo chiamare):
k = 9
i = 1
Do While i <= k
    If i = 7 Then
        k = k - 1
    End If
    Debug.Print i; k
    i = i + 1
Loop
In questo caso il corpo viene eseguito 8 volte e non 9 come con il For. Se
era un problema usa il Do While.

 ha scritto nel messaggio
news:Fugc6.27854$ew1.2...@news.infostrada.it...


 ha scritto nel messaggio
news:94s5f2$f7v$1...@news.IT.net...


 Decrementando k di 1, i conta lo stesso fino a 9.
Credo che ciò dipenda dal fatto che K è stato già impostato come 9.
Se non sbaglio una volta iniziato un ciclo ed impostato il limite (K in
questo caso) il ciclo termina solo ed esclusivamente quando tale limite è
stato raggiunto (9), rendendo inutile qualsiasi variazione apportata al
limite all'interno del ciclo.
Prova così:
 k = 9
 For i = 1 to k
     if i = 7 then
         k = k -1
        debug.print i;k
        Exit For
     end if
     debug.print i;k
 next i
Bye, Enrico.
------------------------------------------------
Dim VbEnry As Enrico
e-mail : 
vbe...@supereva.it
ICQ: 93357350
------------------------------------------------

     ' Fa qualcosa con i caratteri della stringa s
Non fa qualcosa con i caratteri della stringa s!
Esegue il ciclo finchè i non raggiunge il valore della lunghezza (di
caratteri) della stringa s.


 caratteri) della stringa s.
Il "Fa qualcosa" non è riferito all'istruzione For!
Si intende rappresentare solo un insieme generico di istruzioni all'interno
del ciclo FOR.
Ciao
Basty

Risposta:  probabilmente, nel ciclo for...next quando viene lanciato, il
valore di K viene memorizzato in un modo che non puo' piu' essere
modificato fino a quando il ciclo e' terminato o si e' usciti dal
ciclo anticipatamente con un exit  for.
Forse per assicurare stabilita' al ciclo for...next
Willy
Claudio ha scritto nel messaggio ...


 definita all'inizio e poi non più verificata!
La condizione nel for viene sempre verificata, ma il vore di k (for f=1 to k)
non lo puoi più cambiare
a differenza del while che invece ti permette di modificare la var durante il
ciclo.
Ciao a tutti
    +ALE+
Newsgroup: it.comp.lang.visual-basic
Titolo: Metodo Delete di ADO in Excel.

Ciao a tutti,
ripropongo un problema che non sono riuscito a risolvere da solo.
Ho creato un'applicazione per visualizzare, aggiungere o eliminare i record
in un foglio di Excel usando ADO.
Non ho avuto nessun problema nel realizzare la connessione, nell'inserire
dei nuovi record e nel visualizzarli su una MSHflexGrid, ma non riesco
invece a eliminare i record con il metodo Delete perchè mi viene dato
un'errore del tipo "Metodo non supportato dal driver ISAM".
Come posso fare ad eliminare dei record in Excel visto che con il metodo
Delete di ADO non è possibile?
Grazie in anticipo.
Symi

 troppo lungo da postare nel NG).
Uso ADO perchè con Access non ho mai avuto problemi e poi ho provato a
collegarmi con Excel in altri modi, ma ho difficoltà a muovermi fra Range e
Cells.
Ti sarei molto grato se potrai mostrarmi qualche esempio anche via e-mail.
Ciao e grazie.
Symi.

Non riesco a trovare il modo di scrivere in Excel -VBA una funzione
matrice che dia i risultati (differenti) nelle celle della colonna in
cui è inserita con Ctrl + Shift + Enter.
In altri termini cerco il modo di scrivere in VBA una funzione che si
comporti come la funzione FREQUENZA(dati; Classi) del foglio Excel: se
immessa (con Ctrl+Shift+Enter) in un intervallo di celle (in colonna)
dà per ciascuna cella un valore diverso (a seconda delle classi
scelte).
Utilizzando Array() riesco a scrivere una funzione che mi restituisce
valori diversi per le celle di una *riga* in cui è stata inserita con
la sequenza Ctrl+Shift+Enter. Ad es:
function QW() as Variant
	QW=Array("UGO","QWE","Fine")
End Function
ma non trovo il modo di ottenere una funzione a più valori su un
colonna.
NB: cerco una funzione, non una sub con qualche
Range(....).FormulaArray= .....
grazie
toglimi...@katamail.com
Newsgroup: it.comp.lang.visual-basic
Titolo: Comportametno anomalo...

Ho una dll activex che in ingresso richiede una variabile numerica di tipo
double, il problema
è che se passo in ingresso il valore 123.456 questo viene giustamente
riconosciuto come il valore numerico 123456 e viene salvato in una tabella
in un db access,
mentre se passo il valore 123,456 questo non viene riconosciuto come valore
numerico
e non viene salvato,
sembra assurdo, ma vorrei sapere quindi come fare per passare alla mia dll
un valore in virgola mobile
ed a farlo interpretare come tale ed ad inserirlo tramite una INSERT INTO
nel mio db.
p.s. all'interno della dll uso la funzione di controllo isNumeric()
e la dll viene richiamata da una pagina asp.
                                                Ciao.


All'interno della Query usa:
"INSERT INTO Tabella (campo1) VALUES
(" & str$(valore) & ") WHERE ....;"
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Vb e Chiave Hardware

Salve a tutti....dovrei proteggere i miei programmi Vb con dispositivi
hardware,preferibilmente USB. Mi sapete indicare cosa offre il mercato e le
varie soluzioni??
Grazie....


scommetto che su 'gugl' non hai nemmeno provato!!!

 ha scritto nel messaggio
news:b9977b$gps89$1...@ID-106271.news.dfncis.de...


 E invece sbagli....
e invece siete in torto entrambi.
comunque su google ho trovato questo:
http://www.technesecurity.it/hardlock/usb.htm

Sbattendo la testa contro il monitor, Remo si azzardò a cliccare sulla
tastiera senza rendersi conto che la sua favella avrebbe sconvolto il mondo.
E scrisse:

Prova questo
www.smartkey.eutron.it


La prendo come una cosa........per ridere..........:-DDDD
Grazie per gli aiuti che sto ricevendo....ma avevo già visto tutti questi
link. Forse non mi sono spiegato...volevo sapere se qualcuno di voi aveva
avuto esperienze, come dire, dirette....Cioè se avete implementato nei
vostri programmi tali dispositivi di protezione..
Grazie...ancora...
Ciao

 ha scritto nel messaggio
news:b98ia8$fj667$1...@ID-102802.news.dfncis.de...


 Io le uso e non ho problemi.
Contate anche che oramai le USB prenderanno il posto delle LPT
( nel giro di un mese ci sono arrivate le nuove Key usb da 3 diverse case di
SW , la causa ? : in ufficio abbiamo dei portatili freschi freschi che la
LPT non sanno manco cos'e' ) ^_^
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

 ha scritto nel messaggio
news:b98ia8$fj667$1...@ID-102802.news.dfncis.de...


 
www.micropi.com/cp/
, ed in pochi passaggi ho risolto il mio problema.
in ditta abbiamo moltissime chiavi HW , io sono per l'usb in quanto molti
portatili la parallela non sanno nemmeno cosa sia, unico difetto ? non sono
inpilabili :-/ (almeno quelle che ho visto fin'ora)

Newsgroup: it.comp.lang.visual-basic
Titolo: TabStrip

Salve a tutti,
sono nuovo di questo newsgroup e, a dire la verità, non ho letto tutti i
suggerimenti contenuti.
Avrei, percio', una domanda (scusate la banalita''): se ho un controllo
<tabstrip> con 5 linguette, come posso rendere attivo l'uno o l'altro
<frame> (non ho messo <picturebox>) a seconda della selezione dell'una o
dell'altra linguetta?
Grazie
Steno

Il messaggio che segue è riciclato, ovvero lo avevo già inviato più di una volta tempo fa: io uso le picture, ma se vuoi
usare i frame, basta che sostituisci i nomi dei controlli Picture....
----------------------------------------------------------------------------------------------------------------------------------------------------------
A differenza delle SSTab, le TabStrip non sono dei "contenitori".
Devi quindi usare il "trucco" dell picture, ovvero disegnare n picture quante sono i Tab e poi nasconderle o
visualizzarle a seconda del tab selezionato.
I controlli sono all'interno delle picture, quindi vengono nascosti o visualizzati automaticamente assieme ad essa.
Eccoti un esempio se non sono stato chiaro:
Disegna in un form un controllo TabStrip, chiamato TabStrip1, un vettore di picture composto da tre elementi
(Picture1(0), Picture1(1), Picture1(2)), e disponi la Picture1(0) nella posizione definitiva;
Disegna, nelle picture i controlli che vuoi e poi:
Private Sub Form_Load()
 
    Dim i As Integer
 
    Cornice = 0
    For i = 1 To 2			'Allineo le Picture
        Picture1(i).Visible = False
        Picture1(i).Top = Picture1(0).Top
        Picture1(i).Left = Picture1(0).Left
    Next i
 
End Sub
Private Sub TabStrip1_Click()
 
    Dim i As Integer
    If TabStrip1.SelectedItem.Index = Cornice Then Exit Sub
 
        For i = 0 To 2
            If i + 1 = TabStrip1.SelectedItem.Index Then		'A differenza degli SSTab, l'indece dei TabStrip
parte da 1
                Picture1(i).Visible = True
            Else
                Picture1(i).Visible = False
            End If
        Next i
    Cornice = TabStrip1.SelectedItem.Index
End Sub
Cornice è una variabile globale che mi fa si, nel caso in cui clicco nel tab corrente, di non ridisegnare a vuoto i
controlli.
Spero di esserti stato d'aiuto,
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)
---------------------------------------------------------------------------
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: Una ComboBox di VB può avere due o più colonne per contenere i dati, anzichè una ???

Salve a tutti !!!
Come da oggetto, vorrei sapere se è possibile *modificare* una ComboBox in
modo tale che il suo menu a tendina abbia a disposizione due o tre colonne
per far vedere i dati che prendo da un DB ?!?!?!!?
Per spiegarvi meglio, io ho questi campi nel DB:
IDContatto
Cognome
Nome.
Ora la ComboBox li fa vedere in questo modo (1 colonna):
1 ... ... ... XXXXXXXXXXXX ... ... ... XXXXXXXXX.
2 ... ... ... XXXXXXXXX ... ... ... XXXXXX.
10 ... ... ... XXXXXX ... ... ... XXX.
Io vorrei che invece si vedessero in 3 colonne distinte:
1     | XXXXXXXXXXXX     | XXXXXXXXX
2     | XXXXXXXXX             | XXXXXX
10   | XXXXXX                     | XXX.
Grazie fin da ora per la vostra attenzione, a presto.
Ciao,'''2FB®foolbrain®'''
Visual Basic Programmer
Database Manager
ICQ 88912631

 ha scritto nel messaggio
news:8v3b1d$3c2h9$1...@ID-61455.news.dfncis.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: dare all'user la possibilita' di modificare la stampa!

Ciao ragazzi,
ho visto in giro spesse volte, degli applicativi che davano la possibilita'
all'user del software di modificare il layout della stampa e perfino i
campi... assomigliava molto all'interfaccia dei data report. Avete mai fatto
qualcosa di simile? come si potrebbe fare? Creare un software che faccia
questo oltre che ad essere complicato sarebbe anche molto difficile poiche'
non saprei che formato di stampa scegliere! Per ora mi viene in mente solo
di utilizzare pagine html... ma poi per la gestione delle dimensioni della
pagina???
ciaoooo

 ha scritto nel messaggio
news:g5rE8.61887$5k4.1...@twister2.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: OCX per gif animate

Qualcuno sa dove indirizzarmi per una OCX freeware per vedere le gif animate 
con VB6.
Io ne ho trovata una ma molto difettosa alcune non si muovono altre si 
vedono parzialmente e male.
Grazie a chi vorrą aiutarmi nella ricerca, ho usato google ma senza 
risultato sono tutte shareware e salate.
Aspetto che qualcuno mi risponda: Che ci vuoi anche il fiocchetto regalo?
Non mi maltrattate-
Peppe 

 Grazie a chi vorrà aiutarmi nella ricerca, ho usato google ma senza


 vedono parzialmente e male.
Sul sito comune trovi un ocx che fa al caso tuo
bye
-- 
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it
Sinapsi Antispam. Antispam Gratuito.
http://www.nicolaottomano.it/sinapsi.htm
email spamtrap: 
spam...@nicolaottomano.it

 ciauz
Grazie molto della dritta, l'ho prelevata è una DLL e ti ringrazio molto ma 
ora ti chiedo per favole, e scusa la mia ignoranza, le OCX le so adoperare 
in VB ma le dll non so come farle lavorare.
Inoltre nelle istruzioni dice che è per VB5, io ho il VB6 funziona lo 
stesso?
Grazie molto
Peppe
Peppe26 chiocciola tele2 punto it


Scusami sul sito 
nicolaottomano.it
 non ho trovata alcuna OCX mi sai dire 
dove?
Grazie molto
Peppe 

 dove?
il Sito Comune è 
www.it-lang-vb.net


 bye
Molte grazie mi sono distratto non avevo letto comune.
Ne ho trovate un bel po ora le esamino e spero di trovare quella buona.
Ciao e grazie ancora
Peppe
Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con Crystal Report per VB5 (AIUTO!!!)

Il mio problema è:
devo usare Crystal Report e pur avendo impostato ACTION = 1 non riesco a
collegarmi con il Report già creato.

 
Cosa vuol dire "non riesco a collegarmi"??
Hai impostato correettamente la proprieta' ReportFile Name con il percorso
colpeto del file RPT??
Gia' che ci siamo, sai dove posso reperire della documentazione integrativa
per il Crystal Report??
Ciao 
Marco Selmi

collegarmi con il Report già creato.
	Scusa ma per la stampa non e' Action = 5 ?
 
Ti chiedo, inoltre, se nella tua città è possibile trovare Crystal
Report e quanto cosa.
E' urgente. Grazie.
Lucio
mailto:
lu...@mywebpages.com
---------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Server pop3, ftp e oggetto Winsock

L'oggetto winsock è adatto per comunicare con i vari server (es. della
posta, ftp) per trasmettere istruzioni tipo HELO, DELE et similia?
Bisogna adottare qualche precauzione particolare?
Grazie

Javier Giaviè wrote:

Nessun problema, posso dirtelo con certezza perche' io in VB6 ho fatto
tutto con il Winsock per Spam Terminator (vedi firma), che fa sia da
client sia da server...
Ciao!
--
   Alex Palmese
---
Sei anche tu stanco dei messaggi spam? Usa Terminator, il programma
anti-spam italiano FREEWARE! 
http://www.sertel.net/terminator/


Chissà, magari riuscirò anhe a "recuperare" un indirizzo che ritenevo perso
per sempre!
Grazie!

Newsgroup: it.comp.lang.visual-basic
Titolo: Cosa sono i flag?

Qualcuno mi sa dire cosìè un flag e a cosa serve?
Grazie
Marco

Marco

Domenico
Non esatto.
La definizione di parametro, al più può forse avvicinarsi a quanto sopra
descritto.
Un Flag può essere passato come parametro, ma questo è solo un suo modo
d'uso.
In generale un flag (in italiano 'bandiera') è un indicatore di stato e può
avere solo due valori:
 Vero o Falso.
Ciò non vuol dire però che esso possa avere una corrispondenza di valore
solo di (-1) uno o zero, ma che esso, nella sua definizione, prevede
esclusivamente due stadi.
Un flag può essere usato ovunque e con diversi scopi, e non solo come
parametro di funzione.
Saluti,
    Alfredo.

...


Domenico
Saluti a te, Amico.
    Alfredo.

...


è secondario, e non definisce il flag.
Non solo. Non è detto che questo valore venga in alcun modo passato!!
Può essere nativo.
Come ho detto la discussione è ora solo accademica... il che non vuol dire
che non sia interessante.
Comunque, se vuoi, adottiamo pure quanto hai descritto nella definizione di
Flag... a pensarci bene (che sia corretto o no) è sicuramente moderno.
Vogliamo definire allora così il Flag:
    'Un indicatore di stato il cui range di valori sia perlomeno binario.'
?
Fammi sapere.
Ciao,
    Alfredo.
Newsgroup: it.comp.lang.visual-basic
Titolo: Files Binari,sequenziali,.......

Vi prego di aiutarmi:
Vorrei salvare due vettori ,uno di integer e uno di String
in due files come posso fare,quale tipo mi conviene utilizzare?
Potrei salvarli entrambi nello stesso file?
Vi prego di rispondermi aggiungendomi anche un breve esempio di
codice.
P.S. Rispondetemi via email altrimenti potrei perdere le vostre
risposte.
Grazie 1000
                              Stefano



Ecco un esempio per salvare i dati di un vettore all'interno di un
file per poi rileggerli:
------------------ start code ------------------
Private Sub Command1_Click()
Const MaxEle = 20
Dim MioVet(1 To MaxEle) As Integer
Dim i As Integer, nFile As Integer
For i = 1 To MaxEle
    MioVet(i) = i
Next i
'
' Scrittura dati del Vettore
'
nFile = FreeFile
Open "PROVA.BIN" For Binary As #nFile
Put #nFile, , MioVet()
Close #nFile
For i = 1 To MaxEle
    MioVet(i) = 0
Next i
'
' Lettura dati del Vettore
'
nFile = FreeFile
Open "PROVA.BIN" For Binary As #nFile
Get #nFile, , MioVet()
Close #nFile
For i = 1 To MaxEle
    Print MioVet(i)
Next i
End Sub
------------------  end code  ------------------
Il file puo' essere lo stesso per entrambi i vettori, e' sufficiente
passare al comando GET il byte di partenza del secondo vettore.
N.B. Prima di utilizzare la GET il vettore deve essere dimensionato
per il numero di elementi che si vogliono leggere dal file.
Ciao.
 
pro...@pulp-fiction.com

Newsgroup: it.comp.lang.visual-basic
Titolo: bloccare alt F4 e ctrl alt canc

si puo in un programma far si che un utente una volta aperto il prog non
possa piu premere ctrl alt canc e alt f4 per terminere il programma???
se si mi deite come si fa scrivendo magari due righieěne
grazie



E' diventato di moda?
In questi giorni questa domanda e' stata fatta piu' volte: ma che
c@%%0 di programmi scrivete?
Cerca nei post dell'ultima settimana, 10 giorni al massimo.
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Smart Cards

Salve,
qualcuno č a conoscenza di tools, componenti o altro in grado di gestire da
vb le smart cards?
e piů in generale; se qualcuno sviluppa con le SC, cosa utilizza????
Grazie in anticipo
-=)Ego(=-

Io sviluppo applicativi che utilizzano le SC da circa 5 anni nel settore
medicale e ho sempre utilizzato procedure scritte da me in VB per accedere
alle funzioni di base delle CARD.
Il produttore del lettore (un' azienda italiana) mi ha messo a punto un
firmware che permette di emulare al 100% il protocollo dei lettori Gemplus
anche con carte di diverso tipo. Il lettore e' insomma universale e
permette, cambiando appunto il firmware di leggere e scrivere qualsiasi
carta.
Il mio consiglio e' quindi di provare a fare altrettanto: mettiti in
contatto con chi produce il lettore.
Deve pur avere un qualche driver o libreria per poter realizzare gli
applicativi che utilizzano il lettore.
Ciao Paolo
ego ha scritto nel messaggio ...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] ComboBox in Grid o FlexGrid (VB6)

Qualcuno sa come inserire una combobox nella cella di una grid, per
obbligare l'utente a scegliere in una lista di valori prefissati ?
La grid è legata ad una tabella di un database.
Il contenuto del combo è pure legato ad un'altra tabella.
In VFP si fa in modo semplice ma in VB non ci sono ancora riuscito.
<|:o) Grazie e ciao, Attilio

...


CIAO !!

Una soluzione molto interessante la trovate a questo indirizzo:
http://www.mvps.org/vbnet/code/subclass/comboflexgrid.htm
Ciao
Andrea

Vi ringrazio per i suggerimenti.
Ho trovato anche un esempio di Francesco C. & Ettore Maronese nelle Piccole
Perle del Sito Comune.
Facendo un mix di tutto e aggiungendo qualche riga di VB ho realizzato ciň
che volevo.
Lo potete provare in questo modo:
1) creare un nuovo progetto
2) aggiungere al form:
    - un controllo Data che abbia:
        - DataBaseName = BIBLIO.MDB
        - RecordSource = Titles
    - un altro controllo Data che abbia:
        - DataBaseName = BIBLIO.MDB
        - RecordSource = Publishers
    - un DBGrid che abbia DataSource = Data1
    - un DBCombo che abbia:
        - Appearance = dbFlat
        - BoundColumn = PubID
        - DataField = PubID
        - DataSource = Data1
        - ListField = PubID
        - RowSource = Data2
3) aggiungere il codice che segue:
Option Explicit
Public MemoCol As Integer
Private Sub DBGrid1_KeyUp(KeyCode As Integer, Shift As Integer)
   ' il tasto &HF4 non esiste, e' un messaggio per spostare la combo
   If KeyCode = &HF4 And Shift = 0 Then
      If MemoCol > 0 Then
         DBGrid1.Columns(MemoCol - 1).Text = DBCombo1.Text
         DBCombo1.Visible = False
         MemoCol = 0
      End If
      If DBGrid1.Col = 3 Then
         If DBGrid1.CurrentCellVisible Then
            MemoCol = DBGrid1.Col + 1
            DBCombo1.Text = DBGrid1.Columns(DBGrid1.Col).Text
            DBCombo1.Width = DBGrid1.Columns(DBGrid1.Col).Width
            DBCombo1.Left = DBGrid1.Left + DBGrid1.Columns(DBGrid1.Col).Left
            DBCombo1.Top = DBGrid1.Top + DBGrid1.RowTop(DBGrid1.Row)
            DBCombo1.Visible = True
            DBCombo1.ZOrder 0
            DBCombo1.SetFocus
         End If
      End If
   End If
End Sub
Private Sub DBGrid1_RowColChange(LastRow As Variant, ByVal LastCol As
Integer)
   Call DBGrid1_KeyUp(&HF4, 0)
End Sub
Private Sub DBGrid1_Scroll(Cancel As Integer)
   Call DBGrid1_KeyUp(&HF4, 0)
End Sub
Private Sub DBCombo1_KeyDown(KeyCode As Integer, Shift As Integer)
   Select Case KeyCode
   Case 37  '<-
      If DBGrid1.Col > 0 Then
         DBGrid1.Col = DBGrid1.Col - 1
      Else
         DBGrid1.Col = DBGrid1.Columns.Count - 1
      End If
   Case 13, 39  '->
      If DBGrid1.Col < DBGrid1.Columns.Count - 1 Then
         DBGrid1.Col = DBGrid1.Col + 1
      Else
         DBGrid1.Col = 0
      End If
   End Select
End Sub
E' tutto.
<|;o) Ciao, Attilio