mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Devo comprare un portatile...

Ciao ragazzi... ho un grosso dilemma... tra Asus, Acer e Toshiba...
quali tra questi portatili comprereste a parità di hardware e prezzo?
Grazie,
Maciao!

 ha scritto nel messaggio
news:c159e43c.04081...@posting.google.com...

Con VB cosa c'entra?!
Mai sentito parlare del tag OT?
Comunque io prenderei un Acer
Ciao, Vincenzo

 Grazie,
-> it.comp.hardware
cmq sia la risposta alle tue domande e' "culo", devi avere culo, io
prenderei quello + carino con l'assistenza + vicina a casa tua !
-- 
[Gigio2k]
www.g2kweb.it

...

Io invece prenderei un Toshiba, così sto facendo da anni e così
continuerò fino a che non mi deluderà, tanto a prezzi non siamo così
distanti e poi se trovi qualche occasione spendi pure meno di un Acer.
Alex


 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] URGENTE -> CC245IT.DLL

URGENTISSIMO!!!
Ho fatto un piccolo programma che usa Crystal Report e ADO(DATA GRID)
da me il prog tutto ok.
Ho creato il pacchetto di installazione.
Sono andato ad installarlo presso il cliente ed ho ricevuto i seguenti
errori:
durante installazione->
        "IMPOSSIBILE REGISTRARE CC245IT.DLL"
riesco a "scavalcare" l'errore tramite il tasto ignora
e finisce l'installazione.
eseguo il programma e quando vado a caricare il form che contiene sia
Crystal Report che ADO ricevo i seguenti errori:
    "Data Error event hit err:Interfaccia non registrata"
    "Interfaccia non registrata"
    "Il componente ActiveX non può creare l'oggetto"
dopodichè carica il form ma senza nessun dato, tutti gli oggetti sono
caricati, la preview del report si riesce a vedere, ma non tira su nessun
dato!!!
sapete come aiutarmi?
il mio cliente non ha ACCESS installato, il file da caricare è MDB, il mio
sist ope: WIN98b
il suo: WIN98a
HO VB6sp3 e crystal report di VB6!!
COME POSSO FARE, sono disperato!!
grazie!!


Strano, l'errore che da CC245it.dll non dovrebbe dare problemi, e si
corregge cosi':
- Apri il file setup.lst con Notepad.
- trova la riga relativa a CC245it.dll
- elimina la scritta DLLSelfRegister, da virgola a virgola, ma lascia le
virgole.
Dai messaggi d'errore sembra che il problema sia ADO, non Crystal Report.
--
Roal Zanazzi
z...@iol.it

 wrote in message
c3Az3.16286$6C.4...@typhoon.libero.it...



Assicurati che ci sia tutto cio' che serve per ADO (dovrebbe esserci la
lista dei files necessari, da qualche parte nella documentazione).
Se non funziona ancora, prova ad installare COM98 sul PC del cliente (lo
trovi sul CD di VB6)... in realta' dovrebbe gia' essere installato, dato che
si tratta di Windows98, ma non si sa mai...
Di piu' non saprei dirti.
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: leggere un parametro da un programma

Ciao,
come posso  leggere un parametro da un programma in VB6 mandandolo in
esecuzione tipo :
 "mioprog.exe xxx"
dove xxx e' appunto il parametro da leggere in mioprog???
Non mi e' riuscito di trovare niente sull'argomento.....
Grazie per l'aiuto, Fabry

 esecuzione
Trovato chi , dove e come lancia il programma hai tutto quello che ti serve
!
-- 
<Gigio2K>
--- 
www.g2kweb.it
 ---
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

 
Non e' che stava cercando Command?
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 ha scritto nel messaggio
news:bqdrt7$21cjcu$1...@ID-97197.news.uni-berlin.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: SQL (Group By ?)

Sto terminando un programma, scritto in VB5, che dovrebbe restituire un
recordset di persone, leggendole da una tabella. Le persone sono
PINCO        MARIO       Via Roma 3
CAIO           LUIGI        Via Torino 5      .
TIZIO           GIORGIO   Via Casale 4
PINCO        MARIO       Via Genova 5
(in questo esempio i record sono solo 4 ed i campi 3; in realtà ho molti più
record ed una dozzina di campi)
Come vedete sono 4 (quattro persone diverse) anche se cognomi (ed i nomi)
diversi sono solo 3; di diverso c'è solo l'indirizzo
Se X_Cognome vale P,  utilizzando le istruzioni
      Criterio = "SELECT * FROM TabPersonaFisica WHERE Cognome LIKE """ &
X_Cognome & "*"" ORDER BY Cognome"
      Set RsFisica = DbCT.OpenRecordset(Criterio, dbOpenDynaset)
riempo il recordset RsFisica con 2 record diversi. Cosa che io NON voglio.
Vorrei avere solo :
PINCO    MARIO    Via Roma 3
oppure, alternativamente (è lo stesso per me, purchè in RsFisica ci siano
tutti i campi)
PINCO   MARIO    Via Genova 5
Utilizzando DISTINCT, DISTINCTROW, GROUP BY ed anche INTO non sono riuscito
ad ottenere quanto desiderato. C'è qualcuno che mi sa dare la dritta giusta
?
Grazie !
(Desidererei una risposta urgente via e-mail)
webm...@gpeano.org


Diverse sono le possibilità.
Una alternativa è "giocare" con i QueryDef ed utilizzare la proprietà
MaxRecords per far restituire solo la prima ricorrenza (nel caso in cui
venga lanciata una query per ogni nominativo).
Una seconda soluzione è di risolvere il problema a livello di SELECT con
un'unica query usando le funzioni di aggregazione FIRST o LAST per i campi
di cui ti interessa una qualsiasi "versione", ed usando un GROUP BY sui
campi da mantenere unici. Un esempio banale:
"SELECT Cognome, Nome, First(Indirizzo) AS PrimoIndirizzo, First(eccetera)
AS PrimoEccetera
  FROM Cliente
  WHERE Cognome LIKE "P*"
  GROUP BY Cognome, Nome;"
Sono le prime due cose che mi sono venute in mente. Se me ne vengono altre,
ci risentiamo.
Roberto

Provate
"SELECT TOP 1 Cognome, Nome, First(Indirizzo) AS PrimoIndirizzo,

Newsgroup: it.comp.lang.visual-basic
Titolo: Fonts

Qualcuno mi potrebbe rivelare come si fanno i file .fon ?
Sarebbe a dire le fonts che usa Windows in programmi come Word ecc....

 Sarebbe a dire le fonts che usa Windows in programmi come Word ecc....
