mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: E-Mail in VisualBasic 5

Vorrei sapere se qualcuno conosce un modo per mandare E-Mail attraverso
VisualBasic, senza ricorrere ad una api che mi richiami qualche claient
di posta elettronica.
Deve essere il tutto trasparente, perche' io nel mio programma devo
mettere un body e un subject, mentre l'indirizzo del destinatario e'
contenuto in una lista.
Grazie

...


 scritto nell'articolo


Newsgroup: it.comp.lang.visual-basic
Titolo: VB5 e stampanti

Ciao a Tutti !!
Non mi ricordo più il comando da usare per far sì che mi compaia la finestra
della stampante (quella dove c'è la scelta, il n° di pagine, ecc...)
Aiutatemi...
--
Solo risposte sul news

Usa le common dialogs con l'evento .showprinter
ciao.
Denis Carraro ha scritto:

-- 
-------------------
Paolo V.  (VB5+SP3)
ICQ:29533243
-------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB .NET] select su datagrid

Ciao, non sono molto esperto in materia...
Uso mysql..hop installato tutti i tool, anche MySqlDriverCS
io ho creato una connessione (Mysqlconnection), 2 DataAdapter
(MySqlDataAdapter) e ho generato un DataSet.Sul mio datagrid riesco a far
visualizzare una tabella o l altra tramite uno dei 2 dataadapter.
riesco a far l aggiornamento delle tabelle (fisiche) se l utente modifica il
datagrid,però non riesco a capire come far apparire sul mio datagrid i miei
dati filtrandoli con un select (magari con un join fra le 2 tabelle)
Grazie
zaoooo

 dati filtrandoli con un select (magari con un join fra le 2 tabelle)
guida in linea
DataRelation
System.Data.DataRelation
Ave
giuseppeD
---
CCR 

 ha scritto nel messaggio 
news:43d931e1$0$22100$4faf...@reader1.news.tin.it...


 (magari con un join fra le 2 tabelle)
Per visualizzare su una datagrid solo parte dei record di un datatable,
generi, a partire da quest'ultimo, un dataview, agisci sulla sua proprietà
Rowfilter e poi utilizzi questo come datasource.
Se vuoi fare un join tra due tabelle puoi partire a monte, caricando i
dati nel datatable con una query che esegua il join, oppure lavorare a
valle, con i due datatable nel dataset uniti da una relazione, e
aggiungendo alla grid una GridColumn opportunamente modificata.
Il codice del subclassing lo puoi trovare qui
http://support.microsoft.com/default.aspx?scid=kb;en-us;Q319076
Fin che dura, perchè qualcuno sostiene che i link a msdn diventano
obsoleti in pochissimo tempo :-)
-- 
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

 grazie della disponibilità
1-
Metodo DataTable.Select
2-
Non so se soddisfa la tua esigenza, ma puoi mettere in relazione due o più 
griglie, in modo che al clic su una riga padre,
la griglia figlia relazionata mostri i figli..
In questo caso, sempre guida in linea:
Metodo DataRow.GetParentRows
Membri DataRelation
Ave
giuseppeD
----
CCR
Newsgroup: it.comp.lang.visual-basic
Titolo: Aprire file Excel

Salve a tutti:
Non riescoe a capire ( sono proprio un principiante) come usare la funzione
Openfiledialog in VB.net.
Sono riuscito a creare un form con un Button che se loclicchi ti si apre la
finestradi dialofìgo dove puoi scegliere il file, e ho anche impostato ( spero
correttamente ) la funzione Streamreader per leggere il file.
Ma a me non me ne frega niente che legga il file fino alla fine, a me interessa
che me lo apra  :-D perchè poi devo inserire il tutto in unsa macro di excel
che uso per copiare le celle del file in un altro file.
Lo so che non sono stato molto chiaro, ma la confusione regna sovrana nella mia
testa  ;-).
Se c'e' qualcuno che si intende di queste cose per favore abbia pietà.
Grazie in anticipo 
Max
-----------------------------------------
Messaggio inviato con Excite Newsgroup.
http://www.excite.it/newsgroup


Spiega cosa devi fare.
-- 
Guarda, ma non toccare!
Tocca, ma non gustare!
Gusta, ma non inghiottire!
Per rispondere in privato elimina dall'indirizzo "togliquesto"
MasterDavidex - David Ruscelli

 -- 
Allora: ho due file di excel ( banali fogli di lavoro) devo selezionare le
celle del primo e copiarle nel secondo.
Il problema e' che i file cambiano di volta in volta quindi il computer deve
aprire una finestra di dialogo all'inizio chiedendo all'utente quali file vuole
( forse usando Openfiledialog). 
Finora ecco cosa sono riuscito a fare ( con enormi sforzi)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
        ' Visual Basic
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            OpenFile(OpenFileDialog1.FileName)
            MsgBox("File selezionato " & OpenFileDialog1.FileName)
        End If
    End Sub
    Private Sub OpenFile(ByVal NomeFile As String)
        Dim File1 As String
        Dim FileReader As New System.IO.StreamReader(NomeFile)
        'Legge l'intero file e lo salva nella variabile "File1".
        File1 = FileReader.ReadToEnd
        FileReader.Close()
        'Libera le risorse allocate con New.
        FileReader = Nothing
    End Sub
ma i file non si aprono


 -- 
Aprire uno specifico file di excel : poiche' pero' tale file cambia spesso, il
computer dovrebbe aprire all'inizio una finestra di dialogo ( la Classica Apri
File)nella quale chiede quale file aprire: tu scegli e lui apre
Grazie  dell'aiuto, spero di essermi spiegato 


     End Sub
AZZ!
Non avevi detto che usavi dot net!
Mi spiace ma non ti posso aiutare.


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

ciao
Che cosa e' visualbesic.
Tano

Tano
Una versione Pugliese del Visual Basic ?
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Funzione HideCaret

Ciao ragazzi!
Ho un problema con l'API "HideCaret". In un form, ho così dichiarato:
Private Declare Function HideCaret Lib "User32.dll" (ByVal hwnd As Long) As
Long
Poi, nella routine Load del form, ho messo il seguente codice:
    Dim Esegui As Long
    Esegui = HideCaret(Me.hwnd)
    MsgBox Esegui
Tuttavia, "Esegui" mi restituisce sempre il valore 0 e il cursore continua
ad essere visibile. Dove sbaglio?
Grazie in anticipo.
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260/
http://www.armaditaggia.com/marco

ad essere visibile. Dove sbaglio?
Se fai ME.HWND ti riferisci al FORM, mentre penso che tu debba riferirti
alla TextBax
Prova con:
    Dim Esegui As Long
    Esegui = HideCaret(Text1.hwnd)
    MsgBox Esegui
