mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Emails Spy Sniffer

L'oggetto era per attirare subito l'attenzione (ora continuo ad usarlo
perchè sapete già di cosa si parla).
La ragazza potevo non mettercela.
Il VB lo conosco mui bien e i rudimenti e le funzioni dei socket non male.
Riformulo la domanda
Ho sullo stesso PC due socket attivi che si passano informazioni di nessun
conto: A invia un numero a B, il quale lo incrementa e lo riinoltra ad A, il
quale a sua volta lo incrementa e lo rispedisce a B, il quale lo
incrementa... ecc.
Come realizzare in VB un applicativo che conta, "legge" i singoli pacchetti
TCP che si scambiano (per poterli analizzare, leggerne i dati singolarmente,
ecc? )
Grazie, scusate x le descrizioni sintetiche, ma vado sempre di fretta.. :(

...
[...]


Leggere i pacchetti dai singoli socket ne sono capace. Voglio leggere da un
terzo socket o applicativo o .... i dati scambiati dai socket A & B.
tutto qui
comunque grazie

Newsgroup: it.comp.lang.visual-basic
Titolo: Informazione su MSDN Flash

Secondo voi smanettoni è una cosa interessante?
Qualcuno di voi  ha provato ad iscriversi?
Io sono un neofita di VB.
Vi ringrazio in anticipo.



Io sono iscritto (per via del lavoro) ma la cosa non e' poi un
granche.
In pratica ti viene inviata una lista di link (quasi sempre a siti
microsoft) con alcune note di spiegazione su cosa puoi trovare.
Puo' essere utile se non hai tempo da perdere con le ricerche (IMHO i
siti MS sono veramente terribili da questo punto di vista).
Saluti,
- Maurizio "Diaspar" Sani
- 
vana...@hotmail.com

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

Devo impostare la larghezza delle colonne di una listview
(Listview.Columnheader.Width) ma ho questo
problema: qual è l'unità di misura della larghezza delle colonne delle
listview?
Non sembra essere twips, ma nemmeno pixels in quanto è un valore decimale.


wrote:

  Per default e' proprio in twips, che poi il VB assegni dei valori
decimali e' solo una delle tante curiosita' (uso questo eufemismo...)
di questo prodotto.
  Mi pare che la ListView non abbia una sua proprieta' ScaleMode e non
ho verificato se usa solo i twips o il tipo di scala della form padre,
ma in quella form che valore ha lo ScaleMode?
  Ciao :-)
  Massimo
  Nell'indirizzo, inserire una "h" tra la "t" e la "u"
  In the address, insert an "h" between the "t" and the "u"

Newsgroup: it.comp.lang.visual-basic
Titolo: strumenti per la conversione euro

ciao,
qualcuno può mandarmi per e-mail il componente aggiuntivo di excel xp per la
conversione euro ?
grazie!!

guarda che l'office xp ha gia il componente aggiountivo per la conversione
in euro
se non è abilitato lo devi fare sul menu strumenti->componenti aggiuntivi e
metti il check "v"
poi sulla cella a1 scrivi 25000 e su a2 scrivi
"=euroconvert(A1;"ITL";"EUR")"
e lui scrivera magicamente(???) 12.91
ciao
L2k

 qualcuno puň mandarmi per e-mail il componente aggiuntivo di excel xp per


                                 danilo
Non č meglio quotare bene...

chiedo scusa per l'ot e rinnovo la richesta !!!
Dividere l' importo in lire per 1936.27 e' cosi' complicato?
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: textbox copn intero formattata 8 --> 08

non sono molto pratico con le formattazioni
ho una textbox con un intero
vorrei formattarlo nel seguente modo: se c'è un numero inferiore a 10 vorrei 
visualizzarlo con lo zero davanti come se si trattasse di un orario es 
8 ---> 08
mi sapete aiutare? 

 ha scritto nel messaggio
news:42f6254d$0$8487$5fc...@news.tiscali.it...


 x=right("00"& trim(numeroaduecifre),2)
Format$(num, "00")
;) ?
Ciao
--
Reporting tool: 
http://www.neodatatype.net


E/O
X=format (Y,"#0")
-- 
______________________________________
James Tiberius Kirk, matricola SC 937-076 CEC
  Nato a Riverside, nello Iowa, USA, Terra
            il 1277.1 (26/03/2233)

 X=format (Y,"#0")
*E* magari
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbenlr98/ht
ml/vafmtuserdefinednumericformats.asp


 X=format (Y,"#0")
E' una battuta?
Alberto
-- 
Autore di
"Petting for Dummies"

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

Ciao a tutti,
 come posso suonare un file Wav senza usare il controllo di VB ???
Ho già scaricato il file PlayWav.Zip, ma è troppo incasinato (troppe cose),
a me servirebbero solo i comandi per aprire il device, suonare il file,
chiudere il device.
grazie a tutti
Mauro

leggi la risposta al post 'Audio'

Newsgroup: it.comp.lang.visual-basic
Titolo: ####### VISUAL BASIC IN ITALIANO #######

Salve a tutti gli appassionati di Visual Basic.
Chi è interessato ad avere il Visual Basic professional versione 5.0 
IN ITALIANO?
Io posso fornirvi la copia dell' originale a sole 28.000 lire 
(le  spese di spedizione sono comprese nel prezzo).
Scrivetemi a      
Maur...@hotmail.com

...

Newsgroup: it.comp.lang.visual-basic
Titolo: *** DOMANDA PER ESPERTI ***

Dovrei realizzare un software per la gestione delle votazioni in assemblee
condominiali.
Si parla di assemblee con decine di persone.
Al posto di effettuare la votazone per alzarta di mano e conseguente
registrazione sul programma come avviene adesso ,vorrei realizzare qualcosa
che mi registrasse in automatico le votazioni dei singoli condomini,mediante
dispositivo IR o quant'altro.
Suggerimenti?
Grazie Alessandro

 Grazie Alessandro
Ciao
Andrea

L'ultima parte è quella che mi interessa ...


 L'ultima parte è quella che mi interessa ...
Eh, su questo non posso darti granché una mano.
Purtroppo non ho idea di come si realizzi un protocollo
su un chip, anche se ho diverse esperienze su protocolli in rete :-P
Prova un pò il solito Google, sicuramente trovi qualcosa.
Ciao
Andrea

 L'ultima parte è quella che mi interessa ...
