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

Qualcuno può dirmi come capire se su un sistema sono presenti font Grandi ,
Normali o Piccoli?
-- 
Posted from 
nread2.inwind.it
 [212.141.53.75] (may be forged) 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

....interessante.
....a proposito, quali sono i font "normali" , visto che da
Proprietą dello schermo > Impostazioni , si possono settare solo "Caratteri
grandi" e "Caratteri Piccoli" ?
Ciao
Steama

Piccoli, Grandi, Altri...
Ciao


 Normali o Piccoli?
Il "System Font" scalato al 100% è alto 16 pixel.
Oppure 96 "logpixel".
Purtroppo, se il font di sistema viene modificato (personalizzato)
i conti non tornano.
Se il font di sistema è quello "normale", ci sono due modi
per conoscerne le dimensioni.
Ti descrivo la procedura.
'Ottieni il DC del desktop
[hwnd] = GetDesktopWindow()
[hdc] = GetWindowDC([hwnd])
'Imposti la mappatura del DC su Text
[OldMode] = SetMapMode([hdc], MM_TEXT)
'Passi una struttura TEXTMETRIC alla funzione GetTextMetrics()
'Ti restituisce nella struttura i dettagli sul font
GetTextMetrics [hdc], TEXTMETRIC
'Rimetti in ordine le cose
[OldMode] = SetMapMode([hdc], [OldMode])
ReleaseDC [hwnd], [hdc]
in TEXTMETRIC.tmHeight hai la dimensione del font.
Se è = 16 -> "Small Font"
Se è > 16  -> "Large Font"
Oppure:
'Ottieni il DC del desktop
[hwnd] = GetDesktopWindow()
[hdc] = GetDC([hwnd])
[logPixel] = GetDeviceCaps([hdc], LOGPIXELSX)
ReleaseDC [hwnd], [hdc]
Se [logPixel] = 96 -> "Small Font"
Se [logPixel] > 96 -> "Large Font"

Newsgroup: it.comp.lang.visual-basic
Titolo: API, guide e manuali per capirci qualcosa :-)

salve a tutti.
Credo che l'oggetto sia chiaro: qualcuno di voi sa indicarmi qualche
guida/tutorial/manuale o quant'altro possa aiutarmi a capire qualcosa
sull'utilizzo delle API?
grazie mille a tutti!

 sull'utilizzo delle API?
www.allapi.net
 (APIGuide)

già ci sono arrivato... grazie!
Però se ci fosse qualcosa in italiano mi farebbe più piacere :-)

 Però se ci fosse qualcosa in italiano mi farebbe più piacere :-)
Un corso di inglese, con titoli dei capitoli in italiano? ;-)

 Perň se ci fosse qualcosa in italiano mi farebbe piů piacere :-)
http://babelfish.altavista.com/babelfish/urltrurl?url=http%3A%2F%2Fwww.allapi.net&lp=en_it&tt=url
Occhio perň al nome delle variabile e delle funzioni :)
termoPilucco.

sul sito comune sta una guida alle API.
l'indirizzo è 
www.it-lang-vb.net
il file è Raccolta_API.zip
devi cercarlo però.
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

 ha scritto

come ti hanno detto, meglio se usi le guide inglesi.
una raccolta ita la trovi comunque qui:
http://members.xoom.virgilio.it/CesareRizzi/
--
ciao, j.
http://www.sundaysw.com/google.gif

credo di averla trovata... ora ci do' un'occhiata...
il link č:
http://www.it-lang-vb.net/download.asp?file=http://www.it-lang-vb.net/Documentazione/Articoli/usoapivb.htm&ID=434
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto-Creare un oggetto....

