mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Fine esecuzione del programma

1 saluto a tutto il NG.
La mia domanda è la seguente:
Quando chiudo un  1 mio programma la maschera principale sparisce ma se
faccio CTRL+ALT+CANC vedo che il mio programma è ancora in esecuzione.
Come posso fare per poter ripristinare, al termine del programma, tutte le
risorse della memoria?
Spero di essere stato chiaro.
In attesa di una vostra risposta vi ringrazio anticipatamente.

Istruzione "End".
	Lore.


Non sempre basta... Io ho un programma che non si chiude nemmeno a piangere!
Eppure imposto a nothing tutti i componenti e tutto... :(
Boh
                Ciao
                        Allanon

Crei un tasto "Quit" e ci metti l'istruzione END
Marco
"FormW@re" <formwa...@TOGLIMIhotmail.com> ha scritto nel messaggio
news:v9GT6.12733$Zo3.1...@news1.tin.it...


 faccio CTRL+ALT+CANC vedo che il mio programma č ancora in esecuzione.


  End Sub
[SNIP]
Questo non credo serva, perche' gli eventi Unload e QueryUnload vengono
scatenati proprio a seguito di una richiesta di Unload (via codice o tasto
"X" o altro).
La differenza tra i 2 metodi e' che QueryUnload viene invocato subito prima
di Unload e in sostanza ti permette un maggiore controllo sul motivo per cui
la form sta per essere scaricata; prova a guardare la guida di QueryUnload
per i dettagli...
Ciao
--
Luca Dormio
luca....@tin.it

 > faccio CTRL+ALT+CANC vedo che il mio programma è ancora in esecuzione.


Devi usare una procedura simile a questa, per essere sicuro di liberare
tutto:
    IPMenu.Detach 'qui tolgo il subclassing (ti serve solo se ovviamente lo
hai usato)
    Set myDLG = Nothing 'Setti tutte le classi a nothing
    Set IPMenu = Nothing
    Set DPBar = Nothing
    For Each Form In Forms 'scarichi tutte le form
        Unload Form
    Next Form
    ExitProcess GetExitCodeProcess(GetCurrentProcess, 0)   '"ammazzi" il
processo
Come vedi non c'è nessun End.
Personalmente l'End è una soluzione che non mi piace, e credo valga anche
per molti altri.
Byez!

     Next Form
.....
In oltre nell'evento unload di ciascun form puoi settare a nothing tutte le
classi locali ed infine il form stesso.
Ciao.
--
----------------------------------------------------------------------------
Esiste un luogo dove tecnologia e arte si incontrano
www.tecnologiaEarte.net
----------------------------------------------------------------------------
Gianluca Pisano

Per i recordset ricordati di chiuderli prima di settarli a Nothing
altrimenti la memoria rimane allocata lo stesso.
es:
rs.close
set rs = nothing
	Lore.

Una piccola precisazione per Luca Dormio.
Unload e QueryUnload non sono metodi ma eventi.
"Luca Dormio" <lucaFAV...@tinFAVA.it> ha scritto nel messaggio
news:9fns50$s7s$1...@fe2.cs.interbusiness.it...


 ha scritto nel messaggio
news:9fnu0i$ka2$1...@pegasus.tiscalinet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Per esperti di componenti ActiveX

C'è qualcuno che sappia dirmi come fare a richiamare da un form MDI
contenuto in un progetto EXE un altro form MDIChild, che sia contenuto in un
componente ActiveX in process o out of process?
Premetto che il problema consiste nell'associare il form Child al form MDI
che dovrà contenerlo (essendo i due form in progetti differenti) e che tale
meccanismo è possibile in altri linguaggi come Java e C++.

 ha scritto nel messaggio
news:9jk6bo$mqs$1...@pegasus.tiscalinet.it...

Che io sappia :
1) Utilizzi l'API Setparent per inglobare un Child in un MDI (ma anche un
SDI in un altro SDI); ma la cosa è di difficile gestione
2) Esiste in rete un controllo che fa questa funzione (forse a pagamento)...
se cerchi su google, nei post dell'anno scorso con le seguenti chiavi
"Fox Mulder" "SetParent" "child"
dovresti trovare qualcosa ...
Saluti

 2) Esiste in rete un controllo che fa questa funzione (forse a
pagamento)...
si chiama MDIExtender, trovi una demo su 
http://www.devcomponents.com/
 e
,si, e' a pagamento...
Ciao
--
Luca Dormio
luca....@tin.it

Aeronwy Thomas ha scritto
The bridges are many: take one...
Don't be like the proud individual who tried to swim...
and I remake
The "bridges" are many (like dlls): search one...,
but money are few, take it for yourself...
Grazie a Fox Mulder per l'indicazione della dll GetParent, che era molto
semplice da adoperare (anche se andava usata in collaborazione con altre
dlls per evitare alcuni effetti sgradevoli) e grazie anche a Luca Dormio per
l'interessamento.
Questo meccanismo è mooolto interessante perche consente di ottenere una
modularità spinta dei componenti di un progetto.
Riporto a beneficio del newsgroup la soluzione del problema:
NEL FILE ESEGUIBILE
Aggiungere un form MDI contenente la seguente chiamata al form Child del
componente ActiveX
    Dim Prova As New prjProva.clsMostra
    Prova.ShowForm Me.hWnd
NELLA CLASSE MOSTRA DEL COMPONENTE ACTIVEX (EXE o DLL):
1) Aggiungere un form denominato FormProva con proprietà MDIChild=True
2) Aggiungere una classe denominata clsMostra contenente il codice
    Private Declare Function SetParent Lib "user32" _
        (ByVal hWndChild As Long, ByVal hWndNewParent As     Long) As Long
    Private Declare Function GetWindowLong Lib "user32" Alias
