mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Database con Firma digitale

Ciao a tutto il ng
C'e qualcuno che mi sappia dare un aiuto su come  fare un database dove
l'utente deve inserire i dati del proprio cliente ( e fin qui non ci sono
problemi) + deve inserire la firma di quest'ultimo (per il trattamento dati
o quello che sarà), ma non ho la minima idea su come questo possa essere
realizzato.
Grazie a chiunque saprà dirmi qualcosa.

...


 wrote


Cia Max, anch' io ho dubbi in proposito, ti ho mandato una mail, spero ti
sia arrivata!
Sono disperata.... SOS!
Monica

Newsgroup: it.comp.lang.visual-basic
Titolo: recuperare gli unetnti sul Server

Salve
Mi hanno mandato questo esempio , ma  per richiamre le varie function dovrei
passare dei parametri
mi sapete aiutare.
Grazie
Private Type USER_INFO
    Name As String
    Comment As String
    UserComment As String
    FullName As String
End Type
Private Type USER_INFO_API
    Name As Long
    Comment As Long
    UserComment As Long
    FullName As Long
End Type
Private Declare Function NetUserEnum Lib "netapi32" _
  (lpServer As Any, ByVal Level As Long, _
   ByVal Filter As Long, lpBuffer As Long, _
   ByVal PrefMaxLen As Long, EntriesRead As Long, _
   TotalEntries As Long, ResumeHandle As Long) As Long
Private Declare Function NetApiBufferFree Lib "netapi32" _
   (ByVal pBuffer As Long) As Long
Private Declare Sub CopyMem Lib "kernel32" Alias _
   "RtlMoveMemory" (pTo As Any, uFrom As Any, _
    ByVal lSize As Long)
Private Declare Function lstrlenW Lib "kernel32" _
 (ByVal lpString As Long) As Long
Private Const NERR_Success As Long = 0&
Private Const ERROR_MORE_DATA As Long = 234&
Private Const FILTER_TEMP_DUPLICATE_ACCOUNT As Long = &H1&
Private Const FILTER_NORMAL_ACCOUNT As Long = &H2&
Private Const FILTER_PROXY_ACCOUNT As Long = &H4&
Private Const FILTER_INTERDOMAIN_TRUST_ACCOUNT As Long = &H8&
Private Const FILTER_WORKSTATION_TRUST_ACCOUNT As Long = &H10&
Private Const FILTER_SERVER_TRUST_ACCOUNT As Long = &H20&
--
Fulvio

mi sapete aiutare.
[snip]
Apri  l' home page di Altavista e scrivi:
NetUserEnum "visual basic"
quindi premi invio.
Troverai un bell' esempio gia' fra i primi links.
hth, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: TrayIcon e riduzione a icona

Ciao a tutti!
Ho bisogno di far si che quando qualcuno clicca sull'icona di riduzione a
icona della mia form succeda che la finestra sparisce come se fosse chiusa
anche dalla barra di menù di windows (e anche dal desktop perchè impostando
ShowInTaskbar=False poi dopo la finestra si vede lo stesso) però senza fare
l'unload del form stesso.
Si tratta di una finestra di stile BorderStyle=Fixed Single e quindi ho
bisogno che rimangano le opzioni di riduzione a icona. Per eliminare la X di
chiusura ho già utilizzato un pezzo di codice trovato in giro in rete che la
disattiva per cui rimane solo la riduzione a icona che però deve far sparire
tutto senza fare l'Unload del form!
Come fare?
Alessio

 Come fare?
nel form_resize controlli il form1.windowstate, se č uguale ad uno
(minimized) allora lo rendi invisibile.
Ciao, SK

 ha scritto nel messaggio
news:wNoxb.147244$vO5.5...@twister1.libero.it...

nel resize fai nomeform.visible = false.....
Prova!

 ha scritto nel messaggio
news:wNoxb.147244$vO5.5...@twister1.libero.it...

scusa ma... se nell'evento resize metti
if me.windowstate=vbminimized then me.hide
non ti basta?

Newsgroup: it.comp.lang.visual-basic
Titolo: (ACCESS) Cambiare valore di un campo

 
          Salve a tutti
una informazione credo semplice.
In una query (o addirittura nella tabella di partenza) con il generatore di
funzioni è possibile cambiare il valore di un campo.
Nel mio caso in un campo ho sempre il testo A o B o C. Io vorrei sostituire
dove c'è A Ancona, B Bari e C Como.
Come faccio?
Grazie e ciao
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Grazie e ciao
Per 3 valori apri il DB e cambiali a mano, altrimenti devi accedere
con DAO al modello ad oggetti, ma per quanto dici è assurdo.
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Ma ci vuole la licenza per far pagare i miei programmi?

Programmatori VB di tutto il newsgroup, udite udite!! ;o))
Mi è giunta una voce orribile: se voglio far pagare un mio programma
(shareware, per esempio) ho bisogno della licenza di vendita????
Addirittura??
Qualcuno mi può dare conferma di questa notizia prima che faccia vendite
illegali???
Grazie mille!!

...


Addirittura??
Si', te lo immagini: mandami 25.000 e versa il 20% in ritenuta
d'acconto a mio favore... 
Ciao

Un programma autoprodotto e' un prodotto artigianale e non e' un'attivita'
commerciale. Non serve una licenza commerciale. Diverso e' se vendi
programmi di terzi.
sullo shareware pero' possono esserci problemi fiscali (ammesso che qualcuno
te lo paghi.)
ciao,
Alessandro Scardova
scar...@tin.it
http://space.tin.it/computer/ascardov/


uhm.... sulla qualificazione di chi produce software per venderlo come
Artigiano ci sarebbe un pò da discutere. Veniamo alla questione 'vendite'
Art. 5 comma 6,legge 8 agosto 1985 n°443
Per a vendita di beni di propria produzione non si applicano alle imprese
artigiane iscritte all'albo le disposizioni relative all'iscrizione al
registro degli esercenti il commercio...
ebbene un imprenditore artigianale è tale se è iscritto all'albo e sempre
fermi restando i limiti dimensionali della impresa artigianale (che dal
codice civile è qualificata come piccola impresa)..
CMQ possiamo chiedere a it.diritto....
ciao Davide

Dunque nel dubbio rimango senza soldi!!!! ;o))
Ragazzi vi ringrazio per l'aiuto.
Ubi1k


quanti soldi ?
se c'è da guadagnare 1 miliardo mi occupo io delle vendite... ti do la tua
parte e poi magari ci incontriamo fra qualche decennio in qualche sperduta
isola tropicale...
ciao Davide
Newsgroup: it.comp.lang.visual-basic
Titolo: nuova tabella

devo costruire una  tabella  partendo
da un recordset che è il risultato di un filtraggio
su dati di un altra tabella,
chi mi sa indicare un metodo veloce e pratico?
grazie


