mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: ancora su costanti introvabili

ho dato un'occhiata su MSDN per quanto riguarda le costanti di cui non si
trova il valore numerico.
dice che bisogna scaricarsi la Platform SDK, ma sono centinaia di MB !!!!
c'č scritto che lě ci sono gli "headers file" con tutte le costanti...
santo cielo, non c'č una soluzione piu semplice?
ma io mi chiedo, era cosi difficile m,ettere il valore numerico accanto alla
descrizione di ogni singolo messaggio, stile , e via dicendo ??!!
MarioH

 ha scritto nel messaggio
news:9kgfn9$48j10$1...@ID-70152.news.dfncis.de...

Io mi sono installato il Borland C++ 3 che lo danno via aggratis.
Mi apro l'eader file specifico e mi copio il valore della costante.
In alternativa ti puoi scaricare l'api guide da 
www.allapi.net
.
Lě ci sono pressochč tutte le costanti che ti servono.
Ciao


ora cerco un po su allapi, ma se non sbaglio ho gia visto e i mess che mi
interessano non ci sono... non mi ricordo...
grazie
MarioH
PS: perche Borland C++ č gratis ?? che diavolo ci guadagnano a darlo via
gratis?????

 trova il valore numerico.
Prova a guardare
C:\PROGRAMMI\MICROSOFT VISUAL STUDIO\COMMON\TOOLS\WINAPI\WIN32API.TXT
Ciao
Sir Jo

 non si trova il valore numerico.
Windows API Type Library, di Bruce mcKinney. E non ti servirà più una 
sola Declare in tutta la tua vita
Disponibile nei gusti ANSI e Unicode, codice sorgente incluso (ma devo 
ancora trovare un compilatore MIDL che funzioni...).

via gratis?????
cosa vorresti guadagnare su un compilatore senza nient'altro? ma chi 
sei, Bill Gates? considerando che oggi come oggi i compilatori C manca 
poco che li trovi anche in tabaccheria... e comunque Borland fa già 
abbastanza soldi con C++ Builder e Delphi

 abbastanza soldi con C++ Builder e Delphi
Ma io intendevo proprio B. C++ Builder 3 standard.
Ciao


che cosa è?
dove si trova?
me la regalate per il mio compleanno ?
sìììì ??
grazie, non dovevate disturbarvi... ::))))
MarioH

Ma io intendevo proprio B. C++ Builder 3 standard.
beh, sì, neanche questa è una novità. Le versioni vecchie le danno 
gratis. Tanto non le vendono più, non le supportano più, a che scopo 
continuare a sfruttarle?

 continuare a sfruttarle?
tsk.. meglio di come hanno fatto quei fetentoni della Commodore che
si sono portati il Kickstart dell'Amiga nella tomba.
magari facessero tutti come la Borland
p.s. ma non si chiamava Inprise? mah..
--
Fibia "Sakamoto" FBI
E-mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Sito Personale: 
http://www.geocities.com/fibiafbi
VB Simple: 
http://vbsimple.virtualave.net
Membro #25 delle Mitiche Brigate Takahashi sezione Sud

 p.s. ma non si chiamava Inprise? mah..
Sě, ma siccome commercialmente tutti conoscevano la Borland, mentre nessuno
sapeva chi č questa Imprise, hanno deciso (prima di fallire completamente)
di tornare a Borland.
Newsgroup: it.comp.lang.visual-basic
Titolo: [semi ot] Vocabolario con sinonimi e contrari

Salve a tutti,
come da topic, avrei bisogno di un file (meglio se MDB, ma va bene qualsiasi
formato tranne il cartaceo) che contenga un vocabolario italiano con i
termini associati ai loro sinonimi e contrari. Tempo fa trovai qualcosa del
genere proprio su questo NG ma conteneva solo le parole, senza sinonimi e
contrari. Potete aiutarmi?
GRAZIE
Antonio Mirarchi

Il 16/03/2004 23.56, Antonio Mirarchi scrisse:

http://it.openoffice.org/contribuire/thesaurus.html
Controlla il tipo di licenza.
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 Controlla il tipo di licenza.
Ok, lo ammetto: avrei dovuto dire <<qualsiasi formato che riesco ad
aprire>>... Come faccio a leggere il file scaricato da li?
Grazie mille per la risposta, comunque
Antonio Mirarchi

 typed:

AFAIR scaricando il sorgente del thesaurus (secondo link) e ovviamente
installando openoffice per aprire quello che se ho ben capito č un foglio di
calcolo in formato openoffice! ;-)
PS
Hai visto che sono in corso le candidature per le elezioni del WM del SC?
;-)

 ;-)
EHI?? Come faccio per candidarmi???
Antonio Mirarchi

 
Ci sono i sorgenti, non credo sia cosi' complicato passare dai due file 
"compilati" per OOO ad un formato che ti piace di piu'...


 EHI?? Come faccio per candidarmi???
L'hai appena fatto! :P
btw posta un messaggio più esplicito nel thread dal titolo [Sito Comune]
Candidature Webmaster 09/03/2004: attenzione il termine ultimo per
candidarsi è il 19/03/2004 cioè domani! ;-)

Newsgroup: it.comp.lang.visual-basic
Titolo: CRW: PExportOptions

Qualcuno sa esportare un report di crystal report, in formato Excel tramite
le API ?
Grazie

 wrote in message 88ubg6$sv6$1...@news.mch.sbs.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: Circonferenza ciclometrica in VB6

Un saluto a tutto il NG.
Ho la necessità di disegnare un circonfereza che presenti
una scala graduata da 1 a 90
In altre parole considerato il segmento delle ascisse
|-|-|-|-|-|------------------------|
1 2 3 4 5 ......                         90
devo chiuderlo a cerchio facendo coincidere 1 - 90
Data la terna (a,b,c) parametrica devo disegnare il triangolo
inscritto avente per vertici i punti segnati sulla circonferenza
a,b,c.
Qualcuno potrebbe darmi un mano ?
Grazie

 a,b,c.