"GetWindowLongA" _
        (ByVal hwnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function SetWindowLong Lib "user32" Alias
"SetWindowLongA" _
        (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)
As Long
    Private Const GWL_STYLE As Integer = (-16)
    Private Const WS_CHILD As Long = &H40000000
    Public Sub ShowForm(hWndMDI As Long)
        Dim Child As New FormProva
        Dim hWndOldMDI As Long, dwNewLong As Long
        Load Child
        hWndOldMDI = SetParent(Child.hwnd, hWndMDI)
        dwNewLong = GetWindowLong(Child.hwnd, GWL_STYLE)
        dwNewLong = dwNewLong Or WS_CHILD
        dwNewLong = SetWindowLong(Child.hwnd, GWL_STYLE, dwNewLong)
        Child.Show
    End Sub
P.S. L'effetto non è uguale al 100% a quello ottenuto con VB6.
Bye, Francesco
Newsgroup: it.comp.lang.visual-basic
Titolo: stampa unione e ODBC

Ciao a tutti,
avrei bisogno da un mio programma Vb di lanciare una stampa unione di Word,
che prende i dati da un database Oracle, interfacciandosi via ODBC con
Access (spero di essere stato chiaro, è un giro un po' complicato).
E' possibile da codice passare login e password alla mia connessione ODBC
per effettuare la connessione al database senza che ogni volta mi compaia la
mascherina per digitarle?
Oppure esiste una alternativa a ciò?
Ciao e grazie!

 spero di essere stato *chiaro*
ehm... si usano nick femminili sperando di incontrare maggiori aiuti? :-P
Salutoni
Sergio

 
^__^
---
Carlo Alberto
xsiem.xta...@tin.it
  (togli le x)
--
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.476 / Virus Database: 273 - Release Date: 24/04/2003

Newsgroup: it.comp.lang.visual-basic
Titolo: due domande facili facili

1  ho la necessità di elencare, in una list box o combo box, i nomi delle
tabelle esistenti in un database per poi poterne scegliere una. Come faccio?
2 che espediente posso usare per numerare i righi in un report.
grazzzzie
max

 ha scritto

rispondo a 1. qui sotto, con dao vengono riempiti due combo, il primo con le
tabelle di un mdb, il secondo con i campi della tabella che risulta nel text
del combo:
Private Sub Form_Load()
    Dim td As TableDef, fld As Field
    For Each td In MainDb.TableDefs
        If Left(td.Name, 4) <> "MSys" Then _
            cboTables.AddItem td.Name
    Next
    cboTables = cboTables.List(0)
    Set td = MainDb.TableDefs(cboTables)
    For Each fld In td.Fields
        cboFields.AddItem fld.Name
    Next
    cboFields = cboFields.List(0)
End Sub

 wrote in message
news:ax%G5.34145$Nz.10...@news.infostrada.it...


2 è un semplice libro giornale che come tale deve avere una numerazione per
rigo!
ciao

 wrote in message
news:7aEH5.48686$Nz.14...@news.infostrada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: cursore in textbox

Non riesco a togliere il cursore dal textbox
sto impazzendo
--
Automatic posted from 
www.multiskill.it
 [194.243.109.131]
via Mailgate Server - 
http://www.mailgate.org

...


Oppure se non ci devi scrivere levargli il focus ogni volta che lo
prende (anche se è un po' una soluzione bestiale)
Daniele
On 12 May 1998 18:04:00 +0200, 
mfior...@multiskill.it
 (Monica





Sě ma ti viene grigio e non so se č quello che gli serve
ciao
Daniele

Newsgroup: it.comp.lang.visual-basic
Titolo: Lista dei Task sotto W 2000

Salve, nella mia applicazione utilizzo del codice che mi permette di avere
la lista dei programma in esecuzione.
Purtroppo questo codice non fiunziona sotto Windows 2000.
Ho trovato del codice alternativo che funziona ma purtroppo questo codice mi
restituisce il titolo della finestra ma non il nome dell'eseguibile che poi
è quello che mi interessa.
Vi vorrei chiedere se quancuno ha già dovuto affrontare questo problema e se
mi può indicare il codice corretto o dove andare a prenderlo.
Grazie mille
Michele

 il codice corretto o dove andare a prenderlo.
Per enumerare i processi attivi e recuperare le informazioni su di
essi devi utilizzare la libreria Tool Help sotto 95, 98 e 2000 e la
PSAPI (process status API) o la PDH (Performance Data helper) o
leggere i dati dal registro sotto NT4 e 2000.
Ciao.

> leggere i dati dal registro sotto NT4 e 2000.
Interessante...
Cosa si trova nel registro, dove?
            Grazie :)
                Allanon

 Cosa si trova nel registro, dove?
Tutti i dati sulle prestazioni del sistema (sui processi, servizi,
driver, sul processore, memoria, rete, ecc....).
In realta' questi dati non sono memorizzati nel registro, ma puoi
accedere ad essi come se lo fossero, nella chiave
HKEY_PEFORMANCE_DATA.
Accedere a questi dati tramite il registro e' (ancor piu' in VB)
particolarmente complesso, per cui il SO mette a disposizione un
accesso piu' semplice, ovvero le funzioni PDH (performance data
helper), alcune delle quali specifiche per il loro utilizzo da VB.
Ciao.



bene, anch'io sono interessato all'argomento, ma..
non si potrebbe avere un brano di codice o delle indicazioni su questo
misteriosissimo PDH ?
ciao
Nicola
   Nicola Tornieri
   ----------------------------
  Manens Intertecnica srl
  tornieri[at]
manens.com
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

 indicazioni su questo misteriosissimo PDH ?
http://msdn.microsoft.com/library/default.asp?URL=/library/psdk/pdh/
perfdata_7lb9.htm
(attenzione, il link e' su due righe).
Ciao.

Newsgroup: it.comp.lang.visual-basic
Titolo: problem during printing

When i run my program i.e (printing crystal reports through visual basic)
in my computer it is running but when i try to install the same s/w in
some other computer it is not printing the report and giving error
"database dll error" .
 Is it because of some problem of older version of crystal report because
the os we are using is windows 2000 .
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


No matter your OS.
I think you may experience this simply cause you didn't install correctly
Crystal Report data access dlls and/or mdac_typ.exe.
bye
ugo
Newsgroup: it.comp.lang.visual-basic
Titolo: Contare i caratteri di una di una stringa...

Salve,
chi sa suggerirmi una funzione che mi conti i caratteri all' interno
di una stringa? Mi sembra che esiste un istruzione che restituisca
qualcosa di simile, ma non me la ricordo...che offre il VB a riguardo?
Grazie, aspetto news.
Saluti, ciao ciao.

 wrote in message
39d5cc0f...@news.libero.it...


 wrote in message
39d5cc0f...@news.libero.it...
| Salve,
| chi sa suggerirmi una funzione che mi conti i caratteri all' interno
| di una stringa? Mi sembra che esiste un istruzione che restituisca
| qualcosa di simile, ma non me la ricordo...che offre il VB a riguardo?
| Grazie, aspetto news.
Dim length as integer
dim stringa as string
stringa = "ciao"
length = Len(stringa)
ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Re: [Ot] Windows Xp Pro francese

> mike 



Che dice MS in proposito?
In ogni caso potresti scaricare XP dal P2P ed inserire il codice di 
licenza del CD che ti arriverebbe venerdì.
Saresti così in piena legalità.
bye
Mike ha scritto:


 venerdi.
Prova ad usare la rete torrent o Gnutella (consiglio Shareaza per 
Gnutelle, Gnutella 2 e Edonkey).
Non so con XP, però Openoffice e Ubuntu me le scarica ad altissima velocità.
bye

 ha scritto nel messaggio 
news:469d4ca2$0$16041$5fc...@news.tiscali.it...


 mike
A chi mando la fattura? :-P
bye


In Italia il problema non è mandare le fatture ma riscuoterle.   ;-)
--
ciao
  Stefano

  Stefano 

 "Xp & Co" gestisce i sistemi di navigazione.
...
Mmmmm.... pensa ad un bel crash di sistema nel mezzo dell'atlantico! :-)
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Mmmmm.... pensa ad un bel crash di sistema nel mezzo dell'atlantico! :-)
Titanic.exe ?
Bye, G.

Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 Standard-Professional

Salve, avrei intenzione di comprare Visual Basic 6 STD (versione Standard o
Learning).
Vorrei sapere quali sono le differenze sostanziali tra la versione Standard
e quella Professional (a parte il prezzo ovviamente: la standard 240.000 e
la professional 1.590.000).Mi può convenire comprare la STANDARD? Ci sono
particolari limitazioni rispetto alla professional?
Ciao, Antonio.

 wrote in message
8hsqci$4j2$1...@pegasus.tiscalinet.it...


 ha scritto nel messaggio
news:8ht3cs$kn0$1...@nslave1.tin.it...


Ciao, Antonio
Mi sembra di sì.
Io avevo preso la learning (poi aggiornata a pro) e questa può solo
compilare exe standard (quindi niente ocx, dll activex ecc...).
Non capisco bene la politica M$, ma aquistando separatamente la Learning e
poi l'aggiornamento a pro ho speso quasi la metà!
Learning = 240.000
Agg. Pro = 650.000 (o 700.000? non ricordo...)
Ciao.




No, no, con la Learning non puoi creare il file EXE !!!
Sě, sě, con la learning _puoi_ creare gli exe, ma solo standard e in p-code.
Fidati, io ce l'ho!
Ciao



Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] apertura tanti file