Ciao
By -MES-   Maronese Ettore
http://ilmes.freeweb.org
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://www.murialdo.it/it_lang_vb


http://www.murialdo.it/it_lang_vb
-------------
Ciao!
Sapevo che il mio problema era banale, ma non avrei mai creduto fino a
questo punto!
Alla prossima
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260/
http://www.armaditaggia.com/marco
====================

Grazie in anticipo.



-----------
Ciao Ettore!
Ho provato come mi hai detto, richiamando la funzione con l'handle della
TextBox, ma il cursore resta sempre visibile. Altri suggerimenti?
A presto


>
Aggiungi una Text1 al form e fai cosi':
Private Declare Function HideCaret Lib "User32.dll" (ByVal hwnd As Long) As
Long
Private Sub Form_Load()
    Dim Esito As Long
    Me.Show
    Esito = HideCaret(Text1.hwnd)
    Text1.Refresh
End Sub
Esito mi torna = a 1
Salutoni


...

----------
Ciao!
Grazie Ettore, ora tutto funziona alla perfezione!
Alla prossima.
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260/
http://www.armaditaggia.com/marco
PS = Scusatemi per l'altra lettera, ma non avevo visto questa risposta!
Newsgroup: it.comp.lang.visual-basic
Titolo: creare un file di stampa