Crea un form, mettici una picturebox, 3 textbox e 1 commandbutton:
nel codice incollaci questo:
Private XY(90, 2) As Double
Private Sub Form_Load()
Picture1.AutoRedraw = True
Picture1.Circle (Picture1.Width / 2, Picture1.Height / 2), Picture1.Height / 
3
DefinisciPunti
End Sub
Private Sub DefinisciPunti()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
grad = Picture1.Height / 3
xx = 0
For x = 0 To 8 * Atn(1) Step (8 * Atn(1) / 90)
py = (Sin(x) * grad) + Picture1.Height / 2
px = (Cos(x) * grad) + Picture1.Width / 2
XY(conta, 1) = px
XY(conta, 2) = py
' Picture1.Line (Picture1.Width / 2, Picture1.Height / 2)-(px, py)
' Picture1.Print conta
conta = conta + 1
Next x
End Sub
Private Sub Command1_Click()
Picture1.Cls
Picture1.Circle (Picture1.Width / 2, Picture1.Height / 2), Picture1.Height / 
3
p1 = Val(Text1.Text)
p2 = Val(Text2.Text)
p3 = Val(Text3.Text)
If p1 < 0 Or p1 > 90 Then Exit Sub
If p2 < 0 Or p2 > 90 Then Exit Sub
If p3 < 0 Or p3 > 90 Then Exit Sub
Picture1.Line (XY(p1, 1), XY(p1, 2))-(XY(p2, 1), XY(p2, 2))
Picture1.Line (XY(p2, 1), XY(p2, 2))-(XY(p3, 1), XY(p3, 2))
Picture1.Line (XY(p3, 1), XY(p3, 2))-(XY(p1, 1), XY(p1, 2))
End Sub

 [cut]
Ti ringrazio.
ciao

 ha scritto nel messaggio 
news:47a73733$0$10624$4faf...@reader2.news.tin.it...

Per curiosità ..... che tipo di programma del lotto stai svilupando ? 

 ha scritto nel messaggio 
news:47a792f0$0$37207$4faf...@reader3.news.tin.it...

una cosa un po' particolare che non sono riuscito a trovare
in commercio altrimenti lo acquistavo.


Cioe' ...?
E' un segreto o possiamo parlarne magari in privato
perchè qui sono permalosi  :-)))))))

 ha scritto nel messaggio 
news:47a8d505$0$36448$4faf...@reader5.news.tin.it...

L'idea di base è questa :
1) Spazzolare le estrazioni in un determinato arco temporale
    (Access - ADO )
2) Analizzare la distribuzione delle frequenze
   (Generatore Grafici - formati vettoriali - Visualizzatore hpgl)
3 ) Per intersezioni e interpolazioni Ritardi Frequenze Generare i
quadrilateri su circonferenza ciclometrica.
Mediante le classiche serie ciclometriche ti spara fuori le previsioni
(Trapezi isosceli - Quadrati - Triangoli equilateri : Quartine e terzine)
ciao

 ciao
Interessante... ci teniamo in contatto ????
Quando hai un primo beta mi piacerebbe dargli un'occhiata 

 Quando hai un primo beta mi piacerebbe dargli un'occhiata
    OK
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Caption del form quando è ridotto a icona

Salve a tutti,
qualcuno di voi sa come creare un'applicazione che abbia la proprietą
'caption' del form principale fissa (es: "Pippo") e la corrispondente
'caption' nella taskBar variabile (es: contatore).
Per fare un esempio: Quando lancio Norton Antivirus la finestra mostra il
TITOLO dell'applicazione mentre sulla taskbar appare la PERCENTUALE di
sansione.
Per farne un altro: Quando lancio MQMC la finestra mostra 'MQMC32' e sulla
taskbar appare il tempo trascorso durante la connessione.
Spero di essere riuscito a spiegarmi (almeno con gli esempi) ed in un vostro
aiuto
grazie in anticipo
Fabio

 qualcuno di voi sa come creare un'applicazione che abbia la proprietà


 'caption' nella taskBar variabile (es: contatore).
Basta cambiarla nell'evento resize della form principale.
If  Me.WindowState=1 then ' Finestra minimizzata
    me.caption = "La mia applicazione č minimizzata"
Else
    me.caption = "Titolo standard dell' applicazione"
Endif
Se invece vuoi che si aggiorni un contatore, nel tuo loop fai:
For Contatore = 1 to 1000000
    AggiornoLaBarraDiAvanzamento()
    If  Me.WindowState=1 then ' Finestra minimizzata
        me.caption = "Contatore = " & Contatore
    Endif
Next
Ciao
*Roby*

Ciao HellBoy,
innanzi tutto ti ringrazio per avermi risposto sul NG; avrei però ancora dei
dubbi per quanto rigurda le due finestre in questione. Il mio problema è che
non riesco a ricavare le 2 distinte proprietà hwnd di ciascuna form (pensavo
di usare la funzione SetWindowText).
grazie
Fabio

 realizzare tale effetto sono due e non una;
Scusa, ma non basta usare me.windowstate ?
---
News2000 1.01 xVersion 
http://socket2000.8m.com

Newsgroup: it.comp.lang.visual-basic
Titolo: [? - VB6] Passare parametri ad un form

E' possibile passare dei parametri ad un form?
Mi trovo con un form di accesso ai dati che visualizza un record alla volta:
mi piacerebbe sapere come passare un indice numerico al form per poter
selezionare il record che mi serve.
Al momento vado a settare una variabile globale cui accedo dalla procedura
Form_load del form di vusualizzazione dati, ma non credo sia il metodo piů
elegante e pulito.
Ringrazio anticipatamente tutti coloro che sapranno indirizzarmi verso una
soluzione piů corretta.
--
------------------------------------------------------
Domenico Testa - Studente

 elegante e pulito.
Una property del form?

> E' possibile passare dei parametri ad un form?
Un piccolo trucco č quello di usare la proprietą tag del form.

 ha scritto nel messaggio
news:a8ckr5$rhtq9$1...@ID-93284.news.dfncis.de...


 frmDati.ShowData(indice_record)
Bello, e perché non passare anche la modalità di visualizzazione del Form?
Public Sub ShowData(vntData As Variant, Optional intModal As Integer =
vbModeless)
    Me.Show intModal
End Sub
Ciao!
--
Esteban
Hosted by 
www.seber.it
(Remove nonspammare for reply)

 Public Sub ShowData(vntData As Variant, Optional intModal As Integer =
vbModeless)
Public Sub ShowData(vntData As Variant, Optional intModal As
FormShowConstants
= vbModeless)
Precisione!
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Visual Basic e Crystal Reports

Ciao a tutti.
Il mio problema è questo: ho un programma in VB che per stampare dei dati
utilizza dei report creati con Crystal Reports. Il problema è che, mentre
sulla mia macchina (su cui CR è installato correttamente) il programma
funziona, su altre macchine su cui CR non c'è mi da degli errori. Ho copiato
all'interno della cartella C:\WINDOWS\System32 le seguenti librerie:
craxdrt9.dll
crviewer9.dll
crqe.dll
keycode.dll
Dopo averle registrate tutte e quattro tramite il comando regsvr32 parte il
caricamento del report dopodichè mi viene fuori un messaggio di errore:
Errore di run-time '500003': Errore imprevisto
Secondo voi, manca qualche altra libreria ? E se si, quale?
Ciao e grazie

 Secondo voi, manca qualche altra libreria ? E se si, quale?
Implode.dll
P2lsql.dll
P2ssql.dll
se non va ancora, prova a copiare queste 3 dll nella cartella
dell'applicazione
Ciao