Ciao ragazzi, prima di tutto vi dico che sono molto poco esperto.
Vi sottopongo il mio problema:
Ho fatto un programma che apre un file di testo (nome p*****.txt) dal
percorso c:\ e lo copia in un database. Ok, fino a quì tutto semplice,
ora voglio far copiare tutti i file con questo metodo: apri file
p00001.txt, accodalo nel DB cancellalo da c:\, apri file p00002.txt,
accodalo nel DB cancellalo da c:\ e così via.
Vi chiedo gentilmente chi mi può spiegare o mostrare un codice che mi
permetta di fare questo lavoro. (i file.txt iniziano sempre con P)
Ciao e grazie
Luca

 wrote in message
news:137ebb29.01100...@posting.google.com...

Abbastanza semplice... Anzitutto inserisci il codice che fa quel lavoro in
una funzione cosi' lo wrappi per bene e non ci pensi piu', poi trasforma
quel tuo nome fisso in una variabile passata alla funzione, infine usa la
funzione Dir per cercare "p*.txt" e passare il suo risultato alla tua
funzione.
Fatto questo puoi eliminare il file con kill.
Dettagli di Dir e Kill premendo F!.
Ciaotutti,
*

Dettagli di Dir e Kill premendo F!.
 > F
Sub or Function not defined
^___^
Ciao,
Moreno
#sirri#@#
morenosoft.com#
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------


Whoops :P
F1 :PP
Ciaotutti,
*
Newsgroup: it.comp.lang.visual-basic
Titolo: Dipendenze DLL vb.net

Ciao a tutti,
supponiamo che ho una mia DLL di utilit� varie per i miei progetti.
 
In questa DLL voglio aggiungere una funzionalit� che implica di
referenziare una librearia di terze parti (es. per creare PDF
Bullzip.PDFWriter.dll).
 
Nei progetti che usano la mia DLL, devo rientrare in ognuno e referenziare
a mano Zip.DLL.
E' normale questo comportamento, o c'� qualche configurazione che permette
di farlo in automatico?

 di farlo in automatico?
 
Se nell'interfaccia pubblica della tua DLL eviti di esporre direttamente classi di Zip.dll, allora non è necessario propagare i riferimenti anche agli altri progetti.
 
Se non ne puoi fare a meno, allora no, non credo ci sia un meccanismo automativo per aggiungerlo a tappeto, fatto salvo qualche macro/batch che ti vada a modifica il testo dei .vbproj

 che ti vada a modifica il testo dei .vbproj
 
Ok, allora no, posso farlo a mano nel caso.


ci son passato....è un casino!
 
Quel messaggio è perchè usi in un progetto FW4 qualche componente FW < 
4..in genere sono 2 qualcosa
 
M'è capitato con asp.net....aruba accetta fw 3.5...alcuni assembly erano 4.0
 
e viceversa in 
vb.net
 usato sqlite 3.qualcosa in 4.0
 
Per tagliare la testa al toro dovresti avere un compilato "esterno" in 
linea con il tuo progetto "interno"
 
altrimenti smanettare di config..ma è sempre una pezza
http://stackoverflow.com/questions/2647197/can-net-4-0-code-interoperate-with-net-2-0-code
 
 
io alla fine ho trovato un compilato "compatibile fw4"....ma intanto 
avevo "depotenziato" il progetto a fw 3.5!

 avevo "depotenziato" il progetto a fw 3.5!
 
Nel mio caso � diverso.
Ho un progetto fw2.0 con una mia libreria compilata fw2.0.
Se questa libreria referenzia una terza libreria (sempre f2.0), nel mio
progetto da quell'errore, almeno che nel progetto referenzi a sua volta la
medesima libreria.

 medesima libreria.
 
Ci deve essere qualche pasticcio da qualche parte perchè il messaggio di errore che hai postato era un po' ambiguo.
Dal canto mio so per certo di avere una situazione "tutto 2.0" in cui non ho dovuto fare tutta la propagazione dei riferimenti
Ad esempio, una class library che si occupa di creazione documenti office/open office/open document ecc... viene usata da più di un progetto ma è l'unica in cui sono state referenziate le librerie specifiche per gestire quei formati

 le librerie specifiche per gestire quei formati
 
