mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: En français or in English ?

Désolé, je ne parle pas italien
Sorry I don't speak italian
Pouvez-vous m'aider: j'aimerai pouvoir réduire avec Visual Basic 5 la taille
d'une image sous forme.BMP puis l'enregistrer en format JPG avec une
compression importante. Est-ce possible ? merci par avance
Could you help me ? I would like to decrease the size of a .BMP picture with
Visual Basic 5 and save tne new image as a .JPG with a high compression
level . Is it possible ? Thank you very much.
Frédéric DUFAUD

...


Newsgroup: it.comp.lang.visual-basic
Titolo: [ot] VB6 e OutLook.application

Uso OutLook.application per inviare messaggi
dal mio programma VB6.
 
Tutto bene per il testo e per gli allegati.
 
Diversi clienti mi hanno chiesto di aggiungere il
loro logo alla fine del messaggio.
 
Mi sembra di aver capito che devo usare il
HTMLBody invece del Body semplice.
 
Essendo completamente digiuno di HTML avrei
bisogno di un esempio per risolvere i seguenti
problemi:
 
1) Come trasformare un testo semplice in un
    testo HTML semplice senza nessuna opzione
    particolare
2) Come inserire in questo testo l'istrtuzione
    per aggiungere un'immagine memorzzata
    in un file (sempre la stessa immagine).
 
Se qualcuno mi puņ aiutare .....
 
Grazie e saluti.
Sauro
 
 

Per una funzionalità del genere, una delle cose più pratiche è semplicemente "disegnare" il template della tua mail con un qualunque editor di testo o un editor HTML WYSIWYG, e includerlo tra i file della tua applicazione.
 
In questo modo hai la possibilità di adattarlo ogni volta che vuoi, o di renderlo personalizzabile direttamente dal cliente, o di averne a disposizione anche più di uno secondo necessità, senza dover intervenire di nuovo sul codice
 
Nel tuo programma non farai altro che aprire il template corretto 
con un semplice "For Input", caricare tutto in una stringa e impostare poi la property HTMLBody:
https://msdn.microsoft.com/en-us/library/office/ff868941.aspx
 
 
Volendo poi, puoi facilmente prevedere dei "segnaposti" all'interno del testo HTML su cui fare poi gli opportuni Replace() per caricare valori a seconda del contesto, stile stampa unione.

Grazie Luca.
 
Forse ho anche trovato come inserire un'immagine.
 
Ciao, Sauro
Newsgroup: it.comp.lang.visual-basic
Titolo: [ADO] operatore IN e query parametriche SQL

oggi ho scoperto che nelle query è possibile usare l'operatore IN, per (ad
es.) cercare tutti gli elementi chehanno un campo il cui valore è compreso
in un determinato elenco.
ad es:
SELECT * FROM Tabella1 WHERE Citta IN ('Napoli',
'Milano','Torino','Venezia')
ora, vorrei sapere come fare ad usare questo operatore quando faccio una
query parametrica.
gia ho visto che non posso fare:
... WHERE Citta IN ?
se faccio poi ... WHERE Citta IN (?)
al posto di questo "parametro" dovrei mettere un array
ma se faccio
mycommand.parameters(3)=array(1,2,3,4)
mi da un errore "impossibile assegnare ecc. ecc."
come posso fare?
grazie
MarioH

come posso fare?
Costruisci dinamicamente la CommandText del Command:
Dim arrCitta() As String
Dim sql As String
Dim cmd As ADODB.Command
... arrCitta viene caricato
... il Command viene inizializzato
sql = Join(arrCitta(), ", ") 
sql = Left$(sql, Len(sql) -1)    ' toglie l' ultima virgola
cmd.CommandText = "SELECT * FROM Tabella1 " & _
                                  "WHERE Citta IN (" & _
                                   sql & ")"
ciao, hal

 >es.) cercare tutti gli elementi chehanno un campo il cui valore č



ehila č vero...
grazie
a questo punto, sono contento che resti alzato fino a tardi... ::))))
MarioH

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

Avete presente la treeview dell'OE? Proprio quella alla vostra sx........
bene come diavolo faccio ad aggiungere un testo colorato come l'indicatore
delle news o e-mail presenti?
O ancora piu' semplice (si fa per dire) come faccio a far diventare una TV
multi colore ? del tipo:
    nodo 1 colore nero
    nodo 2 colore blu
    nodo 3 colore giallo
    nodo 4 colore verde
    ecc...........
Ma si puo' fare? Esistono eventuali alternative?
Ciao e grazie

 wrote in message
news:7rtl2h$fql$1...@fe1.cs.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 e licenza studenti

qlc sa dirmi le differenze tra VB4 Pro - 32bit e VB6 Pro!
L'acquisto con licenza studenti cosa comporta?
ALex.


La licenza studenti č una bella cosa, perchč con 3 lire ti danno un VB + VC
(SENZA CARTACEI) ultima versione e con diritto di usarlo finchč non decadi
dalla qualitŕ di studente.
Attento che si decade automaticamente dalla qualitŕ di studente anche se si
trae beneficio economico per se o per altri tramite il prodotto in
questione. (non puoi vendere nulla e ciň che sviluppi lo devono usare solo
altri senza fini di lucro )
PERŇ quando si vuole, anche una volta decaduti dalla qualitŕ di studenti si
ha il diritto di acquistare gli stessi prodotti in versione non studente,
nell'ultima versione disponibile al momento dell'acquisto, ed in versione
aggiornamento, spendendo quindi molto meno, appoggiandosi proprio sulla
licenza studenti.
Spero di non averti confuso di piů
ciao
Maurizio B.
mrzNOMMI...@tin.it
 (eraseNOMMISPAMMA)

qlc sa dirmi le differenze tra VB4 Pro - 32bit e VB6 Pro!
Se hai scritto volutamente "VB4 Pro" e ti sei perso VB5 Pro:
- VB4 permetteva la programmazione 16-32 bit, da VB5 SOLO 32 bit
- I compilati di VB4 erano mostruosamente lenti, le cose sono notevolmente
migliorate con VB5
- L'ambiente di sviluppo di VB5 facilita la gestione e la scrittura del
codice
- da VB5 si possono creare le OCX (ActiveX).
- da VB5 si possono aprire più progetti contemporaneamente.
- da VB5 sono presenti dei Wizard che aiutano in diverse operazioni di
sviluppo ripetitive
Se invece hai scritto erroneamente "VB4 Pro" e volevi scrivere "VB5 Pro":
Non so risponderti perché non ho VB6 e consiglio di aspettare maggiori
notizie sui reali vantaggi prima di fare l'upgrade  da VB5 (C'è già un
messaggio con questa richiesta in questo NG).
Ciao
--
-
MIX (VB5SP3)
post...@yahoo.com
80 links ai siti VB
http://space.tin.it/computer/gaais
http://www.tempolibero.com/user/mix/
 (alternativo)
