mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Problemino con l'esecuzione di EXE con il comando SHELL

Ave.
Ho un problema piuttosto strano quanto grave.
Il mio programma (consistente in un'interfaccia stile Explorer per
esplorare i cd e avviare + velocemente i programmi) impone l'uso di 1
solo file (cioè, usando il comando SHELL per avviare un file, lo avvia
normalmente, ma impedisce di caricare altri file.... Quindi se il
setup è compreso in un unico file, va tutto bene, ma se è in + di 1
file, allora da errori ecc...)(ad esempio blind read, un programma
composto da Blind.exe, bandiera1.bmp, bandiera2.bmp e bandiera3.bmp;
se avvio blind.exe da gestione risorse, va tutto bene, ma se lo avvio
col mio programma (compilato usando la funzione SHELL) le bandiere non
si vedono.....)
Un caloroso GRAZIE a tutti quelli che mi aiuteranno.
ByeZ!*
Alkondor

si vedono.....)
Non sono sicuro di aver compreso bene il tuo problema, ma forse ho uno
spunto, se il Blind.exe č il tuo programma.
Nel programma carichi i file .BMP da una directory particolare
oppure dalla dir corrente ? Cioč, tu fai per esempio:
Image1.Picture = LoadPicture("Bandiera1.bmp")
Invece di:
Image1.Picture = LoadPicture(PercorsoDelFile & "\" & "Bandiera1.bmp")
In questo caso se i files non sono presenti nella dir corrente, non vengono
trovati, magari se hai anche On Error Resume Next  o un If FileEsiste non
hai neanche un messaggio di errore...
In questo caso, o cambi dir con ChDir o carichi i files con il percorso
completo.
Se invece ti riferisci ad altri prg che ti danno il prob. quando li lanci
con il tuo, non so che dire, anche se forse il prob. č analogo, prova a fare
una chdir prima della shell...
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

si vedono.....)
Come ha risposto Paperino il problema dovrebbe stare nella dir corrente.
Forse tu però volevi sapere come creare uno "Shell" che non dà problemi più
che come fare a mettere le mani sul prog lanciato.
Prova con
Call ChDir(DirectoryDelProg)
Call Shell(Programma)
E' comunque preferibile usare la WinExex che la Shell
Ciao

Ciao
Devo ammettere che forse non mi ero spiegato molto bene e che le
soluzioni da voi proposte non erano esattemente quelle che avevo
chiesto io, ma vi ringrazio infinitamente visto che i vostri messaggi
mi hanno dato l'ispirazione che mi ha portato sulla strada giusta.
GRAZIEEEEEEEEEEEEEEEEEEEEEEEEE
ByeZ!*
Alkondor
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT]certo che se Mamo viene a fare un giro....

No... Dico...
Se passa di qua Mamo va in overflow...
-- 
Le persone non sono il proprio comportamento: devi sempre andare oltre,
essere flessibile, capire il punto di vista degli altri, interpretarne i
comportamenti ed intuirne le esigenze.
Per rispondere in privato elimina
dall'indirizzo "togliquesto"
MasterDavidex
David Ruscelli

 Se passa di qua Mamo va in overflow...
No, lui è un cyber, privo di sentimenti.
L'unica cosa che lo può mettere in crisi è un'operazione fra Double che non
gli rende il risultato che s'aspetta.

 ha scritto nel messaggio
news:c4j84m$2imnsk$1...@ID-174464.news.uni-berlin.de...

LOL



LOL
PensieroMamo.Enabled=True
MsgBox "Overflow?!?!? Double?!?!? Ecchecacchiosonosterobequa?!?!?",
VbExclamation
PensieroMamo.Enabled=False
ciaociao

Newsgroup: it.comp.lang.visual-basic
Titolo: La grid dei vostri sogni...

Ciao a tuttti,
vorrei un'opinione sulle varie grid che si trovano in commercio, io ho
provato la Janus (quella che permette di imitare Outlook) e mi sembra
buona, conoscete di meglio?
Ciao e grazie per l'attenzione.
Luca
Please remove _ABC from my address to reply
Cast your eyes on the ocean
Cast your soul to the sea
When the dark night seems endless
Please remember me
Loreena McKennit, Dante's prayer

Anche io ne ho provate tante ma la Janus, per me, non la batte nessuno.
Luca ha scritto:


...


...

Newsgroup: it.comp.lang.visual-basic
Titolo: eliminare null da una stringa

come ?

 come ?
Come?
P.S. Nel senso di "cosa hai detto?", "che ti serve?"

Dim Stringa as String
Stringa = Null
mettendo : ("" & Stringa)
elimino null e ho una stringa vuota
bye.

io ho una stringa con dei dati e poi dei caratteri null e voglio eliminare
qsti valori



"Il signor Ouine" ha scritto:

Ah, adesso ho capito...
C'č un errore perň: una variabile definita come String NON puň essere Null.
Lo puň essere solo se č "Variant, sottotipo String".
Dunque:
Dim sDato As String
Dim aDato As Variant
...
sDato = Null                (errore)
aDato = Null                (ok)
aDato = aDato & ""     (ok, toglie il Null)
...
In alternativa puoi usare:
Dim aDato As Variant
...
If IsNull(aDato) Then
    aDato= ""
End If
...
cosě facendo SAI se il tuo dato era Null; con l'altro metodo intercetti solo
l'eventuale propagazione del Null. Scegli tu...
Ciao,
Carlo.

 qsti valori
In questo caso ti basta sapere che puoi rappresentare quei caratteri con
Chr$(0), a questo punto puoi applicare le solite funzioni Instr, Replace
ecc.. a seconda di quello che ti serve.
L'esempio tipico sono i valori stringa restituiti dalle funzioni API:
Dim strTemp As String
Dim intNull As Integer
'[...]
'una funzione ha riempito il buffer strTemp con valori
'e caratteri null terminatori, li eliminiamo
intNull = InStr(1, strTemp, Chr$(0))
If intNull > 0 Then
    strTemp = Left$(strTemp, intNull - 1)
End If
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 qsti valori
Sei sicuro che siano proprio dei valori null? potrebbero essere dei
caratteri semplicemente non visualizzabili? Controlla il loro codice ascii
Ciao Alessandro

Esatto, grazie mille

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] VB e WIN95

Ho installato VB6 in win95 e il computer non andava più (diceva problemi
alla FAT). Ho formattato l'HD e ho installato Win98: ora va tutto bene.
Sapete se ci sono problemi di incompatibilità tra Win95 è Visual studio 6.0?
Jimmy (
jimm...@hotmail.com
)
P.S. Ne approfitto per ringraziare tutti coloro che hanno messo i sorgenti
nel sito comune: sono veramente utili

