mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Una specie di manifesto... per i siti!

Scusate. Ma ho appena notato un'ennesimo post la cui risposta si potrebbe
ben reperire in giro per i vari S.C. o siti su VB. Perchč Settimanalmente
non si posta una lista con tutti i siti piů interessanti riguardanti la
programmazione VB? Potrei benissimo farlo anch'io...
Mi sembra una proposta interessante.
SebaMix

 ha scritto nel
messaggio news:91dbh2$2kfo$1...@stargate1.inet.it...

L'idea č buona .. non credi che sia piů semplice aggiornare i link del sito
comune ?

 comune ?
Anke questa idea mi sembra buona...
Basterebbe far girare più spesso l'indirizzo del sito comune... :)

 wrote in message
news:91dd5b$2c60$1...@stargate1.inet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Evento  Button1_MouseEnter

VB.net 2010
 
Esiste un evento del pulsante tipo  MouseEnter  che viene scatenato solo 
quando  passa sopra con il mouse e contemporaneamente il tasto sinistro del 
mouse risulta  cliccato?
Non mi serve scatenare l'evento quando il mouse passa sopra il pulsante... 
ma la condizione necessaria è che il tasto sinistro del mouse sia anche 
cliccato.
 
Ciao
 
nero23 
 

 ha scritto:

scusa ma perchè il classico Click non ti va bene? A parte che l'evento può 
essere generato anche via codice ma....nella situazione normale tu per 
cliccare col mouse sul bottone devi perforza starci su :D
 
Scusa sarà che a quest'ora ragiono poco  ... per cui perdonami se non ho 
capito cosa volessi dire :D
 

 cliccare col mouse sul bottone devi perforza starci su :D
 
 
Ho più di 60 pulsanti e  ogni pulsante ha il compito di chiudere una 
finestra di un programma cad.
Mi è più veloce sfiorare i 60 pulsanti  con il tasto sinistra del mouse 
cliccato, senza doverci cliccare sopra...

Newsgroup: it.comp.lang.visual-basic
Titolo: MDAC_TYP.exe


MDAC = Microsoft Data Access Components
MDAC_TYP.EXE e' il kit di installazione della libreria ADO, piu' vari OLE-DB
providers (Access, SQL-Server, ODBC...).
Altre informazioni su 
http://www.microsoft.com/data/
Roal Zanazzi

providers (Access, SQL-Server, ODBC...).
Sai dove si può scaricare la versione 2.0 di MDAC (quella che, per
intenderci, installa anche il driver jet 3.51)?
Grazie, Alessio.

--
^__^
Avevo già cercato, ma non ho trovato un installatore da allegare al mio
programma...sai dirmi dove si trova sui CD di Visual Studio + MSDN?
E già che ci sono, visto che il problema nasce da questo, sai dirmi come mai
se utilizzo il provider Jet 4.0 al posto del 3.51 i DataGrid non si popolano
correttamente se associati ad un recordset con cursore Server?
Saluti, Alessio.


Fai un'ultimo sforzo e cerca sulla knowledge base dell'MSDN, magari trovi un
articolo relativo al problema.
Roal Zanazzi

articolo relativo al problema.
Cercherň, perň la cosa č _molto_ preoccupante!
Ciao, Alessio.
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con una macro per Excel.

Ciao a tutti, spero qualcuno possa aiutarmi con un problema che devo
affrontare nella compilazione di un programma VB per una macro excel.
Devo tradurre in excel il seguente comando if: nella colonna B cerca
tutte le celle che contengano, fra l'altro, alcune parole tipo "xyz" o
"abc" (supponiamo ad esempio B15 e B26) e cancella il contenuto della
cella accanto (C15 e C26).
A qualcuno viene in mente come fare?
Grazie!
Gianluca

 A qualcuno viene in mente come fare?
Molto grezzamente:
Sub Main()
Dim i As Long
Dim Max As Long
    Max = 32000
    For i = 1 To Max
        If Cells(i, 2) = "ABC" Then
            Cells(i, 3).Select
            Selection.ClearContents
        End If
    Next i
End Sub
Verifica se riesci ad avere la MAX leggendo l'ultima riga riempita di una
colonna
Il resto si indicizza CELLS(Riga,Colonna) o Range("A2") ecc.

 A qualcuno viene in mente come fare?
Molto grezzamente:
Sub Main()
Dim i As Long
Dim Max As Long
    Max = 32000
    For i = 1 To Max
        If InStr(Cells(i, 2), "ABC") > 0 Then



Programma vb o macro vba?
Nel secondo caso: cerchi una parte di
una stringa all'interno della cella o la cella
contiene la parola?
Comunque:
Public Sub m()
    Dim lng As Long
    Dim rng As Range
    Dim c As Range
    With Worksheets("Foglio1")
        lng = .Range("B" & Rows.Count).End(xlUp).Row
        Set rng = .Range("B1:B" & lng)
            For Each c In rng
                If InStr(c.Value, "ciao") > 0 Then
                    c.Offset(0, 1).Value = ""
                End If
            Next
        Set rng = Nothing
    End With
End Sub
Se(se) lavori su di un range definito:
Public Sub m()
    Dim rng As Range
    Dim c As Range
    With Worksheets("Foglio1")
        Set rng = .Range("B15:B26")
            For Each c In rng
                If InStr(c.Value, "ciao") > 0 Then
                    c.Offset(0, 1).Value = ""
                End If
            Next
        Set rng = Nothing
    End With
End Sub
Modifica il nome del foglio con il tuo.
-- 
---------------------------
Mauro Gamberini
http://www.riolab.org/

Newsgroup: it.comp.lang.visual-basic
Titolo: Costanti SendMessage

Se qualcuno sa usare il comando SendMessage,
puo dirmi dove trovare info sulle costanti e sul loro utilizzo ???
Grazie, Andrea.

 wrote

Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 e stampa su doc Word

