mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con compilazione in VB6

Ho eseguito la compilazione del mio programma il 29/09 senza nessuna
difficoltà; oggi eseguo la compilazione e non mi viene creato il file EXE!!!
Mi spiego meglio; lancio la compilazione, la barra di avanzamento arriva
circa al 60% e poi appare il messaggio di "Scrittura dell'EXE in corso..." e
VB si chiude.
Questo accade su un sistema con Win2000PRO (SP1), VB6 (SP5).
Su un sistema con Win98 e VB6 (SP5) stessa identica cosa con la variante del
messaggio finale: "Questo programma ha eseguito un'operazione non valida e
sarà terminato. - VB ha provocato un'errore nel modulo <sconosciuto>".
Altri programmi mi vengono compilati senza problemi.
Qualcuno ha dei suggerimenti da darmi?
Grazie anticipatamente. VincePik


wrote:

A me succedeva quando qualche OCX o DLL referenziati nel progetto non
erano correttamente installato oppure "avevano perso le licenze"...
prova a controllare...
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
---------------------------------------------------------------------------

 ha scritto nel messaggio
news:Judv7.3391$DW5....@news2.tin.it...


 ha scritto nel messaggio
news:PBdv7.4381$pm2....@news1.tin.it...


 ha scritto nel messaggio
news:PBdv7.4381$pm2....@news1.tin.it...


 ha scritto nel messaggio
news:oagv7.5014$pm2....@news1.tin.it...


[MAXISNIP]
E poi?????
La netiquette e' diventata un'optional da un giorno all'altro?
Cerchiamo di non quotare tutta la Sacra Bibbia ad ogni post, cortesemente...
E si risponde SOTTO... Anche per evitare di trascinarsi dietro 200k di quote
per 8 byte di reply.
Ciaotutti,
*

 wrote in message
news:Judv7.3391$DW5....@news2.tin.it...

Anche a me è successa la stessa cosa ed utilizzavo un ocx
di terze parti scritto in C++ che non veniva scricato dalla memoria quando
rilasciato.
Non sò perchè ma, anzi grazie ad uno strano messaggio di Windows2000 SP2 e non
mi dilungo,
ho eliminato tutte le icone dalle forms e come per miracolo...
spero di esserti stato utile.
Magari se puoi fammi sapere.
Ciao e buon lavoro.
Nicola.
-- 
Posted from  [192.92.126.162] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Il progetto si compone di 159 form!!!
Wow! l'eseguibile finale che dimensioni ha, giusto per curiosità?

Ho risolto il problema. Il fatto è copiando la directory dal vecchio PC a
quello nuovo, qualcosa si è perso!!! :-(
Il bello è che eseguendo il codice con F5, funzionava tutto!!! (miracolo?!)
Quando ero in preda ad una crisi di nervi ho tentato l'ultima cosa che è
stata quella di riaprire tutti i form in modalità progettazione e così mi
sono accorto che facendo doppio click su 5 di essi, il VB si chiudeva senza
nessun messaggio. Ho sostituito i relativi file .frm e .frx , ho ricompilato
il progetto ed è andato tutto bene.
Grazie a tutti per l'interessamento.
Ciao, Vincenzo
Newsgroup: it.comp.lang.visual-basic
Titolo: SQL SErver

Aggiungendo un record ad una tabella di un db di SQL Server tramite ADO, che
contiene un campo identity (contatore), automaticamente viene generato il
valore di tale campo. Per poter utilizzare tale valore in altre tabelle
prima di fare l'update come si fa? In altre parole eseguendo il metodo
Addnew il valore del campo identity non è disponible fino a quando non ho
fatto l'update; ma appena faccio l'update perdo il riferimento al record
quindi sono costretto ha ricercare il record per poter semplicemente
conoscere il valore del campo identity. Esistono soluzioni alternative?
penso di si. Mi fate un esempio?
Grazie
Paolo

Newsgroup: it.comp.lang.visual-basic
Titolo: SQL Stringhe Lunghissime II

Il metodo OpenRecordset consente l'utilizzo di stringhe Sql.
Nel tentativo di parametrizzare un oggetto Recordset mi ritrovo a creare
stringhe più lunghe di 256 caratteri: viene sempre generato un errore !!!
Se qualcuno di Voi vi si è già imbattuto, ed ha trovato il modo di Bypassare
il problema, non tenga il Segreto per se: Mi AIUTI !!!
Riconoscentissimissimo Shingo Tamai (alias Tommaso).
s...@Mail.asianet.it

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Come creare Toolbar per IE?

Ciao a tutti.
Ho la necessita' di creare una toolbar in Visual Basic che sara' poi
utlizzata in Internet Explorer. Come la "Google toolbar" per intenderci,
se la conoscete!
Non so proprio come si possa realizzare e nemmeno come si faccia alla
fine a registrarla, in modo che IE la utilizzi!!
Qualcuno che mi possa aiutare? Ma anche una piccola traccia!!
Grazie dell'aiuto!
Giuliano
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

vai su 
msdn.microsoft.com
e nella casella in alto a sinistra cerca "create toolbar".....troverai un
sacco di roba.....
gli argomenti più interessanti sono
adding toolbar button
....ma soprattutto....
adding explorer bars (che è proprio quello che serve a te)
da questi due argomenti troverai la voce "browser extensions".........in
bocca al lupo.....
e Good Coding!!!!
--
Damiani Liborio Igor
idam...@hotmail.com
 - 
igor.d...@light.it
http://www.igordamiani.it
ICQ : 11847262

se la conoscete!
credo che siano tutti dei browser helper objects, prova a ricercare
queste parole in giro.
Bye
Luca

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

scusate come posso svuotare una matrice che contiene degli elementi?
Grazie

 scusate come posso svuotare una matrice che contiene degli elementi?
In vb6
Erase  e fai F1

scusa in VB.net

 scusa in VB.net
Bon.
Hai l'intellisense attivato?
Se sě, prova a scrivere il nome della tua matrice seguito da un punto, e
guarda quali sono i metodi che ti vengono proposti. Puň darsi che ce ne
sia uno che fa al caso tuo.
-- 
Salutoni
Sergio
La vita č un lungo apprendistato per imparare ad essere giovani
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

ok grazie
Newsgroup: it.comp.lang.visual-basic
Titolo: Conversione Access --> VisualBasic

E' possibile secondo voi convertire un database realizzato con Access97 in
VisualBasic 6?
Se fosse possibile con quali strumenti?
Ciao e grazie.
Bracchi Enzo

 VisualBasic 6?
Sinceramente la tua domanda non mi è molto chiara: Access è un RDBMS mentre
Visual Basic è un ambiente di sviluppo!!
Come dire: "E' possibile convertire una mela in una pera?" ;-))
Probabilmente vuoi sapere se è possibile convertire un database Access 97 in
un formato "usufruibile" da Visual Basic 6.
Allora, VB6 è ingrado di utilizzare nativamente un database Access 97 senza
la necessità di convertirlo in alcun formato: è sufficiente referenziare la
libreria Microsoft DAO 3.5 Object Library (DAO350.DLL). Se invece intendi
convertirlo nel formato Access 2000, dovrai utilizzare la libreria Microsoft
DAO 3.6 Object Library (DAO360.DLL).
HTH,
--
Lorenzo Benaglia
24 Ore Personal Finance S.p.A.
Milano
Italy