Jimmy (
jimm...@hotmail.com
)
Assolutamente no, io uso ancora W95 950b e tuttora mi sembra la versione di
W9x più stabile.
VB6 funziona perfettamente finchè non ci installi i programmini delle
riviste che ti portano inevitabilmente alla formattazione.
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: R: dove trovo l'editor?

 Ho l'aquisti per la modica cifra di qualche milione o a tuo rischio te lo
200karte la versione learning se non ricordo male, oppure c'e' sempre il VBA
incluso con Office, non e' il massimo della vita pero' per imparare va piu'
che bene...
Ciao,
Alessandro

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] User control e colori...

Ho creato uno user control (che tral'altro donerò al SC) ma ho un
problemino.
Ho creato una proprietà BackColor as OLE_COLOR ed in fase di progettazione
mi permette di impostare la proprietà scegliendo tra i colori (come le
proprietà dei controlli standard). In fase di progettazione imposto un
colore, ma se faccio partire il progetto perdo questa impostazione! :( Dove
e come posso salvare la variabile BackColor (ho il property let e get)?
Grazie!
SebaMix
--
------------------ - -  -   -    -     -      -
Sito Comune del newsgroup it.comp.lang.visual-basic
http://www.murialdo.it/it_lang_vb
------------------ - -  -   -    -     -      -
Rimuovete NOSPAM dall'indirizzo per scrivermi...
Remove NOSPAM from address to write me...
------------------ - -  -   -    -     -      -

 e come posso salvare la variabile BackColor (ho il property let e get)?
Penso che i passaggi tipici da fare siano questi:
Public Property Get BackColor() As OLE_COLOR
    BackColor = UserControl.BackColor
End Property
Public Property Let BackColor(ByVal New_BackColor As OLE_COLOR)
    UserControl.BackColor() = New_BackColor
    PropertyChanged "BackColor"
End Property
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
UserControl.BackColor = PropBag.ReadProperty("BackColor", vbButtonFace)
'[...]
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "BackColor", UserControl.BackColor, vbButtonFace
'[...]
End Sub
naturalmente il tuo BackColor non deve necessariamente coincidere con
UserControl.BackColor...
Ciao
--
Luca Dormio
luca....@tin.it

Grazie!!!


Newsgroup: it.comp.lang.visual-basic
Titolo: VBA - Access

Ciao a tutti.
Da codice VBA di un progetto di Access ho scritto:
 Rs.Open "SELECT * FROM tableA WHERE " & CondizioneQuery, Conn,
adOpenDynamic, adLockOptimistic
    If Rs.BOF Or Rs.EOF Then
        'AUTENTICAZIONE FALLITA
        MsgBox "Non è stato trovato nessun utente con i parametri
richiesti."
        Rs.Close
    Else
        'AUTENTICAZIONE RIUSCITA
        Me.txtNome = Rs("Nome")
        Me.txtCognome = Rs("Cognome")
    End If
Il problema è che modificando dalla maschera i valori letti dal
Database non me li modifica.... cioè permette di cambiarli ma in
realtà sul database non sta facendo nessun aggiornamento..
Dove sbaglio?
Grazie mille.

 Dove sbaglio?
Non saprei, ma nel codice che hai pubblicato non c'è alcun comando di
scrittura...
Newsgroup: it.comp.lang.visual-basic
Titolo: Da Access a Setif (Mav Rid Riba)

Qualcuno si é già impegnato nella redazione di uan routine di
conversione di tabelle per generare file formato SETIF (RIBA, MAV,
RID).
Grazie sin d'ora a chi mi vorrà rispondere.
Glauco Bisso

 RID).
Da tabelle a file, da file a tabelle, da file a file... in quest'ultimo
anno me li sono pappati tutti.
Quello che occorre?
- Il tracciato in ingresso
- Il tracciato in uscita
- Un pò di paziena
- Una ottima verifica
In Visual basic:
- Open
- Mid
- Do
- Formatù
- &
e poco di più...
Un Hd che spesso e volentieri si è sentito dire "perfetto, funziona,
solo che da domani cambiamo tracciato di ingresso.", grrr...
Ciao
	  :-) Hd (-:
-^- Verso l'infinito e oltre -^-


wrote:

Ho il tracciato record standar Setif
Come programma corporate della Quercia Software
devo generale un file d'ingresso da Access 97, verificarlo col sistema
di verifica della Quercia Software.
Mi potresti aiutare dandomini qualche esempio.
Grazie ancora
Ciao.
Glauco

Newsgroup: it.comp.lang.visual-basic
Titolo: CallByName

Sto tentando di usare la CallByName per richiamare
delle librerie a runtime.
Il problema che ho trovato e' il passaggio dei
parametri. Come posso mandare dei parametri di cui
non conosco il tipo a priori?
Io pensavo di usare i Variant, ma non funziona.
ESEMPIO:
Dim a, b, c as Variant
CallByName wOggetto, wMetodo, vbMethod, a, b, c
ma se a, b e c nella routine chiamata sono degli
integer mi da' tipo non corrispondente!!!
ovviamente non posso dimensionare a, b e c come
integer , perche' in un altra routine potrebbero
essere stringhe o qualsiasi altra cosa
(wOggetto e wMetodo sono valorizzati volta-volta
con oggetti/metodi diversi)
grazie e saluti
sauron

con oggetti/metodi diversi)
Posta il codice perchč cosě funziona:
    Dim a As Integer
    Dim b As Integer
    Call CallByName(Me, "Move", VbMethod, a, b)
e anche cosě:
    Dim a As Variant
    Dim b As Variant
    Call CallByName(Me, "Move", VbMethod, a, b)
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Res file e MMControl1