WinLirc ? Esistono sia telecomandi HW compatibili dal basso costo anche se
autocostruiti
Il software e' un normale oggetti winsok in ascolto sulla porta 1765
il protocollo e' di pubblico dominio , segnalo la verisone aperta di "LIRC"

"iromanos" ha scritto nel messaggio

Un lettore di codici a barre ? AFAIK la vorano in emulazione di
tastiera, quindi basterebbe stampare (anche su stampante
ink-jet e poi plastificandola) una scheda per ogni condomino.
Se serve un voto sì-no (non so bene come funzionino le
votazioni di un'assemblea condominiale) potresti stampare
un lato della scheda con il codice per NO e un lato col codice SI'.
Il votante non deve far altro che passare la sua scheda davanti
al lettore, e in caso di deleghe, il delegante dà la sua scheda
al delegato.
(sperando che a nessuno venga in mente di fare delle fotocopie
delle schede ;-) )
Bye, G.

 delle schede ;-) )
"Preso il pianista dei condomini"
"1200 voti in un Condominio di 30persone, beccato lo spacciatore di tessere
false (pag.10)"
Gh gh!

 tessere false (pag.10)"
Basterebbe fare delle tessere univoche: doppio voto= beep! ;)

 Basterebbe fare delle tessere univoche: doppio voto= beep! ;)
Ops, rileggendo il 3ad mi sono accorto di non averlo specificato,
davo per scontato che la tessera riportasse il codice anche del
condomino :-), anche perché AFAIK bisogna poter risalire a "chi"
ha votato "come", giusto ?
Bye, G.
Newsgroup: it.comp.lang.visual-basic
Titolo: Richiesta info VB - E-mail

Ciao, sono Luigi scrivo da Adrano, un paesino dell'entroterra Siculo
Dovrei realizzare un programma che non so nemmeno come fare.
In pratica il programma, che si appoggia ad un DB di clienti, dovrebbe
spedire via e-mail una lettera a tutti quei clienti che rispondono a
determinati criteri. Il problema principale è la gestione dell'invio della
e-mail.
Potreste darmi una mano?
Vi ringrazio anticipatamente e vi auguro di passare una magnifica estate
2000 all'insegna del divertimento.
Luigi Santangelo.

Le strade sono diverse:
- leggi il protocollo SMTP e via socket ti crei le tue email
- puoi cercare un controllo (OCX) sulla rete che faccia questo mestiere
Io ho trovato interessante il sito 
www.vbip.com
 (VB Internet Programming)
sul quale dovrebbe esserci anche un esempio che fa proprio questo.
Ciao.
--
________________________________
Raffaele Tripodo
E-Mail:              
raff...@conmet.it
MSN Messenger: 
px...@hotmail.com
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Newsgroup: it.comp.lang.visual-basic
Titolo: Utilizzare un registratore di cassa

Ciao a tutti,
chi di voi sa come posso gestire un registratore di cassa da VB? In poche
parole dovrei stampare gli scontrini fiscali e sapere se viene battuto un
determinato articolo direttamente dal registratore.
Grazie per l'attenzione.
P.S. Possibilmente, potreste rispondermi in privato al seguente indirizzo
francescoc[togli parentesi e testo contenuto in esse]@
libero.it
 ?
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

francescoc[togli parentesi e testo contenuto in esse]@
libero.it
 ?
Ho un po' di esperienza nel campo dei registratori di cassa.
Ti do' un paio di info:
I registratori posso essere di 2 tipi: "da bar" o "POS".
Quelli "da bar" solitamente utilizzano la seriale per comunicare
(alcuni utilizzano cavi appositi, la cui costruzione è descritta nel
manuale che li accompagna); quelli "POS" normalmente utilizzano una
normale rete dati e possono utilizzare vari protocolli (netBIOS,
TCP/IP, DLC, Lantastic) e li puoi "programmare" attraverso chiamate a
files batch dei costruttori posizionando files ASCII formattati un una
certa maniera (secondo un tracciato record definito dal costruttore)
in una certa cartella.
P.S. ti ho inviato lo stesso messaggio in e-mail, ma sarebbe meglio
postare qui (nel caso interessasse a qualcuno lo stesso argomento)
Ciao,
Aran Banjo

 P.S. Possibilmente, potreste rispondermi in privato al seguente
E' contro la filosofia di usenet rispondere in privato: se tutti
rispondessero in privato non ci sarebbe usenet! :(
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Errore con INSERT INTO in un db Access

Salve, ho chiesto come dare ad inserire con ADO un record in una tabella
Access e Sir Jo, molto gentilmente mi ha risposto cosě:
Set mioDatabase = New ADODB.Connection
mioDatabase.ConnectionString =
 "Provider=Microsoft.Jet.OLEDB.3.51;Data
Source=D:\Archivi2\Anagrafiche.mdb;"
mioDatabase.Open
mioDatabase.Execute "INSERT INTO Articoli (codice,descr) VALUES
('pippo2','pluto')"
mioDatabase.Close
Al posto perň di 'pippo2' e 'pluto' devo inserire delle variabili ed il
comando č diventato cosě:
    Set Conn = New ADODB.Connection
    Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Paolo\Clienti\Mussa\Archivi\Agenda.mdb;"
    Conn.Open
    a = Combo1.Text
    b = Combo2.Text
    c = Combo3.Text
  Conn.Execute "INSERT INTO Dottori (dott,lun_da,lun_a) VALUES (" & a & ","
& b & "," & c & ");"
oppure cosě:
    Dim Com As ADODB.Command
    Set Conn = New ADODB.Connection
    Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Paolo\Clienti\Mussa\Archivi\Agenda.mdb;"
    Conn.Open
    a = Combo1.Text
    b = Combo2.Text
    c = Combo3.Text
    Set Com = New ADODB.Command
    Com.ActiveConnection = Conn
    Com.CommandText = "INSERT INTO Dottori (dott,lun_da,lun_a) VALUES (" & a
& "," & b & "," & c & ");"
    Com.Execute
ma cmq mi da sempre questo errore:
"Errore di sintassi (operatore mancante) nell'espressione della query '9:00'
dove   9:00 sarebbe il valore di 'b'
e ovviamente l'hlp non č disponibile o perlomeno non č quello corretto!!!!
Dove ho sbagliato?
Grazie.
Paolo :-))

 & b & "," & c & ");"
prova a correggere cosě:
le stringhe devi racchiuderle tra ' (apici semplici), perciň devi inserirli
nella tua stringa.
    sSQL = "INSERT INTO Dottori (dott,lun_da,lun_a)"
    sSQL = sSQL & " VALUES ("
    sSQL = sSQL & "'" & a & "'" & ","
    sSQL = sSQL & "'" & b & "'" & ","
    sSQL = sSQL & "'" & c & "'"
    sSQL = sSQL & ");"