Newsgroup: it.comp.lang.visual-basic
Titolo: Comporre numero telefonico con modem da vb (tipo Hyperterminal)

Salve,
ho provato questo codice......ma non va.
Dim NumeroDiTelefono As String
NumeroDiTelefono = "03479114783"
Open "COM1:" For Output As #1
Print #1, "ATDT" & NumeroDiTelefono & Chr$(13)
Close #1
Avete idea su come fare?  Anke con le api semmai......
P.S. Ho la linea con il centralin, ma questo nn è un problema.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Salve,
ho provato questo codice......ma non va.
Dim NumeroDiTelefono As String
NumeroDiTelefono = "XXXXXXXX"
Open "COM1:" For Output As #1
Print #1, "ATDT" & NumeroDiTelefono & Chr$(13)
Close #1
Avete idea su come fare?  Anke con le api semmai......
P.S. Ho la linea con il centralino, ma questo nn è un problema.


 
Usa l'oggetto MSComm. Guarda la guida e google per i dettagli sull'utilizzo.
ciao
	maxx
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 sull'utilizzo.
Io ci ho provato tempo fa ma non sono riuscito a fare nulla...
se per caso ci riesci mi (e ci) fai sapere come hai fatto?
Alex
°°° Posted from X-Privat Free NNTP server - 
www.x-privat.org
 °°°

Grazie 1000.....
a volte basta leggere fino in fondo le guide ;-).
Avevo visto l'oggetto MsComm nella guida ma nn avevo letto fino in fondo
la guida....così nn avevo visto ke fa anke quello ke volevo....
per quel ke può servire...si fà così....
Per avviare la kiamata:
MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.Output = "ATDT 
8473847847
" & vbCr
Per kiuderla
MSComm1.PortOpen = False
Niente di + semplice e banale....
Grazie ancora MAX


 Niente di + semplice e banale....
fin lì c'ero arrivato...solo che non riuscivo/riesco a capire se il numero
dall'altra parte risponde/è libero/inesistente...

Newsgroup: it.comp.lang.visual-basic
Titolo: Mail con Allegati

Buongiorno a tutti,
qualcuno sa come generare un messaggio di posta elettronica con un allegato
via codice VB??
Anticipatamente ringrazio
Paolino

 ha scritto: 

--------------------------------
Inviato via 
http://usenet.iol.it
 

Controllo l'orologio sono le 9 e 45 e tu hai postato alle 10.20!!!!
                                                danilo

 ha scritto nel messaggio
news:9r0hdi$4l8$1...@stargate1.inet.it...

Ma perchè non leggi i post dei giorni precedenti???

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] ip connessione internet da API

deV<

 ha scritto nel messaggio
news:h9h27.23483$rh.4...@news6.giganews.com...

dovrebbe essere GetAdaptersInfo();
se non vado errato su 
http://www.mvps.org/vbnet/
 dovrebbe esserci anche un
esempio di uso;
ciao

 ha scritto nel messaggio
news:9icatu$i1olv$1...@ID-92828.news.dfncis.de...

grazie !!!!

Newsgroup: it.comp.lang.visual-basic
Titolo: Barra delle applicazioni

E' possibile disabilitare la funzione PULSANTE DESTRO nella barra
delle applicazioni?
Grazie in anticipo.

 ha scritto nel messaggio
news:3deb3f48...@powernews.libero.it...


Per quanto riguarda l'user key non funziona: mi sono disconnesso,
riconnesso e il pulsante destro funziona ancora.
system key: io nel registro arrivo fino a Policies, Explorer non c'č.
Grazie cmq


 ha scritto nel messaggio
news:3debe0c8...@powernews.libero.it...


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

Qualcuno sa come posso far parlare in italiano il pc, con 
vb.net
 e sapi5?
Grazie in anticipo


Nel sito Microsoft non ci sono informazioni su questo
ma ho sentito di qualcuno che ha usato il TTS in italiano di SAPI 4
anche con l'engine di SAPI 5
l'unica cosa che ti posso dire è che in inglese e con VB6
e sufficente questo:
Dim pippo As SpVoice
Private Sub Form_Load()
 Set pippo = New SpVoice
End Sub
Private Sub Form_Click()
 pippo.Speak "hello how are you"
End Sub
Poi vedi tu cosa riesci ad ottenere
P.S. i TTS di SAPI 4 li trovi qui:
http://www.microsoft.com/msagent/downloads/user.asp#tts
--
Mauro Cerreto
www.cerretosoft.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Schermo virtuale (sono un neofita)

Salve a tutti!
E' possibile in Visual Basic disegnare ciň che si vuole su uno schermo
virtuale, per poi farlo compararire tutto insieme su quello reale? E' per
evitare gli sfarfamenti con animazioni.
Usavo questo metodo nel mitico GFA Basic per Atari/Amiga.
Grazie!
        A.

Era proprio quello che volevo realizzare!
Vedrò un po' come fare...
Grazie tante!
        A.
Newsgroup: it.comp.lang.visual-basic
Titolo: Creazione setup con InstallShield