Su "it.comp.lang.visual-basic",  ==Calender=> ha scritto: 

Se vai dove hai installato il CR troverai (cerca fra le sottocartelle)
un file Runtime.Chm, dove fra le varie c'è un elenco di DLL da inserire,
e il path dove inserirle.
Io in ogni caso sono passato da CR a ReportManager, è gratuito, più
veloce e basta un OCX.
Naturalmente avevo fatto poche stampe...
Per quello che devo fare lavora benone :)
-- 
Freccia@Buldozzer63 :D

Newsgroup: it.comp.lang.visual-basic
Titolo: ***URGENTE***

Scusate l'irruenza: devo, in giornata, rispondere ad un quesito su VB5.
Mi è stato chiesto di trovare un modo per gestire in VB5 le elaborazioni
asincrone. Si tratta solo di descrivere oralmente il problema e prospettare
una soluzione.
Spero che qualcuno possa aiutarmi.
Grazie.

 asincrone. ...

>Se non ho capito male: più timer abbinati alle diverse aleborazioni...
Forse intendeva la gestione dei thread ?
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Creare una lista con RichTextBox

Ragazzi mi trovo davanti ad un problemino... dovrei creare una lista
sequenziale di numeri con RichTextBox, il che non sarebbe un problema,
incollonnando i numeri.... ehm... mi spiego:
il codice che uso č:
[CUT HERE]------------------------------------------------------
Private Sub CmdStart_Click()
dim Num as Integer
Num = 1
If MsgBox ("L'operazione potrebbe richiedere svariati minuti...
Proseguire?", vbCritical + vbYesNo) = vbYes Then
While Num < 9999
Rtb1.Text = Rtb1.Text + Num 'Rtb č il nome che ho dato a RichTextBox
Num = Num + 1
Wend
[END CUT]----------------------------------------------------------
Il mio problema č che il risultato di questo ciclo č:
12345678910111213 (Ecc..ecc..)
io invece vorrei:
1
2
3
ecc....
------------------------------------------------------------
ho provato con:
Rtb1.Text = Rbt1.Text & (Keyascii = 13) + Num
Ma niente da fare!
ho provato con:
Rtb1.Text = Rtb1.Text & vbEnter + Num
Stesso Risultato!
Preso dalla disperazione ho provato anche con:
Rtb1.Text = Rtb1.Text &vbKeyExecute + Num
Idem....
Beh... non mi rimane molto da dire se non: "AIUUUTOOOO"!!!!
--
Franco A. Politano -- Luvme2times
"Love me two times babe | I'm going awayyyy"
J.M.D.

 ha scritto nel messaggio
news:uHLt6.59837$yl2.2...@news1.tin.it...


Grazie Rea, funziona.... e mi č passata anche un po' di disperazione ^_^
Tnx very much


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

salve a tutti,
scusate non è molto che programmo in c# e ho un problema con il
metodo .OpenCurrentDatabase,
premetto il software realizzato e collaudato con VS2005 e poi
successivamente importato su vs2008.
da quando ho fatto il passaggio 2005-->2008 mi va in eccezione
AccessViolationException con il
seguente messaggio "attempted to read or write protected memory.This
is often an indication that other memory is corrupt"
il .mdb non è protetto ed è modificabile. Non riesco a capire quale
possa essere il problema, se dipende da VS2008
grazie


Sembra piu un problema di qualche dichiarazione, variabile o marshal
copy, e non di accesso al DB.
---------------------------------
www.prioregroup.com
Newsgroup: it.comp.lang.visual-basic
Titolo: TextBox e Word Warp

Ciao a tutti!
Vorrei fare che una mia textbox utilizzata in modalita' multi riga, mi
faccia il word warp (accapo automatico) ogni qualvolta il testo arriva alla
fine della riga (almeno in visualizzazione), come posso fare?
Natuarlmente questo word warp deve variare al variare della dimenzione della
finestra, come succede con notepad...
Ciome posso farE? devo cambiare oggetto o lo si puo' fare anche con questo?
Ciao ;^)=
--
RedFoxy
Web Master of Quantum Leap 
http://ql.programmazione.it

 Ciome posso farE? devo cambiare oggetto o lo si puo' fare anche con
questo?
Poco tempo fa hanno postato una domanda simile; il TextBox multiline fa il
word wrap in automatico purche' *non* sia abilitata la scrollbar orizzontale
(cosa che in effetti ha una sua logica).
Per quanto riguarda la dimesione basta ridimensionare il TextBox
relativamente alla form; l'esempio piu' banale, alla Notepad per l'appunto,
e' utilizzare l'evento Resize cosi':
Private Sub Form_Resize()
Text1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub
Ciao
--
Luca Dormio
luca....@tin.it

 e' utilizzare l'evento Resize cosi':
ok funziona perfettamente ma non posso modificare la text1.scrollbars = 2
(solo verticale) o 3 (entrambe), purtroppo durante l'esecuzione e' solo in
lettura...
Pensavo di usare le api, ma non le conosco bene e sono riuscito solo a
cambiare lo stato di active da tru a false e viceversa, ma non i dati di
scrollbars...
Per disattivare:
    Dim wl As Long
    wl = GetWindowLong(text1.hwnd, GWL_STYLE)
    Call SetWindowLong(text1.hwnd, GWL_STYLE, wl Xor WS_HSCROLL)
    text1.Refresh
Per Attivare:
    Dim wl As Long
    wl = GetWindowLong(text1.hwnd, GWL_STYLE)
    Call SetWindowLong(text1.hwnd, GWL_STYLE, wl Or WS_HSCROLL)
    text1.Refresh
Ma purtroppo cosi' non ho l'effetto voluto (cioe' il cambiare
text1.scrollbars da 3 a 2 e viceversa)...
Consigli?


 lettura...
[SNIP]
Immagino che ti serva per attivare/disattivare il wordwrap come il NotePad,
giusto? Purtroppo non ti so aiutare, tra l'altro nota che se prima di
Text1.Refresh
modifichi la dimensione del controllo, ad esempio con:
Text1.Width = Text1.Width + 10
Text1.Width = Text1.Width - 10
la scrollbar compare, ma disabilitata... non so se bisogna mandare qualche
altro messaggio al TextBox...


 altro messaggio al TextBox...
gia' ma se non faccio text1.scrollbars = 2 per togliere fisicamente la
scrollbar ed attivare automaticamente il wordwarp non mi serve a nulla...
soprattutto se poi voglio riattivarla con text1.scrollbars=3, disattivando
cosi' il wordwarp
bha...
Con le api non si puo' modificare???
Ciao ;^)=


 giusto? Purtroppo non ti so aiutare, tra l'altro nota che se prima di
ho risolto usando la textform 2.0
Anche se non riesco a fargli fare un refresh/partire dalla prima riga quando
c'e' del testo inserito :P

