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

Ciao a tutti.
Ho creato un OCX come il controllo line di VB, aggiungendo alcuni eventi che
mi servono tipo se la linea č selezionata o meno, il livello di appartenenza
ecc.
Funziona tutto tranne la cosa principale e cioč: come si fa a far vedere
solo la linea e non il box d'ingombro del form del controllo, quando si
posiziona l'oggetto in un form di un nuovo progetto?
X capirsi, se posiziono il controllo linea di VB, vedo solo la linea, se
posiziono il mio vedo un rettangolo che contiene la linea.
Grazie x le risposte, gradite anche in e-mail.
Francesco

 posiziono il mio vedo un rettangolo che contiene la linea.
Dovresti ridimensionare l'ocx per adeguarsi alla grandezza della linea.
Ad esempio se la linea è verticale e la penna è spessa 3 allora:
usercontrol.extender.whidt=screen.TwipsPerPixelX*3
usercontrol.extender.height=usercontrol.scaleheight
Ciao
Daniele
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        Le risposte alle tue domande le puoi trovare su:
 
http://www.murialdo.it/it_lang_vb
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiutatemi ancora una volta ...

Ho altri due problemi ...
1) Cliccando su un pulsante del mio programma bisogna che si avvii una
determinata applicazione da CD-ROM. Come faccio io a sapere quale sarà la
lettera che identifica il drive del CD-ROM sul computer dell'utente finale?
Non esiste una variabile da sostituire a D nella stringa:
" x = Shell("D:\programma.EXE", 1) " ?
2) Come posso far chiudere automaticamente il mio programma dopo che
l'utente finale ha premuto il pulsante che avvia un'altro programma?
Devo forse modificare il valore " 1 " nella stringa riportata qui sopra?
Grazie per l'attenzione,
Riccardo.

" x = Shell("D:\programma.EXE", 1) " ?
' Dove è il CD-Rom ?
Option Explicit
Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal
nDrive As String) As Long
Public CDrom As String
Sub CDstring ()
Dim key, s, a
  For s = 1 To 25
   a = GetDriveType(String(1, s + 64) + ":")
   If a = 5 Then CDrom = String(1, s + 64) + ":": Exit For
 Next
end sub
quindi x = Shell(cdrom & "\programma.EXE", 1)
end < per il punto 2 metti questo dopo shell

lettera che identifica il drive del CD-ROM sul computer dell'utente finale?
 devi usare la api GetDriveType
for cd_unit = Asc("C") to Asc("Z")
if  GetDriveType ( Chr$(cd_unit) & ":\") = 5   then
  ......
' se l'if e' verificato  Chr$(cd_unit)     e la lettera  del cd rom che
cerchi
 ...
end if
next

Newsgroup: it.comp.lang.visual-basic
Titolo: misuratore di risorse

Ho fatto un'applicazione in due modi diversi.
č possibile sapere la memoria che occupano i due.exe,
al fine di sapere qual č il sistema migliore.
Il misuratore di risorse da valori percentuali dell'intero sistema ed č
difficile valutare le differenze.
Per essere piů preciso:
esiste un'api che mi ritorna le risorse occupate da un singolo.exe
orf...@tin.it

 Per essere più preciso:

Newsgroup: it.comp.lang.visual-basic
Titolo: Stampa con DataReport

Devo stampare il contenuto di una tabella (Access) e una colonna aggiuntiva
che si riferisse ad un progressivo (nume. di riga e/o record). Non ho
trovato in DataReport qualcosa che mi consentisse di inserire una TextBox
che contenesse un numero da incrementare.
Qualcuno ha una soluzione.
   Grazie.

 wrote in message
8ck5ap$k63$1...@pluto.sm.dsi.unimi.it...


Ci ho provato... ma non sono riuscito ad avere nella queri un valore
progressivo. Tu sai come si fa????
Corghi Stefano ha scritto nel messaggio ...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] WebBrowser url non si aggiorna

Ciao, ho un problema di "aggiornamento url" con il webbrowser che non so
risolvere:
Ho creato un semplice webbrowser che richiamo con un bottone l'orologio:
---cut---
Linea = "
http://tycho.usno.navy.mil/cgi-bin/xbmclock.xbm?zone=UTC
"
WebBrowser1.Navigate Linea
---cut---
purtroppo però se clicco sul cmbutton che va a queste due linee, solo la
prima volta viene aggiornato, mentre se continuo a clickarci sopra, esce
sempre lo stesso orario, resta memorizzata l'ultima chiamata all'url.
Come posso azzerare o aggiornare questo url "memorizzato" sempre clickando
sullo stesso cmbutton?
tnx info
ciao Anto

"ApipApip" <as...@chiedime.lo> ha scritto nel messaggio
news:40770...@127.0.0.1...

Il problema è che quell'url rimane nella cache, per cui ogni volta viene
preso da lì....
un trucco che è già stato consigliato altre volte è quello di accodare un
numero random, una cosa del tipo:
Linea = "
http://tycho.usno.navy.mil/cgi-bin/xbmclock.xbm?zone=UTC&id=
" &
NumeroRandom
in questo caso l'url è sempre diverso, e quindi la cache non ha effetto.
good coding!!!
-- 
Alletun
Sorry, ask me if you want to get my e-mail!

 NumeroRandom
Grazie mille per l'info...
purtroppo oltre a questo "orologio" la mia appicazione usa anche un url .cfm
dopo del quale devo mettere dei dati che mi registra online e se metto altre
cose mi sa che mando in pallone la ricerca.
Ho provato anche con il
WebBrowser1.Navigate2 url
ma niente... difatti poi nel secondo caso avrei:
WebBrowser1.Navigate2
http://www.prova.com/card/import.cfm?Data=blablablabla.
..
non oso mettere alla fine un altro ID... mi sa che impalla tutto.
Non c'e' un AGGIORNA forzato o cancellare sta cache?
ciao grazie

 > NumeroRandom
Nel caso in random ho messo la variabile NumeroRandom= TIME che cambia già
da sola... dfiatti funziona ma nella cfm ho qualche problema... dovrei
proprio forzare l'url.
ciao grazie ancora per l'info
Anto.
Newsgroup: it.comp.lang.visual-basic
Titolo: come imparare visual basic 5 velocemente???

Ciao a tutti
Sono un programmatore vecchio stampo (C, cobol, clipper, basic)
vorrei incominciare a programmare in visual basic chi mi può dare dei
consigli?????
esistono dei programmi che insegnino a programmare in visual basic???
mi raccomando rispondetemi