Salve a tutti,
sto realizzando la procedura di installazione di un progetto VB6 con
InstallShield 5.53 Professional. Ho provato ad installare un ocx
(MSMASK32.OCX) in una sottodirectory del programma (attraverso
<TARGETDIR>\tmp e inserendo MSMASK32.OCX nel gruppo di programmi "Shared
Dlls" in InstallShield). Lanciando l'installazione il componente ocx viene
effettivamente installato dove desiderato. Il problema è che ho la
sensazione che non venga usato: ho provato a cambiare il nome dell' ocx
nella directory di sistema ed il programma è schiantato!
E' possibile far capire ad InstallShield che il programma VB6 quando ha
bisogno di quel componente deve pescarlo dalla directory in cui è stato
installato e non dalla directory di sistema?
Thanks,
Nicola.
-- 
Posted from  [213.45.101.230] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Alcune versioni di windows non gestiscono i componenti side by side quindi
se già hai un componente della directory system di windows, anche
installando il nuovo componente in una cartella diversa, l'entry nel
registry continua a puntare al componente in system.
Xp,Me e 2000 hanno la possibilità di creare un file .local che può indicare
dove caricare il componente.
Prova su MSDN  a cercare "Side by Side components"
Ciao
Corrado

Grazie per la dritta; l'articolo è interessante, ma l'applicazione di cui 
devo realizzare l'installazione deve funzionare su NT Workstation che se ho
capito bene non supporta questo tipo di componenti Side by Side.
Bye,
Nicola.
"Corrado Cavalli" <a@b.c> wrote in message
news:5Skn7.165254$TS4.1...@news2.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: come impostare un percorso db ad un file rpt

Come si imposta un percorso di un database ad un file rpt .
cioe:
ho creato il file rpt, pero vorrei che da codice possa cambiare il percorso
di collegamento al database associato.
Aiutatemi grazie

 wrote in message
9gm1e4$s8n$1...@pegasus.tiscalinet.it...


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

Ciao a tutti,
hi creato un programmino con 7 OptionButtons in due frames.
Ad ogni OptionButton è assegnata una caratteristica che verrà
attribuita alle MsgBox che visualizzerò facendo click su un
CommandButton.
I 7 OptionButtons sono raggruppati in due frames perchè il primo
gruppo definisce la tipologia della MsgBox (Annulla/Riprova, Ok,
etc.), il secondo la icona che vi compare sopra (I, ?, etc.).
In pratica individuo un tipo di MsgBox attivando una coppia di
OptionButtons, uno da ognuno dei frames.
Il problema (se così si può chiamare) è che mentre ne seleziono uno
l'altro viene deselezionato, benchè il programmino funzioni
egregiamente.
Ossia:
come devo impostare il programma per avere due OptionButtons
selezionati contemporaneamente?
In una demo che ho risulta possibile: ho verificato codice e proprietà
e sono uguali, ma il risultato non è lo stesso.
Grazie in anticipo, un salutone
Francesco

 Francesco
devi usare i chekboxes, oppure degli option in contenitori (frame, picbox
ecc.) diversi.
ciao, a.




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

Ho necessita' di sviluppare un programma che elabori dei dati provenienti da
diversi strumenti di misura (calibri digitali, micrometri digitali, ecc..)
collegabili al PC tramite interfaccia RS 232
Qualcuno di Voi ha esperienza su tali problematiche?
Secondo Voi e' possibile standardizzare (mediante una finestra di
configurazione) l'eventuale procedura di acquisizione dati, in modo che
l'utente possa impostare il formato delle stringhe restituite dallo
strumento nella finestra di configurazione e rendere cosi' la procedura
applicabile a qualsiasi strumento?
Sperando che qualcuno legga il messaggio e mi aiuti vi saluto tutti
Paolo

 applicabile a qualsiasi strumento?
Sì, ti basterebbe fare un piccolo interprete. Io dividerei la configurazione
di ogni protocollo in due parti: una di setup generale per impostare
velocità di comunicazione, particolari bit, timeout, ecc; ed un'altra parte
di vero e proprio protocollo. Ho notato che i classici errori sulla seriale:
framing, overrun, ecc.. avvengono se il dispositivo comunica ad una velocità
minore di quella alla quale tu sei impostato per ricevere i dati. Quindi
dovresti scandire le varie voci di setup da quella più veloce a quella più
lenta in caso di errori; per poi ritornare al setup più veloce in caso di
timeout (non ti arriva un dato per tot. secondi) o errori alla velocità più
bassa. Una volta trovata la giusta velocità di comunicazione puoi cominciare
ad interpretare la stringa del protocollo per vedere se i dati in ingresso
coincidono con quelli che ti aspetti.
Io con questo metodo sono riuscito a riconoscere 4 periferiche (ognuna con
il proprio protocollo di comunicazione) che viaggiano a 3 differenti bps.
Ciao, Alessio.
Newsgroup: it.comp.lang.visual-basic
Titolo: Ricavare Sistema Operativo

Fino a quando non mi serviva ho sempre avuto questa routine sott'occhio.
Come al solito, adesso che mi serve non riesco più a trovarla.
Ni
potreste dare qualche indicazione ?
Grazie a tutti.
Ciao, Claudio.
--------------------------------
Inviato via 
http://usenet.iol.it

 potreste dare qualche indicazione ?
API GetVersionEx
Ciao
--
Timothy Redaelli

L'avevo vista, ma sugli esemoi si parla solo di Win 95/98 e Win NT4.0.
Per gli altri sistemi operativi come si fŕ.
Grazie mille.



???
VB funziona *SOLO* sui sitemi operativi microsoft (W9x,WNT,W2k,Wxp,WCe)!!!
Cosa vuoi sapere????
Ciao
--
Timothy Redaelli

Quello che intendevo dire è che, dalle informazioni ricavate dalla
documentazione relativa a GetWindowsEx, non so come distinguere Win NT da
Win2000 o WinXP, oppure tra Win95/98 o WinMe.
Pensare che poco tempo fa
avevo la routine completa per le mani e non ricordo dove l'ho messa.
Scusa
se mi sono espresso male.
Ciao, Claudio.


 se mi sono espresso male.