Newsgroup: it.comp.lang.visual-basic
Titolo: Win2000 e stampanti seriali

Ciao a tutti
Ho un problema su Win2000 Pro (senza SP) che mi fa ammattire
Se installo una stampante seriale (di qualunque marca / tipo) e la imposto
su una porta seriale (non ha importanza quale) questa porta non mi viene più
lasciata 'usare' anche se non ho nulla da stampare.
Se da VB6 ho necessita' di usare una porta seriale per collegarmi a dei
dispositivi di vario tipo, e se sulla porta che mi serve è installata anche
una stampante (che non viene utilizzata) quando tento l'apertura della porta
in VB mi viene restituito un errore 8015
(parametri di comunicazione non validi).
Vorrei sapere se l'installazione del SP1 o del SP2 per Win2000 risolve il
problema
Saluti
Giorgio Farinetti
giorgio....@tiscalinet.it

 ha scritto nel messaggio
news:9h9n6q$9bk$1...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [NET] Cancellare un file

Salve,
come da oggetto..come faccio a cancellare un file con 
VB.NET
?
Ringrazio.
galliva

System.IO.File.Delete(fileName)
HTH
-- 
Corrado Cavalli [Microsoft .NET MVP-MCP]
UGIdotNET - 
http://www.ugidotnet.org

Newsgroup: it.comp.lang.visual-basic
Titolo: Come fare debug con parametri command$?

L'applicazione elabora alcuni parametri che le vengono passati in fase di
esecuzione al lancio dell'.exe tipo: miapp.exe "parametri".
Fino ad ora ho fatto debug modificando il codice internamente e mettendo i
parametri all'interno di una variabile.
Ora ho la necessità di fare un debug "vero" non so se ho reso l'idea.
Dall'esegui di win do il comando miapp.exe "parametri" ma non va :-(
Sapete dirmi come si deve procede in questi casi?


specifica il tipo di errore,
o altrimenti possiamo aiutarti ad aiutarci a capire come aiutarti???

 ha scritto nel messaggio
news:43466f1b$0$8477$5fc...@news.tiscali.it...

Menu Project, Properties, linguetta Make, "Command line arguments".
Era quello che ti serviva?
Bye
Raf

"Rafunk" <rafun...@NOTHANKSlibero.it> ha scritto nel messaggio news:di5rfk$18o$1...@alix.livenet.it...

non credo, perche' gli serve nell'eseguibile compilato


io mi son fatto una classettina/routine che scrive un file di log
e per ogni parte "delicata" scrive qualcosa
già che c'ero me lo son fatta che accetta 5 livelli(o più fai te) di
log...da 0 (nessun log) a 4(verbose)
il flag che la controlla lo memorizza nelle preferenze del programma
nel tuo caso potrebbe essere uno dei "parametri"   se c'è logga se non c'è
viene assunto 0 e non fa il log
Logicamente sta "fatica"
la faccio per le beta e/o per le versioni finali di programmi complessi...
o per quei programmi che il cliente ancora non ha deciso come e cosa vuole !


G R A Z I E :-)))))

 o per quei programmi che il cliente ancora non ha deciso come e cosa vuole !
io invece implemento *sempre* un log nelle mie applicazioni.
uno degli usi piu` frequenti e` dimostrare che quando non funziona
qualcosa il problema non sta nella mia applicazione, ma nel
servizio/connessione/programma vattelapesca *non* mio ;-)
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: ad Ettore Maronese

Come č finita con l'OCX? La registrazione?
Attendo una tua risposta da piů di 3 giorni!! Ma dove sei finito!!
Devo ultimare il mio programma! :0)
Hai provato il mio DATABASE che ti avevo inviato?
A me continua a non funzionare!
Ho notato che il tuo ocx non funziona molto bene con i dt che hanno molti
campi.
Attendo risposta in privato 
il_f...@hotmail.com