La rivista Dev offre spesso tutorial su VB
Puoi comunque utilizzare lo stesso sistema a mio avviso sempre valido:
Prendi qualche sorgente , comincia a modificarlo, quindi provi a
risolvere qualche problema reale.
Il bello di VB e' che ti offre un ambiente che puo' essere anche
complesso e potente ma all' inizio
puoi permetterti il lusso di fregartene e fare semplici programmi
comunque funzionanti.
Ciao, Luca

Newsgroup: it.comp.lang.visual-basic
Titolo: corso per VB

Ciao a tutti.
Volevo chiedervi da dove posso partire per cominciare a programmare in VB.
Premetto che qualche esperienza di programmazione ce l'ho (QuickBASIC, C,
Assembler).
Esistono dei corsi in rete per principianti??
Quale libro mi consigliate??
Posso partire dall'HELP di VB o rischio di perdermi??
Grazie in anticipo.
Max

 ha scritto nel messaggio
news:be9lks$hvp$1...@panco.nettuno.it...

Guarda il post:
Oggeto:  [BG] cerco corso in VB
giuseppeD

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

Non so se avete mai usato questa ocx io invece l'ho usata molto spesso però
mi da un problema:
parla.speack e incomincia a parlare il problema che la pronuncia è
In spagnolo o in inglese!!!
Qualcuno sa dove scarica la pronuncia italiana.
Grazie in anticipo

 wrote in message
8qk94c$10f$3...@lacerta.tiscalinet.it...






Egr.


mi interesserebbe anche a me questo Ocx di 
pronuncia Inglese o Spagnolo me lo potresti inviare via e-mail?


Grazie mille.


Ciao.


La mia e-mail è: 
bal...@libero.it





> Se ti interessa, sarň felice di indicarti il sito.
interessa anche a me questo sito. dov'č?
ciao
xAERO
Newsgroup: it.comp.lang.visual-basic
Titolo: Diventare un esperto in visual basic

Salve, sono un giovane programmatore visual basic che ha da poco ripreso
questo linguaggio lasciando il C. Il motivo per il quale ho fatto questo è
semplice: secondo me ci sono più possibilità di trovare lavoro come
programmatore vb rispetto al programmatore C++ (se mi sbaglio ditemelo :)).
Ora ho fatto un breve ripasso delle basi e di qualche funzione base del
visual basic, in particolare ho sviluppato un editor di testo. Siccome non
sono uno che ama molto leggere pagine e pagine di libri (che cavolo li ho
comprati a fare?) sul vb vorrei chiedervi se è possibile diventare un
esperto di questo linguaggio anche solo servendosi delle risorse che ci sono
su internet e senza ricorrere alla lettura di interi libri. Inoltre volevo
chiedere ai più esperti quali sono i passi da seguire per raggiungere ottimi
risultati. In particolare vorrei fare così: fare finta che non ho mai usato
questo linguaggio e rifare tutto dall'inizio. Quali applicazioni devo
provare a fare in ordine cronologico? Spero di essere stato chiaro e che
qualcuno abbia voglia di rispondermi.
Cordiali saluti,
Pier Paolo "lupin^^" Soriente

 wrote in message
news:1bTQ6.6616$%S4.6...@news1.tin.it...


 qualcuno abbia voglia di rispondermi.
trova un programma che ti piace e tenta di rifarlo, le difficoltà le
incontrerai e risolverai man mano... io avevo iniziato con un Tetris e
una Battaglia Navale  :P
N.B.: intanto non è che andavo in Rete alla ricerca di sorgenti: mi
leggevo il manuale del programmatore di VB5 fornito col pacchetto,
seguito a ruota da "Microsoft VB6 Developer's Workshop" di MS Press ...
Buono studio
Faber
Newsgroup: it.comp.lang.visual-basic
Titolo: SETUP1.RES italiano: come lo metto sul sito comune?

Date le richieste (e le donazioni) di questo bel file (5 via mail + 1 via
NG) lo vorrei mettere nel sito comune, ora che ce l'ho. A chi mi devo
rivolgere? A Ettore Maronese?
--
E.G. er Cicca

 
Si. Lo aspetto!  :-))
(La via corretta sarebbe a 
it_la...@usa.net
 ) ma comunque, attualmente, arriva a me.
Saluti
-- 
Hi, Ciao
Ettore                 By -MES-
http://freeweb.aspide.it/freeweb/ilmes
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb

Newsgroup: it.comp.lang.visual-basic
Titolo: Blocco CTRL-ALT-CANC

Salve ragazzi, mi chiamo Nicola e sono nuovo in questo ng.
Vorrei sapere quale API chiamare per bloccare la combinazione di tasti
CTRL-ALT-CANC, ALT-TAB e CTRL-ESC in modo da fare un programma tipo
password di non accesso a Windows 95. Se qualcuno ha la risposta per me mi
faccia il favore di mandarmela direttamente a casa all'indirizzo
rac...@racine.ra.it
WildBoy
PLEASE NOSPAM

 scritto nell'articolo <01bd8ee7$652bc9c0$c831cfc1@rac2933>...

Preso direttamente dal buon sito di Gianni Zacchia.
Const SPI_SCREENSAVERRUNNING = 97&
Private Declare Function SystemParametersInfo Lib "User32" Alias "SystemParametersInfoA" (ByVal uAction As Long, _
        ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Sub Provami(bParam As Boolean)
    Dim lRetVal As Long, bOld As Boolean
 
   ' Disabilita la pressione
    lRetVal = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, bOld, 0&)
   ' Riabilita la pressione
    lRetVal = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, bOld, 0&)
End Sub
Prova a vare un salto in quel sito, ci sono
molte cose carine.....
http://free.imd.it/GiaZack
-- 
Hi, Ciao
Ettore                 By -MES-
http://www.aspide.it/freeweb/ilmes
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con VB6

Stiamo sviluppando un applicativo in VB6 e un bottone chiamato
"Manuale" dovrebbe aprire un file PDF. Il fatto è che la funzione non
riesce a ritrovare il percorso di Acrobat Reader se magari è
installato in una partizione D: o in un percorso non standard del
classico C:\programmi eccetera. Come è possibile ritrovare il percorso
di un'applicazione installata nel sistema?
Memmo

 ha scritto nel messaggio
news:3d1b107f...@news.tiscali.it...