Cerca su Altavista "Fonty"
Si tratta di un programma (piuttosto spartano, ma efficace) che produce
files .fon e .ttf o ne modifica di esistenti.
Rilancio anche la domanda in altra forma: si può utilizzare in qualche
modo un file .fon  o .ttf senza doverlo installare per forza? Immagino di
sì, perché l'ho visto fare ad una applicazione. Se qualcuno mi potesse
risparmiare una nottata di studio di API gli sarei grato.
Flaivo Ronco
--
f.ronco@*NonMiServeNiente*
flashnet.it
http://www.metabrains.com
  [Under Construction]
-------------------------------------------------------------
"Che pubblico in gamba! Se ci dite dove lavorate,
domani mattina se abbiamo tempo vi veniamo a vedere"
[Paolo Rossi]

 risparmiare una nottata di studio di API gli sarei grato.
Se non ricordo male sul SC c'è la routine per installare "al volo" un font,
nel qual caso si dovrebbe poter usare e disinstallare...
Ma forse a quest'ora dico troppe craxate, è meglio andare a dormire.
Buonanotte, 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

 Cerca su Altavista "Fonty"
Mi spiace per chi ha letto il mio messaggio precedente, ma per un lapsus
(froidiano?) ho scritto "Fonty" anziché "Softy".
Mi inginocchio sui ceci e vi riporto l'indirizzo della home page:
http://home.iclweb.com/icl1/d.w.emmett/
Spero che me ne siate grati per tutta la vita e che mi inviate magari dei
soldi.
;-)
Flavio


Newsgroup: it.comp.lang.visual-basic
Titolo: Esecuzione di un filmato crittografato

Salve!
Il problema è questo:
ho un filmato crittografato. Come posso decodificarlo e riprodurlo in tempo
reale senza dover utilizzare un file temporaneo non criptato? Ovvero come
posso operare direttamente sui dati letti, decifrandoli e poi inviandoli
direttamente al buffer del codec per essere riprodotti?
Grazie infinite,
Michele


Se lo hai crittografato tu, certamente sai anche come decriptarlo,
altrimenti chiedilo all' autore.
Ciao
Aldo

 wrote in message
966kub$jftnb$3...@ID-56381.news.dfncis.de...

Il file l'ho crittografato io, il problema è in realtà su come utilizzare i
codec. Infatti mandare un filmato in esecuzione è una cosa banale (es.:
"video.videobox.play"), ma come si può intervenire *sui dati contenuti nel
buffer*, cioè decriptandoli, prima dell'elaborazione da parte del codec
stesso?
Spero di essere stato più chiaro e cmq GRAZIE LO STESSO,
Michele
Newsgroup: it.comp.lang.visual-basic
Titolo: MCI control

Ciao a tutti,
per una apllicazione multimediale vorrei mostrare un MPEG come sfondo del
mio form.
E' possibile utilizzare il controllo MCI senza che apra un'altra finestra
per mostrare il video, oppure devo ricorrere ad un altro controllo o ad una
DLL.
Ogni aiuto sara' graditissimo.
Ciao,
Nicola

 DLL.
Se usi la M$ mci control, ci dovrebbe essere una proprietą da settare con
l'hDc della form...
Ciao
--
Timothy Redaelli
timothy....@email.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Codici a barre

Esiste un componente ( oppure una procedura ) che generi da una stringa un
codice a barre  ( tipo quello dei prodotti in commercio ) da stampare su
etichetta ??
E  se si ... ci sarebbe qualcuno che può indicarmi il metodo ? GRAZIE !!

 wrote in message
3omN6.4492$bj4....@news1.tin.it...


Non l' ho provata, ma arrivano spesso richieste per codice a barre.
La promuoverei a FAQ.
Grazie, Ulisse ;-)
hal

 Grazie, Ulisse ;-)
Sul Sito Comune esuste un modumo molto bello per fare praticamente tutti i
tipi di codici a barre!
Ettore Maronese
il Mes

 wrote in message
9e5edp$140ag$1...@ID-56381.news.dfncis.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: testo selezionato dal mouse

esiste un modo per risalire al testo che ho selezionato col mouse in  una
applicazione come explorer o word ...? vorrei usare ciò per fare un
programmino che legga quello che evidenzio col mouse!
tnx

Credo di sě.
Devi risalire alla finestra dell'editor, al controllo attivo della finestra
dell'editor e fargli un SendMessage() di EM_GETSELTEXT.
Dovrebbe bastare (e andar bene per qualsiasi tipo di editor, Word o altro).
Per i primi due cerca sul sito comune il file adRegn21.zip: c'č una funzione
che fa questo nel progetto accluso (GetWindow mi pare).
Per la sendmessage leggi MSDN :)
Ciao

 ha scritto nel messaggio
news:dKjv8.31912$vF6.9...@news2.tin.it...

mi sono spulciato msdn e l'help di quell'ocx che mi hai indicato ma non sono
riuscito a trovare quello che mi hai detto... potresti essere piů preciso?
grazie per l'aiuto

 grazie per l'aiuto
Di quale OCX parli?
SendMessage č una funzione dell'SDK e la trovi su MSDN.
Invecie il adRegn21.zip č un progettino che ho inviato tempo fa al sito del
NG (
http://www.it-lang-vb.net/
). Non č specifico per quello che vuoi fare ma
c'č questa funzioncina che ti puň servire.
Ciao
P.S.: impara a "citare" quando rispondi.

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

Scusate se questa domanda è stata fatta già tante volte ma....dove posso
trovare Crystal Report?
Grazie in anticipo per la risposta.

 ha scritto nel messaggio
news:kHMx5.48890$XZ4.6...@news.infostrada.it...


Con  VB 5 professional (ma credo anche VB6) viene dato CR versione 4.6
Se vuoi versioni successive (l'ultima è la 8) la paghi ... e pure
bene.
ErreBi
Newsgroup: it.comp.lang.visual-basic
Titolo: BMP come sfondo della barra del titolo

Ciao a tutti,
avrei un quesito da porvi. Sapete se e' possibile e se si come fare ad
impostare alla barra del titolo dell'applicazione un'immaggine bmp
anziche' un colore unico.
Vincenzo Accardi - (Palermo, ITALY)
 
E-Mail: 
vin...@iol.it
E-Mail: 
vin...@puntofuturo.net
ICQ UIN: 20344085
 
-------------------------------------------------
Euro Conversion 2000 - Il miglior software per 
convertire le lire in euro e viceversa. Freeware!
http://volftp.tin.it/italiani/accardi/index.htm
-------------------------------------------------


Si puo' (si puo' fare tutto nella vita, con un pizzico di fantasia e tanto
olio di gomito!)
Devi subclassare la form, intercettare il messaggio WM_NCPAINT, e disegnare
sulla barra del titolo la bitmap, usando la funzione API BitBlt().
--
Roal Zanazzi
z...@iol.it