Ciao a tutti.
Qualcuno mi sa dire come posso
creare un oggetto a run time (nel mio caso
premendo un bottone ne dovrei creare un altro
e cosi' via) per poi dopo piazzarlo dove voglio
su un mio form tramite drag ?
Inoltre, sperando di non chiedere troppo,
mi sapreste indicare qualche esempio (codice) di darg & drop ?
Grazie infinite.
Stefano
Albonett...@MailCity.com

Se hai VB6 puoi uare il metodo add della collezione controls altrimenti devi
crearti l' oggetto (magari hidden) a design time e far si che sia l'elemento
0 (zero) di una control collection e poi usare il metodo load per aggiungere
altri elementi, ricordati di impostare la proprietą visibile dei nuovi
oggetti a true altrimenti non li vedi.
Ciao
Corrado

...


Newsgroup: it.comp.lang.visual-basic
Titolo: INTERCETTARE SHUTDOWN / LOGOFF WINDOWS

Come si possono intercettare questi eventi? Ho la necessita di far partire
un programmi di inserimento delle ore giornaliere di lavorazione, ogni volta
che un utente si scollega o chiude la macchina. Alla fine dell'insirimento
di questi dati, la macchina prosegue con l'azione avviata.
Grazie
Flavio

Come si possono intercettare questi eventi? Ho la necessita di far partire
]zac[
Newsgroup: it.comp.lang.visual-basic
Titolo: Menu': Qualche delucidazione in merito

Un saluto a tutti.
Vi chiedo qualche delucidazione in merito ai menu. Per chiarirmi meglio
consideriamo il seguente esempio:
Supponiamo che nel form principale dell'applicazione abbia inserito il
seguente menu':
AAA
...AA1
...AA2
BBB
...BB1
1)
Provando ho notato che cliccando su AA1 apro il relativo form (dopo aver
gestito naturalmente l'evento click). Se però con tale form aperto voglio
cliccare su qualsiasi voce del menu' del form principale, quest'operazione
non mi riesce (devo prima chiudere il form aperto dal click su  AA1 e poi
posso effettuare una nuova scelta.
E' possibile ovviare con qualche opzione a questa situazione (io con il form
aperto da AA1 vorrei per esempio riuscire a fare anche un'altra scelta).
2)
E' possibile fare in modo che tutti i form possiedano il menu' creato sul
form principale in modo da evitare di avere 10 form aperti (gestire il tutto
con un unico form praticamente....con in alto il menu'). Nel modo in cui ho
proceduto io praticamente sono dipendente del form principale.....se per
sbaglio lo chiudo non posso accedere al menu (naturalmente la dipendenza e'
dovuta alla scarsa conoscenza dei menu' !!!!)
3)
Durante la creazione del menu' non ho ben capito a cosa serve l'opzione
relativa a "window list".
grazie a tutti anticipatamente per le eventuali delucidazioni in merito
e.

Vedi esempi relativi al form MDI (MDIForm)
ciao
Jack95
elio <notf...@NOSPAM.it> wrote in message 9ihn1l$t8e$1...@usenet.inwind.it...


......
alle prime 2 mi son risposto da solo "MDI" "MDI" e ancora "MDI" chiedo scusa
:-(
ciao
e.

 relativa a "window list".
Serve solo se hai un'applicazione MDI (vedi sopra), in pratica e' una voce
che viene automaticamente popolata con l'elenco delle finestre child aperte;
sempre facendo riferimento ad un applicativo Office qualunque coincide con
la parte finale dei menu' "Finestra"
Ciao
--
Luca Dormio
luca....@tin.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Togliere un elemento da un array

Ciao a tutti.
Io ho un array a cui modifico dinamicamente l'indice attraverso la
redim.
Finchč aggiungo non ho problemi in quanto mi basta incrementare di uno
Ubound(mioarray) e assegnargli il valore.
Quando perň devo togliere un valore come devo comportarmi?
Ad esempio. Se dovessi togliere 5?
3 - 5 - 7 - 9
Dovrei implementare un algoritmo di shift dei valori oppure esiste un
metodo piů veloce?
Grazie per le risposte.
Max
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 veloce?
Devi implementare un algoritmo di shift.
In alternativa puoi usare una collection, in particolare
ricordo che per ciclare rapidamente sugli elementi di una
collection esiste il For Each ... In ... che e' molto
performante.
hth,
Lokar
-- 
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
Statuto: 
http://www.it-lang-vb.net/docs/Statuto.txt
UGIdotNET - 
http://www.ugidotnet.org

 un metodo piů veloce?
Se hai voglia di rischiare (terrorismo gratuito ;) puoi usare la CopyMemory:
Private Declare Sub CopyMemory Lib "kernel32" Alias _
"RtlMoveMemory" (Destination As Any, Source As Any, _
ByVal Length As Long)
ub = UBound(arrA)
CopyMemory arrA(n), arrA(n + 1), (ub - n) * l
ReDim Preserve arrA(ub - 1)
Dove n č l'indice dell'elemento da eliminare e l l'occupazione in byte di
ogni elemento (lo puoi ottenere con la funzione LenB() )
--
Ciao, Silv:o)

 
se non interessa l'ordine basta spostare il 9 al posto del 5 e eliminare 
l'ultimo elemento.
Altrimenti puoi usare la copymemory per fare uno shift d'un colpo solo 
(se cerchi in google sull'argomento dovresti trovare come).
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Valori in un array e loop...

Ho popolato una Array splittando il contenuto di una textbox cosě:
c = Split(Text(2).Text, "\")
Ho necessita di stampare l'ultimo valore dell'array e pensavo di poter fare
cosě:
n = UBound(c) - LBound(c) + "1"
cart = c(n)
...
Print #1, cart
Il codice perň mi va in loop e non ne capisco il motivo.
In testa ho dimensionato come segue:
Dim cart As String
Dim n As Integer
Dim c() As String
Da notare che se faccio
Print #1, n
mi restituisce correttamente l'ultimo indice dell'array. A me servirebbe il
suo contenuto.
Dove sto sbagliando?

 n = UBound(c) - LBound(c) + "1"
Mmmmmmmm... sommi pere e mele? Cioè numeri e stringhe? Si vede che ti fidi un
po' troppo ciecamente delle conversioni implicite di VB...
Sarebbe: n = UBound(c) - LBound(c) + 1
E comunque questo ti dà il numero di elementi, l'indice dell'ultimo elemento è
già UBound(c),
Bye
Raf

 elemento è già UBound(c),
ho risolto con
cart = c(UBound(c))
Print#1, cart
grazie

 ha scritto:

Potresti fare Print#1, c(UBound(c))
non penso ti serva una variabile buffer
Ciauz
-- 
'gnurant come una cucuzza

Newsgroup: it.comp.lang.visual-basic
Titolo: Ottenere la lettera di unità del CD-Rom

E' possibile, tramite VB, ottenere la lettera di unità che corrisponde al CD
Rom?
Grazie per un eventuale aiuto!
Ciao

...


 wrote in message
7tsqq3$2du$1...@fe1.cs.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Programma VB per stampa laser.

Volevo sapere se e' possibile realizzare in VB un programma che permetta di
stampare, ad esempio, un bollettino postale, compilato nelle varie parti
con dati prelevati da un archivio qualunque.
Il tutto partendo da un'immagine ottenuta tramite "Stampa su FILE" di un
bollettino postale in bianco (non compilato) creato con un programma di
grafica.
So che in via assoluta cio' e' possibile perche' attualmente utilizzo un
programma della Zucchetti che, appunto, partendo da file .prn (che inviati
tramite comando DOS "copy c:pippo.prn lpt1 /b" producono una stampa di vari
modelli fiscali in bianco) genera una stampa "fondendo" (?) l'immagine del
modello con i dati richiesti.
Quello che non so e' se ciň sia stato realizzato con VB.
Ringrazio anticipatamente chiunque sappia aiutarmi.
Ciao.
Antonello.

Quello che non so e' se ciò sia stato realizzato con VB.
Non è impossibile in assoluto farlo con il VB, ma il problema può essere la
compatibilità con la stampante. Se uno dei tuoi utenti vuole usare una
PostScript, uno una LaserJet, uno una stampante a matrice ecc., sei nei
guai.
Se devi fare invece un prog "una tantum" è più semplice.
Ho esaminato due soluzioni diverse per lo stesso problema qualche anno fa,
In una usavo il file di "sfondo" convertito in .wmf in una imagebox,
che se non sbaglio non doveva nemmeno essere visibile, poi stampavo i
dati variabili sopra, in un'altra mandavo in una stampante (PostScript)
un file tipo .EPS generato da un mio programma con l'API Escape e il
PassThrough, poi stampavo il resto dei dati normalmente. L'APi Escape è
considerata obsoleta, ma ancora supportata, vedi il secondo e il terzo
articolo.
Purtroppo non trovo più i sorgenti perché non ho terminato quel programma,
ma le linee generali erano queste; la prima soluzione ha il vantaggio
di essere molto più indipendente, forse per il tuo uso è meglio.
Three Methods to Send Preformatted Files Directly to Printer
http://support.microsoft.com/support/kb/articles/q119/1/13.asp
Questo è più recente (13 maggio 99) , l'ho trovato solo oggi:
HOWTO: Send Raw Data to a Printer Using the Win32 API from Visual Basic
http://support.microsoft.com/support/kb/articles/Q154/0/78.ASP
Printer Escapes Under Windows 95
http://support.microsoft.com/support/kb/articles/q125/6/92.asp
Bye, G.
--
---------------------------------------------
    Le risposte alle tue domande le trovi sul
    Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------
Real E-address: 
gaet...@hotmail.com




Sě č possibile
E come?
Hai qualche listato gia' pronto?
Thanks.
Antonello.
Newsgroup: it.comp.lang.visual-basic
Titolo: Aggiornare un campo calcolato di un recordset ADO

Ciao a tutti.
E' possibile modificare il valore di un campo calcolato in un recordset ADO,
oppure esiste un modo per farlo automaticamente?
Per esempio se eseguo questa Select
SELECT Campo1, Campo2, Campo3, Campo1+Campo3 AS CampoCalc FROM .....
Quando aggiungo un nuovo record non mi permette di specificare il valore di
CampoCalc.
Grazie.
Ciao.
Skysurfer

E' normale che non te lo permetta perchè il campo costituito da un calcolo
di due o più campi è possibile farlo da una query di selezione ( per
intenderci SELECT), perchè ado crea questi campi in modo "virtuale", ma
quando esegui query d'azione (update, delete, insert), le operazioni vengono
svolte sulla base dati fisica e quindi il campo "virtuale" non esiste!!!
Un modo per risolvere il problema è quello di fare l'operazione inversa a
quella che hai fatto nella select e inserire i valori nei singoli campi
interessati...così quando effettui la select con il campo combinato, avrai
magicamente il risultato nuovo!
--------------------------------
Inviato via 
http://usenet.libero.it

 magicamente il risultato nuovo!
Il mio problema č che per aggiungere record nuovi DEVO usare il metodo
AddNew del recordset.
Se tento di specificare direttamente il valore del campo calcolato va in
errore, se non lo specifico rimane vuoto.
Skysurfer

 errore, se non lo specifico rimane vuoto.
Come già detto il campo Campocalc non esiste.
Cita un po' della struttura della tabella e dicci cosa vorresti fare
nell'aggiunta.


Il mio promblema principale è l'ordinamento di un recordset in base a campi
testo che dovrebbero contenere solo numeri.
Supponiamo di avere questa semplice tabella in un MDB con 3 campi, Campo1,
Campo2 e Campo3 di tipo testo di 10 caratteri.
SELECT * FROM MiaTabella mi restituisce questi record
Campo1  Campo2  Campo3
4              45           12
2              125         47
21            58           1
12            1             18
Se ordino i record in base a campo1 ovviamente non ottengo 2, 4, 21, e 12 ma
12, 2, 21, 4
Allora avevo pensato di creare un campo calcolato che unisse i valori di
Campo1, Campo2 e Campo3 allineandoli a destra ottenendo quindi i seguenti
campi (i puntini in CampoOrd sono gli spazi):
Campo1  Campo2  Campo3 CampoOrd
4              45           12           .........4........45........12
2              125         47           .........2.......125........47
21            58           1             ........21........58.........1
12            1             18           ........12.........1........18
Eseguendo quindi l'ordinamento su CampoOrd viene correttamente. Il mio
problema è quando aggiungo un nuovo record al recordset ADO (come ho già
detto devo utilizzare il recordset e non voglio scrivere le modifiche
direttamente nella tabella con SQL perchè l'utente potrebbe alla fine
decidere di annullare tutte le operazioni). Sul nuovo record il campo
CampoOrd sarà vuoto ed il tentativo di riempirlo via codice genera un
errore.
Grazie a tutti.
Skysurfer
Newsgroup: it.comp.lang.visual-basic
Titolo: ? Dimensione campo

Premetto che uso DAO con access.
Si può aumentare la dimensione di un campo di una tabella.
Ho girato su MSDN ma non sono riuscito atrovare niente.
Devo per forza copiare i dati in una temporanea, cancellare e ricreare la
tabella con le nuove dimensioni e quindi ricopiare i dati?
Carmelo

 Ho girato su MSDN ma non sono riuscito atrovare niente.
Sě, se ne č parlato piů volte.
Cerca ALTER COLUMN in questo gruppo.
Dovrebbe essere sufficiente un
... ALTER COLUMN campo TEXT(20)
per portare la colonna a 20 caratteri
Ciao

 ... ALTER COLUMN campo TEXT(20)
Se il campo fa parte di una chiave o relazione bisogna prima provvedere
all'eliminazione delle stesse (purtroppo).
termoPilucco

Newsgroup: it.comp.lang.visual-basic
Titolo: Passare a funzione una matrice

Ho creato una funzione che opera su grandi quantità di dati, da
diverse sorgenti.
Questi dati devono essere organizzati in  matrici.
Il problema è il passaggio della matrice alla funzione.
In C è banalissimo, possibille che in VB non riewsco a trovare come si
fa?
Ciao Lorenzo

...

Prova questo (VB5):
============
Private Sub Command1_Click()
dim blnRtn As Boolean
Dim MiaMatrice(20) As String
MiaMatrice$(1) = "1"
'Chiamata alla funzione con passaggio di matrice
blnRtn = MiaFunzione(MiaMatrice())
End Sub
'-----------------
Private Function MiaFunzione(MatricePassata() As String) As Boolean
MsgBox MatricePassata$(1)
End Function
=========
Fabio Pagano

tome...@tin.it
 (LT) wrote:
Ho risolto cosě:
dim a() as single
.
.
.
.
call Subroutine1(a)
....
.
.
.
sub Subroutine1(matr as variant)
'e per scandire gli elementi:
for i=1 to ubound(matr)
debug.print matr(i)
next i
Grazie lo stesso
Ho scritto la sol che ho trovato perche' potrebbe essere utile a
qualcuno
Ciao Lorenzo

 wrote in message 37bfeac...@news.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Query con parametri importate da access

Se ho un database fatto con Access in cui ci sono delle query con dei
parametri gia' impostate ed io voglio usarle dalla mia applicazione, come
faccio a passargli i parametri che naturalmente mi deve dare il mio utente
??
Una volta passati i parametri giusti le tratto come delle semplici tabelle
con record di tipo dynaset ???

...


Devi utilizzare gli oggetti QueryDef, dai un'occhiata all'help per i
dettagli.


Nell'help in linea c'e' scritto tutto (cerca QueryDef, Parameters)
Comunque, devi fare cosi':
1) apri un oggetto QueryDef
2) assegni i parametri tramite la collection Parameters
(QueryDef.Parameters)
3) crei un oggetto Recordset dalla QueryDef (QueryDef.OpenRecordset)
4) usi il RecordSet come qualsiasi altro RecordSet (volendo lo puoi
assegnare ad un controllo Data (Set Data1.Recordset = <ParamRecordset>)
--
Roal Zanazzi
z...@iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Come fare per visualizzare una gif animata?

Ciao Vorrei sapere come devo fare per visualizzare una gif animata
visto ke con "image" e "picture box" l'immagine resta fissa.
GRAZIE ANTICIPATAMENTE!!!!!!!!!!!!!!!!
X favore rispondete presto


Sito comune 
http://www.it-lang-vb.net
ciao
--
Timothy Redaelli
timothy....@email.it
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Distribuire .reg

Salve dovrei distribuire un file .reg con il setup di un mio programma.
Creo il pacchetto di installazione con il wizard di visual studio 6.
Oltre ad aggiungere il file .reg al pacchetto cosa debbo fare affinchè esso
venga eseguito?
Grazie 1000.
--------------------------------
Inviato via 
http://usenet.libero.it

 Grazie 1000.
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.471 / Virus Database: 269 - Release Date: 10/04/2003


OK, grazie per la risposta.


 Inviato via 
http://usenet.libero.it



Ho deciso di seguire un'altra strada, sto modificando il setup fornito con
vb, setup1.vbp per intenderci e scrivo nel registry quello che mi serve
usando le api.
Comunque grazie.


via codice scrivi su un file.reg  , ed appena lanci il programma lo
esegui naturalmente una volta sola.
in caso puoi scrivermi a 
maxprog...@email.it

 ha scritto nel messaggio
news:f63bc7a8.03072...@posting.google.com...


"tom becker"
Scriviti al volo un vbs lo lanci per vedere la directory
in qui e' stato creato che probabilmente e' anche quella
del reg
Dim oSh
Set oSh = WScript.CreateObject("WScript.Shell")
WScript.Echo oSh.CurrentDirectory
' al posto del echo ti estrai la path
' che comunque non serve perche' il vbs lavora
'nella directory in qui e' stato creato/lanciato
'oSh.CurrentDirectory = "C:\quello che vuoi"
oSh.run"Regedit /s tuofile.reg"
Per rimuovere un file reg basta creare un secondo file con ...
esempio di creazione >> eliminazione :
Prova.reg
REGEDIT4
[HKEY_CURRENT_USER\Software\Prova]
[HKEY_CURRENT_USER\Software\Prova\Primo]
"Secret"="11111"
[HKEY_CURRENT_USER\Software\Prova\Primo\Secondo]
"Nuovo valore #1"=dword:00000001
EliminaProva.reg
REGEDIT4
[-HKEY_CURRENT_USER\Software\Prova]
http://groups.yahoo.com/group/x-men-italy/files/LO/quoting.txt
--
Fosco
Newsgroup: it.comp.lang.visual-basic
Titolo: Query con data in pagina ASP da applicazione in VB6

Una applicazione scritta in VB6 costruire al volo una query che 
prevede di testare un campo data di un archivio MDB che risiede 
su Internet.
La pagina ASP ha queste linee di codice
Parm = Request.QueryString("Query")
rs.Open Parm,cn,3,4,1    ' adOpenStatic, adLockBatchOptimistic, 
adCmdText
Ho provato nei seguenti modi :
WHERE Data>#8/2/2010# AND Nome='Pippo'
WHERE Data>8/2/2010  AND Nome='Pippo'
WHERE Data>#2/8/2010#  AND Nome='Pippo'
WHERE Data>2/8/2010  AND Nome='Pippo'
senza mai ottenere il risultato desiderato, anzi, sembrerebbe 
che il "WHERE Data> xxx" non sia neanche preso in considerazione 
ma solo il "Nome='Pippo'". Preciso che se non indico della query 
il campo data tutto procede correttamente.
Credo sia un problema di difficile risoluzione.
Grazie per l'attenzione
-- 
Postato da Virgilio Newsgroup: lo usi da web ma con le funzioni del newsreader 
http://newsgroup.virgilio.it
Gerarchie it, italia, it-alt, tin, it.binari. Unico!

Trovato la soluzione !
Poichï¿œ la query richiede l'utilizzo del carattere # e poichï¿œ 
questo carattere sembra che non "passi" nei parametri che 
usualmente si immettono dopo il punto di domanda (es: Pagina.asp?
ID=33&Nome=Giuseppe) si devono fare due cose:
1) lato VB : costruire la query normalmente e poi fare un bel
Criterio = Replace(Criterio, "#", "|")
2) lato ASP : fare l'operazione inversa
Parm = Request.QueryString("Query")
if instr(Parm,"|")>0 then Parm=replace(Parm,"|","#")
Tutto qui. Semplice, se lo si sa !