Prover� con un progetto vuoto a fare una prova, appena ho tempo e poi vi
faccio sapere. Grazie per ora :)
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] calcolare l'inverso del coseno

Come da oggetto la mia domanda č: come calcolare in VB6 l'inverso della
funzione trigonometrica coseno? (trasformare valori compresi tra -1 e 1 in
angoli)
grazie a tutti
Andrea

 angoli)
permettimi un pizzico di sarcasmo...
Cos -> F1 e matemagicamente appare un link, See Also, con un rimando a...
Derived Math Function.
Per i più pigri: VB ha nella sua libreria di funzione matematiche una sola
funzione trigonometrica inversa, l'arcotangente (Atan). Da lì si ricavano
tutte le altr con un po' di trigonometria o un po' di F1. Nel tuo caso:
Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
Ciao, Silv:o)

 ha scritto nel messaggio
news:9r3qhl$qofio$1...@ID-83521.news.dfncis.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: Richiesta strana del cliente

Una richiesta un po' strana fatta da un cliente.
Devo mandare dei messaggi in una intranet con outlook
da postazione a postazione.
Vogliono pero' che in ogni email compaia il logo dell'azienda.
Una email Html sicuramente,
ma ho provato a mandare codice html nel corpo dell'email
e al ricevente compare esattamente il codice Html scritto dallo scrivente.
Come si puo' ovviare ?
Grazie a tutti, so che mi risponderete .

 Come si puo' ovviare ?
Devi specificare "Content-Type: text/html;" nell'header
bye

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Scomporre le singole cifre di un numero per sommarle tra loro

Salve,
Se in una label (label1)ho un numero (ad es. 2005), come posso operare per
fare in modo che in un'altra label (label2) compaia la somma di ogni singola
cifra del numero precedente? (2+0+0+5=7)
Grazie in anticipo.
Zuril

 ha scritto nel messaggio
news:9a77ia$t6b$1...@fe1.cs.interbusiness.it...


 cifra del numero precedente? (2+0+0+5=7)