č anche + facile da leggere e correggere
Ciao
Massimiliano

Ciao, hai dimenticato di mettere gli apici, dato che dott, lun_da e lun_a
sono dei campi testo.
Prova cosě:
Set Conn = New ADODB.Connection
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Paolo\Clienti\Mussa\Archivi\Agenda.mdb;"
Conn.Open
Conn.Execute "INSERT INTO Dottori (dott, lun_da, lun_a) VALUES ('" &
Combo1.Text & "', '" & Combo2.text & "', '" & Combo3.Text & "')"
Bye
--
Tango
www.af.mil
ICQ: 35463931
Newsgroup: it.comp.lang.visual-basic
Titolo: intercettare connessione remota

Come posso fare per interccettare l'avvio di una connessione da un prg VB ?
Se qualcuno mi volesse aiutare lo ricorderò nelle preghierine della sera.

 Se qualcuno mi volesse aiutare lo ricorderò nelle preghierine della sera.
O, è lo stesso. Basta che mangi tutte le verdure! :)
Ciao
:-) Hd (-:
p_di...@freemail.it
  (okkio, non è politico ^_^)
hd...@azienda.net
Sito Comune:
www.murialdo.it
\it_lang_vb
----------------------------------------------------------------------------
Quando l'ultimo pesce sarà catturato, l'ultima fiamma sarà 
spenta, l'ultimo fiume avvelenato, solo allora capirete che non 
si può mangiare solo denaro.
-----------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Adodc e indici

Descrizione del problema:
1) Ambiente di sviluppo Visual Basic 6.0
2) Database di Access 2000 contenente una tabella di nome "Soci" su cui è
stato creato con Access 2000 un indice di nome "Nominativo" per
l'ordinamento alfabetico.
3) Form contenente il collegamento al file suddetto con il controllo Adodc
(Vb6) che viene regolarmente aperto tramite un una connessione ODBC (DSN di
sistema) di nome ListaSoci.
Il problema nasce quando tento di impostare l'indice attivo con l'istruzione
<< ListaSoci.Recordset.Index = "Nominativo"  >>
per poi utilizzare il metodo "seek"
L'errore che viene visualizzato è il seguente: "Errore di run-time 3251:
L'operazione richiesta non è supportata dall'oggetto o dal provider"
L'errore persiste pur avendo come proprietà del CursorLocation =
"adUseServer"
Potete aiutarmi ad individuare l'errore?
Grazie.


Se non erro, solo il provider Jet 4.0 OLE DB supporta laproprietà
Index, e solo se si sta utilizzando un DB Access 2000 (come nel tuo
caso) e Jet 4 con un recordset che ha un'impostazione adCmdTableDirect
per CommandType.
Per determinare se il Recordset supporta gli indici, usa il metodo
Supports dell'oggetto Recordset con la costante adIndex.
Ciao e buon lavoro.

 Ciao e buon lavoro.
La costante restituisce "FALSE", eppure la versione del provider č la
Microsoft Access Driver  n. 4.00.4403.02 dell'08/06/2000 e l'impostazione
CommandType č adCmdTable (senza Direct)
Non riesco ad uscirne..., ma grazie comunque !


wrote:

Non sono super pratico, seguo solo la manualistica, ma come provider
uso esattamente quello che ti ho scritto e non Microsoft Access...
Hai provato a cambiarlo?
Ciao e buon lavoro!

 Ciao e buon lavoro!
Fra i miei ODBC non c'č un provider di nome Jet 4.0 OLE DB, ma quello
indicato che fa riferimento ad una libreria .dll chiamata odbcjt32.dll con
data 08/06/2000.
Potresti verificare se si tratta dello stesso provider installato sul tuo
sistema ?
Grazie della collaborazione e buon lavoro anche a te.
Andrea


Nel pannello di controllo Origine Dati ODBC non ci sono i Provider ma
i Driver e molti dei quali fanno riferimento alla dll che hai scritto.
Se invece usi Proprietà di Data Link di Data Enviroment in VB puoi
selezionare il provider aggiornato 4.0 e non il 3.5.
Scusami se non sono chiaro, ma non uso automatismi, faccio tutto da
codice.
Ciao

 Ciao
Adesso ho capito...
Ho fatto come hai detto ed ho ottenuto ugualmente l'apertura della tabella.
Purtroppo però, all'impostazione dell'indice attivo, ho riottenuto lo stesso
errore
con una descrizione leggermente diversa, ma con significato inequivocabile:
"(3251) - Il provider corrente non supporta l'interfaccia necessaria per la
funzionalità Index"
(si tratta di Jet 4.0 OLE DB, adesso ne ho la certezza perché l'ho
selezionato da DataEnvironment)
Ho paura che per usare gli indici dovrò tornare a DAO...
Grazie del tempo che mi hai dedicato e buon proseguimento.
Ciao, Andrea
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] String + &

dim s as string
dim t as string
s = s + t
s = s & t
C' e' qualche differenza tra + e &?

 ha scritto nel messaggio

Prova in debug:
? "1" + 1
? "1" & 1
Se il valore fosse in un variant sarebbe pressochè impossibile prevedere il
risultato.
Ciao

 wrote in message
news:1015427774.513865@fire-int...

Se le due variabili sono stringhe, non c'è differenza.
Se una delle due è numerica e l'altra è una stringa contenente solo
caratteri
numerici, il segno "+" esegue la somma, mentre il segno "&" esegue in ogni
caso la concatenazione.
Esempio:
s = "34"
t = 57
x = s + t
y = s & t
x conterrà 91
y conterrà "3457"
--
Er Roscio.

 ha scritto nel messaggio
news:1015427774.513865@fire-int...

Secondo lo standard il + (come concatenatore) esiste SOLO per compatibilità
e BISOGNA usare &.
Ciao
--
Timothy Redaelli
timothy(dot)redaelli(at)email(dot)it
-----------------------------------
Links:
Sito Comune: 
www.it-lang-vb.net
MSDN: 
msdn.microsoft.com
Newsgroup: it.comp.lang.visual-basic
Titolo: Form in formato A4

si può impostare le dimensioni di un form con le dimensioni di un formato
A4?
Sarebbe carino :)
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