Newsgroup: it.comp.lang.visual-basic
Titolo: query di eliminazione

Ciao,
ho due classiche tabelle master -> detail. Vorrei creare una query che 
mi elimini tutti record in master che NON hanno righe associate in detail.
Pensavo a qualcosa del genere:
database.execute "DELETE * FROM master WHERE SELECT * FROM detail WHERE 
{inserisco qui le chiavi per trovare i record associati} ..."
Ma non so come far capire al db che la SELECT deve essere vuota per 
cancellarmi la riga da master.
Spero di essermi spiegato. Uso un db Access sotto VB6 tramite DAO.
Marco / iw2nzm


...WHERE (SELECT Count(0) FROM ...) = 0
Dovrebbe funzionare, se non ho sbagliato sintassi.
Ciao 

 as id  FROM detail )
Qualche volta dovrei evitare di postare da ubriaco ;)
Ciao 

 as id  FROM detail ) 
Ciao, grazie della risposta. Nel caso avessi però più campi chiave come 
faccio a considerarli tutti assieme? Se faccio qualcosa tipo:
.... WHERE ID, Num, Data NOT IN (SELECT .....
ovviamente mi va in errore. Che costrutto devo usare per tener conto di 
più campi chiave?
Grazie ancora,
Marco / iw2nzm

 ebbe l'ardore di dire:

DELETE * FROM MASTER AS M
WHERE NOT EXISTS(SELECT ID, Num, Data FROM DETAIL AS D WHERE (
D.ID
=
M.ID
) AND
(D.Num=M.Num) AND (D.Data=M.Data))
Bye
Raf

 (D.Num=M.Num) AND (D.Data=M.Data))