Ciao a tutti
avrei bisogno di un consiglio per favore.
per stampare tutte le varie stampe uso printer
prima con l'istruzione
stampa 10,10,adonominativi.fields("nome").value,vblue,10
creo un file txt temporaneo del tipo
#x
10
#y
10
#coloretesto
vbblue
#grandezza
10
#testo
testodastampare in questo caso e' il valore di
adonominativi.fields("nome").value
(Attenzione l'ho scritto al volo mancano molte altre righe )
con una Sub leggo il testo del file temporaneo e lo inoltro alla stampante
.......
.......
if A = "#x"
line input #file, A
 printer.currenty = A
elseif A = "#y
line input #file, A
 printer.currenty = A
elseif A = "#testo"
line input #file, A
 printer.print  A
e cosi via per tutte le altre istruzioni.
io vorrei poter scrivere dei file da allegare esternamente al programma tipo
quelli di crystal report
da inviare al cliente per delle personalizzazioni
se non ci fossero dei "testi da stampare " da dover prelevare dal DB potrei
inviare direttamente il file di testo temporaneo ,
ma dovendo prelevare il testo da stampare dal DB, come mi cosigliate di
strutturare il file da inviare al cliente in modo che il mio programma possa
leggerlo ed effettuare tutte le varie operazioni.?
spero di essermi spiegato bene
ciao Ilairo


xml
giuseppeD

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

ciao
mi piacerebbe imparare a usare visual basic,lho visto una volta e mi č
piaciuto molto,io uso normalmente c++,e vorrei cimentarmi con questo
linguaggio per me nuovo;ho comprato pcmagazine in edicola e c'era in regalo
un manuale appunto di vb,che ne dite,čbuono?o altrimenti qualcuno sa darmi
qualche consiglio?
grazie
ciao


Se il manuale è quello di F. Balena
penso che siano tutti del parere che sia buono
                                                danilo

 wrote in message
news:2AYD8.57294$
US3.1...@twister1.libero.it

Io ho scaricato il manualone per VB5 qui, 
č completo e tutto in italiano.
www.geocities.com/antsev/download.html
Spero di essere stata utile.
Ciao
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
A parte che il sito è chiuso, ma i manuali ci sono sul cd originale
in formato Word e per iniziare sono abbastanza esaustivi..
                                                            danilo

Newsgroup: it.comp.lang.visual-basic
Titolo: Datacombo e data Environment

utilizzo una dataCombo per selezionare un record in un DataEnvironment ,
come faccio ad accedere anche ai dati degli altri campo dello stesso record
?
--
Ciao
Flex

 ha scritto nel messaggio
news:8cpi8j$2qn$1...@pegasus.tiscalinet.it...


 così gli altri valori negli altri campi.


Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto su semplice istruzione

ragazzi sono alle prime armi con vb5 e volevo porgervi una semplice
domanda:per realizzare un semplice prog che lanci altre applicazioni che
diavolo di istruzioni devo usare?stando alla documentazione in linea dovrei
usare l'istruzione run ma mi dà puntualmente errore.Potreste aiutarmi
xfavore?

 wrote in message
FOox5.39951$XZ4.5...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: RICORDATEVI DI VOTARE it.binari.visual-basic !

Ho visto che c'è l'ultima chiamata al voto e credo che quel gruppo sia
importante per tutti!
Per sapere come votare cercate il messaggio
3. CFV: it.binari.visual-basic moderato
Ciao
--
-
MIX (VB5SP3)
110 links ai siti VB
http://www.tempolibero.com/user/mix/
 (consigliato)
http://space.tin.it/computer/gaais
  (alternativo)
( TEMPORANEAMENTE ACCESSIBILI SOLO CON IE )
-

Salve a tutti,
qualcuno sa dirmi come effettuare il rebuild delle icone di windows? Ho
sviluppato un programmino che cambia le icone che voglio, ma mi scoccia
dover riavviare il computer ogni volta per visualizzare i cambiamenti. Come
si fa via software?


Non so se vale anche per VB... Dovresti eliminare il file SHELLICONCACHE
che si trova con attributo nascosto nella cartella di Windows e contiene
tutte
le icone  correntemente utilizzate da Explorer e dal menu avvio... Però
non so come fare il refresh dello schermo, poi...
Newsgroup: it.comp.lang.visual-basic
Titolo: Quale linguaggio scegliere ?

Salve a tutti,
gradirei chiedere alcuni consigli su quale linguaggio imparare.
Le mie necessità sono :
 
	- DOS : mi serve un programma che sia in grado di leggere da
una allocazione di memoria (ho una scheda convertitore su bus ISA
analogico/digitale), e che sia il più compatto possibile (attualmente
gira su PC  486dx e sx con 1 Mb di ram, DOS su floppy e niente Hard
Disk !).
	- Win95/98/NT : devo fare un applicativo per fatturazioni,
gestione magazzino, stampa intrastat ecc.. , e che mi permetta di
usare database standard (come importazione ed esportazione dati) per
interfacciarmi con software per contabilità generale e busta paga.
Attualmente tutti i precedenti programmi sono fatti con il VECCHIO MS
gw-basic 3.22 . Funzionano bene, ma non si allacciano con altri
database e la velocità in DOS è molto lenta.
Ovviamente il mio obiettivo (o sogno...) sarebbe quello di imparare un
UNICO linguaggio di programmazione per i due tipi di applicazioni di
cui necessito.
Ho qualche esperienza di programmazione in Autolisp ed una vaga
spolverata di Pascal (scolastico, sono perito informatico).
Sono aperto a tutti i tipi di linguaggio (: Java, c++, delphi, visual
basic, power builder, power basic), purchè siano compatibili con le
mie necessità.
Per mia informazione penso che l'unico perfettamente compatibile sia
il c++, ma ho sentito dire che è difficile da imparare (od almeno con
una learning curve più lento rispetto al visual basic), e non molto
sicuro (vedi i vantaggi di Java...). D'altro canto mi risulta che
Delphi, visual basic e Java siano solo del tipo win32, quindo non per
DOS.
Non esitono convertitori da Java (o delphi o visual basic o ...?) a c
o c++ o comunque in grado di fare eseguibili DOS (mi sembra che tempo
fa in delphi ci fosse questa possiblità) ?
Sotto DOS non mi interessa una GUI (finestre, mouse, ...).
Il vantaggio degli ambienti RAD (Visual basic, Delphi ecc...) è solo
per la parte visuale e di "Windows" ? In caso affermativo, cosa ne
pensate di Power Basic, può compilare anche per win32 con un ambiente
visuale ?
Scusate per le tante domande, ma avendo molte opportunità (almeno
teoriche, ed in parte....) mi sorgono anche tanti dubbi.
Moltissimi "Grazie" a tutti quelli che mi risponderanno
---------------------------------
Matteo Facchini                    
Alfonsine  (Ravenna)
PER FAVORE NO ATTACHMENT PLEASE                          


No problem.
Ciao.
Antonio Donatiello.
Newsgroup: it.comp.lang.visual-basic
Titolo: NEWBIE sul serio...

Salve a tutti,
è la primissima volta che mi addentro in questo NG.
Vorrei iniziare a conoscere Visual Basic e non ne so niente.
Le mie conoscenze (di base ancora) si fermano a Java e C++.
Come fare per saperne di più sulle features di VB?
Quali sono le sue principali applicazioni?
Si può integrare con i suddetti linguaggi?
Come iniziare? Io avrei intenzione di acquistare il libro di VB5 della
apogeo.
C'è il Sw incluso?
Ringrazio anticipatamente
Giuliano
----------------------------------------------------------------------------
-----
e-mail: 
d00...@tibur.dis.uniroma1.it
----------------------------------------------------------------------------
-----
Se c'è un Ng più adatto alle mie domande, ne sarà gradita l'indicazione
Grazie.
If you know the right Ng where to ask for it, please let me know.
Thanks.











Newsgroup: it.comp.lang.visual-basic
Titolo: Lanciare connessione internet

Ciao a tutti.
Nel mio applicativo è prevista una funzione tramite la quale si invia un
query ad un db remoto.
Esiste un modo per controllare da programma se è aperta una connessione ed
in caso negativo lanciarne una!?
Insomma voglio che appaia la finestra di accesso remoto.
Grazie

Un articolo ben fatto e un progetto sull'accesso remoto lo trovi sul sito di
Moreno Sirri:
www.morenosoft.com
Ciao, Vincenzo

Newsgroup: it.comp.lang.visual-basic
Titolo: Esistono funzioni o Dll per leggere-scrivere su Usb?

Salve a tutti,
qualcuno di voi e' a conoscenza dell'esistenza
di qualche libreria "universale"per comunicare su Usb??
Grazie a tutti..

 di qualche libreria "universale"per comunicare su Usb??
Cosa significa "universale"?
Comunque ho letto che i ragazzi di #develop hanno pubblicato anche una
UsbLib.
Ovviamente è per .Net, ma sbirciando i sorgenti si dovrebbe capire come
fanno.
Ciao
--
Reporting tool: 
http://www.neodatatype.net

Cosa significa "universale"?
Per universale  a mio modo intendo dire che possa incontrare
un po' tutte le necessita' di colloquio,senza avere performance
troppo alte. Io mi acconteterei di avere il transfer-rate di una 232.
Mi interessa solo la compoatibilita' Hardware dei portatili attuali.
Cosa intendi per #develop? Scusa,ma sono nuovo di queste parti...
Grazie.Ciao!


 Cosa intendi per #develop? Scusa,ma sono nuovo di queste parti...
www.icsharpcode.net
Ciao

Grazie.Ciao!
SharpDevelop (
www.icsharpcode.net
), un ambiente di sviluppo open
source per piattaforma .NET
--
Ciao!
Luca Menegotto
Newsgroup: it.comp.lang.visual-basic
Titolo: OT: Usate google !!!!!

Forse non ce n'e' bisogno, ma volevo invitare tutte le persone "newbie" come
me nella programmazione in VB di utilizzare questo splendido strumento :
http://groups.google.com/
 prima di postare un qualsivoglia quesito nel ng.
Negli ultimi tempi, quasi il 70% di tutte le mie problematiche sono state
risolte grazie a post trovati con il motore di ricerca.
In questo modo , possiamo ottimizzare al meglio le risorse e, sopratutto,
evitiamo di stressare troppo questi santi benefattori che si trovano
all'interno del ng che sono sempre disponibili a dare una mano.
Se li facciamo riposare un po', possiamo tartassarli per cose piu'
impegnative, no ??
;-)
BUONA PASQUA A TUTTI !!!!
Ciao

 risolte grazie a post trovati con il motore di ricerca.
Solo 70%? Non sai cercare bene ;))
Di solito il 90-95 % dei problemi sono già stati domandati sui newsgroup
(non cercate solo su it.comp.lang.vb, cercate anche nei newsgroup in inglese
(sempre se conoscete la lingua), aumentano le probabilità di trovare quanto
cercato).
Quindi mi associo ad Aldo e invito tutti alla ricerca dei vecchi post.
Ciao!

 risolte grazie a post trovati con il motore di ricerca.
[cut]
Concordo pienamente. In piu' suggerisco ai newbie come te e me di scaricare
dei sorgenti (magari non troppo complessi) e di studiarseli passo-passo con
MSDN sotto dito(F1). E' un metodo molto educativo per imparare i concetti
basilari e non della programmazione. Anche se sul momento penserete che quel
determinato passaggio non ve lo ricorderete mai, un giorno affrontando un
problema simile vi verrà in mente lo spunto già visto, fidatevi.
Ciao
Michele

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB2005] Mantenere un controllo sempre al Centro