campi.
Mi hai inviato 3 mails, e ognuna aveva un addr di replay diverso.
Ho risposto a tutte e tre, nello stesso modo. Possibile che di tre mails,
inviate a 3 addr differenti, non te ne e' arrivata neppure una :-?
Dimmi il tuo VERO Addr altrimenti andiamo avanti cosi' per altre 100 volte!
ps) evita di postare qui sul NG.
Salutoni.
ps) chiedo scusa ha tutti per questo OT    :c(
Ettore Maronese

Innanzitutto volevo chiederti scusa perchè ti ho fatto impazzire!!
A te ed a tutto il NG!
Ho avuto un "pò" di problemi con il mio Provider.
Cmq i miei indirizzi sono:
fai...@telmedia.it
 (predef.)
il_f...@hotmail.com
 (nel caso il primo non dovesse funzionare)
Grazie per il codice di reg. e scusa ancora!



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

Qualcuno mi sà indicare dove posso trovare il codice base per una chat in
vb?
È sufficiente che spieghi come inviare e ricevere i messaggi, il resto lo
faccio io...

"Riccardo" <kre...@NOSPAMlibero.it> ha scritto

http://www.acky.net/
http://joseph.vr9.com/
http://www.geocities.com/siliconvalley/network/5045
http://pdesigns.virtualave.net/

Newsgroup: it.comp.lang.visual-basic
Titolo: domanda stupida su query

Buogiorno a tutti, la domanda č banale ma non conosco la sintassi corretta
ho una tabella dove il nome dei campi sono dei numeri che equivalgono a dei 
mesi: 12,24,36,48
devo estrapolare un record che sta in una precisa posizione scelta 
dall'utente
Devo recuperare il record che sta nel tale campo
di solito uso il data environment e il command di vb6
il command sarą = select * from tabella where prm1 = ?"
passo il primo parametro
<if rstabella.state=adstateopen then
 rstabella.close
end if
tabella parametro >
a questo punto mi si posiziona sul record corretto.
ora nasce il problema per recuperare il campo giusto
dim variabile as integer
variabile = rstabella!nomecampo, dove il nomecampo č un'altra variabile 
definita dall'utente in una casella di testo
Non so scrivere questo, chi mi aiuta?
le ho provate quasi tutte
variabile=rstabella!text1.text
variabile=rstabella!&text1.text
variabile=rstabella![text1.text]
ma nessuna funziona
grazie 

 Non so scrivere questo, chi mi aiuta?
Il tuo problema nasce da quella imho dannosa abitudine di usare quella 
sintassi del cavolo, consentita, certo, ma che inevitabilmente porta a non 
capire com'è organizzato l'object model di Ado.
La sintassi corretta sarebbe:
Valore=Recordset1.Fields.Item("Nome_Campo").Value
E visto che "Nome_Campo" è una stringa...
Ciao
Alberto
-- 
E tutto mi sembrava andasse bene...
Newsgroup: it.comp.lang.visual-basic
Titolo: ordinare campi data

Ciao,
ho un DB Access a cui accedo tramite DAO sotto VB6 SP5.
Un campo di questo database (miadata) è di tipo Testo, ma contiene una 
data formattata come gg/mm/aaaa.
Naturalmente se eseguo una query con clausola ORDER BY miadata ottengo 
un ordinamento testuale e non cronologico.
Qual è la soluzione più elegante e semplice - se esiste - per ottenere 
direttamente dalla query SQL il recordset con l'ordinamento cronologico?
Grazie,
Marco / iw2nzm

 direttamente dalla query SQL il recordset con l'ordinamento cronologico?
Potresti provare con
Select DateSerial(right(cognome,4),Mid(cognome,4,2), Left(cognome,2)) as
Espr1 from tabella1 order by DateSerial(right(cognome,4),Mid(cognome,4,2),
Left(cognome,2)
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
Se i tempi non chiedono la tua parte migliore, inventa altri tempi. 
(Baolian, libro II, vv. 16-17)
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio
news:0ZBhf.53869$65.15...@twister1.libero.it...

Nella query, se sei sicuro che il campo miadata contiene solo date valide, puoi
specificare
ORDER BY CVDate(miadata)
Altrimenti ripiega su
ORDER BY IIF(ISDate(miadata),CVDate(miadata),miadata)
Bye
Raf

 ORDER BY CVDate(miadata)
Perfetto, proprio quello che cercavo :)
Grazie anche a Sergio per l'intervento,
Marco / iw2nzm

 Left(cognome,2)
Bravo Melchiade.
Quello che posti, fatto salvo che io farei anche un cast esplicito 
delle sottostringhe in numerico, è l'unico modo corretto.
Da evitare i cast 'semplici', che risentono delle impostazioni 
internazionali.
In Sql-Server, esisterebbe anche la Convert, a cui è possibile passare 
una stringa rappresentante una data, indicando in quale formato debba 
essere interpretata, e torna una data.
Ciao
Alberto
-- 
Si è visto di meglio,
ma si è scopato di peggio,
qualche volta a pago
e non erano neanche sempre donne
[Paolo]

Newsgroup: it.comp.lang.visual-basic
Titolo: Quadratino malefico

Il mio programma crea dei file html, in esso io utilizzo la funzione chr(10)
che corrisponde all'avanzamento riga oppure chr(13) che corrisponde a
ritorno a capo. Il mio programma funziona benissimo se non che quando
visualizzo il mio file con notepad (che probabilmente non mi codifica tutti
i caratteri) il ritorno a capo di visual basic me lo fa vedere con un
quadratino, cosa che non succede invece se uso altri editor di testo come
Cute html. Come posso fare ...c'e' qualche altro metodo che mi permette di
non farmi vedere questo quadratino??
Ciao e grazie
Chiara

 ha scritto nel messaggio
news:97554974...@tango.comm2000.it...

Devi usare chr(13) seguito da chr(10) e vedrai che il quadratino non sarà
più.

 wrote in message
news:pNiV5.67278$DG3.1...@news2.giganews.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: Allocazione memoria per gli oggetti

deV<



Fai come si deve fare... in fin dei conti sono 2 righe in più ma velocizzi anche l'esecuzione poiché
VB non è obbligato a verificare se esiste già un riferimento all'oggetto prima di istanziarlo...
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

 ha scritto nel messaggio
news:8k08etket3buk9pi9...@4ax.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6]Informazioni su MDAC

Ho letto in rete che non è più necessario installare (mettere nel pacchetto 
di installazione) MDAC.
Pare che da XP in poi, sia Jet 4 o 5 (non so a che versione è arrivato) che 
le altre librerie che installava MDAC siano comprese nel sistema operativo.
Vero o falso?
Carmelo 

 siano comprese nel sistema operativo.
In linea di principio, direi decisamente falso.
Comunque hai posto la stessa domanda nel dicembre 2009, ti era stato 
risposto, e adesso la riproponi identica.
Verifica se il tuo newsreader riceve le risposte ai tuoi post, o se il 
problema è più a valle...
Alberto

 problema è più a valle...
...
stra-rotfl 


Io sono rimasto indietro uso ancora DAO 3.6 proprio per non dover 
distribuire MDAC che in passato mi ha dato un sacco di problemi con le 
installazioni.
Adesso vorrei adeguarmi ad ADO quindi devo distribuire MDAC per questo 
volevo sapere, a meno di alternative che non conosco.
Inoltre tempo fa ho scaricato e cercato di installare sul mio pc, l'ultima 
versione di MDAC ma invano, perchè mi dava errore e quindi ho rinunciato.
Non ricordo il tipo di errore mi pare per stampanti HP e comunque in rete 
allora, avevo visto che era un errore ricorrente.
Non ricordavo di aver fatto la stessa domanda, ma se tu sai pure il mese 
allora non mi resta che chiedere scusa!!!
Carmelo
Newsgroup: it.comp.lang.visual-basic
Titolo: Cerco Microsoft Visual Interdev 6.0







Cerco Microsoft Visual Interdev 6.0 per PC, 
italiano  o inglese!!chi ne è in possesso mi scriva a 
daniel...@tiscalinet.it





 wrote in message
news:000a01c068cc$f5c4b3e0$f496953e@o6v8f0...


 ha scritto nel messaggio
news:91le87$shk$1...@stargate1.inet.it...


 ha scritto nel messaggio
news:3zH%5.147560$DG3.2...@news2.giganews.com...


 :))
Forse lui è un puro e non immagina che altri pensino male di lui! :)))

 wrote in message
news:JWH%5.107113$IP1.3...@news1.giganews.com...


...quando tu hai smesso di quotare come si deve :P
Ma veramente secondo la netetiquette lui ha quotato corretamente.
Prima il testo a cui ci si riferisce e poi la risposta.
Ciao
	   :-) Hd (-:
-^- Verso l'infinito e oltre -^-

 ha scritto nel messaggio
news:91q91h$bg2$1...@stargate1.inet.it...

Ti ringrazio per il tuo intervento. Io non avevo minimamente intenzione di
fare della polemica e principalmente non credo di avere offeso nessuno.  Io
ho espresso soltanto la mia opininone. Mi sembra che non sia dovuto a
nessuno il permesso di giudicare moralmente l'altrui comportamento (o qui
siamo in tribunale?). E' effettivamente una possibilità che chi ha
inaugurato questo thread volesse semplicemente ricercare una versione di
"seconda mano" di Interdev. Io, per esempio, ho acquistato Visual Studio 6
Professional, ma alcuni tools non li uso (guarda caso poprio Interdev). So
che non è possibile, ma se lo fosse potrei considerare l'eventualità di
rivenderlo.
Per quanto attiene, poi, alle linguacce (si chiama così la faccina :P; lo
chiedo perchè non sono molto esperto in queste cose) del signor *Alessandro*
le reputo semplicemente un comportamento poco garbato.
Comunque scusate e auguri di buone feste a tutti.


