mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: ?GradientFillRect

Devo usare un colore gradient (da chiaro a scuro) su una pictute, ho 
scaricato un esempio che usa GradientFillRect.
Il gradiente (giustamente) comincia dal top della picture, a me serve invece 
che inizi da metà.
Modificando qualche parametro della struttura TRIVERTEX è possibile arrivare 
al mio scopo?
Grazie Carmelo 


non è possibile in un sol colpo.
Fai 2 Gradient inversi per META' sezione il primo da SX a Metà ed il 2° da
Metà a DX.
Inverti i colori iniziale e finale in mofo che s'inverta l'effetto ed
ottieni quello che hai chiesto(o meglio quello che
ho capito)
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: codice a barre

come si gestisce una pistola per leggere i codice a barre con visual
basic,chi mi spiega qualcosa al riguardo.

...


 wrote in message
7ulaj6$s08$3...@nslave1.tin.it...


...


Newsgroup: it.comp.lang.visual-basic
Titolo: Contare il numero di occorrenze trovate in un array

Salve a tutti,
Ho la necessità di trovare quante volte un dato valore si ripete in un 
array, o meglio, quanti elementi uguali ci sono:
Ad esempio:
Dim ar() As Short = {1, 2, 3, 4, 2, 2, 1}
E quindi la funzione mi dovrebbe restituire 3 in quanto 2 si ripete 2 volte 
e 1 una volta.
Come faccio?
C'è qualcosa di già pronto?
Bye,
-- 
Carmine ( 
pikachu...@gmail.com
 (Togli la scritta NOSPAM) )
Webmaster di The Total Site 4 : 
http://www.thetotalsite.it
MariokartDS Codice Amico: 532639027909 - CarmineC in MarioKartDS 

 ha scritto nel 
messaggio news:dvc35j$kue$1...@area.cu.mi.it...


Grazie mille!

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Array ridimensionabili

Vb6
Come faccio a rilevare il numero di righe in un'array ridimensionabile, nel
quale i dati ad esempio sono stati immessi tramite una funzione "split"??
Esiste un metodo immediato???
Spero di essere stato chiaro....
Grazie...

Ciao, puoi usare UBound e LBound, che ritornano il limite superiore e
inferiore di un array, es:
Dim mioArray$()
dim i&
mioArray=Split(Stringa,";")
for i = 0 to ubound(mioArray)
    ...
next i
Ciao Luca

Newsgroup: it.comp.lang.visual-basic
Titolo: Insert di Date

Ciao a tutti !
Ho un grosso problema con l'insert di una data in una tabella Access 97 da
Visual Basic.
conn.execute "INSERT INTO table VALUES ('Code', #08/01/02#,....
Come posso essere sicuro che questa data venga interpretata come 8 Gennaio e
non come 1° Agosto ?
Esiste una maniera "sicura" per definire il formato della data ?
E' strano, poiché guardando in debug la stringa che viene composta, (usando
Day, Month e Year) ottengo i valori corretti di giorno mese e anno... eppure
sul DB mi finisce al contrario !!!
Grazie x l'attenzione
--
Fabio GRANDE
fab...@NOSPAMfileita.it

 wrote in message
a1mmt2$di9$1...@fe2.cs.interbusiness.it...


 Visual Basic.
Formattala cosi':
Format$(_data, "YYYY/MM/DD")
ed usa gli apici singoli per delimitarla.
cioe', ad es.:
objConnection.Execute "INSERT INTO TABELLA(CAMPODATA) VALUES('" &
Format$(_data, "YYYY/MM/DD") & "');"
Bye... aldus


Ho avuto le stesso problema sempre in Access.
Il discorso dei nomi dei campi non centra nulla in quanto l'indicazione dei
campi è facoltativa(anche se fortemente consigliata!)
Io ho risolto una volta per tutta convertendo la data in un long
 e nel momento dell'inserimento la convertivo al volo(Format(Data,
"dd/mm/yyyy")). Nelle query per confrontarla con altre date presenti in
access convertivo le date il long ... clng(data)
é un po macchinoso però è l'unico modo che ho trovato per riuscire a gestire
le date in VB.
Saluti
Matteo


In genere i DB usano il formato americano.
Comunque se vuoi un sistema sicuro, anche se spartano, puoi fare cosě:
Es.
Dim d as Date
d = DateSerial(8,1,2000)
conn.execute "INSERT INTO table VALUES ('Code', " & CLng(d) & ")"
Se ti interessano anche ore e minuti devi stare attento ad usare il "." come
separatore decimale:
d = Now()
conn.execute "INSERT INTO table VALUES ('Code', " & Replace(CDbl(d),",",".")
& ")"
Consigliata una bella funzioncina do conversione :)
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Combo Box e salvataggio dati

Salve a tutti,
ho questo piccolo problema:
Dovrei valorizzare il recordset rs cosě come segue:
   rs!IdAzienda = cboAzienda.ItemData(cboAzienda.ListIndex)
   rs!IdGruppo = cboGruppo.ItemData(cboGruppo.ListIndex)
Bene, il tutto funziona se io clicco sulle combo cboAzienda e cboGruppo, 
e poi salvo, ma se io voglio salvare senza cliccarci in cima, nisba..
Ovviamente valorizzo correttamete gli ItemData come segue:
     cboAzienda.AddItem rs!DescrizioneAzienda
     cboAzienda.ItemData(cboAzienda.NewIndex) = rs!IdAzienda
     cboGruppo.AddItem rs!DescrizioneGruppi
     cboGruppo.ItemData(cboGruppo.NewIndex) = rs!IdGruppo
Ringrazio anticipatamente.
PS Se mi sono spiegato male, fatemelo notare. CIAOOO

Si', ti sei spiegato male :-(
ciao, hal

 ciao, hal
Ok, mi spiego piů semplicemente:
come posso valorizzare la prorpieta' LISTINDEX del controllo combo senza 
cliccare sul controllo stesso.
Questo perche' sembra che, nonostante ci sia gia' selezionato quello che 
voglio, non prenda il valore Listindex corretto (in effetti mi segnala 
sempre -1)
Credo che spiegato cosi' sia piu' immediato.
Grazie
Enrico

 sempre -1)
Credo che questo possa succedere se lo stile del combo e' "dropdown combo",
quando cioe' puoi anche scrivere un valore arbitrario nella casella di testo; in
questo caso se il valore *scritto* coincide con uno di quelli presenti in lista
l'elemento non risulta comunque selezionato e quindi ListIndex vale -1.
Se l'utente e' obbligato a selezionare solo tra i valori proposti allora ti
conviene cambiare la proprieta' Style del combo a "dropdown list" e sei a posto,
altrimenti devi allineare tu il testo con la lista, ad esempio cosi':
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
 (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)