Sorry ma non mi funziona.
Anzitutto mi dice che la sottoquery deve restituire solo un campo (e 
vabbè, ho ovviato con un SELECT ID, tanto non mi serve che restituisca 
tutte le chiavi). Poi, una volta eseguita non ottengo il risultato 
richiesto, ovvero non mi cancella le righe in M che non hanno record 
associati in D.
Marco / iw2nzm

 associati in D.
Stavolta l'ho provata e a me funziona, perlomeno dentro Access... a te cosa fa
di preciso?
Hai provato a vedere se trasformando DELETE in SELECT ottieni effettivamente le
righe da eliminare?
Raf

 righe da eliminare?
Si, ho provato, sia da VB che da Access e ottengo l'errore di cui sopra. 
Inserendo il DISTINCT l'errore sparisce ma non mi seleziona nemmeno una 
riga. Ma come già detto non ritengo corretto l'uso di DISTINCT.
Ci sarà un particolare che mi sfugge e impedisce di eseguire 
correttamente la query.
Grazie per la disponibilità,
Marco / iw2nzm

 correttamente la query.
Mmmmmm... Mi sa che hai scritto EXIST anziché EXISTS, sbaglio?
Bye
Raf

 Mmmmmm... Mi sa che hai scritto EXIST anziché EXISTS, sbaglio?
Arrrghhhhhh!
Che idiota... hai perfettamente ragione, era quello l'inghippo.
Chiedo venia :)
Marco / iw2nzm