Salve a tutti.
Usando un MMControl riesco a eseguire
un file wav.
Ora pero' ho inserito il mio .wav
in un file .res
Carico i dati con la funzione LoadResData
e la passo a MMControl1.filename = RisultatodiLoadResData
Non funziona! ( me l'aspettavo :-))
Significa che non posso eseguire un wav con
un MMControl caricato da un file .res?
La cosa funziona invece se RisultatodiLoadResData
lo passo alla Api sndPlay....ecc ecc.
C'e' un altro modo per passare RisultatodiLoadResData
al MMControl?
Vorrei evitare la chiamata alle API.
Grazie 
Sergio
Newsgroup: it.comp.lang.visual-basic
Titolo: ascolto delle porte

vorrei scrivere un'applicazione che si accorga di ogni tentata connessione sulle porte.
presumo che usare l'oggetto winsock sia impossibile e che bisogna usare le api windows relative a questo
argomento.
non ho idea di dove posso trovare documentazione su queste api e se quello che penso è giusto,voi che ne dite?
saluti.
-- 
Posted from 195.103.61.130 by way of 
relay4.inwind.it
 [212.141.53.75] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:G9TZYH$IVhtMbxbor5svETkabxNe...@inwind.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: porta seriale e win Xp

sapete dirmi se ci sono delle differenze in winXp nella gestione della porta seriale?
ho un programmino scritto in visual basic 6 che ne fa uso.
su win2000 nessun problema.
in pratica il programma usa la porta per leggere da uno scanner di codici a barre
ho un codice del tipo: 00000001
su win2000 il codice viene letto e al programma viene passato il codice esatto
su winxp mi succede che il codice mi arriva come "????"
dato che sul win2000 funziona, non credo ci siano errori di programmazione.
la configurazione della porta è la stessa su entrambi i pc.

vediamo un po di codice.
presuppongo che i casini siano qui:
        Case comEvReceive
            Dim Buffer As Variant
            Buffer = MSComm1.Input
            cFrm_Cli.Text1.Text = Mid((StrConv(Buffer, vbUnicode)), 1, 8)
            Call cFrm_Cli.Invia_Testo
il codice si trova nella sub "Private Sub MSComm1_OnComm()" se serve ve la mando tutta.
in pratica, quando ricevo qualcosa sullo scanner, modifico un text sul form cFrm_Cli con i dati ricevuti
e poi richiamo una sub di quel form che invia il testo.
Il problema č che sul pc con winXp il testo che mi arriva č: "????"
proseguendo:
Tramite l'uso di winsock il testo viene inviato al server e in base al testo inviato vengono effettuate delle particolari azioni sui
pc in rete con il programma aperto.

non riesco a trovare nulla in riferimento al mio problema.
quando torno dal cliente proverò a verificare nuovamente la configurazione.
la porta funziona e i dati vengono trasferiti correttamente. ho provato con hyper terminal e ricevo correttamente dallo scanner di
codici a barre.
non so che pensare.

            Call cFrm_Cli.Invia_Testo
La stringa ti arriva *sempre* ASCII?
Prova a ricevere come Byte e stampati da qualche parte i byte che
ricevi, dal loro esame dovresti capire subito cosa e' successo.
-- 
ciao, hal

 ricevi, dal loro esame dovresti capire subito cosa e' successo.
non ho capito bene dove vuoi arrivare.
presupponi che ci siano dei problemi con il collegamento seriale e che mi arrivino dati rovinati?
--
ho appena visto una cosa in debug:
Mid((StrConv(Buffer, vbUnicode)), 1, 8)
la stringa "Buffer" mi vale "????" e con la conversione StrConv(Buffer, vbUnicode) diventa il codice che passa sullo scanner.
dunque perchè su xp mi ignora la conversione? suppongo il problema sia quello.
magari si tratta di dati che arrivano rovinati e dunque anche dopo la conversione buffer rimane "????" ?!?!?
ho troppa fantasia?
domani vado dal cliente con le nuove modifiche e cercherò di capire cosa non va.
qui in ufficio mi legge sempre tutto correttamente (ma non passo il codice da scanner.. lo passo da un altro pc)
grazie degli aiuti.

 ha scritto nel
messaggio news:bivght$4h6$1...@newsreader.mailgate.org...

Newsgroup: it.comp.lang.visual-basic
Titolo: Bug o non bug

'decretiamo il vincitore
For X = grid2.Rows - 1 To 1 Step -1
    If CDbl(grid2.TextMatrix(X, 3)) < CDbl(MediaFinale2) Then
    MsgBox CDbl(grid2.TextMatrix(X, 3)) & "-" & MediaFinale2
        QuelliUguali = CDbl(grid2.TextMatrix(X, 3))
        For k = 0 To 100
            If grid2.TextMatrix(X - k, 3) = QuelliUguali Then Testo2.Text = 
Testo2.Text & grid2.TextMatrix(X - k, 4) & " - " & grid2.TextMatrix(X - k, 
2) & " (" & grid2.TextMatrix(X - k, 3) & ") " & vbNewLine Else GoTo 
hofinitoLR
        Next k
    End If
Next X
guardiamo L'IF
CDbl(grid2.TextMatrix(X, 3)) = 7,318
CDbl(MediaFinale2) = 7,318
eppure per LUI il primo è inferiore al secondo.
Come mai?

 Come mai?
Problemi dovuti all'inevitabile arrotondamenti di VB6 nella memorizzazione 
di numeri double.
Conviene che i confronti tra numeri in virgola mobile non siano fatti cosě, 
secchi, ma a meno di una tolleranza:
Invece di:
    If x = y Then
Meglio:
Const toll As Double = 0.000001 ' ad esempio
    If Abs(x - y) < toll Then
        ' Li considero uguali
    Else
        ' Sono diversi
    End If
Bye
Raf 

    End If
-----------
Grazie 1.000
nel frattempo avevo risolto confrontando i round dei due campi (a 4 
decimali)
Ciao 


------
GRATIS - GFI WebMonitor 4.0 UP per ISA 2006/2004
http://www.isaserver.it/blog/2007/10/gratis-gfi-webmonitor-40-up-per-isa.html
------
The Great ISA Opportunity - dal 1.9 al 5.10.07 - 2000 Euro di 
montepremi
http://www.isaserver.it/forum/topic.asp?TOPIC_ID=746
==========================================================

Newsgroup: it.comp.lang.visual-basic
Titolo: Come invertire le coordinate

Sono sempre io con la mia "Grafica"
VB ha un sistema di coordinate che ha l'origine nell'angolo in alto a
sinistra dell'elemento selezionato
fin qui OK
L'origine č possibile spostarla
OK
Ma č possibile invertire il modo di contare di VB? mi spiego meglio, posso
avere (0;0) in basso a sinistra (50;0) in basso a destra
(0;50) in alto a sinistra e (50;50) in alto a destra?
Sto realizzando nei ritagli di tempo un prg per disegnare le formule di
analitica, solo che dover rovesciare tutti i risultati altrimenti vb disegna
tutto a rovescio non č bello anche perchč finchč faccio una retta tutto a
posto, ma quando faccio qualcosa di piů complicato (es. spirale) passano
degli anni prima di avere un risultato......
Grazie
Rivi
ri...@rocketmail.com


Usa la proprietà scale dell'oggetto dentro il quale disegni.
Se usi ad esempio una picture basta che scrivi Picture1.Scale (0,50)-(50,0)
in questo
modo definisci tu quanto vale l'angolo in alto a sinistra e l'angolo in
basso a destra.
ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] limitazione risorse utilizzate da prog