Invertiamo la domanda:
"E' possibile aprire un file senza conoscere il percorso dell'applicazione
associata?"
Si, e' possibile tramite la funzione dell'API ShellExecute, di cui puoi
trovare documentazione su MSDN e innumerevoli esempi in giro per la rete, in
particolare sul Sito Comune di questo NG.
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA"
(ByVal hkey As Long, ByVal lpSubKey As String, phkResult As Long) As
Long
Declare Function RegQueryValue Lib "advapi32.dll" Alias
"RegQueryValueA" (ByVal hkey As Long, ByVal lpSubKey As String, ByVal
lpValue As String, lpcbValue As Long) As Long
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hkey As Long)
As Long
Function IsAcrobatInstalled() As String
Dim lResult As Long
Dim pSubKey As String * 80
Dim pKeyDesc As String * 80
Dim pKeyID As String * 80
Dim phkResult As Long
Dim iKeyCount As Integer
Const HKEY_CLASSES_ROOT = &H80000000
pSubKey = "SOFTWARE\Adobe\Acrobat\Exe" + Chr$(0)
lResult = RegOpenKey(HKEY_CLASSES_ROOT, pSubKey, phkResult)
If lResult = 0 Then
    pKeyID = String(Len(pKeyID), 0)
    lResult = RegQueryValue(phkResult, pKeyID, pKeyDesc,
Len(pKeyDesc))
    lResult = RegCloseKey(phkResult)
End If
If strlen(pKeyDesc) > 0 Then
    IsAcrobatInstalled = Left$(pKeyDesc, strlen(pKeyDesc))
End If
End Function


dimenticavo, la funzione ritorna la path completa dell'eseguibile
di Acrobat Reader da lanciare attraverso magari l'istruzione Shell
oppure CreateProcess

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

Ciao a tutti, mi servirebbe sapere se c'è qualche modo per sapere quando
viene fatto click con il mouse. Intendiamoci, non su un oggetto, ma sul
desktop, non necessariamente dentro la finestra del programma.
Ho provato a guardare nelle API, ed ho trovato la funzione "Mouse_event",
però non ho la minima idea di come si utilizzi.
C'è qualcuno che sa darmi una mano? Qualsiasi suggerimento nella direzione
giusta sarà gradito.
CIAO
        Flavio
--
flav...@tin.it
http://flavionet.freeweb.org

Ciao Giacomo, grazie per avermi risposto, però io volevo sapere se c'è un
qualche modo per capire quando il mouse fa CLICK (nel desktop). Nel mio
programma uso già la funzione GetCursorPos, ma non so come capire quando si
schiaccia.




Newsgroup: it.comp.lang.visual-basic
Titolo: [.NET] Differenze principali tra .Net e .Net 2003

Come in oggetto che differenze ci sono tra le 2 versioni??? (le principali
chiaramente).
Nel 2003 hanno per caso aggiunto il debug in runtime? Mi pare che nelle info
che dava MS c'era l'intenzione di implementare questa funzione come è
attualmente in VB6 oppure è una cosa che è stata posticipata?
Grazie!!!

 Il debug in runtime?
No, ci sara' (sicuro al 200%) nella prossima (Whidbey)
-- 
Corrado Cavalli [Microsoft .NET MVP-MCP]
UGIdotNET - 
http://www.ugidotnet.org
Weblog: 
http://www.ugidotnet.org/710.blog

 No, ci sara' (sicuro al 200%) nella prossima (Whidbey)
Leggevo su Week.it che lo danno in uscita per il 2006...
Da un certo punto di vista mi fa piacere, reinstallare tutto VS ogni anno
non mi sembrava il massimo, pero' anche aspettare il 2006 per alcune
funzioni comode come il debug correttivo mi sembra *troppo*,
Stefano "HappyMan" (Lake Maggiore - Italy)
-- 
The Personal Framework for Object Oriented Windows Development (Win32)
http://www.sgr.info
Email happyman69 (at) 
despammed.com

funzioni comode come il debug correttivo mi sembra *troppo*,
Boh, non mi sembra quella gran mancanza: e' sufficiente pensare
*prima* di scrivere il codice ;-)
-- 
ciao,
hal

 Stefano "HappyMan" (Lake Maggiore - Italy)
-- 
.A    [Microsoft MVP .NET]
UGIdotNET - User Group Italiano .NET
http://www.ugidotnet.org
Read my blog at: 
http://www.ugidotnet.org/4.blog

 virtual machine per ovvi motivi :-)
E' un mio "vizio": la mia macchina di sviluppo deve essere il piu'
possibile "pulita" e avere solo gli strumenti che realmente utilizzo. 
Questo anche perche' volendo fare gli snapshot con programmi tipo Drive
Image se ci installi troppa roba il file generato non solo non ci sta piu'
su un cd (da questo punto di vista bei tempi quelli del Windows 98: 300 MB
di file immagine e avevi s.o., Office 97, VS6, MSDE, e non so cos'altro
:-)) ma neanche su un dvd...
Per Hal..beh hai ragione, lavorando in C++ e' una cosa abituale lo stop and
recompile, ma il debug correttivo per me e' comunque comodo :-)
Stefano "HappyMan" (Lake Maggiore - Italy)
-- 


Newsgroup: it.comp.lang.visual-basic
Titolo: FAX DI XP IN VB6

Salve Ragazzi!!!,
Ho cercato prima un po su google, ed ho trovato anche un esempio (che non
funziona), sapete come fare per inviare fax da VB6 utilizzando il fax di
Windows XP???.
Ciao Grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio
news:cnd9jh$rg5$1...@news.newsland.it...


sinceramente ho visto l'esempio ma non è che ci ho capito molto, hai
qualche altro link?? o spiegazione??.
Ciao grazie
RobertoA ha scritto:


 sinceramente ho visto l'esempio ma non č che ci ho capito molto, hai

Newsgroup: it.comp.lang.visual-basic
Titolo: Lo so, è banale, ma ne ho bisogno...

Non ricordo qual'è l'API che mi mette sempre in primo piano una finestra....
Qualcuno può aiutarmi? E' urgente!
Grazie, ciao!

...

Arieccola...
'Dichiarazioni
Declare Sub 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)
Global Const HWND_TOPMOST = -1
Global Const HWND_NOTOPMOST = -2
'Primo Piano
Call SetWindowPos(Form1.hWnd, HWND_TOPMOST, 0, 0, 0, 0, &H3)
'Secondo Piano
Call SetWindowPos(Form1.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, &H3)
Ciao
--
E' in corso la CFV per it binari.visual-basic la puoi trovare su
it.news.gruppi , it.news.annunci , it.news.votazioni
Leggi bene le istruzioni prima di votare.
Grazie
Andrea :-{)
acm...@hotmail.com


