mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Grid personalizzabili

Ciao sono alla ricerca di un componente che mi permette come il Data Grid di
associare un recordset ma allo stesso tempo di poter modificare l'aspetto
grafico del componente.
Qualcuno puo indicarmi qualche link....??
Grazie Daniele

grafico del componente.
La msflexgrid fornita di default con visual basic offre, come dice il
nome, una enorme flessibilta'.
-- 
ciao,
hal

 ha scritto nel messaggio
news:ddt640pqkrs6p6r1v...@4ax.com...


di Inserimento, Cancellazione, Modifica dei vari Record.
Poiche' uso d'abitudine controlli unbound non so dirti al riguardo, ma
una piccola classe generica per gestirti questa attivita' ti mette a
posto per tutta la vita ;-)
-- 
ciao,
hal

 ha scritto nel messaggio
news:ddt640pqkrs6p6r1v...@4ax.com...


On Mon, 01 Mar 2004 22:00:22 GMT, "BluPegaso" <BluP...@Tin.it>
wrote:
[cut]
http://www.freewebz.com/iosononiubbo/faq.htm#quotare
-- 
ciao,
hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Licenza Studente

Causa doppio regalo, vendo Licenza studente Visual Basic 5.0 + Visual
C++
a 150.000 Lire

 scritto nell'articolo
<33d7b711.3870454@news>...


Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 MDB SQL con date

Non riesco a capire.
Se faccio una SQL come segue:
... WHERE NomeTabella.NomeCampoData >=#01/07/2004# _
            AND NomeTabella.NomeCampoData <=#30/09/2004#
mi trova anche dei record con dei valori esterni al periodo
Se invece faccio una SQL così:
... WHERE NomeTabella.NomeCampoData >=#10/07/2004# _
            AND NomeTabella.NomeCampoData <=#05/09/2004#
non trova niente.
Le mie impostazioni internazionali di windows98 sono gg/mm/aa.
Ammetto di non aver ricercato nei vari siti.
Credo che il problema sia banale per chi lo conosce.
Chiedo cortesemente aiuto.
Sauro

 ha scritto nel messaggio
news:kqJgd.8267$Es2.1...@twister2.libero.it...

Veloce risposta: nelle query SQL le date devono avere rigidamente il formato
#mm/dd/yyyy#.
Bye
Raf

 Raf
Grazie Raf.
Ciao, Sauro

 #mm/dd/yyyy#.
Mentre per l'inserimento usa 'yyyy/mm/dd'.
Paolo.


  Se è Access puoi fare
WHERE NomeTabella.NomeCampoData >= Cdate("2004/07/10")
e funziona in ogni lingua...
ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Sviluppatore cerca sviluppatore per mettersi in proprio

Ciao a tutti, sto cercando una persona che conosca l'ASP e teconologie
internet meglio se pratico di applet che possa portare avanti un progetto
come seconda attività.
Io ci sto lavorando tantissimo, mi sono accorto di trovarmi di fronte ad una
cosa troppo GRANDE in dimensioni
Progetto interessante, sviluppi a dir poco milioniari.
Se sei interessato , abiti a Roma e ti piacerebbe tirare su una software
house dal nulla come sto facendo io contattami
first...@virgilio.it

 ha scritto

news://it.comp.www.asp cos'ha che non va ?

... Carotina cerca cipollina per mettersi in agrodolce... :-)

... Carotina cerca cipollina per mettersi in agrodolce... :-)
spettacolare :)
Ciao
Aldo
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto Password ?!

Ciao ragazzi ho un problemino di questo genere, ho realizzato un piccolo
applicativo che utilizza DAO per la gestione dei dati.
Gli archivi sono file .mdb protetti da password in modo da non renderli
accessibili dall'esterno del programma.
L'applicativo apre correttamente i file. Per le stampe utilizzo crystal
report 7.0, il mio problema è questo :
Non riesco a passare la password per aprire i file .mdb dal mio applicativo
al motore di stampa del crystal r.
ho provato ha usare questa riga di codice ma non funziona,
crystalreport1.password=(password..) che fare?
Thanks

 Thanks
Pregs :-)
bya
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Come si fa a stampare su stampanti non default

Ho sempre avuto problemi per stampare su stampanti diverse da quella di
default. L'unica maniera semplice che l'help suggerisce (almeno quella che
ho trovato) e' di cambiare il default di sistema, creando infiniti problemi
alle altre applicazioni.
L'altro sistema, prendere il device context di una data stampante, non mi e'
molto chiaro, soprattutto per quanto riguarda le differenze di utilizzo dei
metodi di stampa (print, line,...)
Qualche lume?
Enrico