Ok, ecco il codice:
'Constants for determining OS
Private Const VER_PLATFORM_WIN32s = 0
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32_NT = 2
Private Const MAX_PATH = 260
Private Const UNKNOWN_OS = 0
Private Const WINDOWS_NT_3_51 = 1
Private Const WINDOWS_95 = 2
Private Const WINDOWS_NT_4 = 3
Private Const WINDOWS_98 = 4
Private Const WINDOWS_2000 = 5
' UDT for determining OS
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type
Private Declare Function GetVersionEx Lib "kernel32.dll" _
Alias "GetVersionExA" _
(lpVersionInformation As OSVERSIONINFO) As Long
'====================================================
' FUNZIONE
'====================================================
Private Function GetWindowsVersion() As Long
Dim osinfo As OSVERSIONINFO
Dim retvalue As Integer
osinfo.dwOSVersionInfoSize = 148
osinfo.szCSDVersion = Space$(128)
retvalue = GetVersionEx(osinfo)
With osinfo
Select Case .dwPlatformId
Case VER_PLATFORM_WIN32_WINDOWS
If .dwMinorVersion = 0 Then
GetWindowsVersion = WINDOWS_95
ElseIf .dwMinorVersion = 10 Then
GetWindowsVersion = WINDOWS_98
End If
Case VER_PLATFORM_WIN32_NT
If .dwMajorVersion = 3 Then
GetWindowsVersion = WINDOWS_NT_3_51
ElseIf .dwMajorVersion = 4 Then
GetWindowsVersion = WINDOWS_NT_4
ElseIf .dwMajorVersion = 5 Then
GetWindowsVersion = WINDOWS_2000
End If
Case Else
GetWindowsVersion = UNKNOWN_OS
End Select
End With
End Function
Ciao
--
Timothy Redaelli

Grazie mille !
Sei un drago .....
Ciao, Claudio.
Newsgroup: it.comp.lang.visual-basic
Titolo: OT - La carriera di un programmatore... (se già la conoscete, scusate)

Scuola media:
10 PRINT "HELLO WORLD"
20 END
Scuola superiore:
program Hello(input, output);
begin
writeln('Hello world');
end
Università:
(defun hello
(print
(cons 'HELLO (list 'WORLD)));
Primo contatto professionale:
#include
main (argc, argv)
int argc;
char **argv;
{
printf("Hello World!\n");
}
Professionale evoluto:
#include
const int MAXLEN = 80;
class outstring;
class outstring {
private:
int size;
char str[MAXLEN];
public:
outstring() { size=0; }
~outstring() {size=0;}
void print();
void assign(char *chrs);
};
void outstring::print() {
int i;
for (i=0 ; i cout << str[i];
cout << "\n";
}
void outstring::assign(char *chrs) {
int i;
for (i=0; chrs[i] != '\0';i++)
str[i] = chrs[i];
size = i;
}
main (int argc, char **argv) {
outstring string;
string.assign("Hello World!");
string.print();
}
Manager:
/* George, ho bisogno di un programma che visualizzi :
"Ciao Mondo!" */

 }
Non vorrei deluderti, ma questo affare non ti compilerà mai.
-- 
Emanuele Torrenti
Registered Linux User #409659

 Non vorrei deluderti, ma questo affare non ti compilerà mai.
e' proprio per questo che viene promosso a manager.

 e' proprio per questo che viene promosso a manager.
:-D

 "Ciao Mondo!" */
IMHO manca
General Manager:
Signorina appena ha finito si rimetta la gonna e scriva:
"Per Alfredo Sede di Roma...Obiettivi del prossimo semestre: Ricerca e
Sviluppo programma HelloWorld...seguiranno dettagli e business plan"
Bill Gates:
"Comprare l'Europa e l'Asia poi far uscire programma 'Welcome my World'
compatibile solo per pentium IX con 5 Gb di Ram e IE 10"
Dio:
"Ciao Mondo"...uff che palle ...mi son stancato di salvare omini, giocaci
un po tu Gabriele!...altrimenti stacca la spina che andiamo a farci 2
birre! 

 farci 2 birre!
 :-)))
Mi hai fatto tornare in mente una cosa di circa venti anni fa: una sessione 
telnet, in cui Dio dialogava con un host, intento ad impartire comandi per 
la creazione dell'universo!!!
Era mitica!
Chissà se c'è ancora in giro...
Per me, una delle più belle, di tutti i tempi!!!
B. 

 Era mitica!
Posso provare a ricercarla e postarla, se non vi arrabbiate per l'OT...
;-)

 l'OT...
Beh... a trovarla, l'ho ritrovata!!!


Postala!
Emiliano. 

 Emiliano.
http://tinyurl.com/vrk3f

 
http://tinyurl.com/vrk3f
possibile che non funge il link?

 possibile che non funge il link?
funziona, funziona... è un link a google.
btw, il primo si trova qui:
http://www.netzmafia.de/service/unixgod.html
mi raccomando... è da leggere con la dovuta calma e concentrazione, non di 
fretta!  :-)))
buon divertimento.
B. 

 buon divertimento.
troppo divertente :-D
vorrei conoscere il genio che l'ha pensata
Ciao

"Spike" <sp...@mia.mail> ha scritto

: run spike_meeting
ciao, a. :)
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] sono un idiota...

Dopo molti giorni di assenza sono ritornato...
Quasi mi vergogno del motivo della mia assenza ma ve lo dico lo stesso così
vi fate due risate.
Non riuscivo più a connettermi e non riuscivo a capire il perchè.
Ho pensato (dato che un mio amico che utilizzava il mio stesso provider -
tin - dallo stesso giorno ha avuto problemi di connessione) la telecom si è
rotta.
L'ho chiamata più di una volta ma ovviamente nessuna risposta decente.
Ho anche pensato ad un virus, ma tutti gli antivirus che ho trovato non
rilevavano niente.
Ho disinstallato e reinstallato tutto l'accesso remoto, TCP/IP e compagnia
bella, ma niente.
Ho provato tutte le combinazioni possibili di configurazione dell'accesso
remoto, niente ancora.
All'ennesimo messaggio di "linea assente" ho provato a collegare a cavetto
della linea il telefono.
Solo che non riuscivo a trovare sul modem dove questo si collegasse...
E sì... nel riordinare la scrivania devo aver staccato per sbaglio il bnc!
Mi sento come quello che non dice di avere il PC che non funziona e poi si
scopre ne non lo aveva acceso...
Nonostante tutto sono tornato!
Ciao a tutti!

Bentornato.
(L'idiota non è chi cerca una soluzione ad un problema (indipendentemente
dal fatto che la trova o no) ma chi non ci prova nemmeno!)

Newsgroup: it.comp.lang.visual-basic
Titolo: Append di un BLOB su un recordset disconnesso

Avrei la necessità di creare un recordset a runtime con un campo BLOB
(di tipo 0) ma ADO mi obbliga a definire una dimensione per il campo.
rs.Fields.Append "NOME", adLongVarBinary,  ??? , adFldLong
Ma forse mi sfugge qualcosa....Come faccio a sapere a priori la
dimensione di un BLOB?
Tnx.
Daniele.


Usa -1, a me funziona.
Bye
Raf
-----------------------------------------------------
Funk: cooler than the other side of the pillow.

 ha scritto nel messaggio 