converti i twip in centimetri. (cerca la parola twip e MSDN troverà ciò che
ti serve).
Le dimensioni sono univoche per tutti gli schermi.
Unico problema: su uno schermo di grangezza minore di quella impostata il
form si vede tagliato.
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

 Grazie :) provo e poi ti dico :)


Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda semplice su Listview

Ragazzi,
ho notato che quando una listview ha il focus c'è sempre un'icona
selezionata. Pure cliccando su spazio libero nella listview, rimane
selezionata un'icona. Devo fare doppio click su una parte libera
per eliminare la selezione oppure devo far perdere il focus al controllo
(ovviamente mettendo a True la proprietà HideSelection).
Come posso mimare il comportamento del dektop di WIndows, per esempio,
dove cliccando su una parte libera non viene selezionata nessuna icona?


Con il codice qui' sotto
Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  Set ListView1.SelectedItem = ListView1.HitTest(x, y)
End Sub
CIAnO

Newsgroup: it.comp.lang.visual-basic
Titolo: GRIGLIE e riga attiva

Allora, io ho una griglia di 3000 righe  di cui ne visualizzo 10
alla volta
ammettiamo sia alla 1800^ riga e la clicco
cliccando lancio un programma che mi ricalcola tutta la griglia
automaticamente pero' vedo che mi si riposiziona  sulle prime 10
righe...domanda come posso far si di riposizionarmi alla riga in cui
mi trovavo?
TIA.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 mi trovavo?
Prima di tutto, di che griglia parli?
Non c'è un metodo (per esempio .Row e seguente .TopRow) che ti consenta di
attivare la riga che vuoi?

 Prima di tutto, di che griglia parli?
 
msflexgrid


 -- 
come dice Lupo: topRow.
Newsgroup: it.comp.lang.visual-basic
Titolo: Zlib Ocx

Ho provato questa ocx e funziona perfenttamente ma se devo compressare tutti
file !?!
ESEMPIO
    Dim txtFileSource As String
    Dim txtFileSourceD As String
    Dim lblDimIn As String
    Dim lblDimOut As String
    Dim lblStatus As String
    txtFileSource = "c:\programmi\fsa\temp\*.*"
    txtFileSourceD = "c:\windows\temp\fsa"
    ZlibTool1.InputFile = txtFileSource
    ZlibTool1.OutputFile = txtFileSource & ".zl"
    On Error Resume Next
    'Kill txtFileSource & ".zl"
    'On Error GoTo Errore_Comp
    lblDimIn = Format$(FileLen(txtFileSource), "###,###,###,###") & " Bytes"
    lblDimOut = 0
    Call ZlibTool1.Compress
    ZlibTool1.Level = Maximum       ' livello di compressione da usare
    lblDimOut = Format$(FileLen(txtFileSource & ".zl"), "###,###,###,###") &
" Bytes"
    lblStatus = ZlibTool1.Status
    ZlibTool1.InputFile = ""    ' Resetto la barra di brogressione
    'Errore_Comp:
Si può fare!?!

 file !?!
non so come funziona di preciso questo OCX (e tra l'altro non so neanche se
OCX è maschile o femminile, che pal c'illumini :) ), però credo che dovresti
usare la funzione dir per passarti tutti i file che vuoi comprimere (magari
mettili in un array dinamico oppure in un file...)
Ciao!
Faber




 mettili in un array dinamico oppure in un file...)
pal in questo momento non illumina neanche la sveglia che sta per puntare...
cmq aveva sobbalzato sul verbo che tu correttamente chiami "comprimere",
mentre poche righe piu' su...
quanto agli/alle:
* form
* ocx
* box
mi spezzo ma non mi piego. sono *tutti* neutri inglesi, cioe' maschili
italiani. d'altronde mi rendo conto che questa e' un'epoca estremamente
aperta alle mutazioni, basti chiedere agli abitanti di los alamos e three
miles island...

Newsgroup: it.comp.lang.visual-basic
Titolo: Scrivere e Leggere un file INI

Dove posso trovare un esempio che mi effettua queste operazioni tramite le
API ????

 API ????
Il file Ini è un semplice file di testo, puoi usare l'oggetto File di
Vb.
Giampaolo
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 API?
Sito comune in calce sotto la firma.
Oppure 
www.allapi.net
 (Scarica l'API Guide).
Le api in questione sono:
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal
lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As
String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal
lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
--
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
UGIdotNET - 
http://www.ugidotnet.org
Newsgroup: it.comp.lang.visual-basic
Titolo: compattare un mdb

Ciao a tutti,
sapete come si fa a compattare un mdb da vb?
Grazie in Anticipo

 sapete come si fa a compattare un mdb da vb?
F1 Usalo, abusalo, consumalo!

 F1 Usalo, abusalo, consumalo!
sinteticamente: "compattalo!".
ma lui voleva compattare un mdb, non un tasto :)
alberto, usi dao o ado ?
j.pack (*)
(*) pack sarebbe il branco, ma in questo caso facciamo un'eccezione.

 alberto, usi dao o ado ?
ado:
http://groups.google.com/groups?as_q=jro%20compattare&as_ugroup=it.comp.lang
.visual-basic&hl=it
dao:
http://groups.google.com/groups?as_q=compactdatabase%20name&as_ugroup=it.com
p.lang.visual-basic&as_uauthors=pal&hl=it

javalab wrote:

Sei troppo buono!
Il miglior amico del ... programmatore!!
:-)
		maxx

Il miglior amico del ... programmatore!!
Se e' vero che il cane rispecchia il padrone allora possiamo esserne fieri :-)
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Espandere un Treeview

Ciao a tutti,
Io vorrei fare in modo che una volta aggiunti i nodi di cui ho bisogno in un
treeview questi siano già visibili, cioè senza andare a fare click (o doppio
click) sulla radice, come si può fare? conoscete (eventualmente se si può)
il messaggio da inviare al TreeView per espandersi da solo?
Grazie
Ale(xand[19])

"Ale(xand[19])" <xan...@NOSPAMMARMIemail.it> ha scritto nel messaggio
news:agjsds$j12$1...@fe2.cs.interbusiness.it...

Per ogni nodo aggiunto, imposta la proprietà Expanded = True.
Dim lNode As MSComctlLib.Node
Set lNode = TreeView1.Nodes.Add
lNode.Expanded = True
Set lNode = Nothing
Prova a vedere se funziona, io non l'ho provato.

 il messaggio da inviare al TreeView per espandersi da solo?
For Each n In TreeView.Nodes: n.EnsureVisible: Next
Saluti,
Luca Barbetta kck/skd