Se hai VB5 per prima cosa installa il service pack di VB, altrimenti non
riuscirai mai ad usare le stampanti correttamente. Per risolvere il ruo
problema prendi spunto da questo codice.
Dim X as Printer
Set X=Printers(1) '1,2,3 ecc sono le stampanti disponibili
Printers è un insieme che contiene i riferimenti a tutte le stampanti
installate nel sistema (comprese le "stampanti virtuali come Fax ecc...).
Usa sempre la variabile X per accedere alle proprietà delle stampanti se
vuoi modificarle, perché i riferimenti alle proprietà di Printers(1,2,...)
sono in sola lettura.
Enrico Santoemma ha scritto nel messaggio <91nh2.2047$m5.10343@SnBeta>...


Io ti consiglio di scrivere un TSR in assembler.
Se scrivi un TSR in assembler puoi personalizzare l'indirizzo e l'interrupt
che usi in modo da indirizzare
anche una stampante che non sia necessariamente di default.
Per accedere al TSR in Visual Basic è sufficente creare una macchina
virtuale dos (che ospita il TSR)
e poi tramite DPMI (l'interrupt 31h) chiamare le funzioni del TSR.
Spero che questi ti sia di aiuto.
Willy


Io ti consiglio di scrivere un TSR in assembler.
Se scrivi un TSR in assembler puoi personalizzare l'indirizzo e l'interrupt
che usi in modo da indirizzare
anche una stampante che non sia necessariamente di default.
Per accedere al TSR in Visual Basic è sufficente creare una macchina
virtuale dos (che ospita il TSR)
e poi tramite DPMI (l'interrupt 31h) chiamare le funzioni del TSR.
Spero che questi ti sia di aiuto.
Willy
Enrico Santoemma wrote in message <91nh2.2047$m5.10343@SnBeta>...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Prog non si chiude

In vb6 SP3:
Ho un programma che viene eseguito in background.
Tramite subclassing un altro programma puo', utilizzando la API
BroadcastSystemMessage, chiudere il programma. E fin qui funziona.
Il programma in background funziona con un loop di attesa che controlla
una variabile CHIUDERE; se CHIUDERE e' vera viene eseguito:
-Unsubclass
-unload form
-set form=nothing
(ho semplificato!)
Utilizzando 1 ocx trovato sul sito comune ho messo nella tray un'icona
che permette di chiudere direttamente il programma; un doppio click su
questa icona manda in esecuzione una routine che setta a True la
variabile CHIUDERE.
Parte della chiusura sembra avvenire (l'icona sparisce dal tray), ma
nella lista dei processi il programma risulta ancora in esecuzione;
tentando di ucciderlo ottengo dopo qualche secondo il messaggio
"L'applicazione non risponde ...".
Durante il debugging ovviamente il programma si conclude normalmente
(cioe' non sembra rimanere nessun codice in esecuzione).
Qualche suggerimento?
grazie
	maxx

 wrote in message
3A275C98...@laserinforma.com...


 (cioe' non sembra rimanere nessun codice in esecuzione).
... perche' magari ci pensa vb. Sembra che in realta' non vengano scaricati
degli oggetti. Prova a registrare su un file di log gli eventi Terminate
degli oggetti.
Ciao
Aldo

 
Provero' a fare il log.
grazie
		maxx

Newsgroup: it.comp.lang.visual-basic
Titolo: Stampante di default di windows

Come si setta la stampante di default in VB. Ki lo Sa?
Un grazie anticipato



Se e' di default allora gia' e' settata e basta usare l'oggetto
Printer, se vuoi usare un'altra stampante:
Set Printer=Printers(x)
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Numeri Internazionali

Due piccole domande:
1)-Come posso fare ad inserire numeri con il  "." come separatore decimale
(cioè sistema americano) senza andare a cambiare le impostazioni nel
pannello di controllo del computer che è settato con sistema italiano?
2)-Come si può fare a far apparire la virgola quando si preme il punto del
tastierino numerico? (come succede in excel).
Grazie

 writes:
L> Due piccole domande:
L> 1)-Come posso fare ad inserire numeri con il  "." come separatore decimale
L> (cioč sistema americano) senza andare a cambiare le impostazioni nel
L> pannello di controllo del computer che č settato con sistema italiano?
Cioč mettere il numero 1,000.23 in un textbox e fare in modo che venga
riconosciuto come "mille virgola ventitre" ? Puoi fare un ciclo in cui
prima converti le virgole in caratteri non numerici (i.e. '|') poi uno
in cui cambi  i punti in virgole ed  infine uno in cui cambi  i '|' in
punti.
L> 2)-Come si puň fare a far apparire la virgola quando si preme il punto del
L> tastierino numerico? (come succede in excel).
Al keydown il  . del keypad ritorna un codice  diverso da quello della
tastiera alfanumerica (110 invece di 190 mi pare). Prova a sfruttare 
questo esempio.
Dim kpaddot As Boolean
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 110 Then
        kpaddot = True
    End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If kpaddot Then
        KeyAscii = Asc(",")
        kpaddot = False
    End If
End Sub
--
Gian Uberto| main(){printf(&unix["\021%six\012\0"],(unix)["have"]+"fun"-0x60);}
Lauri      |                        David Korn, 1987 ioccc best one liner 
(aka saint)|-------------------------------------------------------------------
em@ail: 
sa...@eng.it
 ( vedere X-nospam nello header - see X-nospam in header )

 wrote in message
u66c84...@mail.eng.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Invio File .mdb annullato automaticamente


Subject Codice Fiscale ecco l'archivio coi codici
Message-ID <01bdb315$ec94c5e0$LocalHost@ANTONINO>
NNTP-Posting-Host 
a-cb4-4.tin.it
Per ulteriori infomazioni http//
beatles.cselt.it/news-it/cancelbot.html
e suoi mirror, oppure scrivi su it.news.gcn.
(For non-Italian speakers you posted (also) in it.* a message which 
is not allowed by the rules of the hierarchy. Look at
http//
beatles.cselt.it/news-it/eng/cancelbot.html
 for more info.)
-- 
Automaticamente tuo,
il robot XPostKiller
-- 
//          Antonino Sabetta
//Studente Ingegneria Informatica
//Università di Roma "Tor Vergata"
//       
cope...@tin.it

Ho prtovato ad inviare il file Comuni.mdb:
[Snip]
Ciao, il GCN (Gruppo Coordinamento News) vieta l'invio di file binari al di
fuori della gerarchia it.binari.*
Il 17 luglio e' scaduto il termine per votare it.binari.visual-basic, in
attesa di avere i risultati puoi inviarlo sul gruppo it.binari.file, leggiti
prima il messaggio "COME POSTARE MESSAGGI IN QUESTO NEWSGROUP"
Dai anche un'occhiata ai link della firma.
Ciao
--
Andrea :-{)
acm...@hotmail.com
==========================================================
Ci tieni a fare la figura dell' incompetente su Usenet?
No? Allora leggi 
http://beatles.cselt.it/news-it/FAQ.html
Conosci bene i manifesti dei NG su cui posti?
Li trovi su 
http://beatles.cselt.it/news-it/gruppi-it.html
==========================================================
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Copiare una directory comprese le sue sottodirectory e i files

Come da oggetto, come si fa?
Grazie.
ByeZ!
Alkondor
Togliere NOSPAM per rispondere in e-mail

Alkondor <alko...@freemail.itNOSPAM> wrote in message
37d8bf8c...@news.tin.it...

Devi crearti una Function ricorsiva.

> Come da oggetto, come si fa?
Tempo fa alla tua stessa domanda fu risposto con una richiamata alle Api. Se
ti interessa quella allora cerca 
www.deja.com
, se ti basta via codice allora
ecco una funzione che scrissi parecchio tempo fa. L'utilizzo è molto ovvio,
cmq se hai dei dubbi mandami un e-mail.
Public Sub CopiaDir(Origine As String, Destinazione As String)
Dim pstrDirectory() As String, pstrFile() As String, pstrAgg As String
Dim pstrPercorso As String, pstrNome As String
Dim plngNumDir As Long, plngNumFile As Long, plngCont As Long
'Sistema le eventuali imperfezione nei percorsi
If Right(Origine, 1) <> "\" Then Origine = Origine & "\"
If Right(Destinazione, 1) <> "\" Then Destinazione = Destinazione & "\"
'Se non esiste crea la dir di destinazione
If Dir(Destinazione, vbDirectory) = "" Then
MkDir Destinazione
End If
'Inizializza le variabili
pstrPercorso = Origine
'Corpo della routine
Scannerizza:
If Right(pstrPercorso, 1) <> "\" Then pstrPercorso = pstrPercorso & "\"
pstrNome = Dir(pstrPercorso, vbDirectory)
Do While pstrNome <> ""
     If pstrNome <> "." And pstrNome <> ".." Then
        If (GetAttr(pstrPercorso & pstrNome) And vbDirectory) = vbDirectory
Then
         plngNumDir = plngNumDir + 1
         ReDim Preserve pstrDirectory(plngNumDir)
         pstrDirectory(plngNumDir) = pstrAgg & pstrNome
        Else
         plngNumFile = plngNumFile + 1
         ReDim Preserve pstrFile(plngNumFile)
         pstrFile(plngNumFile) = pstrAgg & pstrNome
        End If
   End If
   pstrNome = Dir
Loop
'Esamina le sotto-directory
If plngCont < plngNumDir Then
    plngCont = plngCont + 1
    pstrPercorso = Origine & pstrDirectory(plngCont)
    pstrAgg = pstrDirectory(plngCont) & "\"
    GoTo Scannerizza
End If
'Crea la struttura delle direcory
'nel cassetto destinazione
For plngNumDir = 1 To UBound(pstrDirectory)
    pstrNome = Destinazione & pstrDirectory(plngNumDir)
    'crea la directory solo se non esiste
    If Dir(pstrNome, vbDirectory) = "" Then
        MkDir pstrNome
    End If
Next plngNumDir
'Copia i file
For plngNumFile = 1 To UBound(pstrFile)
    FileCopy Origine & pstrFile(plngNumFile), Destinazione &
pstrFile(plngNumFile)
Next plngNumFile
End Sub
Ciao
Daniele
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        Le risposte alle tue domande le puoi trovare su:
 
http://www.murialdo.it/it_lang_vb
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

End Sub
E' perfetta. Grazie 1000

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] valore NAN per double

Ciao!
Qualcuno si ricorda qual'é il valore di Not-A-Number per i double?
(E magari anche l'eventaule costate in VB che lo rappresenta...)
                Ciao & grazie
                                Allanon

 (E magari anche l'eventaule costate in VB che lo rappresenta...)
Veramente il NAN lo ottieni quando fai ad es. una copymemory() di una
sequenza di bit non rappresentabile in formato floating in un double.
Non esiste un valore NAN (in VB, in VBScript è diverso).
Ciao

 (E magari anche l'eventaule costate in VB che lo rappresenta...)
Cos'è il N.A.N. di preciso ? scusa l'ignoranza
se per NAN intendi il massimo double è
Const BIG_DOUBLE= 1E+30
Fabio

  rappresenta...)
Non credo che il VB abbia una costante del genere.
Ciao.
--
BSD is for UNIX-lovers -- linux is for Windows-haters.

 Non credo che il VB abbia una costante del genere.
Temo che tu abbia ragione... :(
Bisogna costruirsela... (ci proverò qualche post più in alto...)
                Ciao
                            Allanon

 Const BIG_DOUBLE= 1E+30
No, e comunque 1E+30 non é il massimo per un double... :)
                    Ciao
                            Allanon

 sequenza di bit non rappresentabile in formato floating in un double.
Ok, oppure lo ottieni anche quando in un linguaggio serio fai una cosa tipo
0/0 o infinito/infinito
Lo standard di single e double (IEEE754) prevede anche questa codifica...
Purtroppo con VB non c'é alcun metodo di rappresentare questi numeri se non
ricorrendo ad artifici (CopyMemory) per accedere direttamente alla memoria.
In breve...
Un double:
1 bit di segno
12 di esponente
51 di mantissa
Se i 12 di esponente sono tutti a 1...
Eccoti un NAN...
Dim A As Double
Private Declare Sub CopyMemory Lib "Kernel32" Alias "RtlMoveMemory" (pDest
As Any, pSource As Any, ByVal Bytelen As Long)
    CopyMemory ByVal VarPtr(A) + 4, &H7FF80000, 4
e il gioco é fatto
                Ciao
                                Allanon
Newsgroup: it.comp.lang.visual-basic
Titolo: Perchè non funziona?

All'interno di una directory denominata SPED sono presenti alcune
sottodirectory nominate per anno (es. 1996, 1997, ...) che contengono
diversi file.
Alcuni di questi mi servono per essere modificati nella struttura recrd.
Per compiere questa operazione ho scritto il seguente listato. In fase di
test (debug.print) funziona perfettamente, se opero la lettura del file in
questione e la modific appoggiandomi ad un altro file, mi dà errore
nell'incrementare il ciclo di loop (L'istruzione DIR mi assegna un bel ""
alla variabile)
Come posso fare?
 ..............
  Path =  ... ' Imposto il percorso.
  Name = Dir(Path)   ' Recupero la prima voce.
  Do While MyName <> ""   ' Eseguo il ciclo
    If Left(Name, 2) <> "SP" Then  'Importo solo i file con prefisso SP
      If (GetAttr(Path & Name) And vbNormal) = vbNormal Then
        Debug.Print Path & Name            'Così funziona
      End If
    End If
    Name = Dir   ' Leggo il file successivo
  Loop
Se invece di
         Debug.Print Path & Name
Metto
    NumFile = FreeFile
    LenFile = Len(T_Sped)
    F_Sped = Path + Name
    Open F_Sped For Random As NumFile Len = LenFile
        NumRecord = LOF(NumFile) / LenFile
        NumFile2 = FreeFile
        LenFile2 = Len(T_Spedizioni)
    Open CurDir & "\sped\" & MyDirName & F_Spedizioni For Random As NumFile2
Len = LenFile2
        NumRecord2 = LOF(NumFile2) / LenFile2
        For I = 1 To NumRecord
            Get NumFile, I, T_Sped
                ..... Assegno i valori
            Put NumFile2, NumRecord2 + I, T_Spedizioni
         Next I
    Close NumFile2
Close NumFile
all'esecuzione di
           Name = Dir
Ho
            Name=""

 wrote in message
news:o6TU5.9053$CH3.3...@news.infostrada.it...

Credo che con questa istruzione cambi sotto il sedere alla funzione Dir il
posizionamento corrente .
Ciao
Aldo
(...)

   Loop
Non credo sia la migliore ma funziona.
Chiunque puň indicarmi un altro metodo, questo č sempre ben accetto.
Grazie a tutti per l'attenzione.

Newsgroup: it.comp.lang.visual-basic
Titolo: Data Environment.

Ciao a tutti,
ho collegato il mio programma ad un database di Access con il Data
Environment, quindi ho scritto questo codice nell'evento Form_Load:
With DataEnvironment1
         .rsCommand1.Open
If Not .rsCommand.Fields(0) = " " Then
    Me.Label1.Visible = True
    Me.Label1.Caption = "Messaggio"
End if
End With
Il problema č che funziona solo se ci sono dei record, quando Fields(0) č
vuoto mi da un'errore.
Spero in qualche suggerimento. Grazie.
 Symi.

     Me.Label1.Caption = "Messaggio"
Prova con
     Me.Label1.Caption = "Messaggio" & ""
Ciao VB

Usa la proprietą rsCommand.Eof per vedere se č TRUE...gli devi fare l'If
solo se č False:
Una cosa del genere:
 With DataEnvironment1
          .rsCommand1.Open
          If rsCommand.Eof=FALSE Then
              If Not .rsCommand.Fields(0) = " " Then
                 Me.Label1.Visible = True
                Me.Label1.Caption = "Messaggio"
              End if
          End if
 End With
Gianni Moretti

 Gianni Moretti
Perfetto, così funziona .
               Grazie mille, ciao.
               Symi.
Newsgroup: it.comp.lang.visual-basic
Titolo: Quale Stringa metto nell' API ?

Salve al NG
Usando l'API
FindWindow Lib "user32" Alias "FindWindowA"
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
quale stringa devo passare a lpClassName per avere l' handle della finestra
del Browser
GRAZIE
                ;-))  Davide  ((-:

 wrote in message
ECoh4.4340$Wr6....@news.infostrada.it...

Per IE5 č "IEFrame", almeno č la classe della finestra piů "esterna" del
browser segnalata da spy++

 wrote in message
865kvm$4ck$1...@lacerta.tiscalinet.it...

Grazie dell' informazione , adesso riesco ad avere l' Handle di una finestra
IE.
Scusa se insisto con un' altra domanda:
                            Cosa č spy++ e dove lo posso trovare ?
GRAZIE
                ;-)) Davide ((-:

 wrote in message
%hHh4.8689$Wr6....@news.infostrada.it...

E' tra gli accessori del visual studio standard, di solito sotto
\common\tools
Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Drivelistbox

Ciao a tutti!!!
In un programma per aprire un file uso il drivelistbox,dirlistbox e
filelistbox per selezionare il percorso.
Però non posso accedere al server.
Qualkuno sa dirmi kome fare ad accedere al server?
Gazie
Marco

Quei controlli non ti possono essere di alcun aiuto
perchè erano stati concepiti per un uso locale.
Prova a dare un occhio alla common dialog e
al modalità open / save.
-- 
Saluti
Andrea Moro

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

Vorrei acquistare un notebok ed istallarci almeno vb5 ed access.
ho sentito parlare di windows ce ma non so se va bene con vb (ad esempio
dopo aver istallato nt ho notato che per alcune cose differisce dal 95)
Avreste qualche consiglio da darmi (requisiti minimi, marca, prezzo, etc)
Grazie.

 Avreste qualche consiglio da darmi (requisiti minimi, marca, prezzo, etc)
A casa uso VB con un P 120 liscio , 32 mega di ram, 1 G di Hard Disk
a una velocita' ragionevole, per cui qualsiasi notebook dovrebbe essere
adatto allo scopo
Marco

Windows CE?
Ma è un Palmtop o un Notebook???
Ciao,
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

Newsgroup: it.comp.lang.visual-basic
Titolo: INternet transfer Protocol vb6 e up/dw da un server FTP!!







Ho un problemone ragazzi!!


 


al click su un pulsante 


INternet transfer Protocol si logga ad un server ftp 
e downloada un file stabilito su un server ftp stabilito...


Private Sub cmd_invia_Click()
Inet1.Execute 
"
FTP://ftp.microsoft.com"
, _
"get 
disclaimer.txt c:\Temp\Disclaimer.txt"


perchè se io cambio indirizzo ftp  non 
funziona
??


 


grazie 


-- 
Distinti Saluti 


Parenti Fabrizio
------------------------------


www.acquacalda.com
www.friendsms.it
www.omnimediacomputer.it
www.parentifabrizio.com



 perchč se io cambio indirizzo ftp  non funziona??
Questo č il numero del mio telefono: 0123-123456789
Perchč se chiamo un altro numero il mio telefono non squilla ???
Per la tua stessa ragione: se cambi indirizzo FTP č come se cambiassi il
prefisso di telefono: a quel punto il file DISCLAIMER.TXT non
viene piů trovato nella (chiamiamola) "directory" specificata
FTP://ftp.microsoft.com
Ciao
Sergio

 wrote in message 8ue88k$61j$1...@nread2.inwind.it...


 ha scritto nel messaggio
news:vHxO5.21826$BF.7...@news.infostrada.it...


 wrote in message 8ueaao$a5e$1...@nread2.inwind.it...


Io uso INET versione 6.0 con VB 6.0 SP4 e
riesco tranquillamente a inviare file anche su siti che necessitano di nome
utente e password.
questo il comando che uso:
Inet1.Execute Conn, "SEND C:\DIRECTORY\nomedelfile.ext
/nomedir\nomefile.ext", "
ftp://nomeutente:pass...@web.tiscalinet.it
"
Ho provato a riceverli con lo stesso sistema e funziona......
Ciao
Sergio


 wrote in message
8ufbdd$7ah$1...@fe2.cs.interbusiness.it...


 anzichč:


 Forse è proprio questo che genera l'errore.


Hai proprio ragione, ora che me lo hai ricordato
anche tutti gli utenti di 
libero.it
 hanno il nume utente
nomeu...@libero.it
Ciao
Sergio

Newsgroup: it.comp.lang.visual-basic
Titolo: cosa posso fare..

Ciao a Tutti !!
Ho uno strano problema con VB5 sotto NT 4 WKS con IE4.01SP installato;
quando apro la cartella strumenti per aggiungere un altro ocx mi compare un
bel errore del VB5 e non ho nessun ocx da inserire. Ho già provato a
disinstallare e reinstallare VB5, ma niente il problema rimane e non voglio
reinstallare tutto da capo perchè ho tanti pgm che uso e non saprei anche
come salvare i dati delle news con outlook express..
Aiutatemi....


    Il percorso delle directory dove Outlook Express va a salvare e leggere
Mail e News
 è indicato nel Registri alla chiave (Win98) :
  HKEY_CURRENT_USER\Software\Microsoft\Outlook Express\
 nella Stringa :
  Store Root (Store Root  "C:\Program Files\Outlook Express\Administrator")
    Il Percorso ed il nome del file dove Outlook Expess va a salvare
l'Address Book
 è indicato nel Registry alla Chiave () :
  HKEY_CURRENT_USER\Software\Microsoft\WAB\WAB4\Wab file name
 nella Stringa :
  Default (Default "C:\WINNT40\Profiles\Administrator\Application
Data\Microsoft\Address Book\Administrator.wab")
(Sono anche modificabili)
Ciao
                 Maurizio B.
 
mrzNOMMI...@tin.it
   (eraseNOMMISPAMMA)

Newsgroup: it.comp.lang.visual-basic
Titolo: Oggetto Printer, Impostazione Margini

Salve,
come posso impostare i margini di stampa attraverso l'oggetto printer?
Per left e top le proprietà sono esplicite mentre per right e down
bisogna effettuare un calcolo credo, basato sul tipo di scala magari.
Io vorrei ragionare in millimetri come scala se possibile.
Qualche suggerimento?
Grazie in aticipo!
Luciano.

 printer? 
Misuri il TextWidth() di quel che devi stampare e vai a nuova riga 
rispettando il limite impostato. Intendevi questo?
Ciao,
Daniele

Si intendevo questo, ma pensavo di non fare una gestione manuale dei
margini, credevo "speravo" che la facesse l'oggetto printer in
automatico...
Grazie per la risposta intanto! :)
Luciano.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] sp5 e MS tabbed dialog su Windows CE

Ciao a tutti!
Questo è la situazione: ho un'applicazione sviluppata in VB6, che gira in un
sistema con la seguente architettura.
Il programma è installato su un Server MetaFrame con Windows NT.
L'applicazione viene lanciata da terminali su cui è montato Windows CE.
Tale applicazione contiene l'ocx Microsoft Tabbed Dialog Control e, prima di
installare il ServicePack 5 per Visual Studio 6, funzionava tutto
correttamente.
Dopo aver installato il sp5, ho rieseguito il setup del programma e adesso
succede che quando tento di aprire le maschere che contengono il suddetto
controllo, subentra il seguente errore: TABCTL32.OCX not found !!!
ATTENZIONE: questo errore si presenta solo lanciando l'applicazione dai
terminali con Windows CE, mentre l'esecuzione da PC con Windows NT funziona.
Qualcuno può aiutarmi a capirci qualcosa???
Grazie a tutti
Ciao -- Romina

L'unica cosa che so é che non tutti i controlli di vb6 sono
compatibili con windowsCE.
Probabilmente questa versione di tabcontrol non lo é.
Ciao
Dave


-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com
 - The #1 Newsgroup Service in the World!
-----==  Over 80,000 Newsgroups - 16 Different Servers! =-----

Grazie! Ma la cosa strana è che prima del sp5 funzionava!
Ciao
-< Dave >- <da...@hate.spam> wrote in message
cubkgtofhjhn1u3aa...@4ax.com...


Newsgroup: it.comp.lang.visual-basic
Titolo: VB4:NON STAMPA REPORT

HO UN PROGRAMMA SCRITTO IN VISUAL BASIC 4.0 DA CUI LANCIO UN REPORT
CREATO CON CRYSTAL REPORT 5.0 SU ALCUNI P.C. NON STAMPA E NON FA
L'ANTEPRIMA DEL REPORT .SAPETE COME MAI ? 
UN GROSSISSIMO GRAZIE ANTICIPATO

...

Hai provato a mettere il file nella stessa directory del programma?
P.S.
Non scrivere in maiuscolo. Sulla rete significa urlare.
A me non frega nulla... ma c'e' molta gente "fiscale" in giro.
AVE
s...@mclink.it

> ... CRYSTAL REPORT 5.0 ... NON STAMPA E NON FA  L'ANTEPRIMA DEL REPORT .
La prima regola da seguire č controllare l'errore.
Non ho i sorgenti sottomano, tuttavia CR non va in errore, dopo il lancio
della stampa, devi chiedere a Crystal Reports se ci sono errori, e se si
devi decodificarlo.
.... Mi viene ora in mente che probabilmente stai utilizzando direttamente
il controllo.
Ti invito ad utilizzare le Api, non č molto piů complesso ma ti risolvono
un sacco di problemi.
Saluti
Silvio Sorrentino
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto: da C++ a VB

Sottopongo alla vostra attenzione un problema relativo alla traduzuione in
VB di una funzione di una DLL, scritta originariamente in C++ (guarda
caso...).
Devo convertire in VB una funzione di una DLL chiamata GetData(), priva di
parametri, che in C++ restituisce il puntatore di un vettore di 8192
elementi (tipo Double). Ho provato un po' tutte le combinazioni, senza
successo. La DLL sembra funzionare bene, infatti sono riuscito a tradurre in
VB tutte le altre funzioni. Lo scopo di cio', e' ottenere poi l'effettiva
lettura degli 8192 dati, assegnando i singoli valori ad un vettore chiamato
aaaData().
Grazie in anticipo...

Adso da Melk ha scritto nel messaggio ...

Se gli elementi nell'array puntato sono tutti contigui (uno dietro l'altro)
puoi semplicemente farti il tuo bell'array (fortunatamente ne conosci le
dimensioni)
Dim aaaData(1 To 8192) as Double
E poi fai (vado a intuito)
Dim lp as long
lp = GetData()
Call CopyMemory(ByVal VarPtr(aaaData(1)), ByVal lp, 8192 * len(aaaData(1)))
ora in aaaData dovresti avere tutti gli elementi.
Fammi sapere.
Ciao

 wrote in message 8sflpn$du0$1...@nslave3.tin.it...