-

qlc sa dirmi le differenze tra VB4 Pro - 32bit e VB6 Pro!

Newsgroup: it.comp.lang.visual-basic
Titolo: Download file da sito...

Ciao a tutti, devo realizzare un programmino in VB6 che scarichi un file PDF
da un sito di un giornale online (l'URL è il seguente
http://www.eco.bg.it/EcoWebQuotidiano/input/2004/01/08/1.pdf
) , sono alle
prime armi e leggendo qua e là mi era sembrato di dover usare Inet ma credo
che serva solo per l'FTP (forse sbaglio).
C'è qualcuno che mi può indicare la procedura da seguire o addirittura mi
scrive due righe di codice da cui prendere spunto ?
grazie, FLavio.

Inet = Internet Control ... quindi http, ftp ecc. ecc. ...
dipende da cosa devi fare ... e come lo vuoi fare ...
puoi anche utilizzare un solo controllo ftp di terze parti.
Ce ne sono di gratuiti e a pagamento ...
Ciao
Andrea

 ha scritto

facendo 'salva oggetto con nome' dal tuo post ie/oe propongono 'stream.pdf'.
il codice qui sotto lo dovrebbe salvare con nome diverso ogni volta.
-- 
ciao, j.
http://www.sundaysw.com/
Private Sub cmdSave_click()
    On Error GoTo errman
    Screen.MousePointer = 11
    Inet1.AccessType = icUseDefault
    Dim b() As Byte
    Dim strURL As String
    Dim fNum As Long: fNum = FreeFile
    Dim fName As String
    fName = "pdf_" & Format(Now, "yyyy-mm-dd_hh-mm-ss") & ".pdf"
    strURL = "
http://www.eco.bg.it/EcoWebQuotidiano/input/2004/01/08/1.pdf
"
    b() = Inet1.OpenURL(strURL, icByteArray)
    Open App.Path & "\" & fName _
        For Binary Access Write As #fNum
    Put #fNum, , b()
    Close #fNum
    Screen.MousePointer = 0
    Exit Sub
errman:
    Screen.MousePointer = 0
    Close #fNum
    lblStatus = Error
End Sub

 che serva solo per l'FTP (forse sbaglio).
OooooHoooooOOOOOooooOOOOhhhHHHhOOOOOoooOOOhhHH
Una vita a ripetere le stesse cose...
:-P
La proprietà protocol ti permette di selezionare tra una svariata serie di
protocolli di comunicazione.
In alternativa, e per questo ringraziamo Alletun, usa questa Api (testata
dal sottoscritto con successo)
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
    "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
    ByVal szFileName As String, _
    ByVal dwReserved As Long, _
    ByVal lpfnCB As Long) As Long
e la puoi usare con questa function:
Public Function DownloadFile(URL As String, LocalFilename As String) As
Boolean
   Dim lngRetVal As Long
   lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
   If lngRetVal = 0 Then DownloadFile = True
End Function
-- 
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>

Grazie a tutti per le risposte... preziose.
Ciao, FLavio.
Newsgroup: it.comp.lang.visual-basic
Titolo: Dietro le quinte di PrintForm

Salve a tutti.
Dovrei ottenere una bitmap di una form completa, compresi tutti i
controlli presenti su di essa, per far apparire la form in modo
uniforme, senza che si vedano i suoi controlli comparire, anche se
velocissimamente, uno dopo l'altro. Mi sono accorto che il comando
PrintForm fa esattamente quello che vorrei ma a me non interessa la
stampa, dovrei poter ottenere la bitmap e manipolarla.
Qualcuno sa se è possibile rintracciare il codice sorgente del metodo
PrintForm (ne dubito), oppure quali API servirebbero per ottenere
l'immagine di un controllo a partire, presumo, dal suo device context ?
Grazie e ciao!

 Qualcuno sa se č possibile rintracciare il codice sorgente del metodo


 l'immagine di un controllo a partire, presumo, dal suo device context ?