As Long
Private Const CB_FINDSTRINGEXACT = &H158
Private Const LB_FINDSTRINGEXACT = &H1A2
Function FindListComboText(ctlListCombo As Control, ByVal strSearch As String)
As Integer
'Nota: la funzione puo' essere applicata indistintamente a controlli ComboBox e
ListBox
Dim FindMsg As Long
If TypeOf ctlListCombo Is ComboBox Then
    FindMsg = CB_FINDSTRINGEXACT
ElseIf TypeOf ctlListCombo Is ListBox Then
    FindMsg = LB_FINDSTRINGEXACT
Else
    'il tipo di controllo non e' supportato;
    'restituiamo -1
    FindListComboText = -1
End If
'se il controllo passato era uno dei 2 supportati chiamiamo la funzione,
'il valore restituito sara' l'indice dell'elemento trovato oppure -1 se non
'c'e' corrispondenza
If FindMsg <> 0 Then
    FindListComboText = SendMessage(ctlListCombo.hWnd, FindMsg, -1&, ByVal
strSearch)
End If
End Function
a questo punto, per cercare la stringa in lista, e' sufficiente chiamare
cboAzienda.ListIndex = FindListComboText(cboAzienda, cboAzienda.Text)
in ogni caso dovrai controllare che listindex sia diverso da -1 prima di
aggiornare il tuo recordset.
Ciao
--
Luca Dormio
luca....@tin.it

Luca Dormio wrote:

Sembra funzionare, ho usato il primo metodo.
Ti ringrazio moltissimo
Enrico
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema accesso database access

Ciao a tutti,
in una piccola applicazione che sto sviluppando per imparare a
programmare in VB6, quando eseguo questo codice:
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
cmd.CommandText = "SELECT * FROM libri WHERE autore1 LIKE '*" &
txtCerca.Text & "*'"
cmd.ActiveConnection = "Provider=Microsoft.jet.oledb.4.0; DataSource=
E:\libri.mdb"
Set rs = cmd.Execute()
ottengo il famigerato errore "Impossibile trovare ISAM installabile".
Il database e' fatto in access XP. 
Cercando su google ho visto che molti consigliavano di installare la
SP5 di VB (che gia' ho installato) e di aggiornare l'MDAC. Io ho
installato la 2.7SP1 ma non ho risolto nulla. Ho provato ad installare
anche JET 4.0SP3, anche se non uso DAO, ma niente.
Non riesco proprio a capire dove stia il problema anche perche' se uso
il controllo ADODC con i relativi metodi (Find, Filter, ecc.) accedo
al database che e' una meraviglia...
Anche i riferimenti nel progetto mi sembrano ok, ADO 2.7 library č
selezionato...
Se qualcuno e' cosi' gentile da farmi capire dove sto sbagliando mi
farebbe un'enorme piacere.
Vi ringrazio anticipatamente.
Darkray
--
Ash nazg durbatlūk, ash nazg gimbatul, ash nazg thrakatulūk
agh burzum-ishi krimpatul

 anche JET 4.0SP3, anche se non uso DAO, ma niente.
Il jet aggiorna solo ADO non DAO ... che è quello che sti usando tu.
-- 
Saluti
Andrea Moro
Sito Comune : 
http://www.it-lang-vb.net

 
La connessione al DB falla tramite le propietą dell'Adodc č + sicuro
Nel Recordsource nel tipo di command scegli adCmdText, sotto dove ti
chiede nome tabella scrivi la tua query in modo corretto.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.visual-basic
Titolo: problemino con shell

se io voglio usare il comando Shell per avviare un file Zip, o Doc, mica
devo richiamare prima WinZip o WinWord? eppure se io scrivo Shell
"C:\Documenti\Prova.zip" o "C:\Documenti\Prova.doc" non funziona... come
devo fare?
mario

 ha scritto nel messaggio
news:LU0%5.2650$ag5.1...@twister1.tin.it...


pardon, c'è l'Api ShellExecute...

 ha scritto nel messaggio
news:LU0%5.2650$ag5.1...@twister1.tin.it...


aspetta, queata di "start" mi č nuova... me la spieghi? questa parola non
l'ho trovata sulla guida del comando Shell... tu dove l'hai pescata?
ciao
mario

 wrote in message
news:iY4%5.2903$ag5.1...@twister1.tin.it...

Non mi piace molto usare start, preferisco l' api ShellExecute oppure
OpenProcess per le operazioni piu' sofisticate, pero' bisogna ammettere che
puo' essere utile in molte occasioni.
Digita sul prompt dei comandi "start /? > start.txt", quindi leggiti
comodamente l' output.
Ciao
Aldo

l'ho trovata sulla guida del comando Shell... tu dove l'hai pescata?
start.exe
un programma che richiama ShellExecute da riga di comando
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] ActiveX per Comprimere - Decomprimere

Dove posso trovarlo?......o acquistarlo?
Grazie a chi mi dà una mano! :-)))))

 ha scritto nel messaggio
news:bNDq7.12242$Lp6.4...@news.infostrada.it...


 writes:
a> Dove posso trovarlo?......o acquistarlo?
a> Grazie a chi mi dà una mano! :-)))))
BigSpeedZip OCX viene 90 US $...
--
Gian Uberto| main(){printf(&unix["\021%six\012\0"],(unix)["have"]+"fun"-0x60);}
Lauri      |                        David Korn, 1987 ioccc best one liner 
(aka saint)|-------------------------------------------------------------------
em@ail: 
sa...@eng.it
 ( vedere X-nospam nello header - see X-nospam in header )

 Dove posso trovarlo?......o acquistarlo?


Zip e Unzip VERI con 2 DLL che trovi qui (con progetto di esempio):
http://codeguru.earthweb.com/vb/articles/1854_cgziplib.zip

 writes:
R> Zip e Unzip VERI con 2 DLL che trovi qui (con progetto di esempio):
Come la mettono col brevetto Unisys ?


 Come la mettono col brevetto Unisys ?
ma unisys non riguardava il gif ?
zip/unizp credevo li avesse inventati phil katz, da cui pkzip
j.zip

 Come la mettono col brevetto Unisys ?
BOH, prova a chiederglielo...!!!
:o)