Ti ringrazio per la precisione e per la rapidità.
Woa! Sono un geGnio... :)  il tutto senza provare!
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Query x Stampare Barcode

Salve a tutti
Il mio questito è questo :
Vorrei Creare una Query per poter stampare dei barcode:
fino a qui semplice direte voi.
L mia esigenza e quella di visualizzare nella query lo stesso barcode in
base alla Qua.
per stampare cosi tutte le etichette x ogni prodotto.
es:
Ma tabella :
Barcode                Qua
0101200105          5
0101200106          8
Duque:
Query:
Barcode                Qua
0101200105          5
0101200105          5
0101200105          5
0101200105          5
0101200105          5
0101200106          8
0101200106          8
0101200106          8
0101200106          8
0101200106          8
0101200106          8
0101200106          8
0101200106          8
0101200106          8
Se Qualcuno sapesse la soluzion,e lo ringrazierei anticipatamente di Cuore.
Grazie Virtual

La vedo dura, SQL è un linguaggio di interrogazione basato sull'algebra
relazionale è quindi non fornisce queste funzionalità
- con DBMS "seri" ciò che puoi fare è
  Stored procedure che genera dati in TABELLA_APPOGGIO
  SELECT * FROM TABELLA_APPOGGIO
  SELECT Barcode, Qua FROM tabella
  per ogni fetch
  ciclo for da 1 a Qua
     ... ecc. ecc.
 Ciao,
     Cont.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] problema su combobox