Ho trovato anche questa:
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
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
Sub IsOnTop(hWnd As Long, bOnTop As Boolean)
Dim x As Long
If bOnTop Then
  x = SetWindowPos(hWnd, HWND_TOPMOST, 0, 0, 0, 0, _
          SWP_NOMOVE Or SWP_NOSIZE)
Else
  x = SetWindowPos(hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, _
          SWP_NOMOVE Or SWP_NOSIZE)
End If
End Sub
'Primo Piano
     IsOnTop Me.hWnd,True
'Normale
     IsOnTop Me.hWnd,False


Newsgroup: it.comp.lang.visual-basic
Titolo: Icone dove siete

Ho cercato sull'ng la voce "icone", ma a quanto pare l'argomento non
interessa nessuno. Chi sa dirmi dove trovare una libreria di icone decenti
da usare nei programmi? Quelle fornite con VB, a mio parere, sono
insufficienti e fatte male. Ho cercato anche su internet, ma... forse ho
cercato male, non ho trovato nulla di interessante. Ovviamente ora mi
sparerete una serie di link da brivido... ma mica mi offendo, anzi!  :o)
Bye
Alekos
--- Togli NOZOZZ dall'indirizzo di posta se vuoi mandarmi dello spam ---

 interessa nessuno.
pare male. ho postato piu' volte un elenco di almeno una decina di siti.
sulla prova a cercare free+icons e vedrai che te ne arrivano.


Newsgroup: it.comp.lang.visual-basic
Titolo: lettura files in directory

Sapresti dirmi dove trovare l'algoritmo che permette di leggere la lista di
file presente in una directory???
Grazie e buon lavoro.
Inviato da X-Privat.Org - Registrazione gratuita 
http://www.x-privat.org/join.php

 file presente in una directory???
VB6 o VB.net? 

 ha scritto nel messaggio
news:447d5564$0$14787$4faf...@reader4.news.tin.it...

Inviato da X-Privat.Org - Registrazione gratuita 
http://www.x-privat.org/join.php
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] controllo dell'input

Ciao a tutti.
C'è qualcuno che sa dirmi dove posso trovare un pezzo di codice che mi
controlli gli input carattere per carattere e me ne accetti solo un numero
precisato k (variabile)??
Grazie
Andrea


non è chiarissimo.
txtbox mediante l'evento keypress ti permette di fare ciò che vuoi, e
mediante la proprietà maxlen puoi fissare la lung massima... cosa ti manca?

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

qualcuno ha un url ftp per il kb ?
grazie, a.


Non so se ti puo essere utile. Copio un pezzo del messaggio che mi ha
mandato m$ quando avevo inviato loro un mail con subject: index
all' indirizzo 
msh...@microsoft.com
.
'''''''''''''''''''''''''''''''''''''''' begin quote
Thank you for using MSHelp, the automated Microsoft Knowledge Base
distribution system. Below is an index of Knowledge Base articles and
packaged content that can help you use various Microsoft products. To
request one of the listed items below or any article from the Knowledge
Base, please send an e-mail message to 
msh...@microsoft.com
. In the Subject
line of your message, you can request specific items by entering the
Article-ID number (Qnnnnnn) for Knowledge Base article(s) or the 6-digit ID
number for packaged content as follows:
   Subject: Q162721
   -or-
   Subject: 999998
   -or-
   Subject: Q162302, Q162304, 999998
Note that your e-mail request will be processed within minutes of receipt.
In return, you should receive the requested Knowledge Base article(s) or
packaged content in a timely manner. Thanks again for using MSHelp!
- The Microsoft Product Support Services
'''''''''''''''''''''''''''''''''''''''' end quote
Seguiva l' elenco degli articoli di kb.
Via ftp li ho sempre raggiunti con 
ftp.microsoft.com
, ma se fai questa
richiesta presumo ti interessi qualche altro indirizzo.
Se mi viene in mente altro ti faro' sapere.
Ciao
Aldo

 richiesta presumo ti interessi qualche altro indirizzo.
si', e' /developr/vb/kb
ma essendo il solito stillicidio speravo ci fosse qualche sito aggiornato e
piu' veloce.
grazie, a.

 piu' veloce.
scusate l'ignoranza, cos'è kb?
--
Homer Simpson
home...@libero.it
hom...@tiscalinet.it
http://homersimp.tsx.org
 (In costruzione)

 scusate l'ignoranza, cos'è kb?
knowledge base
database ms di file di testo, organizzati ad albero (secondo una struttura
che dopo quattro anni non sono ancora riuscito a comprendere minimamente),
che elenca bug, workaround, casini e frittelle di vb, e forse non solo di
vb. volendo, si puo' contribuire, sottoponendo a ms, per esempio, un buco e
la relativa soluzione.
( che a volte non c'e' :))

 ( che a volte non c'e' :))
Prima di leggere questa riga, stavo provando una certa invidia ...
Newsgroup: it.comp.lang.visual-basic
Titolo: chiudere form (MDIform) alla pressione dell'icona X

Salve vorrei esporre questo quesito,
come potrei fare a chiudere tutti i form aperti alla pressione
dell'icona X sul mio form principale (MDIform)
grazie in anticipo

 grazie in anticipo
Prego
Ciao, Vincenzo

...

non ho trovato nulla oppure non ho saputo cercare io mi dirasti un url
diretto grazie

 diretto grazie
http://www.g2kweb.it/public/GalleryFile/Divertenti/SanGoogle.jpg
Purtroppo è stato spiegato mille volte e non è che possiamo stare a scrivere
sempre le stesse cose <eg>
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it


Santa verità!!!
Ciao, Vincenzo

Newsgroup: it.comp.lang.visual-basic
Titolo: Distanza di un punto da una retta

Avrei bisogno del codice o anche solo del "metacodice" per la
risoluzione del seguente problema:
Dati 3 punti di coordinate (x1,y1), (x2,y2) e (x3,y3) troavare la
distanza fra (x3,y3) e la retta passante per (x1,y1) e (x2,y2).
Grazie!
Stefano Aglietti aka StallonIt
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
E-mail:agli...@mi.flashnet.it
 
agli...@eskimo.com
 
WWW   :http.//
www.eskimo.com/~aglietti
 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