Ciao a tutti,
ho una Form di dimensioni 800x600. Al centro di questa form
ho un Panel1 con varia roba dentro.
Dopo aver avviato il programma, se provo a ingrandire la form,
il Panel non risulta piu' centrato ma spostato in alto a sinistra.
Ho provato a giostrare un po' con la proprieta' anchor ma non funziona 
perche'
"stira" i lati del Panel ingrandendolo.
Come faccio a costringere il Panel a restare sempre al centro 
indipendentemente
dalle dimensioni della Form ?
Grazie e Auguri di Buone Feste :) 

 "stira" i lati del Panel ingrandendolo.
Questo perche' l'hai ancorato a tutti e 4 i lati; per l'effetto che ti
serve devi invece fare l'opposto, cioe' non ancorare il controllo a
niente.
Newsgroup: it.comp.lang.visual-basic
Titolo: data.recordsource = stringa SQL

Ho un problemuccio con una query SQL che mi risulta molto molto lunga...
Data(2).RecordSource = "Select * From PagamentiEntrate where CodiceCliente =
""" & Data1.Recordset("Codice") & """ AND ((DataRata1 <> """" AND PagRata1
<> 'SI' AND val(ImpResiduo) > 0 AND DATEVALUE(DataRata1) < DATEVALUE('" &
Date & "') OR (PagRata1 = 'SI' AND val(ImpResiduo) > 0 AND
DATEVALUE(DataRata1) < DATEVALUE('" & Date & "')) OR (DataRata2 <> """" AND
PagRata2 <> 'SI' AND val(ImpResiduo) > 0 AND DATEVALUE(DataRata2) <
DATEVALUE('" & Date & "') OR (PagRata2 = 'SI' AND val(ImpResiduo) > 0 AND
DATEVALUE(DataRata2) < DATEVALUE('" & Date & "')) OR (DataRata3 <> """" AND
PagRata3 <> 'SI' AND val(ImpResiduo) > 0 AND DATEVALUE(DataRata3) <
DATEVALUE('" & Date & "') OR (PagRata3 = 'SI' AND val(ImpResiduo) > 0 AND
DATEVALUE(DataRata3) < DATEVALUE('" & Date & "')) OR (DataRata4 <> """" AND
PagRata4 <> 'SI' AND val(ImpResiduo) > 0 AND DATEVALUE(DataRata4) <
DATEVALUE('" & Date & "') OR (PagRata4 = 'SI' AND val(ImpResiduo) > 0 AND
DATEVALUE(DataRata4) < DATEVALUE('" & Date & "'))) ORDER BY
DATEVALUE(DataFattura), VAL(NumFattura)"
sň che č un pň da panico e non pretendo che nessuno cerchi di rifarmi la
query in modo piů ristretto ma stň solamente cercando suggerimenti su come
riuscire ad avere la mia selezione di record con passaggi che consentano un
elaborazione abbastanza veloce.
Grazie a tutti
Maurizio Coffinardi
sec...@secoges.com
www.secoges.com

 
Una istruzione SELECT * WHERE MiaCondizione restituisce i record che
soddisfano MiaCondizione = TRUE. Se puoi stabilire che nella maggior
parte dei casi una condizione di MiaCondizione sarà falsa, allora ti
conviene effettuare più query, prima sulla condizione più restrittiva e
poi sulle altre. 
Ciao Bruno



Newsgroup: it.comp.lang.visual-basic
Titolo: VENDO VISUALBASIC 6.0 Pro + vario soft !!!!!!!!

chedimi la lista !

 chedimi la lista !

> chedimi la lista !
Te la chiedo, ma spero che non siano piratati, altrimenti attento!!!
Ciaps
Straca

Scusate un po', ma tutti dicono a me che a volte sono OT, ma questo non è
OT?

 wrote



Piu' che un OT e troll ... mi ispira che sia un pirata che presto verra'
beccato

 wrote in message
7rqk12$bes$1...@fe1.cs.interbusiness.it...


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

questo e' un messaggio di prova

questo e' un messaggio di prova
E questo è il NG sbagliato !
Usa it.test per le prove, grazie
Newsgroup: it.comp.lang.visual-basic
Titolo: Strano errore

Salve ragazzi ho un semplice programma da fare, ma che mi da uno strano
errore, il programma deve richiedere una password se č giusta il programma
termine a buon fine se č sbagliata richiede nuovamente la pass, fino a
raggiungere il limite massimo di tentativi che č 3, ecco il codice, mi da
uno strano errore che non capisco: Errore di compilazione While senza Wend.
Grazie a mi vorrą aiutarmi ;-)
Private Sub Form_Load()
    Dim x As Integer
    Dim cont As Integer
    cont = 0
    x = 0
    Do
        x = InputBox("Inserire password")
        cont = cont + 1
        If x = 1978 Then
            MsgBox "Pas giusta"
            Exit Do
        Else
            MsgBox "Pas errata"
        If cont = 3 Then
            MsgBox "Tentativi esauriti"
            Exit Do
    While x <> 1978
 End Sub

     While x <> 1978
Da MSDN:
Istruzione Do...Loop
Sintassi:
    Do While
    Loop
In alternativa si puņ usare la seguente sintassi equivalente:
    Do
    Loop While
Ciao!
-- 
Esteban
www.seber.it
Questo post č stato scritto con bit riciclati.
Newsgroup: it.comp.lang.visual-basic
Titolo: Porta USB

Ciao a Tutti!!
Devo gestire la comunicazione con una periferica tramite porta USB!!
Qualcuno conosce qualche controllo,ocx etc etc tipo "MSCOMM" per gestire le
porte USB??
Grazie Ciao
Luca

 Devo gestire la comunicazione con una periferica tramite porta USB!!
Prova a spulciare questo sito:
http://www.lvr.com/usb.htm
Non garantisco che si trovi la soluzione, ma è la massima autorità nel
campo.
Male che vada puoi usare le specifiche per gli HID (Human Interface Device)
delle DirectX e pilotare la porta USB tramite le chiamate DirectX. Di queste
trovi l'SDK qui:
http://msdn.microsoft.com/directx/
Non è una roba banale comunque. Ho fatto anche io un po' di ricerche, ma di
già fatto non ho ancora trovato nulla.
Ciao
*Roby*

 Grazie Ci provo
Ti farò sapere
Ciao Luca

Newsgroup: it.comp.lang.visual-basic
Titolo: ListView ?!?!?!

Se in una form ho 2  ListView , dove la seconda cambia in funzione della
prima .
Al Click sulla seconda listView la prima mi perde la riga selezionata .
com posso fare a non far accadere questo ? .
Vorrei ottenere una situazione tipo impostazioni PERMISSIONS (Win NT o 2000)
.
Al click sull'utente vengo visualizzate una serie di permissions , in fase
di abilitazione o disabiliotazione permissions  l'utente della lista di
sopra
rimane sempre selezionato .

sopra rimane sempre selezionato.
Prova come ti
ho detto io...ammesso che abbia capito...
Saluti..
--------------------------------
Inviato via 
http://usenet.iol.it
 

 wrote in message
157Z29Z81Z46Y...@usenet.iol.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: .EXE Modifikabile???

E' possibile modificare da kodice un .exe?
Mi spiego io realizzo un progetto e mi faccio l'.exe.... in questo progetto
ho un'applicazione e permetto all'utente di modificarla....
Se io volessi ke le modifike komparissero nel file eseguibile.... esiste un
metodo per modificare l'exe senza doverlo ri-compliare, anke perkè può
kapitare ke il mio kliente non abbia VB....
Sono un'illuso e vorrei fare qualkosa di impossibile????????
Kris.

A meno che non hai intenzione di fare virus, la soluzione e' quella di
salvare le modificate fatte dall'utente in un file esterno.
Ogni volta che l'applicazione viene lanciata legge il file e imposta le
modifiche.
Salve
                Dbg
Kris. wrote in message


 wrote in message
news:8ubc4q$d4g$1...@fe2.cs.interbusiness.it...


 metodo per modificare l'exe senza doverlo ri-compliare, anke perkč puň


...


 wrote in message
news:sYbO5.11343$Jn2.2...@telenews.teleline.es...


Newsgroup: it.comp.lang.visual-basic
Titolo: sono OT?

insisto a postare qui anche se sono alla ricerca di informazioni su WSH, cmq
è possibile eseguire uno script cryptato tramite l'encoder senza passare da
un server web? per essere chiaro da linea di comando?
mb

un server web? 
In che senso encoder?
Se vuoi puoi criptare il tutto, ma devi anche scrivere (in chiaro,
magari offuscata, ma non hai scampo) la funzione di decodifica.
Quini e' na criptazione per modo di dire. E' una tecnica nota,
usata anche da alcuni script kiddies per diffondere virus,
ma... perche' mai?
-- 
ciao, hal

 ha scritto nel messaggio news:aqpes4

Il WSH viene eseguito lato client, quindi non c'entra niente con i server
web.
Una volta installato puoi eseguire un qualsiasi script come se si trattasse
di un file .BAT, anche se cryptato (ovviamente con un tool specifico, come
l'encoder di Microsoft).
Ciao
--
' // Initialize the expression evaluator
Engines.Evaluator = CreateObject("
http://www.neodatatype.net
")
' // you can find resources for and from the NG here!
Me.SitoComune = "
http://www.it-lang-vb.net
"

Costui, Zanna!
You wrote  on Tue, 12 Nov 2002 08:46:32 +0100:
 Z> di un file .BAT, anche se cryptato (ovviamente con un tool specifico,
come
 Z> l'encoder di Microsoft).
non so con un .bat ma ho scoperto che per esempio con l'encoder di microsoft
screnc script.vbs script.vbe  NB. vbe!!!
bye
Newsgroup: it.comp.lang.visual-basic
Titolo: Monitorare velocita' trasferimento FTP con INET

Ciao raga, e' da poco che sto iniziando a strimpellare un po di visual
basic e ho un problemino con il controllo INET.
Sto facendo una specie di client FTP e devo poter monitorare la
velocita' di trasferimento in kb/s in tempo reale.
Come posso fare a monitorare la velocita' usando il controllo INET?
Ho provato a cercare un po in giro prima di postare ma non ho trovato
niente!
Bye!

Proprio nessuno sa come leggere sta benedetta velocita' di
trasferimeno?


Prima di tutto ti segnalo che INET ha dei problemi di stabilità: prova
ad interrompere un download e ti renderai conto di cosa si parla. In
ogni caso puoi ricorrere ad uno stratagemma che funziona su 2k/xp
ovvero metti un timer e controlli la lunghezza del file che stai
scaricando con il comando filelen (o file lienght?). Impostando il
timer a 1 secondo e facendo la differenza con la lettura precedente
hai il transfert rate espresso in byte/secondo
Il Wed, 28 Jul 2004 18:23:39 GMT, 
s.p...@tiscali.it
 (pippo) ha
scritto:


Grazie 1000! Con il FileLen mi posso gestire la velocita' di
trasferimento e pure una progressbar era proprio quello che mi serviva
:)
Riguardo alla stabilita'...beh sto imparando adesso a programmare e mi
serve una cosa semplice e rapida da realizzare, magari + in la
riscrivero' la routin con il controllo winsock che da quanto ho capito
e' molto + diciamo "professionale" pero' e' anche + difficile da
gestire con tutti quei pacchetti scomposti in piccole parti (devo
gestire diversi file da 3 o 4 giga ciascuno e con il winsock mi sa che
non e' proprio una passeggiata).
cmq grazie ancora e..nel mio piccolo...a buon rendere ;)
Bye!


Newsgroup: it.comp.lang.visual-basic
Titolo: Info: Connessione a MySql

Salve a tutta la Lista,
allora ho un applicativo in sviluppo che deve connetersi ad un database in
remoto MySql che risiede su un server linux.
La domanda e...con cosda mi connetto??? con ODBC??? ma con quale visto che
quello di SQL non funge???
Grazie 1000
Riccardo
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.338 / Virus Database: 189 - Release Date: 14/03/2002

devi scaricare dal sito 
www.mysql.com
 un ODBC che ti permette di connetterti
ad un db MySQL.....
--
Damiani Liborio Igor
idam...@hotmail.com
 - 
igor.d...@light.it
http://www.igordamiani.it
ICQ : 11847262



Newsgroup: it.comp.lang.visual-basic
Titolo: selezione record in datagrid

ciao a tutti, ho bisogno di un vs aiuto..devo copiare un record selezionato 
in un
datagrid  in una casella di testo .potete aiutarmi? grazie



All'evento click della grid carichi i dati sulla txt.
Oppure se hai tutto agganciato a un Rs ti dovrebbe bastare:
(hai una txtnome)
Set txtnome.DataSource = Rs
txtnome.DataField=Rs("NOME").Name
A questo punto quando scrolli la griglia si dovrebbe aggiornare anche la
txt. Anche se personalmente non lo userei mai, ma gestirei manualmente
caricamento, inserimento, update.
-- 
DBMS Firebird
VB6 + Ado
Newsgroup: it.comp.lang.visual-basic
Titolo: ?????????????----API----??????????????

Ciao a tutti quanti!!
    Č da poco che programmo in Vb, e sentendo parlare in continuazione di
API
    mi sorge spontanea la domanda "COSA SONO GLI API?!?!?!?!?!?!?!!".
    Chi č cosě gentile da rispondermi chiaramente lo ringrazio vivamente.
    [ Che rima e? :-)) ]
ciao Gio Br1

    [ Che rima e? :-)) ]