news:1185467421.9...@r34g2000hsd.googlegroups.com...

Fai così: definisci il campo a mano, lo leggi con ADO e vedi il suo DataType 
:)
Poi cerchi il valore tra DataTypeEnum con F2.
Nota che essendo un tipo "flag" potrebbe essere la combinazione binaria di 
più di un valore (es, adArray Or adInteger).
Per questo il -1 di Rafunc mi preoccupa un po'... Andrà anche, ma -1 
significa attivare tutti i bit, quindi tutti i flag disponibili :)
Ciao

 Usa -1, a me funziona.
Confermo che è quello che mi viene fuori dalla select di un campo Blob:
Type =  205
Defined Size = -1

 significa attivare tutti i bit, quindi tutti i flag disponibili :)
E' la defined size, quindi non ci dovrebbero essere problemi :)


Forse non sono stato chiaro, il -1 andava al posto di DefinedSize che è un
ADOLONGPTR (non un flag)...

 ADOLONGPTR (non un flag)...
Allora ho capito male io :)
il 205 è adLongVarBinary.
Comunque il mio suggerimento resta.
Ciao 


Thanks!
Utile come al solito!
Bye,
Daniele.
Newsgroup: it.comp.lang.visual-basic
Titolo: print preview

Ciao a tutti
qualcuno ha utilizzato con successo l'ocx di g. bertagna print preview? Io
non ci sono riuscito perché dopo averla installata se cerco di metterla sul
mio progetto mi appare l'errore 429: il componente activex non può creare
l'oggetto.
Voi sapete/intuite/indovinate qualcosa?
Grazie a tutti

 qualcuno ha utilizzato con successo l'ocx di g. bertagna print
preview?>
Molto bella l'ocx.
Molto bella davvero...
Mah...
Ci sono delle funzioni che si chiamano proprio come quelle che sono in
PrnPrv...
E fanno la stessa cosa... Con gli stessi parametri...
E come mai che sarà accaduta sta' cosa?
Mah...
-> GbC|
www.gbcweb.com

Ho testè inviato al Bertagna questa mail:
<PASTE>
Oggetto: PrintPreview: miserabile atto da stronzo
We caro Bertagna.
L'idea che io esista ti sconvolge al punto di non inserirmi nei
credits?
Il codice della tua OCX utilizza pesantemente quello della mia
PrnPrv3. Daccordo che è una libreria free, ma omettere dai credits
l'autore del codice originale è un atto da miserabili.
Potevi almeno modificare i nomi delle funzioni ed i loro parametri.
No, hai anche tenuto quelli originali scritti da me.
Ti sei comportato come un perfetto stronzo.
È a causa di vigliacchi come te se il mondo del freeware sta morendo.
E non mettermi ora nei credits, perché non mi interessa avere parte in
questa misera operazione di cut & paste.
-> GbC|
www.gbcweb.com
</PASTE>
Vorrei che quella cosa ignobile fosse eliminata dal SC, perché è un
atto ignobile di copiatura. Boh... Forse no... Potrebbe servire a
qualcuno...
Non mi interessa se viene usato il mio codice; è in giro nella rete da
anni ed è presente in tutti i siti di shareware/freeware. Ma almeno
l'educazione di citare l'autore nei credits...
Ma guarda cosa mi tocca di vedere...
-> GbC|
www.gbcweb.com

 l'educazione di citare l'autore nei credits...
Ma dai, non te la prendere così!!! Vai là e legnalo :) da buon amico !!!!
Pensa che a me hanno rubato l'idea di usare il comando SELECT per fare le
ricerche nei database !!!!
Ma,che mondo, che mondo... immondo !

 E come mai che sarà accaduta sta' cosa?
oh cavolo ma perche' non sei tu ? g.bertagna ... GBc ... e io che lo avevo
pure visto e credevo fosse una tua vecchia versione !
Sfonnamolo, se serve una mano vengo io col wisketto a fare il tifo !
-- 
-Gigio@Work(?)-

 pure visto e credevo fosse una tua vecchia versione !
PRRRRRRRRRRRRRRRRRRRR
:))
-> GbC|
www.gbcweb.com

 Ma,che mondo, che mondo... immondo !
No no :)
Ha gią i suoi problemi con le legnate...
http://lanazione.it/art/2003/03/14/4220859
Sic transit gloria mundi...
-> GbC|
www.gbcweb.com

> Ha gią i suoi problemi con le legnate...
Dimenticavo...
Non so se si tratti della stessa persona o sia un caso di semplice
omonimia...
Certo che il quadro risultante sarebbe agghiacciante...
-> GbC|
www.gbcweb.com
Newsgroup: it.comp.lang.visual-basic
Titolo: (?) posizionarsi sull'ultimo elemento di una LISTVIEW

Salve, ho questo problema semplice semplice..
devo posizionarmi sull'ultimo elemento di una listview..
esattamente come si fa con una listbox...
lista.listindex(lista.listcount)
esiste qualcosa del genere ?
grazie

 wrote in message
XN4H5.37897$Nz.11...@news.infostrada.it...

With ListView
    set .SelectedItem=.ListItems(.ListItems.Count)
End With
Ciao
--
Luca Dormio
luca....@tin.it
luca....@sig-la.com

Grazie, ma l'avevo gia provato..
non funziona, mi rende selezionato l'ultimo elemento, ma non mi effettua
automaticamente lo scrolling fino a quell'elemento....
Luca Dormio <lucaFAV...@tinFAVA.it> wrote in message
8sjl53$14t$1...@fe2.cs.interbusiness.it...


 automaticamente lo scrolling fino a quell'elemento....
Se ti serve anche il posizionamento aggiungi:
ListView.SelectedItem.EnsureVisible


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

Salve, sapete mica se in giro per la rete esistono i sorgenti di un
programma che faccia tipo Visual Basic per dire? Cioč, che durante la
scrittura, nel caso in cui tu scriva parole chiave particolari, le colora
automaticamente? Questo era il mio intento, perň mi sono accorto che č
troppo complicato, mi ci vorrebbe un esempio.
Grazie e spero che qualcuno mi possa aiutare.
--
Ramses
http://evilzone.tsx.org
ICQto: 39860665
mailto: 
ram...@freemail.it
"God is just a statistic"

 automaticamente?
Tempo fa ho spedito al sito comune un codice che consente di colorare il
codice VB che si desidera copiare ad esempio in Word: puoi benissimo
utilizzarlo cambiando semplicemente le parole chiave.
Cerca "ColorClip VB" !
Il sito comune č qui:
http://www.murialdo.it/it_lang_vb/
ALOHA!

 ha scritto nel messaggio
