mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: WinXP+Office XP----->Vb6

Ciao a tutti, volevo sapere esperienze, problemi, info,ecc. sull'utilizzo di
VB6 su sistemi WinXP con Office XP.
I db creati con Access 2002 con quale versioni di MDAC li apro ?
Ciao a tuti e grazie

> I db creati con Access 2002 con quale versioni di MDAC li apro ?
2.6 Microsoft afferma che i DB Access 2002 sono compatibili con quelli
Access 2000...
            Ciao
                            Allanon

Newsgroup: it.comp.lang.visual-basic
Titolo: verifica COM

come potrei verificare se due porte COM funzionano? ovvero
trasmettono/ricevono dati?
potrei collegarle ad esempio attraverso un cavo che vada da COM1 a COM2 e
scrivere un'applicazione che invii i dati da una parte e li riceva
dall'altra...
avete qualche esempio da consigliarmi?
grazie

skyweb ha scritto: 

è facilissimo.. se nn hai bisogno d cose strane nella com i piedini che ricevono e trasmettono sono il 2 e il 3 (Rx e Tx) infatti se usi tipo un cacciavite x cortocircuitare il 2 e il 3 (occhio a nn toccare la massa!!!) e invii qualcosa vedi che ti torna esattamente quello che hai inviato.. 
idem x far comunicare le 2 com.. dovrebbe bastare che metti l'Rx della com1 tul tx della 2 e viceversa.. poi con due mscomm puoi leggere e scrivere dalle com..
-- 
Prendi in mano le redini del TUO destino e nessun ostacolo riuscirà a rallentare la tua corsa!

Newsgroup: it.comp.lang.visual-basic
Titolo: Stampare un report.....

Sto facendo un programmino che alla fine delle sue operazioni deve stampare
un foglio contenente dati personali di un individuo.
Ho provato ad utilizzare il datareport ma ho visto che e' legato ai database
ed io non ho nessuna fonte dati da associare.
Cosa mi consigliate di fare??
Grazie a tutti.

"Elle-Pi Elettronica S.r.l." ha scritto

form.printform
Miao

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

Qualcuno sa dirmi come posso fare per leggere/creare/modificare key nel
registry di windows?
Esistono delle funzioni API che lo fanno? Come funzionano?
Grazie.

...

Se ti puň interessare, ho creato un modulo che contiene le dichiarazioni per
le API e le funzioni necessarie per leggere, creare, modificare e cancellare
voci o chiavi dal Registo di configurazione di Windows.
Fammi sapere.
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260/

 Esistono delle funzioni API che lo fanno? Come funzionano?
Sul Sito Comune (Vedi qui sotto) c'e' qualcosa che puo' tornarti utile, prova a dare un'occhiata.
-- 
Hi, Ciao
Ettore                 By -MES-
http://freeweb.aspide.it/freeweb/ilmes
 
(con OCX per stampare i Recordset)
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] DB PARADOX

Salve a tutti,
    ho un problema ad accedere a un database paradox ("nomedb.db") che
rappresenta una sola tabella. Accedendo come si fa con Access mi dà errori.
Qcuno sa come devo fare?
Grazie
MG
-- 
Posted from 
mail2.dada.it
 [195.110.96.69] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Auguri vivissimi.
Io ho risolto cosě: creo mdb, ci allego la tabella paradox e ci lavoro come
tabella (collegata) di access.
Al termine chiudo e cancello mdb.
Del tipo:
 Set wk = CreateWorkspace("", "admin", "")
 Set db = wk.CreateDatabase("c:\tmp.mdb", dbLangGeneral & ";pwd=pippo")
 Set tdfCollegata = db.CreateTableDef("tabella_paradox")
 tdfCollegata.Connect = "Paradox 4.X;DATABASE=c:\paradox\"
 tdfCollegata.SourceTableName = "tabella_paradox"
 db.TableDefs.Append tdfCollegata

Newsgroup: it.comp.lang.visual-basic
Titolo: URGENTE! Aiuto per creazione calendario!

Ciao a tutti
sto progettando un programma nel quale, tra le altre cose, selezionando da
un controllo combobox un mese devo ottenere il calendario del mese
selezionato da giorno 1 alla fine del mese con a fianco i giorni della
settimana.
esempio:
seleziono dal controllo febbraio, e in un foglio excel ottengo:
1 martedi
2 mercoledi
3 giovedi
.....
.....
29 martedi
Esiste una qualche funzione API per questo? Io spero di si, altrimenti come
ha fatto la Microsoft a creare il controlo calendario o DTPicker?
qualcuno puň aiutarmi?
Grazie, Vincenzo

api non so, ma c'è il mio controllo ocx gratuito!
da me o nel zito comune...
--
--[GbC]--
http://www.chiappori.net

 api non so, ma c'č il mio controllo ocx gratuito!


Grazie, Vincenzo
1) Ma perchč hai lanciato 2 thread con lo stesso soggetto?
2) Perchč non usi le funzioni native di VB che per manipolare le date vanno
benissimo?
3) Non ho ancora capito se stai lavorando su un'applicazione VB o su un
foglio excel.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Re: [Excel] Problema con SaveAs (con 2k, e non con 2003)

 m_objExcel.Application.DisplayAlerts = True
Questa cosa mi fa venire un dubbio...
Come istanzi l'oggetto m_objExcel?
Alberto

Ciao a tutti.
Ho un problema strano: sto cercando di esportare dati su Excel. Tutto
bene, fino a quando facio SaveAs.
Mi spiego: esporto tutti i dati (...) ed alla fine chiamo questa
procedura, che ho messo in una mia classe "cExcel":
Public Sub SaveWorkBook(FileName As String, Optional closeWorkBook As
Boolean = True, _
                        Optional Password As String = "", Optional
writeResPassWord As String = "", _
                        Optional readOnlyRecommended As Boolean = False)
    m_objWorkbook.SaveAs FileName, , Password, writeResPassWord,
readOnlyRecommended
    If closeWorkBook = True Then
        m_objWorkbook.Close
    End If
 