Ho bisogno di suggerimenti e aiuti:
il programma stampa diversi documenti word che contengono molti segnalibri 
che vengono sostituiti dai dati tratti da DB. Per motivi vari, qualche volta 
la stampa non va a buon termine.
Se inserisco :
On Error goto erorre
....
errore:
MsgBox "Documento inesistente ", vbCritical, "VBItalia"
objDoc.Close (Word.WdSaveOptions.wdDoNotSaveChanges)
objWord.Quit
Set objWord = Nothing
Il programma si chiude correttamente e lo posso riavviare, ma alla cieca , 
perché non so cosa sabbia provocato l'errore.
Se NON metto On Error... mi viene segnalato quale errore si è verificato, 
ma.... (e qui è il problema) avendo word avviato un processo di stampa che 
non è stato concluso... succedono cose turche:
..il documento coi segnalibri viene in parte modificato e salvato con le 
modifiche... e mi tocca reinserire i segnalibri aprendolo con word....
.. il documento può rimanere bloccato da altro utente...
..lo stesso word diventa instabile e spesso devo spegnere il PC per 
ripristinare il programma (in questo caso, quando riapro word, mi viene 
segnalato che ci sono dei documenti da ripristinare o eliminare....
Insomma: come posso individuare l'errore e fare in modo che word venga 
comunque chiuso correttamente???
Ringrazio tutti...
Ciao Romano

 ha scritto nel messaggio 
news:45fe5d5d$0$808$4faf...@reader5.news.tin.it...

Seguendo la consueta prassi nella gestione degli errori :-)
1) controllare Err.Number ed affini
2) inserendo dei breakpoint nei punti caldi
3) simulando il crash e verificando nelle finestre il valore delle variabili 
locali, eventuali oggetti inesistenti a cui fai riferimento
Per ulteriori info ti rimando a qualsiasi manuale, così su due piedi non 
avrei la più pallida idea di cosa possa non funzionare, in caso posta 
qualche informazione DOPO aver effettuato il debug!
Ciao 

Ti ringrazio per il suggerimento: avevo già inserito err.number... ma per lo 
più non viene attivato perché si generano erorri non di runtime.
Comunque grazie: metterò in atto quanto dici e spero di capire meglio cosa 
succede quando le cose vanno storte..
Ciao 


Perdonami ma..come sarebbe che NON è un errore di runtime?
Si verifica durante la compilazione?
Metti un bel breakpoint all'inizio della routine di gestione degli errori, 
quando 'passa da li' verifica nella finestra di debug il valore di 
err.number, err.description e lo stato degli oggetti e delle variabili cui 
fai riferimento nel tuo codice.
A meno che Word non vada in crash altrove ed in maniera da te non gestita 
'dovresti' trovare informazioni per circoscrivere il problema!
Mandi mandi

Purtroppo non sono riuscito ad intercettare l'errore.
In attesa che diventi più esperto....ho risolto con on error resume next: 
per il momento funziona...
Grazie
Newsgroup: it.comp.lang.visual-basic
Titolo: Api

Dove posso trovare della documentazione sulle API
Grazie anticipatamente.



...


--- GetShortPathName ----
Dai un'occhiata sul mio sito (URL nella firma)
Ciao,
Moreno
#sirri#@
morenosoft.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
Home Page - 
http://www.geocities.com/SiliconValley/Bridge/1414/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: programma per gestire scanner

Avrei bisogno di trovare un source code in grado di gestire uno scanner per
poter poi memorizzare le immagini in un database.
Qualche idea?
Grazie in anticipo
Francesco

 Francesco
http://tinyurl.com/akyfs
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Newsgroup: it.comp.lang.visual-basic
Titolo: come scrivere su cd

Ciao a tutti!io dalla mia applicazione devo eseguire un backup di alcuni
dati su cd. solo che non so come muovermi. qualcuno sa darmi qualche
dritta?mi potete dare qualche esempio?io uso vb5 sp3.
ciao e grazie
lucio
-- 
Posted from 
mail-fwd.webresidence.com
 [151.22.0.57] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 dritta?mi potete dare qualche esempio?io uso vb5 sp3.
mi pare una cosa poco fattibile... spesso i masterizzatori non sono
compatibili tra loro, infatti i programmi di masterizzazione continuano ad
aggiungere supporto ai nuovi master man mano che escono.
Credo esista una specie di standard, non supoprtato da tutti i master, che
si chiama... mmx? (non sono sicuro... ma mi pare fosse mm-qualcosa)
Prova a cercare in rete.
Comunque mi pare una cosa poco fattibile in VB, anche perchè sono questioni
di programmazione di basso livello.
Ciao, Max

 dritta?mi potete dare qualche esempio?io uso vb5 sp3.
Ho avuto il tuo stesso problema e l'ho risolto in maniera forse poco
professionale ma efficace: prima effettui 'manualmente' la formattazione del
CD attraverso il wizard (io utilizzo un masterizzatore HP con Adaptec Direct
CD), dopo di che il tuo software puo' 'vedere' il CD da masterizzare come
una qualsiasi unita' disco (e quindi puoi controllare lo spazio disponibile,
ecc) e puoi effettuare una normalissima copia di files. Alla fine del
processo di copia, puoi decidere se lasciare il CD 'aperto' per una nuova
sessione, oppure chiuderlo, ma sempre 'manualmente, non da codice.
--
Massimo Fauro
Newsgroup: it.comp.lang.visual-basic
Titolo: Intercettare print manager

E' possibile tramite VB intercettare l'apertura e la chiusura della
finnestra di stampa di print manager, per sapere ad esempio se una
stampa e' finita correttamente ??

Sul sito comune c'è un ottimo esempio di Ettore Maronese per il controllo
dello spool di Windows.
Fabio Guerrazzi

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Api per risoluzione nome BDC

Mi rivolgo a voi sempre come ultima spiaggia, quando non so piu che pesci
pigliare.
La mia domanda...
Ho la necessità di utilizzare un api in grado di determinare il nome del
server presso il quale un client ha esegito l'autenticazione, mi spiego
meglio: la funzione
Private Declare Function NetGetDCName Lib "netapi32.dll" (strServerName As
Any, _
    strDomainName As Any, pBuffer As Long) As Long
mi serve a determinare sempre il Primary Domain controller di un dominio NT.
Ma quando il mio client che risiede in una rete distribuita si autentica
presso un Backup Domain Controller che funzione devo utilizzare? Ho gia
provato a consultare 
www.aalapi.net
 ma non trovo nulla a riguardo.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 ma non trovo nulla a riguardo.
Non serve un'API, basta reperire la variabile di ambiente LOGONSERVER
http://www.vb2themax.com/Item.asp?ID=137&PageID=TipBank
Però qua trovi qualche cosa di pronto se ti vuoi far male con le API
http://www.andreavb.com/tip060006.html
--
Saluti e salute a tutti.
________________
Gabriele Del Giovine [Microsoft MVP] - Windows 2000 - Windows NT 4.0
- Le informazioni fornite in questo messaggio sono fornite
  senza vincolo di garanzia e senza responsabilità alcuna