Ciao a tutti,
ho un problemino sulla gestione delle combo:
- devo inserire (AddItem) dei codici + descrizione nella combo, però poi del
mio DB devo inserire solo il codice
- come faccio a prendermi solo il codice dell'Item selezionato, considerando
il fatto che la lunghezza del codice è variabile? (con la funzione Mid non è
molto comoda ne lineare)
Qualcuno a qualche suggerimento?
Grazie a tutti.
Ciao
Paolo

 ha scritto nel messaggio
news:pVYd9.62394$ub2.1...@news1.tin.it...


Se il codice è di tipo numerico potresti salvarlo nella proprietà
itemdata
La nosta difficolta non e' nelle dimostrazioni, 
ma nel capire che cosa dimostrare.
					 Emil Artin.

 molto comoda ne lineare)
Per aggiungere il codice e la descrizione nella lista, devi effettuare una
conversione del codice da numerico a stringa (se non lo è già).
Nel fare questo, aggiungi un numero di spazi pari alla differenza fra la
lunghezza di quel codice, e la massima lunghezza ammissibile per il codice
stesso. Oppure inserisci un carattere di separazione (ad esempio un
trattino), per cui quando sarà selezionato un item, dovrai semplicemente
fare una di queste due cose:
1) Prendere il Left della stringa pari alla lunghezza massima del codice, e
togliere gli spazi (Trim)
2) Cercare la prima occorrenza del trattino e prendere ciò che si trova a
sinistra.
Io a volte ho fatto in modo diverso:
Ho aggiunto, a destra della stringa che aggiungevo alla lista, un numero
elevato di spazi (ad esempio 100), e poi il codice che poteva anche non
coincidere con il codice mnemonico visualizzato all'inizio della stringa.
Alla selezione di un item, considero il Right della stringa, e tolgo gli
spazi in eccesso.
Ciao
Alberto
Newsgroup: it.comp.lang.visual-basic
Titolo: [Excel] Ho questo problema...