Ciao a tutti,
ho un'applicazione abbastanza grande e dispendiosa dal punto di vista di
risorse di rete e di sistema.
Per quello che riguarda la rete non mi interessa quanto occupi, ma la cpu
si, in quanto vorrei che l'utente possa lavorare su altre applicazioni in
windows mentre la mia app elabora delle analisi molto lunghe.
La mia domanda è: c'è la possibilità da codice di impostare il limite di
utilizzo delle risorse di sistema?
e se ci fosse, su che parametri è possibile agire (ram, cpu, etc.) ?
p.s.: accetto anche soluzioni complesse
grazie in anticipo.
Ciao
Ivan

 
Non e' esattamente cio' che chiedi, ma forse e' meglio cosi' (nel senso 
che credo sia meglio sia windows a decidere come sia meglio allocare le 
risorse).
     Dim inst&
     inst = GetCurrentProcess
     SetPriorityClass inst, IDLE_PRIORITY_CLASS
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

     SetPriorityClass inst, IDLE_PRIORITY_CLASS
infatti riflettendo e spulciando tra le api avevo trovato una soluzione
analoga, quindi grazie tantissimo per la conferma che mi hai dato...anche
se ancora non ho avuto il tempo di metterla in pratica ;)
grazie
Ciao
Ivan

Newsgroup: it.comp.lang.visual-basic
Titolo: scrittura su db sql server

Ho un grosso problema e non so come risolverlo :
La nostra applicazione sviluppata in Vb6-Rdo deve dialogare con un database
Sql-Server 7, dopo l'apertura della connessione (avvenuta con successo) se
provo a inserire un record ottengo sempre e comunque un rifiuto e il
messaggio d'errore che ricevo è sempre e comunque "Errore di lettura del
database".
Le Select funzionano perfettamente.
Penso che dal lato codice non ci siano problemi, forse devo fare qualcosa
con Sql-Server, dopo aver fatto l'attach del database ho creato la login che
uso per l'accesso con il mio programma.
Nelle impostazioni della login ho settato, public,db_owner, db_datareader e
db_datawriter.
Forse non bastano per dare a quella login i diritti di scrittura su tutte le
tabelle del database ?
Insomma non so che pesci prendere .... aiutatemi !
ciao
Alessandro

 wrote in message
news:YK5S6.17198$vt.1...@news1.tin.it...



Se nel creare il nuovo login Sql Server hai usato Ent.Manager, e hai settato
le proprietà db_datareader e db_datawriter -sul database giusto- Sql Server
crea automaticamente lo user e (se non hai specificato diversamentre nelle
permissions delle singole Tables / Sp) non hai problemi.
A meno che...  mmm, hai parlato di attach... non è che avevi creato il db su
un altro Sql server, eseguito il detach e portato il db su questo Sql
Server?
In questo caso è probabile che sia rimasto nel db lo user che era stato
precedentemente definito.
Quindi:
1) loggati come sa
2) esegui una drop del nuovo login creato
3) esegui una sp_dropuser sul database che hai httach-ato
4) ricrea il login da Ent.Manager (per comodità) specificando le
db_datareader e db_datawriter sul database attach-ato...
ciao
ugo
Newsgroup: it.comp.lang.visual-basic
Titolo: Disabilitare la X del form (credo sia una faq,ma non so dove cercarla...)

Qualcuno perfavore mi ricorda come si faceva a disabilitare la "X" di
chiusura di un form?
Grazie!
Ale(xand[18])

Se devi eliminare sia la 'X' che i tasti di ridimensionamento basta che vai
sulle proprietą del form e su ControlBox metti False.
Se devi eliminare solo la 'X' non so dirti.
Ciao.
"Ale(xand[18])" <crep...@NOSPAMtin.it> wrote in message
news:9tj382$t9c$1...@fe1.cs.interbusiness.it...


 sulle proprietà del form e su ControlBox metti False.


Ho postato il codice un po di tempo fa su vbtips o su redangel. Prova a
cercarli lì.
Ciao, MasterNet
"Ale(xand[18])" <crep...@NOSPAMtin.it> ha scritto nel messaggio
news:9ttd24$r6j$1...@fe2.cs.interbusiness.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: _Validate

Ho copiato la mia applicazione funzionante su un altro pc dove invece non
funziona.
Dopo diverse prove ho capito che sul secondo pc non viene eseguita la sub:
Text1_Validate()
che č presente all'interno di un mio usercontrol.
Non avendone capita la ragione, ho provato a compilare il programma sul pc
iniziale ed a ricopiare solo l'eseguibile.
Il problema persiste.
Non so proprio dove sbattere la testa.
Il tutto mi sembra cosě strano.
Se qualcuno di Voi ha qualche idea..... (VB6)
Grazie, saluti ed auguri a tutti.
Sauro

 Il problema persiste.
Come hai distribuito il tuo programma? Non basta copiare l'EXE, occorre
distribuire/installare anche le librerie che richiama, oltre al runtime di
VB. Prova a creare il pacchetto di installazione con l'apposita procedura
guidata di VB e avvia sulla macchina di destinazione il Setup.exe relativo.


Giusto. Proverò.
Grazie, Sauro

La situazione è peggiorata.
Ho preparato i file CAB per l'istallazione ed ho fatto l'installazione
medesima.
Non funziona su nessuno dei due PC.
Gran parte delle istruzioni relative ai miei usercontrol viene ignorata.
Lo stesso Show iniziale a video non è corretta.
Probabilmente ho un grosso "buco" di conoscenze da qualche parte.
Ciao, Sauro

Era un problema di service pack.
Ciao, Sauro

Newsgroup: it.comp.lang.visual-basic
Titolo: webclass IIS et similia

Salve a tutti ragazzi, avrei bisogno (e chi non ne ha) di un aiuto!
Sto iniziando a lavorare su un progetto dhtml, e dovrei inserire un oggetto
webclass nel mio progetto.
Quando tento di eseguire il progetto, un messaggio mi informa che:
"E' necessario installare Internet Information Server oppure Peer etc. etc
3.0 o superiori, per esguire l'oggetto WebClass!"
??????????????? Qualcuno ne sa qualcosa????
Grazie per le eventuali risposte!!

reperisco?? come funziona??
Internet Information Server: e' il web server di microsoft.
La versione 4 si installa con NT 4 server oppure con l' option pack e/o il backoffice
(vedi cd di visual studio) mentre la versione 5 e' sul cd di win 2000. (sia Pro
che Server).
ciao, hal

 ciao, hal
Grazie molto Gentilissimo
ciao Mr
Newsgroup: it.comp.lang.visual-basic
Titolo: Come recuperare i tipi di file registrati di win

Sarei grato a chiunque possa aiutarmi ad estrarre,
tramite api o tramite qualsiasi metodo,
i tipi di file registrati in Windows.
Il tutto mi serve per acquisirne l'icona associata.
Grazie dell'interessamento .Saluti.

On Mon, 4 May 1998 18:15:29 +0200, in it.comp.lang.visual-basic you
wrote:

Ho appena fatto a lavorare una funzione che ti permette di utilizzare
le API di windows per andare a leggere nel registro, tutti i dati che
tu vuoi, basta sapere la chiave, o la inserisci tu o la dai per
fissa...Funziona sia in w95 che in NT, solo che in NT (4.0 sp1) quando
ritorna l'elemento cercato, in esso vi sono dei "vbNullChar" che tu
devi cercare ed eliminare per ottenere la chiave giusta.
Con questa passandogli la stringa di ricerca, ed una variabile di tipo
long, che puoi passare nulla, ti ritorna il valore della chiamata
della chiave.
Public Function regCall(searchString As String, phkResult As Long) As
String
 Dim strResolved As String * 256
 
  strResolved = vbNullString
  RegOpenKey HKEY_LOCAL_MACHINE, searchString, phkResult
  RegQueryValue HKEY_LOCAL_MACHINE, searchString, strResolved, 256
  RegCloseKey hKey
  regCall = strResolved
 
End Function
Queste sono le dichiarazioni delle API e delle costanti che ti
servono, le trovi nel visualizzatore API, e se hai VB5 originale,
nell'SDK trovi le spiegazioni delle singole chiamate se hai ancora dei
dubbi.
Public Declare Function RegOpenKey Lib "advapi32.dll" _
 Alias "RegOpenKeyA" (ByVal hKey As Long, _
 ByVal lpSubKey As String, _
 phkResult As Long) As Long
Public Declare Function RegQueryValue Lib "advapi32.dll" _
 Alias "RegQueryValueA" (ByVal hKey As Long, _
 ByVal lpSubKey As String, ByVal lpValue As String, _
 lpcbValue As Long) As Long
 
Public Declare Function RegCloseKey Lib "advapi32.dll" _
 (ByVal hKey As Long) As Long
 
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_LOCAL_MACHINE = &H80000002
Non ho messo le altre chiavi del registro di sistema, le altre HKEY,
ma è ovvio che se le vuoi inserire in ricerca devi dichiararne le
costanti per il giusto interfacciamento con le API.
Se ti serve altro, o proprio un prg. che faccia qualcosa di specifico,
sia in NT che 95 non farti problemi a chiedermelo, con i dovuti tempi
di rispondero' volentieri.
Ciao.
Dr^Slump
E-Mail: 
dr_s...@innocent.com
Please NO SPAM!!!
-----------------------------------------------------------
Nothing is Constant Except Changes.....(Europe)  
http://www.dataphone.se/~west/europe.htm
-----------------------------------------------------------
Ora che ho perso la vista ci vedo di più....(Dream Theater)
http://www.rsabbs.com/dt
 The real Dream Theater Home Page
-----------------------------------------------------------
Buonsempre a tutti.
Newsgroup: it.comp.lang.visual-basic
Titolo: Array di Label

Salve gente sono nuovo di qui ho un piccolo grande problema che non mi
permette di andare avanti con un programma al lavoro e dato che le ho
provate tutte provo a chiedere a voi.
Il problema che ho č di dover
istanziare delle label di un array vi presento il codice incriminato
'Dichiaro il mio array di 25 elementi 
Dim lab(25) as Label 
'Ora devo
istanziare la prima label
Set lab(1)= new Label
---> Qui mi da errore e
non so xchč
Ho provato con Static lab(25) as Label 
ma in finale il
problema che mi da l'interprete basic č che dice che l'oggetto non esiste o
ho usato in modo errato new.
NOn so cosa fare ho preso il manualone del
programmatore di visual basic e fa un'esempio con delle form copiato pari
pari mettendo al posto di form label e niente non funzia.
Help!
Grazie
anticipatamente per le vostre risposte.
Ciao 
 Filippo
--------------------------------
Inviato via 
http://usenet.iol.it

 ha scritto

cerca matrici di controlli nell'help.
in sostanza: metti un'etichetta con index 0 sul form.
al load carichi le altre 24 in un ciclo, disponendole sul form e rendendole
visibili.

 [...] Non so cosa fare ho preso il manualone del programmatore di visual
basic e fa un'esempio con delle form copiato pari pari mettendo al posto di
form label e niente non funzia. [...]
Certo: l'operatore New non può essere usato con variabili di tipi di dati
intrinseci (Long, String...), né con tipi di dati definiti dall'utente, né
con oggetti dipendenti (Label, TextBox...).
Con i Form sì perché sono classi.
Il suggerimento di javalab è ottimo.
Ciao,
Carlo.

Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTOOOOOOOO!!!!!!!1

Qualcuno dare o mandare a questa e-mail del sorgente per effettuare il
panning del volume.

 panning del volume.
un primo panning lo potresti intanto dare tu a volume contenuto e tono del
subject.
giusto cosi', per educazione.
un secondo, riguardando il post, al tuo uso della lingua italiana.
se tu tarzan, qui nessuno cita.

Newsgroup: it.comp.lang.visual-basic
Titolo: STAMPARE FLEX GRId

   Sapete se si puņ stampare "automaticamente" il contenuto di una flex
grid?
grazie

grid?
Con un doppio loop su righe e colonne, calcolando la larghezza delle colonne sulla carta
in proporzione alla larghezza totale della griglia.
-- 
ciao, hal

 ha scritto

questo e' haltomaticamente, non auto- :)
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Svuotare il buffer di tastiera

Ciao a tutti.
In una applicazione cartografica gestisco lo Zoom (oltre che con il mouse)
anche con i tasti + e - sulla tastiera.
Se il tasto viene tenuto premuto l'applicativo gestisce più zoom in
sequenza.
Quando il tasto viene rilasciato continua a scattare l'evento KEYPRESS
poichè il buffer di tastiera contiene ancora dati da elaborare.
C'è un modo per svuotare il buffer di tastiera ?
Ciao a tutti e grazie
Stef

"Steama" <s.a...@eisELIMINAMI.it> ha scritto nel messaggio
news:8hNp6.18825$yl2.3...@news1.tin.it...

Non so se ci sia il modo di svuotare il buffer, credo di si, comunque puoi
gestire il keydown anzichè il keypressed.

 gestire il keydown anzichč il keypressed.
Soluzione non valida ma importante.
L'evento KeyDown viene bufferizzato lo stesso nel buffer di tastiera perň mi
hai fatto venire l'idea giusta;
se l'operatore tiene il pulsante premuto e scatta in continuazione l'evento
keydown sicuramente non scatta l'evento keyUP !
Ho inseito il codice nell'evento KeyUP ed ho risolto il problema.
Ciao e grazie
Stef

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

Salve,
durante alcune prove ho notato uno strano funzionamento del controllo DBGRID
in VB5.
Usando Windows 98, quando tento di cambiare la colonna attiva del controllo
DBGrid nel suo evento Change, mi genera un errore fatale di Windows nel
modulo "User.exe".
Inizialmente avevo pensato che potesse essere un BUG del controllo stesso,
ma dopo, casualmente, ho provato lo stesso codice in Windows NT e: FUNZIONA!
Sapreste dirmi perche?
Christian de Miranda
Euroware
demi...@euro-ware.net

 modulo "User.exe".