Newsgroup: it.comp.lang.visual-basic
Titolo: Delete in ADO.

Ciao a tutti,
ho una Listbox dalla quale voglio eliminare una riga e nello stesso tempo
eliminare il record corrispondente dal database di origine quindi ho questo
codice:
Private Sub Command2_Click()
        strCnn = "provider = Microsoft.Jet.OLEDB.4.0 ; Data Source =
C:\Documenti\Eugenio\AssProject\Agenda.mdb"
    Set Cnn1 = New ADODB.Connection
        Cnn1.Open strCnn
    Set rstMsg = New ADODB.Recordset
     rstMsg.CursorType = adOpenKeyset
     rstMsg.LockType = adLockOptimistic
     rstMsg.Open "tblMessage", Cnn1, , , adCmdTable
     rstMsg.Filter = " Data   = '" & listMsg.List(listMsg.ListIndex) & "'"
     rstMsg.Delete adAffectGroup
     rstMsg.Close
    Cnn1.Close
    listMsg.RemoveItem listMsg.List(listMsg.ListIndex)
End Sub
Così però mi dà il messaggio "Operazione consentita in questo contesto"
riferito a "Delete",
ho fatto un pò di prove cambiando varie costanti ma il risultato non cambia.
Grazie per tutti gli eventuali suggerimenti.
                                                     Symi.

>      rstMsg.Delete adAffectGroup
Perché quei ciccioni di Microsoft hanno previsto il parametro il parametro,
ma non lo supportano ancora!!! In altre parole rs.delete funziona solo con
AdAffectCurrent (parametro di default!)...
Quindi... dovrai farti un ciclo!
I'M sorry
            Ciao
                Allanon
Newsgroup: it.comp.lang.visual-basic
Titolo: Funzione REPLACE

Devo eliminare diverse sequenze numeriche variabili di 12 cifre in un file. 
Ho pensato alla funzione Replace.
es:
Replace(stringa, "numero: 123456789999", " ")
Qualcuno sa dirmi quali caratteri jolly (funzionanti) utilizzare nella 
funzione al posto della sequenza numerica?
Angelo 

 funzione al posto della sequenza numerica?
La documentazione relativa alla funzione replace non fa alcuna menzione di
caratteri jolly.
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


invece della funzione Replace potresti usare le espressioni regolari
vedi qui
http://support.microsoft.com/default.aspx?scid=kb;en-us;818802
ciao
cd

Newsgroup: it.comp.lang.visual-basic
Titolo: Ultimo Giorno

ciao a tutti, volevo sapere come come trovare l' ultimo giorno di un
mese (es. Febbraio).
io come calendario uso la ocx MSCOMCT2 (Microsoft windows
controls-2.6.0).
c' è un metodo per trovarlo???
grazie,
ciao

Se vuoi l'ultimo giorno di un certo mese, devi calcolare il giorno che 
precede il primo del mese successivo:
Ultimo di febbraio 2005: il giorno prima del 01/03/2005.
Dim Ultimo_Giorno As Date
Ultimo_Giorno = DateAdd("y", -1, CDate("2005-03-01"))
-- 
Quando noi ignoranti eravamo di piů, tutto era piů bello...
(A. Celentano)
Per rispondermi in privato, prima togli "l'immondizia dalla testa" :)

 Quando noi ignoranti eravamo di più, tutto era più bello...


 Ultimo_Giorno = DateAdd("y", -1, CDate("2005-03-01"))
y ?
-- 
[Gigio2k]
Accorcia i link gratis e in modo semplice :
G2kSnipUrl : 
http://www.g2kweb.it/?3015
---> No alla CONFISCA delle moto : 
http://www.maxkava.com/moto
 <--- 

 y ?
Dalla guida pare che "y" sia il "giorno dell'anno", mentre "d" è solo 
"giorno". Io usando "y" non ho avuto mai problemi...
-- 
Quando noi ignoranti eravamo di più, tutto era più bello...
(A. Celentano)
Per rispondermi in privato, togli prima l'immondizia dalla testa ;)
Newsgroup: it.comp.lang.visual-basic
Titolo: [ASP] Errato?

Salve a tutti... Secondo Voi dov'è L'errore?
....
....
....
for i=0 to ubound(a)
Rec = MyArr(i)
Rs.Open "Select * from Tabella where Campo1=" & Rec,DBS,3,3
%>
...
Creo la Teblla con i Campi che mi servono usando Response.write 
Rs.fields("Campoxyz")
...
<%
Next i
Rs.Close
...
...
Il Fatto è che mi crea solo una riga con il Primo record selezionato e
basta... anche se rs.open è all'interno del Ciclo... ho provato anche a
Mettere Rs.Requery Subito dopo rs.open, ma non cambia nulla...
in cosa sbaglio?
Grazie e buon lavoro...

Prima di postare il codice dovresti dire:
1) Di cosa è composta la tabella
2) Che operazione di ricerca intendi fare sulla tabella
Altrimenti è impossibile fare considerazioni,
Emiliano.


SI, hai Ragione, scusa.
La tabella non č importante, ho provato anche a levarla, l'ho usata solo per 
l'estetica... mi basterebbe anche mettere i record in colonna.
Il fatto č che nella riga:
...
for i=0 to ubound(a)
...
č come se avessi scritto:
For i= 0 to 0
Il Motivo sinceramente non lo capisco.... il codice Prima č:
C1 = Request.QueryString("C1")
a=array(C1)
MyArr = Split(c1, ",")
Dimentico qualcosa?

 ha scritto nel messaggio 
news:438f002e$0$350$5fc...@news.tiscali.it...


 Dimentico qualcosa?

 MyArr = Split(c1, ",")
la funzione array() serve a creare una matrice:
Array(10, 20)
invece di UBOund(a), prova UBound(MyArr) e vedi che funziona

 
In ASP il next si chiude senza il nome della variabile

 
Questo perchè array(C1) non ha lo stesso significato di:
array(4625,45984,4525,4588)

 
scusa maaaaa.... perche'?
non ha piu' senso cosi':
for i=0 to ubound(MyArr)
Rec = MyArr(i)
non si tratta di risparmiare la RAM ma di chiarezza!
nei post successivi specifici:
C1=4625,45984,4525,4588
forse volevi dire: C1="4625,45984,4525,4588"
C1 = Request.QueryString("C1") ?
a=array(C1) ?
MyArr = Split(c1, ",") ! OK
comunque
a=array(C1)
crea un array di un solo elemento con indice 0 appunto.
bye
r

 ha scritto nel messaggio 