Non è del tutto "colpa" tua. È quella gran "simpatia" dell'SQL di Access...
anche questa query avrebbe dato lo stesso messaggio:
SELECT *FROM Master AS M
WHERE PIZZA (SELECT ID FROM Detail AS D WHERE (
D.ID
=
M.ID
) AND (D.Num=M.Num) AND
(D.Data=M.Data))
=:(
Bye
Raf
Newsgroup: it.comp.lang.visual-basic
Titolo: array di controlli e proprietà

Scoccio ancora. Se ho un array di, per esempio, label l'unico modo per
cambiare la proprietą left a tutte č di fare un ciclo. Vero?
Riciao

 cambiare la proprietà left a tutte è di fare un ciclo. Vero?
Non vorrei dirti una stron....ta ma credo proprio di si..
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

immaginavo...pazienza.
Ciao e grazie

Newsgroup: it.comp.lang.visual-basic
Titolo: [on po' OT] MSQL su due macchine

deV<

 ha scritto nel messaggio
news:Xsk37.30817$rh.6...@news6.giganews.com...

un po vago, no?
ciao
ugo
p.s.
ma per MSQL intendi Ms SqlServer o MySql?

 wrote in message
Xsk37.30817$rh.6...@news6.giganews.com...



MSQL7 = SqlServer

 ciao
ciao...grazie

 ha scritto nel messaggio
news:ONw37.32222$rh.7...@news6.giganews.com...
[snip]
Beh, ti ha già detto tutto il Grande Alfonso.
Ti aggiungo solo che la porta Tcp/ip SqlServer è la 1433
ciao
ugo

Newsgroup: it.comp.lang.visual-basic
Titolo: HackAlert nella MSToolbar

VB6 (SP4)
Il componente incrimiato è il classico "Microsoft Windows Common Controls
6.0" (MSCOMCTRL.OCX)
Da un momento all'altro ha deciso bene di aggiungere tre pulsanti (poi
cinque, o tre, a caso) a sinistra di tutti gli altri. I pulsanti aggiunti
erano di tipo DropDown con una inquietante Caption: "HackAlert".
Allarmi generali, aggiornamento Antivirus, ZoneAlarm a palla, poi vado su
google e scopro che altri avevano avuto lo stesso problema, ma sul sito
Microsoft non trovo alcuna conferma. Riavviata la macchina, sparito il
problema.
La scritta incriminata è addirittura in chiaro nel codice dell'OCX, basta
aprirlo con un editor di testo per trovarsela davanti.
Tre domande (la prima puramente retorica):
1) Quando si è manifestato il caso anomalo?
[ ] In fase di sviluppo
[ ] In fase di test
[ ] Durante l'istallazione dal cliente?
2) Ho una versione taroccata dell'OCX o qualcuno di voi ha quella stringa
che cova all'interno del suo MSCOMCTRL? Anche installando il SP5 quell'OCX
non mi pare cambi molto.
3) Nel caso in cui il file sia proprio quello distribuito dalla M$ (appena
ho tempo controllo sui CD, ma ad una prima analisi pare che altre macchine
utilizzate per lo sviluppo abbiano lo stesso file), cosa si può fare contro
un'azienda che si intasca bei dollaroni per le sue licenze (abbiamo la
Universal è non è proprio regalata...) e poi lascia queste simpatiche
trappolette nei suoi componenti?
Ciao, Silv:o)

 trappolette nei suoi componenti?
j.no.comment

 che cova all'interno del suo MSCOMCTRL?
Scaricalo da qui, se hai dei dubbi, ma ti anticipo che c'è la stessa stringa...
http://support.microsoft.com/directory/article.asp?ID=KB;EN-US;Q193366&
Bye, G.

 Scaricalo da qui, se hai dei dubbi, ma ti anticipo che c'è la stessa
stringa...
Allora sono proprio delle merde! Non so cos'è che scatena il giochetto, ma
le vostre belle toolbar sono tutte a rischio.
Auguri, Silv:o)
Newsgroup: it.comp.lang.visual-basic
Titolo: Le api mi incasinano l'IDE

Ho scaricato da codeguru le api per dare un'apetto grafico diverso alle
listview.
Ma da quando ho inserito questo codice (che funziona correttamente) mi
accadono cose strane:
Se ad esempio eseguo passo passo il codice si va sempre a ficcare sulla
rutine di questa funzione e si luppa li dentro e se interrompo il passo
passo mi va in crash vb mentre se l'applicazione la eseguo normalmente tutto
funziona.
In qualsiasi evento metta l'interruzione mi va sempre a finire in quella
posizione.
E' possibile, cosa posso fare.
Grazie, Alberto

 ha scritto nel messaggio
news:oed88.30391$nI1.9...@twister1.libero.it...


Tutto !! :-)
Ho scoperto ma non so cosa fare.
Praticamente devo scaricare il subclass pena il continuo crash in fase di
progettazione.
Nelle specifiche viene consigliato di scaricare il subclass allo
scaricamento del form.
Ho infatti provato a scaricarlo appena dopo aver chiamato la routine e tutto
funziona come al solito, ma la listview naturalmente viene visualizzata come
da default.
Devo per forza fare cosě in fase di progettazione, cioe commentare tutto e
solo in fase di distribuzione toglierli ?
Grazie, Alberto

scaricamento del form.
Piu' che un consiglio consideralo come un' obbligo per
non incorrere nell' ira degli dei (il s.o.).
Allo stesso modo, non puoi interrompere il codice quando
viene eseguito nell' ide.
-- 
ciao, hal

 solo in fase di distribuzione toglierli ?
ti consiglio l'utilizzo di una costate condizionale, al posto di mettere
e togliere i commenti...
--
Faber


Per il subclassing all'interno della tua app ti consiglio di provare il mio
adHook presente sul sito comune.
Ciao

Ho scaricato adHook12.
E' poco che lavoro con le api...... mi puoi aiutare ad usare il tuo ocx?
Io chiamo il tutto cosě:
    HookToLV lvCentrali.hwnd, True
lvCentrali č la listView che viene modificata
Ho letto il tuo file di help ma dal momento che non so neanche cosa vuol
dire subclassare ti chiedo se mi puoi dare qualche informazione generica
aggiuntiva per chiarirmi le idee su questo, per me, nuovo settore.
Ti ringrazio, e anche se non so cosa ho scaricato mi sembra un buon lavoro e
ben corredato.
Grazie, Alberto

 aggiuntiva per chiarirmi le idee su questo, per me, nuovo settore.
Cerca "subclassing" nel sito comune 
http://www.it-lang-vb.net/
, c'è un
articolo che ne parla.
Il mio OCX serve solo ad evitare i crash e l'impossibilità di debug di VB.
Ne esistono altri in rete, forse migliori, ma questo è free, scritto in VB e
completo di sorgenti.
Nota: Essendo una DLL ActiveX (in process) non funziona correttamente con
gli Hook di sistema e con il Subclassing di finestre esterne al proprio
programma.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Shell per aprire programmi