A Leopardi... chi ti ha insegnato la metrica per scrivere i subjects?
Ciao


rotfl   :DD 
saranno i postumi della caduta da cavallo di Luigia Pallavicini :)
ciao, hal

Ciao!
:)
Non incorri certo in Subject non chiari... :) però... forse potresti evitare
tutti questi "fronzoli" :)
Comunque...
Pochi gioni fa c'era una domanda uguale... con una buona risposta... :)
Potresti andare a cercarla... anzi sarebbe consigliabile farlo sempre... :)
Se non la ritrovi... prova con 
http://groups.google.com
Ciao
            Allanon

     mi sorge spontanea la domanda "COSA SONO GLI API?!?!?!?!?!?!?!!".
e  che ne so', saranno i mariti delle API !
----------------------------------------------------------------------------
Esiste un luogo dove tecnologia e arte si incontrano
www.tecnologiaEarte.net
----------------------------------------------------------------------------
Gianluca Pisano
Ciao.

 ha scritto nel messaggio
news:8NPT6.5709$gj1....@news2.tin.it...

Per Java vedi JBuilder4 della Borland. E' un mezzo per creare varie
applicazioni, dalle Applet alle JSP, dai *.JAVa ai *.CASS.
Da non confondere con il compliatore e l'interprete.
Il compilatore serve per trasofrmare i file.java in file.class (in byte
code). L'inrprete per leggere appunto i file.class
Per il VB immagino che sia il Visual Studio! :-)

 writes:
Application  Program Interface,  ovvero interfaccia  per  il programma
applicativo: insieme di funzioni messe a disposizione da un S.O. o una
libreria.  Spesso  citate  in  italiano  al femminile  a  causa  della
presenza del noto insetto e del fatto che sono funzioni.
--
Gian Uberto| main(){printf(&unix["\021%six\012\0"],(unix)["have"]+"fun"-0x60);}
Lauri      |                        David Korn, 1987 ioccc best one liner 
(aka saint)|-------------------------------------------------------------------
em@ail: 
sa...@eng.it
 ( vedere X-nospam nello header - see X-nospam in header )

 >     Chi è così gentile da rispondermi chiaramente lo ringrazio


 comprend VC++, VB, VJ e altri linguaggi di programmazione.
Grazie, č una cosa in piů che adesso so. Ma il Visual Studio ha anche un
APE, mi sono confuso con l'API! .-)))
APE sta per Aplication Performance Explorer, mentre API?

 Grazie, è una cosa in più che adesso so. Ma il Visual Studio ha anche un


 Alla prossima.... :-)
Grazie!
Newsgroup: it.comp.lang.visual-basic
Titolo: Help - ricerca stile help di WIN in tabella

Salve!
Vorrei sapere come convertire il codice qui sotto in modo da poter
ricercare un record e non una componente di una listbox
Grazie anticipatamente
Private Sub Text1_Change()
search$ = UCase$(Text1.Text) 'converte la stringa da cercare in
maiuscolo
searchLen = Len(search$) 'calcola la lunghezza
If searchLen Then 'se esiste una stringa da cercare
    For i = 0 To List1.ListCount - 1 'definisci l'ambito in cui
cercare
        If UCase$(Left$(List1.List(i), searchLen)) = search$ Then 'Se,
dopo aver convertito
                                                                  'in
maiuscole, le prime
'lettere a sx dei termini
'della lista, ci accorgiamo
                                                                  'che
sono uguali alla stringa
                                                                  'che
cerchiamo, allora :
            List1.ListIndex = i 'posizioniamoci sul termine della
lista dell'indice
 
            Exit For 'e possiamo uscire
        End If
   Next 'senno' continua la ricerca
End If
End Sub
-------------
==========
con il DBLIST
==========
Private Sub Form_Load()
   Set db = Workspaces(0).OpenDatabase("\agrotech\film\test_film.mdb")
   Set rs_film = db.OpenRecordset("film")
   ' DataControl
   Set Data1.Recordset = rs_film
 
   DBList1.ListField = "Titolo"
End Sub
Private Sub Text1_Change()
 
   Dim search$
   Dim searchLen As Long
   Dim varSegnalibro As Variant
   Dim cerca As String
   '
   search$ = UCase$(Text1.Text) 'converte la stringa da cercare in
maiuscolo
   searchLen = Len(search$) 'calcola la lunghezza
   If searchLen Then 'se esiste una stringa da cercare
      cerca = " titolo = " & Chr(34) & Trim(search$)
      ' Riempie il set di record.
      rs_film.MoveFirst                   <----
      rs_film.FindFirst cerca
'      rs_film.FindFirst "Titolo=" & Chr(34) & search$
         'Data1.Recordset.FindFirst "Titolo=" & Chr(34) & search$
      If Not rs_film.NoMatch Then
         ' Trovato
         ' Memorizza il segnalibro del record corrente.
          varSegnalibro = rs_film.Bookmark
MsgBox "Trovato " & search$ & "."
         Data1.Refresh
         DBList1.Refresh
       Else
         ' non trovato
         MsgBox "Nessun record trovato con " & search$ & "."
      End If
      DBList1.Refresh
   End If
End Sub
--
To reply please remove from e-mail 'xyz'- Per rispondere togliere 'xyz' dall'indirizzo e-mail.

visto che il db e' in locale (seno', usa sql), non ti conviene indicizzare
sul titolo, autore o quant'altro e poi fare un seek (che fa esattamente
quello che cerchi di fargli fare tu senza stare a guardare a maiusc/minusc)
?
qui c'e' un combo che lista i vari tipi di indice, imettendo testo nella
casella di ricerca il cursore si sposta di conseguenza. forse la routine e'
da pulire x' e' vecchiotta, ma direi vada tranquilla.
Private Sub txtCerca_Change()
    On Error GoTo ErrMan
    with dbArk.Recordset
        bk = .Bookmark
        .Seek ">=", txtCerca
        If .NoMatch Then .Bookmark = bk
    end with
    txtCerca.SetFocus
    Exit Sub
ErrMan: MsgBox Error
End Sub
Newsgroup: it.comp.lang.visual-basic
Titolo: Settaggio proprietà

Salve a tutti,
dovrei settare delle proprietą di alcuni controlli. Il nome dei
controlli lo recupero da database per cui non mi č possibile fare
controllo.proprietą.
Come posso fare?
Grazie a tutti,
Simone
"I'm a travelling man, I'm a drinking man, I'm a gentle when I'm sober"

 Simone