> Come la mettono col brevetto Unisys ?
j> ma unisys non riguardava il gif ?
Se non erro ZIP usa l'algoritmo di compressione LZW usato da gif, zip,
compress... e  il cui brevetto  è in mano  a Unisys...  Gli  autori lo
pubblicarono su una rivista senza specificare che avevano richiesto il
brevetto...


Grazie a tutti! :-)))))

Newsgroup: it.comp.lang.visual-basic
Titolo: Visualizzatore di testo Api

Ciao,
ho sentito parlare del visualizzatore di testo Api (Api text Viewer), ma
qualcuno di voi potrebbe gentilmente spiegarmi più o meno a cosa serve?
Io l'ho aperto e ho caricato il file di testo "Mapi32.txt". Ad esempio come
si utilizza una dichiarazione del tipo:
Public Declare Function BMAPIAddress Lib "MAPI32.DLL" (lInfo&, ByVal
Session&, ByVal UIParam&, Caption$, ByVal nEditFields&, Label$,
nRecipients&, Recip() As MapiRecip, ByVal Flags&, ByVal Reserved&) As Long
è una funzione già creata o cosa?? Come faccio a capire cosa devo dare in
input e cosa ne esce fuori(se qualcosa ne esce)?
Dico questo perchè ho usato l'oggetto mapi in un form per prelevare i
messaggi di posta da OE , nella cartella posta in arrivo (a proposito,
qualcuno sa dirmi come posso fare se invece voglio prelevare i messaggi da
un'altra cartella personale?), ma tutto senza usare niente del
visualizzatore api, come avrei dovuto fare?
Scusate, ma sono un autodidatta(più o meno) e ho le idee un pò confuse sulle
Api....
grazie a tutti e ciao,
Gen
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Msdn subscriptions

Qualcuno riesce ad accedere ai downloads dei msdn subscribers
http://msdn.microsoft.com/subscriptions/
 ?
volevo scaricare la Rc1 di vista, ma da una settimana a questa parte
non si riesce a loggarsi...
thanx
UT (job)

Under T (Job) wrote:

Ciao,
appena provato: funziona perfettamente...
File: en_vista_rc1_5600_x86_dvd.iso ISO-9660 DVD Image 
File Size: 2584 MB 
Description:
This download is the RC1 build of Windows Vista.
This single download includes the following versions of Windows Vista:
Windows Vista Ultimate 
Windows Vista Business 
Windows Vista Home Premium 
Windows Vista Home Basic 
saluti!
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca


Provato adesso adesso. Ok.
-- 
---------------------------
Mauro Gamberini
http://www.riolab.org/
 

 
ora funzia anche da me... ci provo..
grazie

 
ora funzia anche da me... ci provo..
grazie

 
ora funzia anche da me... ci provo..
grazie

Newsgroup: it.comp.lang.visual-basic
Titolo: Stampa su moduli 203x127

Ho dei moduli continui di larghezza 203mm  con salto pagina ogni 127mm usati
per la stampa di bolle.Vorrei sapere quali metodi esistono per stampare da
applicazioni Vb6??
Come si può stampare per permettere il salto pagina regolare??
Esiste un driver di qualche stampante ad aghi con altezza 203mm???
Grazie

 ha scritto nel messaggio
news:GBPa8.17202$Jo.4...@twister2.libero.it...


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

Mi sapreste dire come posso tracciare linee che sembrino incavate? E del
testo con lo stesso effetto? Grazie mille a tutto il newsgroup.

 testo con lo stesso effetto? Grazie mille a tutto il newsgroup.
Per le linee io ho fatto così:
- creo una linea con le seguenti proprietà:
    BorderColor = &H00404040&
    BorderWidth = 2
- nella stessa posizione e con le stesse dimensioni della prima linea creo
una nuova linea con le seguenti proprietà:
    BorderColor = &H00FFFFFF&
    BorderWidth = 1
- mi assicuro che la seconda linea sia in primo piano rispetto alla prima.
In questo modo ottengo una linea con aspetto incavato. Semplicemente, per
ottenere l'effetto in rilievo inverto i colori delle due linee.
Non ho provato, ma come per le linee, anche con le label dovresti creare 2
label con la stessa caption, con colori diversi (una scura e l'altra
chiara), impostare la trasparenza dello sfondo per la label in primo piano e
sovraporre le label avendo cura di spostare una rispetto all'altra di uno o
più pixel sia sull'asse X che sull'asse Y.
Ciao!
Esteban

 testo con lo stesso effetto? Grazie mille a tutto il newsgroup.
Per le linee io ho fatto così:

Newsgroup: it.comp.lang.visual-basic
Titolo: Api: verificare esistenza di un programma lanciato

Ha chiunque con un pò di cuore
Ho la necessità di lanciare un programma esterno nella mia applicazione vb5
e di aspettare finche questo programma non finisce, pensavo di mettermi in
attesa sfruttando una qualche api di Windows che mi avvertisse quando il
programma lanciato è terminato
Grazie Davide Dorella

funzione ShellExecute per lanciare
poi attendi con WaitForSingleObject
la tua e' una domanda tipica che ha la risposta su piu' di un articolo di
MSDN

Ho usi il comando Shell, oppure dai un'occhiata sul sito comune...
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

...


Newsgroup: it.comp.lang.visual-basic
Titolo: cripta e decripta

Qualcuno conosce un algoritmo per criptare e decriptare
Grazie
zac...@tin.it



Dipende dal livello di sicurezza richiesto.
Un algoritmo semplice ma di bassa sicurezza, che può essere adatto a
nascondere un copyright in un .exe è il solito vecchio XOR.
Definisci una stringa da usare come chiave.
Prendi la stringa da criptare e, byte per byte, crei una nuova stringa
che contiene lo XOR tra un carattere della stringa di partenza e un
carattere della stringa chiave.
Ripetendo l'operazione con la stessa chiave si decripta e si ottiene
la stringa di partenza.
Ciao
--------------------------------------------------------------------
Fulvio Senore
Eliminate "zz" dall'indirizzo e-mail per scrivermi (spammers...)
Remove "zz" from e-mail address to write me (spammers...)
--------------------------------------------------------------------

...



Newsgroup: it.comp.lang.visual-basic
Titolo: Sostituire in una select SQL il contenuto di una cella Excel

Ciao a tutti.
     Ambiente   VBA 2003 di Excel 2003
Quanto scrivo fa parte di quel progetto che sto sviluppando per il quale
mi ha anche dato una mano Fosco.
Devo "far capire"  ad una macro in VBA che deve leggere il contenuto di
una cella di Excel allo scopo di fare una Query su un file MDB.
"SELECT magazzino.RevName, magazzino.revdes, magazzino.compumis" & Chr(13)
& "" & Chr(10) & "FROM magazzino magazzino" & Chr(13) & "" & Chr(10) &
"WHERE (magazzino.RevName='3003791')" & Chr(13) & "" & Chr(10) & "ORDER BY
magazzino.RevName" _
 
       )