Vorrei sapere la riga per fare aprire il notepad ad esempio o qualsiasi
altro programma premendo un pulsante
ciao e grazie

 wrote in message
87cv77$1d3$1...@fe1.cs.interbusiness.it...


 wrote in message
8xnm4.62513$C3.6...@news.infostrada.it...


> la di retval a ke serve?
HELP IN LINEA CAXXO !!!
--
Ciaps
Stracca
---------------------------------------------
    Le risposte alle tue domande le trovi
    sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
       ... e nell'help in linea !
---------------------------------------------

 la di retval a ke serve?


Chiedo perdono per la mia debolezza... prometto di non rispondere più a
questioni già trattate nell'help in linea.

 questioni già trattate nell'help in linea.
Don't worry ... non volevo essere brusco ... ero solo in preda a uno scatto
omicida ... tutto qui ... ma non verso di te  ... verso l'Help in Linea che
a quanto pare non serve a niente e mi occupa 200 MB di spazio su disco !!!


"Prometto di non RISPONDERE"... mi vergognavo della mia debolezza, se so una
cosa non resisto all'impulso di comunicarla a chiunque la chieda, per banale che
sia... devo imparare da te

tutto qui.
Sempicissimo
shell"notepad",vbnormal
RISPONDETEMI SUL NEWSGROUP

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

Ho scritto una Sub con dei parametri,  ma quando la vado a richiamare mi dà
errore di sintassi. Perchè?
Public Sub Visualizza(strCV As String, X As Integer, y As Integer)
...
End Sub
...
Visualizza(" ", 0, 0)

 ha scritto nel messaggio
news:9bmnr6$k1i$1...@pegasus.tiscalinet.it...


 wrote in message
9bmnr6$k1i$1...@pegasus.tiscalinet.it...

se la chiamata e' esattamente così allora l'errore sono le parentesi, la
sintassi corretta e':
Visualizza " ", 0, 0
oppure
Call Visualizza(" ", 0, 0)
Ciao
--
Luca Dormio
luca....@tin.it

Risolto, grazie!
Luca Dormio <lucaFAV...@tinFAVA.it> wrote in message
9bmobl$ksi$1...@fe2.cs.interbusiness.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto con outlook express

Vi spiego il mio problema:settimanalmente ricevo delle mail che devo aprire
manualmente,salvare su un'altra directory(non in una cartella interna di
outlook)in formato txt e poi elaborarla.Come posso automatizzre questo
processo?C'č gia un sitema (tipo regole)all'interno di outlook?Esiste un
controllo activex che mi permetta di leggere nelle cartelle di outlook per
poter cosě elaborarle a mio piacimento?Oppure devo proprio fare un programma
che mi scarichi queste mail e me le elabori(a proposito,come
sifa?).Illuminatemi,grazie!

 wrote in message
news:ghi66.289$g_2....@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT^2] Anatomia di uno spam

Ho ricevuto (strano ma vero) dello spam, e ho perso un po' di tempo ad
analizzarlo.
Mi sono fatto la stessa domanda che mi faccio quando vedo certe trasmissioni
(o certi politici... vabbè, lasciamo perdere): ma _quanto_ può essere
stupida la gente?
Nelle intenzioni di chi manda queste mail la vittima si comporta così:
Dunque, ricevo una email da un certo "Benedettohaxt#
libero.it
" (ho tolto la
# per non fare apparire il link), con oggetto "guarda  le  ragazze  online
Lp"
Ora, senza neppure chiedermi chi c... è Benedettohaxt, o perché scrive Lp al
termine del subject, passo direttamente a leggere l'email.
Ringraziado Quello lì che non è un virus (naturalmente uso outlook express
ed evito con ogni cura le patch), osservo che è diretta ad una certa
ida#
virgilio.it
.
Leggo che ci sono un sacco di ragazze online in webcam.
In fondo un altro codice e la manfrina per scansare le ire del garante (per
non ricevere più queste comunicazioni gratuite eccetera eccetera)
Conclusioni
1. Benedettohaxt ha mandato alla sua amica (un po' lesbica, evidentemente)
Ida l'indirizzo di un sito dove guardare le ragazze in webcam.
2. Per un inspiegabile errore (la fortuna!) il messaggio arriva a me.
3. Benedettohaxt ama il senso dell'umorismo ed inserisce una firma
"spiritosa", con un codice ed un link ad una pagina falsa (posso inserire lo
stesso indirizzo ottanta volte di seguito, verrò "cancellato" ottanta volte)
4. Questo sito che ho avuto la fortuna di trovare ha in gran conto la mia
privacy (niente internet explorer, e niente carta di credito: sicuramente si
connetterà ad un numero verde)
Dico, ma può esistere della gente _tanto_ stupida da trarre le conclusioni
di cui sopra?

 ha scritto nel messaggio
news:Af8ua.55953$3M4.1...@news1.tin.it...
...
Aggiornamento: l'indirizzo non funziona nemmeno: però, che simpaticone
questo benedettohaxt..

 stesso indirizzo ottanta volte di seguito, verrò "cancellato" ottanta volte)
Credo che questa pagina venga utilizzata per verificare che l'email e' 
stata letta. Un trucco simile anche per le immagini linkate nella email 
che ti e' arrivata.
Piu' lo spam viene letto e piu' vengono pagati gli spammer!

 di cui sopra?
Poi al TG intervistano quello che "grazie" ad internet ha pagato un mucchio
di soldi per la connessione.
Ma la colpa ovviamente non è sua, è internet che è opera del demonio.
Ciao


Nel Medio Evo dicevano una cosa simile della donna...

 Nel Medio Evo dicevano una cosa simile della donna...
O_o ??? Solo nel medioevo? Io direi di no :p
-- 
<Cavalier Gigio2K a.c. della Tavola Calda>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

 O_o ??? Solo nel medioevo? Io direi di no :p
ROTFL

"Javier Giavič"
http://www.collinelli.net/antispam/
http://www.nospamware.it/
http://www.mailwasher.net/
--
Fosco

http://www.collinelli.net/antispam/
Andrea
Newsgroup: it.comp.lang.visual-basic
Titolo: ADO, problemi in fase di scrittura

Il mio problemino, č dovuto al fatto che adotto un cursore Server:
.Cursorlocation=adUseServer;
Essendo che dvo lavorare in remoto.
Non
riesco ad aggiornare i dati nel db. 
Come posso fare lasciando la
proprieta di CursorLocation impostata su adUseServer? Esiste una soluzione?
Grazie.
--------------------------------
Inviato via 
http://usenet.iol.it

 .Cursorlocation=adUseServer;
se imposti il cursore lato client funziona?


 proprieta di CursorLocation impostata su adUseServer? Esiste una