Interessa anche a me sta cosa... perché intercetti un msg per disegnare
sulla caption? Forse perché quel messaggio viene spedito costantemente e fa
il refresh del disegno di default?
Quindi se io ci disegno direttamente con l'api, poi il refresh me lo
cancella? Invece in questo modo, intercetto il msg lo annullo e lo rimpiazzo
con una nuova funzione di disegno... capito...
Ciao ^_^;;;


Esatto.
--
Roal Zanazzi
z...@iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: DLL e VB

Chiedo scusa per la domanda forse un pò banale, ma leggendo i msg precedenti
(gli ultimi 4000...) non sono riuscito a determinare una risposta...
Con VB è possibile generare una DLL pura e semplice, non intendo un ActiveX
DLL o un Document DLL, ma una semplicissima DLL in cui inserire le mie
funzioncine da richiamare poi da altri programmi ( e linguaggi...)
Grazie a chi mi illumina.......


Acc...porc... mi sa che devo rispolverare il VC++.... Ok....grazie per la
risposta....

 ha scritto


 Grazie a chi mi illumina.......
CERTO ( non ne sono sicuro con altri linguaggi , proverò in VC++ )

Fermi tutti.....il compilatore di VB è in grado di creare delle DLL vere e
proprie (infatti il compilatore è quasi lo stesso del C++), il problema è
dirgli come fare.
Su VBPJ di (non me lo ricordo) c'era un articolo su come fare a crearlo...se
qualcuno interessa posso andarlo a cercare fra i meandri della mia stanza...
comunque c'era un'ottima add-in che permetteva di subclassare il compilatore
e di passargli qualsiasi riga di comando e di creare tra le cose il codice
assembler, dll vere e proprie ecc...
Se a qualcuno interessa posso inviare i sorgenti
----------
ciao
Sabba

 Se a qualcuno interessa posso inviare i sorgenti
grazie mille!
zann...@libero.it
Faber

 Se a qualcuno interessa posso inviare i sorgenti
Ovviamento sono moooolto interessato anch'io.....

 ha scritto


 Se a qualcuno interessa posso inviare i sorgenti
arf arf, mio, mio!!! mandamelo... tipregotipregotipregotiprego

Sono molto interessato ma.....
come fo?
-----------
Ciao
Sabba

 come fo?
sul sito medesimo ci devono essere le istruzioni.
direi che mandi il tutto come allegato al webmaster.
ciao, a.
Newsgroup: it.comp.lang.visual-basic
Titolo: Menu

E' possibile inserire in un menu a tendina icone (di fianco alla parola,
tipo office diciamo) a 16 o 256 colori? E si può inserire uno sfondo?
Oppure l'unico metodo è utilizzare un form e fare tutto a mano?
Grazie.
Ramses

 ha scritto nel messaggio
news:95h3ut$l1j$1...@pegasus.tiscalinet.it...

cerca su 
www.murialdo.it/it_lang_vb
 il modo di inserire le icone, per lo
sfondo non ho mai sentito niente.

Oppure l'unico metodo è utilizzare un form e fare tutto a mano?
E' un po' un casino: dovresti farti dei menu owner-drawn.
In pratica subclassi il messaggio di ridisegno del menu e ci disegni sopra
quello che vuoi.
La soluzione è piuttosto complessa e probabilmente fai prima a farti un form
personalizzato (in modo intelligente, cioè che possa aggiungere e rimuovere
voci, così lo puoi riutilizzare).
Altrimenti esistono delle API per inserire bitmap nei menu, ma funzionano
solo con BMP monocromatici :(
Ciao

 sfondo non ho mai sentito niente.
avevo già cercato ed avevo trovato uno mi sembra di Bruno Salzano che lo
faceva. Però come faccio a scrivere di fianco anche la parola associata?
Sull'esempio che ho visto si inseriva solo il bitmap.
Ramses

 voci, cosģ lo puoi riutilizzare).
Infatti cosģ pensavo di fare, ma sai dirmi come faccio a fare in modo che
non appaia la barra del titolo? Non voglio impostare la borderstyle su none
perchč altrimenti va via anche il bordo con la profonditą, non so se hai
capito. C'č magari qualche esempio in rete su come fare una cosa del genere?
Per mostrare l'apertura pensavo di usare un timer, l'idea va bene?
Grazie per il disturbo.
Ramses

Per mostrare l'apertura pensavo di usare un timer, l'idea va bene?
Come?
Perchč un timer?
I timer meno ne usi meglio č.
Poi cerca di sfruttare gli eventi che hai.
Se ti riferivi all'effetto "tendina" io lascerei perdere, o al massimo farei
un loop con un piccolo sleep().
Ciao

 Ciao
Ciao e grazie ancora.
--
---
Ramses
"God is just a statistic"
ICQto: 39860665
mailto: 
ram...@freemail.it
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] - Valore Permanente

Salve a tutti
Mi chiedevo, c'è un sistema per far permanere nel codice un determinato
valore? Faccio un esempio: val=10 spengo la macchina e quando riaccendo
ritrovo il mio val=10. Naturalmente senza usare la proprietà TAG.
Gazie
Fabio

 Naturalmente senza usare la proprietà TAG.
I casi sono 3:
1) Lo scrivi nel codice sorgente del tuo programma (es: A=1)
2) Lo scrivi su di un file (Txt, Ini, Mdb, quello che preferisci)
3) Lo scrivi su un post-it che attacchi sul monitor del tuo PC
Ciao
*Roby*

 wrote in message
aopev7$oina2$1...@ID-94194.news.dfncis.de...

Ok, ma il valore cambia di volta in volta (scusa se prima non sono stato
chiaro) e non posso impostare una costante quindi........
Ciao
Fabio

 Ok, ma il valore cambia di volta in volta
Non importa, i files sono stati inventati apposta per quello.
Crea un nuovo progetto, e sulla form incolla questo codice:
Option Explicit
Private Sub Form_Load()
Dim a As Variant
a = 1
ScriviIlMioValore "C:\Prova.txt", a
MsgBox "Ho salvato il valore di A"
a = 0
MsgBox "A ora vale 0"
a = LeggiIlMioValore("C:\Prova.txt")
MsgBox "A vale di nuovo " & a
End Sub
Private Sub ScriviIlMioValore(sNomeFile As String, Valore As Variant)
   Dim lNumFile As Long
   lNumFile = FreeFile
   Open sNomeFile For Output As #lNumFile
   Print #lNumFile, Valore
   Close #lNumFile