In pratica alla macro di cui sopra ( che funziona ma funziona solo per il
codice 3003791 ) 
devo dire 
"non usare il codice 3003791 per fare la select  ma usa il contenuto della
cella B31 che cambia tutte le volte.
Ciao
grazie
Indriano
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 cella B31 che cambia tutte le volte.
A parte tutti quei caratteri di controllo che non servono a niente 
(basta uno spazio e diventa tutto più leggibile), mi sembra che tu 
conosca già l'utilizzo della concatenazione.
Adesso non ricordo la sintassi esatta dell'object model, ma immagino 
che una cosa del genere, sistemata sintatticamente, possa funzionare:
"SELECT magazzino.RevName, magazzino.revdes, magazzino.compumis FROM 
magazzino magazzino WHERE (magazzino.RevName='" & Cell(x,y).Text & "') 
ORDER BY magazzino.RevName"
Per correttezza, dovresti incapsulare Cell(x,y).Text in un replace 
(sempre che sia disponibile anche in vba), in cui sostituisci ad un 
singolo apice ' una sequenza di due apici:
Replace$(Cell(x,y).Text, "'", "''")
Ciao
Alberto
-- 
Friedrich Nietzsche: Un po' di salute ogni tanto è il miglior rimedio 
per l'ammalato.

 magazzino.RevName='3003791')"
Dim s As String
    Wtith Worksheets("tuoFoglio")
        s=.Range("B31").Value
        '
        '
    End With
        '<cut> magazzino.RevName='" & s & "')" ecc
-- 
---------------------------
Mauro Gamberini
http://www.riolab.org/
 

Ce l'ho fatta !!!
Ho ascoltato un pò i consigli di tutti due:  ho tolto dalla select tutti
quei caratteri di controllo che mi aveva messo in automatico Excel.
Ho usato la sintassi di Gamberini con la sola variante di lasciare l'apice
singolo '3003791'   sostituito da   '& s & '   altrimenti non funzionava. 
  Probabilmente  in paradiso chiederò a Bill perchè devo lasciare i due
apici singoli perchè io non lo capisco. Forse lui lo saprà.
Grazie comunque ad entrambi.
Quello che non capisco e fra l'altro è fontamentale:  come si fa in VBA a
stampare una espressione sql? Quale è l'oggetto da mettere nella finestra
immediata dopo il   print   ?...
    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        .CommandText = Array( _
        "SELECT magazzino.RevName, magazzino.revdes, magazzino.compumis
FROM magazzino magazzino WHERE (magazzino.RevName='" & s & "') ORDER BY
magazzino.RevName" _
        )
        .Name = "Query da MS Access Database"
 
Altra domanda per  Bill.
Grazie  
ciao 

Newsgroup: it.comp.lang.visual-basic
Titolo: APPRENDERE VB

OH!!!! Ma per apprendere Vb che si deve fare??? sono terra terra...
VI RINGRAZIO!!!

 OH!!!! Ma per apprendere Vb che si deve fare??? sono terra terra...
In edicola c'è una ghiotta occasione:
PcProfessionale di maggio offre a 9,90 euro rivista, CD
e manuale VB6 della Microsoft Press (Mondadori).
Abbastanza completo.
--
Er Roscio.

Newsgroup: it.comp.lang.visual-basic
Titolo: Passare un puntatore in VB

 dentro una DLL ?
Non conosco la risposta esatta, ma trovi sicuramente una soluzione qui:
http://groups.google.it/groups?q=safearray&meta=group%3Dit.comp.lang.visual-
basic
Ciao
*Roby*

 si chiami) del VB ?
No, passargli VarPtr(buf(0)) č giusto, ma la funzione deve essere dichiarata
cosě:
declare function vbGetInfo lib... (byval buf as long, byval ric as byte) as
long
Ciao.
--
BSD is for UNIX lovers - linux is for Windows haters

 dentro una DLL ?
Puntatore a un array di byte?
Passa semplicemente buf(0) e dichiara la funzione come (byref buf as byte)
Ciao

 ARRAY di CHAR (quindi di BYTE).
ummm... mi confondo sempre :P
Forse č ByVal buf As Byte nella dichiarazione.
Dato che i dati (hehe) in un SAFEARRAY sono tutti contigui, la parte che
inizia all'indirizzo array.lpvData corrisponde a buf(0), gli altri vengono a
seguire proprio come in un array di char|byte in C.
Ciao
--
using System.Gtk.Forms = "
http://www.neodatatype.net/windowsforms/sgf.aspx
"
mathParser = "
http://www.neodatatype.net
"
sitoComune = "
http://www.it-lang-vb.net
"

 seguire proprio come in un array di char|byte in C.
OK, grazie ancora per l'aiuto. Quindi un'alternativa č raggiungere
l'indirizzo a cui
punta lpvData e da lě muovermi nell'array e riempirlo.
E' possibile ottenere il puntatore a lpv.Data ? Credo di sě. Ma come.
Ciao e grazie.
--------------------------------
Inviato via 
http://usenet.libero.it

 E' possibile ottenere il puntatore a lpv.Data ? Credo di sì. Ma come.
VarPtr(buf(0))
E' per questo che a questo punto tanto vale passare direttamente buf(0)
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Ordine Collettivo LCD grafici 128x64

Ragazzi vedete se qualcuno si vuole aggregare. Sono lcd piccoli da cablare
(una sciocchezza) e utilizzare sia collegato al pc che a un microcontroller,
se vi va :
http://razielweb.altervista.org/modules/newbb/viewtopic.php?topic_id=10&forum=1
Altrimenti scusate per il mezzo spam !
-- 
[Gigio2k]
http://www.g2kweb.it
[ it-alt.comp.hardware.modding ] - 
http://www.g2kweb.it/ichm

Questo e' il post con le discussioni :
http://razielweb.altervista.org/modules/newbb/viewtopic.php?topic_id=8&forum=1



Fammi capire a cosa mai potrà servirmi... :)
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]

 Fammi capire a cosa mai potrà servirmi... :)
umm umm, visualizzare ad esempio tutte le bollette da pagare, oppure
specchiarcisi... e poi ha la lucina blu :p E' sempre carino !

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Come la Text di TextBox