Questo dovrebbe fare al caso tuo, anche se è piuttosto complesso.
HOWTO: Capture and Print the Screen, a Form, or any Window
http://support.microsoft.com/support/kb/articles/Q161/2/99.ASP
Forse non ho capito bene quello che vuoi fare, ma in alternativa potresti
copiare la finestra in memoria con alt-printscreen, e incollarla in una
PictureBox, prova con questo codice:
_________________________________
Incolla queste righe in un modulo o nelle dichiarazioni di un form:
----------------
Option Explicit
Private Declare Sub keybd_event Lib "user32" _
     (ByVal bVk As Byte, ByVal bScan As Byte, _
     ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_SNAPSHOT = &H2C
Private Sub PrintScreen()
keybd_event VK_SNAPSHOT, 1, 0, 0 ' simula la pressione del tasto Stamp
keybd_event VK_SNAPSHOT, 1, KEYEVENTF_KEYUP, 0 ' tasto Stamp rilasciato
' REMma le due righe sopra e attiva queste per avere nella clipboard
' solo la finestra attiva (anche se non è la tua, puoi attivarne un'altra
' con AppActivate)
' keybd_event VK_SNAPSHOT, 0, 0, 0 ' simula i tasti ALT + Stamp
' keybd_event VK_SNAPSHOT, 1, KEYEVENTF_KEYUP, 0 ' tasti rilasciati
DoEvents ' lascia il tempo al sistema di accorgersi
' che il contenuto degli appunti è cambiato
End Sub
------------------------
Se richiami la funzione PrintScreen nel tuo programma hai la schermata
nella clipboard e la puoi incollare dove ti pare e usarla come vuoi.
Clipboard.Clear ' non è essenziale, ma non fa male
PrintScreen ' copia la schermata in memoria
Picture1.Picture = Clipboard.GetData(2) ' la incolla in una PictureBox
_________________________________
Fammi sapere se era quello di cui avevi bisogno !
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
Newsgroup: it.comp.lang.visual-basic
Titolo: OT La quiete prima della tempesta?

Quando si vuole leggere qualcosa su VB, si viene qui e si scorrono i vari
post, di tizio, di caio... ognuno ha i suoi "autori" preferiti....ma che
strana quiete da qualche giorno qui nel NG... sembra che tutti siano in
vacanza da qualche parte... è in arrivo una tempesta ?
--
Gulp ! Forse mi sono perso qualcosa !

 vacanza da qualche parte... č in arrivo una tempesta ?
No, IMHO, mi pare che il week-end contempli un "calo fisiologico" piů che
comprensibile. C'č chi sta in famiglia, in gita fuori porta, chi dorme, chi
non ha la linea a casa, chi ... va a pescare. Non so se hai guardato fuori:
E' primavera, cacchio! ;-)

Lupo wrote:
E' primavera, cacchio! ;-)
E per fortuna !
Tra non molto potrò fare la prima uscita di stagione in barca a vela!
Ma troverò comunque il tempo per una capatina da queste parti.


 E' primavera, cacchio! ;-)
Sono stato in giro per l'Italia del Nord per 2 settimane, quando ho valicato
il Rubicone (da nord verso sud, come Cesare) mi sono sentito rinascere.. i
Padani hanno tutta la mia sconfinata ammirazione per come riescono a
resistere all'inverno ed agli alberi senza foglie..
-- 
Ale
E` in corso la CFV per per
*it.comp.programmare.dotnet*,
Si può leggere il manifesto su
_it.news.annunci_ o _it.news.votazioni_
Newsgroup: it.comp.lang.visual-basic
Titolo: Doevents: questo sconosciuto?

Un saluto a tutti
Piu' volte sul ng in vari msg si e' parlato di "Doevents". Da quello che ho
capito permette di sospendere l'esecuzione del processo corrente e di
eseguire qualche processo in attesa (o sbaglio?). In questo caso viene
garantito il pseudo-parallelismo (infatti in ogni istante un solo processo
puo' essere eseguito dalla Cpu, anche se in memoria sono presenti piu'
processi). I "nonnetti" (leggi super-guru) consigliano di utilizzare quasi
sempre questo comando. Ma non ho capito bene quando il suo utilizzo si rende
effettivamente necessario. Potete fare qualche esempio (magari inserendo
nella risposta piccolissimi spezzone di codice che rendono chiaro il tutto),
sicuramente le vostre risposte/esempi saranno utili a tanti.
ciao e grazie anticipatamente
e.


Es.:
Command1, esegue un loop, inserendo DoEvents nel loop, e cliccando su
Command2,
il programma termina, altrimenti si bloccherebbe su Do Loop.
Private Sub Command1_Click()
Dim a
Do
a = a + 1
Text1.Text = a
DoEvents
Loop
End Sub
Private Sub Command2_Click()
End
End Sub

Es.Nell'ambito della stessa procedura
esegui un comando che influenza l'aspetto grafico
esegui una lunga serie di comandi che tengono occupato il processo
L'aspetto grafico si aggiornerà solo alla fine della procedura.
Se invece
esegui un comando che influenza l'aspetto grafico
doevents (Windows a modo di aggiornare immediatamente la grafica)
esegui una lunga serie di comandi che tengono occupato il processo
forse è meglio che dici??

Hot Chili ha scritto:

Se il problema è solo nell'aggiornamento dell'aspetto grafico,
basta utilizzare i metodi refresh dei vari controlli per forzare
il ridisegno.
Il problema e' che durante una lunga serie di comandi il programma
non risponde ai click del mouse e alla pressione dei tasti.
-- 
Samuele Battarra
mail server: 
libero.it
, indirizzo: battarsa@(mail server)
prova il mio newsreader:
http://digilander.iol.it/battarsa/programmi/leggiminews.html

Quello che dici è senz'altro vero !!!
Io non l'ho scritto per il solo fatto che quando ho postato
vi era già un post di risposta con quanto affermi.
è inutile (parlo per me naturalmente) postare per dire cose che altri hanno
già detto.
mi sono limitato ad aggiungere un'altra eventualità
bye bye
Mauro
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] CREAZIONE FILE CHM

VORREI CREARE I FILE DI HELP PER IL MIO GESTIONALE IN HTML MA LI VORREI
COMPILARE E FARLI DIVENTARE DEI .CHM
cOME POSSO FARE?
GRAZIE!

 ha scritto nel messaggio
news:8am3hj$d3d$1...@nslave2.tin.it...


da microsoft...
--[GbC]--

 cOME POSSO FARE?
I files CHM (Compiled HTML) sono gli help più recenti e sempre più
utilizzati; sono realizzati sulla base di singoli topic costituiti da files
di tipo HTML, ottenibili con un editor grafico per pagine web, come ad es.
Dreamweaver 3.0 (il migliore!), GoLive o FrontPage2000.
Gestendo files HTML, si hanno tutti i
vantaggi che ne derivano (vedi possibilità grafiche e di animazione dei siti
Internet). Lo svantaggio è che per vedere files CHM devi avere alcune
componenti nel sistema (vengono installate con Internet Explorer, ma si
possono anche installare singolarmente).
Per ottenere i CHM da files HTML esistono programmi
specifici.
Purtroppo pare che non siano ancora stati editi testi in italiano
sull'argomento e tantomeno sull'utilizzo d VB.
Ma non credo che questo sia un grosso problema.
Il mio consiglio è il seguente:
1) scaricare dal sito Microsoft GRATIS il programma "HTML Help
Workshop" all'indirizzo
http://msdn.microsoft.com/workshop/author/htmlhelp/download_main.asp
Dovresti trovarlo anche nel CD di Visual Studio 6 (e forse di VB6).
Il programma è dotato di una guida CHM.
2) reperire in Internet altre informazioni; ci sono molti siti
sull'argomento, esempi e tutorial.
Guarda ad esempio qui (guida in stile CHM):
http://msdn.microsoft.com/workshop/c-frame.htm?941111529376#/workshop/author
/htmlhelp/default.asp (ricomponi questo link se è interrotto)
e qui:
http://www.vbexplorer.com/htmlhelp.asp
3) valutare l'uso di un programma commerciale.
Consiglio senz'altro RoboHelp, sia per gli HLP sia per i CHM.
Semplifica molte operazioni e per i CHM elimina la necessità di utilizzare
un editor HTML grafico esterno.
Inoltre ha un'ottima guida.
Guarda qui:
http://www.blue-sky.com
Esite anche una versione demo di "RoboHelp for Microsoft HTML Help", molto
utile......!!!
In inglese esistono alcuni testi che trattano RoboHELP, in particolare
quello della serie "For Dummies" che tratta la versione 7.0. Ma ce ne sono
anche altri, guarda qui:
http://www.blue-sky.com/resources/bluesky.htm
e fai clic sul link "Books". In libreria non li trovi: devi ordinarli.
Comunque non sono affatto indispensabili.
ALOHA
Rogis
* ANTI-SPAM:
Rimuovi "ABC" dall'indirizzo per rispondermi
Remove "ABC" from my address to reply.


Subject: Re: create help files with VB?
Date: Thu, 12 Aug 1999 13:45:56 -0400
microsoft.public.vb.syntax
The HTML Help Workshop is included on the VB6 CD. The latest version can be
downloaded from
http://msdn.microsoft.com/workshop/author/htmlhelp/default.asp
. Check my
site (link in the signature below) for a tutorial, utilities, a
comprehensive HTML Help class module for VB5 and VB6, and a matching HTML
Help Object Library DLL for VBA use.
David
Microsoft HTML Help MVP
**David's HTMLHelp Center is at:
http://www.vbexplorer.com/htmlhelp.asp
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Come generare grafici in Excel.

Avrei bisogno, da un programma in VB6, di:
1) aprire un foglio Excel esistente o crearne uno nuovo.
2) creare, su questo foglio, un grafico di tipo XY con le scale volute.
3) disegnare, sul grafico creato, una o piu' curve con dati contenuti in vettori del programma in
VB6.
Sono graditi suggerimenti, esempi, sorgenti...
Ciao e grazie a tutti.
Franco

 ha scritto nel messaggio
news:3A1EAB83...@MCLINK.IT...


 Private Sub Command1_Click()...

 wrote in message
3A1EAB83...@MCLINK.IT...


Newsgroup: it.comp.lang.visual-basic
Titolo: Sito comune ...

 -------------------------------------------------------

...
    [...]


Newsgroup: it.comp.lang.visual-basic
Titolo: [!] Help - Decimal

Se avete vb5/6 provate a cercare sull'help
Decimal, tipo di dati
Potreste trovare:
Le variabili di tipo Decimal sono memorizzate come numeri interi senza segno
di 96 bit (12 byte)
e se siete fortunati potreste trovare:
Le variabili di tipo Decimal sono memorizzate come numeri interi senza segno
di 96 bit (14 byte)
Non è fantastico tutto cio'?
Adesso si deve scegliere la ver. VB non più in base al numero o al
Pro/Enterprise, ma in base alle possibilità che vengono dichiarate dall'help
allegato!
Tra l'altro chi ha scritto la seconda ver. non sa nemmeno contare!
Lo so, è solo un errore di battitura, ma volevo essere polemico.
Ciao.

...

nell'help dicono che non e' ancora supportato (io pero' sono rimasto a
VB5)....

Newsgroup: it.comp.lang.visual-basic
Titolo: Stringhe in EXE

E' possibile vedere le stringhe utilizzate all'interno di un file EXE creato
in VB?
Grazie 1000 e buona primavera?
Dm

 in VB?
Apri l'eseguibile con un editor... i caratteri delle stringhe sono
intercalati generalmente da NULL...

Newsgroup: it.comp.lang.visual-basic
Titolo: TextBox Control

Salve a tutti!
Ho un problema con una Textbox: non funziona il tasto Canc (Delete).
Ho provato a catturare l'evento KeyDown, ma questo non viene nemmeno
generato.
A qualcuno è mai capitata la stessa cosa?
Grazie
    Roberto

della tastiera non viene generato nč l'evento KeyDown nč quello KeyPress
Nella guida in linea di quegli eventi ci deve essere qualcosa ... hai letto
?!?!?!


Newsgroup: it.comp.lang.visual-basic
Titolo: utilizzo delle api

Vorrei sapere quali sono tutte le api utilizzabili per i file wave
I.


Public Declare Function sndPlaySound Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
giuseppeD

 ha scritto nel messaggio
news:gsvK7.612$BA4....@news1.tin.it...


 ha scritto

Newsgroup: it.comp.lang.visual-basic
Titolo: Combo ed evento click

Sono nuovo del VB e spero quindi di spiegare discretamente bene il
problema... L'istruzione comboPippo.ListIndex = 0 mi solleva sempre
l'evento click e questo non lo voglio!
E' possibile fare in modo di utilizzare l'istruzione
comboPippo.ListIndex = 0 ed escludere l'evento click associato?
Hmmm... sono stato chiaro? :-/
--
Posted from 
mail.eurobet.com
 [194.131.98.188]
via Mailgate.ORG Server - 
http://www.mailgate.org

 wrote in message
384D364F.24198FF0@NO_SPAM.COM...


 End Sub
MI sembra un giro assurdo. Basta fare:
Sub ComboBox_Click(...)
    if ComboList.ListIndex=0 Then Exit Sub
    ' ... resto del codice dell'evento
End Sub
---
News2000 1.0b Beta tester version 
http://socket2000.8m.com

End Sub
Io preferisco di gran lunga usare l'oggetto stesso come semaforo, evitando
quindi la proliferazione di variabili boolean.
Esemprio:
Sub MiaSub()
    ComboBox.Tag="STOP"
    ComboBox.ListIndex = 0
    ComboBox.Tag=""
End Sub
Sub ComboBox_Click(...)
    if len(ComboBox.Tag) Then Exit Sub
    ' ... resto del codice dell'evento
End Sub
Ciao
By -MES-   Maronese Ettore
http://www.maronese.com/mes
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://www.murialdo.it/it_lang_vb

End Sub
Peccato che quando l'utente seleziana il primo elemento della lista,
l'evento click non fara' il suo dovere.


Newsgroup: it.comp.lang.visual-basic
Titolo: VBA references

non č che sapete se in giro per la rete c'č tipo una guida di riferimento
per il visual basic for application (in particolare quelli di excel o
access).
Cioč io vorrei una guida di riferimentto con tutti gli oggetti le proprietą
e i metodi e le giuste sintassi. la guida di riferimento c'č anche nell'help
del VBA editor ma io vorrei trovare una versione eventualmente stampabile
nel caso mi venisse voglia di sprecare inchiostro e carta...
Ciao ciao fatemi sapere

> "Vijello" news:nvau9.75011$%
M1.19...@twister2.libero.it
:

    Se il problema e' solo stampare la guida sprecando piu' carta e
inchiostro possibile:
        apri Microsoft Internet Explorer
        Visualizza > Carattere > Molto grande
        apri la guida di Excel
        clic sul pulsante 'Mostra'
        clic sulla pagina 'Sommario'
        clic destro su una icona libro
        Stampa...
        (.) Stampa l'intestazione selezionata e tutti i sottoargomenti
        Ok
        ;-)
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------
Newsgroup: it.comp.lang.visual-basic
Titolo: Dubbio del secolo

ma è possibile che in VB non ci sia un comando che permetta le mappe di
immagine come l'HTML, o la possibilità di usare immagini in b/n o toni di
grigio (come una maschera di photoshop)  che invisibile, ma sovrapposta a
quella reale, permetta di stabilire diverse zone cliccabili?
Se qualcuno conosce la soluzione mi dica gentilmente come fare...
grazie :)

...


Newsgroup: it.comp.lang.visual-basic
Titolo: -- rilevare presenza cd nel lettore

c'e' un modo per sapere se nel lettore e' inserito un cd oppure no?

 c'e' un modo per sapere se nel lettore e' inserito un cd oppure no?
In un modulo:
Public Enum DRIVE_STATUS
    DRIVE_DOESNT_EXIST = 1
    DRIVE_NOT_READY = 2
    DRIVE_READY = 3
End Enum
Private Declare Function GetDiskFreeSpace Lib "Kernel32" Alias _
"GetDiskFreeSpaceA" (ByVal lpRootPathName As String, _
lpSectorsPerCluster As Long, lpBytesPerSector As Long, _
lpNumberOfFreeClusters As Long, _
lpTotalNumberOfClusters As Long) As Long
Private Declare Function GetDriveTypeA Lib "Kernel32" _
    (ByVal nDrive As String) As Long
Public Function DriveStatus(ByVal Drive As String) As _
DRIVE_STATUS
Dim lDriveType As Long, lFreeSpace As Long
Dim lSectorsPerCluster As Long, lBytesPerSector As Long
Dim lFreeClusters As Long, lTotalClusters As Long
Dim sDrive As String
sDrive = Drive
'fix bad params
If Len(sDrive) = 1 Then sDrive = sDrive & ":\"
If Len(sDrive) = 2 And Right$(sDrive, 1) = ":" _
    Then sDrive = sDrive & "\"
lDriveType = GetDriveTypeA(sDrive)
If lDriveType = 1 Then
    DriveStatus = DRIVE_DOESNT_EXIST
Else
    lFreeSpace = GetDiskFreeSpace(sDrive, lSectorsPerCluster, _
    lBytesPerSector, lFreeClusters, lTotalClusters)
    DriveStatus = IIf(Err.LastDllError > 0, _
       DRIVE_NOT_READY, DRIVE_READY)
End If
End Function
Antonio Mirarchi


thank ;)

Newsgroup: it.comp.lang.visual-basic
Titolo: Calcolo %

scusate č un cazzata terribile, ma sto impazzendo, dovrei calcolare la
percentuale tra 2 numeri,
faccio un esempio tra 10 e 20 la variazione percentuale sarebbe del 100%
come cavolo si fa? su numeri piccoli mi da valori errati qualcuno puň
illimuninarmi?
grazie 1000!!!!! % :-)
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/



 illimuninarmi?
Devi usare la 'sottrazione' e la 'divisione':
Private Function Variazione (byval Primo_Numero as Currency, byval 
Secondo_Numero as Currency) as double
variazione=0
If Primo_Numero=0 then exit function
Variazione=100.0*CDbl((Secondo_Numero-Primo_Numero))/Primo_Numero
End Function
Ciao
Alberto
-- 
Ma noi no


 


(20 / 10 - 1) * 100
:)
-- 
Quando noi ignoranti eravamo di piů, tutto era piů bello...
(A. Celentano)
Per rispondermi in privato, prima togli l'immondizia dalla testa ;)
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] perchè mi dà errore di Provider

Ho aggiornato un programma per un cliente, inserendo un DataReport collegato
ad un Recordset ADODB.
Premetto che ho inserito nel progetto tutti i riferimenti e nel sistema del
cliente le DLL e le TLB richiesti.
Non ho proceduto alla nuova installazione con il pacchetto, per non perdere
tempo.
Quando lancio la stampa dal Pc del cliente mi da l'errore "Impossibile
trovare il provider specificato".
DAO 3.5 è installato.
Le librerie del Proviver di Microsoft Jet OLE DB sono queste (MSJTOR35.DLL
e MSJTER35.DLL) ?
Se non non bastano queste mi dite per favore qual'è il file da istallare
singolarmente, che specifica il Provider di Microsoft
Jet OLE DB.
In poche parole quale file o libreria non trova il programma quando effettua
la connessione al Datareport.
Grazie

 wrote in message
news:l92w6.770$fO3....@news.infostrada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: resize label

Salve
ho il seguente problema :
devo stampare una  serie di label con una stampante che ha meno di 6 cm di
larghezza, quindi devo far stare eventualmente due righe su una label; cerco
di calcolare la lunghezza della somma dei caratteri con la funzione
textwidth e se tale misura supera la larghezza della label (che deve
rimanere fissa) allora inserisco il carattere di caporiga e aumento
l'altezza della label ....
ma i conti non tornano !!!
devo convertire la misura della label ?
qualche soluzione ?
grazie spero di essere stato chiaro nell'esposizione

> devo convertire la misura della label ?
Sì. TextWidth e funzioni simili dovrebbero tornare un valore in pixel; posizioni e dimensioni dei controlli sui form sono, per default, in twip (un'unità nata per essere indipendente dallo schermo e... beh, ti basti sapere che da 
VB.NET
 non esiste più).
Ergo, o fai la conversione (nei vecchi post c'è sicuramente) oppure imposti una proprietà (Scale?) del form in modo che tutte le posizioni e le dimensioni siano espresse in pixel.

 ma i conti non tornano !!!
Di quanto non tornano?
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
Se i tempi non chiedono la tua parte migliore, inventa altri tempi. 
(Baolian, libro II, vv. 16-17)
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 qualche soluzione ?
Label1.WordWrap = true
Ciao 

 ha scritto nel messaggio
news:438c2...@x-privat.org...


 ma cosě la label si allunga sempre !!
E non era il tuo problema?
Forse intendi dire che devi mettere anche Label1.AutoSize = false
Ciao

 ha scritto nel messaggio
news:438d7b95$1...@x-privat.org...


 ho risolto setando  AutoSize =true eWordWrap =false
Se avessi fatto il contrario faceva tutto VB per te ;)
Ciao 

 ha scritto nel messaggio
news:438dc...@x-privat.org...


 cioč ?
bllbhllbbllhll...
ma che č?
Parlo arabo?
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: W98 W95

Se genero il pacchetto di installazione sulla macchina di sviluppo dove ho
Win 98, e vado ad installare su macchine con Win 95, secondo voi, ci sono
problemi ?
Gazie.
Ciao,
Riccardo Guirrini
Web :          
http://space.tin.it/computer/rguirrin
E-Mail:         
del...@tin.it


Ho provato e a me è andata bene...
Saluti, Massimo

problemi ?
Fai attenzione perchè se utilizzi dei componenti (OCX/DLL) standard di
Windows rischi che poi qualcosa non funzioni.
A me è capitata una cosa del genere, non riuscivo a registare un ocx
(imgscan) perchè avevo preparato i dischetti di installazione da un PC con
W98 e installato il tutto su un pc con W95 (i 2 ocx non sono identici). La
cosa tragica è che l'errore segnalato indicava una mancanza del controllo.
Ciao Franco




Newsgroup: it.comp.lang.visual-basic
Titolo: ADO malADOtto ADO

Dunque,
l'ambiente: Win2000,Office2000,VB6+SP3
il problema: ho una form con 2 datacontrol ADODC1 e ADODC2 connessi
ad un db Access2000 (jet4.00)
entrambi accedono alla stessa tabella, il primo pilota alcune textbox
ed č consentito l'update, il secondo una datagrid per operazioni di
filtro, ordinamento e/o browsing del recordset (in sola lettura).
Il problema č che quando aggiorno il primo dc
(adodc1.recordset.update), voglio che le variazioni si riflettano
anche sul 2 dc (e quindi sul datagrid).
Ho provato requery e resync (adodc2.recordset.requery) ma il maledetto
non schedula neanche l'evento RecordsetChangeComplete!!!!
Open e close manco a parlarne.
Chi avesse soluzioni e/o suggerimenti, e' .... benedetto . :)
Saluti.
PS: Non posso usare un clone per i 2 oggetti perche' gli eventi e i
metodi devono avere vita propria.

Il problema è che quando aggiorno il primo dc


 anche sul 2 dc (e quindi sul datagrid).


Non funziona! La contenuto della grid rimane invariata.
Dovrebbe essere un problema di latenza (se aspetto 2-3 secondi prima
di fare la requery ottengo il refresh corretto) ma come si fa' a
bypassarlo?
Pensavo di effettuare un refresh asincrono ma il maledetto non
schedula nessun evento (will o complete) neppure quello degli errori.
Suggerimenti?
MAx.


>Dunque,


Ho aggirato il problema. Ho inserito un wait prima di fare la requery.
Non e' una soluzione elegante ma funziona ... se qualcuno pero' ha una
spiegazione per i mancati eventi o la latenza sull'update dei dati
........
Saluti. Max.

Si, ok .. ma si puo' intervenire da qualche parte?


 anche sul 2 dc (e quindi sul datagrid).


Newsgroup: it.comp.lang.visual-basic
Titolo: barre degli strumenti

Ciao! Come faccio ad incorporare in una mia appz delle barre strumenti come
quelle di Internet Explorer e Outlook Express versione 6?
GRAZIE
TiTTi

 6?
nella tab dei controlli inserisci i "Microsoft Windows Common Controls" li
ci sono parecchi comandi tra cui le barre che cerchi (ToolBar)
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

 (ToolBar)
Ma io intendevo PROPRIO quelle di IE6 e OE6, quelle cioe' con i "puntini"
sul lato sinistro...
TiTTi
Newsgroup: it.comp.lang.visual-basic
Titolo: showfont

come posso settare i font di un controllo
text usando quali controlli in uscita
da un modulo showfont
grazie

Il Faro wrote:

cheeeeee ????????
--
Claudio Gamberini

 grazie
Prego

 ha scritto nel messaggio
news:UCiB8.7468$zW3.1...@news1.tin.it...


 ha scritto nel messaggio
news:UCiB8.7468$zW3.1...@news1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Istruzione SQL

Immaginiamo le seguenti due tabelle:
 
ANAGRAFICA
coi seguenti campi::
CODICE
DESCRIZIONE
 
MOVIMENTI
coi seguenti campi::
COD_ART
DATA_MOV
QUANTITA
 
La seguente istruzione SQL:
SELECT * FROM ANAGRAFICHE INNER JOIN MOVIMENTI ON 
ANAGRAFICHE.CODICE=MOVIMENTI.COD_ART ORDER BY DATA_MOV
trova tutti i movimenti con la relativa anagrafica.
Ci possono quindi essere più movimenti per la stessa anagrafica.
 
Mi sembra di ricordare che esista un'ulteriore istruzione da inserire
nella stringa SQL che farebbe in modo che per ogni anagrafica
venga trovato solo il primo movimento anche se ne esistono diversi.
 
O, forse, me lo sono solo sognato.
 
Saluti a tutti
Sauro 
 
 

Se non vado errato dovrebbe bastare l'aggiunta di "GROUP BY ANAGRAFICHE.CODICE" alla fine.

 ANAGRAFICHE.CODICE" alla fine.
 
Partendo dal tuo suggerimento sono arrivato alla
conclusione che bisogna fare:
SELECT ALL DISTINCT ANAGRAFICHE.CODICDE eccetera
 
GROUP BY è più adatto a calcolare dei totali o
a contare il numero dei record.
 
Ciao e grazie
Sauro 
 
 

 SELECT ALL DISTINCT ANAGRAFICHE.CODICDE eccetera
 
Non mi pare si possano usare insieme questi due predicati
 
-- 
Greg

 Greg
 
Si, ho postato male.
 
E' giusta quella seguente:
 
SELECT DISTINCT ANAGRAFICHE.CODICDE eccetera
 
Saluti
Sauro

Newsgroup: it.comp.lang.visual-basic
Titolo: [.NET] Nuove interfacce di XP

Come si implementano in una applicazione le nuove interfacce di Win XP?
E perchè non sono già disponibili nel nuovo pacchetto .NET dove i controlli
standard sono molto più simili a quelli dei Windows precedenti?
Grazie

Perchè sono le librerie di sistema (in questo caso XP) che sioccupano di
rappresentare la GUI con il look di XP, tu devi solo dire che vuoi
utilizzare quella libreria.
Vai su MSDN, cè un articolo che spiega come realizzare un file.config per
'attivare' il look XP
HTH
Corrado

Newsgroup: it.comp.lang.visual-basic
Titolo: Leggere un file XML...

Ragazzi ho bisogno di leggere un file XML da un applicazione VB6
,parsificarlo e navigare
attraverso i gli elementi DOM ,child,ecc...per poi catturarne i valori....
Come posso fare ?
Potete indicarmi qualche sito in cui posso travare qualche esempio VB ?
Grazie per l'aiuto.
Antonio Passaro
-- 
Posted from 
mailbe1.wang.com
 [192.58.226.5] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Antonio Passaro
www.ecs.soton.ac.uk/~rjft197/xml/parser.html
www.vbxml.com

 wrote in message
news:53E1424333DED311A67...@excitiv002.eu.wang.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Mitico google

1) andate in 
www.google.it
2) inserite "Trombare la gnocca"
3) clikkare sul tasto "mi sento fortunato"
4) Rotolatevi
-- 
-Gigio@Work(?)-

 ha scritto nel
messaggio news:beu9kt$8r33p$
1...@ID-174485.news.uni-berlin.de


> ROTFL
funziona anche con "weapons of mass destruction"...
o almeno fino a qualche giorno fa lo faceva...

 o almeno fino a qualche giorno fa lo faceva...
si si la conoscevo GHGH ... certo che di gente che non ha un 8=B da fare ce
ne sta' !

[*Gigio2k [work]* : 
gigiosoft2k...@libero.it
] ha scritto:

Ma te, Gigio, vai in giro di sera "sotto l'impermeabile niente" e fai
"uahhh!" a chi passa? :-P

 "uahhh!" a chi passa? :-P
e certo ma da quando la gente si mette a ridere non e' piu' divertente per
me :(



Puoi sempre dire che la tua ragazza sta con te per i soldi :-PPP
-- 
ciao, hal

 Puoi sempre dire che la tua ragazza sta con te per i soldi :-PPP
oddio , ma visto che di soldi non ne ho, perche' sta con me ? e soprattutto
, sta ancora con me ? Bho... bha... bhe...
So appena riemerso dalla lista di fix del sp4 di win2000
http://support.microsoft.com/?kbid=327194
 non ci ho capito molto, ci sono
riferimenti alla RTBox , altri a Jet4... ma non e' che mo me tocca ritestare
tutti i SW ? O_o

 ha scritto nel
messaggio news:beulgn$8tql5$1...@ID-174485.news.uni-berlin.de...


 ah ah ah ah ah ah ah
spero tu abbia riso per la prima parte del post e non per la seconda ! ^_^
A me sti sp mi mettono sempre l'ansia .... 

A me sti sp mi mettono sempre l'ansia .... 
Il SP4 di windows 2000 mi pare funzioni bene, anche se non corregge
ancora un sacco di cose, tipo quella dell' impostazione delle ACL da
codice, che e' saltata fuori in un thread di ieri, o altre falle di
security, che, pero', c'erano anche prima.
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: plottaggio dati

Salve a tutti.
Sto cercando  un programma che mi permetta di rappresentare graficamente su
di un piano dei dati.
Naturalmente sono interessato ai codici sorgenti perchè doveri inserirli
all'interno di un'interfaccia utente di un sistema di acquisizione.
Ringrazio veramente caldamente chiunque mi possa indicare dove trovare il
materiale richiesto.


Ho fatto un OCX, ma non è gratis. Se vuoi ti posso inviare una demo.
Fabio Guerrazzi

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto per Stampa...

Salve, il mio problema sarà sicuramente per voi semplice, vorrei sapere qual è
il comando per visualizzare quella finestra di Stampa... , presente nel 99% dei
programmi per windows. Grazie 1000.
P.S.: Se vi è possibile potreste mandare la risposta alla mia casella di posta
mmi...@tiscalinet.it
 a causa di un problema di outlook?
-- 
Posted from 
cs1-126.dialup.tiscalinet.it
 [62.10.170.126] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:4d77a93e0849777aa00...@mygate.mailgate.org...


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

Sentite.....
una procedura di fading....come posso fare????
mi spiego: apare lo schermo nero, diventa piano piano bianco....
GrAzIe AnTiCiPaTaMeNtE !!!!
MAstRO LiNdO !!!!!

 mi spiego: apare lo schermo nero, diventa piano piano bianco....
 For x = 0 To 255
    Form1.BackColor = RGB(x, x, x)
 Next x

Newsgroup: it.comp.lang.visual-basic
Titolo: Argggg ShellExecute aiutooooo

SW_MAXIMIZE)
Mi sembra tu debba impostare set Ret = ShellExecute....
così Ret è oggetto e puoi usare comandi del tipo
Ret.Visible=True o qualcosa di simile.
Ho la memoria corta, scusami, ma sono sicuro che per non nascondere la
finestra la strada da seguire è questa.
Ciao


Prova a sostituire SW_MAXIMIZE con SW_SHOWMAXIMIZED
-- 
Sidewinder  
---------------------------------------------------------------------
"Ford, you're turning into a penguin. Stop it." - HHGG
---------------------------------------------------------------------


Non solo hai la memoria corta, ma sei anche recidivo...
Quello che hai scritto e' una stronzata colossale!
ShellExecute non ritorna un oggetto, ma un handle di istanza (HINSTANCE),
che e' tutt'altra cosa!
Se non sei sicuro delle risposte che dai, non darle, stai zitto, stacca la
tastiera, magari infilatela in un orecchio ed estraila dall'altro, tanto in
mezzo non c'e' nulla!
--
Roal Zanazzi
z...@iol.it

mezzo non c'e' nulla!
Ho provato, grazie, ora ho le orecchie più pulite.
Sei troppo simpa, Roal
Newsgroup: it.comp.lang.visual-basic
Titolo: Avrei bisogno di un altro aiutino..

Come avrete capito non sono un programmatore professionista e quindi a volte
mi inceppo.
La routine qui di seguito viene richiamata ripetutamente per aggiornare
tutti i record di una tabella (l'istruzione .MoveNext č in un altra routine
ma ho controllato che funziona) in maniera sequenziale dal primo all'ultimo.
Fin qui funziona tutto bene salvo che per l'ULTIMO record della tabella:
quando cerco di fare l'update mi da un errore :
Run-time error '-
2147217864
 (80040e38)'
Impossibile individuare la riga specificata per l'aggiornamento.
La cosa piů strana e che quando lancio l'applicazione questo errore me lo da
sistematicamente una volta si e una volta no!!
Se voi avete qualche spiegazione ve ne sarei grato...
Sub AGGIORNARECORD(infos() As String)
i = 0
For i = 2 To 18     'il numero di campi utili che recupero dalla risposta
del server
    Form1.Adodc1(1).Recordset.Fields(i).Value = infos(i - 2)
Next i
'recupero dal server i nomi dei giocatori
Do Until infos(i - 2) = ""
Form1.Adodc1(1).Recordset.Fields(i).Value = infos(i - 2)
i = i + 1
Loop
'rimpiazzo i campi null con uno spazio
For i = 19 To Form1.Adodc1(1).Recordset.Fields.Count - 1
    If infos(i - 2) = "" Then infos(i - 2) = " "
    Form1.Adodc1(1).Recordset.Fields(i).Value = infos(i - 2)
Next i
'updato il record
Form1.Adodc1(1).Recordset.Update   <==== si blocca QUI!
End Sub

 Impossibile individuare la riga specificata per l'aggiornamento.
http://support.microsoft.com/default.aspx?scid=kb%3Ben-us%3B300586

 ha scritto nel messaggio
news:b64rfl$1o0ji$1...@ID-174464.news.dfncis.de...

GRAZIEE! (non avevo cercato su internet perchč pensavo che fosse un mio
errore e non un bug di VB6)
Newsgroup: it.comp.lang.visual-basic
Titolo: Le Celle di MSFlexGrid

C'E' NESSUNO CHE SA COME INSERIRE UN TESTO MULTILINEA IN UNA CELLA DEL
CONTROLLO MSFLEXGRID (CON VB5PRO) ?
PREMETTO CHE HO GIA' PROVATO LE SEGUENTI COMBINAZIONI:
1) MSFLEXGRID1.TEXT = "A" & VBCRLF & "B"
2) MSFLEXGRID1.TEXT = "A" & VBCRLF & VBCRLF & "B"
3) MSFLEXGRID1.TEXT = "A" & VBCR & "B"
4) MSFLEXGRID1.TEXT = "A" & VBLF & "B"
CHE NON HANNO AVUTO ESITO! SIGH!
RINGRAZIO ANTICIPATAMENTE CHIUNQUE POTRA' AIUTARMI.
:-)

 wrote in message
83aj3l$938$1...@news.flashnet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Password MDB e ADO

Ciao,
devo realizzare una applicazione client/server che attinga dati da un file
MDB.
Per motivi di sicurezza vorrei proteggere con password l'MDB.
All'avvio la mia applicazione dovrebbe inviare la password all'MDB in modo
da poterlo aprire.
Ho provato a gestire il problema con ADO... ma i risultati sono stati
scarsissimi.
Ho abilitato gli utenti nel file MDB e poi ho cercato di forniglieli tramite
le proprietą di ADODC... Nulla da fare.
Cosa mi potete dire in proposito ???
Grazie. Roberto

 le proprietà di ADODC... Nulla da fare.


Newsgroup: it.comp.lang.visual-basic
Titolo: Form più grande dell'impostazione video

Ciao a tutti, vorrei fare una domanda un po' ignorante...
...č possibile creare una Form che sia piů grande dell'impostazione dello
schermo.
Se non avete capito non avete tutti i torti,quindi mi spiego meglio:
Supponiamo che io sto lavorando con una impostazione 1024x768 e creo la mia
form che occupa tutta la schermata.
Fin qui tutto bene, se perň io cambio l'impostazione dello schermo in
800x600 non ho naturalmente modo di vedere tutta la form perň non posso
neanche scorrerla con uno scroll. A questo punto vorrei sapere se c'č un
modo per creare una Form piů grande dell'impostazione attuale dello
schermo!!!
Vi ringrazio!!!
Ciao

 schermo!!!
No.
Una finestra puň essere grande al massimo quanto lo schermo.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Masterizzazione AIUTO

Ciao a tutti,
Mi hanno chiesto di preparare un programma in grado di effettuare il
mirrorinG
di due dischi e la masterizzazione di uno di questi.
Ho provato ad utilizzare il programma NeroCmd per masterizzare da codice il
disco
ma ho riscontrato molti problemi, uno dei tanti è che ogni volta chiude il
CD.
Ho formattato un disco con INCD ma non riesco a scrivere sul cd con la
funzione
CopyFile....
Esiste qualche Ocx, dll o eseguibile in grado di masterizzare da codice??
Grazie mille
Mirko

 Esiste qualche Ocx, dll o eseguibile in grado di masterizzare da codice??
Prima che ti mangino vivo, prova a cercare nel NG. Troverai tantissimi post
come il tuo, e in uno di questi qualcuno ti proporrà un tool da lui scritto,
che si appoggia su software a linea di comando, ma che non funziona su
sistemi NT-based.
Ciao

 ha scritto nel messaggio
news:beh4se$tkf$1...@newsreader.mailgate.org...

Prova CDWriterPro:
www.numediasoft.com/Products.htm
E' fenomenale, pero' ti avverto è costosetto. Per provarlo puo' scaricare la
trial che è perfettamente funzionante e senza limitazioni di tempo imposte,
se non per il fatto che ti compare la finestrella pubblicitaria di
registrazione ogni volta che crei un istanza del controllo.
Ciao
Michele
Newsgroup: it.comp.lang.visual-basic
Titolo: Riempire form di Labels a runtime

Il codice che segue dovrebbe riempire il form di LABEL QUADRATE
colorate randomicamente.
Per esempio se io ho Casver = 4 e Casor = 4 , vuol dire che voglio il
form riempito con una griglia di 4 * 4 labels. Spero sia chiaro.
Il codice qui sotto, pero' non funziona.
Il cinclo interno crea la RIGA di caselle,
Quello esterno dovrebbe spostare LA PRIMA LABEL DI OGNI COLONNA
A left 0 e a top = [il top di casella sopra] + [l'height di casela
sopra], no?
'tenere conto che Casver è il numero di caselle verticali
'casOr è il numero di caselle orizzontali
'lblh è l'altezza di una label
'lblw è la larghezza di una label
For p = 1 To casver
    For i = 1 To casor
        lbl(i).Left = lbl(i - 1).Left + lblw + 1
        lbl(i).Visible = True
        lbl(i).Caption = "AltraCasellan°" & i
        lbl(i).ZOrder 0
        lbl(i).Height = lblh
        lbl(i).BackColor = QBColor(Int(Rnd * 10) + 1)
        lbl(i).Width = lblw - 100
    Next
lbl(i).Top = lbl(i - 1).Top + lblh + 200
lbl(i).Left = 0
lbl(i).Visible = True
lbl(i).Caption = "PRIMACASELLA"
Next
Questo codice, pero',
mi crea solo la linea di caselle, la prima,
mentre la seconda, terza e 4 linea, no.
Dove sbaglio?

 Dove sbaglio?
Forse che nel fatto che ti riferisci sempre alla casella di indice i, e
quindi da 1 a casor?
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
Se i tempi non chiedono la tua parte migliore, inventa altri tempi. 
(Baolian, libro II, vv. 16-17)
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Dove sbaglio?
Ad occhio mi pare un'array bidimensionale, ma l'indice della Label
punta sempre alla prima riga.
Devi moltiplicare l'indice i per il numero di riga verticale
quindi Label(ìxp).
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 quindi Label(ìxp).
ancora meglio, credo: casor * (p - 1) + (i - 1)
Marco / iw2nzm


 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Newsgroup: it.comp.lang.visual-basic
Titolo: creare tabella di file contenuti in cd?

a partire da un compact disc è possibile creare un file di testo
contenente la lista di tutti i file contenuti all'interno del cd
stesso, uno per ogni riga preceduto anche dal percorso a partire dalla
radice d:? Spero di essere stato sufficientemente chiaro.


il comando dos e': DIR /S/B X:\ >NomeFile.TXT
bye
r

 ha scritto nel messaggio
news:1116223529.0...@g44g2000cwa.googlegroups.com...

tutto è possibile!
io userei il filesystemObject e un po di ricorsione
ne trovi tanti di esempi su google
ciao

"droblepicka"
'e' un file vbs  copia incolla su Notepad e salva
'come GetCd.vbs
Set oFSO = CreateObject("Scripting.FileSystemObject")
 x= oFSO.GetDrive("D:")
Set f = oFSO.CreateTextFile("CD.log", True)
Set Folder = oFSO.GetFolder (x)
 Set FileCollection = Folder.Files
 For Each File In FileCollection
f.WriteLine (File)
 Next
--
Fosco