End Sub
Private Function LeggiIlMioValore(sNomeFile As String) As Variant
   Dim lNumFile As Long
   lNumFile = FreeFile
   Open sNomeFile For Input As #lNumFile
   Input #lNumFile, LeggiIlMioValore
   Close #lNumFile
End Function
Ciao
*Roby*

 wrote in message
aopfra$oha53$1...@ID-94194.news.dfncis.de...

Ti ringrazio. Pensavo ci fossero altri sistemi oltre che creare files.
Comunque è pratico.
Ciao
Fabio

 Ti ringrazio. Pensavo ci fossero altri sistemi oltre che creare files.
Solo per completezza: volendo puoi usare anche il registro di sistema,
con Savesetting, GetSetting, eccetera.
Anch'io preferisco non sporcarlo se non è necessario, e usare
un file INI, comunque.
Bye, G.

 ha scritto nel messaggio
news:y6Xr9.5916$aL4.1...@news1.tin.it...

Lo scrivi nel registro di configurazione.
Guarda nell'help le funzioni
SaveSettings
GetSettings
Lucio

 Ti ringrazio. Pensavo ci fossero altri sistemi oltre che creare files.
Se ci pensi un attimo, ci sono assai poche cose che sopravvivono allo
spegnimento di un PC, e tra queste i file su HD, tra cui il registo stesso,
sono di gran lunga quelle piu' facilmente raggiungibili da VB
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 wrote in message
news:y6Xr9.5916$
aL4.1...@news1.tin.it

scusa se mi sono inserita in questa domanda...ma  non riesco a capire 
come fare a mandare i messaggi e poi visualizzare le relative risposte
Potresti inviarmi le istruzioni alla mia e-mail??
Ti ringrazio!!
Federica
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.visual-basic
Titolo: StartUpPosition VB6

Ciao ragazzi, esiste un modo in VB6 di assegnare la posizione ad un form in
conseguenza alla posizione assunta da un altro form ?
Vorrei creare un form che richiama con un cmdclick un altro form e
quest'ultimo si posizioni sopra ad esso. Come potrei farlo ?

 ha scritto nel messaggio
news:0PkCb.84268$AX1.3...@news1.tin.it...

alla proprietà startupposition metti centerowner
e la chiami con
formx.show vbmodeless, formpadre
Newsgroup: it.comp.lang.visual-basic
Titolo: Lettura di ogni singola cella di un file di Excell

Se leggo in VB un file di excell come posso fare a leggere ogni singola
cella del file?
Ciao
    Chiara

 wrote in message 96297808...@tango.comm2000.it...

Includi il riferimento alla classe di Excel nel progetto
Dim l_Excel as Excel.Application
Dim l_Book as Excel.WorkBook
Dim i as integer,y as long,z as long,u as long
SET l_Excel = new Excel.Application
SET l_Book = l_Excel.Workbook.open(Path_E_NomeFile)
For i = 0 to l_Book.WorkSheets.Count
    For y = 0 to l_Book.WorkSheets(i).Columns.Count
        For z = 0 to l_Book.WorkSheets(i).Columns(y).Rows.Count
            'legge il valore di tutte le celle della riga
            Valore = l_Book.WorkSheets(i).Cells(y,z).Value
        Next z
    Next y
Next i
l_Book.Close 'chiude il foglio senza salvare eventali modifiche, evitando msgbox impreviste
all'utente
l_Excel.Quit
Set l_Book = Nothing
Set l_Excel = Nothing
Considera che:
A) Ho scritto il codice di corsa (quindi, qualche errore probabile)
B) con questo metodo, si scorre tutte le righe e colonne del foglio, che anche non valorizzate
possono raggiungere valori molto alti,
quindi tempi di attesa insopportabili
Ciao,
Fabrizio
Rimuovere NOSPAM per risposte private

 Se leggo in VB un file di excell come posso fare a leggere
ogni singola cella del file?
Il codice seguente legge proprio ogni singola cella (piena)
del file:
Option Explicit
Public Sub Main( _
)
' Ref.: Microsoft Excel 8.0 Object Library
  Dim xlApp   As Excel.Application
  Dim xlWbk   As Excel.Workbook
  Dim xlWsh   As Excel.Worksheet
  Dim xlRng   As Excel.Range
  Set xlApp = New Excel.Application
  With xlApp
    Set xlWbk _
      = .Workbooks.Open( _
          FileName:="C:\WINDOWS\DESKTOP\CARTEL1.XLS" _
        , ReadOnly:=True)
    With xlWbk
      Debug.Print .FullName
      For Each xlWsh In xlWbk.Worksheets
        With xlWsh
          Debug.Print "  "; .Name
          For Each xlRng In .UsedRange.Cells
            With xlRng
              If Not IsEmpty(.Range("A1")) Then
              'If Not IsEmpty(.Cells(1, 1)) Then
              'If Not IsEmpty(.Item(1)) Then
              'If Not IsEmpty(.Cells) Then
                Debug.Print "    " _
                  ; .Address( _
                      RowAbsolute:=False _
                    , ColumnAbsolute:=False) _
                  ; ": "; .Value;
                If .HasFormula _
                Then _
                  Debug.Print Tab(20) _
                    ; "; "; .Formula;
                Debug.Print
              End If
            End With: Set xlRng = Nothing
          Next
        End With: Set xlWsh = Nothing
      Next
      Call .Close
    End With: Set xlWbk = Nothing
    Call .Quit
  End With: Set xlApp = Nothing
  Debug.Print "*** END ***"
End Sub
--
Ciao.
Maurizio
Newsgroup: it.comp.lang.visual-basic
Titolo: Libro sui db

Potete consigliarmi un buon libro sui database e vb che parta da zero ?
Sul sito comune ne ho visti un paio, ma non so quale prendere...
Grazie !
CiAo :-)
--- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
UIN: 50254876
http://www.danteworkshop.f2s.com
--- --- --- --- --- --- --- --- --- --- --- --- --- --- ---

 Sul sito comune ne ho visti un paio, ma non so quale prendere...
F.Balena - "Programmare Visual BAsic 6.0" - Mondadori/MS Press
L150.000 con CD
Giudizio mio: ottimo!
Tratta anche ADO dalle basi agli argomenti piů avanzati.

Sul sito comune ne ho visti un paio, ma non so quale prendere...
Dai un'occhiata 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
---------------------------------------------------------------------------




> Ma non è per principianti
Hmmm mi servirebbe qualcosa che parta da zero con i database :(

Ciao, ho guardato sul sito comune e ho trovato questi due (oltre che alla
bibbia sui database):
Visual Basic 6 Accesso ai database
Visual Basic - La programmazione dei database
Quale mi consigli ?
Thx !
CiAo :-)