ciaociao

 Come posso fare?
Con la funzione CallByName se hai VB6, viceversa cercati un bar e un amico
che sappia ascoltare ;-)
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

Grazie per le risposte!
Mo' ce provo!
A presto,

Newsgroup: it.comp.lang.visual-basic
Titolo: Qualità delle Line in VB

Salve a tutti,
ho questo problema: quando utilizzo il metodo Line o Circle in VB, per
disegnare linee o cerchi su un form, noto che la qualità delle stesse in
stampa è decisamente scadente. Infatti le curve non sono smussate, ma
seghettate come se fossero a bassa risoluzione. Premetto che la risoluzione
che uso è 1024x768 e comunque ho notato che non dipende da questo.
C'è una proprietà da impostare o un controllo alternativo migliore?
Grazie a tutti.
Fabio

...

Probabilmente il problema sta nel fatto che usi il metodo PrintForm per stampare le tue linee.
Prova a pernsarci un attimo: se hai un form 1024x768 e hai una stampante mettiamo a 300 dpi, se a
ogni punto dello schermo corrispondesse un punto della stampa, il tuo form verrebbe stampato in
3.4133x2.56 pollici cioè 8.67x6.5 cm. In realtà poi la tua stampa non è di soli 8.7x6.5 cm perchè
viene ingrandita (rispetto alla risoluzione).
La soluzione sta nelo stampare usando l'oggetto Printer così disegni direttamente alla risoluzione
della stampante.
Ciao
    Diego

che uso è 1024x768 e comunque ho notato che non dipende da questo.
Se ho capito bene, usi PrintForm ?
Se è così, tieni presente che la stampa viene creata inviando alla stampante
la bitmap del Form, quindi sei effettivamente limitato dalla risoluzione
dello schermo, o perlomeno dalla dimensione del Form. Dovresti usare i
metodi grafici direttamente sull'oggetto Printer.
Prova, in un form vuoto ad inserire un pulsante, nella routine _Click
del pulsante inserisci questo codice e guarda la differenza tra le
due pagine stampate.
Form1.AutoRedraw = True
Form1.Circle (1000, 1000), 1000
Form1.Circle (1000, 1000), 500
Form1.Line (0, 0)-(2000, 2000)
Form1.Line (0, 2000)-(2000, 0)
Form1.Print "Prova di stampa con PrintForm"
Form1.PrintForm
Printer.Circle (1000, 1000), 1000
Printer.Circle (1000, 1000), 500
Printer.Line (0, 0)-(2000, 2000)
Printer.Line (0, 2000)-(2000, 0)
Printer.Print "Prova di stampa diretta sulla stampante"
Printer.EndDoc
Bye, G.
--
---------------------------------------------
    Le risposte alle tue domande le trovi sul
    Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------
Real E-address: 
gaet...@hotmail.com

un bel maga OT, scusate.
Paperino, avrei biscogno di scriverti in privato, e' importante e
non...@lo.dico penso che funzioni poco :-))
(rispondimi in privato)
Saluti
Ciao
By -MES-   Maronese Ettore
http://ilmes.freeweb.org
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://www.murialdo.it/it_lang_vb
Newsgroup: it.comp.lang.visual-basic
Titolo: [REQ VB6 SP5] Form e Parametri

Salve a tutti,
ho un problema di questo tipo che non riesco a risolvere con l'help di VB.
Devo aprire una form da un'altra form e passare un parametro.
Ad Esempio Ho una form di ricerca che popola una list box. Appena l'utente
fa doppio click su una linea si apre una form di dettaglio. Per aprire il
dettaglio devo passare alla form del dettaglio il codice per fare la query
nel DB.
Ora utilizzo una variabile globale per insere il codice, ma questo non mi
permette di aprire + form di dettaglio contemporaneamente. Ho visto la
sintassi del comando form.Show che si puņ passare la form di apertura oltre
alla modalitą di apertura. Si puņ recuperare quel parametro magari
agganciandoci il mio codice ?
Grazie a tutti e scusate per il disturbo
--Marco

 alla modalità di apertura. Si può recuperare quel parametro magari


 > alla modalitą di apertura. Si puņ recuperare quel parametro magari


 tuaform.show
[Marcolino7] urbanamente ringrazia
prima precisazione: stiamo lavorando con VB6, bisogna prestare attenzione ad
alcuni meccanismi "nascosti" in VB
se tuaform è il nome della form che hai costruito al designtime, bisogna
sottolineare che essa è una variabile condivisa a livello di programma, per
cui qualsiasi load sulla medesima maschera non creerà una nuova istanza
della maschera, ma utilizzerà quella esistente. Quindi, per generare una
nuova istanza della form dovresti fare:
dim frm as formRicerca
set frm as new formRicerca
load frm
eccetera
Seconda precisazione: le form sono degli oggetti. E' utile sfruttare questo
fatto per permettere di scambiare informazioni tra di esse: basta che tu
aggiungi, al codice della frm ricerca una function pubblica (o una sub, o un
property let), per comunicare alla stessa un parametro. Il tuo codice a
questo punto potrebbe proseguire con (a seconda di quello che hai messo
nella formRicerca)
frm.Impostaparametro ParametroDiRicerca
frm.show
eccetera
Salutoni
Sergio

Newsgroup: it.comp.lang.visual-basic
Titolo: indirizzo IP del modem se ho anche una scheda di rete

Ripropongo una domanda che č stata posto gią un'ora fa.
Ho provato con la soluzione proposta da chi ha risposto, ma il mio problema
č sapere Winsock che indirizzo mi restituisce se io sono contemporaneamente
connesso ad una rete LAN e ad un modem... o per lo meno se il mio PC ha
configurati entrambi anche se in quel momento la rete č scollegata (ma cq ha
l'indirizzo assegnato). ex. per un portatile.
Grazie
Emanuele


http://www.mvps.org/vbnet/
cerca:   Determining All Local IP Addresses for All Installed Adapters
ciao

 > configurati entrambi anche se in quel momento la rete č scollegata (ma

Newsgroup: it.comp.lang.visual-basic
Titolo: Winsock e dati binari (ci riprovo)

Ciao a tutti.
Giacchè sono qui tutto solo, mi ritorna in mente un problema già postato e
che avevo accantonato, preso da cose + urgenti:
1) Applicazione sul server che interroga un driver odbc locale isam e crea
un recordset ado
2) Applicazione client che si connette all'applicazione server via winsock
Posso trasferire il recordset come recordset, senza passarlo come .getstring
?
Qualche dritta in merito?
grazie e ciao a tutti
ugo