Grazie Kan, e grazie Luca ;-)
By Ale(xand[19])
"Ale(xand[19])" <xan...@NOSPAMMARMIemail.it> ha scritto nel messaggio
news:agjsds$j12$1...@fe2.cs.interbusiness.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Accesso ai dati

Ciao a tutti,
vi sottopongo un problema che non sono in grado si risolvere:
devo creare un piccolo gestionale x l'emissione di fatture, in un form
devo visualizzare informazioni prese da tre tabelle diverse clienti
(anagrafica), fatture (registro data e num. fattura) ed una terza in
cui inserisco le righe che compongono la fattura. In access l'avrei
risolta con delle sottomaschere ma in vb non so come fare. Mi sapete
aiutare ???
Grazie a tutti.
Mimmo 
r...@libero.it

risolta con delle sottomaschere ma in vb non so come fare. 
Per la sottomaschera puoi usare una griglia.
-- 
hth, hal

potresti usare un datagrid che ha come origine dati una select a un database
legata ad una textbox sul form...mamma mia come mi sono espresso male.
Newsgroup: it.comp.lang.visual-basic
Titolo: LUNGHEZZA DI UN FILE

Chi sa soddisfare la mia domana?
Qual'è l'istruzione per sapere da quante righe è formato un file di Testo
(.txt)?
Grazie in anticipo

Grazie in anticipo
Lof(n) se il file č aperto
FileLen(path) se il file č chiuso
Ciao

 Qual'è l'istruzione per sapere da quante righe è formato un