Solo database (niente VB)?
Allora:
"Basi di dati", di Ceri, Parabosco e altri, McGrawHill
E' un testo universitario, ma abbastanza digeribile.
--
Roal Zanazzi

 Solo database (niente VB)?

E' un testo universitario, ma abbastanza digeribile.
Se e quando trovi un po' di tempo, perché non prepai una piccola recensione per il SC?


 a écrit dans le message news:
O8WMFc6...@newsmst.mcis.galactica.it...


 trova.
fabiola
dovrebbe esserci in inglese, ma se non ci salti fuori prova a sentire su uno
dei ng francesi su vb, tipo
    microsoft.public.fr.vb
ce l'hanno molti server, fra cui suppongo
 
msnews.microsoft.com
ciao, a.

 a écrit dans le message news:
8qq4lr$g1cdd$1...@ID-51318.news.cis.dfn.de...


 a écrit dans le message news:
8qqrj0$a9i$1...@lacerta.tiscalinet.it...


 questo e' un po' piu' "casereccio" ;-)
questo conta senz'altro, nel bene e nel male. ma per quel che ricordo in
mpfvb c'e' proprio un tono diverso, come dice fabiola. fra l'altro col noto
casino che il francese non dovrebbe essere contaminato dall'inglese. mica
semplice <g>.
esclusi i presenti :), i ng migliori che ho visto su vb, se uno ha voglia di
svalangarsi ogni giorno qualche centinaio di messaggi in inglese, restano
quelli ms americani e quelli di 
news.devx.com
. ah si', mi piaceva molto
anche il tono di mvps, 
news.mvps.org
 mi sembra sia il server. un tono molto
simile a iclvb c'e' in comp.lang.basic.visual.misc, solo che li' i msg
quotidiani diventano un lavoro a se' :)

Newsgroup: it.comp.lang.visual-basic
Titolo: Dove vendono Visual Basic 2005

Salve.
Dove posso vedere quanto costa Visual Basic 2005 con tutte le sue versioni?
Grazie 

 Grazie 
www.gorilla.it
-- 
Emanuele Torrenti
http://torrenti.altervista.org
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema Data Report

utilizzo il DE di VB6
vorrei impostare la connessiona da codice per poter passare il path e il
nome
del database non fisso.
apro la connessione che mi serve da codice
DE.Connessione.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & pPathDataBase + "\" + pNomeDataBase
DE.Connessione.CursorLocation = adUseServer
DE.Connessione.Open
quando faccio la Open non mi da propblemi
poi però mi dà dei problemi quando voglio aprire il report
dicendomi che non trova le tabelle e i dati che servono
vorrei sapere se nell'inizialize del DE posso impostare
la query e i dati che mi servono per il Data Report
se è così come posso fare?
spero di essere stata abbastanza chiara
grazie mille
Laura

 wrote in message
news:bBGT6.4987$Ft6.1...@news.infostrada.it...


 wrote in message
news:GdJT6.4631$gj1....@news2.tin.it...


 ha scritto nel messaggio
news:bBGT6.4987$Ft6.1...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: VB4 data control and Word97

From my VB4 database app, I need to open Word 97and create a mailmerge from
a search results recordset I have created in VB4. Can anybody point me in
the right direction? Any help will be greatly received. 
(E-mail to 
an...@buckps.demon.co.uk
).


Cindy Meister
INTER-Solutions, Switzerland
http://ourworld.compuserve.com/homepages/cindymeister
This reply is posted in the Newsgroup; please post any follow-up question or 
reply in the newsgroup and not by e-mail :-)

 wrote in article
<VA.0000054b.00c4f7c1@default>...



Cindy Meister


Newsgroup: it.comp.lang.visual-basic
Titolo: Vb6 progetti aperti di recente

Di default vedo gli ultimi 4 progetti aperti, sev volessi aumentare?
Pensavo di trovarlo qui:
 HKET_CURRENT_USER\software\microsoft\visual basic\6.0\
 
Ma non c'è, dove lo avranno messo?
Non posso trovare tutti i MRU perchè saranno milioni...
 
-- 
Greg

  HKET_CURRENT_USER\software\microsoft\visual basic\6.0\
 
Anzi, in questa cartella ci sono TUTTI i progetti recenti, però poi dal menu file se ne vedono solo 4.
Io mi asspettavo di trovare la voce con la quale aumentare quel 4. Dorse non si può ,a ltrimenti ci sarebbe stata una 
apposita voce nelle opzion, come per excel.
 
-- 
Greg
Newsgroup: it.comp.lang.visual-basic
Titolo: RTS

Ho bisogno di mandare un segnale basso sull'RTS della seriale per 100
millisecondi!
Ho fatto questo, ma la seriale non risponde
MSComm1.RTSEnable = True
MSComm1.Output = "0"
MSComm1.RTSEnable = False
Cosa sbaglio?

Qualcuno sa come mettere una password ad una cartella di windowsXP in modo
che una volta cliccato sulla cartella venga chiesto di inserirla e se č
sbagliata non ti permette di aprirla o se č possibile in qualche modo creare
un programma che controlli la cartella e chieda lui la password quando viene
cliccatat
GRAZIE 1000 "GICK"!!!



 le Permission?
scusa ma non sono capace mi puoi spiegare come si fa?

>permission sul solo utente che potrŕ accedere...
 si questo lo so fare, ma il mnio problema č che la password venga chiesta
quando vuoi aprire la cartella.
perche come hai detto tu il pc controlla solo la password quando accedi al
pc e non quando vuoi aprire la cartella
--
        _...-=</"GicK"\>=-..._
-
gi...@passaggiosegreto.cjb.net

 Se imposti le permission su D:\PIPPO in modo che SOLO l'utente XXX possa
accedervi, anche se entri come YYY (amministratore della macchina) >non
potrai mai accedere
a me invece interessa potervi accedere con qualsiasi utente ma che richieda
la password a tutti per aprirla, tipo se comprimi un file con winzip e gli
assegni una pass che per decomprimere devi saperla.


Newsgroup: it.comp.lang.visual-basic
Titolo: Sfida DBGrid