(non l'ho testato)
Public Function SumCaption(ByVal strCaption As String) As Long
    Dim lngResult As Long
    Dim i As Integer
    For i = 1 To Len(strCaption)
        lngResult = lngResult + CLng(Mid$(strCaption, i, 1))
    Next
    SumCaption = lngResult
End Function
Label2.Caption = SumCaption(Label1.Caption)
Faber

cifra del numero precedente? (2+0+0+5=7)
Public Function SommaCifre(ByVal Numero As Long) As Long
    Dim somma As Long: somma = 0
    Dim copia As Long
 
    Do
        copia = Numero \ 10
        somma = somma + (Numero Mod 10)
        Numero = copia
    Loop While Numero
 
    SommaCifre = somma
End Function
ciao, hal

Grazie a tutti per l'aiuto. come al solito siete stati molto utili e con i
vostri suggerimenti, ho risolto. grazie ancora.
Zuril.

cifra del numero precedente? (2+0+0+5=7)
Una precisazione: questo significa "calcolare la radice di un numero".
Radice ovviamente non intesa come radice quadrata.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Lanciare una procedura su un altro form

Salve.
Mi spiego subito.
Supponiamo di avere 2 form con i relativi moduli per il codice.
Il primo form ha 5 pulsanti Command1(index) su cui indico:
MSGBOX "Io sono il numero " & index
Il secondo form ha un tasto Command1 e una Textbox con un valore numerico
Domanda:
Come si fa a dire al pulsante sul secondo form : "Quando ti premo, esegui
l'evento Click del pulsante sul primo form con index uguale al numero della
textbox" ?
Cioe':
' Secondo modulo
Private Sub Command1_Click
    a=CINT(Text1.Text)
    Form1.Command1_Click(a)  '??????????????
End Sub
Grazie
frankyz
PS. So che la logica della struttura ha un errore concettuale e non e'
probabilmente possibile lanciare questa routine. Ma allora quale potrebbe
essere una scappatoia?

 wrote in message
news:8tvf77$fr6$1...@nslave3.tin.it...

Sul secondo form:
Public Sub RunProc()
    Command1_Click
End Sub
Sul primo form:
Form2.RunProc
''''
Spero di non avere invertito i form.
Ciao
Aldo

 essere una scappatoia?
potresti fare una sub pubblica parametrizzabile in un modulo e richiamarla
da dove ti serve. dubito che da form2 form1.command1_click funzioni.
ciao, a.





Dal form che contiene 1 pulsante e la 
textbox


 


Private Sub 
Command1_Click()
Form1.Command1(CInt(Text1)).Value = True
End 
Sub

Newsgroup: it.comp.lang.visual-basic
Titolo: [ASP.NET] Cosa posso usare al posto del recordset?

Ciao,
avrei bisogno di mettere una serie di dati un una variabile per poi
prenderne i valori con un ciclo For.
Ho visto tanti esempi in cui si usa il tipo ADODB.recordset e poi, alla
fine del ciclo FOR il comando MoveNext.
Quale comando devo usare in ASP.Net per poter utilizzare qualcosa di
simile al movenext? Ho provato con il datagrid ma non me lo dą, mi
sapete aiutare?
Grazie, Ciao
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Puoi usare il datareader che ha un metodo datareader.read


> Puoi usare il datareader che ha un metodo datareader.read
Adesso ci provo, grazie!


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

Nel rendere visibili alcuni oggetti e contemporaneamente invisibili degli
altri (frame,textbox ecc...) si manifesta una certa lentezza nel ridisegnare
i form.
Va usato qualche trucchetto speciale per evitare questo fastisioso
inconveniente?
Grazie

luana ha scritto:

1. "Alleggerire" i form: probabilmente c'e' troppa roba sopra (come numero
    e tipo di controlli);
oppure:
2. Prima del ridisegno bloccare l' aggiornamento della visualizzazione con
    LockWindowUpdate (funzione dell' API) e ripristinare la visualizzazione,
    sempre con LockWindowUpdate, quando hai finito di nascondere / mostrare.
-- 
ciao, hal

 ha scritto nel messaggio
news:ad01cr$f9$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: VB Interpretato o compilato?

VB è un linguaggio interpretato o compilato?
Mangiafuoco

 wrote in message
news:do6hrs0eml8rc7vs7...@4ax.com...


Ciao,
Sei sicuro?
Secondo me viene compilato in modo interpretato. :)
Alla fine ormai la differenza è solo una finezza di forma.
Il linguaggio rimane sintatticamente interpretato, anche se poi viene
compilato.



Ok ragazzi, grazie per le risposte. Però non è che abbia capito
molto... che significa che e' sintatticamente interpretato e che poi
viene compilato???
Insomma in definitiva è compilato o interpretato?
Mangiafuoco

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

Grazie Ugo, sei stato molto chiaro.
Mangiafuoco
Newsgroup: it.comp.lang.visual-basic
Titolo: command button

Come faccio a far cambiare colore ad un bottone passandoci sopra con il
mause?
Grazie

 il mause?
Il sistema più semplice che mi viene in mente (senza subclassing) è una cosa
del tipo:
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Command1.BackColor = vbBlue
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single,
Y As Single)
Command1.BackColor = vbRed
End Sub
Naturalmente occore impostare a 1 la proprietà style del button
--
Dark Hado
This posting is provided "AS IS" with no warranties, and confers no
rights.

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

Qualcuno sa se da qualche sito si puo' scaricare la versione completa di Vb
Total Source Book
Grazie


Cos'e'?
--
Roal Zanazzi
z...@iol.it

 --
Contiene i sorgenti dei vari controlli usati in VB



 wrote in message
7jiil3$9rm$1...@fe1.cs.interbusiness.it...

Quali controlli? Non credo proprio che la M$ distribuisca i sorgenti dei
suoi OCX (tanto meno dei controlli nativi di VB ;-)
Scusa se faccio tutte queste domande, ma vorrei capire cos'e' 'sto Total
Source Book...
--
Roal Zanazzi
z...@iol.it

 wrote in message
news:7jjqdc$p61$1...@hermes.iol.it...

Se ti passi il sito della microsoft te lo trovi dentro..

Newsgroup: it.comp.lang.visual-basic
Titolo: [ASP] Ancora Errore di sintassi

Salve a tutti,
    io continuo ad avere un problema con un link href e l'evento onClick
dichiarato nel
link il tutto dovrebbe aprire un popup. Il tutto è inserito in una variabile
ASP/VBScript. Il problema è che non funziona.
So che avevo già aperto un post tempo fa ma con le soluzioni non va... e ci
ritento... ;(
Ecco com'è definito in vbscript:
link= <a href='#' onClick=""""window.open('link.asp?tip=u','','menubar=no,
channelmode=no, status=no, titlebar=0, scrollbars=yes, width=650,
height=280');"""">link</a>
Ecco cosa risulta in html nella pagina asp:
<a href='#' onClick=""window.open('link.asp?tip=u','','menubar=no,
channelmode=no, status=no, titlebar=0, scrollbars=yes, width=650,
height=280');"">link</a>
Ho provato con ogni sorta di numero di doppi apici o apice singolo... non so
che fare... HELP! Mi dite come trasformare il codice in vbscript?
Grazie!

 vbscript?
VBScript c'entra poco e nulla... comuque:
<SCRIPT LANGUAGE=Vbscript>
<!--
Sub OpenPopUp()
    window.open("link.asp?tip=u","","menubar=no, channelmode=no, 
status=no, titlebar=0, scrollbars=yes, width=650, height=280")
End Sub
-->
</SCRIPT>
<a href='#' onClick="OpenPopUp()"> link</a>
Ciao
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca

 <a href='#' onClick="OpenPopUp()"> link</a>
No forse mi sono espresso male...
Io devo inserire la richiesta del popup all'interno di una variabile. Nel
mio esempio ho messo nel cod vbscript "link=" prima del link e volevo sapere
come fare...
link= <a href='#' onClick=""""window.open('link.asp?tip=u','','menubar=no,
channelmode=no, status=no, titlebar=0, scrollbars=yes, width=650,
height=280');"""">link</a>
Cmq grazie mille!
Newsgroup: it.comp.lang.visual-basic
Titolo: ADO ed Access

Per favore, come si può aprire un database access protetto da password con
ADO?
--------------------------------
Inviato via 
http://usenet.libero.it


http://www.able-consulting.com/ADO_Conn.htm
spulcia questa pagina...mettila fra i preferiti...e sperimenta!
bye man!
--
Il Wodkino Nazionale è a : 
www.martek.it
Pagina Vb/Bestiario/Lamer Experience :
http://www.martek.it/go.asp?portamia=2
 Quotefix e altro:
http://www.martek.it/go.asp?portamia=4
Usr: ICLVB Pw: amici

 password con ADO?
Puoi usare una stringa di connessione come questa..
strConnessione = "Driver={Microsoft Access Driver (*.mdb)}; " _
                            dbq=" & nomeDB & ";Pwd=" & Pwd & ";"
O questa...(meglio)
strConnessione = "Provider=Microsoft.Jet.OLEDB.4.0;Password=" & PWD &
                            " ;Data Source=" & nomedb
MIk

Newsgroup: it.comp.lang.visual-basic
Titolo: mentre scrivoc on VB sulla cart1EXCEL,siblocca. PERCHé???

Aiutatemi ragazzi,perchč mentre scrivo sulla cartella di excel con un ciclo
da vb,mi si blocca la cartella di excel,e quando provo a fermare tutto mi
compare un messaggio"richiesta del componente sospesa....l'applicazione
potrebbe essere bloccata." e i tasti sono solo PASSA A o RIPRVA senza
ANNULLA.?grazie per la vostra pazienza!!!
--------------------------------
Inviato via 
http://usenet.libero.it

 ANNULLA.?grazie per la vostra pazienza!!!
Accade quando ciò che stai ordinando a Excel richiede l'intervento
dell'operatore, ma Excel non è visibile.
Ad esempio, se stai inserendo una formula od un valore non ammesso, in Excel
apparirebbe un errore.
Ciao
Alberto

Newsgroup: it.comp.lang.visual-basic
Titolo: Creare un array di controlli in run time

Ho creato una serie di controlli Image in run time con un loop.
Creando il
nome in maniera dinamica.
Non riesco, però a creare con lo stesso sistema
un array di controlli, ossia anzichè avere la stringa del nome
nomeControllo="Img" & i
deve essere Img(i).
Grazie
--------------------------------
Inviato via 
http://usenet.iol.it

Ehhhh?????
Forse se rabdomo ancora bene devi usare load xxxx(i).
Salve
                Dbg
Sosan ha scritto nel messaggio
]zac[


 Grazie
Mi vien da pensare che il nome del controllo in realta' non ha indice...
Text1(0) ha come nome Text1, 0 e' il suo Index.
Prova ad assegnare l'indice in runtime, se riesci, ma mi sa che e' dura...
Oppure prova a creare un altro controllo dello stesso nome e vedi che
sucede.
Posta il codice magari :)
Ciaotutti,
Alessandro
Newsgroup: it.comp.lang.visual-basic
Titolo: Come si fa a creare un link ad un exe da prog in VB5 ?

Questa è la domanda; chi lo sa batta un colpo...

...


 wrote:
If Dir("<PATH>")<>"" Then
       RetVal = Shell("<PATH>", 1)
Else
       MsgBox "Applicazione mancante!", vbExclamation
End If



Nel progetto del programma di installazione di VB5 viene utilizzata la
funzione OSfCreateShellLink, si trova in VB5STKIT.DLL, la declare, tratta dal
modulo basCommon, č la seguente:
Declare Function OSfCreateShellLink Lib "VB5STKIT.DLL" Alias
"fCreateShellLink" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As
String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String) As
Long
Non ho mai approfondito molto l'argomento, non saprei dirti niente di piů,
spero ti serva come indicazione.
Ciao e auguri.
---
Daniele Grison
gri...@tin.it


Option Explicit
Private Declare Function fCreateShellLink Lib "Vb5stkit.dll" _
    (ByVal lpstrFolderName As String, _
    ByVal lpstrLinkName As String, _
    ByVal lpstrLinkPath As String, _
    ByVal lpstrLinkArgs As String) As Long
    'se si usa vb4 la dll è STKIT432.DLL
Private Sub Command1_Click()
'Il primo parametro (lpstrFolderName) si riferisce alla directory
'Programmi (di solito in c:\windows\menu avvio\programmi)
'per risalire è necessario usare "..\"
' esempio: crea un collegamento al blocco note sul desktop
Call fCreateShellLink("..\..\Desktop", "Collegamento a notepad",  _
"c:\windows\notepad.exe", "")
End Sub


------
Ciao!
Visto che questa domanda viene posta sempre piů spesso, ho messo sul mio
sito Internet un progetto di esempio che mostra come creare/rimuovere un
collegamento e aggiungere gruppi di icone utilizzando le API.
Se hai altri problemi, fatti sentire.
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260/
http://www.armaditaggia.com/marco
Newsgroup: it.comp.lang.visual-basic
Titolo: vb.net consiglio libreria per gestione imap

Salve a tutti,
starei cercando una libreria (possibilmente opensource/free) per gestire 
email e allegati con una casella imap. La mia necessit� � ricevere email, 
spostarle in un'altra cartella e inviare email... Qualche consiglio? Ho 
visto che ci sono molte soluzioni, e vorrei un vostro consiglio su quale 
potesse essere la migliore.
 
grazie 1000
D. 
 

 D.
 
Ciao, qui trovi degli esempi:
 
http://www.example-code.com/vb/imap.asp
 
 
mentre questa mi sembra una buona libreria:
 
http://www.lesnikowski.com/mail/
 
 
anche questa; è free ma pesantina (non eccessivamente):
 
http://mailsystem.codeplex.com/
 
 
spero tu possa trovare ciò che t'interessa.
Newsgroup: it.comp.lang.visual-basic
Titolo: intestazione email vb 2005

uso questo codice per inviare una email:
Dim mail As New MailMessage(TextBox1.Text, TextBox2.Text,
TextBox5.Text, TextBox4.Text)
Dim emailClient As New SmtpClient(TextBox3.Text)
emailClient.Send(mail)
volevo sapere se c'è un modo per modificare l'intestazione del
messaggio... grazie

Daniele ha scritto:

Cosa intendi per "intestazione"? Se intenti l'oggetto (Subject) è la 
stringa che hai indicato come TextBox5.Text.
-- 
news:it-alt.comp.software.openoffice : Il newsgroup dedicato a
OpenOffice.org, la suite open source di applicazioni per ufficio.
Saluti, VITRIOL


Subject: Microsoft Download Notifications: April 6, 2007
Date: Fri, 6 Apr 2007 13:48:44 -0700
Message-ID: <3618701c7788c$f7823a50$14f9...@phx.gbl>
X-Mailer: Microsoft CDO for Windows 2000
Content-Class: urn:content-classes:message
Importance: normal
Priority: normal
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.3790.2826
Return-Path: 
Micr...@newsletters.microsoft.com
X-OriginalArrivalTime: 06 Apr 2007 20:48:44.0867 (UTC)
FILETIME=[F7A1A930:01C7788C]
X-Spam-Checker-Version: SpamAssassin 3.0.3 (2005-04-27) on
eva.puntoweb.net
X-Spam-Level: *
X-Spam-Status: No, score=1.3 required=7.0 tests=AWL,HTML_90_100,
	HTML_FONT_INVISIBLE,HTML_MESSAGE,MIME_HTML_ONLY autolearn=no
	version=3.0.3
X-Antivirus: AVG for E-mail 7.5.446 [268.18.26/748]
Mime-Version: 1.0
Content-Type: multipart/mixed;
boundary="=======AVGMAIL-46174A244405======="

 intendo quel testo simile a:
[CUT]
Ah, OK.
Prova a guardare il metodo mail.Headers.Add() per aggiungere header 
personalizzati.



grazie 1000!
da quanto ho capito, quindi, si possono aggiungere degli headers ma
non modificare quelli già esistenti, giusto?

 non modificare quelli già esistenti, giusto?
Non me ne intendo molto di e-mail, ma secondo me molti header sono 
generati direttamente dal server di posta del provider che usi. Questi 
dubito che possano essere modificati.
Comunque aspetta qualche consiglio più esperto :-)


 wrote:

a proposito, mi sono imbattuto in diversi programmi capaci di inviare
email senza che l'utente debba specificare l'smtp: per curiosità, che
sistema usano?

 sistema usano?
Boh, magari cercano nel registro di configurazione le impostazioni del 
client e-mail, esempio di OE. Ma è solo una mia ipotesi azzardata :-)


PS
E spero tu non stia tentando di creare un trojan o un programma 
spara-spam... scherzo, non te la prendere :-)



:-)
sto solamente cercando di trovare un modo per farmi inviare una email
contenente i vari errori che si verificano durante il beta-testing del
mio programma, che passo ad amici e parenti.
ciao!

 mio programma, che passo ad amici e parenti.
Io avevo provato tempo fa a inviare mail, ma non ho trovato un metodo 
"universale".
Ad esempio con Alice basta specificare il server SMTP, e non si lamenta. 
Invece con Gmail occorre abilitare la connessione sicura SSL e passare 
user e password tramite una istanza di NetworkCredential, altrimenti non 
c'è nulla da fare.



azz... magari allora scriverò un file su un server...
soluzione molto piu semplice :)
Newsgroup: it.comp.lang.visual-basic
Titolo: evitare di aprire due volte...

come faccio ad evitare di aprire due volte lo stesso programma...
un salutone...

 wrote in message
news:10166199...@server.darkside.it...


 wrote in message
news:a79q9f$jdlf7$1...@ID-77234.news.dfncis.de...


un salutone...
Leggi il menifesto.....
cmq
If App.PrevIstance=True Then
	msgbox "Esiste già una istanza del programma."
	' e poi fai quello che vuoi...
EndIf
Ciao, Aran


Eccesso di sintesi, non si capisce mica cosa intendi.
Se intendi "come evitare che l'utente crei due istanze del mio programma"
allora devi guardare le proprieta' del progetto e impostare che funzioni a
istanza unica.
Se intendi altro spiega in dettaglio di cosa si tratta.
ciao
Paolo B.

 mito.
QUOTAAAAAAA!
Eccheccacchio!
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Salvare un'immagine dentro a un field dbase MDB

Ciao a tutti....
Vorrei sapere come si fa a salvare un file Immagine ( es: bitmap ) che ho
creato
dentro ad un campo correttamente configurato per contenerlo..... in access
la cosa
funziona se vado in Inserisci -> oggetto ecc...... e in VB ADO ???
Grazie anticipato
Ivano

funziona se vado in Inserisci -> oggetto ecc...... e in VB ADO ???
ciao, hal

 wrote in message
9nbc98$6jkf8$1...@ID-56381.news.dfncis.de...


 wrote in message


 wrote in message
9ncucs$6lcmn$1...@ID-51318.news.dfncis.de...


 leggere il codice.
credo sia contenuto nel link Download -> prog-code_img-db.zip
Java... scusa ma, in effetti, la reperibilità dei link è fatta da un po' da
"cani" :P
Ciao

> Mi spiego meglio in una tabella di access si puo definire il tipo di dati
[snip]
java, il tuo umano non avrebbe mai fatto una cosa del genere ...
mi sa che se se ne accorgesse ti dimezzerebbe la razione 
giornaliera di croccantini :-P
ciao, hal

 giornaliera di croccantini :-P
lo so. a differenza di quello la', subdolamente mi adeguavo alla risposta
gia' presente sopra il post.
non scordarti che uno di noi s'e' cuccato vari anni alla casa bianca, e che
siamo molto uniti.
ciao, j.monica

 "cani" :P
selezione naturale. se non si capisce qual e' la pagina, la vedo grigia
(d'altronde noi cani vediamo pochissimo i colori) sull'adempimento del
compito prefisso :))
scusa ivano, ma quello la' e di conseguenza io siamo in un periodo
abbastanza inverso. si', e' il codice di img_db. se ci ragioni un po' sopra,
credo possa servirti.
ciao, j.ole

 ha scritto
ps -- tutti i file stanno nella pagina download.
ciao, j.zip
Newsgroup: it.comp.lang.visual-basic
Titolo: stampare PDF da Visual Basic 6 senza aprire ACROBAT READER

ciao,
dovrei stampare un sacco di PDF su una certa stampante.
Ho già scritto in Visual Basic 6 il codice per selezionare i PDF da
stampare, ma come si fà per stamparli uno dopo l'altro senza aprire
l'acrobat reader.
grazie...

ho già avuto modo di avere a che fare con un lavoro simile.
cerca FilePrintSilent su google e troverai la soluzione
(sono fuori ufficio, se non trovi niente fammi sapere che ti invio un
vbp)
Attenzione: funziona solo con AcrobatReader 4.0
(per lo meno è quello che ho verificato io,
che non volevo la finestra di dialogo di ar, e volevo poter
settare da vb la stampante su cui stampare)
saluti.

se mi spedisci un esempio mi fai un favorone.
Ho anche un altro problema, ho ordinato i file da stampare in ordine
alfabetico decrescente ma se controllo nella coda della stampante i
processi di stampa non hanno l'ordine con cui li ho generati.
Forse devo aspettare qualche secondo tra l'invio di una stampa e
l'altra ???

Spero possa tornare utile.
A disposizione per informazioni o chiarimenti.
________________________________________
Private Sub PrintPDF(FileFolder As String, FileName As String,
Stampante As String)
On Error GoTo gestioneerrori
Dim opnReader As Long
Dim strExecute As String
setPrinterDefault Stampante
'NB: cfgacrobat contiene il percorso dell'.exe di acrobat reader
opnrdr = Shell(CFGACROBAT, vbHide)
strExecute = "[FilePrintSilent(" & Chr$(34) & FileFolder & "\" &
FileName & Chr$(34) & ")]"
With lblDDE
.LinkMode = vbLinkNone
.LinkTopic = "acroview|control"
.LinkMode = vbLinkManual
.LinkTimeout = 32760
.LinkExecute strExecute
' chiudo
.LinkMode = vbLinkNone
.LinkTopic = "acroview|control"
.LinkMode = vbLinkManual
.LinkTimeout = 32760
.LinkExecute "[AppExit]"
End With
Exit Sub
gestioneerrori:
End Sub
__________________________________________________
Private Sub setPrinterDefault(STAMPANTE As String)
Dim x As Integer
For x = 0 To Printers.Count - 1
If Printers(x).DeviceName = STAMPANTE Then
Set Printer = Printers(x)
x = SetDefaultPrinter(Printer)
Exit For
End If
Next x
End Sub





!!!!!
Scusate il casino che ho combinato.



grazie...
dai un'occhiata a 
http://reportman.sourceforge.net/
 
io uso questo per i report e ha l'export in PDF, XLS e altri formati.
Ciauz
-- 
web: 
http://www.ponchio.it
Replay to: *[[banjo]]spamdim..@**
ponchio.it
**
"E' un vero peccato che tutte le persone che sanno come far
funzionare il paese siano troppo occupate a guidare taxi o
a tagliare capelli" - George Burns
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Download resume

Ciao a tutti...
So di non essere il primo ad aver fatto questa domanda... ma... Vorrei
proprio sapere un paio di cose circa il resume di download:
1) Come posso sapere se il server permette il resume
2) Come posso fare il resume di un file incompleto..
Esiste qualcosa di già fatto, un sito dove si dica qualcosa in merito o devo
"sniffare" getright e poi usare il winsock?
                Ciao & grazie
                        Allanon

 1) Come posso sapere se il server permette il resume
Potresti mandargli un REGET e controllare nella risposta il codice di
errore, oppure un HELP e vedere se c'e' quel comando.
-- 
 Pastrano

Newsgroup: it.comp.lang.visual-basic
Titolo: Creazione di oggetti con notifica asincrona

Ciao a tutti qualcuno di voi ha mai provato a creare un componente con
funzionamento "out of process" con eventi di notifica asincrona?
Da quello che ho capito cercando in rete si deve richiamare una procedura
dal programma client che attivi un timer nel componente, il quale poi
rilascia il controllo al client. La funzione poi esegue le routine asincrone
e richiama gli eventi di risposta al client.
La teoria va tutta bene ma in pratica non riesco ad attivare il timer creato
nell'oggetto remoto e a far partire le funzioni asincrone
qualcuno sa' aiutarmi?
Grazie in anticipo
Ciao

 ha scritto nel messaggio
news:YphS5.5428$FV2.1...@news.infostrada.it...

Il server ha una form? Nel caso la cosa è semplice:
clsLancia
public Event OperazioneTerminata()
Public sub Lancia()
    if frmTimer is nothing then
        load frmTimer
    end if
    set frmTimer.objLancia=Me
    frmTimer.TimerEventi.Interval=1
    frmTimer.TimerEventi.Enabled=true
end Sub
friend Sub Operazione()
    ...
    'fine operazione
    raiseevent OperazioneTerminata()
end sub
frmTimer
public objLancia as clsLancia
Private Sub Form_Load()
    TimerEventi.Enabled=false
end Sub
private Sub TimerEventi_[Non mi ricordo come si chiama l'evento]()
    if not objLancia is nothing then
        objLancia.Operazione
    end if
    set objLancia =nothing
end sub
Lato client
private withevents objLanci as clsLancia
da qualche parte nel codice
    ...
    set objLancia=new clsLancia
    objLancia.Lancia
    ...
Private sub objLancia.OperazioneTerminata()
    'notifica evento di fine
end sub
Se invece il server non dispone di form puoi sempre mettercene una fittizzia
oppure usare le api per creare un timer via codice. Di questa seconda
tecnica dovresti trovare degli esemi su internet e forse anche sul sc.
Ciao, Rick.
Newsgroup: it.comp.lang.visual-basic
Titolo: lanciare un Html HelpFile da VB5

ma... VB5 non supporta il formato chm di HTML Workshop?
se scrivo App.Helpfile = ........chm
e premo F1 mi viene detto che il file non appartiene alla guida di windows o
è danneggiato (cosa non vera , perchè se clicco direttamente sul file
funziona benissimo)
se cerco di lanciarlo con la istruzione  Shell   mi viene dato errore di
run-time 5..., e qui posso anche capire, dato che non è un exe.
qualcuno sa come lanciare 'sto benedetto file?
forse abbinandolo in qualche modo a  hh.exe?
ty

 ha scritto

Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String,
ByVal lpFile As String, ByVal lpParameters As String, ByVal
lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Sub Form_Load()
'KPD-Team 1998
'URL: 
http://www.allapi.net/
'E-Mail: KPD...@Allapi.net
'Send an E-Mail to the KPD-Team
' col loro esempio lanci il tuo mailclient:
        ShellExecute Me.hwnd, vbNullString,
"mailto:
KPD...@Allapi.net
", _
            vbNullString, "C:\", SW_SHOWNORMAL
'oppure puoi aprire un .doc:
        ShellExecute Me.hwnd, vbNullString,
"c:\documenti\emiliano.doc", _
            vbNullString, "C:\", SW_SHOWNORMAL
scarica dal sito allapi l'apiguide free.
--
ciao, j.
www.sundaysw.com

provato, grazie, funziona perfettamente.
adesso ho solo da capire come ordinargli di chiuderlo... ma intanto siamo
sulla buona strada
ty
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con posizione form

Ho scoperto un problema in vb.
Non so se e' un bug o che, ma se faccio partire la form in posizione di
avvio
"Centrata", e vado a fare la GetWindowRect per ricavarne le coordinate
su schermo LEFT e TOP queste risultano 0 anche se la form e' a centro
schermo. Se la metto invece a mano centrata e' tutto regolare.
Qual'e' il problema?
Elena.

 ha scritto nel messaggio
news:38E9874D...@supereva.it...


 ciao
Ho risolto chiamando la GetWindowRect nella form Paint.
Prima la chiamavo nella form Load.
Evidentemente nella form Load la crea (e infatti le dimensioni
me le dava giuste) nell'angolo in alto (infatti Top Left 0,0) e
solo nella paint la posiziona.
Elena.

solo nella paint la posiziona.
non ti conviene metterlo nel Form_Activate?
Faber

Faber wrote:

Si potrei ma penso sia la stessa cosa.
Elena.

Si potrei ma penso sia la stessa cosa.
no, il Form_Activate avviene ogni volta che la tua form viene attivata (solo
se la finestra che prima aveva il focus appartiene al tuo programma), mentre
l'evento Paint avviene ogni volta che la finestra si ridisegna, molte ma
molte più volte di più dell'altro
per fare una prova metti
nel Form_Activate
    Debug.Print "Activate"
nel Form_Paint
    Debug.Print "Paint"
poi lancia il prg, sposta la finestra, passacene sopra un'altra (anche
esterna, va benissimo) e vedrai che roba...
Faber

Faber wrote:

Ho capito, ma nel mio caso va bene cosi' visto che devo calcolare la sua
posizione
ogni qualvolta venga spostata.
Ciao.
Elena.

ogni qualvolta venga spostata.
mmm l'evento Paint non avviene ogni volta che la form viene spostata, l'ho
visto facendo al volo nel Form_Paint
static i as integer
i=i+1
debug.print "Paint " & i
e poi spostando la finestra...
se hai bisogno dell'evento "Move" devi effettuare il SubClassing
intercettando il messaggio WM_MOVE
Ciao
Faber


Roal Zanazzi