news:438f07aa$0$327$5fc...@news.tiscali.it...


 ha scritto nel messaggio 
news:UbBjf.1882$z_6....@tornado.fastwebnet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Spostare una label nel form

ho una label all'interno di un form e vorrei creare l'effetto trascinamento
(Dragdrop) cliccandoci sopra e spostandola nella nuova posizione nel form,
quindi una volta rilasciato il bottone, la label avrą nuove coordinate e si
troverą in un altro punto del form.
Qualcuno sa dirmi come potrei fare?
ciao

wblake76 chede

Se avessi dato un'occhiata all'help cercando Drag e similari avresti trovato
molto materiale, comunque...
Ecco un esempio al volo, puņ servire come base di partenza:
Private dx As Long, dy As Long
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
    If Source Is Label1 Then
        Label1.Move X - dx, Y - dy
    End If
End Sub
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
   dx = X
   dy = Y
   Label1.Drag vbBeginDrag
End Sub
--
Ciao, Silv:o)

End Sub
ma è impreciso, e per piccole distanze non lo capta il dragdrop.

 ma è impreciso, e per piccole distanze non lo capta il dragdrop.
Avevo ben detto "Ecco un esempio al volo, può servire come base di
partenza".
Potevi almeno cambiare qualcosa, tanto per far vedere che ti ci eri
impegnato.
Secondo te perché non droppa quando ti sposti di poco?
Perché stai puntando sulla Label, e non sulla Form.
Private Sub Label1_DragDrop(Source As Control, X As Single, Y As Single)
    If Source Is Label1 Then
        Label1.Move Label1.Left + X - dx, Label1.Top + Y - dy
    End If
End Sub
...e la cosa si sistema. Ma era poi così difficile?
Silv:o)

Newsgroup: it.comp.lang.visual-basic
Titolo: Cast e tipi

ciuao a tutti,
uso visual basic 6.3.
Se ho ben capito i valori che recupero da caselle di testo sono stringhe.
A me serve convertire queste stringhe in interi.
Ho provato a fare:
myVar = int(myCasellaDiTesto.value)
ma sembra che mi ritorni comunque una stringa.
grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 myVar = int(myCasellaDiTesto.value)
Dim MyInt as Integer
MyInt = CInt(txtMia.Text)
oppure
MyInt= Val(txtMia.Text)
Ovviamente con gli opportuni controlli
-- 
DBMS Firebird
VB6 + Ado

> Dim MyInt as Integer
io dimenticavo questa istruzione...

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT]: Nuovo sito

E' nato un nuovo sito dedicato a VB, PLC, HTML etc.
L'indirizzo č: 
web.tiscalinet.it/palbi
Grazie per l'attenzione.



 Grazie per l'attenzione.
Bravo, peccato che il sito non sia visualizzabile
Ciao
Sir Jo

 wrote in message
news:t5h2gdt...@corp.supernews.com...

Si'. Ho verificato anch'io e' forse ho trovato l' inghippo:
Questo e' il sorgente del frameset:
<html>
<head>
 <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Palbi Home Page</title>
</head>
<frameset framespacing="1" border="false" frameborder="0" cols="159,*">
<frame name="sinistra" scrolling="auto" noresize target="principale"
-------- questo NON va:
  src="file:///C:/Home%20Page/Sommario.htm">
-------- NEANCHE questo va:
<frame name="principale" src="file:///C:/Home%20Page/indice.htm"
scrolling="auto" noresize target="principale">
<noframes> <body style="background-image: url('Satin.jpg')"> <p><embed
SRC="Constr2.gif"></p> <p>La pagina corrente utilizza dei frame, che
tuttavia non sono supportati dal browser in
  uso. </p> </body> </noframes> </frameset> </html>
Cosi' per curiosita', che prodotto hai usato per generare la pagina ?
Ciao
Aldo

Cosi' per curiosita', che prodotto hai usato per generare la pagina ?
Aaaaah, vedi cosa succede ad usare programmi complessi che fanno tutto loro?
Il mio buon notepad non mi fa di ste cose... semmai ci penso io... :-PPP
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

 Il mio buon notepad non mi fa di ste cose... semmai ci penso io... :-PPP
ahhh, che bei ricordi.... tempi passati... sigh
--
Fibia "Sakamoto" FBI
URL: 
www.geocities.com/fibiafbi
E-Mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Membro #25 delle Brigate Takahashi Sez. Sud

ahhh, che bei ricordi.... tempi passati... sigh
passati? Perché mai? Io lo faccio ancora...


Ciao,
 Noseda


 passati? Perché mai? Io lo faccio ancora...
anch'io utilizzo il buon vecchio notepad.
riflettevo sul fatto che quell'errore lo facevo anch'io ai primi
due giorni di html, con il mitico frontpage express.
cmq preferisco di gran lunga homesite + dreamwaver...
....
....
ehy, ma questo non e' it.comp.misc.idiozie ?

Newsgroup: it.comp.lang.visual-basic
Titolo: IoProgrammo [1/2 OT]

Buongiorno a tutti. 1/2 Ot perchè con la programmazione ha a che fare, ma
programmazione in generale.
Su un numero di IoProgrammo (so che è di luglio, ma non ricordo se 2000 o
2001) era uscito un articolo
che dava le prime basi per la grafica 3d, dimostrando come fosse possibile
passare da una rappresentazione
3d sui tre assi "xvz" alla 2d sullo schermo "uv". La mia domanda è semplice:
qualcuno ha quella rivista?
E' davvero importante.. su internet non sono riuscito a trovare nulla,
neanche sul sito di ioprogrammo, che
a quanto pare ha gravi problemi nel modulo per la ricerca (non funziona
mai...)
Grazie a tutti, Augusto

 E' davvero importante.. su internet non sono riuscito a trovare nulla,
Non so' se posso esserti di aiuto perche' quella rivista
io non l' ho ma posso assicurarti che su Internet c' e'
tantissimo materiale sull' argomento di tuo interesse.
Prova a fare una ricerca con le "Key Words":
3D Viewing Projections, Camera View, Perspective Projections,
World to Screen Projections, etc...
Un indirizzo fra i tanti:
http://www.siggraph.org/education/materials/HyperGraph/viewing/view3d/3dprojec.htm
(spero solo di averlo copiato bene dalla pagina stampata che
ho sottomano).
Nel caso dovesse poi interessarti un esempio pratico, proprio
recentemente ho messo nei miei siti di "DownLoads" a:
 