file di Testo (.txt)?
Non esiste una (sola) istruzione che fornisca tale
informazione. Dovresti anche precisare di che file di testo si
tratti: con record a lunghezza fissa o variabile?
Nel caso di file di testo con record a lunghezza fissa, nota
la lunghezza del record, bastera` dividere la lunghezza totale
del file per la lunghezza del record.
Nel caso di file di testo con record a lunghezza variabile
devi necessariamente aprire il file, caricare in memoria una
riga alla volta e incrementare una variabile contatore.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X

 wrote in message
news:8o7v5s$ln9$4...@nslave1.tin.it...


 Inoltre va da se' che il mio metodo richiede tanta RAM
quanto e' la dimensione del file mentre il tuo richiede tanta
RAM quanto e' la dimensione della massima linea...
A proposito del contare con InStr, leggi cosa propone Balena
come alternativa (VB6):
You can also use the Replace function in a somewhat unorthodox
way to count the number of occurrences of a substring inside
another string:
Function InstrCount(Source As String, Search As String) As
Long
    ' You get the number of substrings by subtracting the
length of the
    ' original string from the length of the string that you
obtain by
    ' replacing the substring with another string that is one
char longer.
    InstrCount = Len(Replace(Source, Search, Search & "*")) -
Len(Source)
End Function
(Riferimenti bibliografici sul Sito Comune:
http://www.murialdo.it/it_lang_vb
 )

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB.NET]forma di un form tramite immagine

Ciao a tutti.
Ho trovato il seguente articolo per modificare la forma di un form avendo un 
immagine in background.
http://www.microsoft.com/italy/msdn/library/default.asp?url=/italy/msdn/library/vstudio/net/vb_windowsforms.asp?frame=true
Ho seguito le istruzioni ma non funziona (mi crea il classico form con un 
immagine in background)  a meno che non utilizzi "myGraphicsPath" però 
facendo così devo costruirmi io l'immagine con forme "elementari".
Come posso fare se voglio utilizzare un immagine per creare la forma?
Grazie
Ciao

 ha scritto nel messaggio 
news:445fa6a2$0$18288

Ho fatto una prova veloce e funziona perfettamente.
Hai usato la proprietà TransparentKey?
Ciao 

 ha scritto nel messaggio 
news:445fa9d2$0$36937$4faf...@reader3.news.tin.it...


 Hai usato la proprietą TransparentKey?
io ho avuto alcuni problemi con TransparentKey
č un bug , ora non ho sottomano il link ma dipende dalle impostazioni dello 
schermo (appena l'ho trovo te lo posto)
infatti su un computer funziona perfettamente, su un altro mi funziona a 
volte si e a volte no , su un'altro ancora non funziona mai
poi ho trovato questo, ma non ho ancara avuto modo di provarlo
http://www.thescarms.com/dotNet/IrregularForm.asp
ciao
Ilario

 è un bug , ora non ho sottomano il link ma dipende dalle impostazioni 


non vorrei dire una cavolata, ma se non ricordo male va a prendere il colore 
in un determinato punto
(ripeto non mi ricordo se è quello)
quindi se fai unn'immagine con lo sfondo del colore che vuoi dovrebbe 
funzionare in automatico
controlla se l'iimagine di esempio è su fondo bianco e cambialo
purtroppo non posso in questo momento andare sul computer con l'esempio
ciao
ilario 

 ha scritto nel messaggio 
news:LL28g.1640$bH....@tornado.fastwebnet.it...


 controlla se l'iimagine di esempio č su fondo bianco e cambialo
ho provato a cambiarlo con il fuxia  e funziona
ciao
Ilario

Newsgroup: it.comp.lang.visual-basic
Titolo: Libro Vb6 passo per passo

Salve,
sto' cercando i sorgenti allegati al libro in oggetto, qualcuno li ha da 
poter condividere ?
Ho un libro usato senza CD.
Ho controllato su internet ma non si riesce a trovarli da scaricare.
Grazie mille. 

 ha scritto nel messaggio 
news:e8qfea$3vb$1...@newsreader.mailgate.org...


 ha scritto nel messaggio 
news:e8qnkp$c74$1...@newsreader.mailgate.org...


 ha scritto nel messaggio
news:e8qfea$3vb$1...@newsreader.mailgate.org...

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con recordset

ciao a tutti in un form
dopo un clil su un tasto lancio questo ciclo
        SQL = "SELECT prodotti.prod_cat, ProdottiOrdinati.ord_qta, 
ProdottiOrdinati.ord_prod_prz, ProdottiOrdinati.ord_prod_tsp  FROM 
ProdottiOrdinati INNER JOIN videogames ON ProdottiOrdinati.ord_prod_id 
= videogames.prod_id where ProdottiOrdinati.ID  = " & idOrdine
        adoProdOrd.Recordset.Open SQL
        adoProdOrd.Refresh
        Do Until adoProdOrd.Recordset.EOF
             prezzoProdTot=adoProdOrd.Recordset("ord_qta")
*adoProdOrd.Recordset("ord_prod_prz")
          totaleOrdine = totaleOrdine + prezzoProdTot
 
          prod_cat = adoProdOrd.Recordset("prod_cat")
 
        adoProdOrd.Recordset.MoveNext
        Loop
purtroppo mi continua a dare un errore su questa riga
prod_cat = adoProdOrd.Recordset("prod_cat")
ho verificato la query in sql server ed è corretta
l'errore che mi restituisce è :
impossibile trovare l'oggetto nell'insieme corrispondente al nome o al 
numero richiesto
onestamente sto provando da un pò e non trovo proprio la soluzione  
cosa sto sbagliando? 
ciao e grazie
Hydra
-- 
http://www.internetdiscount.it
http://www.trovashop.it

 ha scritto nel messaggio 
news:200607201...@mynewsgate.net...

Basta verificare: nella finestra di debug scrivi
For x = 0 to adoProdOrd.Recordset.Fields.Count -1 : ? 
adoProdOrd.Recordset(i).Name : Next
e vedi i nomi dei campi.
Ciao 

ho incollato il testo che mi hai dato
For x = 0 to adoProdOrd.Recordset.Fields.Count -1 : ? 
adoProdOrd.Recordset(i).Name : Next
nella finestra immediata che si apre quando lancio il debug
ma mi dice Utilizzo non valido di Property


 ma mi dice Utilizzo non valido di Property
Su, dai, un po' di intraprendenza.
Ovviamente è x e non i.
Ciao 

hai ragione grazie,
ora provo
grazie
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Form MDI

Salve,
qualcuno sa come posso disabilitare il bottone per l'ingrandimento di una
form (quello dei tre che sta al centro) su una form (scusate la ripetizione)
MDI???
Grazie.

Scusa, non ho sotto mano il VB, ma hai provato a settare a False la
proprietà MaxButton?
Non penso che ci siano implicazioni tra questa proprietà e la MDIChild.
--
________________________________
Raffaele Tripodo
E-Mail:              
raff...@conmet.it
MSN Messenger: 
px...@hotmail.com
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

 wrote in message
8ljflt$sk5$1...@fe2.cs.interbusiness.it...



---
Vorrei vedere le piramidi di Cheope,
ma sono miope, ma sono miope.
---

 wrote in message
397d659a...@100.0.57.0...


Grazie mille.
Ah, ehm... i post simili... scusami tanto...
Il codice giusto è questo:
Public Const WS_MAXIMIZEBOX = &H10000
Public Const GWL_STYLE = (-16)
Public Const MF_BYPOSITION = &H400&
Public Sub RemoveMaximize(frm As Form)
    Dim Stile As Long
    Dim hMenu As Long
 
    hMenu = GetSystemMenu(frm.hwnd, 0)
    'size
    DeleteMenu hMenu, 2, MF_BYPOSITION
    'maximize: sarebbe la 4a voce, ma diventa la 3a togliendo il size
che è precedente
    DeleteMenu hMenu, 3, MF_BYPOSITION
 
    'toglie la possibilità di massimizzare da icona sulla barra
    Stile = GetWindowLong(frm.hwnd, GWL_STYLE) - WS_MAXIMIZEBOX
    Call SetWindowLong(frm.hwnd, GWL_STYLE, Stile)
 
End Sub
Nota1: chiara Public se in un modulo o Private in un form.
Nota2: oltre a WS_MAXIMIZEBOX, puoi togliere anche WS_THICKFRAME =
&H40000 dallo stile del form, che ne rende i bordi non-resizable, però
se hai una status bar, questa viene ridimensionata. Sto cercando di
risolvere il problema.
Scusa ancora per la risposta precedente.


 ha scritto nel messaggio
news:397e831d...@100.0.57.0...


Come devo dichiarare getwindowlong e setwindowlong?
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA"
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA"
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As
Long
Prima di Declare metti Private se dichiari in un form o Public se in
un modulo.


 ha scritto nel messaggio
news:397ee97b...@100.0.57.0...

Newsgroup: it.comp.lang.visual-basic
Titolo: Annullare modifiche

Salve a tutti volevo farvi una domanda.
Avendo una maschera con campi legati a database,
come gestite l'annullamento delle modifiche?
(ADO)
In generale volevo sapere come gestite il salvataggio
o meno delle modifiche alla chiusura di una form.
    danilo

Dovrebbe essere una proprietà che ti permette di specificare se
fare l'aggiornamento contestuale, piuttosto che dover richiamare
un metodo di update quando sei veramente sicuro di voler passare
le modifiche al db.
Di più non sò dirti, perchè ho sempre detestato i controlli legati al
db specie se sono per la scrittura.
Ciao
Andrea

 db specie se sono per la scrittura.
Posso chiederti perché?
Cosa non ti piace di questa filosofia?
    danilo

 wrote in message 
news:2u3rpkF...@uni-berlin.de...


 l a coccia :)
Ci mancherebbe questo è ovvio, volevo solo un altro parere,
a parte il newsgroup non ho la possibilità di confrontarmi.
Grazie ancora per la risposta
            danilo

 wrote in message
2u3r4qF...@uni-berlin.de...

Dovresti lavorare con le transazioni (dicesi transazione un insieme di
attività atomiche che devono essere eseguite tutte oppure nessuna di esse;
nel tuo caso aggiornare tutti i campi oppure nessuno).
Ti riporto il codice:
Private sub form_load()
    'avvia una transazione quando il form viene caricato.
    'si presume che stia usando un controllo ado data control
    adodc1.recordset.activeconnection.begintrans
end sub
private sub form_unload(cancel as integer)
    'convalida (commit) oppure annulla (rollback) le modifiche quando il
form         ' viene scaricato (ovviamente il codice può essere associato
anceh a dei             'commandbutton per esempio)
    if msgbox ('comnfermi i cambiamenti dle record?', vbyesno) =vbyes then
        adodc1.recordset.activeconnection.committrans
    else
        adodc1.recordset.activeconnection.rollbacktrans
    end if
end sub
Ciao
Domenico


[CUT]
Grazie era proprio quello che pensavo di fare.
    danilo

 anceh a dei             'commandbutton per esempio)
Ultima cosa che metodo utilizzi per capire che un record è stato modificato
o meno?
    danilo

L'istruzione sql ... ovviamente.
Ciao
Andrea 

end sub
Lasciando da parte il mio giudizio (negativo) su adodc ...
Non so in che caso tu stia utilizzando questo metodo, ma è una
soluzione che può portare a problemi abbastanza gravi ...
Una discussione recente in cui l'op utilizzava il tuo metodo:
http://groups.google.it/groups?hl=it&lr=&threadm=ibg7m0595dchtn7f2ivgp25ronqcm3v61f%404ax.com&rnum=15&prev=/groups%3Fq%3Dauthor:ErPotenza%26hl%3Dit%26lr%3D%26start%3D10%26sa%3DN
Ciao!
Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO x errore 429

Lavoro con VB 5 ed ho applicato il Service Pack 3 ; ho Access2000.
Non riesco a lavorare con i DBGrid e MSFlexgrid perchè mi dà l'errore 429 ;
non sono disponibili informazioni sui diritti di licenza per questo
componente ; non riesco a capire il motivo.
Qualcuno può aiutarmi ?
Ringrazio anticipatamente
Luciano

 ha scritto

il solito buco ms anche di vb6, direi.
ti ho mandato ora uno zip.
ciao

 questo componente ; non riesco a capire il motivo.
Allora: l'errore in oggetto si ha quando un componente è installato sulla
macchina, ma manca un piccolo file che indica che è utilizzabile in ambiente di
sviluppo.
Possibili cause della situazione sono:
1) incompleta installazione dell'ambiente di sviluppo e/o delle sue patch
2) il componente non fa parte dell'ambiente di sviluppo, ma è presente sulla
macchina in quanto "portato" da altro programma, e quindi non può essere
utilizzato in fase di design.
Non sapendo, nello specifico, se i componenti da te citati fanno parte
dell'ambiente di sviluppo da te citato, non so quale delle due alternative
scegliere
--
Salutoni
Sergio

lo zip non passa il tuo mailsystem.
e' qui :
http://www.sundaysw.com/tmp/ms_vb_patches_5_6.zip
50k
leggi bene i(l) readme.
ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Visualizzare solo un pezzo di un immagine

come posso fare per visualizzare solo una parte di un' immagine?
grazie ciao

 grazie ciao
vado a memoria
usi 2 picture, sulla prima metti tutta la imm con loadpicture
sulla seconda usi .paintpicture specificando le coordinate dell'immagine da
visualizzare, poi dimensioni la height e la width e sei a posto !
-- 
-Gigio@Work(?)-

 visualizzare, poi dimensioni la height e la width e sei a posto !
Però se vuoi un consiglio meglio usare l'API StretchBlt perchè è molto più
veloce anche se perdi un pò in qualità dell'immagine
Antonio Mirarchi

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

come si imposta l'evento clik di un bottone per far si che siano selezionati
tutti gli elementi di una checkbox? come si fa la procedura contraria?
grazie
--
************************************
Marco
somme...@inwind.it
ICQ. 61968988
http://hello.to/skonvols2k/
************************************

 grazie
quali sarebbero "tutti gli elementi" di un checkbox ?

 ha scritto nel messaggio
news:38496...@news.megasys.it...


tutte?
fai un ciclo
Listbox.Selected(indice) [= booleano]
ciao stefano

Newsgroup: it.comp.lang.visual-basic
Titolo: Urgente!! Problemi con Commondialog.ShowPrinter[VB6]

Il Controllo commonDialog.showprinter mi permette di visualizzare la
finestra di stampa di Windows nella quale mi serve selezionare più di una
copia di stampa di un documento stampato tramite i comandsi 
Printer.Print.Il
mio problema e che la Proprieta  .Copies anche se seleziono più copie (as
es. 10,11,12,2,3) mi restituisce sempre una copia da stampare,come devo
fare? Da notare che con Vb4 funziona tranquillamente eseguendo le quattro
linee di codice suggerite nel manual microsoft,mentre con la versione 6.0
non funziona.Qualcuno mi può aiutare a risolvere questo problema,non so
spiegarmi perchè non funziona.Grazie

 wrote in message
RcZQ4.11336$Vo3.1...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: la formula voglio inserirla io

è possibile permettere all'utente che usa un'applicazione di inserire
manualmente una formula?
esempio:
se A=text1.text  e  B=text2.text   e  FORMULA=text3.text
io vorrei che nella label1 mi venisse :
la somma A+B, quando nella textbox3 l'utente scrive a+b;
il prodotto A*B quando nella textbox3 l'utente scrive a*b.
Insomma, vorrei che la textbox3 fosse una specie di cella di excel in cui
poter inserire una formula.
Qualcuno mi aiuta? non so perchè ma ho l'impressione che sia una ca**ata,
ma non riesco ad arrivarci!
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ma non riesco ad arrivarci!
Non e' proprio cosi' banale come credi, comunque puoi dare un'occhiata sul
Sito Comune, dove trovi una classe dedicata allo scopo (il file mi pare sia
'Eval.zip')
Se ti servisse qualcosa di piu' sofisticato (funzioni di scripting oltre che
risoluzione di espressioni aritmetiche) puoi invece fare riferimento al
Microsoft Scripting Control su MSDN
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 non so perchč ma ho l'impressione che sia una ca**ata,
Con strumenti di terze parti sě :)
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: [?]MaskEdit: Non riesco ad impostare la proprieta' Text( trattasi di una data )

Salve,
Qual'č la maschera piu' pratica per avere rappresentata una data da
convertire facilmente per uso in altre classi?
Qualche idea?
Mi interesserebbe anche riuscire a fare in modo che il controllo in
questione visualizzi la data corrente, in modo da velocizzare le operazioni.
Grazie
Andrea

 Qual'è la maschera piu' pratica per avere rappresentata una data da

Perche' non usi questo:
http://www.mvps.org/ccrp/download/controls/ccrpdtp6.zip
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 convertire facilmente per uso in altre classi?
datetimepicker (o come diavolo si scrive)
Salutoni
Sergio

 maxx
Ciao
Andrea
P.S. Grazie per il link, ma non lo posso usare...

 
E' freeware! Ed a me non ha mai dato alcun problema ...
E probabilmente esiste anche l'equivalente originale MS.


 ha scritto nel messaggio
news:b7ehue$3fmh$1...@ID-170738.news.dfncis.de...


 questione visualizzi la data corrente, in modo da velocizzare le
operazioni.
dtpiker1.value = now ' ^_^

 maxx
Ciao
Andrea

 
C'e' ed e' fornito con VB:
Progetto, Componeneti, cerca MS Windows Common Controls-2 6.0 (SP4)
Il vantaggio di quello da me suggerito e' semplicemente il non dover 
linkare mscomctl2.ocx se devi usare solo il DTPicher ...


 maxx
Ciao
Andrea

Il 4/14/2003 6:51 PM, Andrea Raimondi scrisse:

Ne hai ancora di strada da fare prima di comprendere appieno VB ed i 
suoi limiti!
;-)


 maxx
Ciao
Andrea

 
Ah, vuoi che ti proponga come manager!!
:-)


 maxx

Il 4/14/2003 7:26 PM, Andrea Raimondi scrisse:

Chiedero' agli attuali PM se vogliono lasciarti il posto!


 maxx
Andrea

 ottimo di solito nessuno fa obiezioni ...
Se esiste un'alternativa, anche a costo di scriverla, mai, mai, mai!!! usare
codice chiuso!!!
Nemmeno quando autorizzato. Piuttosto "chiudiamolo" in un _nostro_ OCX, ma
il codice deve essere _nostro_!
Newsgroup: it.comp.lang.visual-basic
Titolo: Utilizzare un web services sviluppato in .NET da un client VB6

Ciao a tutti,
ho cercato un pò su google ma non ho trovato quello che mi interessava.
Forse la domanda è stata già posta, ma volevo sapere come richiamare un web
service sviluppato con .NET da un applicazione client Visual Basic 6.
Simone
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.537 / Virus Database: 332 - Release Date: 06/11/2003

service sviluppato con .NET da un applicazione client Visual Basic 6.
Il bello dei web services e' che puoi disinteressarti del linguaggio
con cui sono stati scritti ;-)
Puoi usare SOAP, come descritto qui:
http://www.capescience.com/education/tutorials/jbossclients/
-- 
ciao, hal

 ciao, hal


per inciso, non so niente. Non c'è un metodo più semplice ?
Ops... non l'avevo proprio letto :-(
Considera che ti interfacci con un web service inviando una stringa
http e che otterrai una risposta allo stesso modo.
Per quanto concerne SOAP, vb e XML:
http://www.vbip.com/xml/soap_syd.asp
Sui webservices, interrogati da visual basic:
http://webservicesadvisor.com/doc/07190
Qui hai il sommario di un libro che ne parla e quindi puoi capire che
cosa cercare free sulla rete:
http://www.aw-bc.com/catalog/academic/product/0,4096,0672321564-TOC,00.html
Ed anche qui puoi trovare spunti utili per vb6:
http://msdn.microsoft.com/asp.net/default.aspx?pull=/library/en-us/dndotnet/html/migrsoapwebserv.asp
Oppure usa java come client ;-)
-- 
ciao, hal

 Ops... [CUT]
Grazie per la dritta, ci sono arrivato per piccoli step.
Posto la soluzione trovata per chi avesse un problema simile (ho usato
mssoap1.dll invece di mssoap3, la scaricherò dal sito microsoft in seguito)
Dim x As Long
Dim obj As Object
Set obj = CreateObject("MSSOAP.SoapClient")
obj.mssoapinit cstHttpWebService
x = obj.Metodo1("prova")
MsgBox x
Set obj = Nothing


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] IsEven: VB5 non mi riconosce questa funzione.

In un sorgente ho trovato una riga che contiene l' istruzione IsEven,
che però non viene riconosciuta da VB5. La sintassi usata è questa:
If Not IsEven(Counter) Then
	TmpInt = TmpInt * 2
	If TmpInt > 9 Then TmpInt = TmpInt - 9
End If
Che sia una funzione disponibile solo nella versione inglese di VB?
Sapreste dirmi come implementarla?
Grazie a tutti, Gianni Zacchia

...

Newsgroup: it.comp.lang.visual-basic
Titolo: Datareport e form: aiutooo

Salve. Avrei un problema e spero qualcuno mi possa aiutare: devo fare un
report prendendo le informazioni da una form che si chiama profili e fino ad
ora uso questo codice:
Private Sub RepIndicatori2_Initialize()
With Me.Sections("Section1")
.Controls("label2").Caption = Profili.Label8.Caption
.Controls("label42").Caption = Profili.Label9.Caption
.Controls("label39").Caption = Profili.Label10.Caption
e quando dalla form profili metto RepIndicatori2.show mi dice "fonte dati
non valida". Uso il datareport di vb (non crystal) e non so che fare. Grazie
per ogni aiuto!!!

 fare. Grazie per ogni aiuto!!!
Il datareport deve essere associato ad una fonte dati, ad esempio un
recordset.
Se in realtà non l'hai, come a volte capita, basta che tu crei un recordset
con un campo a caso, ci metti 1 record (anche vuoto), e lo associ al
datareport.
Poi il datareport funzionerà.
Ciao
Alberto
--
E non so se avrò gli amici a farmi il coro,
o se avrò soltanto volti sconosciuti,
canterò le mie canzoni a tutti loro
e alla fine della strada
potrò dire che i miei giorni li ho vissuti...

 fare. Grazie per ogni aiuto!!!
Se ho ben capito non gli passi un recordset ma vuoi pilotare tu cosa andrà
scritto nel report. Questo da errore poichè lui si aspetta un recordset.
Io l'ho risolta così:
        ADODB_query_open Conn, "SELECT * FROM Sistema", RsFalso 'Avrò sempre
e solo un record
        'GENERALI DI QUESTO REPORT
        rptStampa.LeftMargin = 0
        rptStampa.TopMargin = 0
        rptStampa.RightMargin = 0
        rptStampa.BottomMargin = 0
        rptStampa.Left = 0
        'Così si crea un report con UNA sola pagina
        Set rptStampa.DataSource = RsFalso
        'Così assegno ad una label un valore che ho preso prima (nel tuo
caso dal form)
        Set lbl = rptStampa.Sections("S1").Controls("Nome")
        lbl.Caption = Nome & " " & Cognome
        '--------- LANCIO REPORT A VIDEO ---------
        rptStampa.Refresh
        rptStampa.PrintReport
Spero ti serva,
Alex

Dim sect, ctl
Dim ContSect, ContCtl As Integer
ContSect = 0: ContCtl = 0
On Error Resume Next
For Each sect In drp.Sections
    ContSect = ContSect + 1
    Debug.Print "Section", sect.Name, "N°", ContSect
    For Each ctl In sect.Controls
        ContCtl = ContCtl + 1
        Debug.Print "  "; "Control N°", ContCtl, "Name :", ctl.Name
        Debug.Print "  ", , "Caption :", ctl.Caption
    Next ctl
Next sect
On Error GoTo 0