Devo ringraziare la mia odiosa prof di mate per questo :-(
retta passante per (x1,y1) e (x2,y2):
	(x-x1)/(x2-x1) = (y-y1)/(y2-y1)
Da questa forma basta risciverla nella seguente:
	ax + by + c = 0
e quindi la distanza dal punto (x3,y3) e':
	abs(ax3 + by3 + c) / sqr(a^2 + b^2)
(in realta' non sono molto sicuro se l'ultima e' cosi' oppure
	abs(ax3 + by3 + c) / sqr(x3^2 + y3^2)
al massimo fai due prove ...
)
Ciao, Stefano
Stefano
gl...@eponet.it
http://www.geocities.com/SiliconValley/Lakes/1218
(programmazione VB 32 bit)

	abs(ax3 + by3 + c) / sqr(x3^2 + y3^2)
La prima che hai detto.
    __  ___ ____ _        _____
   /  |/  // __ `/  _____/ ___/ ____
  / /|_/ // /_/ /  / ___/ /__  / __ \
 / /  / / \__,_/  / /   \___/ / /_/ /
/_/  /_/         /_/          \____/
Vincenzo   Carnazzo
http://www.geocities.com/SouthBeach/Marina/9922
Newsgroup: it.comp.lang.visual-basic
Titolo: [API][Atom] Che è?

Quanlcuno mi spiega grossomodo che cosa sono queste API windowsiane che ho
trovato quà e là su internet? Ve lo chiedo prima di usarle xchè non mi fido!
Private Declare Function AddAtom Lib "kernel32" Alias "AddAtomA" (ByVal
lpString As String) As Integer
Private Declare Function DeleteAtom Lib "kernel32" (ByVal nAtom As Integer)
As Integer
Private Declare Function FindAtom Lib "kernel32" Alias "FindAtomA" (ByVal
lpString As String) As Integer
Private Declare Function GetAtomName Lib "kernel32" Alias "GetAtomNameA"
(ByVal nAtom As Integer, ByVal lpBuffer As String, ByVal nSize As Long) As
Long
Private Declare Function GlobalAddAtom Lib "kernel32" Alias "GlobalAddAtomA"
(ByVal lpString As String) As Integer
Private Declare Function GlobalDeleteAtom Lib "kernel32" (ByVal nAtom As
Integer) As Integer
Private Declare Function GlobalFindAtom Lib "kernel32" Alias
"GlobalFindAtomA" (ByVal lpString As String) As Integer
Private Declare Function GlobalGetAtomName Lib "kernel32" Alias
"GlobalGetAtomNameA" (ByVal nAtom As Integer, ByVal lpBuffer As String,
ByVal nSize As Long) As Long
Private Declare Function InitAtomTable Lib "kernel32" (ByVal nSize As Long)
As Long
Ringrazio anticipatamente!
Filer84

 trovato quà e là su internet? Ve lo chiedo prima di usarle xchè non mi
fido!
In breve : sono variabili di tipo Bit allocate direttamente in memoria.
.. AddAtom ...lpString  ... Crei una variabile con nome lpString (il solo
fatto che esista indica che è un valore)
...DeleteAtom ... lpString  ....  Elimina la variabile allocata .. per cui
il valore diventa 0
...FindAtom ... lpString ... Cerca se esiste la variabile lpString ... se si
il valore è 1 altrimenti è 0
le altre non le conosco ...
il bello è che puoi condividere il valore di tali variabili tra applicazioni
diverse ...
saluti


http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ipc/hh/winb
ase/atoms_0p83.asp
ciao

 ha scritto nel messaggio
news:9iun95$l9qdi$1...@ID-92828.news.dfncis.de...

Opss ... perdonate l'ignoranza allora
Saluti

Newsgroup: it.comp.lang.visual-basic
Titolo: Principiante e Problema con indirizzi IP

Ciao a tutti e grazie per l'eventuale risposta.
Supponiamo di realizzare una applicazione contenente il controllo Winsock
che deve scandire una rete da un determinato indirizzo IP ad un'altro.
Esistono due caselle di testo dove vengono digitati i relativi indirizzi IP
nella forma aaa.bbb.ccc.ddd come faccio a estrarre la terza terzina o
qualunque altra tenendo presente che non sempre sono composti da tre
cifre????  Mi serve per realizzare il contatore di tutte le possibili
combinazioni!!
es: 127.34.56.255    voglio il 56
es 234.65.234.12    voglio il 65
Ciao grazie 
b...@libero.it

es 234.65.234.12    voglio il 65
fortunatamente ci sono i punti in mezzo
per cui crei una sub che ti restituisca la posizione dei punti prima...
(instr credo faccia al caso tuo)
e poi tramite la funzione mid ti estrai le cifre.
Paolo
Newsgroup: it.comp.lang.visual-basic
Titolo: VB4: Decoding reply from CommonDialog1.Color

Hi There,
I've got a program where I use:-
CommonDialog1.ShowColor
value = CommonDialog1.Color
However value (on my system) is equal to the colour number of the colour 
selected (ie White is 16777215 or thereabouts).  What I want to do is to have 
the RGB values that make up this colour number.  QBColor doesn't give me this 
as it only accept numbers 1-15.  
Anybody have any ideas how I can do this?
Regards
Stuart


this is an exemple
dim R as long, G as Long, B as Long
dim RGBr as long, RGBg as long, RGBb as long
RGBr = RGB(255,0,0)
RGBg= RGB(0,255,0)
RGBb=RGB(0,0,255)
then
    b = IndexColor \ RGBr
    g = (IndexColor - (RGBr * b)) \ RGBg
    r = IndexColor - (RGBr * b + RGBg* g)
Note J use "\" not "/"
bye
Bruno

Newsgroup: it.comp.lang.visual-basic
Titolo: Cerco TrueDBgrid 6.0 o 7.0

Cerco la griglia ComponentOne.
Inviare offerte o richieste.
Grazie mille.
RobertoA

 94e91u$u8t$1...@lacerta.tiscalinet.it...

Facciamo finta di non aver visto !

 ha scritto nel messaggio
news:94h0rl$m48$1...@fe1.cs.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Visualizzare immagini

Buon pomeriggio,
Ho un db SqlServer in cui ho registrato la path di alcune immagini,
però non riesco a visulizzarle dinamicamente in crystal come posso
fare aiutatemi per favore.
Grazie in anticipo 
Diego

 fare aiutatemi per favore.
Devi usare un report engine serio.
Ciao 

crystal report è tutto quello k ho.....

 crystal report è tutto quello k ho.....
Beh, siamo in un NG di visualbasic, e l'engine report di visual basic è 
il datareport.
Quindi, almeno quello ce l'hai sicuramente...
Comunque, non credo che Zanna si riferisse al datareport...
Alberto
-- 
A questo punto hanno trovato un muro,
un muro duro, molto molto duro,
che siamo noi.

Stavo pensando........
Se invece di registrare la path nel db registro tutta l'immagine.....e
qui sorge un altro problema.......come si immette un immagine in un
campo image di sql server

 campo image di sql server
Prova usando un campo BLOB e la GetChunk/SetChunk per leggerci e scriverci 
dentro.
Con Access funzionava.
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: !! OCX per TCP/IP ??

Qualcuno conosce qualche libreria OCX 32 bit per la gestione delle funzioni
TCP/IP per Internet? In particolare vorrei poter inviare/ricevere e-mail
(SMTP/POP3) tramite un programma Visual Basic.
Gia' utilizzo (per i 16 bit) le librerie della Distinct, ma vorrei trovare
qualcosa che, oltre ad essere 32 bit, fosse anche piu' "leggero" ossia non
richieda la presenza di un run-time da pagare un tanto a licenza (come
invece fa la Distinct)! In pratica un OCX per "mascherare" tutto cio' che
si puo' gia' fare (gratis) con le funzioni contenute nel WSOCK32.DLL...
Eventualmente, visto che conosco anche il protocollo,  mi basterebbe anche
poter avere una textbox da definire come telnet sulle porte di SMTP e
POP3...;-)
--
-----------------------------------------
Alex Palmese      Programatica Sistemi
Work: 
pal...@programatic.it
Home: 
al...@programatic.it

 
Prova con ipworks, sono i migliori e costano poco li trovi su:
http://www.devlink.com/devsoft/
Ciao da Luther.
----------------------
E-Mail: 
blis...@usa.net
-------------------------------------
Maccia, Maccia, Maccia.
-------------------------------------

 (SMTP/POP3) tramite un programma Visual Basic.