hai provato a salvare il recordset su file e spedire quello ?
ciao, hal


Ci avevo pensato, ma non esiste una soluzione piů pulita?
Tra l'altro, ai miei fini, tutto sommato č meglio una soluzione tipo:
1) Creare una Stringa con i nomi dei campi e spedirla
2) Spedire una Recordset.GetString opportunamente formattata
3) Ricostruire il recordset sul client.
Ma preferivo qualciosa di + elegante.
Grazie per l'interessamento, comunque
ciao
ugo

Grazie per l'interessamento, comunque
di niente, anzi, facci sapere ;-)
ciao, hal


Ecco, proprio a questo pensavo.
Credo che lavorerò in questo senso.
Qualche dritta preliminare?
Ciao e grazie ancora
ugo


conoscendoti, sto per darti una dritta inutile perche' ci avrai gia' pensato ;-)
pero' puo' servire a tutti:
cercare su msdn:
ADO near stream near xml
si ottengono un 30/40 articoli piuttosto mirati.
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: Vorrei modificare questa funzione browser...

Da una routine mi esce una dir.
Con un command button vorrei poter navigare all'interno di quella dir e 
cliccando su un file, aprirlo con il suo applicativo nativo (wes.: blocco 
note se è un .txt etc...) come fossi in esplora risorse.
Attualmente usavo il seguente codice per navigare dentro una dir e farmi 
uscire in output la dir selezionata.
Pensavo di modificare questa funzione per fargli fare cio' che serve a me... 
è possibile o mi conviene ricominciare da capo?
La funzione di "esplorazione" che richiamavo con
Private Sub Command5_Click()
    Dim Temp As String
    'Visualizza la finestra "Sfoglia per cartelle".
    Temp = BrowseForFolder(Me.hwnd, "Selezionare una cartella:")
    If Temp <> "" Then Text3.Text = Temp
End Sub
è la seguente:
Option Explicit
Private Type BROWSEINFO
    hOwner As Long
    pidlRoot As Long
    pszDisplayName As String
    lpszTitle As String
    ulFlags As Long
    lpfn As Long
    lParam As Long
    iImage As Long
End Type
Private Const BIF_RETURNONLYFSDIRS As Long = &H1
Private Declare Function SHGetPathFromIDList Lib "Shell32.dll" Alias 
"SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Declare Function SHBrowseForFolder Lib "Shell32.dll" Alias 
"SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Public Function BrowseForFolder(ByVal hwnd As Long, ByVal szDialogTitle As 
String) As String
    'Visualizza la finestra di dialogo "Sfoglia per cartelle".
    Dim BI As BROWSEINFO
    Dim dwIList As Long, RetVal As Long
    Dim szPath As String
    With BI
        .hOwner = hwnd
        .lpszTitle = szDialogTitle
        .ulFlags = BIF_RETURNONLYFSDIRS
    End With
    szPath = Space$(1024)
    dwIList = SHBrowseForFolder(BI)
    RetVal = SHGetPathFromIDList(ByVal dwIList, ByVal szPath)
    If RetVal Then
        BrowseForFolder = Left$(szPath, InStr(szPath, Chr(0)) - 1)
    Else
        BrowseForFolder = ""
    End If
End Function

 [cuttone...]
Come non detto... ho scoperto l'oggetto Common Dialog Control e mi sa che mi 
conviene usare quello...

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiutate un'apprendista

Lo so, non deve essere difficile, ma sto imparando piano piano e non riesco
a fare questo: come si rileva il numero di pagine totali di un documento
word?
Un grazie a chi vorrą aiutarmi.
Benny

 wrote in message
9cs9u3$cfl$1...@pegasus.tiscalinet.it...


 e una che mi permetta di selezionare un range di pagine preciso.
Cosi`, per esempio, selezioni le pagine 4, 5 e 6:
Option Explicit
Sub Prova()
  Dim r1 As Word.Range
  Dim r2 As Word.Range
  With ActiveDocument
    Set r1 = .GoTo(wdGoToPage, wdGoToNext, "3")
    Set r2 = .GoTo(wdGoToPage, wdGoToNext, "6")
    .Range(r1.Start, r2.Start).Select
  End With
  Set r2 = Nothing
  Set r1 = Nothing
End Sub
********* FINE *********
*** FINE *****************************************************
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------
Newsgroup: it.comp.lang.visual-basic
Titolo: ciao sono tornato dal Trentino Alto Adige e.....

mi č venuto un gran mal di testa scendendo dalla montagna a valle....
ciao

 mi è venuto un gran mal di testa scendendo dalla montagna a valle....
La prossima volta, invece di rotolare giù dalla montagna, prova ad usare
un'automobile... vedrai, non avrai più quel mal di testa che hai adesso !
Heheheheh ^_________^
Zeross


non toccare questa nota che finisco per cambiar mestiere.... :-))
ciao


rotolare ??
ma sei fuori ? sono sceso con il deltaplano .......eheheheh

ciao
gente di pianura....  tsč     :-)
bye
Mauro Mariz
3nto
P.S.: Trentino o Alto Adige?

 ma sei fuori ? sono sceso con il deltaplano .......eheheheh
...ora so chi ha ammaccato il campanile !  :-)
Ciao
---
--
-
MIX (VB5SP3)
170 links a siti VB
http://web.tiscalinet.it/VBLINKS/
   <---  Nuovo server !
http://space.tin.it/computer/gaais/
-
--
---


che ne so.... sono stato a Trento: Tuenno e Cles
ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Word & VBA Cambiare il Nome Predefinito

Sto scrivendo una Macro in Word e mi trovo in difficolta sul cambiare
il nome del file Predefinito.
avendo dei documenti che come titolo hanno un codice documento con
questa formattazione XXX_01234
dovrei ripresentare tale formato una volta che provo a salvare il file.
ho provato in questo modo:
...
dlgProp.Title = "XXX" & Chr(95) & "01234"
dlgProp.Execute
...
ma non sono riuscito quando provo a salvare il file mi appare la
finestra di dialogo che mi propone di salvare il documento con il Nome
"XXX.doc" trascurando la parte che segue "_01234". Come posso risolvere
questo problema?!?
Grazie in anticipo x l'assistenza.



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

Dove posso scaricare le DLL di runtime del VB6 ed un po' di documentazione
delle stesse?
Grazie!

Grazie!
Prova a cercare tra i links del mio sito.
Ciao
---
--
-
MIX (VB5SP3)
170 links a siti VB
http://space.tin.it/computer/gaais/
http://www.tempolibero.com/user/mix/
-
--
---