Se definisco un TextBox (ad esempio pippo) in un Form
pippo = "Prova"
equivale a: pippo.Text = "Prova"
Se creo un mio controllo come posso "rendere implicita" la chiamata ad un
membro Get/Let/Set <miaProprietą>?
In C++ si definiva l'operatore "=", ma in VB6 non saprei
grazie,
Marco

 In C++ si definiva l'operatore "=", ma in VB6 non saprei
Per impostare la proprietā di default di una classe devi andare nel menų
(versione ITA) Strumenti|Attributi routine: scegli la property che ti interessa
nel combo in alto, premi Opzioni>> e imposta Predefinita nell'interfaccia
utente.
Ciao
--
Luca Dormio
luca....@tin.it

 utente.
Quello che mi interessava č "ID Routine=(Predefinito)", grazie al tuo
consiglio ho stretto il cerchio e l'ho trovato!
Ciao, M.

 wrote in message
news:9ac64i$4j80i$1...@ID-77380.news.dfncis.de...


 Nessuno di voi ha letto Hardcore VB?
eheheh "Dialog Box From Hell" :-)
si l'ho letto... e infatti mi sono puntualmente confuso nel suggerire a marco
l'opzione da usare!

Newsgroup: it.comp.lang.visual-basic
Titolo: Sito su questo NG

Salve a tutti
Sono appena entrato in questo NG
per ora sto cercando se c'e' un sito di riferimento
come 
www.sitocomune.com
 per access
Ne sapete qualcosa?
Grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 come 
www.sitocomune.com
 per access
Eccolo
http://www.it-lang-vb.net/
Ciao
*Roby*

 Ne sapete qualcosa?
 
http://www.sitocomune.com
    Sezione: Risorse
    [IT] Il sito comune dei militanti del Newsgroup
it.comp.lang.visual-basic
;-)
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

Grazie a tutti
Andrea


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Stampare testo ruotato (VB5SP3)

Qualcuno e' riuscito a stampare del testo ruotato con VB5 SP3?
Io ho prelevato il sito sull'esempio comune, ma ci sto fumando il
cervello per adattarlo alla stampante.... stampa sempre dritto!!!
Grazie a tutti!!!
Roberto


Il testo ruotato funziona SOLO con i fonts TrueType.
--
Roal Zanazzi
z...@iol.it


mi sembra anche giusto che funzioni solo con i TT....
Solo che a video funziona, su stampante no...
Ciao
Roberto
Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Aggiornamento ProgressBar

Cerco di spiegarmi il meglio possibile. Ho una classe dentro una DLL in cui
all'interno c'è una procedura che esegue un lavoro molto lungo. Ho bisogno
quindi di una progressbar.
For i= 1 to numerogrande
    If (i mod 50000)then
      Percentuale = Int((Progresso * 100) / GrandezzaFile)
      ElaboraFRM.ProgressBar.Value = Percentuale
    end if
    ....
next i
Cosi pero la mia DLL la posso usare solo per il mio Prog e non la pos
riutilizzare. Come faccio a sapere qual'è la FORM CHIAMANTE e a passargli il
valore che deve assumere la progressbar. In pratica come modifico questa
parte "ElaboraFRM.ProgressBar.Value = Percentuale".
Grazie Mille per l'aiuto

 parte "ElaboraFRM.ProgressBar.Value = Percentuale".
Passa aella Sub Anche il Form... Per esempio:
Public Sub MiaSub([...] WFRM As Object)
poi ti riferisci al form con WFRM.ProgressBar. Però ti conviene a questo
punto passare direttamente la progessbar:
Public Sub MiaSub([...] WPRG As Object)
e poi WPRG.Value = Percentuale
Antonio Mirarchi

 poi ti riferisci al form con WFRM.ProgressBar. Perň ti conviene a questo


 poi ti riferisci al form con WFRM.ProgressBar. Perň ti conviene a questo


 Grazie Mille, Risolto
Questa soluzione ha un livello di portabilità da 0 a 10 pari a 2 :)
Poni solo di volerla usare in un altro punto dove non hai lo stesso tipo di
progressbar, o se vuoi visualizzare il progresso in una label.
Il modo giusto di usare le classi è sfruttarne la capacità di essere
provider di eventi:
Public Event Progress(ByVal Value As Long)
...
Do
    ...
    RaiseEvent Progress(progresso * 100 \ totale)
Loop
' Da dove hai dichiarato la classe:
Dim WithEvents MyClass As MiaClasse
Private Sub MyClass_Progress(ByVal Value as long)
    MiaProgressBar.Valore = Value
    MiaLabel.Caption = "Completamento al " & Value & "%"
End Sub
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 Il modo giusto di usare le classi č sfruttarne la capacitą di essere


 progressbar, o se vuoi visualizzare il progresso in una label.
Teoricamente hai assolutamente ragione, però così devi poi prevedere il
codice dell'evento per aggiornare il controllo nel form... Inoltre devi
usare un Dim WithEvents quindi non puoi usare, eventualmente, dei vettori di
controlli (dim Vett() as Class1)... Io suggerivo in quel modo proprio per
evitare di dover modificare troppo il codice già scritto.
Antonio Mirarchi

 evitare di dover modificare troppo il codice già scritto.
E un domani per modificare questo si dovrà riscrivere, o peggio, fare un 
copia-incolla, della stessa sub 5 o 6 volte per avere comportamenti 
differenti e comunque di elasticità zero.
E tutto questo per aver risparmiato 10 minuti prima?
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: aprire database in rete

Devo poter aprire un database in una rete lan come posso fare??

> Devo poter aprire un database in una rete lan come posso fare??
Se ho capito la domanda, basta usare "Esplora Risorse" per connettere
l'unità di rete (sulla quale c'è il database) con una lettera libera  e poi
accedere ad essa come se fosse in locale.
Ciao.

 ha scritto


oppure (in dao)
dim db as database
set db = opendatabase("\\pc\cartella\pippo")
dando per scontato che la cartella di pippo.mdb sia condivisa e accessibile
quanto a permessi.

Newsgroup: it.comp.lang.visual-basic
Titolo: [.NET] Trasmissione via rete

Salve a tutti :)
Vi chiedo un'informazione:
Volevo creare un programma che mandi del testo attraverso la rete locale 
(Lan o wifi) una volta aver inserito uno specificato IP.
Praticamente io inserisco l'ip del mio secondo pc (ovviamente in rete),il 
programma manda dei pacchetti verso questo IP (non mi interessa che li 
riceva e li elabori)..e basta :)
Ora,ho cercato in internet,ma non ho trovato progetti funzionanti con la 
versione 2008 express del .Net
(Alcuni non si aprivano proprio,altri doveva assolutamente convertirli dalla 
versione 2003 e non ci riusciva...)
Qualcuno ha un link (o comunque un sorgente) di un programma simile?
Grazie,
Niko 

 Grazie,