Beh la faccina :-P veramente indica che stai facendo un commento un po'
acido ma in tono cmq scherzoso...
In realta' in effetti (come faceva notare Hd) tu hai quotato benissimo, sono
io che non ci vedo e non me ne sono accorto :)
Cmq (come mi e' stato risposto tempo fa quando dissi la stessa cosa che ora
stai scrivendo tu) nella migliore delle ipotesi il messaggio era OT...
Ciaotutti,
Alessandro
Newsgroup: it.comp.lang.visual-basic
Titolo: -> internet transfer control (vallo a capire)

x scaricare delle pagine da internet uso il metodo OpernURL del
controllo *internet transfer control*.
Se xo' a questo punto qualcuno mi desse qualche spiegazione,gliene
sarei davvero grato.
Innanzitutto la meta' delle volte mi da errori di time-out,mentre se
vado ad aprire la pagina col normale browser (come tutti i comuni
mortali),il sito si apre tranquillamente. Daccordo che un sito puo' in
certi momenti essere affollato,ma al 90% dei casi tutto va bene. Xche'
mi da questi falsi allarmi?
Ma la cosa + incredibile e' che a volte va in time-out,anche aprendo
un file locale,ad esempio:
Inet1.OpenURL("file://c:\x.htm")
Onore e lode a chi ci capisce qualcosa!!
-- 
Rispondetemi solo sul newsgroup. Grazie
    (il mio indirizzo e' alterato)

Se hai la versione di IE 5.0 o 5.1 ti da questi errori con l'area Ftp!
Io mi sono dannato per parecchi giorni ed ho dovuto installare IE 4.0,
vedrai che poi ti va!
E' un bug di Bill
Se ti da ancora errori fammelo sapere!



Se hai la versione di IE 5.0 o 5.1 ti da questi errori con l'area Ftp!
anche con l'area http!!

Newsgroup: it.comp.lang.visual-basic
Titolo: WNetVerifyPassword

Ciao a tutti!
Ho bisogno di fare un confronto tra una password digitata da un utente su
una TextBox e quella dell'utente che ha acceduto al sistema.
Su vari siti ho trovato un' API (WNetVerifyPassword) che dovrebbe permettere
di fare con semplicità questa operazione.
Però quando provo ad eseguire la funzione il programma mi dà errore:
    sostanzialmente dice che il file mpr.dll non contiene questa funzione.
    Il sorgente è scritto bene anche perchè l'ho copiato da fonti diverse.
Grazie a tutti!!!
Ciao
Adamo

Adamo ha scritto:

Il guaio e' che questa funzione e' disponibile in win95 (e credo pure 98+Me)
ma non esiste in NT (4 e 5).
Per NT (e 2000), dove suppongo ti venga sollevato l' errore, cerca
info su LogonUser.
hth, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: DAO350.DLL non trovato..

Improvvisamente VB6 sp5 non mi parte piů...
finestra di errore:  Impossibile trovare DAO350.DLL
ma nel sistema il file c'č.. e piů di una volta...
qualcuno sa di che trattasi ???
please please please
Alessandro Cappelli

 qualcuno sa di che trattasi ???
Prova a riregistrarlo (ma temo che sia accaduto anche altro...)


Se per riregistrarlo intendi reinstallarlo, ho scaricato l'ultimo MDAC 2.7 e
installato..
ma nisba..
VB6 non parte...
continua a dire che non trova DAO350.dll..
tra l'altro nel sistema c'è adesso, ma anche prima, DAO360.dll....
un altro aiutino ????
:)
Ale

Era successo anche a me su una macchina di un collega.
Non so cosa avesse installato o disinstallato.
Però registrando la dll si era messo tutto a posto.
Ciao
Alberto

 Se per riregistrarlo intendi reinstallarlo, ho scaricato l'ultimo MDAC 2.7
e
Per registrarlo mi sa che intende regsvr32 nomedlldaregistrare


L'ho riregistrato (dopo averlo comunque copiato a mano  nella dir
c:\winnt\system32) e adesso VB6 works ......
Grazie a tutti per l'aiuto..
Ale

"Alessandro Cappelli" <acappelli@_TOGLI_iname.com> ha scritto nel messaggio
news:%cGs8.7605$m41.1...@twister2.libero.it...


"Alessandro Cappelli" <acappelli@_TOGLI_iname.com> ha scritto nel messaggio
news:%cGs8.7605$m41.1...@twister2.libero.it...

Bene! A volte l'ipotesi piů banale č quella giusta.
Ora la domanda č (ed č per questo che ho fatto l'uccellaccio nel primo
post):
ma cosa puň essere sucesso? Ed č veramente finita?


Neil Young disse:
rock'n roll never die

Newsgroup: it.comp.lang.visual-basic
Titolo: ? VB PER XP

Ho un prg che e' stato fatto per win98 e funziona tuttora ma l'utente mi ha
chiesto di istallarglielo sul suo nuovo pc dove deve girare su XP .
Siccome e' la prima volta che mi capita chiedo posso istallarlo cosi' come
e' o dovro modificarlo in qualche cosa?
Grazie ciao

 ha scritto

Vai tranquilla (ovviamente con il Setup creato col pacchetto di
installazione).
Se usi DOA/Jet probabilmente dovrai installare il motore Jet che da MDAC_TYP
2.6 non viene più installato (XP credo che abbia di suo MDAC_TYP 2.7)

> "Anna" [...]:

    Se hai fatto uso dell'API verifica che siano compatibili NT.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------
Newsgroup: it.comp.lang.visual-basic
Titolo: Chiamare una procedura fuori dai sub

Premetto che sono alle primissime armi con visual basic.
Sto realizzando un programma e ho bisogno che alla pressione di diversi
tasti (circa una decina) oltre a delle istruzioni diverse di volta in
volta, venga eseguita una stessa procedura.
Quello che mi chiedo è se esiste la possibilità senza dover inserire in
ogni sub di click questa procedura, di richiamarla da uno qualsiasi dei
sub.
Come avviene a quanto ne so con c++, come se potessi fare un goto 
ma all'esterno del sub in questione.
Spero di essermi spiegato abbastanza, come ho detto non so molto
di questo linguaggio ancora e quindi chiedo umilmente aiuto.
Grazie in anticipo per le risposte
Ciao
Luca
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ma all'esterno del sub in questione.
VB6 o VB.Net?
Per VB6, se gli oggetti sono tutti dello stesso tipo l'unica è fare un array
di controlli e nell'evento click metterci il codice.
Per Vb.Net puoi usare AddHandler/RemoveHandler per agganciare la sub ai vari
oggetti.
Ciao
--
Reporting tool: 
http://www.neodatatype.net
Qualunque mentecatto può scrivere codice che un computer possa capire.
I buoni programmatori scrivono codice che gli uomini possano capire.
[Martin Fowler]