http://members.xoom.it/flanguasco/
e: 
http://www.flanguasco.org
il progetto SurFit con un Form di utilita' generale per
la rappresentazione in 3D assonometrica di una superficie.
Usa proprio gli algoritmi di trasformazione che stai cercando.
Ciao e se poi ti servissero altre informazioni contattami pure.
Franco

Mi spiace non ce l'ho, ma non c'è solo su ioProgrammo quello che cerchi.
in rete sul 3D e 2D trovi di tutto, routine, tutorial, applicazioni,
sorgenti, articoli..
per la proiezione di punti dallo spazio 3d su viewport 2d trovi svariati
esempi
sul mio sito c'è qualcosa, se poi vuoi approfondire fai una ricerca per
"P.Bourke" oppure visita 
www.gamedev.net
ciao
--
Fabio Guerrazzi
http://www.sourcecode4free.com/cgt
fab...@libero.it
fab...@si.tdnet.it

ah! .. post quasi sincrono :)
Ciao
Fabio

Ciao io ho quel numero di io Programmo si tratta del numero 38 di
luglio/agosto 2000
Se ti interessa te lo posso mandare via e-mail

 ha scritto nel messaggio
news:a1jrrj$1l0$1...@pegasus.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: errore con mshflexgrid

salve
se faccio
 Grid.CellPicture = flags.ListImages.Item(j).Picture
mi da errore "Utilizzo non valido di property"
quando mi pare che non ci siano incongruenze in quanto flags e' un controllo
list images
e j punta all'immagine giusta
chi mi sa aiutare?

*Peppo* ci ha deliziati con queste righe
 Quote:

umm mi sa che devi usare il "loadimage" anziche' passargli direttamente un
campo image !
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

 campo image !
grazie lo stesso
Newsgroup: it.comp.lang.visual-basic
Titolo: differenze tra VB6 professione ed VB6 Enterprise

Come Oggetto.
Grazie Max

 Grazie Max
http://groups.google.it/groups?q=differenze+visual+studio+professional+enterprise&hl=it&lr=&ie=UTF-8&oe=UTF-8&selm=91isvt%2449vjg%241%40ID-56381.news.dfncis.de&rnum=2
come link
Come da link.
PS: Macchettefrega che tanto non lo fanno più?
-- 
Le persone non sono il proprio comportamento: devi sempre andare oltre,
essere flessibile, capire il punto di vista degli altri, interpretarne i
comportamenti ed intuirne le esigenze.
Per rispondere in privato elimina
dall'indirizzo "togliquesto"
MasterDavidex
David Ruscelli

Newsgroup: it.comp.lang.visual-basic
Titolo: risoluzione dello schermo e controllo sysinfo

Ciao a tutti,
ho sviluppato un'applicazione che funziona perfettamente sul mio Pc, ho un
monitor 19" e uso una risoluzione 1280x1024 a 16,8 milioni di colori.
Ho due form che sono piuttosto larghe e ospitano un RichTextBox che ne
occupa la maggior parte.
Ho provato a far girare l'applicazione su un altro Pc con risoluzione piu'
bassa su monitor 14" (o giu' di li), e i due form vengono ragionevolmente
rimpiccioliti, tagliandomi parte del RichTextBox. Ho letto che tramite il
controllo "informazioni del sistema" dovrei essere in grado di gestire le
modifiche alle dimensioni e alla risoluzione dello schermo. Quindi ho
seguito precisamente quello che ho letto su MSDN , ho applicato il controllo
al form e ho incollato il codice della guida nell'evento DisplayChanged del
controllo informazioni di sistema, il tutto nei due form interessati.
Purtroppo se io cambio risoluzione (per esempio 640x400) il RichTextBox non
viene ridimensionato. Dov'e' che sbaglio? Forse il controllo ridimensiona il
form ma non il suo contenuto?
Grazie per l'attenzione e gli eventuali consigli!
Nicola


Premetto che non ho mai utilizzato il controllo SysInfo, ma guardando
l'esempio di MSDN, mi pare di capire due cose:
1    Funziona solo se cambi le proprietą dello schermo mentre il tuo
programma gira.
2    Ridimensiona la Form attiva (Screen.ActiveForm) ma non i
controlli della form.
Per quello e per le altre form, devi pensarci tu.
Ciao
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!

Newsgroup: it.comp.lang.visual-basic
Titolo: Come si creano gli HELP?





Come si creano gli help in VB5?


 



 Come si creano gli help in VB5?
qualche mese fa risposi in modo molto dettagliato alla stessa domanda
rivolta da Alkondor, tanto da guadagnarmi i complimenti di Moreno Sirri (
:-) ) che mi invitò a scrivere un articolo da postare sul sito comune.
L'articolo è in preparazione (ci vorrà un po' di tempo), nel frattempo
potresti cercare la mia vecchia risposta sul sito (che non ricordo come si
chiama) del "deja vu" 
-- 
Ale...@tiscalinet.it
http://web.tiscalinet.it/alexsode


www.deja.com
Alex, questo indirizzo e' scritto anche nel Manifesto... ti invito a
leggerlo nel caso non l'avessi ancora fatto. O a rileggertelo, nel caso te
lo fossi dimenticato ;-)
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Domnde elementari

Potreste spiegare il significato di API e di subclassing?
Grazie
se rispondete di guardare sul sito comune datemi un riferimento preciso: il
sito è grosso...

API:
Application
Programming
Interface
sul SubClassing lascio spazio ai bravi...
-- 
GbC

 sito è grosso...
http://www.murialdo.it/it_lang_vb/perle/articoli/Subclassing/Subclassing.htm
Bye, G.
--
---------------------------------------------
    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 !
---------------------------------------------
Real E-address: 
gaet...@hotmail.com

 sito è grosso...
Ma c'e' un bellissimo ... CERCA (o trova) che e' stato messo appunto perche'
il sito sta diventando grosso !!!
---
Ciaps
Stracca
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Cerca le risposte alle tue domande sul Sito Comune del
newsgroup it.comp.lang.visual-basic: 
http://www.murialdo.it/it_lang_vb
Magari prima leggi l'Help in linea!
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