Ciao...
Dovrei utilizzare una DBGrid senza posizionare nella form un Data
Control....
Visto che il DBGrid mi richiede sempre un datasource (chiaramente
riferendosi ad un controllo Data all'interno della form)?
Ciao Marco!

...



Apri il database via programmazione con OpenDatabase e ti risparmia anche un
po di memoria RAM. Dopodiche imposta il recordset della DBGrid con il
recordset aperto via programmazione.

Newsgroup: it.comp.lang.visual-basic
Titolo: il formato della data!

Ciao a tutti! ricorro ancora a voi:
ecco io ho realizzato un programma in cui faccio uso dei campi data i cui
valori vengono messi in undatabase.
il problema e' che ogni volta sorgono prioblemi se trasporto la mia
applicazione da un SO con formato mese giorno anno a uno con giorno mese
anno.
E poi c'e' il db che si memorizza la data non ho ancora capitop come
impostarne il formato.
C'e' modo di capire tramite una API come il SO restituisce la data?
avete affrontato questoproblema?
Grazie anticipatamente a tutti.

 ha scritto nel messaggio
news:a%wd8.7922$v7.2...@twister1.libero.it...


 ha scritto nel messaggio
[snip]
Wow! che bell'esempio di quoting!
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: connessione database

C' è qualcuno molto gentile che sa dirmi come effettuare la connessione con
ado a un database realizzato con access
Grazie.


Usa il pannello di controllo / Origini Dati ODBC
Creati la connessione su File
Leggiti il file con NotePad
ed usalo nella proprieta del db ConnectionString.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto per Calendario

Sto preparando un programma per gestire un calendario, con un bell'
ocx Microsoft calendario ( mesi-giorni).
Vorrei collegare la possibilita' di cliccare sul giorno ad un sql che
prelevi dal database degli impegni quegli inerenti al giorno cliccato
e li visualizzi  nel DBGrid .
Fin qui facile : sotto la procedura
"Private Sub Calendar1_DateChange(ByVal OldDate As Date, ByVal NewDate
As Date)"
l' sql, a cui e' collegato Data1 ( associato al campo Data di
calendario.mdb), funziona cosi ' :
 If NewDate <> OldDate Then
 
       Data1.Recordset.FindFirst "[Data] = #" & NewDate & "#"
 
       Data1.Refresh
 
       sMySql = "SELECT * FROM calendario WHERE DATA = #" & NewDate &
"#"
       Data1.RecordSource = sMySql
       Data1.Refresh
    End If
Quello che non riesco a capire, e che mi fa diventar matto, e' perche'
cliccando su alcuni giorni ( esempio 14 settembre) il risultato e'
quello voluto, e funziona bene ( cliccando sulla data sono
visualizzati i dati del database collegato) mentre per altri giorni (
as es. 5 settembre) il DBGrid appare vuoto, cioe' non visualizza i
dati presenti nel database . Ho provato a modificare il codice anche
con due virgolette prima e dopo ( tra & NewDate &), come consigliato
in alcuni messaggi riguardanti la funzione Select ( oppure con  ' ),
in tutti i modi, ma da' messaggi di errore.
Qualcuno puo' darmi dei consigli ? Grazie.
Enrico Baroncelli
p.s. : e-mail  anche in 
sbar...@promo.it
  grazie.
 
=========================
http://www.valsa.net
webm...@valsa.net
========================




Probabilmente la data viene passata in formato Italiano (GG/MM/AAA), e in
SQL devi passargliela in formato americano (MM/GG/AAAA), quindi devi fare:
..."[Data] = #" & Format(NewDate, "mm/dd/yyyy") & "#"
--
Roal Zanazzi
z...@iol.it

as es. 5 settembre) il DBGrid appare vuoto, cioe' non visualizza i

Newsgroup: it.comp.lang.visual-basic
Titolo: Non vi manca lo zoom ?

Ciao a tutti, ma a voi non manca lo zoom ??
Ogni tanto a me farebbe comodo, per poiszionare meglio i controlli, le
casselle di testo, le caption etc....
Una funzione zoom mi permetterebbe di posizionare il tutto con maggior
praticita'...
Che ne dite lo faranno mai ?? (Se non c'e' gia' nel vb6 che non
conosco ...)
Ciao, Fabio
********  ************** *****************
Attention: 
Unsolicited Email "spam" sent to this email address will result in your
system being subscribed to 10,775 Majordomo list servers.
Be forewarned that you will recieve roughly 1 gig of mail per day, or
15,000 messages per hour.
This Email address not for your advertising. You have been warned.
Think before you post!

conosco ...)
E a cosa servirebbe?
Se non usi una gliglia con interspazi da 1 pixel mi sembra una cosa
piuttosto inutile.
Ciao.


A me manca tanto la possibilita' di spostare o ridimensionare i controlli
con precisione di pixel (senza dover settare la griglia finissima).
In Delphi si puo' fare usando combinazioni di CTRL o SHIFT + tasti
freccia...
--
Roal Zanazzi
z...@iol.it

con le proprietà .Top e .Left a design time ottieni deibuoni risultati: certo è più macchinoso, ma meglio di niente....
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

 freccia...
Anche in VB5! Usando però il mouse oltre che alle frecce.
Maurizio

conosco ...)
L'anno gia fatto, si chiama zoomin.exe, esiste da un sacco di tempo.
E' una applicazioncina che fa uno zoom (statico).
La M$ lo distribuiva col VC++.
Dovrei averlo da qualche parte, se lo vuoi.... (non ti aspettare un
granche', 16 bit e semplice semlice)
Ciao
By -MES-   Maronese Ettore
http://ilmes.freeweb.org
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://www.murialdo.it/it_lang_vb

conosco ...)


mroghy ha scritto nel messaggio <36B89F29...@NOSPAMhotmail.com>...

Cioe'? spiegati meglio, come si fa?
--
Roal Zanazzi
z...@iol.it


Selezioni il controllo che ti interessa, premi CTRL+Shift e poi lo sposti o
lo ridimesioni con il mouse nella solita maniera.
Ciao.
Davide.


Ma porc......
Avevo provato con CTRL o con SHIFT, ma mai con CTRL+SHIFT!!!!!!
Grazie.
--
Roal Zanazzi
z...@iol.it

granche', 16 bit e semplice semlice)
Provero' a cercarlo i rete, se non dovessi trovarlo.......
Grazie mille.


di quanto vi pare!
Attenzione, mi sono spiegato male, a me lo zoom veniva comodo per fare
lo zoom out.... cioe' per rimpicciolire i forms (soprattutto qulle a
pieno schermo) , per disporre con piu' coerenza i controlli e gli
oggetti, non per posizionare con maggiore precisione zoomando.
E' di questo che sento la mancanza.....
Ciao a tutti.


...


Newsgroup: it.comp.lang.visual-basic
Titolo: Help PictureBox

Ciao,
qualcuno sa aiutarmi nel scorrere un'imagine più grande di una picture box
in essa senza dover ricorrere ai DC??
GRAZIE!

Fiorenzo:
  se vuoi posso mandarti le routines per gestire PictureBox con barre di
scorrimento e con possibilita' di essere ridimensionati al "run-time": ho
appena finito (quasi) di sistemarla e cosi' me la provi.
Ciao e fammi sapere.
Franco