Se usi SQL potresti usare la clausola INTO. Ad esempio, l'istruzione SQL:
SELECT * INTO MyNewTable FROM MyTable
scrive il risultato della query nella nuova tabella MyNewTable.

Newsgroup: it.comp.lang.visual-basic
Titolo: Realizzare un client IRC in VB

Vorrei realizzare un semplice client IRC in VB, qualcuno sa dove posso
reperire informazioni.
Risposte anche in E-mail, prego.
Ciao
Luther
luth...@usa.net



... bella domanda, ma non ti posso venire in aiuto.
Pero' adesso ho visto dove mi hai trovato !
Bye
Pat
---
Patrizia Arrigoni
MENHIR Informatica
arrigon...@spm.it

reperire informazioni.
1) procurati l' interfaccia per visual basic della winsock.dll (o, meglio,
qualche controllo ad-hoc) in modo da poter usare i socket
2) leggiti una buona guida sui soket... (
www.sockets.com
)
3) una buona lettura della gia' citata RFC 1459...
e vai con Dio!! :))
se c'e' bisogno di qualche chiarimento, contattami pure via mail...
Ciao, 
LordFelix
Lord...@italymail.com

reperire informazioni.
Io ti consiglio di iniziare imparando ad usare i socket, leggere testi sul
Tcp/Ip e a leggere la rfc1459 che contiene lo standard di IRC, anche se Vb
non e' il linguaggio piu' adatto a mio avviso.
Forse il Powerbuilder o Optima++ che sono dei linguaggi di programmazione C
RAD che ti permettono una migliore gestione dei socket.
Fare un programma serio non e' una passeggiata..
Bye
     Marco
On fidonet at 2:355/381.4 or 2:335/357.6

 >reperire informazioni.
Leggiti l'RFC.  E poi passa a un linguaggio serio:P
Ciao,
-- 
David Welton   
dav...@efn.org
 
dav...@freenet.hut.fi
 
http://www.efn.org/~davidw
Se quest'email e` in Italiano, mi dispiace per gli errori:-) FORZA PANTANI!
			 --Debian GNU/Linux--





Comunque non riesco ancora acavarci un ragno dal buco :(((((
Ciao
Luther

Newsgroup: it.comp.lang.visual-basic
Titolo: Operazioni con le date

Come posso data una data ottenere quella del giorno prima e quella del
giornmo dopo ?
______
Flex

dataSucc=DateAdd("dd",1,Date)
dataPrec=DateAdd("dd",-1,Date)
Ciao Diego
*******************************
http://www.mso.it/public/vbprogrammer
Il portale italiano dedicato al Visual Basic
*******************************
Flex <flex...@Mfreemail.it> wrote in message
news:9dpfhs$bu1$1...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Novizio su Crystal report

Come si fa per andare a pagina nuova in caso solo l'intestazione trovi 
spazio nella vecchia pagina .
Spero di essermi spiegato. Grazie 

 Spero di essermi spiegato. Grazie
mah...non prorio bene bene bene...
Ma se quel che capisco è corretto...dovresti cliccare col pulsante dx del 
mouse sulla sezione
in questione, e nelle proprietà di formattazione, indicare new page next o 
giu di li...
Poi mi dirai se era questo...
Bye
Johnny
Newsgroup: it.comp.lang.visual-basic
Titolo: OT - Ricerca Font

Ciao a tutti , sto cercando per una applicazione un font che dovrei avere ma
invece ho perso! ( ma il mio capo ancora non lo sà ... ), dovrebbe chiamarsi
"Bordeaux Heavy"..qualcuno mi può aiutare?
Ciao e grazie

"Bordeaux Heavy"..qualcuno mi può aiutare?
http://www.google.com/search?q=%22Bordeaux+Heavy
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: tasti funzione

una banalità..per chi lo ha già fatto.
come posso intercettare i tasti funzione in vb6?
grazie
-- 
Paolo Bartolini

 ha scritto nel messaggio
news:bpv3ke$1soft8$1...@ID-213929.news.uni-berlin.de...

negli eventi keydown, keyup e keypress


Nell'evento KeyUp del controllo testo, ti viene restituito il codice in
KeyCode
Ciao, Vincenzo

intendevo come intercettare l'ervento non necessariamente associato al form
o ad un controllo ma anche da sistema
-- 
Paolo Bartolini

> negli eventi keydown, keyup e keypress
Spiacente dovervi contraddire, ma i tasti di funzione (F1,  F2, F3, ecc.)
non vengono intercettati dagli eventi KeyDown, KeyUp e KeyPress... L'ho
provato adesso proprio!
Antonio Mirarchi

[*Antonio Mirarchi* = 
st...@virgilio.it
 in
news:agLwb.21339$
9k3....@tornado.fastwebnet.it
] ha scritto:

No, non vengono intercettati solo dal KeyPress.

 ha scritto nel messaggio
news:bpvvec$1se83m$1...@ID-174464.news.uni-berlin.de...

infatti il keypress lo posso capire in quanto intercetta il codice ascii ed
i tasti funzione non fanno riferimento ad un carattere ma keydown e keyup
l'intercettano sicuramente in quanto fanno riferimento al keycode ovvero al
codice del tasto della tastiera, non al valore contenuto

> No, non vengono intercettati solo dal KeyPress.
In effetti č vero... Faccio ammenda e, come sempre, m'inchino alla smisurata
saggiezza del nostro Lupo.
Antonio Mirarchi

 smisurata saggiezza del nostro Lupo.
Il nostro Lupo è stato zitto una volta, non la seconda: ha la sensazione,
leggera-leggera, di essere un po' "torronato". Per il significato di questo
termine, cercare su Google. ;-)

 >"torronato".
Ehm... Chiedo scusa... Ma... "Torronato" cosa significherebbe?
Antonio Mirarchi
Newsgroup: it.comp.lang.visual-basic
Titolo: [PROMO] Nuovo portale informatico

Salve a tutti,
da qualche giorno è attivo un nuovo portale (
www.sysadmin.it
) interamente
dedicato agli amministratori di sistema.
Sul sito è possibile trovare articoli tecnici, vulnerabilità, ultimi
virus, script, guide, tips&tricks, ecc ecc
Inoltre è possibile chiedere supporto allo staff, su problematiche del
settore, via chat o forum.
E' possibile rimanere aggiornati sulle ultime novità, settimanalmente
grazie alla newsletter, e quotidianamente grazie alla ricezione, gratuita,
su palmare.
Il database del sito è in continuo aggiornamente.
Ovviamente sono ben accette critiche, suggerimenti e consigli.
Certi di avervi fatto cosa gradita, vi auguriamo buona navigazione.
Lo Staff di SysAdmin.it
www.sysadmin.it
in...@sysadmin.it
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Certi di avervi fatto cosa gradita, vi auguriamo buona navigazione.
<Verdone>Pronto? Ufficio ACI? Vorrei sapere [...]
<Uff. ACI>Ma va a c@g#er!

Newsgroup: it.comp.lang.visual-basic
Titolo: Come far installare la BDE a Visual Basic?

Siccome uso DAO 3.6 con tabelle dbf ho
bisogno della borland database engine.
Come posso includerla nel progetto o installarla
su un pc dove non c'e' visto che l'upgrade della
stessa borland non si installa se sul pc non e'
presente una versione precedente?
Grazie

 wrote

Domanda: sei proprio sicuro che sia necessario il BDE, per accedere ai DBF
da DAO?
A me non risulta...
Per il BDE: mi pare (ma non sono sicuro) che sul sito Borland ci sia il
pacchetto di installazione completo, oltre all'upgrade.
In ogni caso il BDE _dovrebbe_ essere installato _solo_ con installer
testati ed approvati da Borland. Sicuramente Microsoft non ha installer con
tali caratteristiche.
Potresti valutare InstallShield o altri installer _seri_.

Newsgroup: it.comp.lang.visual-basic
Titolo: A few questions

Lo All,
If you could just answer this small questionnaire it would help me
greatly in my college project. It should only take a minute or two.
Thanks in advance...
QUESTIONS
General Questions
Q.) How often do you use MP3 players? 
Q.) What MP3 player(s) do you currently use? E.g. WinAmp
Q.) What features of this MP3 player do you like?
Q.) Do you think it is important to be able to change the skins on an
MP3 player?
Q.) What sites/applications do you usually use to download
MP3&#8217;s?
Q.) How many MP3&#8217;s do you currently have on your system?
Technical Questions
Q.) Would you find an integrated mixer useful in an MP3 player?
Q.) Do you find the ability to change the ID3 tags in an MP3 player
important?
Q.) Do you think it is important to be able to convert various audio
formats with an MP3 player? e.g. Wav to MP3.
Q.) On your usual MP3 player e.g. WinAmp, how often do you use the
graphic equaliser settings?
Q.) What would you consider a good size for an MP3 PLAYER download?
e.g. 1 Megabyte.
Q.) Are there any other features which you would like to see
implemented into an MP3 Player.
Cheers, 
CoiN
Newsgroup: it.comp.lang.visual-basic
Titolo: Trovare IP di un utente