Io uso le Microsoft Internet Control Pack, che sono una raccolta di
componenti OCX per l'implementazione di tutti i protocolli utilizzato su
internet (TCP, UDP, FTP, HTTP, POP3, SMTP, NEWS). Fino ad un po' di tempo
fa' era disponibile, sul sito della Microsoft, la beta release,
perfettamente funzionante anche se con qualche baco e mancanza nei files di
help e senza esempi, ma con un po' di prove e molta testardaggine si riesce
a far funzionare il tutto. 
La distribuzione dell'ICP e' poi passata ad una ditta americana, che le
commercializza (a pagamento), e sono tutte esclusivamente a 32 bit. Trovi
il riferimento direttamente dal sito della Microsoft.
C'e' anche un componente per la visualizzazione delle pagine in HTML, se ti
interessa.
Fabrizio Palma
fabp...@numerica.it
Newsgroup: it.comp.lang.visual-basic
Titolo: CHI MI SA DIRE QUALCOSA??????

Egreggi programmers,
C'è nessuno che puo' mandarmi una lista (con spiegazione) delle proprietà e
dei metodi del RichTextBox Control????
VI ADORO SE ME LA MANDATE.............


Esiste anche l'help in linea, senza che nessuno ti mandi niente... :)
Ciao

 >C'è nessuno che puo' mandarmi una lista (con spiegazione) delle proprietà