http://members.xoom.it/CesareRizzi
per il Subclassing, provvederò quando avrò terminato...certe ricerche
--
Posted from 
romeo.logikos.it
 [193.70.26.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

Grazie a tutti
Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo della porta seriale....come fare???

Ciao utilizzo VB 6.0
Ho la necessita' di poter controllare le terminazioni TX CTS RTS ed altre
ancora della porta seriale RS232.
In pratica devo poter alzare o abbassare il livello di uno o piu' dei
segnali sopra descritti il tutto da software.
Potete aiutarmi??? esiste una OCX che ne permette il controllo ???
Ciao e grazie.

 segnali sopra descritti il tutto da software.
MSCOMM incluso in VB permette di controllare CTS (mscomm.CTSHolding)
e di attivare RTS (mscomm.RTSenable)
Vedi su MSDN MScomm
ciao
		maxx

Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda niubba sugli array

Ciao a tutti
In vb è possibile creare array con chiavi non numeriche?
Se per esempio dovete fare un array con le regioni ed un sotto array con le
città delle regioni
come fate?
se uso gli indici numerici non mi trovo
se invece ho degli indici testuali è tutto più chiaro
potete postarmi qualche esempio?
per il momento ho fatto così:
regioni=array("Lombardia","Toscana","Sicilia")
	dim citta(2)
	citta(0) = Array("Milano","Bergamo","Brescia")
	citta(1) = Array("Torino","Finta")
	citta(2) = Array("Blob")
 
	for i=lbound(regioni) to ubound(regioni)
		response.write regioni(i)&i&"<ul>"
		for j=lbound(citta(i)) to ubound(citta(i))
			response.write "<li>"&citta(i)(j)&"</li>"
		next
		response.write "</ul>"
	next
c'è un metodo per avere la chiave non numerica, tipo
regioni("lom")="lombardia"
?
Grazie in anticipo, ciao

 In vb č possibile creare array con chiavi non numeriche?
In Vb sė.
Ma tu usi Vbscript :)
Cerca "scripting dictionary" su gųgol
termoPilucco
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 termoPilucco
ehehe in realtà dovrei farlo in vbs, con l'asp :p

 ehehe in realtà dovrei farlo in vbs, con l'asp :p
se il problema è di fare ricerche "libere" ....tabella access e tabella
correlata...in asp sta tranquillo a meno di archivi immensi è pressochè
istantaneo.
Cursore readonly eh!
-- 
------------------------------------------------
Sito web: 
http://www.martek.it

"Wodka40" <chi...@me.uff> ha scritto nel messaggio
considerando che in rete poi trovi già fatti mdb con città comuni provincia
sigla cap etc etc


Newsgroup: it.comp.lang.visual-basic
Titolo: Form sempre in primo piano.



Newsgroup: it.comp.lang.visual-basic
Titolo: Cambiare selezione

C' un modo per fare in modo che alla pressione di un tasto cambi la finestra
selezionata? Quindi non lo sia piů quella su cui si č premuto il tasto bensě
un'altra.
--
Ramses
http://evilzone.tsx.org
"God is just a statistic"

 selezionata? Quindi non lo sia più quella su cui si è premuto il tasto
bensì


 wrote in message
8pgom1$3ji$1...@pegasus.tiscalinet.it...


 ha scritto nel messaggio
news:8pi73e$fvv$1...@pegasus.tiscalinet.it...


 wrote in message
8pigo2$jdm$1...@pegasus.tiscalinet.it...


 ha scritto nel messaggio
news:8pj5j4$s0v$1...@pegasus.tiscalinet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Now3D : FREE RayTracing Engine

Hi!
I'm a VisualBasic Programmer and this is the site dedicated to my 3D Engine
: Now3D (no 3dnow)
http://web.tiscalinet.it/GiulianoCornacchiola/Eng/
Thanks!
 E-Mail 
gcorna...@libero.it

Hi
I'm a VisualBasic programmer and this is the site dedicated to Now3D (my 3D
Raytracing Engine and not the 3dnow API)!!!
http://web.tiscalinet.it/GiulianoCornacchiola/Eng/
Thanks
E-MAIL : 
gcorna...@libero.it

Newsgroup: it.comp.lang.visual-basic
Titolo: accesso a internet via inet

In un programma che dovrebbe scaricare delle quotazioni da internet, ho
utilizzato inet per l'accesso alla rete.
I problemi sorgono quanto, in fase di connessione, premo "Annulla" nel form
tipico di IE che indica lo stato della connessione.
Il risultato č che il programma non č piů in grado di ristabilere una
connessione.
Come ne esco?
Grazie !!!
Fabio 
obi...@rete039.it


wrote:

Usando RAS.
Dai un'occhiata sul mio sito.
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
---------------------------------------------------------------------------

 utilizzato inet per l'accesso alla rete.
[...]
Una curiosita'. da che pagina prelevi i dati?
Miche
Newsgroup: it.comp.lang.visual-basic
Titolo: Errore di automazione -2147418107(80010005)

Salve.
Un'applicazione sviluppata in VB 5 che utilizza un componente ActiveX
(*.exe)
sviluppata sempre in VB 5 da l'errore di automazione -
2147418107
(80010005)
solo in runtime.
Qualcuno mi sa dire a cosa č dovuto ?
Grazie
--
 Paolo Limoncini
E-mail address: 
ciz...@idp.it

solo in runtime.


 wrote in message
7jj0lk$3ur$1...@fe1.cs.interbusiness.it...


Navigando nella Knowledge Base Microsoft ho trovato il caso
http://support.microsoft.com/support/kb/articles/q176/3/99.asp
che "calza" esattamente le mie condizioni.


Newsgroup: it.comp.lang.visual-basic
Titolo: per marco e cino

se siete nuovi del ng, benvenuti :)
sul sito comune (v. sotto), oltre a tonnellate di cose fre, trovate anche il
manifesto del ng.
mi sembra che ci sia anche scritto qualcosa relativo ai test.
ciao e grazie, pal
--
---> search for it in / cerca nel sito comune del ng:
http://www.murialdo.it/it_lang_vb/
---> 1k vblinks in:
http://www.comune.modena.it/cittadini/apal/html/

sul sito comune (v. sotto), oltre a tonnellate di cose fre, trovate anche
il
forse volevi dire <tonnellate di cose _fri_>.
Scusate ma non ho resistito... :)
Ciao

 ha scritto


 Scusate ma non ho resistito... :)
Hai fatto bene! Neanche LUI avrebbe resistito. :))
--
Ciao.
Maurizio

 Hai fatto bene! Neanche LUI avrebbe resistito. :))
lui
CHI
?
:):)

...