news:97baas$88j$1...@serv1.iunet.it...


Grazie e spero che qualcuno mi possa aiutare.
Ne sto realizzando uno.
Credo di terminarlo entro fine settimana.
Se vuoi poi te lo passo.
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Collegamenti a file in VB per Excel

In VB per Excel come faccio, per esempio, a richiamare la calcolatrice di
windows premendo un bottone (o con qualsiasi altro evento)?
Grazie in
anticipo.
--------------------------------
Inviato via 
http://usenet.iol.it

'aggiungi un pulsante
'nell'evento click del pulsante aggiungi questo codice
'Shell = esegue un exe in mod asincrono (=indipendente
'dalla tua applicazione). 
'Richiede percorso e nome + esetnsione dell'eseguibile
Shell "c:\windows\calc.exe"

Grazie mille per l'aiuto. 
Ciao.

Newsgroup: it.comp.lang.visual-basic
Titolo: check leaf year

Hi All,
Is anybody can tell me how to check user input data for leaf year in VB?
Thanks!!

 Is anybody can tell me how to check user input data for leaf year in VB?
I assume your "leaf year" is a "leap year". I also assume your input date is
into Text1.Text:
   If Not IsDate(Text1.Text) then MsgBox "Wrong date"
It works for each date problem. Leap year, or not.
Btw, if your problem is only about leap years, the magic numbers are 4, 100,
and 400. The golden rule for calculating a leap year has three parts:
  1.. If the year is divisible by 4, it's a leap year.
  2.. But-if the year is also divisible by 100, it's not a leap year.
  3.. Double but-if the year is also divisible by 400, it is a leap year.
The code to represent this formula in a function would look something like
this:
Function bIsLeapYear(ByVal inYear As Integer) As Boolean
    bIsLeapYear = ((inYear Mod 4 = 0) _
               And (inYear Mod 100 <> 0) _
                Or (inYear Mod 400 = 0))
End Function
Hi
*Bob*
P.S.
This is an italian newsgroup. IT means Italy, not Information Technology.

Newsgroup: it.comp.lang.visual-basic
Titolo: ? verificare se un file esiste

Cari amici
Cosa posso fare prima aprire un file sequenziale per verificare se esiste
già un file con quel nome???
domanda n.2
A proposito di mirc, a chi bisogna chiedere la password (senza incappare nei
litigi a cui ho assistito??)
domanda n. 3
Come fare per obbligare l'esecuzione di una applicazione con una risoluzione
video diversa da quella con la quale è stata progettata???
Grazie per il Vs generoso aiuto ciao !!!
C E S A R E

...


 wrote in message 7eqjh2$l...@dante.italia.com...
Public function IsFile(Filename as string) as boolean
    if len (dir(Filename)) > 0 then 'funzione dir annidata in una funzione
'len... se č true il     'file esiste
        IsFile = True
    Else
        IsFile = False 'il file non esiste
    End if
End Function
Questa funzione dovresti eseguirla prima di tentare di aprire il file.....e
la puoi richiamare cosě:
If IsFile ("c:\windows\ilfilechevuoi") then
    ......inserisci il tuo codice
Else
    ......altro codice