Hai provato con TCPListener/TCPCLient?
http://www.pierotofy.it/pages/guide/Guida_al_Visual_Basic_dotNET/Tip_XIV___I_Socket/
http://msdn.microsoft.com/it-it/library/bb397809.aspx
Non so se funziona con la express però

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] gestione accesso tra più utenti

Salve a tutti,
vorrei capire meglio quale può essere la gestione migliore di un DB (es.
Access) utilizzato da diversi utenti contemporaneamente.
1. devo gestirlo a livello di Access (opzini blocco)
2. lo gestisco a livello di codice
Io penso sia meglio il punto 2, ma in che modo:
2.a)  in tutte le tabelle aggiungo un campo "STATO" e se il record è in uso
gli metto "1" altrimenti "0"
2.b) copio i dati del record in variabili appoggio e prima di
Updatareconfronto i vecchi dati con quelli presenti in quel momento
Help please.
Grazie.
Ciao.
Paolo.

 Grazie.
Rispondo a braccio:
per l'accesso in lettura e in scrittura verso le tabelle usa ADO.
Le operazioni consentite sono inserimento,modifica,cancellazione; utilizza
le istruzioni SQL INSERT ; UPDATE ; DELETE.
Se devi solo inserire non ci sono problemi :
con.excute "INSERT INTO tabella VALUES(valore1,valore2, ecc.)"
Se devi modificare nella costruzione del recordset utilizza il LockType
adLockPessimistic.
Per la cancellazione , se l'utente č autorizzato ad eliminare non
dovrebbero esserci problemi. Se il recordset č stato eliminato in
precedenza , se ricordo , non dovresti ricevere messaggi di avvertimento
giuseppeD
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 precedenza , se ricordo , non dovresti ricevere messaggi di avvertimento
In teoria non lo trovo neanche
Grazie per la risposta.
Paolo.
Newsgroup: it.comp.lang.visual-basic
Titolo: db remoto ....

Mi sto riferendo all'ormai conosciuto progetto di db remoto di Moreno Sirri
.... In particolare la verione XML.
Ho testato il progetto in locale con IIS e quest'ultimo funziona
correttamente.
Testando perň lo stesso on-line ottengo un errore in fase di update dei
dati.In particolare mi si incricca all'apertura del recordset nel file
update.asp cioč:
"With rs
  .CursorLocation = adUseClient
  Response.Write "STEP1"
  .Open Request                 <---
  Response.Write "STEP2"
  .ActiveConnection = conn
  .UpdateBatch
 End With"
Dando un errore del tipo parametro non valido. Lato client tutto funziona
correttamente tanto č vero che a questo file viene spedito in POST un albero
XML con lo schema del db e i dati corretti ....
Non so che pensare e m piacerebbe che lo stesso Moreno possa indicarmi una
soluzione ....
grazie a tutti.

...

dopo anni ho trovato un'oretta per darci un'occhiata.... :)
Effettivamente hai ragione: in locale funziona mentre in remoto solo a
volte (funzionava sul server di Murialdo, funzionava solo sul primo
server di EuroWeb97, quello che ha ospitato il Sito Comune per il
primo anno, non funziona su Aruba).
Ora ho trovato un'oretta per risolvere il problema: spero presto di
poterne trovare un'altra per capirlo meglio... :)
Togli il cursor location, non impostare alcun openmode  né alcuna
lock, apri il recordset, quindi impostagli l'activeconnection e infine
esegui il batchupdate.
Cosě funziona.
Il progetto d'esempio (non l'articolo) sul mio vecchio sito
(
www.msvbsite.net
) č stato aggiornato ed eseguendolo puoi accedere ad
un db di prova sullo stesso server (Aruba).
Ciao,
Moreno

Newsgroup: it.comp.lang.visual-basic
Titolo: Disabilitare animazione finestre...

... da windows (tramite power toys) è possibile disabilitare l'animazione
delle finestre quando sono ridotte a icona o ingrandite.
Qualcuno conosce un sistema per disabilitare tale animazione solo per un
determinato form (da Visual Basic ovviamente), lasciando inalterate le
impostazioni di sistema?
Guglielmo


___________
Ho trovato la chiave nel registro di configurazione che modifica
l'impostazione di sistema (non sono riuscito a modificare il parametro per
una singola finestra) nel path:
HKEY_CURRENT_USER\Control Panel\desktop\WindowMetrics
La chiave MinAnimate se è impostata a 0 disabilita l'animazione, a 1
l'abilita.
Ho creato il codice per la modifica della chiave a 0 all'avvio della mia
applicazione (che in chiusura la riporta al valore originale).
A qusto punto però devo effettuare un "refresh" del registro dato che il
solo cambio del valore non rende attiva l'impostazione... QUALCUNO SA COME
FARE?!?
Guglielmo
Newsgroup: it.comp.lang.visual-basic
Titolo: Environ ("systemroot") e windows 98/ME

Ciao a tutti ragazzi!
Utilizzando l'istruzione:
environ("systemroot")
in windows 2000 e XP, mi viene correttamente restituito il percorso
dell'installazione di windows.
In windows 98 e ME tale istruzione, senza causare errori, mi da come
risultato una stringa vuota.
Come faccio x farlo funzionare anche su Win98?
O nel caso, che istruzione devo usare?
Ciao e grazie!
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/



 risultato una stringa vuota.
Ma non era Environ("WINDIR")?
Ciao

Ma non era Environ("WINDIR")?
Esistono tutte e due, il problema che ogni versione di windows fa un
po' i cavolacci suoi. Forse, se prevede di dover distribuire su piu'
versioni, all'OP conviene usare GetWindowsDirectory() inclusa in
kernel32.dll fin dai tempi di Windows 95.
-- 
ciao, un hal di passaggio
-- 
ciao,
hal

> Ma non era Environ("WINDIR")?
Già, poi l'ho scoperto facendo un ciclo su environ(ind) e vedendo che
restituiva. in effetti era proprio windir, ma quel che avevo trovato in
internet era systemroot, che in effetti funziona ma solo su sistemi NT.
Ciao e grazie!!


 dell'installazione di windows.