Non sono un programmatore in Visual Basic ma mi diverto a creare qualche
macro in vb di excel.
Il mio problema è questo:
utilizzo una fonte dati DDE che mi permette di avere i dati sempre
aggiornati sul mio worksheet.
Volendo storicizzare il contenuto dinamico di questi dati vorrei creare una
macro che on-change della cella sposti in copi il contenuto in un'altra
cella e al successivo change nella cella sottostante. E' possibile?
Spero di essermi riuscito a spiegare.
Grazie a tutti quelli che potranno aiutarmi...

 cella e al successivo change nella cella sottostante.
    Dunque, vediamo un po'...
    Negli ultimi due/tre mesi questa domanda e' stata fatta almeno altre tre
volte. Io ho gia' risposto pertanto non ho voglia, adesso, di rifare il
discorso. Pero' una indicazione provo a dartela egualmente: purtroppo anche
gli altri individui col tuo stesso problema avevano in spregio il subject,
per cui non saprei darti riferimenti significativi per una ricerca su
google. ( 
http://groups.google.com/advanced_group_search
 ). Potresti provare
accoppiando il mio nome a DDE. Ultimamente non se ne parla piu' tanto di
DDE... Se hai problemi fatti vivo che vedo se riesco a recuperare qualcosa.
No! Non leggere quest'ultima frase, per favore, senno' va a finire che fra
trenta secondi gia' rispondi dicendo: non ho trovato...
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