Ho necessità di trovare un utente logato in un dominio NT e conoscere il suo
indirizzo IP.
Via dos non ci sono problemi (ping + nbtstat) , ma come lo porto in vb e
soprattutto in maniera non visibile all'utente?
Utilizzo Visual Basic 6.
Grazie a tutti e Ciao.

"Nonlosoproprio" <nonloso...@ddd.ddd> ha scritto nel messaggio
news:vqlxc.45131$Wc.14...@twister2.libero.it...

Non postare sempre lo stesso msg!
Ciao, Vincenzo

 Ciao, Vincenzo
Lo so!
Avevo deetto ad OE di cancellare il vecchio messaggio.
Scusami, la prossima volta non posto fino a quando non me lo cancella!


Hai letto la mia risposta all'altro msg oppure non la vedi?
Ciao, Vincenzo

 Ciao, Vincenzo
Sono riuscito a leggerla.
Sto cercando ma non l'ho ancora trovata.
Ti ringrazio.


http://vbnet.mvps.org/
Niente, sarò cecato ma non l'ho trovato.
Ho letto invece che pare sia possibile inviare un net send "nascosto" e poi
andare a leggere la cache tramite nbtstat, in effetti quindi proprio quello
si fa via dos.
Qualcuno sa come fare?
Ciao e grazie, Ivano

> Qualcuno sa come fare?
prova a cercare "ping" sul sito che ti è stato detto e controlla cosa hai
fra i risultati.
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it

Newsgroup: it.comp.lang.visual-basic
Titolo: ? Chi mi spiega GetRows??

Scusate la banalità della domanda.
Ma mi postate un piccolo esempio di come GetRows può caricare una matrice
bidimensionale con i dati ricavati dai record di un database???
Grazie Infinite

GetRows() č un metodo molto veloce ed ottimizzato per estrarre i dati da un
recordset ed inserirli in un'array di Variant.
( č molto piů veloce di quanto potresti scrivere tu con un ciclo while o
For ).
Dopo aver aperto un recordset con:
oRs.Open "Select * From MiaTabella", oConnessione
aMatriceDiVariant = oRs.GetRows()
Cosě scrivendo ottieni una matrice che contiene tutti i campi di tutti i
record.
GetRows accetta tre argomenti:
GetRows( NumeroRighe, Start, Campi)
Numero righe rappresenta il numero di righe che desideri estrarre dal
recordset; ad ogni chiamata di GetRows sono estratte le successive ennesime
righe ( pari a quanto hai specificato o meno se non ci sono nel recordset )
Puň essere utile per bufferizzare l'estrazione dei dati.
Start rappresenta il record da cui partire per la prima estrazione.
Campi č una variant che indica quali campi dovranno essere presi in
considerazione per l'estrazione, saranno quindi estratti solo i dati di quei
campi che hai specificato.
Per l'utilizzo devi scrivere cosě:
Campo_1_Del_Record_1 = aMatriceDiVariant( 0 )( 0 )
Campo_5_Del_Record_5 = aMatriceDiVariant( 4 )( 4 )
Ciao e buon lavoro
P.S. Ho naturalmente parlato del Metodo GetRows di ADO poichč quello di Dao
differisce per gli argomenti passati.
--
      Pino Saffioti
-----------------------------------
pino.s...@asl1.to.it
Newsgroup: it.comp.lang.visual-basic
Titolo: VB & EXCEL

Ciao....qualcuno sa come poter impostare da VB su di un foglio excel le
seguenti cose:??
- voglio centrare il testo nella cella!
- voglio che la cella (o colonna) si adatti auto automaticamente a seconda
del testo contenuto!
Grazie e Auguri!!

 wrote in message
news:92hlk6$3go$1...@sun250.unimi.it...

A forza di leggere le risposte di Maurizio Borrelli, qualcosa ho imparato
anch' io.
Il consiglio piu' grande che ha dato pero' e' stato questo:
1) avvia il registratore di macro;
2) esegui manualmente le operazioni che ti interessano;
3) termina il registratore di macro;
4) guarda il codice generato automaticamente.
Ciao
Aldo

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