Vai a leggerlo nel registro o :
*.vbs
set fso = createobject("scripting.filesystemobject")
windir = fso.getspecialfolder(0).shortpath
sysdir = fso.getspecialfolder(1).shortpath
tempdir = fso.getspecialfolder(2).shortpath
' ecc
Msgbox windir  & VBCrLf & sysdir  & VBCrLf & tempdir
Oppure VB :
Private Declare Function GetSystemDirectory Lib "kernel32" _
Alias "GetSystemDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Form_Load()
Dim strSysDir As String
    Dim lngSize As Long
    strSysDir = Space(255)
    lngSize = 255
    Call GetSystemDirectory(strSysDir, lngSize - 1)
    MsgBox strSysDir
End Sub
'PS :
'Windows dir
Private Declare Function GetWindowsDirectory Lib "kernel32" _
      Alias "GetWindowsDirectoryA" _
     (ByVal lpBuffer As String, ByVal nSize As Long) As Long
--
Fosco
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB2005] gestire db sql di grandi dimensioni

Salve a tutti!
Ho sviluppato un programmino per pocketpc in vb2005 per la raccolta
degli ordini, modifica ed eliminazione, ed invio di tali in
sede!..Funziona che è una meraviglia!
Ora provavo a concentrarmi su questo problema:
anzichè avere un anagrafico articoli di circa 500 record, lavorare
con
un db di 15000 articoli!
AIUTO!!
Le varie ricerche che faccio, tutte query sql SELECT, prima di darmi
il risultato che voglio dormono per diversi istanti..Ma è
comprensibile credo!
Come posso ovviare al problema? Esiste una soluzione?
Soprattutto, essendo comunque alle prime armi in VB, è possibile
gestire database così grandi in un pocketpc ed evitare di far sedere
il dispositivo?
Grazie moltissime anticipatamente!

> un db di 15000 articoli!
che DB usi????

Microsoft SQL 2005!

> un db di 15000 articoli!
Non vedo il resto del thread, ma con firebird ho testato tranquillamente
tabelle con circa 300.000 articoli, se indicizzi bene non hai grossi
problemi di rallentamenti.
-- 
DBMS Firebird
VB6 + Ado

 Microsoft SQL 2005!
mi sembra strano,,,io ho databasse SQL con piu di un milione di record
e in un paio di sec mi estrae tutto quello che desidero...dai una
compattata al DB e magari inserisci un nuovo piano di manutenzione in
cui riorganizzi pagine di dati ed indici.....inoltre seleziona anche
Rinmuovi spazio inutilizzato,,,in questo modo l'esecuzione delle query
dovrebbe risultar piu rapida.....

 dovrebbe risultar piu rapida.....
Rileggendo sembra più un problema di indicizzazione.
Indicizza il campo/i su cui vengono fatte le ricerche.
Si passa da 60sec a 0.1 sec senza problemi.


Ciao Andrea!
Ecco è questo concetto che mi manca e per il quale sto effettuando
ricerche..l'indicizzazione dei record!
Mi date per favore qualche dritta?
Grazie!

info sugli indici...
http://italy.mvps.org/MVPs/lbianchi/art_Indici.htm
grande Andrea!

ciao! io ci sto provando, ma senza grande risultato...nel campo indice
non mi rotrovo niente!!
Per favore mi potete far un esempio veloce di codice VB2005 per creare
un indice, su di una tabella molto semplice che invento ora, solo per
capire il meccanismo?
tabella SQL 2005:
AMICI
codice            nvarchar    5
nome             nvarchar    20
cognome        nvarchar    20
esempio creazione indice sul nome!
Grazie 1000 spero di non aver chiesto troppo..

Newsgroup: it.comp.lang.visual-basic
Titolo: registrare la winsck.ocx

Come si fa a registrarla?

regsvr32.exe c:\windows\system\mswinsck32.ocx
oppure sostituisci il percorso dove si trova il file
Ciao,
Moreno
#sirri#@
morenosoft.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
Home Page - 
http://www.geocities.com/SiliconValley/Bridge/1414/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: [ot] donne e vb

Kickaha ha scritto nel messaggio <73u7rk$ik3$
1...@news.mclink.it
<msg74925.html>>...>Scusate la domanda che non c'entra parecchio, ma mi
è venuta in mente>all'improvviso, come un fulmine a ciel sereno:
esistono donneprogrammatrici>di VB??? Io non ne ho mai vista una!!!!
Qualcuno conosce di questi>miracoli??? ;-)))))
IO SONO UNA RAGAZZA E PROGRAMMO IN VB!!!!!
Roby
--
Posted from [212.41.197.245]
via Mailgate.ORG Server - 
http://www.mailgate.org

Qualcuno conosce di questi>miracoli??? ;-)))))
IO SONO UNA RAGAZZA E PROGRAMMO IN VB!!!!!
Roby
We! Roby, +o - siamo vicini di casa! (O perlomeno siamo sulla stessa isola!)
;)
CIAOO!
P.S. Hai anche te le pecorelle che viaggiano nelle linee telefoniche?
!!!!!!!
IERI HO SCARICATO HTMLHELP.EXE a 4 KB/Sec dal sito M$ !!!!!!!!
I N C R E D I B I L E !!!!!!!!!!

Figurati che conosco già poche ragazze che ne capiscano di Computer;
trovarne una che addirittura programma...... Sarebbe il mio sogno!!!!!!!
Ciao
Lorenzo
Piras Roberta ha scritto nel messaggio
<476D068B93D3D111A99E006097836A2506DE2C@SAEPNTSRV>...
Kickaha ha scritto nel messaggio <73u7rk$ik3$
1...@news.mclink.it
<msg74925.html>>...>Scusate la domanda che non c'entra parecchio, ma mi
è venuta in mente>all'improvviso, come un fulmine a ciel sereno:
esistono donneprogrammatrici>di VB??? Io non ne ho mai vista una!!!!
Qualcuno conosce di questi>miracoli??? ;-)))))
IO SONO UNA RAGAZZA E PROGRAMMO IN VB!!!!!
Roby


Attento! Salvo rari casi, sicuramente finiresti per litigare! 
Ciao Marco.
-- 
Remove xxx from E-mail.

Roby
Quello che non capisco č perchč le programmaTRICI sono un numero cosě
ridotto nonostante il fatto che la mente femminile č pi portata alla
strutturazione sintattica (non so dal lato filologico) rispetto a quella
maschile.
Stranissimo inoltre che le poche ragazze p.trici si scaldino tanto per
difendere le loro colleghe incapaci (in questo campo): mica ce l'abbiamo con
voi! anzi...
P.s: perché non creare it.Denne.vb? Qui stiamo intasando il NG (anche se la
discussione non mi dispiace)