Il nostro "PENPAL"
 :)

  :)
attento che mi allego a questo post, mi intrometto nel tuo pc e in veste di
palscript ti faccio
zanna.BLEAAAAH !!!!
:>

Quello che mi intriga č coma abbia fatto un allegato ad attraversare indenne lo
sbarramento del server di Libero... inquietante.


 sbarramento del server di Libero... inquietante.
me lo sono chiesto anch'io. e' successo questo:
* ho fatto l'allegato (un txt, 8 byte, c'era solo bleaaah).
* l'ho allegato.
* poi (sssssh!) mi e' sovvenuta la ferrea regola del ng e l'ho *eliminato*
con canc, come faccio di solito.
* spedito.
ris.:
con tin e interbusiness si vede nel listview di oe,
con 
news.uffizio.de
, no.
forse e' passato in quanto txt.
cmq e' una cosa troppo news perche' io la possa capire.

 * spedito.
Ancora più strano, l'allegato è stato regolarmente UUCodificato:
eppure è sopravvissuto lo stesso... farò un po' di prove in it.test

 sbarramento del server di Libero... inquietante.
Forse ricordo male, ma gli allegati fino a 3K passano tranquillamente.
Dipende da com'è fatto il bot.
Buona Pasqua a tutti.
Gaetano.
Real E-address: 
gaet...@hotmail.com
Newsgroup: it.comp.lang.visual-basic
Titolo: Sviluppo software e reportistica

Sviluppo programmi e reportistica in Visual Basic, Visual C++, MS Excel, MS
Access per necessità specifiche di Piccole/Medie imprese e Studi
professionali.
http://it.geocities.com/impreitalia/
--------------------------------
Inviato via 
http://usenet.iol.it

 professionali.
A parte che qui facciamo tutti il vostro lavoro, quindi non è il posto
giusto per fare pubblicità (che tra l'altro è espressamente vietata nei NG),
avrei da dire un paio di cose:
1) il sito non è particolarmente brutto, ma il fatto che stia su Geocities e
che non abbia un suo dominio dimostra che siete dei dilettanti. Anche il
fatto di non dichiarare un indirizzo fisico e una partita IVA è indice di
poca professionalità
2) I vostri costi (
http://it.geocities.com/impreitalia/programmi.htm
) sono
ridicolmente bassi. 180.000 lire al giorno significa meno di 4 milioni lordi
al mese. Se considerate che non farete lavorare i Vs programmatori + di 10
mesi l'anno e che dovrete dargli 15 mensilità calcolando anche
l'accantonamento liquidazione, significa che se li pagate 1.300.000 lire al
mese non vi resta in tasca niente (né per voi, né per la segretaria, né per
il commercialista).
E' dura trovare su Roma programmatori qualificati senza pagarli.
In bocca al lupo
*Roby*
Newsgroup: it.comp.lang.visual-basic
Titolo: Leggere l'ETICHETTA di un floppy

Come si fa a leggere l'etichetta di un floppy disc con VBA?
Grazie per l'illuminazione.

Come si fa a leggere l'etichetta di un floppy disc con VBA?
Vedi sotto la firma  :-)
hth, hal
----------------------------------------------
Option Explicit
Private Declare Function GetVolumeInformation Lib "kernel32" _
                        Alias "GetVolumeInformationA" ( _
                                ByVal lpRootPathName As String, _
                                ByVal lpVolumeNameBuffer As String, _
                                ByVal nVolumeNameSize As Long, _
                                ByRef lpVolumeSerialNumber As Long, _
                                ByRef lpMaximumComponentLength As Long, _
                                ByRef lpFileSystemFlags As Long, _
                                ByVal lpFileSystemNameBuffer As String, _
                                ByVal nFileSystemNameSize As Long _
                                ) As Long
Private Function Sz2Str(ByRef a_Src As String)
    Dim ch As Long
    ch = InStr(1, a_Src, vbNullChar, vbBinaryCompare)
    If (ch) Then a_Src = Left$(a_Src, ch - 1)
End Function
Public Function vbGetVolumelabel(ByVal a_VolumeLetter As String) As String
    Dim lpVolumeNameBuffer As String, lenBuffer As Long
    Dim lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long
    Dim lpFileSystemFlags As Long, lpFileSystemNameBuffer As String
    lenBuffer = 256
    lpVolumeNameBuffer = Space(lenBuffer)
    lpFileSystemNameBuffer = Space(lenBuffer)
    If GetVolumeInformation(a_VolumeLetter & ":\", _
                            lpVolumeNameBuffer, lenBuffer, _
                            lpVolumeSerialNumber, lpMaximumComponentLength, _
                            lpFileSystemFlags, _
                            lpFileSystemNameBuffer, lenBuffer) Then
        Sz2Str lpVolumeNameBuffer
        vbGetVolumelabel = lpVolumeNameBuffer
    End If
End Function    '// vbGetVolumelabel


Cavolo... pensavo ci volesse uno scanner e u ocr...   ;-PPPPP
ciao
ugo

Grazie, in realtà voglio leggere il numero di serie, ma mi pare che la tua
routine faccia pure quello. Ora controllo!

Newsgroup: it.comp.lang.visual-basic
Titolo: Salvare BMP a 256 colori

Come da oggetto:
qual'è il metoto + veloce per convertire una BMP a 16 milioni in 256 colori
usango un imagebox?
Grazie
--
Andrea Fabbrucci
anfa...@tin.it
Andrea Fabbrucci
anfa...@tin.it
--
Posted from 
mta04-acc.tin.it
 [212.216.176.35]
via Mailgate.ORG Server - 
http://www.mailgate.org

 usango un imagebox?
Non e' certamente il piu' veloce, ma io per fare cio' ho caricato la BMP
nelle sue varie parti (non ho usato il loadpicture per intenderci!), e dopo
cio' l'ho salvata nel modo desiderato (creandogli un nuovo header, ecc..).
Il procedimento e' lento sopratutto se vuoi visualizzarla nel frattempo
(tipo tramite il PSET).
Ciao
Salvo

 colori


Anch'io ne vorrei sapere qualcosa in +!!!
Ciao e grazie
--
Andrea Fabbrucci
anfa...@tin.it
--
Posted from 
mta03-acc.tin.it
 [212.216.176.34]


 Dammi un indirizzo che va.
Newsgroup: it.comp.lang.visual-basic
Titolo: Ora legale o solare?con VB3