Ciao a tutti,
sto scrivendo in VB6 un 'ActiveX per personalizzare un programma
creato con tecnologia COM (tipo: Excel). Il mio problema è che non
riesco a debuggarlo. Nelle proprietà del progetto imposto "Wait for
component to be created" e lo lancio.
Quando il programma cerca di istanziarlo esca il seguente messaggio:
Method '~' of object '~'  failed
Qualcuno sa dirmi cosa posso fare?
Ciao
Grazie

 Method '~' of object '~'  failed
...rischio di dire vaccate, perciò abbi pazienza...
1: assicurati che non sia in fase di pausa visual basic
2: Assicurati di fare riferimento PROPRIO a quel componente e non ad uno che
hai già compilato e quindi ti si é registrata sul disco.
Nel caso non funzionasse prova prima a referenziare il componente da
un'altro progetto visual basic...
                Ciao
                                    Allanon
--
- SPAMKILLER
 L'indirizzo delle risposte é 
itlangv...@michele.sytes.net
 LASCIATE il NOSPAM fa parte dell'indirizzo :-)
  Per superare le impostazioni di protezione antispam scrivete
  nel testo del messaggio la scritta "SPAMKILLER"
Scusate il disturbo, ma non posso più di pubblicità

Newsgroup: it.comp.lang.visual-basic
Titolo: aprire un database lavorarci e salvare i dati

come posso creare una maschera con cui apro alternativamente due database e
salvare i dati? quali comandi dovrò utilizzare?

 comandi dovrò utilizzare?
ADO e....
una connessione per ogni db usato...
e....
un recordset e un po di SQL...
Condisci il tutto con un pizzico di voglia di imparare...la lettura
dell'help....una tazza di caffè...voilà ecco sfornato il programma!
bye man!
:-)
-- 
Il Wodkino Nazionale è a : 
www.martek.it
Pagina Vb/Bestiario/Lamer Experience :
http://www.martek.it/go.asp?portamia=2
 New Entry nel
bestiario! :-)
---
Messaggio scannerizzato e certificato "Virus free" da AVG free edition.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.775 / Virus Database: 522 - Release Date: 08/10/2004
Newsgroup: it.comp.lang.visual-basic
Titolo: [?][OT] Il font Microsoft

Salve a tutti,
Scusate la domanda un po' OT, ma forse potete aiutarmi :
Qualcuno sa il nome del font che la Microsoft usa per i nomi dei
prodotti (assomiglia all'Arial Bold ma non e' quello)?
Volevo usarlo per lo splash screen di un mio programma ma non so come
cercarlo.
Grazie anticipate (e ancora scuse per l'OT).
---------------------------------------------------------------------
- Maurizio "Diaspar" Sani - mailto:
vana...@hotmail.com
        ---
-                                                             ---
- "Questa porta si apre con la chiave dell'immaginazione"   ---
-				The Twilight Zone	  ---
-----------------------------------------------------------

non sono sicuro...
Tahoma o Verdana...
--[GbC]--

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Estrapolare info da un file

Salve a tutti,
    volevo sapere se si potevano estrapolare(che brutto termine) alcune
informazione da un file passato (es. prova.zip ) x esempio la data di
creazione, la versione e altre cose...
e' possibile?
Grazie.

"Francy"
VersioneFile.bas
http://www.it-lang-vb.net/
oppure
Declare Function GetFileVersionInfo Lib "version.dll"  Alias "GetFileVersionInfoA" (ByVal lptstrFilename As String, ByVal
dwHandle As Long, ByVal dwLen As Long, lpData As Any) As Long
API-GUIDE
http://www.allapi.net/
The API-Guide download page is located at
http://www.allapi.net/php/redirect/redirect.php?10
--
Fosco

 ha scritto nel messaggio
news:1RWh9.8718$Av4.1...@twister2.libero.it...


 di files .exe come faccio???
Intanto prima fai un salto qui':
http://groups.yahoo.com/group/x-men-italy/files/LO/quoting.txt
Poi non e' vero anch altri file non solo exe...
l'esempio di API-GUIDE ti dice  la versione del Kernel32.dll
Che puoi facilmente modificare nel form qui :
Filename = "kernel32.dll"
Directory = "c:\windows\system\"
Oppure ( *.vbs)
Set FSO = CreateObject("Scripting.FileSystemObject")
MsgBox FSO.GetFileVersion("C:\WINDOWS\TWAIN_32.DLL")
--
Fosco
Newsgroup: it.comp.lang.visual-basic
Titolo: icone accanto alle voci di menù

tutte le piu carine applicazioni windows hanno le voci di menu "arricchite"
dalle icone. anche io vorrei farlo, ma non vorrei perderci troppo tempo
(tutte le cose puramente grafiche non le digerisco...). qualcuno sa se c'è
un modo SEMPLICE per inserirle?
grazie mille
mario

 mario
C'č un esempio sul sito comune
http://www.murialdo.it/it_lang_vb/
Ciao
Sir Jo

un modo SEMPLICE per inserirle?
Semplice no.
Se hai voglia di sbatterti un po', ti mando il codice per farlo, pero'
non e' tanto semplice; inoltre, ti servono icone 13x13 e non 16x16
--come normalmente si usano--.
Saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 242, 152
  VBR - Vero Birro Romagnolo®, diffidate dalle imitazioni!
 Opel/ECC Calibrezio EVO-IV --- Kawasaki "Gas Gas" ZZ-R 1100
 ICQ# 36893168 - IRCNet: bugbarbeq, @ on #linux-it & #NetBSD

> C'č un esempio sul sito comune
uh che bello, mņ vado a vedere

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB Help] Chi ha mai costruito un Help ?

Ne ho appena realizzato uno in HTML Help (formato CHM).
Ora ho la mia bella applicazione in Visual Basic, e il mio bellissimo
help... come faccio a settare nell'applicazione e nei vari Form, che
all'evento del click di alcuni tasti si dovrà aprire la pagina numero x
dell'help?
Qualcuno di voi è pratico di questa cosa?
Massimo78

Valorizza la proprieta HelpContextID della form con il nuimero di pagina
corrispondente.
Inserisci e utilizza quello per richiamare l'help
Io ho fatto così:
per ogni form
    Private Sub Help_Click()
        HH_Help_Click Me.HelpContextID, Me.hWnd
    End Sub
Questo invece per richiamare l'help (brutalmente copiato da msdn)
Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" _
        (ByVal hwndcaller As Long, ByVal pszFile As String, _
        ByVal uCommand As Long, ByVal dwdata As Long) As Long
Public Const HH_DISPLAY_TOPIC = &H0
Public Const HH_SET_WIN_TYPE = &H4
Public Const HH_GET_WIN_TYPE = &H5
Public Const HH_GET_WIN_HANDLE = &H6
Public Const HH_DISPLAY_TEXT_POPUP = &HE  ' Display string resource ID or
                                          ' text in a pop-up window.