Grazie Maurizio,
cerco di trovare qualcosa. Non ti disturbero se non per motivi "gravi".
Grazie ancora

Newsgroup: it.comp.lang.visual-basic
Titolo: Key-Preview scomparsa!!

Salve a tutti, ho di recente realizzato un'applicazione gestionale con 
interfaccia MDI in cui mi serve "intercettare" una combinazione di tasti, 
tipo ALT+F1 (e simili), ma con mio stupore ho visto che un form MDI non 
ha la proprieta' KeyPreview!!!
Qualcuno sa come aggirare il problema?  Grazie.

Claudio ha scritto nel messaggio ...

In Delphi si crea un menu invisibile a cui si associano i tasti speciali...
Non so se funziona anche in vb... prova!
Ciao.

Riposto il problema (forse e' sfuggito a qualcuno!):
ho di recente realizzato un'applicazione gestionale con 
interfaccia MDI in cui mi serve "intercettare" una combinazione di tasti, 
tipo ALT+F1 e simili, ma con mio stupore ho visto che un form MDI non 


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] DataReport non compilati

Ciao a tutti.
Ho la necessità di poter utilizzare i file del DataReport senza che
siano compilati direttamente nell'eseguibile.
Qualcuno ha qualche soluzione in merito?
Ringrazio anticipatamente.
Aran Banjo

siano compilati direttamente nell'eseguibile.
Mettili in una dll ;-)
-- 
ciao, hal



Il problema si pone quando un cliente chiede di avere, per esempio,
una fattura diversa da quella inserita nell'eseguibile.
Io non vorrei creare il report, compilare e dare l'eseguibile solo per
una fattura, e quindi chiedevo se era possibile fare come in FoxPro e
dire qualcosa del tipo Do Report From reports\fattura
Ciao
Aran
Newsgroup: it.comp.lang.visual-basic
Titolo: POP3 to EML  ACTIVEX FREEWARE

Sto cercado in activex freeware per scaricare la posta e salvarla in
automatico in formato EML.
Esiste qualcosa in giro ?
Grazie EDP

 Esiste qualcosa in giro ?
EML, se non sbaglio, è il normale formato testo, però salvato con
l'estensione ".EML".
Se vuoi ricevere mail da POP3, sul sito comune c'è del codice:
http://www.it-lang-vb.net/
 cerca "pop3".
Bye, G.

Newsgroup: it.comp.lang.visual-basic
Titolo: Email e attachment?

...

Newsgroup: it.comp.lang.visual-basic
Titolo: MDI-Form e applicazioni esterne

CIao, vorrei porvi un quesito.
se creo un'applicazione che usa un MDIForm con dei form figli, i form figli
appaiono all'interno del form principale...
ma se i form appartengono ad altre applicazioni? applicazioni fatte da me
per modulare la mia applicazione, magari per ridurne le dimensioni.
Mi spiego con un esemppio.
L'applicazione princiapel è composta da un MDIForm contenente tutti i menu.
Al suo interno apro le varie form di immissione dati e via dicendo.
Ho un'applicazione esterna che si occupa di stampare dei moduli e la vogli
integrare in questa nuova.
Inserisco nel meno un avoce del tipo "Stampa moduli" e gli scrivo come
comando
shell(moduli.exe)  (se non ricordo male dovrebbe essere cosi
quando l'applicazione si apre, rimane contenuta nel mio form MDI prioncipale
o viene aperta a parte?
Grazie
Emanuele

 ha scritto nel messaggio
news:ptJhd.12386$Ni.4...@twister1.libero.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?][.NET] Form height maggiore di 780 pixel

Salve a tutti,
nella mia applicazione ho bisogno di creare una form con Height > 780 
pixel... il fatto è che se provo a cambiare questa proprietà, sia in 
progettazione che in runtime, il massimo che riesco ad ottenere è un 
form con height = 780 pixel! E' un limite del 
vb.net
?
grazie
sabbah

 pixel...