soluzione?
Il problema in scrittura non dipende dal tipo di cursore ma dal tipo di
blocco,
accertati di aver impostato un blocco che ti permetta di scrivere. Ad es.:
recordSet1.LockType = adLockOptimistic
ciao.
--
----------------------------------------------------------------------------
Esiste un luogo dove tecnologia e arte si incontrano
www.tecnologiaEarte.net
----------------------------------------------------------------------------
Gianluca Pisano
Newsgroup: it.comp.lang.visual-basic
Titolo: Sito Web del NewsGroup

Ciao,
mi chiamo Tiziana e mi interesso al Visual Basic, anche se ora un po' meno
considerando che ho cambiato lavoro.
Cercando su VB ho visitato il sito di Gianni Zacchia
http://free.imd.it/giazack/index.htm
ed ho visto che in una delle sue pagine parla del sito comune dei
programmatori Visual Basic che e' il sito ufficiale di questo news group,
pero' non era linkabile il riferimento e non c'era accenno all'URL di cui
parlava.
Visto che si parla di pagine ricche di utility, link ed altro mi piacerebbe
visitarlo, potreste fornirmi l'URL?
Grazie anticipatamente.
Tiziana :)
--
Posted from [195.103.33.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

...


NON ASCOLTARE MIX CHE TIRA L'ACQUA AL SUO MULINO...
il sito e' questo: 
http://members.xoom.com/it_lang_vb
Ciao !
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
 -----------Federico Emanuele Galli----------
 ----------Visual Basic's Programmer---------
 
 Sideralis Programs (Visual-Basic and Delphi)
 
http://www.geocities.com/colosseum/loge/2151
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
                 Trust no ONE.
Per rispondermi via E-Mail togli STOPSPAMMERS.
Guarda la RFD per it.comp.prog.collaborazione !

>Lo trovi assieme ad altri 36 utili link, sul mio sito!
Ma ti pare ? Dai direttamente il link, senza tutte queste menate
pubblicitarie...


NON ASCOLTARE MIX CHE TIRA L'ACQUA AL SUO MULINO...
Magari avessi un mulino! (...ho ben altre cose che girano...)
Cerco solo ossessionatamente di pubblicizzare il mio sito sperando che sia
utile ai programmatori VB!
Federico dovresti imparare da me: quanti sanno che hai proposto un nuovo
gruppo di collaborazione?
Non farai mai carriera in politica (...neanche io perchè non so rubare...).
Comunque inserirò anche il tuo sito tra i miei links (se non l'ho già fatto)
quando aggiornerò le pagine in una nuova veste grafica, ho bisogno solo di
tempo per imparare 'sto maledetto Frontpage (...forse dovrei leggere le
istruzioni...).
CIAO
P.S. Beccatevi quest'altra pubblicità...
--
MIX (VB5SP3)
post...@yahoo.com
SITI GEMELLI: Usa il più veloce!
http://space.tin.it/computer/gaais
http://www.tempolibero.com/user/mix/
37 links ai siti VB...
-

37 links ai siti VB...
Wow...fantastica!!! Ancora...ancora...!!! ;-)))

...

Ma quanto la vendi al kilo ?   :-))
-- 
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: ACCESS 2000 & VB 6

Ciao a tutti,
ho da poco installato access 2000, ho convertito qualche database nel nuovo
formato ma Vb (sp3) non mi apre questi nuovi database, il controllo data
accetta il nome del database ma quando vado a selezionare il recordset mi
restituisce : Formato di database non riconosicuto.
Qualcuno ha la soluzione al mio problema ?
N.B.
nei riferimenti ho selezionato Microsoft DAO 3.6 Object Library

 wrote in message
7scob6$4sj$1...@nslave1.tin.it...


Luca ti ringrazio per la risposta ma il Microsoft Data Access 2.1 lo già
installato.
Tu riesci a leggere i nuovi MDB con vb6 ?

...




...

Newsgroup: it.comp.lang.visual-basic
Titolo: Creare oggetti grafici

Sono alle prime armi , mi sapete dire come posso creare dei disegni grafici
tipo flow chart
Attendo urgentemente una vostra risposta
:)

 wrote in message
84qg3o$jeo$1...@stargate1.inet.it...

Puoi usare i controlli line e shape e i metodi grafici line, circle, ecc.
Trovali sull'help

Newsgroup: it.comp.lang.visual-basic
Titolo: Ok giochiamo con la stampa e .net

Nel codice che riporto di seguito ho un problema, quando finisco di stampare 
mi rimane il documento nella coda di stampa e non viene inviato finchè non 
iniziao una nuova stampa, cosa che non succede se il documento che stampo a 
solo una paggina.Come posso risolvere? c'è qualcosa che dimentico? grazie in 
anticipo.
ovviamente PrRMA è un'array che riempio prima. e prc e una variabile che mi 
serve da contatore dichiarata come private nel form. Nel frattempo cmq 
questo è un'esempio concreto di utilizzo delle funzioni di stampa del nostro 
caro .net.
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e 
As System.Drawing.Printing.PrintPageEventArgs) Handles 
PrintDocument1.PrintPage
'Di seguito dichiaro il carattere
'i margini del foglio
'e l'altezza della riga
Dim mFont As New Font("Courier New", 12)
Dim xPos As Single = e.MarginBounds.Left
Dim yPos As Single = e.MarginBounds.Top
Dim lineHeight As Single = mFont.GetHeight(e.Graphics)
Dim ric, nome, rec, ogg As String 'Valori da sparare in stampa
Dim IxPage As Integer = 20 'Elementi pert pagina
Dim i As Integer = 0
With e.Graphics
Do
If PrC + i >= PrRMA.Length - 1 Then
e.HasMorePages = False
PrintDocument1.Dispose()
Exit Do
End If
ric = PrRMA(PrC + i).id
nome = PrRMA(PrC + i).Nome
rec = PrRMA(PrC + i).rec
ogg = PrRMA(PrC + i).Product
.DrawString(ric & " " & nome & " " & rec, mFont, Brushes.Black, xPos, yPos)
yPos += lineHeight
.DrawString(ogg, mFont, Brushes.Black, xPos, yPos)
yPos += lineHeight * 1.5
i += 1
If i = (IxPage - 1) Then
PrC += i
e.HasMorePages = True
Exit Do
End If
Loop
End With
End Sub

a scusate dimenticavo, il problema esiste sia che uso 
PrintDocument1.Dispose()
o meno non cambia nulla. 

Ragazzi aggiungo una cosa, il problema esiste solo se se si usa una 
stampante pdf, se si usa una stampante reale, sia epson sia hp sia lexmark 
fila liscio come l'olio, da cosa può dipendere? 

 fila liscio come l'olio, da cosa può dipendere?
Non ho provato, comunque, fare la Dispose da un'evento dell'oggetto stesso 
mi pare quantomeno pericoloso.
Poi, hai provato a usare una stampante pdf diversa?
Io uso PdfCreator e non ho avuto problemi.
Ciao 