Public Const HH_HELP_CONTEXT = &HF        ' Display mapped numeric value in
                                          ' dwData.
Public Const HH_TP_HELP_CONTEXTMENU = &H10 ' Text pop-up help, similar to
                                          ' WinHelp's HELP_CONTEXTMENU.
Public Const HH_TP_HELP_WM_HELP = &H11    ' text pop-up help, similar to
                                          ' WinHelp's HELP_WM_HELP.
percorso file help
        PathNameHelp = App.Path & "\" & help.chm
Vidualizzazione help
    Public Sub HH_Help_Click(ByVal ContextID As Long, ByVal Par_hWnd As
Long)
    Dim hwndHelp As Long
        hwndHelp = HtmlHelp(Par_hWnd, PathNameHelp, HH_HELP_CONTEXT,
ContextID)
    End Sub
Ciao
Enrico

Newsgroup: it.comp.lang.visual-basic
Titolo: Bloccare la stampa

Ciao a tutti...
Ho un piccolo problema, vorrei che l'utente non stampi! cioč non cč qualche
API che mi tenga occupata la stampa in modo che l'utente non possa stampare
(ora non sto a spiegare xchč non voglio che l'utente non stampi...scusate
:(( )
Grazie a tutti !!!
Grazie al moderatore del NG
Grazie soprattuto a chi są aiutarmi!!!
Ciao!!!
by Ale(xand[17])

Grazie soprattuto a chi sà aiutarmi!!!
Io ho provato ciao! :-)
Remove CUTME from E-Mail address to reply!
Visit Hardware Tips: 
http://www.hardwaretips.com

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] curiosita SQL (Access)

Ma... Note che parola riservata e?
E' una parola chiave? Dove si usa?
Perche se definisco una tabella Note o un campo Note devo fare la select con
[note] altrimenti mi va in errore?
Nessun problema nel farlo, e solo curiosita.
Ciao

 ha scritto nel messaggio
news:psFj8.61638$Ns4.2...@news2.tin.it...

Curiosità legittima, che hai fatto sorgere anche in me, visto che io ho una
tabella in Access2000 con la colonna NOTE, e che faccio select, insert e
update senza parentesi quadra...
Aspetto che qualcuno risponda.
Alberto
PS: La prossima volta metti [OT] davanti al subject, visto che esiste un NG
apposito per Access, e questo è VB...

 [note] altrimenti mi va in errore?
[SNIP]
Benvenuto anche tu nel club ;-)
E' un sinonimo possibile per i campi MEMO.
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

Newsgroup: it.comp.lang.visual-basic
Titolo: Quanti Twips ci sono in un pixel ?

Salve a tutti ...
La mia domanda precisa è questa:
- il numero di twips in un pixel è costante ? ...  io ho sempre
riscontrato che il loro numero è 15
Se non è costante mi sapete dire a seconda di cosa varia?
Il tutto mi serve per un resize fatto bene ...
un grazie 1000 a chiunque sia in grado di rispondere ...
Mauro

direi 15 con small fonts, 12 con large fonts.
per resize puoi usare
Screen.TwipsPerPixelX
Screen.TwipsPerPixelY
ciao, andrea
--
Andrea Palazzi -- kril not zelig:
p...@zelig.cedoc.unimo.it
Mauro ha scritto


 Il tutto mi serve per un resize fatto bene ...
Varia a seconda della definizione dello schermo.
E può variare in orizzontale ed in verticale.
Fortunatamente (!) ci sono le proprietà:
TwipsforPixelX
TwipsforPixelY
che ti restituiscono il valore corretto.
Saluti
Silvio Sorrentino

Newsgroup: it.comp.lang.visual-basic
Titolo: Cerco esempi in VB4 per gestione modem

Avrei bisogno di qualche esempio in VB4 per la gestione del modem
(Trasferimento File)
                   Grazie
                Ciao luca

                Ciao luca
Anch'io !
Grazie !
Mad Hatters

protocollo di trasferimento.
sai mica dove posso trovare un semplice protocollo enq/ack in VB5
usando il controllo mscomm?
Tzaluti da Simone Janin: janin....@SPAMMANObigfoot.com
Remove SPAMMANO from address.
http://aspide.it/freeweb/homjamin
http://www.aostanet.com/privati/janinsim/home.html
Newsgroup: it.comp.lang.visual-basic
Titolo: VB per excel: problema versioni differenti

Ho fatto un programma in Excel 95 usando il linguaggio VB in lingua
italiana. Quando però mi sono trovato a provare il software su un computer
dotato di Office 2000 Pro o XP, mi ha dato un sacco di errori dovuti alla
conversione in lingua inglese dei moduli. Esiste un modo per usare la lingua
italiana nelle ultime versioni di office? Magari un aggiornamento?
Grazie

Grazie
--------------------------------
Inviato via 
http://usenet.iol.it
 

 ha scritto nel messaggio
news:62Z98Z122Z99Y1...@usenet.iol.it...


>


Grazie a tutti, sono riuscito a risolvere il porblema senza riscrivere
tutto. Ho modificato solo le linee sbagliate. La maggior parte dei problemi
erano dati dal .Val invece che .Value
Comunque tutto risolto
Ciao


Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto Outlook Express

Ciao Raga
So che questa domanda non riguarda questa news, ma non so dove postarla.
Ho bisogno di una copia dei mie messaggi in arrivo e inviata online cioe'
che mi rimango anche dopo aver eseguito l'elimina, per un utilizzo futuro
Grazie

 typed:

? Scusa ma non ho capito! :?

 ha scritto nel messaggio
news:3fb8f867$1...@news.bluewin.ch...

Beh, fatti un backup dei file .dbx (es. in W2000 son in C:\Documents and
Settings\Client.DOMINIO\Impostazioni locali\Dati
applicazioni\Identities\.......)
Ciao.
Paolo

 ha scritto nel messaggio
news:bpau5o$nr4$1...@nntp.atlavia.it...


 funzionamento normale ,la seconda (copia) un crescente di messaggi
non esiste ! (+ precisamente non ne conosco)
cmq esistono molti programmi di backup per OE, cercali con google ! 
-- 
<Gigio2K>
--- 
www.g2kweb.it
 ---
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] non usate quel linguaggio

vecchiotta ma sempre carina ! 
http://www.forum.redfoxy.it/viewtopic.php?p=1652#1652
-- 
<Gigio2K>
--- 
http://www.g2kweb.it/gigio2k
 ---
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

 
http://www.forum.redfoxy.it/viewtopic.php?p=1652#1652
ROTFL
A quest'ora ci voleva proprio, grazie! =)))
Lokar.night.shift
-- 
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
Statuto: 
http://www.it-lang-vb.net/docs/Statuto.txt
UGIdotNET - 
http://www.ugidotnet.org