Non c'č niente da fare. Quando escono di questi errori, dubito che qualcuno
possa aiutarti.
:-(
Newsgroup: it.comp.lang.visual-basic
Titolo: Come si fa ad aumentare il numero di righe di un flexgrid

Ciao a tutti,
sono passato a VB NET 2003 Standard...ma č un gran casino, non funziona piů
niente.
Come si fa ad impostare un numero di righe di un FlexGrid pari a 2 ???
In VB6 scrivevo:
AxMSFlexGrid1.Rows = 2
Adesso mi da il seguente errore:
Eccezione non gestita di tipo "InvalidActiveXStateException" in
axinterop.msflexgridlib.dll
Sono ore che provo a risolverlo senza esito!!
Spero in un vostro aiuto.
Ringrazio tutti in anticipo.
Ciao
Emiliano

axinterop.msflexgridlib.dll
Scusa, ma perche' vuoi usare la MsFlexGrid con .net?
-- 
ciao, hal

 axinterop.msflexgridlib.dll
VB.NET
 mette a disposizione una potente, anche se un pochino articolata
DataGrid.
Un esempio d' utilizzo lo puoi trovare in
http://www.it-lang-vb.net/
nome proggetto:
ConfrontoArray
Ave
giuseppeD


Perchè il progetto è già stato scritto completamente in VB6 utilizzando
MsFlexGrid, e non vorrei rifare tutto il lavoro fatto :-((
Tra l'altro ho provato a usare lo stesso codice in un nuovo progetto con una
sola form e funziona!!
Proprio non riesco capire che cosa abbia!
Mi sto accorgendo comunque che l'importazione da Vb6 crea un casino di
codice sporco... Tutto questo mi fa pensare che conviene riscrivere
l'applicazione da zero...
Voi cosa ne dite, sono un pazzo...
P.S. in VBNET qual è il relativo App.path di VB6?
Ciao a tutti
Emiliano

 P.S. in VBNET qual è il relativo App.path di VB6?
In VB6, ricordo in un modo, in 
VB.NET
 sono molteplici.
Una: Environment.CurrentDirectory
Ave
giuseppeD

 P.S. in VBNET qual è il relativo App.path di VB6?
Io mi stavo facendo un sostituto della vecchia classe App
     Public Class App
         Public Shared Function Title() As String
             Return Reflection.Assembly.GetCallingAssembly().GetName().Name
         End Function
         Public Shared Function Path() As String
             Dim s As String = 
Reflection.Assembly.GetCallingAssembly().GetName().CodeBase
             Dim p As Integer = s.LastIndexOf("\")
             Return s.Remove(p, s.Length - p)
         End Function
     End Class
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Consigli su come realizzare un Parser per linguaggio di scripting proprietario...

Buondì...
vorrei dotare il mio applicativo di un linguaggio di scripting proprietario
che consenta:
-loop
-controllo di flusso
-variabili numeriche e stringa
Ora ho già un linguaggio di scripting con cui devo mantenere la
compatibilità ma per come era realizzato il suo interprete non posso che
riscrivermi il parser/interprete... (altrimenti non posso aggiungere cose
che mi servono)...
Avete qualche "risorsa" web da consigliarmi o altri suggerimenti su come
creare il mio linguaggio interpretato?
grazie
Davide

 -variabili numeriche e stringa
Interesserebbe anche a me.
Ovviamente nel frattempo non posso che invitarti alla valutazione del mio
parser, che proprio in questi giorni sto utilizzando per scrivermi un
linguaggino semplice semplice.
(domani metto in linea la ver. aggiornata, sai... i bug... :P ma anche
qualche feature).
P.S.: la ver. VB6 è "no longer supported" :(
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 -variabili numeriche e stringa
Prova a cercare qualcosa su grammatiche context free e analisi ricorsiva
discendente, che è il metodo con cui riconoscere un linguaggio del tipo che
dici tu (anzi, è il metodo con cui realizzare un parser per un linguaggio).
Poi ricorda che una cosa è il parser e un'altra il visitor.
ciao

 P.S.: la ver. VB6 è "no longer supported" :(
lavori solo su .Net?
io ci ho dato un occhio.. ma non mi piace molto.. credo che farò il salto
(orrida prospettiva) da VB a C.
anche perchè "credo" andrò a caccia di pinguini...
Davide

 Poi ricorda che una cosa è il parser e un'altra il visitor.
[davide.ignorante=true]
ehm.. il visitor è quello verde con la lingua biforcuta?
[davide.ignorante=false]
Davide

 anche perchč "credo" andrň a caccia di pinguini...
Questo non escude .NET, per ora :)


 anche perchè "credo" andrò a caccia di pinguini...
Spero che tu ne *uccida* parecchi... ;-)
Ciao
-- 
BSD is for UNIX lovers -- linux is for Windows haters.

 Spero che tu ne *uccida* parecchi... ;-)
mah.. lo scopo è mangiarci e premunirsi in caso lo sviluppo con le finestre
veda scendere in campo fastidiose divinità greche....
alla prox
Davide

(orrida prospettiva) da VB a C.
Forse e' meglio il C++, molto piu' valido e potente.
Se vuoi creare qualcosa cross-platform puoi considerare l'uso di un
framework free come wxWindow.
Per un "ex" vb-ista potrebbe essere valido anche il Delphi, che ha una
incarnazione anche nel mondo dei pinguini :-)
Ciao
Stefano "HappyMan" (Lago Maggiore - NO)
--
Personal Web 
http://www.sgr.info
Email happyman69 (at) 
libero.it
Newsgroup: it.comp.lang.visual-basic
Titolo: DB Access e tabelle collegate....

Ciao a tutti.
Causa le dimensioni eccessive di un database access ho dovuto dividere
questo in più Db e successivamente ho collegato tutte le tabelle in un nuovo
DB.
Il problema è questo:
Il gruppo dei DB risiede su un server. In fase di sviluppo ho allegato le
tabelle da access, quindi la situazione risulta essere:
c:\db\TabelleTotali.mdb
con collegate le tabelle:
-> tabella1 (con path c:\db\tabella1.mdb ..)
-> tabella2 (con path c:\db\tabella2.mdb ..)
etc.
Ora, l'applicazione che accede ai dati viene eseguita su dei pc in lan...
quando vado ad aprire Tabelletotali.mdb nessun
problema...(\\server\db\tabelletotali.mdb")
il problema nasce quando debbo accedere alle tabelle collegate....
in pratica il path delle tabelle risulta essere sempre c:\db\tabella1.mdb,
c:\db\tabella2.mdb etc....e non "\\server\db\tabella1.mdb....etc."
Ovviamente non funzia nulla...
Immagino che il problema si possa risolvere allegando le tabelle
dinamicamente da sorgente....
ma come si fà?
Grassie a tutti.....
Red.

io ho fatto cosi':
    Dim tdfCollegata As TableDef
    Set tdfCollegata = dbDataBase.CreateTableDef(Internal_Table)
    tdfCollegata.Connect = ";DATABASE=" & DB_Name
    tdfCollegata.SourceTableName = DB_Table
    dbDataBase.TableDefs.Append tdfCollegata
    Set tdfCollegata = Nothing


Newsgroup: it.comp.lang.visual-basic
Titolo: Modificare struttura file access

Ciao a tutti,
    ho la necessità di dover verificare la struttura di un DB access 97 e
nel caso il db non sia fatto in un certo modo di modificarlo.
    Dai vecchi post e dal sito comune so come leggere la struttura di un db,
sono capace di controntare con il mio db "attuale".
    Mi mancano solo le istruzioni per modificare/aggiungere un
campo/tabella.
Mi sapete aiutare magari con qualche link ?
    Grazie , Rocco

 campo/tabella.
ALTER TABLE

 ha scritto nel messaggio
news:ae2gd8$nbd$1...@fe2.cs.interbusiness.it...

usando ADO hai a disposizione le estensioni ADOX per agire sulla struttura
del DB,
con DAO puoi utilizzare Table e QueyDefs, cmq nella guida trovi le
informazioni
che ti servono,
--
bye BlackMagic
ICQ: 85485468
Aiuta la ricerca sul cancro 
http://members.ud.com
Join
at:
http://members.ud.com/services/teams/team.htm?id=2E71C62A-8E67-48DB-B472-
BCA129B35412
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Modificare il timeout dello Screen saver

Ciao ragazzi!
Devo modificare il timeout dello Screen saver attraverso una mia
applicazione Visual Basic. Per tale scopo utilizzo l'API
"SystemParametersInfo" con gli opportuni parametri, come specificato nella
Win32 Programmer's Reference. Questa funzione restituisce correttamente il
numero di secondi di attesa, mentre, ogni volta che provo a modificare tale
valore, l'API mi restituisce 0, cioè fallisce.
Qui di seguito riporto il codice che utilizzo:
===== DICHIARAZIONI =====
Private Declare Function SystemParametersInfo Lib "user32" Alias
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef
lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_GETSCREENSAVETIMEOUT = 14
Private Const SPI_SETSCREENSAVETIMEOUT = 15
Private Const SPIF_SENDWININICHANGE = &H2
Private Const SPIF_UPDATEINIFILE = &H1
===== CODICE PER GESTIRE IL TIMEOUT =====
    Dim TimeOut As Long
    'Recupera i secondi di attesa.
    SystemParametersInfo SPI_GETSCREENSAVETIMEOUT, 0&, TimeOut, 0&
    MsgBox "Attesa Screen saver: " & TimeOut \ 60 & " minuti"
    'Imposta l'attesa a 120 secondi (2 minuti); non funziona.
    MsgBox SystemParametersInfo(SPI_SETSCREENSAVETIMEOUT, 120, 0&,
SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
Qualcuno può darmi una mano nel risolvere questo problema?
Grazie in anticipo a tutti
--
Marco Minerva, 
mar...@dmw.it
http://www2.armaditaggia.com/marco
http://www.geocities.com/SiliconValley/Foothills/7260/


------------
Francesco Beccari
frankb@I_HATE_SPAM_interplanet.it

Newsgroup: it.comp.lang.visual-basic
Titolo: algoritmo

?Qualcuno conosce un algoritmo x separare una variabile in una formula:
Ad esempio:
se ho Y = X + ALFA
Come fare x ottenere  X = Y -ALFA
Ovviamente le formule sono molto più complesse.
 
orf...@tin.it

 wrote in message 8k5bkv$nue$1...@nslave1.tin.it...

Non sono sicuro di aver capito bene, ma vediamo...
Partendo dal presupposto che ogni funzione (che sia l'addizione o
l'integrale....) dispone di un suo inverso (sottrazione e derivata...) basta
che in base alla variabile desiderata ( X nel tuo esempio) sposti a Dx o a
SX dell'uguale le variabili interessate invertendo le funzioni
corrispondenti, a seconda di dove le vuoi... quindi laY diventa -Y e X
diventa -X... (ovviamente potresti anche volere  1 = (X + ALFA)/Y ) poi
volendo ti lanci una funzioncina che rimette a posto i segni e che te la
trasforma in X = ...
Ciao e buon lavoro...

  
orf...@tin.it
Ma se non è neanche possibile a mano???
Ad es. in
y = x + tg(x)          o           y = x + ln(x)
non è possibile ricavare x
O si limita il campo o c'è un bel da fare per gestire anche questi casi.
--
Diego Mazzaro
"L'importante non è conoscere tante cose ma sapere dove trovarle" A.
Einstein
Newsgroup: it.comp.lang.visual-basic
Titolo: COME SI FANNO I PDF

la domanda non credo sia tanto semplice :
come faccio a generare file pdf a partire da report di vb?
pso...@tin.it
ringrazio in anticipo chiunque mi aiuti

Ciao la creazione dei pdf viene effettuata utilizzando Acrobat se non
sbaglio si dovrebbe chiamare Distiller, il quale configura una "stampante
virtuale". Utilizzando questa stampante, ti viene creato il file pdf; quindi
utilizzi prima un editor qualunque e poi fai una stampa su questa stampante
ed il gioco è fatto.
A questo punto non devi fare altro che stampare il report su questa
stampante.
Naturalmente devi avere Acrobat non il reader ma il software completo.
Altrimenti non so propio come  aiutarti.
Ciao Luca

 wrote in message
869rk1$lhd$1...@nslave2.tin.it...


 wrote in message
86af15$rvi$1...@pegasus.tiscalinet.it...


 wrote


...


 wrote in message ySqi4.6677$h23....@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Dimensione pagina CR9

Ciao a tutti,
ho un problema con un report creato con Crystal report 9.
La stampa in questione è quella di un'offerta composta da una testata,
delle righe di dettaglio ed una sezione di fine stampa dove inserire i
dati riepilogativi del documento e la firma del cliente per
accettazione.
La mia necessità è quella di non stampare la pagina finale solo con i
dati della sezione finale. Quindi, quando stò per stampare l'ultima
riga di dettaglio, dovrei riuscire a capire se nel foglio resta lo
spazio necessario per la stampa della sezione finale ed in caso
contrario anticipare il salto pagina.
Non sono sicura di essere stata chiara, spero cmq in una vostra
risposta anche se per una richesta di chiarimenti

ci provo.
nella sezione Page Footer attivo 'reserve minimum page footer'
inoltre, per avere la sezione totali (es.classico: riepiloghi iva e
totali della fattura)
solo sull'ultima pagina, condiziono la sezione con la regola
suppress 'PageNumber<TotalPageCount'
quando proprio voglio fare lo 'sbruffone', prevedo due sezioni page
footer,
la prima con suppress 'PageNumber<TotalPageCount' con i totali,
la seconda con suppress 'PageNumber=TotalPageCount' con una dicitura
'segue'
spero di essere stato utile.
a disposizione.

 nella sezione Page Footer attivo 'reserve minimum page footer'
Non conosco l'opzione che mi hai consigliato di attiavre.
Cmq il mio problema non è stampare il piè di pagina solo nell'ultima
pagina, ma stampare l'ultima riga di dettaglio nella stessa pagina del
piè di report.
Pensi che possa risolvere il problema spostando il contenuto della
sezione piè di report nella sezione piè di pagina?

Newsgroup: it.comp.lang.visual-basic
Titolo: Esiste un comando "copy"

Salve,
se ho un text field, posso creare un bottone che mi copi il contenuto di
quel text field, e che il contenuto sia poi "incollabile" ad esempio in un
file word?
Ringrazio anticipatamente.
Vanni Galli

file word?
Usa l' oggetto Clipboard.
-- 
ciao, hal

 wrote in message
news:3cb5a094$0$23956$7402...@newsfeed.sunrise.ch...

Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo presenza File

Ciao a Tutti !!
Come posso controllare la presenza o meno di un file in VB5 ???
--
mailto: 
denis....@fantacalcio.zzn.com
Torneo di Fantacalcio: 
http://carden.spedia.net

Function MyFileExists(MyFilename As String) As Boolean
Dim TempAttr As Double
MyFileExists = True
On Error GoTo MyErrorFileExist
    TempAttr = FileLen(MyFilename)
    GoTo MyExitFileExist
MyErrorFileExist:
    MyFileExists = False
    Resume MyExitFileExist
MyExitFileExist:
    On Error GoTo 0
End Function
--[GbC]--

 wrote in message
10ln31n$q3e$1...@fe2.cs.interbusiness.it...


     MyFileExists = False
A parte i GOTO mi piace molto. Hai provato a testarla su di un file già
aperto? Funziona lo stesso?
Grazie e ciao
*Roby*

 wrote in message
879aud$ouh$5...@nslave2.tin.it...


 Scusate... dir$ va bene lo stesso?
Si, ma non può essere chiamata all'interno di un ciclo che si basa su di una
altra Dir$.
Se per esempio dovessi ciclare su tutte le directory alla ricerca di un
file, per ciclare ti devi basare sulla posizione relativa di Dir$ e al suo
interno non puoi usare una nuova Dir$ se no resetti la posizione della
prima.
Si tratta di un caso particolare, ma se si risolve a monte è meglio.
Ciao
*Roby*

Newsgroup: it.comp.lang.visual-basic
Titolo: [???] Questione di Hwnd

1) Allora Come mettere le icone nei menù ormai lo si è detto parecchio, ma
nessuno di voi ha mai provato a mettere le icone nei menù che è possibile
associare ai tasti di una toolbar (tipo il nuovo elemento di outlook)?
2) Smanettando con le API sui menù sono riuscito ad inserire una voce al
menù di sistema (quello che appare facendo tasto destro sull'icone del
programma o a programma minimizzato), non sono però riuscito a gestirlo,
come mi accorgo che è stato premuto, quando genero l'evento?
Un altro paio di domande.
So che l'argomento è stato già trattato in passato, ma al tempo non mi
interessava, e quindi non l ho letto.
Quello che voglio è forzare il salto pagina, ho "spulciato" il data report
senza risultato.
Si può fare? Non si può fare (molto più probabile)? Se qualcuno sa darmi
info mi farebbe un grosso favore.
Un'altra cosa, non ho avuto modo di provare, ma qualcuno è riuscito ad usare
il data report con una connessione ADO normale, ovvero senza utilizzare il
Data Enviromet? E ancora è possibile simulare il comportamento dello shape
dei command annidati del data enviroment?
Grazie per l'interessamento.

come mi accorgo che è stato premuto, quando genero l'evento?
Devi usare il subclassing.
L'argomento è piuttosto voluminoso, ma mi sembra che suk sito comune ci sia
un'articolo proprio per quello che chiedi scritto da una ex-componente del
NG di nome Meimi.
ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: TextBox

Ho delle TextBox in cui l'utente di turno deve inserire dei numeri.Come
faccio ad intercettare se inserisce altri caratteri tipo lettere o simboli
?.Per il momento ho intercettato l'errore che viene generato quando la
routine che prende i valori da queste TextBox prova a fare quello che deve
fare (una equazione)ed incontrando una lettera non ci riesce ma forse c'è un
modo più elegante anche perchè facendo così non riesco ad indicare
all'utente dove ha sbagliato.
Ciao
Giuseppe

 all'utente dove ha sbagliato.
Testa KeyAscii nell'evento KeyPress del textbox e se non ammesso poni
KeyAscii=0
Non ricordo se si debba fare anche/solo in KeyDown su KeyCode...


Grazie adesso ci provo.Su un vecchio post ho visto consigliare l'uso di
isnumeric()
e lo sto provando per vedere dove sta la sola perchè mi sembra che funzioni
troppo bene.
Ciao ;)
Giuseppe


Io utilizzo questo sistema:
Private Sub TPrezzo_LostFocus()
If TPREZZO = "" Then TPREZZO = 0
If Not IsNumeric(TPREZZO) Then TPREZZO = 0
End Sub
Ciao joe

 Ciao joe
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 in genere si usa l'evento validate()
Giusto, ma, se non erro, è disponibile solo con VB6, non con VB5 e Nannerl
ha il 5... ;-)


Io uso  LostFocus  in modo tale che l'utente puo' vedere dove sbaglia quando
digita..diversamente si pu0' intercettare sul keypress o keidown...

 funzioni troppo bene.
La sola sta' nel fatto che l'interfaccia generata dall'uso di IsNumeric()
nella Lost_Focus del campo e' di tipo punitivo, che e' la peggior cosa che
tu possa fare.
Inserisci nell'evento keypress dei controlli questo codice:
    If KeyAscii > 57 Or KeyAscii < 48 Then
        If KeyAscii > 31 Then
            KeyAscii = 0
        End If
    End If

     End If
Molto bello in pratica controlli un tasto alla volta.
Adesso vedo come adattarlo dovendo inserire anche numeri tipo
1.20 o 0.25 cioč con la virgola (o meglio con il punto)
Ciao ;)
Giuseppe

Newsgroup: it.comp.lang.visual-basic
Titolo: prova

prova

prova scusate