End if
E' chiaro: queste righe richiamano la funzione IsFile inviando come
argomento il file da aprire. IsFile restituisce True se il file esiste,
False se il file non esiste.
Ciao
Giuseppe (ICQ# 30394585)


Oppure, stessa funzione ma con scrittura un po' piu' compatta:
Public function IsFile(Filename as string) as boolean
        IsFile = (Len(Dir(Filename)) > 0)
End Function
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: problema con drivelistbox: aiutatemi!

ciao a tutto il ng, non riesco ad uscire da questo problema:
ho un controllo drivelistbox sul form. Inserisco un cd nell'unità F:,
seleziono l'unità F: e
faccio apparire la lista dei file. Se mi accorgo di aver sbagliato CD lo
tolgo inserendone uno nuovo ma se ora scelgo dal drivelistbox F: i file
mostrati sono sempre quelli del vecchio CD. Il motivo è semplice, poichè la
lettera è sempre F: non si verifica l'evento change e quindi il programma
non esegue l'istruzione che va a leggere il contenuto del nuovo CD. Per il
risolvere il problema devo selezionare un qualsiasi altro drive e poi
riselezionare F: in questo modo l'evento change si verifica e tutto torna a
funzionare. Questa procedura è però troppo scomoda, come posso risolvere il
problema in modo più elegante?
grazie

Ciao, prova ad utilizzare la proprieta' refresh:
Private Sub Drive1_Change()
Drive1.Refresh
' Resto del codice...
End Sub
 Ciao.

 ha scritto nel messaggio
news:P_Gi7.61641$TS4.3...@news2.tin.it...

Purtroppo non funziona perchè l'evento change, come dicevo, non viene
generato e quindi drive1.refresh non viene eseguito :-( ! , comunque grazie.
ciao

 ciao
dopo il tuo post ieri avevo provato
Private Sub Command1_Click()
    Drive1.Refresh
    Dir1.Path = Drive1.Drive
End Sub
ma col portatile e i cd masterizzati non sono riuscito a capire se
andava o no. proverei comunque a legare il refresh a un evento esterno,
tipo appunto un command, o f5 come in esplorer.
ciao, a.

Newsgroup: it.comp.lang.visual-basic
Titolo: VISUAL STUDIO &.0 Professional/Enterprise ?!

Devo comprare Visual Studio 6.0........
Ma non riesco a capire le differenze che ci sono tra la versione
Professionale ed Enterprise.....(l'unica cosa che ho capito è che
l'Enterprise costa molto, ma molto, di più)....
qualcuno mi può aiutare......!?
grazie
Marco Gorini

Prova a guardare sul sito della Microsoft all'indirizzo:
www.microsoft.com/italy/visualtools/products/vb/versioni.htm
Ci sono tutte le differenze tra le due versioni.
Ciao.      Corrado.

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

Sto cercando una query da usare con vb6 e access2000    
      Ho una tabella con
       cliente    articolo   data vendita     prezzo
           001        aaa        19/04/2002       2   
           001        aaa        16/04/2002       3,4
           001        bbb        19/04/2002       5
           001        bbb        11/04/2002       7  
 
   la query  mi deve ritornare
           001        aaa        19/04/2002       2
           001        bbb        19/04/2002       5
 Ringrazio anticipatamente chi mi risolve il problema
                                          grazie Enzo.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

  Ringrazio anticipatamente chi mi risolve il problema
Prego posticipatamente
Ciao
*Roby*
P.S.
Access 97, ma spero bene che con il 2000 funzioni nello stesso modo... ;-)
Newsgroup: it.comp.lang.visual-basic
Titolo: Dove trovare le info sulle DLL?

Salve, 
Vorrei sapere dove e' possibile trovare informazioni sull'uso delle
DLL piu' (o meno) comuni di Windows95 per essere richiamate come API
esterne. 
Grazie in anticipo...
Pietro E.
mg1...@NOSPAM.mclink.it
(togliere il "NOSPAM" per l'indirizzo corretto

esterne. 
La maggior parte lo trovi nei cd del MSDN...
Sidewinder

Newsgroup: it.comp.lang.visual-basic
Titolo: Registrare un OCX su una macchina remota

Salve a tutti.
 Ho la necessità di installare DA una macchina NT, su cui sono loggato come
amministratore, un componente ocx SU un'altra macchina NT del dominio,
ovviamente da remoto.
Preciso che il controllo OCX verrà utilizzato in locale da un'applicazione
he girerà localmente su quella macchina.
Dopo avere copiato il controllo sulla cartella System32 remota come faccio a
registrare il controllo senza che necessariamente qualcuna da quella
macchina esegua manualmente il regsvr32?
 Non esiste un qualcosa tipo un regsvr remoto che forzi la registrazione del
controllo su una macchina non locale?
Saluti,
Drakulia!

macchina esegua manualmente il regsvr32?
Perche' non puoi andare direttamente sulla macchina ?
Forse l' amministratore non e' d' accordo ? <g>
-- 
ciao, hal

 ha scritto nel messaggio
news:9s9i0l$11hi54$1...@ID-56381.news.dfncis.de...


Perchè forse l'amministratore sono io e quella macchina si trova a
chilomentri di distanza ti va bene come risposta?

chilomentri di distanza ti va bene come risposta?
Ok, allora e' sufficiente un programma di controllo remoto
come PcAnywhere, VNC, Remote Control o altri.
-- 
hth, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Printer Font Error!!!

Hii...
when i use the combo box to display the available printer font using the 
statement below a list of 151 fonts displayed, but all the 151 fonts
was from the same type, that is Arial type!!!
Private Sub Form_Load()
    Dim I
 
    ' Calculate the number of printer fonts.
    gNumOfPrinterFonts = Printer.FontCount - 1
 
    ' Fill the items of the combo box with the
    ' printer fonts.
    For I = 0 To gNumOfPrinterFonts - 1 Step 1
        cboFontsPrinter.AddItem Printer.Font(I)
    Next
 
    End Sub
Could anybody help me to solve this problem, so that
it display 151 different type of fonts, coz i had 
installed the 151 different type of font to my printer.
please e-mail your solution to the address below:
ross...@tm.net.my
ANY HELP WOULD BE GREATLY APPRECIATED! :)

Except for subtracting  1  twice (you will lose the last font), your code looks
OK. I ran it on VB3,  (Printer.font should be Printer.fonts) and it ran OK.
Are you sure you have Printer.Fonts(I) and not Printer.fonts(1) ?
Try adding  inside the For loop:
  Debug.print Printer.fonts(I)
Good Luck
Dick Petschauer
Newsgroup: it.comp.lang.visual-basic
Titolo: [Req] Suonare un file MIDI

 Ciao a tutti,
 
 vorrei sapere se esite un'API simile a quella sndPlaySound per suonare un
 file Midi in continuazione mentre sono in esecuzione edi files WAV.
 
 Ho trovato di tutto per i WAV ma per i file Midi niente.
 
 Un saluto a tutti,
 
______________________________________________________________________________
message envoye depuis 
http://www.ifrance.com
emails (pop)-sites persos (espace illimite)-agenda-favoris (bookmarks)-forums 
Ecoutez ce message par tel ! : 08 92 68 92 15 (france uniquement)
--
Posted from 
lh04.opsion.fr
 [212.73.208.230] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Ho trovato di tutto per i WAV ma per i file Midi niente.
Se ti interessa un file di esempio posso postartelo.
Fammi sapere...
Alberto
Newsgroup: it.comp.lang.visual-basic
Titolo: buco

c'è un modo per  "bucare" un picturebox in modo da poter utilizzare il
controllo che c'è sotto?

 controllo che c'è sotto?
Sito Comune, cerca "trasparenza" o "trasparente".
Bye, G.

Paperino <non...@lo.dico> wrote in message
ab6dev$8eou$1...@stargate1.inet.it...

non ho trovato niente su come rendere trasparente una picture box vedendo il



un banale
ControlloDaFarEmergere.ZOrder
non basta?
ciao

purtroppo no visto che la picturebox mi serve per creaare dei bordi dei
singoli righi in una richtextbox.
HellBoy <hel...@SENZAFINE.it> wrote in message
abiope$im8af$1...@ID-92828.news.dfncis.de...


 singoli righi in una richtextbox.
cioč, se ho capito bene, utilizzi una picturebox per crearti un bordo (a mo'
di cursore) su una rtftextbox?
in tal caso penso che l'unico modo sia fare un subclass del controllo
rithctextbox, e di andare a disegnare direttamente sull'area client della
stessa;
magari prova a tirarti giů il componente SSubTimer da 
www.vbaccelerator.com
e lavora in modalita post-process sul messaggio WM_PAINT... potrebbe anche
funzionare ;))
oppure prova a dare un occhiata al controllo rtf  "esteso" su
www.domaindlx.com/e_morcillo/
 , magari fa al caso tuo
ciao

ok grazie ci vado subito a dare un'occhiata
HellBoy <hel...@SENZAFINE.it> wrote in message
abiqda$ikjni$1...@ID-92828.news.dfncis.de...


ok grazie ci vado subito a dare un'occhiata
e gia' che ci sei, dai un' occhiata anche qui, soprattutto con
riguardo al "quoting" e, piu' precisamente, sul "Top posting"
Quoting Style
http://www.greenend.org.uk/rjk/2000/06/14/quoting
-- 
ciao, hal

 wrote in message
abk61p$ilqb6$1...@ID-56381.news.dfncis.de...


 > minmax ha scritto:
[snip]
non riesco a leggere la risposta ... ma dove sara'...

 wrote in message