Luca Mrs ha scritto:

Ti crei la tua bella Sub all'interno del form (o in un modulo .bas se
la devi richiamare anche da altre form), dopo di che, in qualunque
punto tu la debba richiamare, fai un bel "Call NomeSub(parametri
eventuali)".
Buon lavoro!
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Semplicissima macro: salvare fileCVS con il nome di dafault ma in formato XLS

Vi contatto perchè ho assolutamente bisogno di questa piccola funzione VBA in
Excel.
Io non programmo in VB quindi per me è arabo...
Ho fatto una macro che mi permette di ordinare in colonne un file CSV
Quello che voglio riuscire ad implementare è il "salva con nome in formato
XLS"
..... quello che mi serve è che al momento del salvataggio i nomefiles CVS
siano mantenuti come nomefiles dei relativi file XLS e siano salvati nella
cartella di dafault (ovvero nella cartella in cui si trovano i files CSV)...
....insomma... qualke cosa di generico... senza che nella macro compaio il
percorso "C:\_WORKS\Sabbioso" e lo specifico nome del file..altrimenti devo
fare una macro per ogni FileCSV
Qui sotto è il codice della macro di Excel
Sub csv_xls()
'
' csv_xls Macro
' Macro registrata il 28/01/2005 da rick
'
' Scelta rapida da tastiera: CTRL+q
'
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited,
_
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=False, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo
_
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1))
    ChDir "C:\_WORKS\Sabbioso"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\_WORKS\TD0206d0001.xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Praticamente non vorrei nessun ChDir... perche il file XLS deve essere
salvato nella stessa cartella di dove si trova il file CSV di turno
e inoltre il filename del XLS deve essere lo stesso del CSV....
pippo.csv si chiamerà ancora pippo.xls
pluto.csv si chiamerà ancora pluto.xls
Questo è tutto....
So che per chi si intende di VB il mio quesito è una sciocchezza, ma è una
vostra risposta che potrebbe "salvarmi tanto sudore inutile"
Sperando in vostri aiuti e contributi, vi ringrazio tutti anticipatamente,
Ciao,
	Rick.

 End Sub
-- 
( )---cucchiaino

> End Sub
PERFETTO!!!! WOW!!!!!!!!
Praticamente hai inizilizzato 2 variabili Q e P con parametr idi sistema di
excel e poi le hai composte con gli "&" ?? vero?
ala variabile q ero arrivato empiricamente scartabellando come un segugio su
internet.... ma alla "p" non sarei mai riuscito!!!
SEI STATO GENTILISSIMO!!!!! 
In questo e in tanti altri momenti furuti UNA PERSONA ..anzi DUE PERSONE...
TI STANNO Ringraziando e LODANDO!!
GRAZIE!!
e w usenet!
Siete fantastici!
Ciao,
	Rick.
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT]Tabella nazioni

 Mi servirebbe un File Nazioni Completa(aggiornata se possibile), una volta
c'era nei meandri del mio HD.
Non è che qualche anima pia potrebbe essermi di Aiuto con qualche link
Grazie
Ciao Alessandro
--
Morfeus®
Free Joint
:PII

 Ciao Alessandro
Ciao Mik

 
http://www.tkk.it/adal/var/tb_rare.htm
altrimenti 1 mese fa c'era un post identico al tuo , CERCA !

Morfeus® wrote:
<snip>
Peccato... mi eri simpatico...
PLONK
Andrea

 altrimenti 1 mese fa c'era un post identico al tuo , CERCA !
Scusa cercherò di cercare la prossima volta



Ok va bene il plonk,tanto oramai è una moda.
Ma ti prego qualcuno potrebbe spiegarmi dove ho sbagliato?
che non ho cercato su google? e va beh e che fù ,ho anche chiesto scusa già
prima,casomai lo faccio adesso per quelli che verranno.
Quasi quasi con tutti quelli che mi plonkano ormai ne conto 3,ma forse sono
di più, potrei aprire un commercio di *PLONK* tu che ne pensi?
D'ora in cambierò Morfeus® in Plonked®


 
http://www.tkk.it/adal/var/tb_rare.htm
Grazie ,non so se s'era capito ma era rivolto a te


 Alessandro
Mik

 Non ho capito un c...o ma VIVA ADO ;)
ma va a caghèer!

 ma va a caghčer!
Suona meglio di Plonk ;) :)
--
MorfeusŽ
Free Joint
:PII

 [SNIP]
*SIGH*
E poi ti domandi perche' ti danno del troll e ti plonkano!
Lokar
-- 
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
UGIdotNET - 
http://www.ugidotnet.org

 ma va a caghèer!
io farei così Lupo....registrati un bel wav con il "vai a cagher"....anche
perchè voi siete troppo forti quando lo dite e mettilo come link quando
serve!!!
io metterò i miei analoghi...solo che ce n'è un po troppi!
"Ma và via fava lessa!"
"Ma va via bischero"
"Ma va a caàa lupini"
etc etc
quale registro?
ROTFL
--
Il Wodkino Nazionale è a : 
www.martek.it
Pagina Vb/Bestiario/Lamer Experience :
http://www.martek.it/go.asp?portamia=2
 Quotefix e altro:
http://www.martek.it/go.asp?portamia=4
Usr: ICLVB Pw: amici