e voi perché non create it.Unomini.vb? ^_^
Ma la finiamo con la distinzione uomo e donna? Siamo tutte persone
appartenenti al genere umano.

Grande Roberta!
Stefano
Piras Roberta ha scritto nel messaggio
<476D068B93D3D111A99E006097836A2506DE2C@SAEPNTSRV>...
IO SONO UNA RAGAZZA E PROGRAMMO IN VB!!!!!
Roby



E ho capito!.. io proponevo solo it.Denne.vb perchè questo thread sta
diventando di dimensioni abnormi...
(tra parentesi, mi sembri in gamba! sicuramente più di altre/i che hanno
risposto)
Ciao.
Ciao.

risposto)
^_____^ Grazie....
Newsgroup: it.comp.lang.visual-basic
Titolo: Un programmino facile

Salve,
ho tentato di compilare un semplicISSIMO programma per ottenere l'elevamento
a potenza di un numero.
Ho disegnato tre Caselle di testo su un Form, i cui originalissimi nomi sono
Text1, Text2, Text3.
Ho fatto in modo che il programma elevasse il numero digitato in Text1
venisse
elevato a potenza al valore indicato in Text2, facendo comparire il
risultato in Text3.
Ho seguito questa procedura:
    Private Sub Text2_Change()
         Text3.Text = Text1 ^ Text2
    End Sub
Tutto bene finchč non ho tentato di inserire prima il valore di Text2 e poi
quello di Text1: DEBUG!!!
Inoltre, anche andando per ordine, non č possibile variare il valore di
Text2 usando il tasto Backspace.
Insomma, un programmino cosě semplice puň contenere tanti trabocchetti...
E ancora, come faccio a visualizzare una MsgBox di errore qualora inserissi
un valore diverso da
un numero?
Se questo quesito non offende la vostra intelligenza, vi ringrazio in
anticipo per la risposta.
Francesco

 wrote in message
89onss$qls$1...@pegasus.tiscalinet.it...


 risultato in Text3.
    lpszInput = Trim$(TextX.Text)
   For Counter = 1 To Len(lpszInput)
      If InStr("0123456789", Mid$(lpszInput, Counter, 1)) = 0 Then
        MsgBox "Non č un numero !", vbCritical
        TextX.SetFocus
        Exit Function
      End If
   Next Counter
    Text3.Text = CStr((CLng(Trim$(Text1.Text) ^ CLng(Trim$(Text2.Text))))
Ti suggerisco di utilizzare un array di controlli TextBox,
il tutto risulta piů semplice da gestire.

 anticipo per la risposta.
Option Explicit
Private Sub PZ()
  On Local Error Resume Next
  Let Text3.Text = Text1.Text ^ Text2.Text
  If Err Then Let Text3.Text = "#ERR!"
End Sub
Private Sub TextGotFocus()
  If TypeOf ActiveControl Is VB.TextBox Then
    With ActiveControl
      Let .SelStart = 0
      Let .SelLength = Len(.Text)
    End With
  End If
End Sub
Private Sub Text1_Change()
  If ActiveControl = Text1 Then Call PZ
End Sub
Private Sub Text1_GotFocus()
  Call TextGotFocus
End Sub
Private Sub Text2_Change()
  If ActiveControl = Text2 Then Call PZ
End Sub
Private Sub Text2_GotFocus()
  Call TextGotFocus
End Sub
Private Sub Text3_GotFocus()
  Call TextGotFocus
End Sub
Private Sub Text4_GotFocus()
  Call TextGotFocus
End Sub
--
Ciao.
Maurizio

Newsgroup: it.comp.lang.visual-basic
Titolo: uso di un doppio listview

scusatemi ho bisogno in una mia applicazione vb6 di usare 2 o piu lw.
il mio problema è il  seguente:
se seleziono un elemento della prima lw, quando vado aselezionare un 
elemento della seconda lw, perdo la selezione della prima. a me servono 
selezionati entrambi.
inoltre chiedo se qualcuno sa come effettuare un multiselezione nella lw 
direttamente col mouse e non con il tasto ctrl.
grazie anticipate 

 grazie anticipate
hth, ciao, a.
Newsgroup: it.comp.lang.visual-basic
Titolo: MAPI & mapToList & mapCcList





Salve a tutti, ho sfogliato come un matto la libreria MSDN 
per avere una piccola spiegazione per il mio problema:


Siccome voglio impostare sia il destinatario che il 
destinatario (cc: copia per conoscenza), ma quando arriva 
all'istruzione


.RecipType = mapCcList (destinatario cc) cancella la 
precedente impostazione primaria (mapToList = destinatario).


Esempio


'Gestione 
Messaggistica.
                    
With 
mpmMessaggio
                        
On Error GoTo 
ExitAnnulla
                            
.SessionID = 
mpsSessione.SessionID
                            
.Compose
                            
.RecipType = 
mapToList
                            
.RecipDisplayName = 
strDest
                            
'>>>??????Perchè la seguente istruzione cancella il precedente 
campo?????<<<
                            
.RecipType = mapCcList 
---<<<???
                            
.RecipDisplayName = 
strDestCC
                            
.AddressResolveUI = 
True
                            
.ResolveName
                            
.MsgSubject = 
strSubject
                            
.MsgNoteText = "Ti invio il risultato delle 
analisi."
                            
.Send 
True
                    
End With


 


Spero che qualcuno sappia risolvere questo 
garbuglio!


P.S. (Ho provato sia con RecipIndex, RecipCount ma 
NISBA!)



 wrote in message
82gp7s$ls7$1...@nslave1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: stampare tabella db o datagrid

Ciao
(premetto di lavorare su 
vb.net
 e db access)
ho la necessità di stampare una tabella e non riesco, ho provato a
visualizzarla tramite datagrid e quindi stamparla usando questo codice:
Dim mypaint as New PaintEventArgs(e.Graphics, New_  Rectangle(New
Point(0,0), Me.Size))
Me.InvokePaint(DataGrid1, mypaint)
il risultato è che stampa solo la parte di datagrid visibile a schermo
quindi se il mio datagrid contiene 200 record in realtà mi stampa solo i 30
records visibili a schermo e gli altri che sono scrollabili a schermo non
vengono stampati.
Cosa posso fare?
Grazie
Ciao
Paolo

Hai mai sentito parlare di DataReport, Crystal Report, Oggetto Print,
VSView..... e di Google?!
Ciao, Vincenzo

 Ciao, Vincenzo
ciaociao