%HzE8.65058$5k4.1...@twister2.libero.it...


 wrote in message
era una battuta : ti hanno invitato a leggere la netiquette , tu stai
rispondendo sopra il testo precedente riportandolo interamente , di solito ,
la netiquette vuole che si risponda sotto il testo riportando le parti
essenziali e tagliando quelle non necessarie ! ^_^;

 wrote in message
bFTE8.69437$US3.1...@twister1.libero.it...

grazie non ne avevo la piů palida idea scusatemi

 grazie non ne avevo la piů palida idea scusatemi
di niente , scusa se ti posto altri 2 consigli :
1) il tuo Outlook Expres risponde con "R:" anziche'  "Re:" , questo problema
si risolve con una patch ma non ricordo l'url sorry, cmq se il tuo OE
risponde con R: i tuo messaggi non si incolonnano bene e quindi gli altri
non potrebbero leggere le tue risposte come si dovrebbe !
2) Taglia a mano le parti non essenziali dei post precedenti !
Scusa non faccio il sapientone e mi scuso per la battuta dei post
precedenti, ma vedo che sei un tipo attento e cortese e un po di consigli
spero siano sempre benaccetti ! ^_-
Ciao


ti ringrazio io non sono mai stato in un ng vado a cercare la patch sul sito
di ms
ogni consiglio e ogni critica mi fa molto piacere.

 ogni consiglio e ogni critica mi fa molto piacere.
(magari tutti fossero come te)

non ho trovato la patch però mi hanno appena detto che lo posso fare a mano
(Re)
Newsgroup: it.comp.lang.visual-basic
Titolo: OLE_COLOR

Ciao a tutti
qualcuno saprebbe dirmi come convertire una variabile
di tipo OLE_COLOR (utilizzata per una Property di controllo)
nel colore da poter passare alle funzioni di disegno GDI?
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 nel colore da poter passare alle funzioni di disegno GDI?
OLE_COLOR è solo un alias di Long (intreo 32bit)
E' più corretto utilizzare OLE_COLOR anzichè Long solo per capire "al volo"
che si tratta di un colore, e perchè una proprietà definita come OLE_COLOR
permette a VB di farti vedere le palette di colori selezionabili dalla
finestra di proprietà.
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

Si ma quando dalle proprietà imposto un colore della tavolozza,
CreateBrushIndirect mi crea un brush con il colore scelto.
quando invece scelgo un colore di sistema lo fa sempre nero.
Forse ho posto la domanda male, Si può convertire un colore di sistema in
modo da far utilizzare il colore scelta alle API GDI??
grazie per la risposta

--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 grazie per la risposta
Sì, la domanda era posta decisamente male.
A te interessa conoscere il colore RGB applicato ai colori di sistema, non
te ne frega niente dell'OLE_COLOR.
Questa è la funzione che mi ero fatto io studiandomi l'argomento:
Il giochetto con i - è perchè VB non supporta gli unsigned long.
Function GetVBSysColor(ByVal vbSysColorConstant As SystemColorConstants) As
Long
    ' ritorna il valore RGB del colore di sistema dato il colore vb*
    GetVBSysColor = GetSysColor(-(&H80000000 - vbSysColorConstant))
End Function
GetSysColor() è una funzione dell'API GDI che lascio cercare a te ;)
Ciao
P.S.: la prossima volta quota il messaggio.


 grazie per la risposta
Ti serve questa API:
Public Declare Function TranslateColor Lib "olepro32.dll" _
    Alias "OleTranslateColor" ( _
    ByVal clr As OLE_COLOR, _
    ByVal palet As Long, col As Long) As Long
Esempio:
dim syscol as OLE_COLOR
dim mycol as long
syscol = vbButtonFace
'...
Call TranslateColor(syscol, &H0, mycol)
'mycol può essere ora utilizzato per creare brush, ecc...
Byee

     ByVal palet As Long, col As Long) As Long
Se funziona č interessante, ma MSDN non ne parla.
Dove l'hai trovata?
Ciao

Grazie a tutti per le risposte


 ha scritto nel messaggio
news:c6ic8g$ccjpt$2...@ID-184808.news.uni-berlin.de...

Ehm... su MSDN... ^_^;
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/com/htm/ctfn_a2z_804y.asp
Byee

     ByVal palet As Long, col As Long) As Long
O anche GetSysColor
Se MyCol = OLE_COLOR da te scelto, fai un:
   ColoreRGB = GetSysColor(MyColor AND &H7FFFFFFF&)
-- 
Rivolterò il mondo per trovarlo, e anche se andasse in Indocina uno dei 
nostri starà nascosto in una ciotola di riso pronto a sparargli nel culo.
(Pulp Fiction)

 
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/com/htm/ctfn_a2z_804y.asp
AAaah!
Vero, colpa mia :P
Avevo cercato TranslateColor e non OleTranslateColor.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Always on top

Cortesemente qualcuno potrebbe indicarmi il comando per fare in modo
che un form rimanga sempre in primo piano?  Always on top?
Con Visual Basic 4
Ringrazio anticipatamente
Sandro
San...@bios-elettronica.com

...

Devi utilizzare l'API SetWindowPos .
Ti allego il codice esempio. La chiamata deve essere di questo tipo
    - per portare il form a stare in primo piano:
        call SetSemprePrimoPiano(frmXXX, True)
    - per liberare il form:
        call SetSemprePrimoPiano(frmXXX, False)
Ho notato che la chiamata API si comporta in maniera
leggermente diversa in Windows '95 che in 3.xx.
Spero sia sufficiente.
Ciao
Alberto Pasqualini
#If Win16 Then
    Private Declare Sub SetWindowPos Lib "User" (ByVal hwnd As Integer,
ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer,
ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer)
#Else
    Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long,
ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As
Long, ByVal cy As Long, ByVal wFlags As Long) As Long
#End If
Sub SetSemprePrimoPiano(frm As Form, flag As Boolean)
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Dim Success As Boolean
    If flag Then
        ' Posiziona il form frm in TOPMOST:
        #If Win16 Then
            Call SetWindowPos(frm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
        #Else
            Success = SetWindowPos(frm.hwnd, HWND_TOPMOST, 0, 0, 0, 0,
FLAGS)
        #End If
    Else
        ' Resetta alla posizione di NON-TOPMOST
        #If Win16 Then
            Call SetWindowPos(frm.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
        #Else
            Success = SetWindowPos(frm.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0,
FLAGS)
        #End If
    End If
End Sub