Newsgroup: it.comp.lang.visual-basic
Titolo: vb6(sp5): sapere se un form è già in esecuzione

buongiorno a tutti
vorrei sapere se c'è un modo per sapere se un form è già in esecuzione
mi spiego meglio:
un form (mdi child) può essere richiamato sia da menu che da un altro form
e ovviamente visualizza oggetti diversi a seconda di dove è stato chiamato.
Il problema è che se la prima volta lo apro da menu e poi dall'altro form
ovviamente non me lo visualizza, ma se lo riprendo dal menu "Finestra" mi
cancella degli oggetti.
Quindi vorrei sapere se esiste un modo per vedere se quel form è stato già
aperto in modo
da restituire un msgbox all'utente
Esiste?

 ha scritto nel messaggio
news:LZ2F8.53060$CN3.1...@news2.tin.it...


 ha scritto nel messaggio
news:LZ2F8.53060$CN3.1...@news2.tin.it...


 l'utente puň usare tutti e 2 i form!
Newsgroup: it.comp.lang.visual-basic
Titolo: Termina operazione

Ciao a Tutti!
Qualcuno sa come faccio a far terminare un programma simulando il
CTRL+ALT+CANC di Windows che aprendo una finestra ti permette di decidere
che programma seccare drasticamente (praticamente quando vi si inpalla il PC
:(((); ecco io dovrei riuscirlo a fare da codice magari con qualche API.....
Grazie a tutti
Antonioli Fabio

 wrote in message
8uel1p$290$1...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: PER ESPERTI (API)

Salve a tutti,
premetto che non sono un esperto e quindi vi prego di scusare qualche
probabile imprecisione nella terminologia.
Il problema è molto semplice (da descrivere),  intercettare una sessione di
IEXPLORER.EXE, recuperare l'URL e distruggerla.
Ho girato praticamente ovunque alla ricerca di info ma ci sono ancora un
paio di punti "cruciali" sui quali non ho trovato proprio niente.
1. Attraverso Spy++ ho visto che ogni sessione all'apertura e alla chiusura
genere eventi WM_USER+.. in un processo di EXPLORER chiamato WorkerW.
E' possibile recuperare l'Header della finestra da questi eventi?
2. Se si è possibile recuperare l'URL da questa finesta?
Prima di postare questo messaggio ho fatto parecchie ricerche ma non sono
riuscito a trovare niente che si avvicinasse alla soluzione, al massimo
creare un' istanza di un programma e poi distruggerla, troppo facile
conoscendo l'Header della finestra (e fralaltro con Iexplorer non funziona).
Quindi credo proprio che la cosa sia proprio tosta.
Ciao Igor

 IEXPLORER.EXE, recuperare l'URL e distruggerla.
scusa..
sarà anche semplice da descrivere, però non ho capito cosa devi distruggere
cosa intendi per sessione, un sito aperto?
recuperare l'url significa prendere il testo che c'è nella barra degli
indirizzi? e una volta rilevato? cosa devi distruggere, il web aperto?
Fabio

 ha scritto nel messaggio
news:PNNm8.14861$pT1.4...@news1.tin.it...


 IEXPLORER.EXE, recuperare l'URL e distruggerla.
Attento che col Nt/2k/XP il subclassing è MOOOOOLTO complesso (per i token).
Prova a vedere l'articolo sul subclassing nel sito comune.
Ciao
--
Timothy Redaelli
timothy(dot)redaelli(at)email(dot)it
-----------------------------------
Links:
Sito Comune: 
www.it-lang-vb.net
MSDN: 
msdn.microsoft.com

 wrote in message
news:h1Om8.60181$1S3.1...@twister1.libero.it...


 wrote in message
news:3c9bd...@news.bluewin.ch...


 
ti potresti trovare l'handle della finestra passando alla api findwindow
la class della finestra IE che mi pare sia IEFrame con na roba simile
hawnd = findwindow("IEFrame", vbnullstring)
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.visual-basic
Titolo: [?]MdiForm e Figlie

Piccolo Quesito:
E' possibile usare qualche metodo o proprietą di una MdiForm per ottenere
informazioni su tutti gli attuali form figli aperti o visualizzati?
pica...@labnet.it

informazioni su tutti gli attuali form figli aperti o visualizzati?
Guarda l'help per l'insieme Forms, contiene tutti i form caricati
anche se non visualizzati. Prova con:
    Dim I As Integer
    For I = 0 To Forms.Count - 1
        MsgBox Forms(I).Name
    Next I
Bye, G.
--
---------------------------------------------
    Le risposte alle tue domande le trovi sul
    Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------
Real E-address: 
gaet...@hotmail.com

Newsgroup: it.comp.lang.visual-basic
Titolo: Pesa di una installazione VB

Quanto pesa realmente una installazione di un programma VB?
Perchè tolti i 17 MB della mia applicazione tra eseguibile, dll scritte e
ocx di terze parti e di vb, InstallShield mi dice che il mio pacchetto
richiede 40MB.
Allora vuol dire che i runtime mdac pesano 23MB ... possibile???
-- 
Saluti
Andrea Moro


Istallati quei freeware (non mi ricordo i nomi) che monitorizzano il tuo pc
, istalli il tuo programma su un pc vergine e vedi quanto si ciuccia e cosa
fa !

Il fatto è che non ho un pc vergine ... non ora per il momento ...
e quello dove sto facendo i test è sempre il bel serverone ormai
sputtanato ;!
Vabbò per adesso dò poca importanza alla cosa.
-- 
Saluti
Andrea Moro

Dimenticavo ... se posti qualche link cosě appena ho un pc vergine
ci fň le prove.
-- 
Saluti
Andrea Moro
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema cretino ma che palle!!

Ciao Ragazzi
Ho una semplice casellina di testo.
Mano a mano che batto delle lettere, un motore di ricerca mi riempie una
list con i cognomi che cominciano per quelle lettere.
es: batto r e il motore mi fa vedere tutti quelli che cominciano per r,
aggiungo una o e mi fa vedere tutti quelli che cominciano per o etc etc
PERO' vorrei che la lettera che batto mi comparisse nella casella di testo
come maiuscola
ecco la routine:
Private Sub Text13_Change()
text13.text = ucase (text13.text)
vcog = " Cognome LIKE '" + Text13 + "%' AND "
motorericerca
End Sub
cosa accade di imprevisto?
che quando batto la lettera la stringa viene convertita in maiuscolo e la
routine la interpreta come un aggiornamento per cui richiama se stessa.
Il motore di ricerca parte e mi fa la ricerca
poi la subroutine continua e mi fa di nuovo la ricerca
Che posso fare?

 wrote in message 873ta1$lj0$1...@nslave2.tin.it...


poi la subroutine continua e mi fa di nuovo la ricerca
Ciao stefano

Usa questo sistema .....
Private Sub Text13_KeyPress(KeyAscii As Integer)
    If KeyAscii > 96 And KeyAscii < 123 Then
        KeyAscii = KeyAscii - 32
    End If
End Sub
e poi facci cio' che vuoi...anche nel Change .. Che viene sollecitato dopo il
KeyPress
Ciao Daniele
Stefano Spinelli ha scritto:

--
!------------------------------------------------!
!ICQ     : 8281944
!E-Mail  : 
Dan...@levon.it
!
! " Niuna impresa per minima che sia puo' avere
!   cominciamento e fine senza queste tre cose
!   e cioe'
!
!        senza sapere
!        senza potere
!        senza con amore volere                "
!
!
!HomePage : 
http://www.levon.it/daniele
!
!------------------------------------------------!

Newsgroup: it.comp.lang.visual-basic
Titolo: NON RIDETE

Devo compilare vecchiissimo codice prodotto con GWBASIC.
Non ho voglia di riscriverlo!
Ma dove trovare un compilatore adatto all'uopo?
Grazie
Pat
(gradita risposta diretta via e-mail:    
arrigon...@spm.it
   )

Ma dove trovare un compilatore adatto all'uopo?
Prova con VBDOS 1.00 Pro o con il QuickBASIC 4.5
Saluti,
Paolo Caparrelli
selpr...@pn.itnet.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Casella di testo

Vorrei impedire l'iserimento di lettere in una casella di testo e permettere dalla tastiera soltanto l'inserimento di numeri.
 
Sapete informarmi ?
----------------------------------------------------------
Inviato da: 151.20.168.58, via 
http://usenet.iol.it
 

Vorrei impedire l'iserimento di lettere in una casella di testo e permettere dalla tastiera soltanto l'inserimento di numeri.
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
dove Text1 è il nome della casella di testo
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
---------------------------------------------------------------------------

Se no usi mask edit e setti la proprietà clipmode in mskexcludeliteral

Newsgroup: it.comp.lang.visual-basic
Titolo: Cos'e' L'Aliasing?

Qualcuno sa spiegare, in parole comprensibile ai neofiti di Vb come me, cosa
e' L'aliasing (menu proprietą di progetto -> compila -> ottimizzazione
avanzata)? Premetto che con la guida in linea la spiegazione sembra poco
comprensibile.
Grazie.
Mauro

comprensibile.
No, dai, mi sembra abbastanza chiaro.
Riprendo l'esempio della guida in linea.
Dim y as integer
Sub Foo(x as integer)
    x=5 'Il codice fa riferimento alla stessa variabile (y globale) con due
nomi diversi
    y=6
End Sub
Sub Main
    Foo y
End Sub
Con Alias y varrà 6, senza 5.
Cioè, se togli l'aliasing sei tu a garanire per il compilatore che non farai
giochetti strani con le var tipo quello nell'esempio, così il compilatore si
potrà impegnare solo su rendere più veloce il codice.
Il problema, come con tutte le opzioni di compilazione, è che tu devi essere
sicuro di quello che fai da codice, altrimenti meglio lasciar stare.
Ah, usare variabili globali è di per sè deleterio (in termini di chiarezza
del codice), meglio usarne il minimo indispensabile e ben suddivise per
scope.
Ciao
--
           .-.         .-.         .-.
.-.       /   \       /   \       /   \       .-.
  ----- 
http://www.murialdo.it/it_lang_vb
 -----
    \   /       \   /       \   /       \   /
     '-'         '-'         '-'         '-'
   Partecipate al progetto Leonardo proponendo
   nuove idee e aiutando a svilupparle
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] dati: file di testo --> Excel

Ho il seguente problema: devo immettere in celle di Excel i valori contenuti
in un file di testo.
il file di testo è formattato in modo che quello che devo mettere nella
prima colonna occupa 20 caratteri, quello nella seconda colonna ne occupa 11
il terzo 12 il quarto 11 e l'ultimo 5.
ho provato a fare la seguente macro ma mi dice che c'è un errore di
lunghezza di nella lunghezza del record (errore numero 59)
Riporto il codice che ho usato:
Sub Macro1()
'apre il file
Open "c:\mio_file.txt" For Random As #1
'definisci variabili
Dim CelFormula As String
Dim CelDH As String
Dim CelDG As String
Dim CelDS As String
Dim CelCp As String
Dim Tutto As String
Dim i As Integer
'costruisce una stringa "Tutto" di 62 spazi
Tutto = Space(62)
'ripete l'operazione per 200 volte
For i = 1 To 200
    'leggi la riga i e assegna il valore a Tutto
    Get #1, i, Tutto   <-------QUI MI DA L'ERRORE
    'Prendi la parte formula di Tutto
    Formula = Mid(Tutto, 1, 20)
    'Prendi la parte DH di Tutto
    DH = Mid(Tutto, 20, 11)
    'Prendi la parte DG di Tutto
    DG = Mid(Tutto, 31, 12)
    'Prendi la parte DS di Tutto
    DS = Mid(Tutto, 43, 11)
    'Prendi la parte Cp di Tutto
    Cp = Mid(Tutto, 54, 8)
    'dice in quali celle vanno messe
    CelFormula = "A" & i
    CelDH = "B" & i
    CelDG = "C" & i
    CelDS = "D" & i
    CelCp = "E" & i
    'mette nelle celle i valori
    Range(CelFormula) = Formula
    Range(CelDH) = DH
    Range(CelDG) = DG
    Range(CelDS) = DS
    Range(CelCp) = Cp
Next
'chiudi il file
Close
End Sub
Sarei grato se qualcuno mi potesse dire come risolvere il problema, anche
inviadomi degli esempi.
grazie e ciao
MaViMo

 Tutto = Space(62)
Perchč??
Public Tutto        as String        Non ti piace?!?
Ciao.
Paolo.


 Open "c:\mio_file.txt" For Random As #1
[SNIP]
Visto che il file lo leggi riga per riga dovrebbe essere sufficiente aprire
il file in maniera sequenziale (..For Input..) e sostituire i Get #1 con
Line Input#1; a questo punto puoi continuare con i Mid ecc.
Ciao
--
Luca Dormio
luca....@tin.it

 wrote in message
9j1g9g$v0j$1...@diesel.cu.mi.it...


 
http://web.tiscalinet.it/plj
Guarda che hai qualche problema, mi dice che c'è un errore nel server.
Casomai puoi mandarmelo? Tks
MaViMo



Grazie, funziona, ma come posso farlo con random? devo, in un altro caso
prendere solo alcune linee (1 si e 4 no)
Grazie
MaViMo