End Sub
passando solamente "FileName" (tutti gli altri parametri di default).
Sulla mia macchina di sviluppo, dove ho Excel 2003, tutto ok.
Dal cliente (e te pareva!) che ha Excel 2000, si *pianta* su questa
istruzione.
Ho cercato un po' su google, ma non ho trovato niente...
Avete suggerimenti, cose da provare, ecc. ??
Nota: all'inizio del codice che esporta i dati, ho:
m_objExcel.Application.DisplayAlerts = False
...
-- 
-----------------------------------
"A strange game. The only winning move is not to play"
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Ti ritorna qualche messaggio di errore e/o avviso?
No... è questo il punto... Non va avanti, dopo l'istruzione SaveAs.
Aspettando un po'... l'applicazione genera un eccezione ("ha eseguito
un'operazione non valida... " etc.).
Ho provato ad installare Excel 2k, ed a mettere (per prova):
m_objExcel.visible = True
m_objExcel.Application.DisplayAlerts = True 'era False ... 
quello che succede è che il file è creato correttamente, ma non salvato.
Excel non dà nessun messaggio (pensavo che "si piantasse" perchè generava
un messaggio del tipo "il file esiste già, vuoi sovrascriverlo?", e
restasse lì).
Mah...


 Come istanzi l'oggetto m_objExcel?
..bè:
Set m_objExcel = GetObject(, "Excel.Application")
:O


 istruzione.
Cosa intendi con "si *pianta*"?
Ti ritorna qualche messaggio di errore e/o avviso?
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto con la Winsock Control di VB5

Ho un problema che non riesco a risolvere con la Winsock Control di 
Visual basic 5
Sto sviluppando un'applicazione in VB5 su Windows Nt 4.0 e utilizzo
la winsock.
Io devo collegarmi ad un'applicazione server, spedire un messaggio
e poi chiudere la connessione.
il problema e' che subito dopo devo riaprire un'altra connessione
allo stesso server ma ricevo un errore: "Address in use"
Allora aspetto alcuni minuti e poi funziona correttamente
Ora io dico: come gestisce la coppia socket VB? e' mai possibile
che non cambi la local port (client port) ad ogni nuova connessione?
Purtroppo non posso tenere aperta la stessa connessione per effettuare
l'invio di piu' messaggi e quindi devo trovare il modo di riutilizzare
istantaneamente la coppia di indirizzi.
Per favore datemi una mano perche' ho pochissimo tempo a disposizione.
Grazie
William

...


Scusa l'intrusione, ma ho letto un tuo messaggio sul Newsgroup
e volevo chiederti una cosa:
che tipo di connessione? se e' tramite internet come hai fatto
a chiudere la connessione?
Grazie.
S      °                /|
h     °               /'  )                           ,
a     °           __/'     )                        .' `;
r    °    _.-~~~~'          ``---..__             .'   ;
k    _.--'  b)                       ``--...____.'   .'
y   (     _.      )).      `-._                     <
.    `\|\|\|\|)-.....___.-     `-.         __...--'-.'.
m      `---......____...---`.___.'----... .'         `.;
a
i        "....the diver is getting food...."
l
@
writeme.com


Newsgroup: it.comp.lang.visual-basic
Titolo: Aiutino, please !!!

Salve a tutti, ho creato un programma che legge i file RTF. Come posso fare
per far si che quando apro la finestra al massimo si ridimensonano tutti i
componenti all'interno del mio programma? Thx

componenti all'interno del mio programma? Thx
nel resize del form ci metti il codice x ridimensionare/posizionare i
tuoi oggetti
Ciao

 ha scritto nel messaggio
news:Lr2K8.3996$QT3.1...@twister2.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] ActiveX su web. come ?

Ciao a tutti,
ho da poco provato a fare un componente ActiveX (compilato come tale e non
Dll/activeX) composto sa un RTFbox e una toolbar.
Ho definito i metodi e le proprietà pubbliche. L'ho compilato e ho provato
ad usarlo in un progetto VB6: tutto OK !
Ora vorrei importarlo nelle mie pagine ASP / HTML. Come faccio ?
Ho inserito il tag OBJECT con relativa CLSID (cambia da computer in computer
??) ed eventuale CODEBASE ( se l'ocx al suo interno prevede altri componenti
devo per forza pubblicare il compenente in un file CAB con relativo INF per
distribuirlo ? Come faccio ?)
Lanciando Explorer vedo il componente all'interno del browser ma non riesco
ad accedere ne' alle proprietà ne' ai metodi !? Come è possibile?
Io ci accedo tramite:
 set my_obj = CreateObject("zbox_project.zbox")
my_obj.proprietà = ...
Grazie di ogni eventuale aiuto / consiglio !!
Grazie, ciao.
    Aldo

 Grazie di ogni eventuale aiuto / consiglio !!
Vecchio 3ad...
Cmq č IE che come default BLOCCA tutte le activex NON FIRMATE
Ciao
--
Timothy Redaelli
timothy.redae...@email.it
------------------------------------------------------------------
Togliere NONSPAMMARE per rispondere

Newsgroup: it.comp.lang.visual-basic
Titolo: Ottenere l'IP e stabilire se si è connessi

Salve a tutti
Si può con un programma in VB stabilire se il pc è connesso a internet?
Ed esiste un codice in VB che acquisisca il codice IP del computer connesso
e lo salvi in un file?
Grazie e Ciao!
"Ogni porta è un mistero di fatto.
Molti potrebbero pensare che il mistero consista in ciò che si trova oltre
la porta,
ma la questione fondamentale è invece se si trovi lì per tenere fuori
qualcuno...
...oppure per tener dentro qualcosa."
Elminster il Saggio, 
elmi...@tiscalinet.it

 ha scritto nel messaggio
news:8iag05$7oi$3...@lacerta.tiscalinet.it...


 ha scritto nel messaggio
news:8iaj3o$98b$1...@lacerta.tiscalinet.it...


 ha scritto nel messaggio
news:8ib4r6$d93$1...@serv1.albacom.net...


Usa questa:
Public Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef
lpdwFlags As Long, ByVal dwReserved As Long) As Long
MsgBox InternetGetConnectedState(0&, 0&)
PS
Cerca nell'MSDN "Establishing a Dial-Up Connection to the Internet"
--------
Ciao
Sabba

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Ricerca case sensitive.

Ciao a tutti.
Sapreste dirmi se e come è possibile un tipo d ricerca case sensitive su una
tabella access ???
Grazie a tutti !!!

Forse (forse) puoi usare nel where l'istruzione instr con l'opzione binary:
mi sembra che in binary fa distinzione tra maiuscole e minuscole.
Quindi un where a=b  (nessuna distinzione tra maiuscole e minuscole)
potrebbe diventare un where instr(a,b,0)<>0 (0 è comunque la predefinita).
Devi però (per evitare che ti trovi sottostringhe) verificare anche che
len(a)=len(b)
Prova perché sto andando a logica (mai provato).
Newsgroup: it.comp.lang.visual-basic
Titolo: Documentazione VB6

Se qualcuno ha già acquistato VB 6 sarebbe così gentile da dirmi che
documentazione viene fornita in cartaceo, ho visto infatti che sarà in
vendita un set di volumi a 280.000, e non vorrei che VB venisse fornito
senza cartacei ...
Grazie a tutti



Sto realizzando l'help contestuale in programma VB.
Tutto funziona bene se attivo l'elp da menů ma se utilizzo F1 viene
visualizzata una finesatra 'info' che il eguente titolo  'Guida di Windows'
e messagio  'Nome della finestra "LangRef" nonndefinito nel file
delprogetto'.
Qualcuno sa dirmi qual' č il problema ?
fau...@mbox.dinamica.it







Visual Studio viene fornito senza manuali, i singoli prodotti non so.
ciao
Izio
Per mandarmi una mail togliere i 9 dall'indirizzo
i9z...@usa.net


senza cartacei ...
Ho paura che bisognerà arrendersi alla politica di M$ che lascia i manuali
fuori dai pacchetti.
Idipendentemente dal motivo per cui lo fanno è sicuramente una caduta di
stile non fornire agli acquirenti neppure lo sconto per l'acquisizione dei
"cari" manuali Microsoft Press.
Ciao
-
MIX (VB5SP3)
post...@yahoo.com
80 links ai siti VB
http://space.tin.it/computer/gaais
http://www.tempolibero.com/user/mix/
 (alternativo)
-

"cari" manuali Microsoft Press.
In Italia VB viene venduto *senza* manuali? Ma proprio senza-senza?
Interessa dagli USA? (In inglese, of course)
Casomai posso fornire molti indirizzi dove si puo' acquistare qualsiasi
libro con carta di credito e farselo spedire in Italia.
(Non chiedete a me, ho gia' abbastanza casini per conto mio...)
Ciao, Pipol!
Piero

Newsgroup: it.comp.lang.visual-basic
Titolo: listbox e incolonnamenti

Ciao a tutti
 ho un piccolo problema che riguarda l'allineamento dei valori in una
listbox:
-aggiungo i valori tramite additem A&B&C (variabili testo) , non riesco ad
incolonnarle perchè sono tutte di lunghezze diverse. Esiste un metodo per
disporle ordinatamente????
Grazie Enrico
(scusate per la stupidità della domanda)

 disporle ordinatamente????
 - nella listbox usa un carattere monospaziato (es. Courier New)
 - crea una funzione che aggiunge degli spazi davanti alla stringa
   es.
Function RetFixLenght(ByVal str As String)
    str = Space(10) & str 'aggiunge 10 spazi
    RetFixLenght = Right(str, 10) 'recupera gli ultimi 10 caratteri
End Function
 - quindi con una routine del tipo:
Private Sub Command1_Click()
    Dim a, b, c, d
    a = "Tutto"
    b = "Allineato"
    c = "A"
    d = "Destra"
    List1.AddItem RetFixLenght(a)
    List1.AddItem RetFixLenght(b)
    List1.AddItem RetFixLenght(c)
    List1.AddItem RetFixLenght(d)
End Sub
 - ottieni l'allineamento.
 - Per recuperare il testo dalla textbox senza spazi usa Trim
Con l'uso degli spazi puoi inserire anche combinazioni di stringhe con
allineamento in più punti della riga.
Il grosso limite di questo giochino è che devi conoscere in anticipo la
lunghezza massima del testo che verrà inserito.
Ciao
---
--
-
Mix
-
--
---
Newsgroup: it.comp.lang.visual-basic
Titolo: Variabili e maiuscole

"VB cambia la forma dei nomi delle variabili per riflettere lo schema di
maiusc\miniscule usato
quando si dimensiona 1 variabile.Tale funz. di VB č utile per trovare errori
di battitura dei nomi di
variab.
Per sapere se 1 errore č dovuto a 1 variab.scritta in modo errato si puň
modific. 1 delle ricorrenze
di tale variab.( ad es. scrivendo nOMeDellavARIabiLe),spostarsi di 1 riga e
vedere se la ricorr.di
quella variab. viene modif. automatic. da VB:se il nome non viene modif. c'č
1 errore di battitura.
Si corregga l'errore e poi si modifichi 
nuovam.il
 nome della var.:cosě
cambieranno automatic.anche tutte le
altre ricorrenze del nome."
Io questo suggerimento , tratto da 1 libro, non l'ho capito....qualcuno puň
aiutarmi?
ciao e grazie.

 variab.
scrivi rispettando le maiuscole e le minuscole:
Dim varINTEGER As Boolean
poi:
varinteger = 100
e dai invio; la riga verrà modificata:
varINTEGER = 100
poi:
varintegr = 100
dai invio ; la riga non subirà variazioni in quanto è divesa da quella
dichiarata
giuseppeD

 dichiarata
E' vero!
Non capisco però l'ultima parte del suggerimento:
"Si corregga l'errore e poi si modifichi 
nuovam.il
 nome della var.:così
cambieranno automatic.anche tutte le
altre ricorrenze del nome."
Va fatto alla fine ?
ciao!

 altre ricorrenze del nome."
'vediamo le due possibilità che conosco
'1:
Dim varINTEGER As Integer
'stringa sbagliata
varintegr = 100
varintegr = 200
varintegr = 300
'dopo correzzione(aggiunto e mancante) diventano.
varINTEGER = 100
varINTEGER = 200
varINTEGER = 300
'2:
Dim varINTEGER As Integer
varintegr = 100
varintegr = 200
varintegr = 300
Dim varINTEGR As Integer
'dopo modifica(elimino la E alla variabile) diventano:
varINTEGR = 100
varINTEGR = 200
varINTEGR = 300
giuseppeD

 Va fatto alla fine ?
No, č solo la spiegazione del funzionamento: tutte le variabili usate
rifletteranno la forma usata nell'ultima dichiarazione.
Ad. es. Se in Funzione1 dichiari Dim varInteger e poi scrivi Funzione2 con
Dim varINTEGER, in tutto il progetto le variabili verranno visualizzate come
varINTEGER, anche in Funzione1.
(secondo me questo č un bug di cui gli sviluppatori di VB se ne fregano :P)
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Visual studio 2005 e codice nativo

Ciao a tutti!
qualcuno sa dirmi se con il Visual Studio 2005 si potrą compilare in codice
nativo?
Grazie.

Si,
Si puņ compilare in C++ con codice naivo ed anche a 64bit.
Ciao,
--
Carmine ( 
pikachu...@gmail.com
 (Togli la scritta NOSPAM) )
Webmaster di The Total Site (
http://www.tekkentag.altervista.org/
 )
Webmaster di SceptilePage (
http://www.sceptilepage.altervista.org/
 )
Account Messenger: 
thetot...@msn.com
MyBLOG (NEW!!) 
http://spaces.msn.com/members/itanet/
Newsgroup: it.comp.lang.visual-basic
Titolo: ActiveLook

Salve a tutti, ho scaricato l'OCX activelook 1.6, ma non lo so usare, potete
spiegarmi come si usa?
GRAZIE

 spiegarmi come si usa?
No... perň magari potrei spiegarti come si usa Google :-)
A parte che "activelook" non esiste, e invece esiste "activelock",
il che ti porta qui:
http://www.google.com/search?q=activelock+1.6+ocx
Indovina che dice il primo link ?
    How to Use ActiveLock
 
http://www.internetion.net/ActiveLock/activelock.asp
Bye, G.

 No... perň magari potrei spiegarti come si usa Google :-)
gia', e poi sono io quello che non mette [ot] :P

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto x Excel

Salve a tutti,
forse il quesito che ho sottoposto il giono 27 luglio non era chiaro :Spero
di riuscire a spiegarmi meglio quest'oggi.
Problema:
Immesso un valore qualunque  ( data o test o numero o ecc.ecc. ) in una
cella qualsiasi ( che chiameremo per praticita' UNO ), con qualunque metodo
( digitando direttamente il valore nella cella, ovvero tramite una qualsiasi
operazione VBA ) vorrei sapere se qualcuno ha realizzato una routine VBA che
, al verificarsi della condizione di uguaglianza con il valore immesso
precedentemente nella cella UNO mi richiami un user form dal quale io possa
capire che la condizione si e' avverata .
OVVIAMENTE tale verifica deve avvenire in automatico, ovvero la routine VBA
, per accertare tale uguaglianza, non deve essere richiamata manualmente
dall'utente ma deve essere TRASPARANTE all'utente, ovvero funzionare in
automatico.
Molto probabilmente il foglio excel che conterra' tale routine , affinche'
possa essere avviato automaticamente, dovra' essere salvato come aggiunta
 .xla ) e non come foglio normale ( .xls).
Detto questo, sperando di essere stato chiaro, c'e' qualcuno che abbia gia'
risolto il problema ? Ovvero ha gia' realizzato una sorta di mini reminder o
To-Do list  che funzioni in Excel ?
Grazie per le risposte, gradite anche se inviate direttamente in e-mail

 automatico.
Soluzione (una possibile!;o) :
'nel VBAProject di Foglio1
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Value = Foglio2.Range("A1").Value Then MsgBox "ok!"
End Sub
a questo punto in qualsiasi cella di foglio1 tu abbia il valore
corrispondente alla cella a1 del foglio2 ti dara' il messaggio.
da qui ti puoi arrangiare.
beppe
Newsgroup: it.comp.lang.visual-basic
Titolo: problema con MSVBVM60.DLL

Ciao a tutti!
Il mio programma mi da un errore quando lo chiudo nel modulo MSVBVM60.DLL
che appartiene alla voce "Visual Basic for Application" nei riferimenti di
VB6.
L'ho provato su diverse macchine ma il risultato non è cambiato.
Vi prego di aiutarmi.
Grazie
Nik


Che vuol dire "quando lo chiudo nel modulo MSVBVM60.DLL"?

> Che vuol dire "quando lo chiudo nel modulo MSVBVM60.DLL"?
Hai ragione, mi sono espresso male...
Quando termino il programma, appare una schermata di errore:
    Questo programma ha eseguito un'operazione non valida e sarà
terminato...
    (Dettagli --> Errore nel modulo MSVBVM60.DLL)
Meglio così???
Cosa si può fare?
Grazie

     (Dettagli --> Errore nel modulo MSVBVM60.DLL)
Fai uso di qualche funzione API particolare nel tuo programma? (una a caso:
SetParent?)
Ciao
--
Luca Dormio
luca....@tin.it


Ho utilizzato questa:
    Private Declare Function GetUserName Lib "advapi32.dll" Alias
"GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long

 wrote in message
kTLl7.82062$vC1.1...@news1.tin.it...

Beh, che io sappia non e' tra quelle "delicate", tipo quella sopra, che
possono generare problemi in chiusura se mal gestite...
A quanto ho capito il problema si presenta solo con l'eseguibile e non con
l'IDE, giusto? se e' cosi' prova a fare una piccola funzione con cui
scrivere una sorta di log su file e aggiungi varie chiamate durante tutta la
procedura di chiusura (per dire: voce di menu' "esci', ,chiusura del DB se
c'e', QueryUnload delle Form e cose del genere)
Ad esempio:
Private Sub DebugString(ByVal strMessage As String)
Open App.Path & "\Debug.log" For Append As #1
Print #1, Now & " - " & strMessage
Close #1
End Sub
e quindi chiamala con:
DebugLog "Prima del click su Esci", DebugLog "QueryUnload di Form2",
DebugLog "QueryUnload di Form1"
e cosi' via; in questo modo vedi se almeno riesci a capire in che punto va
in crash



Voto per una End con connessioni Ado aperte.
ciao
ugo

> Voto per una End con connessioni Ado aperte.
Scusami Ugo, ma non capisco...
Ti dispiacerebbe spiegarti meglio?
Grazie ancora per la disponibilità
Nik


Intendo dire che č probabile che tu termini il programma con una End,
lasciando aperte connessioni Ado o altri oggetti.
Se non č cosě, prova a postare il codice di chiusura dell'app...
ciao
ugo

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

Aiuto!Qualcuno di voi,gentilmente,è in grado di risolvere questo errore:
AppName:msaccess.exe  AppVer:10.0.2627.1     ModName:Msjtes40.dll
ModVer: 4.0.2927.8  Offset:00007449
Dati segnalazione
  La segnalazione errori include:informazioni circa la condizioni di 
Microsoft Access quando si è verificato il problema,la versione del
sistema operativo e l'hardware istallati nel computer,l'ID digitaledel
prodotto che potrà essere utilizzato per identificare la licenza e
l'indirizzo IP del computer......
    Grazie!
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


non mi sembra che centri molto con vb. perche non cerchi su technet?
http://www.microsoft.com/technet/
Newsgroup: it.comp.lang.visual-basic
Titolo: *** URGENTISSIMO *** Cercare un files nelle sottodir

vorrei sapere come far ricercare al vb un determinato file in tutte le
sottodirectory di un drive che viene scelto da una drivebox
uso vb5
vi prego č davvero urgente

sottodirectory di un drive che viene scelto da una drivebox
  C'e' un'applicazione che lo fa tra gli esemp allegati al VB5i, non
ricordo il nome.
  Ciao :-)
  Massimo
  Nell'indirizzo, inserire una "h" tra la "t" e la "u"
  In the address, insert an "h" between the "t" and the "u"

 sottodirectory di un drive che viene scelto da una drivebox
Prova a guardare l'esempio dirtree.zip sul sito comune (vedi qui sotto)
-- 
Hi, Ciao
Ettore                 By -MES-
http://freeweb.aspide.it/freeweb/ilmes
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb




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

Scusate la stupidaggine...
Ma come faccio ad intercettare la pressione di tasti quali le freccie
direzionali?
Ho provato a utilizzare gli eventi keyup e keydown ma non so come usarli.
Per es.: come impostare la variabile X a TRUE se vuene premuta la freccietta
sinistra?
Grazie mille

Ho provato il tuo codice e purtroppo non va:
Allora!
Il codice di cristina funziona benissimo :)
Intanto un po' di precisazioni:
KeyPress() rileva solo il codice ASCII dei tasti premuti (mai chiesto perchč
il parametro č KeyAscii e non KeyCode come nell'evento KeyDown()?), quindi
F1 non č un codice ASCII, quindi niente evento.
KeyDown()/KeyUp() intercettano il codice del TASTO, non del carattere!
E' semplicemente l'identificativo del tasto, un progressivo.
Con vbKeyReturn ti va di c..o perchč sia il codice ascii che il codice del
tasto del Return (vbCR) č 13.
E cosě anche per le lettere _MAIUSCOLE_ e i numeri NON del tastierino.
Occhio ad usare KeyDown(), perchč se trovi il tipico utonto finale che tiene
premuto il tasto 2 secondi ti trovi una cascata di eventi, qui č meglio
usare una KeyUp().
Al contrario non mettere una msgbox nella KeyUp() o sei rovinato.
Le msgbox scompaiono quando l'enter va giů, cosě quando lo rilasci te ne
verrebbe fuori un'altra e ti inluppi felicemente.
Adesso assicurati di aver messo Form.KeyPreview = True e riprova.
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: (SPOT) NEWAGELAND

si chiama SPAM..non Spot....

> Finalmente anche on-line.......... 
WWW.NEWAGELAND.COM
FINALMEEENTTTEEEEEEEEEEE!!!!!
Lol. :)
--
Starla. SP.

> FINALMEEENTTTEEEEEEEEEEE!!!!!
concordo, finora non sapevo su che web andare :))
Fabio
Newsgroup: it.comp.lang.visual-basic
Titolo: scanning porte LAN...

Ciao a tutti,
sto realizzando il gioco della briscola da portare poi all'esame tra 
esattamente 20gg e sono in dirittura d'arrivo, ma vorrei migliorarlo; 
attualmente un giocatore deve conoscere, mi riferisco a LAN, l'ip 
dell'altro con cui giocare; io vorrei avere una lista di tutti gli host 
della LAN con l'applicazione aperta e quindi disposti a giocare e poter 
scegliere uno di essi per giocare...
Avevo pensato ad una cosa del tipo una scansione di tutti gli host della 
Lan verificando quali hanno la porta 2000 (quella che uso io) 
aperta...il brutto è che non ho la più pallida idea di come si possa 
fare...Mi da te qualche suggerimento o link?
Grazie
-- 
Se vuoi un newgroup su PAOLO VILLAGGIO vai su
it.news.votazioni e vota!
Per conttarmi in pvt togliere NOSPAM o in alternativa con
MSN Messenger: rocco7man chiocciola 
hotmail.it
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Frase Mitiche:
"Colpo partita: triplo filotto reale ritornato con pallino."
(Rag. Ugo Fantozzi in Fantozzi)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Aggiungo anche un:
;-) WLF ;-) Forza Milan e Manchester United!
CIAO

 fare...Mi da te qualche suggerimento o link?
Con questa enumeri le macchine del dominio
http://vbnet.mvps.org/index.html?code/network/netserverenum.htm
quindi per ogni macchina provi a connetterti sulla 2000 e vedi
se ti risponde la tua controparte.
-- 
ciao, hal

 Mi da te qualche suggerimento?
Se parli della briscola ordinaria, non mi dice granchè.
Se invece vuoi cimentarti nella briscola in 5, "l'amico del giaguaro" per 
intenderci, qualcosa saprei dirti.
Ad esempio, io sono un fanatico della chiamata in mano. E' vero che rischi 
di perdere il doppio dei punti, ma generi un tale caos negli avversari, che 
li freghi tutti.
Per tornare IT: so che esiste una versione dell'amico del giaguaro in cui le 
chiamate si fanno specificando il seme ad ogni chiamata, anzichè una sola 
volta alla fine. E' una cosa diffusa?
A me sembra una stronzata...
Alberto
-- 
"Se viriamo, viriamo viriamo viriamo;
Se andiamo dritti, viriamo"
(Cit. "il tattico")

Newsgroup: it.comp.lang.visual-basic
Titolo: Stampa di una Bitmap

Ho una bitmap (bmp) in una imagelist e la voglio stampare;
ho utilizzato il metodo PaintPicture dell'oggetto printer.
Sulla mia Epson Stylus Color funziona su una laser qualsiasi
invece no.
Qualcuno ha idea del perche'?
Grazie.

 wrote in message
news:8tml9q$481$1...@pluto.sm.dsi.unimi.it...

Mi sarei aspettato piuttosto il contrario.
In che cosa consiste il non funziona ?
Ciao
Aldo

 wrote in message
8tnfk9$o36u0$1...@ID-56381.news.dfncis.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: comdlg32.ocx

Salve atutti,
Sto usando Vb5 ( ed. Enterprise) Ma ho qualche problema con l'oggetto
'common dialog': Infatti dopo aver inserito l'icona nella casella strumenti
non riesco a utilizzare l'oggetto corrispondente e mi viene visualizzato un
messaggio in cui mi si informa di non essere in regola con la licenza!!!
Ho provato a reistallare Vb5, a cambiare il file comdlg32.ocx nel system di
windows ma senza risultato. Potete aiutarmi?
Grazie per l'interessamento
Maddy
mad...@flashnet.it

...


windows ma senza risultato. Potete aiutarmi?
Sorry, se l'avessi chiesto prima ti saresti risparmiata la
reinstallazione...
--
Roal Zanazzi
z...@iol.it

...

Ti ringrazio per l'aiuto!

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

dopo tamnto tempo ho deciso di rispolverare Visual Basic 6.0 ma non risco a
capire il percho non riesco a dichiarare variabili di tipo DATABASE...
mi spiego se faccio una cosa del genere
dim dbCon as
 non mi appare tra l'elenco dei tipi di cariabili quella apuurnto database.
perņ se apro un vecchio progetto al cui interno ci sono variabili dichiarate
in questo modo riesco a crearne di nuove...
spero di essere stato almeno un po chiaro e di ricevere qualche suggerimento
grazie a tutti
FuReX

  non mi appare tra l'elenco dei tipi di cariabili quella apuurnto
database.
Confronta i riferimenti di uno di questi progetti con quelli di un progetto
nuovo, vedrai che nel nuovo ce ne sono di mancanti, non spuntati, spuntali e
vedrai che come per magia di ricompariranno quelle voci che tanto cercavi
nell'elenco membri...
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Programmino VB

Ciao a tutti,
c'è stata una moria di programmatori vb nella mia azienda, e mi trovo
abbastanza in difficoltà visto che la fretta è tanta e questo è un
mondo per me inesplorato.
Devo creare un componente eseguibile stand alone, magari richiamato da
dos, che prenda in ingresso due paramentri, file di input e di output.
Il corpo del sorgente è questo:
Set theDoc = Server.CreateObject("prova.Doc")
theDoc.Rect.Inset 72, 144
theDoc.Page = theDoc.AddPage()
theURL = "c:\dirinput\pippo.htm"
theID = theDoc.AddImageUrl(theURL)
Do
  theDoc.FrameRect
  If Not theDoc.Chainable(theID) Then Exit Do
  theDoc.Page = theDoc.AddPage()
  theID = theDoc.AddImageToChain(theID)
Loop
For i = 1 To theDoc.PageCount
  theDoc.PageNumber = i
  theDoc.Flatten
Next
theDoc.Save "c:\diroutput\pippo.pdf"
("c:\dirinput\pippo.htm" e "c:\diroutput\pippo.pdf" sono i parametri
d'ingresso)
il problema è che non sapendo niente di vb o vbscript non so come
iniziare e terminare il programma, un programma pronto per essere
compilato si intende e richiamato.
se c'è qualche anima pia che mi può aiutare, che ne so, magari grazie
a questo piccolo aiuto inizia la carriera di un buon programmatore
visual basic...
grazie

Un buon inizio sarebbe scaricare Visual Studio 2005 Express, creare un nuovo 
progetto console e incollare il testo.
Sembra che il programmino crei un file di Word e ci incolli dentro un po' di 
HTML per poi salvarlo in PDF (WORD 2003 e inferiori non possono salvare in 
PDF, OFF2007 non so)
Come partenza mi sembra un  po' complessa.
In bocca al lupo
IDN

Newsgroup: it.comp.lang.visual-basic
Titolo: Come eseguire un file MIDI

come posso far eseguire un file .MID
grazie

grazie
-------------------
Prova a guardare sul sito comune: 
http://members.xoom.com/it_lang_vb
.
Dovrebbe esserci qualcosa che ti può interessare.
Ciao
Macro Minerva
http://www.geocities.com/SiliconValley/Foothills/7260
http://www.armaditaggia.com/marco

Newsgroup: it.comp.lang.visual-basic
Titolo: [WPF] RoutedCommand.

Ciao a tutti,
in una Window ho implementato alcuni RoutedCommand, così da personalizzarli. Se ne _parlò_con Mauro tempo indietro, di quanto siano _antipatici_ di default. Per ogni Command scrivo:
http://pastebin.com/s7Av2ANQ
 
 
Ne ho una decina. E' il modo corretto, o c'è qualcosa tipo "RoutedRoutedCommand" ?!
Grazie.

Ciao Fabrizio,

se usi MVVM ti conviene molto di più una delle mille-mila 
implementazioni che trovi di DelegateCommand:
 
http://milestone.topics.it/2010/09/m-v-vm-commanding.html
 
 
.m
 
-- 
blog @ //
milestone.topics.it
 
 
 

Ottimo grazie ;-)
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con Query per creare XLS

Ciao,
   ho appena creato una query per prendere una serie di dati da una 
table di SQL Server Express 2005 e portarli in un file XLS che 
preventivamente vado a creare. Tale query dev'essere lanciata da un 
button in Visual Basic Express 2005. Quando provo ad eseguire il mio 
piccolo programma mi esce il seguente errore:
System.Data.SqlClient.SqlException: SQL Server ha bloccato l'accesso 
all'oggetto STATEMENT 'OpenRowset/OpenDatasource' del componente 'Ad Hoc 
Distributed Queries' perchè tale componente è disattivato in base alla 
configurazione di protezione del server.
Ho attivato tale proprietà con il seguente codice da SQL Server 
Managemente Studio Express:
EXECUTE sp_configure 'show advanced options', 1
RECONFIGURE WITH OVERRIDE
GO
EXECUTE sp_configure 'Ad Hoc Distributed Queries', '1'
RECONFIGURE WITH OVERRIDE
GO
EXECUTE sp_configure 'show advanced options', 0
RECONFIGURE WITH OVERRIDE
GO
e quando vado a controllare tale parametro risulta a 1.
Ogni volta che però premo tale pulsante mi esce sempre l'errore di cui 
sopra.
Cosa ci può essere??
Ringrazio in anticipo
Ciao
Cristian

Cristian Meggiorin ha scritto:

Rettifico che se io lancio la query direttamente da SQL Server 
Management Studio Express riesco a popolare il file XLS.

Newsgroup: it.comp.lang.visual-basic
Titolo: Mammamia il .NET

Salve raga, ho dovrei sviluppare un applicazione in VB .NET che abbia
semplicemente una maschera con l'anagrafica dei clienti.
Allora avrei la necessità di mettere in alto alla maschera, una griglia che
mi rappresenti l'elenco di tutti i record (solo con codice e nome) nel db ed
in basso  tutti i vari campi di testo per modificare l'attuale record
selezionato sulla griglia oppure per inserire un nuovo record.
Ho provato e riprovato e poi ho provato ancora, poi ho cercato sull'help,
poi negli esempi, poi ho acquistato un libro, poi ho provato con quella
spece di wizard presente sul .NET .....Risultato: NIENTE DA FARE, ho sono
pinato io o non è molto chiaro tutto cio'.
C'e' un'anima gentile e buona che in 4 righe puo' dirmi come devo fare o
magari meglio ancora farmi un esempio. Grazie e scusate, ma prima di rompere
ce l'ho veramente messa tutta.
ciao.

 ha scritto nel messaggio
news:al73k3$t43$1...@news.ngi.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Funzione IF e colore celle

Scusate non so se sono nel newsgroups giusto............ma ci provo lo
stesso:
ho la necessita di impostare una funzione "IF-THEN" in  Excel che agisca a
seconda del colore di sfondo della cella. Mi spiego, se per esempio lo
sfondo della cella è rosso allora si comporta in un modo se e grigio invece
in un altro. Qualcuno mi sa dire se e possibile ed eventualmente come??
Scusate se non sono stato chiarissimo ma e per un mio amico, io di
programmazione non mi intendo granche............gli devo solo un favore.
Grazie in anticipo.

 [...]
*Come*? Cosi', per esempio: se vuoi che nella cella A1 di Foglio2 della
Cartella di lavoro attiva compaia la scritta "Rosso" o "Non rosso" in base
al colore di sfondo della cella A1 di Foglio1, bastera' scrivere del codice
tipo questo:
    With ActiveWorkbook.Worksheets("Foglio2").Cells(1, 1)
        If ActiveWorkbook.Worksheets("Foglio1").Cells(1, 1).Interior.Color =
vbRed Then
            .Value = "Rosso"
        Else
            .Value = "Non rosso"
        End If
    End With
*Dove* scriverlo dipende dal *quando* e da *chi*. A seguito, cioe', di quale
evento, scatenato da quale oggetto. Il *perche'* immagino lo sappia il tuo
amico.
(Pare che le 5 W del giornalismo siano valide anche per la programmazione ad
eventi.)
Credo pero' che il sistema migliore sia ripensare la cosa ribaltando il
quesito e magari sfruttando la formattazione condizionale.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 ha scritto nel messaggio
news:aaripm$d366e$1...@ID-52090.news.dfncis.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] esempi di lettere commerciali

Scusate sesono completamente fuori tema, ma mi sto rompendo la testa per
capire come fare delle elettere commerciali per presentare dei servizi ad
aziend e privati.
non son riuscito a trovare mnolto in internet,....qualcuno di voi sa dirmi
dove poter cercare per avere delle idee su come presentare le lettere
commerciali (di varia natura)?
Grazie
Emanuele

 lettere commerciali (di varia natura)?
Non so dove si possano trovare esempi, ma ti consiglio di cominciare dagli
errori di battitura. :-)
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

Modelli di Word.
Sito Microsoft, Office
Google: lettere commerciali modelli
-- 
----------------------------
Mauro Gamberini

[Ottomano Nicola] scrisse: (snip)
ma rotfl !
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

Consiglio spassionato ... commerciali non si nasce ... si
diventa, ma ci devi essere pure portato. Quello che per
esempio - ti parlo di esperienza personale - faccio sempre
io è di essere prolisso.
Ho un amico commerciale che spesso e volentieri mi aiuta,
e mi dice ... vuoi colpire il bersaglio ... sii stringato, e centra
subito il punto ... altrimenti troppo da leggere equivale ad un
no certo.
A te serve presentare un prodotto, metti curiosità e cerca
per lo meno di arrivare al colloquio.
Poi io non sono commerciale ... ma devo farlo per il semplice
fatto che sono ditta individuale ...
Ciao
Andrea


Grazie Andrea, anche io sono ditta individuale e facci tutto questo solo per
risparmiare (o almeno provare a risparmiare) qualche soldarello in attesa
del prossimo lavoro, che di questi tempi, pare non arrivi mai......
Ringrazio tutti coloro che hanno risposto a questo post e anche ai
precedenti.....
grazie dell'aiuto
(spero di non aver fatto errori di battitura.....)
Emanuele

 (spero di non aver fatto errori di battitura.....)
Purtroppo si. Vedi *facci* ;-)

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con le dll.

Inserendo un riferimento in vb a una dll quando cerco di usarla mi dice che
non ho eseguito il with!
Chi mi puņ aiutare a risolvere il problema?
Eddy
ppu...@tin.it

non ho eseguito il with!
Non credo che si tratti di un problema relativo alla DLL... Prima controlla
bene
il codice VB.
Oppure potresti aver sbagliato a dichiarare la funzione ed al ritorno questa
corrompe lo stack...
Saluti, Massimo

Newsgroup: it.comp.lang.visual-basic
Titolo: crystal report : si crea al volo ?

Un programma scritto in VB6 utilizza CR v. 9  per generare la fattura di 
vendita .
Come mai non trovo da nessuna parte il file  RPT usato per tale stampa ?
Sarà mica generato al volo da codice quando lancio l'anteprima della fattura 
?
E' un bel mistero , anche perchè gli altri file RPT come ad es. l'elenco 
fatture emesse , l'elenco clienti , l'elenco scadenze li trovo nella 
cartella   C:\gestionale\fatturazione\moduli .
Non trovo assolutamente il file rpt relativo appunto alla fattura !
Grazie  e saluti

 ha scritto nel messaggio 
news:dql0oo$er7$1...@nnrp-beta.newsland.it...

Sei sicuro di tutto ciò che affermi?
Per farti un esempio, io nei miei programmi usavo CR per tutte le stampe di 
tabelle e riepiloghi vari ma per la stampa di bolle/fatture/ordini, cioè 
dove avevo bisogno di controllare meglio i vari calcoli e altre varie cose, 
usavo VSreport.
Tutto questo è per dirti che se non c'è un file rpt, mi sembra (ma posso 
sbagliarmi!) impossibile che possa essere una stampa di CR.
Ciao, Vincenzo 

 cose, usavo VSreport.
allora non dovrei trovare un file fattura.ZZZ  ,dove ZZZ è l'estensione del 
report ? 

 ha scritto nel messaggio 
news:dql1gq$fcu$1...@nnrp-beta.newsland.it...

Il componente in oggetto non creava file. Era tutto codice, come se stessi 
usando printer.print .....
L'unica cosa per modificare le stampe era accedere alle sub e function che 
generavano la stampa.
Ciao, Vincenzo 

 generavano la stampa.
ho capito , credo che il programma faccia proprio cosě.
In effetti le videate di anteprima sono effettivamente  diverse tra una 
fattura e  un elenco ( creato con CR ) .
Grazie e saluti

Newsgroup: it.comp.lang.visual-basic
Titolo: Interpretare ed eseguire codice VB

Ciao a tutti,
sapete se e' possibile prendere un file di testo contenete codice VB
interpretato ed eseguire questo codice in un applicazione VB.
In pratica vorrei riuscire ad includere un ambiente simile ai moduli
di Access nei programmi VB.
Grazie
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] - Come si fa a scannerizzare da VB?

Buon giorno a tutti
come da oggetto potete risolvere il mio problema?
Grazie a tutti, se potete darea un'occhiata anche ai messaggi precedenti
bye Roberto

come da oggetto potete risolvere il mio problema?
Hai provato a dare un'occhiata al controllo IMGScan.OCX?
Puoi imparare dagli esempi dell'help...
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

 wrote in message
c524lssnsvm0ic2fb...@4ax.com...


Grazie Moreno ma non vedo niente di simile ad una Acquisizione
se puoi darmi altri suggerimenti, č urgente
bye Roberto


bye Roberto
Come non vedi nulla???
Allora:
in un form crea un'istanza del controllo IMGScan.OCX (Controllo digitalizzazione immagine Kodak) ed
una del controllo IMGEDIT.OCX (Controllo modifica immagine Kodak) chiamati rispettivamente ImgScan1
e ImgEdit1 (nomi di default)
Modifica la proprietà
ImgScan1.Image
con il nome del file temporaneo in cui verrà salvata l'immagine acquisita...
Poi, con:
ImgScan1.StartScan
ImgEdit1.Image = ImgScan1.Image
On Error GoTo Errori
ImgEdit1.Display     
Kill ImgEdit1.Image
Errori:
avvi la scansione e la visualizzi nell'area del controllo ImgEdit
Questo è solo uno zuccherino: puoi ampliarlo a piacimento seguendo la guida dei due controlli...


Ti invio la mia Funzione che mi da l'errore "Impossibile visualizzare
l'immagine che ho ovviato tramite On error goto Resume Next
vedi dove sbaglio
On Error Resume Next
 If ImgScan1.ScannerAvailable = True Then
        'una immagine tiff vuota per appoggio...
        ImgScan1.ScanTo = DisplayAndUseFileTemplate
        ImgScan1.Image = App.Path & "\Foto\provascan.tif"
        '--------------------------------
        ImgScan1.OpenScanner
        ImgScan1.ShowSetupBeforeScan = True
        ImgScan1.StartScan
        ImgEdit1.Image = ImgScan1.Image
        ImgEdit1.Display
        Kill ImgEdit1.Image
        ImgScan1.CloseScanner
        '--------------------------------
    Else
        MsgBox "Non ci sono scanner disponibili", _
              vbInformation, _
              "Manca uno scanner TWAIN"
    End If
    Exit Sub
End Sub
bye Roberto
Newsgroup: it.comp.lang.visual-basic
Titolo: Otra domandina

Ues, avrei un'altra domandina, sempre a proposito dell'editor :-):-):-)
Risolta la questione del "Seleziona tutto" (avevo semplicemente
sbagliato a digirate sellengh :-):-):-), capita!!).
Allora, voglio che quando digito del testo mi faccia il suono della
macchina da scrivere tipo icq 99. Perciň ho preso il suono, l'ho buttato
dentro una casella OLE e ho dato il seguente codice:
Private Sub Text1_KeyPress(KeyAscii As Integer)
OLE1.DoVerb
End Sub
E, udite udite, funziona. :-):-):-)
Sennonché, mentre fa il suono, non mi fa ANCHE digitare, ergo perdo 5
lettere ogni 6 :-):-):-)
In una parola, sono piů veloce io a digitare che lui a suonare!!
Che fo?
C'č qualche altro metodo?
Esiste qualche codice che velocizza o, ancora meglio, fa suonare un wave
senza che quest'ultimo sia inserito dentro un controllo?
Simone Bogi

 senza che quest'ultimo sia inserito dentro un controllo?
Uno tra i tanti:
Option Explicit
'Basic Wave Playing by J W Lehman
Declare Function sndPlaySound Lib "WINMM.DLL" Alias _
    "sndPlaySoundA"   (ByVal lpszSoundName As Any, _
    ByVal uFlags As Long) _
    As Long
Global Const SND_SYNC = &H0
Global Const SND_ASYNC = &H1
Global Const SND_NODEFAULT = &H2
Global Const SND_LOOP = &H8
Global Const SND_NOSTOP = &H10
'La funzione <sndPlaySound> verrà poi richiamata così:
wFlags% = SND_ASYNC Or SND_NODEFAULT
x% = sndPlaySound(Soundname$, wFlags%)
Ciao!

 Global Const SND_NOSTOP = &H10
Questa non va bene. Non chiedermi perché, non lo so.
Simone Bogi

 wrote in message
37C1B50A...@comune.siena.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Espressioni

Salve a tutti!
Ho un problema da risolvere e spero che qualcuno di voi mi aiuti a
risolverlo.
Dunque supponiamo di avere una stringa del tipo
eq="-2.3+x+y* paperino+sin(y)+exp(z)-sqr(y)"
dove : x,y,paperino,z sono variabili
e "sin()" la ben nota funzione 'seno'. e "sqr" la radice quadrata.
..Nota che potremmo avere anche altre funzioni standard del VB , tipo Exp()
ecc....
Ora supponiamo di assegnare le variabili:
x=0.9
y=9
z=3
paperino = 4.6
Come ottenere il risultato dell'espressione?
Ho cercato e trovato alcuni sorgenti che valutano espressioni con numeri, ma
non con le variabili lunghe del tipo
paperino.
Qualcuno di voi saprebbe darmi una mano?
Forse qualche link?
Saluti da 
ricca...@tiscalinet.it

 ha scritto nel messaggio
news:bg0oos$qnn$1...@lacerta.tiscalinet.it...


 eq="-2.3+x+y* paperino+sin(y)+exp(z)-sqr(y)"
Basta leggere la firma ;)
--
Math Parser, VB.Framework : 
http://www.neodatatype.net
Sito Comune               : 
http://www.it-lang-vb.net

e se invece volessi che il mio programma ricevesse in input una stringa e la
convertisse in espressione?
immagino che sia molto + complicato, ma mi srebe davvero utile!

 wrote in message news:yZUUa.26430

Cioč?
Io do 4 e lui mi restituisce 2+2?
O quello che vuoi č calcolare la derivata?
Ciao


 convertisse in espressione?
Usa la funzione Eval

 --
Ok!, ma era palese che la stringa la debbo inserire dall'esterno del
programma come ad esempio
in una TextBox!
Ciao


wrote:

...di un oggetto ScriptControl

 Usa la funzione Eval
Non mi risulta che la funzione eval converta un valore _in_ espressione.
O ho capito male la domanda?
Ciao

immagino che sia molto + complicato, ma mi srebe davvero utile!
Piu' che altro sarebbe impossibile perche' violerebbe il secondo
principio della termodinamica.
-- 
ciao, hal

hal1961 ha scritto:

Infatti :) La zuppa di pesce non può tornare acquario (acc... con quante 
"q"?)
Ciao

"q"?)
A parte soqquadro, una dovrebbe sempre bastare ;-)
-- 
ciao, hal

 spedire nei paesi in difficolta' gli scarichi dei nostri water :-P
Allora siamo già a metà del lavoro :) :(
Adesso basta trovare il modo per riavere l'acquario.
Ciao

 Non mi risulta che la funzione eval converta un valore _in_ espressione.
Sì, quello è vero. Infatti la eval restituisce il risultato
dell'espressione. Ma lui diceva di avere una stringa che doveva interpretare
come espressione; cioè una cosa del tipo
espr = "1+2"
e voleva sapere il risultato della stringa interpretata come espressione...
almeno questo è quello che ho capito io.
Sbaglio?

 Sbaglio?
Non lo so, non ho capito il suo secondo post :)
Ciao