> 
http://www.forum.redfoxy.it/viewtopic.php?p=1652#1652
Maledette risoluzioni 800x600, 1024x768 e 640x480!!!
:) :) :)
-- 
Rivolterò il mondo per trovarlo, e anche se andasse in Indocina uno dei 
nostri starà nascosto in una ciotola di riso pronto a sparargli nel culo.
(Pulp Fiction)

 Maledette risoluzioni 800x600, 1024x768 e 640x480!!!
Per fortuna hai risparmiato me che lavoro in 320x240 ;)
Ciao

> Per fortuna hai risparmiato me che lavoro in 320x240 ;)
Non oso immaginare che razza di programmi vengono fuori per te allora :D


 Non oso immaginare che razza di programmi vengono fuori per te allora :D
quelli per pocketPC? :-)
Inviato da 
www.mynewsgate.net

 quelli per pocketPC? :-)
In landscape ? no perche' per ora sono a 240x320 !


 In landscape ? no perche' per ora sono a 240x320 !
e se mettessi giu' quel telefonino e cominciassi a lavorare ? :P

 e se mettessi giu' quel telefonino e cominciassi a lavorare ? :P
no stasera riposo, ho gli occhi come polpette per quel maledetto "gestionale
impossibile" !
PS: meeting ?


 PS: meeting ?
rigrazie, ma p.f. leggi il post a lupo...
Newsgroup: it.comp.lang.visual-basic
Titolo: Costruire un Progetto

Salve a tutti,
Mi sono scontrato con un problema che io giudico molto interessante e
forse può appassionare anche voi.
Voglio costruire un progetto con una form e un controllo qualunque,
diciamo un CommandButton, e voglio farlo da codice.
Che ne dite ...
Ciao a tutti
                                                        Diego

diciamo un CommandButton, e voglio farlo da codice.
Ho fatto una cosa simile: dovevo scrivere un programma che permette di
configurare i vari parametri registrati su un file xml. Lo stesso file
puo differire da un cliente all'altro. 
Il programma, legge il file xml e fa un parsing dei tag XML e
costruisce un form con gli oggetti creati al volo quando serve
un esempio di riga xml
        <CONFIG NOME="Indici" VALORE="true" TIPO="boolean" />
creava sul form una checkbox, infatti l'attributo tipo stabiliva il
tipo di oggetto richiesto.
un altro esempio, un po piu' complesso:
        <CONFIG NOME="pippo" VALORE="Pluto" TIPO="select"
TIPOPARAM="Pippo,Pluto,Minni,Topolino" />
creava una combo box contenente i valori pippo,pluto,minni,topolino ed
il valore di default e' puntato su pluto.
All'inizio non era stato facile, ma lavorando di select case e oggetti
msxml sono riuscito a rendere il tutto funzionante ed e' bellissimo da
vedere quando cambiavi il file xml con un altro il form si adeguava in
modo dinamico...
La chiave di tutto il lavoro e' dalla proprieta' <object>.Controls.Add
(tipocontrollo, nomecontrollo)