Ciao a tutti.
Volevo chiedervi a quale api devo chiedere aiuto per farmi dire dal mio bel 
computer se l'ora è impostata su solare o legale, e devo farlo col vecchio 
ma mitico visual basic 3.
Qualcuno sa darmi una dritta?
Grazie.
Bye.
Katte.

 computer se l'ora č impostata su solare o legale, e devo farlo col vecchio


 ha scritto nel messaggio
news:b3yI8.92018$CN3.2...@news2.tin.it...


 ha scritto nel messaggio
news:L5GI8.92614$CN3.2...@news2.tin.it...


 > > computer se l'ora č impostata su solare o legale, e devo farlo col


 ma mitico visual basic 3.
Io ho le info per le applicazioni 32 bit, che ti riporto in coda a questo
messaggio: devi cercare nelle API a 16 bit quale sia l'equivalente. Credo
che tu abbia un file WINAPI.TXT nella dir del Visual Basic 3.0, puoi cercare
li' se esiste la GetTimeZoneInformation. In emergenza puoi anche provare a
sostutuire "kernel32" con "kernel" nella Declare e vedere se funziona, ma e'
possibile che qualcosa nelle strutture (le "Type") sia diverso...
Spero ti possa aiutare.
Ecco il codice:
Type SYSTEMTIME
        wYear As Integer
        wMonth As Integer
        wDayOfWeek As Integer
        wDay As Integer
        wHour As Integer
        wMinute As Integer
        wSecond As Integer
        wMilliseconds As Integer
End Type
Type TIME_ZONE_INFORMATION
        Bias As Long
        StandardName(0 To 31) As Integer
        StandardDate As SYSTEMTIME
        StandardBias As Long
        DaylightName(0 To 31) As Integer
        DaylightDate As SYSTEMTIME
        DaylightBias As Long
End Type
Declare Function GetTimeZoneInformation Lib "kernel32"
(lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long
Function OraLegale() As String
    Dim TZ As TIME_ZONE_INFORMATION
    GetTimeZoneInformation TZ
    OraLegale = (TZ.Bias = TZ.DaylightBias)
End Function
Ciao!
--
   Alex Palmese
---
Sei anche tu stanco dei messaggi spam? Usa Terminator, il programma
anti-spam italiano FREEWARE! 
http://www.sertel.net/terminator/

...cut...
Cavolo eccome se mi aiuta!! Grazie! ora vado subito a controllare se trovo 
qualcosa che vada coi 16bit, o al max mi faccio una mini applicazioncina 
col vb6 che mi legga se l'ora è legale o meno e la mando in esecuzione 
tramite una shell...certo, non è la soluzione ottimale, ma funzionale...:)
Grazie mille ancora.
Ciao.
Katte.
Newsgroup: it.comp.lang.visual-basic
Titolo: Ancora Stampe

Ciao a tutti, scusate se insisto, ma sono proprio bloccato,
sto cercando di creare un controllo per
fare l'anteprima di stampa,
- ho usato l'api PrintDlg che mi apre una bella finestra dove l'utente può
    impostare tante cose, scegliere quale stampante utilizzare ecc...
    questa api mi restituisce un tipo predefinito PRINTDLG ...
- all'interno del tipo PRINTDLG ci sono due variabili
    hDevMode e hDevName che dovrebbero essere dei puntatori ad altri
    due tipi predefiniti DEVMODE e DEVNAME ...
COME FACCIO A LEGGERE QUESTI ULTIMI DUE TIPI????
... in questi gg di prove mi sono convinto che dovrei fare una dll
in C++ , ma il problema è che con il C++non saprei proprio da dove
cominciare,
aiuti anche in questo senso sono ben accetti.
Grazie ancora
Ciao
Werty

 COME FACCIO A LEGGERE QUESTI ULTIMI DUE TIPI????
hDevMode e hDevName non sono propriamente dei "puntatori"
ma piuttosto handle di una porzione mobile di memoria globale.
Questo handle si ottiene tramite la funzione GlobalAlloc, passando
come parametro GMEM_MOVABLE.
E' bene che l'handle sia passato alla struttura PRINTDLG prima
della chiamata alla funzione: la memoria è sempre meglio gestirla
in maniera autonoma.
Un esempio:
Dim udtPrintDlg As PRINTDLG
Dim udtDevMod As DEVMODE
Dim udtDevNames As DEVNAMES
Dim Print_Mode As Long
Dim lngRet As Long
--- si impostano i membri della struttura con i
--- default del programma e l'handle dell'owner
--- Questo l'hai già fatto
'Alloca una porzione della memoria globale
udtPrintDlg .hDevMode = GlobalAlloc( _
        GMEM_MOVEABLE Or GMEM_ZEROINIT, _
        Len(udtDevMod)
'Ottiene il puntatore al blocco di memoria
Print_Mode = GlobalLock(udtPrintDlg.hDevMode)
'Copia la struttura nel blocco di memoria allocato
CopyMemory ByVal Print_Mode, udtDevMod , Len(udtDevMod)
'Unlock del blocco
lngRet = GlobalUnlock(udtPrintDlg.hDevMode)
--- si fa lo stesso con .hDevNames
--- si chiama la funzione PrintDlg
'Non resta che effettuare l'operazione inversa, ossia copiare
'la memoria allocata nelle strutture
'Handle del blocco di memoria
Print_Mode = GlobalLock(udtPrintDlg.hDevMode)
'Copia la memoria nella struttura
CopyMemory udtDevMod, ByVal Print_Mode, Len(udtDevMod)
lngRet = GlobalUnlock(udtPrintDlg.hDevMode)
--- lo stesso per .hDevNames.
--- Si può saltare la prima operazione di allocazione ed effettuare solo
--- quest'ultima, lasciando che sia PrintDlg a gestire il tutto; ma come
--- dicevo, è meglio farlo in prima persona.
a questo punto, se tutto è andato nel verso giusto, dovremmo poter
leggere i membri delle due strutture in questione. Si verifica con:
Debug.Print udtDevMod.dmDeviceName
che rende il nome della stampante selezionata.

Grazie!!!!!

Newsgroup: it.comp.lang.visual-basic
Titolo: Testo in verticale.

Buongiorno.
Vorrei sapere se esiste un modo per scrivere il testo contenuto in una label
o in un textbox in verticale.
Grazie.

 ha scritto nel messaggio
news:9974rf$n0f$1...@lacerta.tiscalinet.it...


 wrote in message
news:99775c$n22$1...@pegasus.tiscalinet.it...