Comunque sarebbe più utile che qualcuno mi spiegasse per bene........
:-((((


Newsgroup: it.comp.lang.visual-basic
Titolo: Gif animate

Vorrei sapere se esiste la possibilitą di far animare le immagini .gif come
nelle pagine web.
Inoltre che comando devo usare per aprire il form di sistema per la gestione
della data e ora di win95?
Ringrazio anticipatamente
Chi volesse rispondermi privatamente: 
d...@krenet.it
Ciao

della data e ora di win95?
Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl",1)
Fabio Guerrazzi

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con DBGrid

Salve!
Ho un problema legato all'uso di una DBGrid. Vi spiego:
devo visualizzare un elenco di record che hanno in comune un codice, e
questo codice viene inserito dall'utente. Nel momento in cui l'utente preme
un tasto, viene visualizzata la form che contiene la dbgrid. Per fare ciò,
al momento del caricamento della form, modifico la proprietà recordsource
del controllo data con la seguente istruzione:
datPrimaryRS.RecordSource = "SELECT * FROM Ordini WHERE Data=" & Text3.Text
& " AND Lavorazione=" & Text2.Text & " AND CodMob=" & Text1.Text
dove Text 1, 2 e 3 contengono le informazioni comuni ai record. Il database
da aprire è indicato nella proprietà Databasename del controllo data.
Quando eseguo il programma, il compilatore genera il seguente messaggio
Data error event hit err: Unknow
Dove sbaglio? Devo usare un altro tipo di controllo?
Ciao Andrea
PS: utilizzo VB6.

& " AND Lavorazione=" & Text2.Text & " AND CodMob=" & Text1.Text
Presumo che i text abbiano dei valori validi che prima di lanciare hai
controllato
io di solito su una clausola WHERE che filtra una data scrivo così:
 "Where  Data  =  CVdate( " & chr(34) & text1.text & Chr(34) & ")"
se i campi Lavorazione e CodMob sono numerici dovrebbero andare ben se sono
campi testo
devi racchiuderli tra apici o usare chr(34)
Ciao Stefano

Newsgroup: it.comp.lang.visual-basic
Titolo: Salvare textbox, combobox...

Salve.
Ho un programmino che mi apre un form in cui specifico delle proprietà per
l'esecuzione del programma. Queste proprietà le inserisco tramite dei
textbox, dei combobox..
Quando chiudo e riapro questo form, però tutte le proprietà che avevo già
inserito mi si cancellano e ritornano all'impostazione iniziale.
Come posso far si che questo non avvenga?
Avevo pensato a salvare tutto in un file .txt e ricaricarlo ad ogni apertura
di questo form, ma come si fa?

> Come posso far si che questo non avvenga?
Perché non le salvi nel registro di configurazione?
Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO: Common Dialog control

Ho un PC con Windows 95 versione B e Visual Basic 5.0 Professional Edition.
Il problema è che se provo ad inserire un controllo Common Dialog (ed anche
alcuni altri) mi appare un messaggio di errore (429) che mi dice che non ho
la licenza: ma che devo fare ?????
Grazie, a chiunque mi risponda, per l'attenzione concessami.

 ha scritto:
Prendi il cd di vb.
Spostati nella dir \TOOLS\CONTROLS\
Copia il file VBCTRLS.REG su disco fisso (non importa dove)
Doppio clic sul file copiato su disco fisso.
Voila'.

~#~#~#~#~#~#~#~#~#~
Gabriele Bertolucci
pbe...@vi.ats.it
pbe...@freemail.it
http://userspace.ats.it/free/pberto/
http://www.fortunecity.com/skyscraper/spiff/523/
ICQ #: 9732192
~#~#~#~#~#~#~#~#~#~
Newsgroup: it.comp.lang.visual-basic
Titolo: variabile Byref

Scusate un attimo ... ma c'è qualcosa che non mi quadra
se io ho un modulo ... dentro una variabile
e dentro al modulo una chiamata ad una sub
dove passo questa variabile come optional byref
dentro alla sub il valore viene cambiato, perchè in
ritorno alla chiamata la variabile riprende il valore
originale, tanto che la variabile sia a livello di modulo
che a livello di usercontrol/form?
Preciso che le sub e i moduli sono entrambe nella stesso
file e che uso option explicit proprio per evitare problemi
di sorta.
Che succede?
Ciao
Andrea



Ho capito bene o la variabile è stata dichiarata a livello di modulo? Se
è così, quella che passi come parametro è in realtà una variabile
diversa: verifica su MSDN lo scope delle variabili: vedrai che se in una
procedura è dichiarata una variabile (privata) con lo stesso nome di una
pubblica, questa viene "nascosta" (quella a livello di procedura
"shadows" quella a livello di modulo o globale) e viene usata come
riferimento quella locale.
Idem per i parametri.
Ciao,
Moreno
-- 
sirri at morenosoft dot com
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
---------------------------------------------------------------------------

Dunque sto facendo un ocx ... e tutto il codice
sta nell'usercontrol ....
ora ho verificato quello che dici tu ... ma non è
così ... cioè non nel mio caso.
Ti scrivo un pezzo di codice per farti capire ... non
è un cut & paste, ma la zuppa è quella.
option explicit
private sub text1_keypress ....
  dim curpos as byte
  call getcurpos(curpos)
end sub
private sub getcurpos(optional byref curpos as variant)
    if (ismissing(curpos) = false) then
            curpos = curpos +1
    end if
end sub
bene curpos quando sta per uscire da getcurpos vale
quello che valeva + 1 ... quando esce torna
ad essere il vecchio valore.
di dichiarazione dim o private curpos c'è n'è solo
un altra, ma è dentro un'altra sub che non viene minimamente
toccata nel caso in questione.
************
Mi sono dimenticato di dire una cosa, forse sta qua il mio
errore ... l'inghippo succede solo se faccio una cosa
del tipo   call getcurpos(curpos + 1) o + quello che vuoi
altrimenti funziona tutto ...
Ciao
Andrea

altrimenti funziona tutto ...
tombola!
con quella chiamata fai implicitamente un'assegnazione, quindi non gli
passi un riferimento alla curpos definita nella routine chiamante, bensě
un valore diverso.


 un valore diverso.
bene risolto l'arcano :)
Grazie
Andrea
Newsgroup: it.comp.lang.visual-basic
Titolo: Disinstallazione

Ciao a tutti,
avrei un problema da risolvere.
Un programmatore prima di ma ha fatto un pacchetto di installazione
dove impostava di default, per dei file, che quando venisse fatto
doppio click
in automatico partisse quel dato programma.
Avrei l' esigenza che quando questo viene disinstallato anche questo
automatismo venga cancellato.
Come posso fare???
Grazie, Leonardo

se ho ben capito, durante il setup veniva scritto il registro di config di
Windows, facendo in modo che una certa estensione venisse associata ad un
certo programma.....
giusto? ho capito giusto?
per la disinstallazione credo funzioni diversamente, dipende soprattutto dal
programma utilizzato per fare il setup (standard di vb, InnoSetup, Visual
Installer, etc.)........
quest'ultima procedura infatti è più che altro comandata dall'OS, che si
occupa di cancellare files e dir senza fare danni al sistema, quindi non
credo che tu abbia possibilità al riguardo.......
se ha usato il prg standard di vb, potrebbe aver ricompilato setup.vbp,
adattandolo alle sue esigenze!
good coding!!!
--
Damiani Liborio Igor
ig...@igordamiani.it
 - 
dam...@italiainfiera.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262

 good coding!!!
Ha usato il classico creatore di pacchetti di installazione del Visual
Studio 6.0. Dai, non hai nessuna dritta da darmi ? Nessuno mi può
aiutare ?
Pri

Newsgroup: it.comp.lang.visual-basic
Titolo: Cerco un buon manuale

Ciao a tutti,
anche se programmo da un po' in VB6, mi sono accorto che spesso potrei
migliorare la gestione delle mie righe di codice se avessi delle basi
migliori.
Dunque, anche se di solito e' da farsi prima di programmare, qualcuno
sa consigliarmi un buon manuale per chi ha gia' le basi e cerca
soprattutto di approfondire le tematiche legate agli oggetti, alle
classi e, piu' in generale, vuole sviscerare le novita' del VB6
rispetto ai suoi predecessori?
Il costo non ha importanza.
Grazie mille.
Bye,
   Ricky

 Grazie mille.
Battuta: il costo non ha importanza e... solo grazie mille?
--
Ciao.
Maurizio

Battuta: il costo non ha importanza e... solo grazie mille?
Gli e' che pensavo gia' in Euro. ;-)
Bye,
   Ricky
Newsgroup: it.comp.lang.visual-basic
Titolo: Gestire un DB Remoto

Vorrei fare un programma VB che gira sul computer di casa mia collegato
in internet.
Vorrei che sia in grado di aprire un database Access fisicamente
residente sul server
de provider leggere alcune tabelle e inserirle su un database Access
fisicamente
residente sul computer di casa mia.
E' possibile ? 
Qualcuno mi puo' gentilmente dare qualche spunto.
Esiste qualcosa del genere sul sito comune ?
Antonio Passaro
E-mail : 
antonio...@hotmail.com
--
Posted from 
mailbari.olivettiricerca.it
 [193.76.87.205]
via Mailgate.ORG Server - 
http://www.mailgate.org

Una stupidissima riposta potrebbe essere:
set db=opendatabase(\\1.2.3.4\directory_condivisa\database.mdb)
dove 1.2.3.4 è l'indirizzo IP del server e directory_condivisa è il nome
della directory condivisa (appunto). Tutto questo funziona se il Server del
provider ha installato un Client per reti Microsoft e se tu hai i permessi
per accedere a tale directory. Comunque è un'inizio...
Antonio Passaro ha scritto nel messaggio
<36E4E5...@NSPolivettiricerca.it>...


Con Access.....la cosa è molto semplice.........
ho ti copi le tabelle o ti alleghi le tabelle
se invece volessi fare un prog in Vb devi usare RDO
remote data object



Veramente, visto che c'è di mezzo internet, la cosa funziona se usi
RDS. In questo modo puoi accedere al recordset remoto tramite HTTP.
Ciao
--------------------------------------------------------------------
Fulvio Senore
Eliminate "zz" dall'indirizzo e-mail per scrivermi (spammers...)
Remove "zz" from e-mail address to write me (spammers...)
--------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Da String di 4 char a Long?!?!?

Salve, ho un problema con la conversione dei tipi in vb5. Anni fa, su Amiga, si
convertiva facilmente un valore long in una sequenza di 4 caratteri e viceversa,
secondo il valore di ogni byte dei quattro che lo rappresentano in memoria.
Dovrei fare la stessa cosa con vb5, partendo da una sequenza di 4 byte ricavare
il valore long, un po' come si fa con asc() per gli integer. Ho provato clng ma
chiede in input un valore numerico. Come si fa?
Grazie!
Dario Corti
dario...@iol.it
http://dariobrunocorti.freeweb.org
ICQ#: 37438061
--------------------------------------------
Avvio di  Windows 95 in corso...
Error code 103.
1> loadwb
1> endcli

 il valore long, un po' come si fa con asc() per gli integer. Ho provato clng ma
Prova questo, occhio che la stringa ricavata dal long appare al
contrario.
--------------------------------
Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
        (Destination As Any, _
         Source As Any, _
         ByVal Length As Long)
Private Function StrToLong(ByVal sString As String) As Long
    Dim lLong As Long
 
    sString = sString & String(4, Chr$(0))
 
    Call CopyMemory(lLong, ByVal sString, 4)
 
    StrToLong = lLong
 
End Function
Private Function LongToStr(ByVal lLong As Long) As String
 
    Dim sString As String
 
    sString = String(4, Chr$(0))
    Call CopyMemory(ByVal sString, lLong, 4)
 
    LongToStr = sString
End Function
---------------------------------
Ciao
Flavio ronco
-- 
f.ronco@*NonMiServeNiente*
flashnet.it
http://www.metabrains.com
  [Under Construction]
-------------------------------------------------------------
"Che pubblico in gamba! Se ci dite dove lavorate,
domani mattina se abbiamo tempo vi veniamo a vedere"
[Paolo Rossi]

 Option Explicit
[snip]
Grazie, perfetto.


Newsgroup: it.comp.lang.visual-basic
Titolo: recordset collegato a griglia dati "datagrid"

Ciao a tutti,non ho ben capito come posso ricavare il nome del
recordset ricavato ad un controllo datagrid.
Ad es. ,se provo scrivere: debug.print MiaGriglia.datasource, visual
basic mi restituisce un errore.
Come posso fare?
Ciao e grazie,
Alberto.



Non ricordo bene ma, a occhio, dovrebbe essere possibile fare cosi':
Dim rs AS ADODB.Recordset
Set rs = MiaGriglia.DataSource
Debug.Print rs.Source
Set rs = Nothing
-- 
ciao, hal


si,questo si,ma io ho bisogno di ricavarmi la proprietą datasource di
una griglia gią collegata.
Ciao,
Alberto

recordset ricavato ad un controllo datagrid.
Ma cosa intendi con ricavare la proprieta' Datasource?
Nel caso della griglia deve trattarsi di un oggetto che implementa le
interfacce IDataSource ed IRowSet, come fa, ad esempio, il Recordset.
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] Caricare una pagina html

Mi spiego: dalla mia applicazione devo far partire Iexplorer che deve
caricare una pagina HTML memorizzata in una variabile ,  potrei creare un
file temporaneo e poi caricarlo ... ma mi chiedevo è possibile farlo
direttamente
senza creare prima un file temporaneo !!!
questo codice non funziona
--------------------------------------------
TestoData = LoadResData(101, "HTML")
TestoData = StrConv(TestoData, vbUnicode)
iRet = ShellExecute(Me.hwnd, vbNullString, "TestoData", _
vbNullString, vbNullString, SW_SHOWNORMAL)
--------------------------------------------
Potreste darmi una mano ????? - grazie!!!

OmegaT ha scritto:

ma sei conscio del fatto che il terzo parametri della shellexecute è 
"TestoData" e non TestoData?


si ! la variabile si scrive senza "" - l'errore è dovuto alle varie prove
che sto facendo !

 ha scritto nel messaggio 
news:49a1c23f$0$1113$4faf...@reader3.news.tin.it...

Prova così:
'-->
'--> inserire i riferimenti alla libreria
'--> Microsoft HTML Object Library
'-->
On Error GoTo errori
Dim oApp As InternetExplorer
Dim nomePaginaWeb as string
nomePaginaWeb = "test.htm"
Set oApp = CreateObject("InternetExplorer.Application")
oApp.Navigate2 "file://" & nomePaginaWeb
Do
    DoEvents
    If oApp.readyState = READYSTATE_COMPLETE Then
        Exit Do
    End If
Loop
oApp.Visible = True
Set oApp = Nothing
Exit Sub
errori:
Set oApp = Nothing
'---
Ciao.
-- 
Sergio MAZZA 

Grazie Sergio il tuo codice funziona, ma non è quello che voglio fare:
io ho memorizzato una pagina HTML in file di risorse quando serve
la carico creo un file temporaneo la visualizzo tramite IE .
Chiedevo se si potesse  fare senza creare un file temp dando a IE il
contenuto della variabile  direttamente.... GRAZIE .

"
        sUrl = sUrl & "</body></html>"
    Debug.Print sUrl
    WB.Navigate sUrl
    'ShellExecute Me.hwnd, "", sUrl, "", "C:\", SW_SHOWNORMAL
End Sub
ciao 

 gestire:
errata: "te la puoi"
corrige: "dovresti potertela"
ciao :) 

Dopo molte ore di ricerche ho trovato la soluzione in un forum internet.
Ecco il codice per chi ne avesse bisogno:
Ricapitoliamo :
Ho una pagina HTLM memorizzata in un file di risorsa
voglio caricarla in una variabile e visualizzarla tramite IE
direttamente senza creare un file temp.
Private Sub Command1_Click()
'Bisogna caricare in riferimenti la libreria Microsoft internet Control
"SHDOCVW.DLL"
TestoData = LoadResData(102, "HTML")       'carica la pagina HTML in una
variabile
TestoData = StrConv(TestoData, vbUnicode)  'converte in parametri unicode
Dim Ie As New InternetExplorer                       'Dichiara un nuovo
oggetto
Ie.Visible = True                                              'visualizza
IExplorer
Ie.Navigate "about:blank"                  'browser must be initialized
before .write will work.
Ie.Document.Open                            'apre la proprietą Document
Ie.Document.write TestoData            'scrive nella pagina la variabile
Ie.Document.Close                           'chiude la proprietą Document
End Sub