ok ora provo ma un'amico ha provato il codice anche con la stampante di 
autocad e non cambia nulla, xrò sulle stampanti vere funge com'è possibile?
Newsgroup: it.comp.lang.visual-basic
Titolo: Esperti API e GDI

Ciao a tutti;
ho la necessita' di creare un device context di memoria di dimensioni
abbastanza grosse e facendo:
hHdc = CreateDCBynum("DISPLAY", vbNullString, vbNullString, 0)    '//  Alias
"CreateDCA"
hcomDc = CreateCompatibleDC(hhdc)
hbitDc = CreateCompatibleBitmap(hhdc, lWidth, lHeight)
il DC diventa compatibile con lo schermo, quindi mangia un mucchio di
memoria.
Io vorrei che il DC fosse solo a 16 colori (per l'uso che ne faccio sono
sufficenti).
Spero che qualcuno mi sappia rispondere... comunque ...
Ciao
Claudio
--
Posted from 
ro...@dns1.idp.it
 [195.32.28.37]
via Mailgate.ORG Server - 
http://www.mailgate.org

sufficenti).
Se non mi ricordo male non è possibile. Infatti, il dc deve essere
compatibile con il dispositivo di output (lo schermo nel tuo caso), mentre
la bitmap che devi creare deve essere strutturata in modo tale da essere
compatibile con il dispositivo nel quale la selezione. La compatibilità è
assicurata nel caso di bitmap monocromatica (usa CreateBitmap o
CreateBitmapIndirect) e nel caso di bitmap compatibili
(CreateCompatibleBitmap)  (quindi con il numero di colori dello schermo).
n.b. per creare un dc compatibile con lo schermo è sufficiente passare 0
come valore di CreateCompatibleDc.
Ciao Bruno

Newsgroup: it.comp.lang.visual-basic
Titolo: Create Object

Salve mi chiamo Beppe De Franceschi
Sono un Ingegnere elettronico che da poco tempo ha iniziato a programmare in
VB5
Avrei bisogno di un'aiuto.
Dovrei creare una form con varie textbox e listbox ( numero uguale)
Il numero dei controlli sara stabilito da un'altra form
Come posso fare?
Accetto consigli ed esempi
grazie e arrivederci
giuseppe_d...@retittv.com

...


...


Newsgroup: it.comp.lang.visual-basic
Titolo: Re-inizializzare un array di stringhe

Buongiorno, vi illustro con uno spezzone di codice la mia domanda:
Dim vettore() as String
vettore= Split(stringa,",")
' Codice che usa i dati contenuti del vettore....
A questo punto come faccio a "ripulire" il contenuto del vettore per
rieseguire lo stesso codice di sopra senza il rischio che siano
riutilizzati dati "vecchi" ?
Grazie, Emilio.

 riutilizzati dati "vecchi" ?
Erase si comporta diversamente fra matrici pre-dimensionate e non
dimensionate. Guarda con F1

On 9 Apr, 11:20, "Andrea [Work]" <andrea.isworkDELET...@gmail.invalid>
wrote:

Grazie mille Andrea, il tuo suggerimento ha funzionato alla
perfezione.
Quando riutilizzo l'array esso risulta inizializzato dalla precedente
chiamata a Split.
Emilio

Newsgroup: it.comp.lang.visual-basic
Titolo: come creare una tabella





Come posso creare e nominare una tabella di un 
database di Access da VB?


 


Grazie


 


Mark



Con ADOX, se usi ADO. E' una FAQ, ormai :-)


 ha scritto nel 
  messaggio 
news:000a01c03c44$c7ce4280$1af41a97@m3f8h2
...


>Come posso creare e nominare una tabella di un database di Access da VB?
Ma non basta l'sql CREATE TABLE?
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: [API] CombineRgn

    Cari Amici eccovi alcune notizie su una altra API della GDI32.DLL
Come al solito trovate la documentazione + dettagliata e un esempio pratico
su 
http://members.xoom.it/CesareRizzi
Funzione CombineRgn
Declare Function CombineRgn Lib "gdi32.dll" (ByVal hDestRgn As Long, ByVal
hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As
Long
PIATTAFORME : Win 32s, Win 95/98, Win NT
La funzione CombineRgn ricava una regione data dalla combinazione di altre
due regioni.
Le due regioni sorgenti, possono essere combinate utilizzando diversi
operatori logici.
La regione che riceverà la combinazione delle due regioni sorgente, deve
essere virtualmente creata (Vedi funzione CreateRgn).
La funzione ritorna 0 in caso di errore, oppure uno dei seguenti flag:
COMPLEXREGION = 3 ' La regione risultante non è un rettangolo
NULLREGION = 1 ' La regione è vuota
SIMPLEREGION = 2 ' La regione risultante forma un rettangolo
PARAMETRI:
hDestRgn ' l'HANDLE DELLA REGIONE CREATA PER RICEVERE LA COMBINAZIONE DELLE
DUE RREGIONI   SORGENTI.
hSrcRgn1 ' Prima regione sorgente
hSrcRgn2 ' Seconda regione sorgente
nCombineMode ' QQuesto parametro, contiene uno dei seguenti flags, e
specifica il tipo di    combinazione che si vuole realizzare.
RGN_AND = 1 ' La regione combinata, è data dalle parti sovrapposte delle due
regioni    sorgenti"
RGN_COPY = 5 'La regione combinata, è identica alla prima regione sorgente.
(la seconda    regione viene ignorata)"
RGN_DIFF = 4 'La regione combinata, è l'area ricavata dalla differenza
dell'area della prima   sorgente meno la porzione della seconda sorgente
sovrapposta alla prima."
RGN_OR = 2 ' La regione combinata, è l'area occupata da entrambe le immagini
sorgenti,    comprese le parti sovrapposte"
RGN_XOR = 3 ' La regione combinata, è l'area occupata da entrambe le
immagini sorgenti, con   l'esclusione delle parti sovrapposte"
--
Posted from 
romeo.logikos.it
 [193.70.26.1]
via Mailgate.ORG Server - 
http://www.mailgate.org



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

Ho visto negli screenshots nel tuo sito un accenno a questo programma:
l'hai sviluppato tu? Se si', a quanto mi vendi una licenza? :)
Se no, dove lo trovo?
Ciao e grazie.
P.S.: di stream a/v se n'e' parlato milioni di volte qua: pensavo
fosse di interesse generale o, per lo meno, non solo mio :)
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 242, 152
  VBR - Vero Birro Romagnolo®, diffidate dalle imitazioni!
 Opel/ECC Calibrezio EVO-V --- Kawasaki "Gas Gas" ZZ-R 1100
 ICQ# 36893168 - IRCNet: bugbarbeq, @ on #linux-it & #NetBSD

Ho visto negli screenshots nel tuo sito un accenno a questo programma:
Come non detto :) Trovato :)
Saluti.