La tua risposta, che ho gradito molto, mi ha costretto a "sfogliare" un
bel p'ò di riviste perchè non ne sapevo niente del formato XML.
Detto questo non penso che sia la soluzione migliore per me (lo dico senza
conoscere bene cosa si può fare con i file XML) perchè il risultato che
voglio ottenere è praticamente quello di un wizard ( come quello che in
VB5 genera un'applicazione)
cioè una form disponibile anche in struttura.
Non so se mi sono spiegato, comunque grazie ancora.
                                                            Diego

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Crystal reports 8: non riesco a stampare i report!

Uso VB6 SP5, Crystal Reports 8 (utilizzo per la stampa l'ActiveX ). Ho
creato l'installazione con l'utility di VB e l'ho installata sulle macchine,
l'applicazione funziona correttamente ma non riesce a stampare i report. Non
si verificano errori di run time, l'event viewer del server su cui è
installata la stampante registra la stampa indicando 0 pagine e 0 bytes.
Il mio progetto era stato creato con VB4 ed è stato convertito alla versione
6.
Se utilizzo successivamente a questa installazione una vecchia creata con
VB4 la stampa va a buon fine.
Inoltre non ci sono problemi di stampa se sulla macchina c'è installato il
Crystal Reports 8.
L'idea che mi sono fatto è che il problema sia nelle dipendenze dei file di
Crystal Reports nella creazione del pacchetto d'installazione.
Ringrazio fin d'ora chi ha avuto la pazienza di leggermi.
Gaber

 ha scritto nel messaggio
news:QcWH6.204609$lj4.5...@news6.giganews.com...


 ha scritto nel messaggio
news:KKWH6.675$Kh....@news.edisontel.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] On Error

Salve a tutti,
qualcuno mi sa spiegare come mai se eseguo nell'IDE il seguente codice
mi da' errore "53" impossibile trovare il file specificato?
Public Function EsisteFile(strFile As String) As Boolean
  Dim lngEsito As Long
  On Error Resume Next
  lngEsito = FileLen(strFile)
  If lngEsito Then
    EsisteFile = True
  Else
    EsisteFile = False
  End If
End Function
Se lo eseguo da compilato, tutto funziona regolarmente, cioč se non
trova il file scatta il Resume Next  e restituisce FALSE.
Grazie a chi saprŕ rispondere.
Aran Banjo

Ciao,
con la sola parte di codice che hai postato non vi e' nessun motivo logico.
Non e' che l'errore te lo ritorna prima  o dopo la chiamata a funzione??
Dal mio punto di vista, in ogni caso la funzione e' concettualmente errata.
Infatti se prima della chiamata tu inserisci qualcosa del tipo:
    Dim N As Integer
    N = FreeFile
    Open "c:\temp\222.222" For Output As N
    Close N
    Text1 = EsisteFile("c:\temp\222.222")
in Text1 ti tornera' False in quanto pur esistendo il file avra' lunghezza =
0
io propenderei piu' per:
Public Function EsisteFile(strFile As String) As Boolean
    if Dir(strFile) <> "" Then EsisteFile = True
End Function
piu' corta e concettualmente corretta ;o)
beppe
-----------------------------------------------------------
Visita il sito del WWF AltoFerrarese
http://www.comune.cento.fe.it/wwfaf
-----------------------------------------------------------

   lngEsito = FileLen(strFile)
Una piccola idea, oltre a quanto ti ha gia' risposto Giuseppe Minarelli: se
l'On Error non ti "becca" l'errore, prova a guardare che l'error handling
non sia stato disabilitato: Tools/Options/General/Error handling.
Ciao,
Luciano

Ti ringrazio,
il codice l'avevo preso da un libro, ed era una cosa abbastanza
semplificata....
Aran


Credo che il problema sia da cercare nella directory nella quale sei
posizionato
Prova a mettere MsgBox "Direcrory corrente=" + CurDir$
e vedi se sono differenti nei due modi di test
Newsgroup: it.comp.lang.visual-basic
Titolo: File scaricabile con dichiarazioni API di Windows (vecchio WinAPI32)

Salve, è tantissimo che non scrivo più su questo NG, e vorrei 
porre un quesito forse banale, ma che la molta ruggine nel mondo 
VB mi rende frustrante (ho cercato in rete in modo improduttivo, 
per ora).
Conoscete qualche link da cui scaricare la documentazione (cioè, 
per la verità vorrei il codice sorgente, con le dichiarazioni 
scritte in sintassi VB6, non un help, quello ce l'ho con MSDN) 
delle API di windows (.bas ? .TXT ? è uguale).
Per meglio precisare, la versione di VB per la quale attingere 
alle dichiarazioni sarebbe la antica 6.0 (ante .net)  e la 
versione di windows a cui le API si riferiscono, più è 
aggiornata e meglio è. Io ho XP, ma un file aggiornato magari 
anche solo alle API di win98-2nd edition mi andrebbe benissimo.
Purtroppo sul sito microsoft (supporto) ho trovato solo un 
WinAPI32 che è datato win95 o forse ancora peggio, e scritta per 
VB 3.0. Onestamente è un po' troppo obsoleta.
Grazie di ogni suggerimento.
Ah ... se il NG ha delle FAQ, eventualmente rinfrescatemi la memoria
ciao
Soviet_Mario

 delle API di windows (.bas ? .TXT ? è uguale).
E' un help ma piu aggiornato
Cerca qui che arriverai al download (ed altro)
http://www.google.it/search?hl=it&q=allapi&meta=
--
Fosco

 Ah ... se il NG ha delle FAQ, eventualmente rinfrescatemi la memoria
Purtroppo msdn online pare abbia rimosso quasi tutto di vb6 e tutto quanto 
ho trovato scartabellando è questo (che poi continuano a spostare <g>)
VB6
http://msdn2.microsoft.com/en-us/library/aa139596.aspx
API32 e COM
http://msdn2.microsoft.com/en-us/library/aa139672.aspx
Per quello che cerchi l'unico valido e decisamente migliore di quanto 
distribuito con VB è questo:
http://allapi.mentalis.org/agnet/appdown.shtml
I primi 3 links ti offrono tutto, già il terzo che è online è comodo.
Ciao 

Fabio ha scritto:

grazie, gentilissimo. Proverò a spulciare bene questo sito ALL 
API (su M$ nada de nada) !
Ciao
Soviet_Mario

Newsgroup: it.comp.lang.visual-basic
Titolo: 3 quesiti per voi (AIUTATE UN INESPERTO!)

1) come faccio (se č possibile) a variare la grandezza della sola
intestazione delle schede (non tutta la scheda, quello lo so fare), del
controllo Microsoft tabbed dialog control 6.0 (il controllo a schede per
intenderci, perň non il tabstrip), in maniera tale da farvi entrare una
descrizione piů ampia della scheda.
2)come faccio a controllare in maniera semplice l'imput di dati  in un
controllo (txt, di imput, o masked o qualunque altro controllo), in maniera
tale che l'utente possa inserire solo numeri interi o con virgola e nessun
altro carattere (non sono riuscito ad usare in maniera appropriata il
controllo Microsoft masked edit control 6.0 che mi pare faccia qualcosa di
simile, eventualmente se tale controllo č appropriato fatemi un esempio),
perora utilizzo una normale casella txt o label e poi faccio un controllo
con la funzione Isnumeric sui dati ottenuti, ma mi pare un tantino
artificioso, credo ci sia una maniera piů semplice.
3) assegno ad una casella txtnome.text il la somma dei valori di altre
caselle txt e/o label (in formato ccur o val : txtnome.text=ccur (ccur
(txtcasella1.text) + ccur(txtcasella2.text)), perň se una di queste caselle
somma č vuota cioč contiene il carattere nullo : ""  la predetta somma mi da
errore, come posso fare ad evitare ciň???
Grazie a chiunque mi possa aiutare. Sbatto la testa addosso a questi
problemi e credo sia l'unico modo per imparare (con un libro ed il vostro
aiuto).

> Salvatore Scarantino:




Caro Salvatore, ai primi due quesiti ho gia` risposto. Se non hai potuto
vedere per vari motivi tali risposte pazienza, ma se invece le hai lette e
non ti andavano bene sarebbe stato oltremodo cortese da parte tua rispondere
spiegando il come e il perche'. Tante volte la soluzione ottimale nasce
proprio dal dialogo e dal confronto.
Inoltre e` dispersivo e non e` comodo per nessuno vedere aprire sempre nuovi
thread per lo stesso soggetto e se hai tre quesiti con argomento abbastanza
diverso l'uno dall'altro meglio aprire thread diversi.
Nei post precedenti avevi scritto degli "oggetto" umani dai quali si capiva
di cosa avevi intenzione di parlare. Ora invece... Leggi, quindi, il
Manifesto di questo ng che trovi accedendo al Sito comune di questo ng:
 
http://www.murialdo.it/it_lang_vb
Oltre a venire a conoscenza delle poche e semplici regole pratiche di
convivenza che ti permetteranno di approfittare al meglio di questo ng
troverai anche tante utili informazioni e materiali veramente prezioni.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 > Chiedo umilmente scusa ma non mi sono mai apparsi nel mio schermo ne i
quesiti che ho posto ne ovviamente le loro risposte (tuttora non mi
appaiono, ed ho cercato attentamente, ma non capisco come mai), pertanto
chiedendo comunque ancora venia per quanto sopra, chiedo se cortesemente
puoi rispondere con un copia incolla nuovamente in maniera che io le possa
vedere, grazie della pazienza.
Ciao Salvatore

 è possibile cambiare la dimensione dell'intestazione delle schede
microsoft tabbed dialog control 6 , e se si come???
TabHeight
TabMaxWidth

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] scusate l'ignoranza!! "DataGrid"???

Salve, come ripeto, scusate la mia ignoranza su VB (e non solo) ma non sono
riuscito a capire cos'č un DataGrid (neanche su MSDN  :-(((  ). Ne sento
parlare, sono andato a vedere ma.... niente!!!
Qualcuno puň essere cosě gentile da spiegarmi in parole "molto" povere a
cosa puň servire?
Grazie.
Ciao.
Paolo.

 ha scritto nel messaggio
news:9c3a57$bt52j$1...@ID-77234.news.dfncis.de...


Aggiungi il DatGridControl e la referenza a Microsoft ActiveX Data Object
(ADO)
Private Sub Form_Load()
Dim filename$, Password$, NomeTabella$
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Record
    filename = "c:\pinco.mdb" ' percorso+nome del file
    Password = "pallino" 'Eventale password(se non lascialo vuoto)
    NomeTabella = "Tizio" 'Nome della tabella da visualizzare
    conn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Jet
OLEDB:Database Password = " & Password & " ; Data Source = " & filename
    conn.CursorLocation = adUseClient
    conn.Open
    With rs
        If .State = adStateOpen Then .Close
        .CursorLocation = adUseClient
        .Open "SELECT * From " & NomeTabella
    End With
    Set DataGrid1.DataSource = rs
End Sub
--
Timothy Redaelli
timothy....@email.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Occupazione seriali...

Non riesco proprio a farlo... qualcuno puņ aiutarmi? Non riesco a capire
quando una seriale č aperta gią da un altro programma... o meglio non ci
riesco senza aprire e chiudere tutte le volte le porte... qualcuno sa
indicarmi un metodo? Grazie

 quando una seriale è aperta già da un altro programma... o meglio non ci


Newsgroup: it.comp.lang.visual-basic
Titolo: seriale 232

Salve
E' possibile avere spiegazioni o qualche sorgente sulla gestione della
seriale 232?

 wrote in message
7ku351$bi8$1...@nslave1.tin.it...


 seriale 232?
controllo MSComm!

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

risolto il problema della data continuo ad avere problemi diversi: non è
stabile come risultato..a volte azzecca il range delle date e non il
fornitore e la categoria..a volte il contrario......da cosa dipende?
SQLEstraiAcquisti = "INSERT INTO StatTemp SELECT * FROM Movimenti " _
                        & " WHERE Datamovimento BETWEEN #" & DataIni & "'
AND '" & DataFin & "#" _
                        & " AND TipoMov = 'I' AND TipoMov = 'C' " _
                        & " AND   Fornitore = '" & DBCombo1.Text & "'" _
                        & " AND   Categoria = '" & DBCombo2.Text & "'" _
                        & " ORDER BY DataMovimento"

...


Ciao Fabio,
forse dico una stupidaggine ma mi pare che manchino due #:


AND '" & DataFin & "#" _

Newsgroup: it.comp.lang.visual-basic
Titolo: Net e User Control Privati

salve,
non ho ancora acquistato .Net, ma leggendo in giro non ho mai sentito
parlare di User Controls privati, cioe' non compilati in un assembly per
conto loro, ma facenti parte del progetto generale al quale si riferiscono,
come si fa in vb6 senza creare un ocx esterno....
anche il libro di Balena non ne parla affatto... non si possono piu' fare??
grazie in anticipo
Andrea Montanari
montanar...@virgilio.it
http://utenti.lycos.it/asql/index.html
(my vb6+sql-dmo little try to provide MS MSDE 1.0 a visual interface) ver
0.0.45
--------- remove DMO to reply

 anche il libro di Balena non ne parla affatto... non si possono piu' fare??
Nel solution explorer, fai tasto destro del mouse sul nome del progetto 
-> "Add User Control". Ti creerà un comunissimo file tuocontrollo.vb e 
sarà utilizzabile all'interno del progetto senza problemi. :)
-- 
Best Regards,
Antonio Cangiano
Webmaster di 
www.visualcsharp.it
Fondatore di free.it.comp.lang.csharp
free.it.comp.lang.vbnet e free.it.comp.lang.aspnet
--

 ha scritto nel
messaggio news:3D7B290F...@yahoo.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Dimensione cartelle

Ciao a tutti
Qual'è il metodo più veloce per sapere la dimensione delle cartelle?

 Qual'è il metodo più veloce per sapere la dimensione delle cartelle?
Utilizzando file system object
Function ShowFolderSize(filespec)
  Dim fso, f, s
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFolder(filespec)
  s = UCase(f.Name) & " utilizza " & f.size & " byte."
  ShowFolderSize = s
End Function
Oppure puoi costruirti una routine utilizzando le funzioni dir e filelen.
Così la cosa però si complica un pochino perchè la routine deve essere
ricorsiva ed entrare dentro tutte le sottocartelle di quella della quale ti
interessa calcolare la dimensione.
-- 
Guarda, ma non toccare!
Tocca, ma non gustare!
Gusta, ma non inghiottire!
Per rispondere in privato elimina dall'indirizzo "togliquesto"
MasterDavidex - David Ruscelli

"Luca"
forse x le folder e' meglio visualizzare lo spazio
im mega >> sempre fso >> esempio in  *.vbs
sStartPath = "c:\documenti"
set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
sLog = "log.txt"
Set f = oFSo.CreateTextFile(sLog, True)
ListFolders(sStartPath)
Sub ListFolders(sPath)
  Set oFolder = oFSO.GetFolder(sPath)
  f.Writeline oFolder
  f.Writeline "Base name: " & oFolder.Name
  f.Writeline "File count: " & oFolder.Files.Count
 t =oFolder.Size/1024000
     S = formatnumber(t,,,,0) & " MB "
 f.Writeline "Folder size: " & S
 f.Writeline
  For Each oFldr In oFolder.SubFolders
    ListFolders oFldr.Path
''''''''  Set FileCollection = oFldr.Files
''''''''  For Each File In FileCollection
''''''''  b =File.Size/1024
''''''''  Z = formatnumber(b,,,,0) & " kb "
''''''''  f.Writeline (File) & "   "  & Z
''''''''  Next
f.Writeline
  Next
End Sub
oShell.run"log.txt"
'''''' a seconda delle dimensioni devi aspettare un bel po'
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Size.vbs)
'se ti da' errore disattiva l'antivirus
--
Fosco

"Fosco" <fa...@fake.invalid> ha scritto nel messaggio
news:r_WUc.155671$5D1.7...@news4.tin.it...

Grazie

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Mouse e Tastiera Logitech Cordless Optical

Non ve ne potrà fregà de meno ma finalmente l'ho comprato!
Con i due monitor LCD e la scrivania a L ho l'ufficio che sognavo quando
inizia in proprio 4 anni fa...
Sono piccole cose ma mi accontento con poco...
PS:
oddio aspetto ancora di prendere l'X5...
-- 
Alex
"La differenza tra un genio ed un idiota è che il genio ha i suoi limiti"
(Anonimo)
Posted from X-Privat Free NNTP server - 
www.x-privat.org

Un attimo prima di skippare tutto mi sono accorto che  Alex1980 ha scritto:
Giusto per completezza dimenticavo il telefono cordless sulla scriania :-)


La tua firma risponde al tuo post :-)
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

 La tua firma risponde al tuo post :-)
Aggiungo :-PPPPPP
-- 
Alex
"La differenza tra un genio ed un idiota č che il genio ha i suoi