sinceramente non so, non ci ho mai provato. ma se il pc dell'utente finale è
impostato ad una risoluzione uguale o inferiore ai 780 pixel di altezza, che
fai?
Soluzione possibile: le form, in 
vb.net
, hanno la proprietà "AutoScroll"? se
sì puoi provare a fare una form più piccola (quei famosi 780, ma
consiglierei meno) e scrollabile.
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

Scusami,
mi ero scordato di dire che la form con height > 780 pixel e dentro una 
form MDI... in vb6 ero in grado di fare form con width anche + grandi di 
780... in 
VB.NET
 mi è impossibile...
Grazie
sabbah...


Samuele Sabatini wrote:

No, è un limite del tuo schermo.
E non credo proprio che sia possibile superarlo nemmeno con VB6.
Ciao

Ciao!

Ho "Reflectato" per un quarto d'ora prima di trovarlo, ma alla fine eccolo:
Me.UpdateBounds(Me.Left, Me.Top, Size.Width, HeightDesiderata)
Effettivamente é proprio un po' stupido questo continuo "bloccarsi" delle
dimensioni!
    Ciao
        Allanon
-- 
- SPAMKILLER
 lasciate il NOSPAM nell'indirizzo: 
itlangv...@michele.sytes.net
 e lasciate la parola SPAMKILLER nel corpo dell'email

 E non credo proprio che sia possibile superarlo nemmeno con VB6.
Per certo puoi usando un API... Ma comunque credo che le MDIChild non
necessitino nemmeno dell'API...


Grazie Mille!
sabbah....


 ha scritto

hai 1024*768 ?

Newsgroup: it.comp.lang.visual-basic
Titolo: uso del registry

Chi mi sa' consigliare un manuale in italiano sull'uso del registry ?
Grazie a ttttuuuuuuttttiiiiiiiiiiiiiiiiiiiiiii.

inside the regisrty per windows 95
mondadori
microsoft press
scritto da gunter born
Ciao Buone ferie
--
Marco
Newsgroup: it.comp.lang.visual-basic
Titolo: Input in vb3 .... da un newsby!!!

Il seguente codice di esempio mi sta facendo impazzire .
Non so come ritradurlo in vb3.
I problemi li incontro nell'istruzione input , specie quella inserita dentro
il primo loop.
Come posso far richiedere il dato se il dato e' fuori range.
In pratica voglio che il programma non avanzi se il dato (b >50 or b<300)
non rispetta i limiti imposti.
INPUT "beta : "; b
DO UNTIL b > 50 AND b < 300
    INPUT "ripeti : fuori range: ", b
LOOP
PRINT "                  premi return"
DO
LOOP UNTIL INKEY$ = CHR$(13)    '13 è il codice ASCII di Return
PRINT "beta ok ", b

 ha scritto


 Il seguente codice di esempio mi sta facendo impazzire .


 PRINT "beta ok ", b
Se vuoi mantenere lo "stile" potresti usare la funzione InputBox cosi'
(copia in un Modulo di VB3):
Option Explicit
' E' un codice un po' "verboso" perche' sono un po'
' verboso di natura e perche' cosi' facendo mi
' illudo di risparmiare sui commenti al codice.
' Eppoi oggi ho un conto in sospeso con la funzione
' InputBox...
'
Sub Main ()
Const IB_TITLE$ = "Titolo"
Const IB_PROMPT$ = "Immetti un valore per 'beta'"
Const IB_PROMPTERR$ = "Ripeti."
Const MB_OK% = 0
Const MB_ICONINFORMATION% = 64
Const MB_TYPE% = MB_OK% + MB_ICONINFORMATION%
Const MB_MSG$ = "beta ok "
Dim l_Beta      As Long
Dim l_Err       As Long
Dim s_Beta      As String
Dim s_IBPrompt  As String
Dim s_MBMsg     As String
Dim vbLf        As String
  vbLf = Chr$(10)
  s_IBPrompt = IB_PROMPT$
  Do
    s_Beta = InputBox(s_IBPrompt, IB_TITLE$, s_Beta)
    If Len(s_Beta) Then
      On Error Resume Next
      l_Beta = CLng(s_Beta)
      l_Err = Err
      On Error GoTo 0
      If l_Err = 0 Then
        If ((50 < l_Beta) And (l_Beta < 300)) Then
          s_MBMsg = MB_MSG$ & s_Beta
          MsgBox s_MBMsg, MB_TYPE%
          Exit Do
        End If
      End If
      If s_IBPrompt = IB_PROMPT$ Then
        s_IBPrompt = s_IBPrompt & vbLf & vbLf
        s_IBPrompt = s_IBPrompt & IB_PROMPTERR$
      End If
    Else
      Exit Do
    End If
  Loop
End Sub
La programmazione "visuale" (senno' che Visual Basic sarebbe?) ti offre,
pero', altre strade: usando per l'input un Form con almeno una TextBox e un
CommandButton potrai scegliere fra:
1. non far uscire il cursore dalla TextBox finche' l'input non e' nel range
previsto (che mi sembra sia la proposta di "pal");
2. all'evento Click del CommandButton validare i dati e comportarti di
conseguenza.
--
Ciao.
Maurizio
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] strchr

Salve a tutti,
    Avrei bisogno di trovare un carattere all'interno di una stringa,
ho
consultato MSDN e ho trovato la funzione strchr (della libreria
shlwapi.dll)
che fa al caso mio. Ho però il problema a incorporarla nel modulo di
vb, in
quanto non so di che tipo dichiarare i due parametri, ho provato come
string
o variant o niente ma la funzione mi restituisce sempre 0. Avete
qualche
idea?
Grazie mille a tutti.

cerca instr

> cheope:

Hai gia` consultato nella guida in linea (F1) le funzioni per
la "manipolazione delle stringhe"? (InStr & Co.)
--
Ciao.
Maurizio



Sì, grazie. Ho appena trovato la funzione InStr che fa per me.
Grazie lo stesso.

Newsgroup: it.comp.lang.visual-basic
Titolo: Mask edit box, autoformattazione ?!

Ciao,
    riscontro diversi limiti col Mask Ed Box...
    Esempio :
        campo percentuale     ###,##
        l'utente deve scrivere  010,5
        oppure posizionarsi sul secondo carattere...   altrimenti appare
"105,  %"
    ho trovato sull'MSDN una procedura che posiziona il cursore sulla
posizione 1 quando
    si entra nel controllo e quando si preme "," si sposta nella giusta
posizione, allineando
    a destra la parte intera del valore. (l'esempio mi pare relativo alla
versione 3 di VB )
    Anche qui però rimangono dei limiti, se il valore inserito è intero, ad
esempio solo 10
    questo rimane allineato a sinistra es.   "10 ,  %"
    Con valory Currency il problema si amplifica.
    Penso di non utilizzare correttamente il controllo. Qualcuni mi può dare
qualche dritta,
    immagino che molti abbiano affrontato questo problema.
Grazie
Enrico.

 dare qualche dritta, immagino che molti abbiano affrontato questo
problema.
Infatti. Pero' molto tempo fa ho deciso di non usarlo e di formattare in
uscita e "sformattare" in ingresso. Ogni tanto (ogni due-tre anni...)
affronto il problema ma ogni volta vengo distratto da cose piu' importanti
(tipo mangiare). Quello che segue mi sembra il tentativo piu' decente. Se ne
cavi fuori qualcosa fammi sapere:
Option Explicit
Private Sub txtGotFocus(txt As VB.TextBox)
  With txt
    Let .SelStart = 0
    Let .SelLength = Len(.Text)
  End With
End Sub
Private Sub Form_Load()
  Let Text1.Text = ""
  Let Text2.Text = ""
End Sub
Private Sub Text1_Change()
Static b_Changed  As Boolean
Static l_SelStart As Long
Static s_OldText  As String
Static s_NewText  As String
  If Not (ActiveControl Is Text1) Then Exit Sub
  On Local Error Resume Next
  With Text1
    If b_Changed Then
      Let .SelStart _
        = l_SelStart + (Len(s_NewText) - Len(s_OldText))
      Let b_Changed = False
    Else
      Let l_SelStart = .SelStart
      Let s_OldText = UCase$(.Text)
      Let s_NewText = UCase$(Format$(.Text, "#,##0"))
      Let b_Changed = s_OldText <> s_NewText
      Let .Text = s_NewText
    End If
  End With
End Sub
Private Sub Text1_GotFocus()
  Call txtGotFocus(Text1)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
  If InStr("0123456789", Chr$(KeyAscii)) = 0 Then
    Let KeyAscii = 0
    Call Beep
  End If
End Sub
Private Sub Text2_GotFocus()
  Call txtGotFocus(Text2)
End Sub
--
Ciao.
Maurizio
Newsgroup: it.comp.lang.visual-basic
Titolo: Come fare una macro per excel?

Salve,
avrei bisogno di una macro che dato un foglio excel con una serie di colonne
contenenti dati che ottengo da un programma gestionale, mi esporti su un
altro foglio bianco excel i dati contenuti solo su determinate colonne del
primo foglio che a me interessano.Le colonne da cui estrapolare i dati sono
sempre le stesse (a,c,e,f) mentre i dati
contenuti possono variare (quindi varia la lunghezza di queste colonne cioč
piů o meno celle).
Non conosco le macro ma mi serve per il lavoro in maniera importante.
Grazie infinite.
P.s. se possibile sul foglio che si crea ho bisogno di una colonna con dei
dati fissi sempre uguali. Si puo ordinare alla macro che oltre alla scelta
delle colonne mi crei una colonna sempre uguale nel nuovo foglio??

avrei bisogno di una macro che
[cut]
Per questa domanda un newsgroup su office e' piu' appropriato.
Posso comunuqe suggerire di usare il registratore di macro per
sfruttare il codice generato automaticamente, eventualmente
modificandolo per le proprie esigenze.
-- 
ciao, hal


mandami file.xls e spiegazione dettagliata  a 
sub__...@libero.it
e vedo che posso fare
ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Personalizzare setup

Ciao a tutti
Vorrei aggiungere la chiamata ad un file .bat all'interno del setup della
mia applicazione.
Ho creato il setup con il wizzard dopo aver modificato il sorgente Setup1 e
creato il suo eseguibile.
La modifica è:
ret=shell(app.path & "miobat.bat",0)
E' stata inserita come ultima riga del form load, ma durante l'esecuzione mi
si presenta un errore.
Qualcuno saprebbe indicarmi quali parametri passare alla riga di comando del
progetto Setup1 per poterne fare il debug ??? (è la prima volta che mi
capita di utilizzare il setup)
Grazie in anticipo.
Marco

capita di utilizzare il setup)
se hai vb6, ma credo valga anche per vb5, i parametri sono specificati 
nelle proprieta' di setup1.vbp, inoltre all' inizio di Form_Load di frmSetup
c'e' un commento che spiega come fare.
Ciao
Aldo
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] VB6 connessione Sql

Sto cercando di creare una semplicissima operazione che anche un bambino
probabilmente riuscirebbe a fare. Io no !!
Ho 4 campi da gestire in un form primanota:
data
descrizione
importo uscita
importo entrata
Per non creare 12 tabelle e 12 form ho necessità di attivare una sola
tabella e un solo form. Applicando una query al pulsante di scelta del mese,
(avendo creato anche un combo box con relativi mesi)  la query dovrebbe
agire da fornitore dati. Non è così.
di seguito il codice relativo che non vuole funzionare perchè il
sottoscritto fa qualche "gabbianata". Chi mi aiuta ?
...................................................
Private Sub cmdAttivaMese_Click()
Dim Archivio As ADODB.Recordset
Dim SQL1, SQL2 As String
Set Archivio = New ADODB.Recordset
Archivio.CursorType = adOpenKeyset
Archivio.LockType = adLockOptimistic
Archivio.Open "primanota", connessione, , , adCmdTable
SQL1 = "Select primanota.Data, " _
        & " primanota.Descrizione, " _
        & " primanota.[Importo Entrata], " _
        & " primanota.[Importo Uscita] " _
        & " From Primanota " _
        & " Where " _
        & " Format(primanota.Data, 'mmmm') = " _
        & "'" & cmbSceltaMese.Text & "'"
SQL2 = "Select Sum([Importo Entrata]) " _
    & " From Primanota  " _
        & " Where Format(Data, 'mmmm') = " _
        & "'" & cmbSceltaMese.Text & "'"
Set AdoSceltaMese.Recordset = SQL1
AdoSceltaMese.Refresh   'errore di sintassi nella preposizione From
AdoSomme.RecordSource = SQL2
AdoSomme.Refresh
.........................................
grazie, Ilio

         & "'" & cmbSceltaMese.Text & "'"
Il formato data dipende dal motore di database che usi.
Ad esempio, se avessi un ORACLE dietro dovresti usare:
 SQL2 = "Select Sum([Importo Entrata]) " _
         & " From Primanota  " _
--------------------------------------------------------------------
         & " Where TO_CHAR(Primanota.Data, 'MMMM') = TO_DATE( ' "  _
         & cmbSceltaMese.Text & " ','MMMM')"
Ma anche cosě non funzionerebbe affatto, perchč il MESE non devi usarlo come
testo, usa il cacchio di NUMERO (01-02-03-...12), non puoi sapere se il
motore usa l'inglese e il programma l'italiano e il sistema operativo il
cinese...
Credo che tu debba fare un ripassino di SQL.
Ti consiglio l'HELP di Access, č abbastanza completo, ma chiaramente i
formati e il "dialetto" č quello dei prodotti MICROSOFT.
Ciao,
Dads