Newsgroup: it.comp.lang.visual-basic
Titolo: Ankora DLL (spero l'ultima :))

Come risolvere il problema "Impossibile trovare il punto di ingresso della
DLL.. " ?
10x
:-P

DLL.. " ?
quando dice cosi' vuoi dire che non trova il punto dove comincia la
funzione dichiarata. Verifica che nella dll esista realmente quella
funnzione...
Ciao!
Davide
-- 
Volontario Anti-Troll (TM) 
SecurFaq: 
http://members.nbci.com/gouldukat/
DocTrolls: 
http://it.geocities.com/roccopapaleo/faq/italiano/Troll.html
Netiquette: 
http://www.inferentia.it/netiquette/dis.html

 DLL.. " ?
Onestamene non credo di aver capito bene cosa stai cercando di fare... cmq.
se ti interessa il P.E.P. (Program Entry Point) di un file Dll non devi far
altro che disassemblarlo con un programma stile "WDASM89" e lo trovi.
Se invece ti interessa sapere in quale punto della dll c'è una determinata
funzione allora non credo di poterti aiutare...
-- Luvme2times
"Love me two times babe | I'm going awayyyy"
J.D.M.
Newsgroup: it.comp.lang.visual-basic
Titolo: Partita IVA

Qualcuno conosce il modo per validare la Partita IVA?
So che l'ultima cifra rappresenta il codice di controllo, ma non conosco
come questo codice di controllo venga calcolato.
Sapete come viene calcolata?
Grazie

 Sapete come viene calcolata?
Eccoti un esempietto. In realta' e' per ASP ma dovrebbe
andar lo stesso
Function CheckCodiceFiscale(sz_Codice)
 Const ALF1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
 Const CIF1 = "01234567890"
 Const ALF2 = "BAKPLCQDREVOSFTGUHMINJWZYX"
 Const CIF2 = "10   2 3 4   5 6 7 8 9    "
 Dim c_Char
 Dim c_Code
 Dim n_Count
 Dim lcv
 sz_Codice = Left(UCase(sz_Codice) + Space(16), 16)
 For lcv = 2 To 14 Step 2
  c_Char = Mid(sz_Codice, lcv, 1)
  If (c_Char >= "0") And (c_Char <= "9") Then n_Count = n_Count + Instr(CIF1, c_Char)
  If (c_Char >= "A") And (c_Char <= "Z") Then n_Count = n_Count + Instr(ALF1, c_Char)
 Next
 For lcv = 1 To 15 Step 2
  c_Char = Mid(sz_Codice, lcv, 1)
  If (c_Char >= "0") And (c_Char <= "9") Then n_Count = n_Count + Instr(CIF2, c_Char)
  If (c_Char >= "A") And (c_Char <= "Z") Then n_Count = n_Count + Instr(ALF2, c_Char)
 Next
 n_Count = 1 + ((n_Count - 15) Mod 26) + 64
 c_Code = Chr(n_Count)
 c_Char = Mid(sz_Codice, 16, 1)
 CheckCodiceFiscale = False
 If c_Code = c_Char Then CheckCodiceFiscale = True
End Function
Function CheckPartitaIVA(sz_Codice)
 Dim n_Val
 Dim n_Som1
 Dim n_Som2
 Dim lcv
 CheckPartitaIVA = False
 If IsNumeric(sz_Codice) = False Then Exit Function
 If CDbl(sz_codice) <= 0 Then Exit Function
 For lcv = 1 To 9 Step 2
  n_Val = Asc(Mid(sz_Codice, lcv, 1)) - Asc("0")
  n_Som1 = n_Som1 + n_Val
  n_Val = Asc(Mid(sz_Codice, lcv + 1, 1)) - Asc("0")
  n_Som1 = n_Som1+ Int((n_Val * 2) / 10) + ((n_Val * 2) Mod 10)
 Next
 n_Som2 = 10 - (n_Som1 Mod 10)
 n_Val = CDbl(Mid(sz_Codice, 11, 1))
 If n_Som2 = n_Val Then CheckPartitaIVA = True
End Function
--
Fibia "Sakamoto" FBI
URL: 
www.geocities.com/fibiafbi
E-Mail: 
fibi...@hotmail.com
ICQ UIN 63586057

> albi:

Trovi l'algoritmo sul Sito comune di questo ng:
 
http://www.murialdo.it/it_lang_vb
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 wrote in message
8tmbvv$98j$1...@lacerta.tiscalinet.it...


 ha scritto nel messaggio
news:8tm8g6$4u8$1...@nslave3.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Query da SQL Server a Tabella Locale, come ??

Passo una query ad una tabella su Server SQL e voglio creare una
tabella su un database access in locale.
Come posso fare ?
Grazie  a tutti

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

On Wed, 15 May 2002 12:48:47 GMT, 
fabr...@yahoo.it
 (fabrizio) wrote:
Mi spiego meglio:
Voglio creare un tabella su un db access locale prendendo i dati con
una query da un db sql server.
Grazie

Newsgroup: it.comp.lang.visual-basic
Titolo: IP fisico di una sk di rete

Ciao a tutti,
 ho visto che digitando nel prompt dei comandi : ipconfig / all
mi da l'indirizzo fisico es. (00-90-04-3F-AC-2H) della sk di rete.
Qualcuno sa come ricavare quasto parametro in vb.
Grazie
Enzo

 ha scritto nel messaggio
news:ccdvpp$c5s$
1...@fata.cs.interbusiness.it

Si chiama mac address e lo puoi ricavare con:
http://www.scottandmichelle.net/scott/code/code-063.html
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
"Seminate Linux, che Windows si pianta da sè...." (Antico Adagio)
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Come inviare e ricevere DATI tramite Porta Parallela LPT????

Dovrei inviare e/o ricevere dati tramite la porta parallela del mio PC utilizzando un programma scritto in Visual Basic. Chi è che ha un help, un pò di codice, qualsiasi cosa che mi aiuti a capire come si fà ad usare la porta parallela tramite VB ????. Grazie.
--
Posted from [194.184.149.42] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
news:20000726130742.JOB978.fep07-svc.tim.it@[127.0.0.1]...


Newsgroup: it.comp.lang.visual-basic
Titolo: Traduzione Funzione

La seguente linea di codice, premettendo che tabella è una matrice di
stringhe cosa fa?
RetStr = RetStr & tenCars(tabella(p, q))
O meglio a cosa serve tenCars?
Ho bisogno di tradurre un software da vb a pascal e vorrei trovare
l'equivalente in pascal (delphi) di tale funzione.
Chi mi da una mano?
Grazie.
Ciao.
--
Karletto
chiamac...@tiscalinet.it
http://www.carletto.cjb.net

 O meglio a cosa serve tenCars?
che io sappia non è funzione predefinita, mai sentita e cmq nella guida non
è presente...
nel sorgente non c'è una fiunzione con questo nome?


D'Oh...
Che idiota che sono... Ea la prima cosa che dovevo vedere...
Infatti nell'help del vb non la trovavo nemmeno io ed ero straniato da
questo...
Avevi ragione...
Che zuccone che sono.
Ciao e grazie.

Newsgroup: it.comp.lang.visual-basic
Titolo: Tasto destro mouse ...

Vorrei sapere nell'evento click di una form, se viene premuto il tasto
destro o quello sinistro del mouse;
Come posso fare ?
Ho visto anche che nel mouse move è presente un Button As integer che
ritorna il tasto premuto, ma se io mi sposto sulla form con il tasto già
premuto non entra nell'evento, mentre se mi sposto sul componente prima di
premere, intercetta l'evento senza la pressione del mouse.
C'è qualche cosa che non considero ?
Grazie, Giacomo 
ande...@tin.it

 premere, intercetta l'evento senza la pressione del mouse.
Infatti Mouse_Move è scatenato dal movimento del mouse sul controllo
relativo, indipendentemente dalla pressione del tasto dx o sx. Se ti serve
'reagire' alla pressione del button nell'evento mousemove non devi far altro
che inserirci un If Button=1 (per il tasto sx) o 2 (per il dx) o 3 (per
entrambi)
Ciao
Daniele
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------