mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Click del mouse fuori da un form

Ho un'applicazione con un solo form che deve venir nascosto se clicco al di
fuori di esso. Come faccio a sapere quando clicco su una parte dello schermo
che non sia il mio form???
grazie 1000
--
... e nono el cavatapi gaveva sempre in man
e 'l ne diseva a tuti:
"Se se se disinfeta
se resta sempre san.
Viva el Dotor Fiascheta
che gà inventà el Teran !"

 ha scritto nel messaggio
news:74%D5.16015$N93.5...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo listview o simili: help!

Ciao a tutti.
Sto usando un form per effettuare una ricerca all'interno di un database.
I risultati li visualizzo con un controllo listview, dal quale poi accedo al
dettaglio del risultato con il doppio-click. Fin qui tutto bene.
Ora, mi trovo nella necessità di distinguere i risultati evidenziandone o
colorandone alcuni, con almeno tre colori diversi, per "semplificare" la
visuale al mio cliente.
Mi sembra di aver capito che col controllo listview si possono cambiare le
icone ed impostare la proprietà "ghosted", ma non colorare o evidenziare il
testo.
A questo punto ho due domande:
1) Qualcuno sa come bypassare il problema?
2) Se non c'è modo di inserire questi benedetti colori, c'è un controllo
alternativo che si può usare e che permetta al mio colorofilo cliente di
essere felice?
Per la cronaca, uso Visual Basic 6 sp5 su WinXP.
Sarò grato a chiunque mi possa aiutare. Sono gradite risposte in bianco e
nero.
Simone
(disperato e scolorito programmatore)

 colorare o evidenziare il testo.
Perchè no?
lv.ListItems(riga).ListSubItems.Item(colonna).ForeColor = vbWhite
Non ho verificato il BackColor.

 lv.ListItems(riga).ListSubItems.Item(colonna).ForeColor = vbWhite
l'hai provata con .NET, vero? con vb6 non funziona, e non c'è modo di
colorare una riga diversa dalle altre
l'unico modo è di cercare qualcosa su 
www.vbaccelerator.com
, ma non assicuro
nulla...
c'è qualcosa listview, IMHO, però potrebbe essere incompatibile con il
codice che hai già scritto....
good coding!!!
-- 
Damiani Liborio Igor
http://www.igordamiani.it
Nella finestra Debug di VB:
Nome="igor":? Nome & Chr$(64) & Nome & "damiani" & Chr$(46) & "it"
Che tu sia maledetto, SWEN...

 bianco e nero.
Risposta.ForeColor=vbBlack
Risposta.BackColor = vbWhite
Risposta.Text="ciaociao"

 colorare una riga diversa dalle altre
Il forecolor funziona!
ListView1.ListItems.Add , , "pippo"
ListView1.BackColor = vbYellow
ListView1.ListItems(1).SubItems(1) = "p1"
ListView1.ListItems(1).SubItems(2) = "p2"
ListView1.ListItems(1).ListSubItems(1).ForeColor = vbRed
ListView1.ListItems(1).ListSubItems(2).ForeColor = vbBlue
Se invece intendevi il backcolor, quello effettivamente e' uguale per 
tutte le righe ...
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

ah già, vero, chiedo scusa a tutti e due.....
non avevo guardato bene il codice, Intellisense non mi dava il .Forecolor e
pensavo che il codice di Lupo andasse bene solo con il .NET, invece no....
bravi, volevo vedere se eravate attenti!!
:-))


 colorare una riga diversa dalle altre
No, l'ho provata con ... il mio ESP0DAMA, solo per Forecolor. Va. ;-)

ciao
perche' non usi una flexgrid, con quella puoi colorare tutte le celle e i
caratteri  in modo diverso
ciao Ilairo

Grazie a tutti. Funziona!
:-) Simale
Newsgroup: it.comp.lang.visual-basic
Titolo: Bluetooth

Salve,
com'è possibile utilizzare bluetooth in vb?

 com'č possibile utilizzare bluetooth in vb?
??? Per far cosa ???
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca

 com'è possibile utilizzare bluetooth in vb?
Ciao,
la domanda è un po' vaga: con il bluetooth ci fai tante cose...
Suppondendo che tu voglia collegarti ad un dispositivo bt per leggere
informazioni (esempio gps receiver) ti appoggi al fatto che il sistema
operativo crea una seriale virtuale mappata alla connessione bt, per cui
"teoricamente" aprendo la porta com relativa colloqui con il device come se
fosse un device seriale qualunque (di qui conosci ovviamente il protocollo
di comunicazione)
Ciao
Stefano 'HappyMan'
http://www.sgr.info

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

Come si utilizza questo comando!?!
(dovrei leggere un file di testo diviso in 5 part da delle virgole)
Come si fa?
Grazie in anicipo!!!!

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

Ho un dilemma, come posso inserire una casella di testo in una picture. Nel
senso voglio fare una specie di paint ma non so come inserire delle label
nella picture in modo che con il comando SAVEPICTURE mi salvi il contenuto
della picture con la scritta della label.
Vi prego aiutatemi
Enrico


Se ho capito bene devi aggiungere delle scritte ad una immagine..
Puoi usare il metodo "Print" anche se no è documentato:
Ad esempio:
    Picture1.CurrentX = 100
    Picture1.CurrentY = 100
    Picture1.FontSize = 18
    Picture1.ForeColor = RGB(255, 255, 255)
    Picture1.Print "Pippo"
Importante: Setta la proprietà AutoRedraw della PictureBox = TRUE
Per salvarla infine con Savepicture passa la proprietà "Image" della
pictureBox,
in questo modo vene passato l'handle dell'immagine.
Ad esempio:
    SavePicture Picture1.Image, "C:\pippo.bmp"
Ciao.
--
 ___________________________
(_________By Dany ___________)
(___________________________)
(_____ 
dan...@libero.it
 _______)
(___________________________)
Newsgroup: it.comp.lang.visual-basic
Titolo: "Riprogrammare" il tasto X...

Ciao  a tutti, io avrei bisogno di che nel mio programma, quando premo
la X non mi faccia l'unload e conseguentemente la chiusura del progetto,
ma voglio semplicemente che mi cambi la proprietà form1.visible (ma il
programma deve restare attivo).
Avete capito cosa intendo?
Grazie a tutti
    +ALE+

Avete capito cosa intendo?
dai un'occhiata al parametro cancel nell'evento queryunload della form....
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

Avete capito cosa intendo?
Non ho vb con me, sicche' la sintassi sara' imprecisa:
Private Sub Form_QueryUnload(Cancel as Integer, UnloadMode As Integer)
     If (UnloadMode = vbFormControlMenu) Then
          Cancel = True
          Me.Hide
     End If
End Sub
Ciao
Aldo

Grazie 1000, funziona benissimo...
Ciao a tutti
    +ALE+
hal1961 ha scritto:


Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal Report (join)

ben tornati a tutti...
ho qlche problema con subreport di Crystal!!!
Se carico un report con una semplice query tutto OK ma
quando richiamo un report che contiene un sotto report mi avvisa che tale
operazione non č consentita all' utente...
quale sara il problema??
Grazie...
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Grazie...
Ciao marfio, purtroppo non sono in grado di aiutarti perchč non riesco ad
usare CR. Tu quale usi? 
Io uso la versione inclusa in VS.Net ma non riesco a riempire i report con
i dati. 
Mi piacerebbe riempire un dataset come abitualmente si fa x una combo o un
datagrid. Scrivo questo su page_init:
        InitializeComponent()
        Dim cmd As SqlDataAdapter
        cmd = New SqlDataAdapter("SELECT * FROM view_rpt_distinta", cn)
        Dim ds As DataSet
        ds = New DataSet()
        cmd.Fill(ds, "a")
        report = New CR1()
        report.SetDataSource(ds)
        crw.ReportSource = report
e mi torna un errore "Query Engine Error:
'C:\WINDOWS\TEMP\temp_94d8087d-f44f-41a1-9346-3997e1fd4049.rpt' "
Potresti copiarmi il codice che usi tu per fare questo tipo di operazione?
Mi faresti un grande favore. Ciao!


Prova cosě ma non t garantisco nulla, io sto usando 9.0 ed č un bordello!!
miaSQL = "SELECT * FROM tbFornitori"
Set mioReport = New rpFornitori     
mioeport.ReportTitle = "Elenco Fornitori"
mioRS.Open miaSQL, miaConn, 1, 3
 
mioReport.Database.SetDataSource mioRS, 3, 1
'richiama la form del CR
mioeport.crvReport.ReportSource = mioReport
mioeport.crvReport.ViewReport

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] - Eliminare la finestra Visual SourceSafe Login

Buongiorno a tutti,
scusate la domanda stupida, ma non riesco a eliminare la finestra Visual
SourceSafe Login al caricamento di un mio progetto in Vb
Grazie anticipatamente a tutti e buon lavoro
Saluti: Roberto

SourceSafe Login al caricamento di un mio progetto in Vb
Elimina il file Mssccprj.scc nella cartella del progetto. 
Alla successiva apertura del vbp, digli che non vuoi mettere il progetto
in Source Safe e fine dei giochi (almeo per quel progetto).
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Combinazioni...

Scusate la mia ignoranza in matematica... ma, come si calcolano le
combinazioni di k in n?
Per intenderci mi interesserebbe sapere se esiste un'equivalente del tasto
C, presente su alcune calcolatrici scientifiche, in VB, e se no come si
calcola C?
Grazie a tutti i matematici del NG (so che ce ne sono...)
Ciao.

...

La formula è questa
c(n,k)=n!/((n-k)!*k!)
Function Comb(byval n as long, byval k as long) as Long
  ' eventuali controlli che k<=n , n>0,k>=0 ecc...
  comb=fact(n)/fact(n-k)/fact(k)
end function
function fact(byval n as long) as long
dim i as integer
dim buff as long
  '.......
buff=1
for i=1 to n
 buff=buff*i
next i
fact=buff
end function
Ciao Marco

end function
Conciso ed efficace, grazie!

...

Variante che velocizza il calcolo:
c(n,k)= [n(n-1)...(n-k)]/k!
per cui:
Function Combinazioni(byval n as long, byval k as long) as Long
    Combinazioni=prodotto(n,k)/prodotto(k,1)
end function
Function prodotto(byval n2 as long, byval n1 as long) as long
    dim i as integer
    dim buff as long
    buff=1
    for i=n1 to n2
        buff=buff*i
    next
    prodotto=buff
end function

Newsgroup: it.comp.lang.visual-basic
Titolo: -> icona vicino all'orologio di Windows

E' possibile realizzare un programma in cui l'icona compare a fianco
dell'orologio?
Cioe' come quella del volume,o di altri programmi come gli antivirus.
RISPONDETEMI SUL NEWSGROUP

 una domanda sul famoso "SysTray sul Sito Comune". Non va!!!
specie se sai chi e' l'autore, prova a fare un post specifico.
p.e. il multipop di gbc usa quel sistema, quindi magari lui l'ha visto e ti
sa dire.
francamente non l'ho mai usato, cmq ce n'e' vari per la rete -- dai percorsi
qui sotto dovresti ricostruire i siti (direi che questi siano tutti molto
buoni):
hth, pal
directory di
c:\tp_prg\_vb\vb-accelerator\
www.vbaccelerator.com
\codelib\cpopmenu
systrayx htm 8.188 09/01/00 23.27 systrayx.htm
systrayx zip 38.905 09/01/00 23.12 systrayx.zip
directory di
c:\tp_prg\_vb\vb-accelerator\
www.vbaccelerator.com
\codelib\shell
systray htm 8.287 09/01/00 23.28 systray.htm
fsystray zip 1.986 09/01/00 23.27 fsystray.zip
systray zip 23.006 09/01/00 23.28 systray.zip
directory di c:\tp_prg\_vb\vb-accelerator\
www.vbaccelerator.com
\images
systrayx gif 12.778 09/01/00 23.12 systrayx.gif
systray gif 22.736 09/01/00 23.28 systray.gif
directory di c:\tp_prg\_vb\vb-codelib\
www.dogma.demon.co.uk
\codelib\shell
systray zip 23.006 07/10/99 15.32 systray.zip
fsystray zip 1.986 07/10/99 15.33 fsystray.zip
systray htm 6.272 30/10/99 10.06 systray.htm
directory di c:\tp_prg\_vb\vb-codelib\
www.dogma.demon.co.uk
\images
systray gif 22.736 07/10/99 15.42 systray.gif
directory di c:\tp_prg\_vb\vb-great-one\
www.vbgreatone.8m.com
\vb\downloads
systray zip 10.947 17/01/00 10.56 systray.zip
directory di
c:\tp_prg\_vb\vb-shapecreator\
www.fortunecity.com
\skyscraper\motorola\153
libsys~1 zip 797 01/12/99 15.18 libsystraydemo.zip
systray bas 3.729 01/12/99 15.33 systray.bas

c'č il mio esempio, da me o nel sito comune...
http://www.chiappori.net
--[GbC]--
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Presentazione di XP a Bergamo

C'era qualcuno ieri pomeriggio all'unione industriali di Bergamo
all'incontro con MS in merito a XP e sicurezza e originalità del software ?
Saluti

sergio non c'è andato

 sergio non c'č andato
e chi č Sergio ?

behhh!
io sono Sergio ;-)

Newsgroup: it.comp.lang.visual-basic
Titolo: Picture.box ??

Ciao a tutti, premetto che sono un principiante....
....ho provato acercare sul'help ma non ho trovato niente.
Ho una picture box che contiene un'immagine (una pallina), come faccio
a rendere trasparente la parte d'immagine intorno alla pallina ??
Per spiegarmi meglio, vorrei che fosse visibile ( e se possibile
cliccabile) solo la pallina e non il rettangolo che la iscrive.
Una cosa del genere mi servirebbe anche con un altro oggetto (una
figura umana). Mi piacerebbe che la figura umana e solo quella (non i
rettangolo che la iscrive) ripsondesse ad un click del mouse.
Grazie mille a tutti.
Spero che la mia richiesta non sia una tipica FAQ. (Che scarichero' al
piu' presto).
Ciao e buon lavoro.
Fabio
Let's just say I was testing the bounds of reality.  
I was curious to see what would happen. 
That's all it was: just curiosity.
-James Douglas Morrison, 1943-1971
*******************
For spammers:
Unsolicited Email "spam" sent to this email address will result in your
system being subscribed to 10,775 Majordomo list servers.
Be forewarned that you will recieve roughly 1 gig of mail per day, or
15,000 messages per hour.
This Email address not for your advertising. You have been warned.
Think before you post!

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Icone nei menù

Come posso fare per inserire immagini a colori nei menu creati con visual
basic?
Grazie.
Andrea Ravagnani

sito comune

Newsgroup: it.comp.lang.visual-basic
Titolo: ?2 word e proprietà find come fare

Dopo mille peripezie, (e soprattutto grazie all'aiuto di AlexB) sono
riuscito ad aprire Word7 ed ad attivare la proprietà Find.
Il problema adesso, e che io vorrei visualizzare (magari in una text box,)
un certo numero di caratteri precedenti e successivi alla stringa che ho
ricercato con selection.Find !!
C'è qualche proprietà che mi fa questo lavoro???
Se potete aiutare questo povero disgraziato che nonostante le difficoltà
vuole a tuttii costi imparare a programmare in VB, ve ne sarò grato
eternamente.
Un caloroso Buon Anno ed un grazie a tutti

...

Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto ....file binari

devo leggere caratteri da un file e scriverli in un altro file(uso la
modalità binaria).
per leggere non ho nessun problema,l'inconveniente è scriverli poichè
vengono aggiunti caratteri a caso oltre quelli giusti.
Potete aiutarmi?
Open "c:\was.txt" For Binary As #1
Open "c:\wasc.txt" For Binary As #2
For i = 1 To LOF(1)
a = Input(1, #1)
Text1.Text = Text1.Text + Str(Asc(a))
Put #2, , a
Next
Close #1
Close #2

"Antares" <sco...@cieslo.sky> ha scritto nel messaggio
news:elAC7.14997$Qj6.1...@news.infostrada.it...

Ho provato il codice sul mio computer, ma non ho riscontrato alcun errore;
l'unico dubbio che mi viene in mente è sapere come hei dichiarato la
variabile a.
Io l'ho dichiarata come string. Fammi sapere
                                                                Ciao Peppe

Con string č perfetto .Grazie molto

Newsgroup: it.comp.lang.visual-basic
Titolo: FlatShadowbutton (free): qualcuno vorrebbe provare questo controllo fatto da me?

Salve,
ho creato, tutto in VB5, un controllo FlatButton (anzi sarebbe un
FlatShadowButto) che mi pare fuonzionare abbsatnza bene.
Ho l'esigenza di testarlo, perchè lo devo usare su un'applicazione, e
se qualcuno fosse disposto a provarlo darei volentieri anche  il
sorgente, a queste condizioni comunque:
1) Il sorgente deve essere trasformato con VB5 di modo che mi possa
essere ritornato in caso di modifiche;
2) il controllo deve rimanere assolutamente free per tutti e nessuno
dovrà accampare diritto alcuno.
3) Dato che mi serve sapere se il controllo funziona bene, mi
piacerebbe che chi lo testa (o lo modifica il che mi farebbe anche
piacere) mi mandasse una mail con i risultati del test.
4) Se il sorgente viene modificato vorrei poter usufruire del nuovo
sorgente.
Se a qualcuno piace l'idea, mi può contattare al seguente indirizzo
mail:
	vaccaro.g...@krol.itNOSPASM
(togliere il NOSPASM).
In alternativa indicatemi il modo di poter pubblicare il sorgente.
Grazie per l'eventuale collaborazione.
Robin

 In alternativa indicatemi il modo di poter pubblicare il sorgente.
Sul sito comune del NG ad esempio: 
http://www.it-lang-vb.net

 FlatShadowButto) che mi pare fuonzionare abbsatnza bene.
Mandalo al sito comune sotto GLP o con la tua licenza.
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: API x ibernare XP

Sapete quale API posso usare per mandare in 'ibernazione' (non in
sospensione..) windows XP?
Ciao
Duccio
http://www.catenaia.cjb.net

Anche se nessuno mi ha saputo rispondere, dopo tanto navigare ho trovato
queste interessanti funzioni che fanno al caso mio (sperando di fare cosa
utile.....):
Private Declare Function IsPwrHibernateAllowed Lib "powrprof.dll" () As
Boolean
Private Declare Function SetSuspendState Lib "powrprof.dll" (Hibernate As
Boolean, ForceCritical As Boolean, DisableWakeEvent As Boolean) As Boolean
Private Sub Command1_Click()
    If (IsPwrHibernateAllowed()) Then SetSuspendState True, True, True
End Sub
Ciao
Duccio
http://www.catenaia.cjb.net

Newsgroup: it.comp.lang.visual-basic
Titolo: File exists

I am trying to find if a user has a specific dll.  The code below will
work if I give the specific drive, directory, etc.  Because some of the
users will be using NT and some Windows 95 or 98, this dll will be in
different directories how can I search for this dll wherever it is?
Thanks
  If Dir("c:\winnt\system32\sqlsrv32.sql", vbNormal Or vbSystem) = ""
Then
 Call MsgBox("This file does not exist")
Else
 Call MsgBox("This file does exist")
End If
Sent via Deja.com 
http://www.deja.com/
Before you buy.

 End If
If Len(Dir( _
    Environ("windir") & "\system32\sqlsrv32.sql" _
  , vbNormal Or vbSystem) Then
  Call MsgBox("This file does not exist")
Else
  Call MsgBox("This file does exist")
End If
... ma sono curioso anch'io di sapere se puo' funzionare...
--
Ciao.
Maurizio

... ma sono curioso anch'io di sapere se puo' funzionare...
mmm non credo, in W98 per es. c'è la cartella ..\system32, ma non è la
directory di sistema. dovrebbe usare GetSystemDirectory
kneedleman, you've to use the GetSystemDirectory API to retrieve the path
you need
ciao
Faber

Newsgroup: it.comp.lang.visual-basic
Titolo: Stallo di win 95/98

Può darsi che sia una notizia vecchia ma io lo letta da poco, se così fosse
mi scuso in anticipo.
 I due sistemi windows 95/98, non so del 2000, entrano in stallo se si
digita "\nul\nul\" nella finestra di esegui a cui si accede attraverso il
pulsante avvio. E' un problema transitorio che si risolve non appena si
spegne e riaccende il pc.
Maurizio

 Puň darsi che sia una notizia vecchia ma io lo letta da poco, se cosě


No Comment...(Roba da Matti)
E tutti utilizzano prodotti M$ (pure io)...

 Maurizio
In win NT e 2k non succede nulla.
Ciao,
Chico

 spegne e riaccende il pc.
win98: 2 schermi blu, poi blocco.
win2000: "impossibile trovare il file \nul\nul\", e amici come prima.

E' un bug antico di win9x, corretto in win2000.

Ciao a tutti,
potevo ancora ancora riuscire a concepire il bau nell'accesso alla consol
(\con\xxx), ma il NUL viene gestito come un percorso virtuale? Allora si
dovrebbe inchiodare anche se si tenta un accesso ad una sub del printer:
qualcuno a voglia di provare \prn\xxx???
Ciao.
--
Princi, 
princ...@programmer.net
----------------------------------------------------------------------
"Tutti sanno che una cosa è impossibile da realizzare,
finché arriva uno sprovveduto che non lo sa e la inventa." A.E.

qualcuno a voglia di provare \prn\xxx???
Microsoft Windows 2000 [Version 5.00.2195]
(C) Copyright 1985-1999 Microsoft Corp.
Z:\>cd \prn\xxx
The system cannot find the path specified.
ciao, hal

 wrote in message
news:9av4kp$9h6$1...@fe1.cs.interbusiness.it...


> E' un bug antico di win9x, corretto in win2000.
insieme ad altri mille della stessa famiglia
nul, aux, con
il problema e' risolto pure in WinME
--
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
Newsgroup: it.comp.lang.visual-basic
Titolo: come stampare?

Ciao a tutti, volevo fare una domanda per stampare.(premetto che  sono un
principiante in visualbasic)
Dovo compilare un modello prefincato cioč con spazi vuoti da riempire con
nome e congome e via dicendo.
Ho creato un progetto con delle  textbox inerenti ai campi da riempire del
modello ma non so poi come mandarli in stampa
e soprattutto come far scrive in quel preciso campo.
C'č qualcuno che puň darmi una mano?
Grazie 1000
Ciao

 ha scritto nel messaggio
news:8lkhev$33r$1...@news.flashnet.it...



dell'oggetto Printer :o))
beppe
-----------------------------------------------------------
Togliere <.antispam> dall'indirizzo
-----------------------------------------------------------
E-mail : 
mg.an...@comune.cento.fe.it
-----------------------------------------------------------
Visita il sito del WWF AltoFerrarese
http://comune.cento.fe.it/wwfaf
-----------------------------------------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiutatemi!!

Come si fa ad aprire un file sia in lettura che in scrittura?
Sull'help c'è scritto :
open nomefile for output shared as #1
ma non mi funziona......aiutatemi...........
Ciao
Omar

Questo scrive le due stringhe testo1$ e testo2$su due linee diverse del file
nomefile$
open nomefile$ for output as #1
 print #1, testo1$
 print #1, testo2$
close #1
Questo le rilegge:
open nomefile$ for input as #1
 line input #1, a1$
 line input #1, a2$
close #1
 Questo le aggangia ad un file esistente:
open nomefile$ for append as #1
 print #1, testo1$
 print #1, testo2$
close #1
nomefile$ può essere, ad esempio:
nomefile$ = "c:\dati\prova.txt"
o se vuoi leggere un file dalla directory di avvio della tua applicazione:
nomefile$ = app.path & "\prova.txt"

...

Prova a vedere se cosi' ti puo' andare bene:
    Dim a$
    Open "c:\t\provaX.ini" For Binary Access Read Write Shared As #1
    a$ = Space$(100)    '\
    Get #1, , a$        '/ Ricava i prossimo 100 Bytes
    Seek #1, 1          ' Vado a inizio file
    Put #1, , "Ciao Mondo"  ' Sovrascrive i primi 9 bytes con questa scritta "Ciao Mondo"
    Seek #1, 1          ' Vado a inizio file
    Input #1, a$        ' l'input funziona, ma il print no (perche' e' l'open e' binary)
-- 
Hi, Ciao
Ettore                 By -MES-
http://freeweb.aspide.it/freeweb/ilmes
 
(con OCX per stampare i Recordset)
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb
Newsgroup: it.comp.lang.visual-basic
Titolo: [ADO] Metodo Seek?

Esiste il metodo Seek per il controllo ADO?

> Esiste il metodo Seek per il controllo ADO?
Si
Ciao
Sit Jo


Si .. ma sembra che nessuno lo utilizzi ... il perchè lo capirai leggendo
l'help del metodo.
Ciao

 ha scritto nel messaggio
news:8P706.7993$5k3.2...@twister2.tin.it...


Ancora, se una tabella dispone di un indice, una query utilizza l'indice o
no?
Certamente, come ti ho scritto prima, addirittura alcuni DB possono generare
autonomamente indici velocizzare le operazioni future.
Aspetto altre considerazioni in merito ...
Saluti ...
    Davide
** In verità ADO lavora esclusivamente con i dati in cache, ma nel caso di
cursori lato Server, la cache è sempre considerata "non aggiornata" per cui
è necessario rinfrescarla con delle chiamate al DB.

 ha scritto nel messaggio
news:91snm0$kv5$1...@fe2.cs.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: R: [?] Caratteri cirillici : Bel dilemma

Come volevasi dimostrare quella serie di "??????"  vi assicuro che erano una
serie di caretteri cirillici.....
bye.

 serie di caretteri cirillici.....
magari non c'entra niente, ma sei sicuro che siano "cirillici"?
non e' per caso sono in unicode?
prova a scrivere msgbox strconv(tuastringacirillica, vbunicode)
--
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

Grazie per la riposta innanzi tutto.
Il bello e' che a forza di fare delle prove non ci sto' capendo piu' nulla
nemmeno io, cmq vedro' di farti un riassunto cosi' magari puoi aiutarmi.
Prima di passare a VB ho iniziato con delle prove direttamente in Excell e
VBA.
Una delle prove che ho fatto in VBA e' quello di leggere tutto il foglio
excell dove ci sono queste scritte in cirillico , salvarlo su di un file
random esterno e poi rileggerlo per metterne il contenuto in un nuovo foglio
per vedere gli effetti della conversione.
Lo memorizzo cosi' :
           If IsNumeric(Cells(iRiga, 1)) And Cells(iRiga, 1) <> "" Then
              My_Rec.iNum = Val(Cells(iRiga, 1))
              My_Rec.sCode = StrConv(Cells(iRiga, 2), vbUnicode)
              My_Rec.sDescription = StrConv(Cells(iRiga, 3), vbUnicode)
              My_Rec.sType = StrConv(Cells(iRiga, 4), vbUnicode)
              My_Rec.sUnit = StrConv(Cells(iRiga, 5), vbUnicode)
              My_Rec.nQta = CSng(Cells(iRiga, 6))
              Put #1, , My_Rec
           End If
e lo rileggo con :
        Get #1, , My_Rec
        Cells(iRiga, 1) = StrConv((My_Rec.sOrdine), vbFromUnicode)
        Cells(iRiga, 2) = My_Rec.iNum
        Cells(iRiga, 3) = StrConv((My_Rec.sCode), vbFromUnicode)
        Cells(iRiga, 4) = StrConv((My_Rec.sDescription), vbFromUnicode)
        Cells(iRiga, 5) = StrConv((My_Rec.sType), vbFromUnicode)
        Cells(iRiga, 6) = StrConv((My_Rec.sUnit), vbFromUnicode)
        Cells(iRiga, 7) = My_Rec.nQta
questo e' l'unico modo per RILEGGERE IL FILE e mantenere lo stesso tipo di
caratteri dell'originale.
Passo quindi a VB dove leggo il file esterno (il file random per intenderci)
e provo a fare una stampa con :
Printer.Print StrConv(My_rec.sDescription, vbFromUnicode)
come penso sia logico fare.....  ma ottengo solo dei "?" al posto dei
carateri cirillici.
provando con :
Printer.Print StrConv(My_rec.sDescription, vbUnicode)
o con
Printer.Print My_rec.sDescription
nulla di meglio (non stampa "?" ma una serie di caratteri strani )
spero che mi sia spiegato e che ci sia una soluzione....
Newsgroup: it.comp.lang.visual-basic
Titolo: cosa uso per stampare?

Devo stampare un foglio della grandezza di un A4, mi sarebbe andato
benissimo un form da stampare in quanto devo inserire delle Label in
determinati punti del foglio. Il prole sorge quando vado a rimensionare il
form, misure massime 20 X 15 centimetri massimi. Cosa mi consigliate di fare
o utilizzare ?
Grazie !
--------------------------------
Inviato via 
http://usenet.libero.it

o utilizzare ?
Usa l'oggetto Printer, ti permette una precisione almeno fino al
decimo di millimetro.
-- 
ciao, hal

 ha scritto:

--------------------------------
Inviato via 
http://usenet.libero.it

Newsgroup: it.comp.lang.visual-basic
Titolo: image con colore trasparente

ciao,
volevo sapere se era possibile ad esempio se io faccio un'immagine in paint
poi in vb inserendola in un imagebox poter dire ad esempio che il colore
bianco de essere trasformato in trasparente in modo da non coprire cio' che
c'è sotto
spero di essermi spiegato..
grazie 1k
--
-=<(Gick)>=-
gi...@gick.cjb.net
http://www.gick.cjb.net

 grazie 1k
scusa ma se inserisci direttamente un immagine.gif (trasparente), il gioco
e' fatto
ciao Ilario


 e' fatto
bisogna utilizzare un oggetto che gestisca la trasparenza della gif, con
picure o image non funziona.
-- 
Saluti, Vitt
www.pbase.com/vitt

 down e up
a me in VB6 la trasparenza e l'animazione delle gif non la faceva vedere ed
ho quindi inserito l'oggetto GIF89, di più nun so'
-- 
Saluti, Vitt
www.pbase.com/vitt


non ho parlato di gif animate solo di trasparenza
ciao Ilairo

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Da Database a Database

Ho questo problema :
2 database, supponiamo DB1 e DB2, vorrei inserire i record di una tabella
presente in DB1 in una presente in DB2 del tipo :
insert into DB2.TABA SELECT * FROM DB1.TABA
ho provato anche con la SELECT INTO ma senza risutato !!
ma non ho trovato da nessuna parte come fare ...... qualcuno mi da' una
dritta ???
Ciao.

 
prova questo:
DB1.Execute("INSERT INTO TABA IN 'C:\DB2.MDB' SELECT * FROM TABA")
Ciao
Riccardo


"INSERT INTO rsDest IN 'pathCompletaDbDestinazione' SELECT rsSource.* FROM
rsSource"
Ciao Bruno

Newsgroup: it.comp.lang.visual-basic
Titolo: Eseguire una macro dentro ole..

Ciao a tutti,
Si puň far eseguire una macro di word all' interno di un ole?
Io per ora ho inserito all' interno del ole un documento word,
ho fatto una macro che funge su due documenti (prende il contenuto del primo
e del secondo e lo inserisce in un documento nuovo...)
Possa farla funzionare all' interno dell ole?
L' ole puň contenere piů documenti word?
Grazie a tutti spero che mi risponderete
P.S.
Ho provato a cercare su msdn e su un libro di vb ma non ho trovato neache
acceni al problema...

 ha scritto nel messaggio
news:awwq9.22086$dj7....@tornado.fastwebnet.it...


 ha scritto:
[cut]
prova con ole1.object.application.run ([Nomemacro])
ciao.
--------------------------------
Inviato via 
http://usenet.libero.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Re: Parametri comando kill

 cancellare solo quelli di x giorni precedenti oggi. Come posso fare?
ti leggi le proprietą dei file e poi cataloghi tutti i files che ritieni
vehhi in un array.
Poi fai in bel for sull'array ed elimini tutti quei files...
bye
-- 
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it
Sinapsi Antispam. Antispam Gratuito.
http://www.sinapsi-antispam.tk
http://www.nicolaottomano.it/sinapsi.htm
Ingrosso Orologi.
http://www.supertop.it
email spamtrap: 
spam...@nicolaottomano.it

salve, kill nomecartella\*.* mi cancella tutti i file presenti,ma
essendo i nomi dei file nel formato Now della loro creazione vorrei
cancellare solo quelli di x giorni precedenti oggi. Come posso fare?
grazie
Newsgroup: it.comp.lang.visual-basic
Titolo: variabile: cartella d'istallazione.....

Esiste una variabile che possa usare per dire al prg. di cercarmi il
file MIOPRG.INI nella cartella d'istallazione di MIOPRG
Grazie !
Bye, Red
red...@tin.it
==============


App.Path, vedi nell'help di VB.
--
Roal Zanazzi
z...@iol.it

file MIOPRG.INI nella cartella d'istallazione di MIOPRG
mioprog$=app.path
if left$(mioprog$,1)<>"\" then mioprog$=mioprog$ & "\"
miofile$=mioprog$ & "fileini.ini"
if dir(miofile$)="" then
                               'il file non esiste allora lo creo
                               open miofile$ for output as #1
                               close #1
                          else
                               'il file esiste
                               msgbox "Il file esiste già, non sei
contento?"
endif

Scusa non era piu' semplice fare:
dim MyFile$
MyFile= app.path & "\File.Ini"
if (MyFile)<>0 then msgbox "INI TROVATO" else msgbox "INI NON TROVATO"
boh!!!!!
--
# Name: Riccardo Solei
# Mail:    So...@ReteItalia.Net
# ICQ:    39959480

if (MyFile)<>0 then msgbox "INI TROVATO" else msgbox "INI NON TROVATO"
Se l'eseguibile (o il progetto non ancora compilato) si trova in C:,
app.path restitusce C:\ per cui
avresti c:\\file.ini
Poi serve la funzione DIR per verificare e il file è presente o meno.

Qui qualcuno ha bevuto un po' troppo credo....... io sicuramente
ma scusa.... se io creo un mio nuovo progetto, dunque:
a) creo :    d:\MiaCartella
b) dentro la quale inserisco il mio programma o progetto che sia :
MioProject
c) nella prima form ad un qualsiasi evento (ad esempio form_load) scrivo:
msgbox app.path
    questo mi restrituisce d:\MiaCartella
Mi potresti spiegare il significato della frase : "Se l'eseguibile (o il
progetto non ancora compilato) si trova in C:, app.path restitusce C:\ " ,
la vorrei capire meglio... c'e' qualcosa che non mi torna. Cosi' mi verrebbe
da pensare ad un progetto installato direttamente in root ovvero:
c:\Progetto.exe , c:\Progetto.ini, e magari anche i db? Io cmq metterei
sempre sotto directory....
Ciao e grazie


sempre sotto directory....
Mica tutti sono come te! Te devi essere previdente nei confronti di chi
userà la tua applicazione.
Nessuno vieta di metterla direttamente in root.
Se io compilo un piccolo exe, posso anche metterlo in root, e il mio
programmino deve in ogni caso considerare anche questa evenienza (a meno che
nelle istruzioni di installazione io non indichi all'utente di non mettere
l'eseguibile direttamente in root, pena un errore).
Poi fai quello che ti pare.
Cià

Ad esempio, prova a creare un form con una Caption di nome "Testo" e
nell'evento form_load metti:
dim MyFile$
MyFile= app.path & "\File.Ini"
testo.caption=MyFile
Poi salva il form, chiudi VB e spostalo in root (il form, non VB :) ).
Apri il form appena spostato (cliccandoci 2 volte, cioè col doppio click) e,
all'apertura di VB manda in esecuzione il progetto.
Guarda cosa viene scritto nella Caption.
ciao


E' un po' rozzo, ma basta aggiungere
if right(app.path,1)="\" then
    MyFile=app.path & "file.ini"
else
    MyFile=app.path & "\file.ini"
end if
Ciao
Paolo Bernardi

end if
Giusto, Right, non left.
Newsgroup: it.comp.lang.visual-basic
Titolo: Trovare l'indice di una combo

Ciao a tutti.
Ho una combobox di cui devo reperire l'indice avendo un valore contenuto
al suo interno.
Come posso fare?
Grazie.
Max
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Come posso fare?
????????????????
--
Ciao
Alfredo

> ????????????????
Allora, la combo è fatta così:
Ciao
Pippo
Pluto
Paperino
Io voglio sapere a che indice si trova Pluto.
Grazie.


 wrote in message
news:e1e4b5aa08f8e8ef6fb...@mygate.mailgate.org...


 ha scritto nel messaggio
news:6a1067e1653025847dd...@mygate.mailgate.org...


 End sub
Mhm, questa soluzione non va bene per il mio caso perchč in pratica 
io seleziono un valore da una listbox, poi vado su un DB a cercare una
stringa che č contenuta nella combo. Alla fine devo ricercare quella 
stringa nella combo e visualizzarla come LISTINDEX=0.
Grazie cmq. dell'aiuto!!!


 Come posso fare?
Se sei sicuro che l'elemento č contenuto nella combo puoi fare
Combo.Text = "stringa"
idx = Combo.ListIndex
Altrimenti non so se il listindex restituisce -1...
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Dove trovo la docum su ADO ??

Qualcuno saprebbe dirmi dove trovare la documentazione su ADO ??? Vorrei
usarlo in VB5.
grazie
Jerry
--
Posted from 
camcic.unicam.it
 [193.204.8.13]
via Mailgate.ORG Server - 
http://www.mailgate.org

...

Newsgroup: it.comp.lang.visual-basic
Titolo: [.NET] Form senza titolo

Ho creato un form senza titolo ed usando il subclassing riesco a spostare il
form quando cliccko su di esso.
Il problema nasce se sul form c'e' un control (nel mio caso una picturebox):
in questo caso non succede nulla.
Ho cercato con google, ma ho trovato solo esempi di forms senza control.
Ho pensato di usare nell'evento MouseDown della picturebox una sendmessage,
ma non so come fare.
Qualcuno puoi' aiutarmi?
Grazie.
--
Anna Conda


Puoi crearti una cosa del genere che gestisce gli eventi del mouse sulla 
form:
Dim bMouseDown As Boolean
Dim pntMousePosition As Point
Private Sub Form_MouseDown(ByVal sender As Object, ByVal e As 
System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
    bMouseDown = True
    pntMousePosition.X = e.X
    pntMousePosition.Y = e.Y
End Sub
Private Sub Form_MouseUp(ByVal sender As Object, ByVal e As 
System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
    bMouseDown = False
End Sub
Private Sub Form_MouseMove(ByVal sender As Object, ByVal e As 
System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
    Static bProcessingEvent As Boolean
    If bProcessingEvent Then Exit Sub
    If bMouseDown Then
        bProcessingEvent = True
        Dim NewX As Integer = Me.Location.X + (e.X) - pntMousePosition.X
        Dim NewY As Integer = Me.Location.Y + (e.Y) - pntMousePosition.Y
        Me.SetDesktopLocation(NewX, NewY)
        bProcessingEvent = False
    End If
End Sub
Poi ai controlli che ti interessano (tipo la picturebox di cui parli) 
richiamare eventi MouseDown, Up e Move riferendoti a questi sopra, ad 
esempio:
Private Sub myPictureBox_MouseDown(ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.MouseEventArgs) Handles myPictureBox.MouseDown
    Form_MouseDown(sender, e)
End Sub
ecc. ecc.
Ciao 

 ecc. ecc.
Funziona perfettamente, ti ringrazio moltissimo!
Ciao
--
Anna Conda
Newsgroup: it.comp.lang.visual-basic
Titolo: Datagrid

Salve a tutti,
ho realizzatro un datagrid che preleva dati da una tabella nella quale è 
presente un campo che funge da flag:
TABELLA ATTIVITA
IDATTIVITA - ATTIVITA - STATO
Il campo STATO può valere 0, 1, 2 a seconda che l'attività sia da eseguire, 
sia in corso , oppure sia stata eseguita.
Vorrei fare in modo che in visualizzazione all' interno del datagrid nella 
colonna STATO non mi compaia 0 o 1 o 2 ma il testo relativo ("da eseguire", 
"in corso", "Eseguita").
E' possibile?
Grazie a tutti,
e buon lavoro

 E' possibile?
un autocitazione con il vecchio link...
http://www.google.it/groups?hl=it&lr=&selm=V7OC9.32346%24744.1194021%40news1.tin.it
leggi anche tutto il thread, se ti avanza tempo...
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

giampio wrote:

Si'.
Crei una tabella di decodifica dello stato, che avra' come primary
key il campo con il codice 0, 1, 2 o altro. Una seconda colonna 
conterra' la corrispondente descrizione.
Una buona cosa e' mettere in relazione la tabella degli stati (lato
parent) con quella delle attivita' (lato child).
Quando estrai i dati metti in join le due tabelle sul codice stato,
aggiungendo in output la colonna della descrizione dello stato.
-- 
hth, hal

 aggiungendo in output la colonna della descrizione dello stato.
Concordo.
E' possibile anche decodificare lo stato lato client, con Select Case, o con
Formati delle celle del Datagrid, ma si abbandona il concetto relazionale
del db.
Ciao
Alberto
--
E tutto mi sembrava andasse bene...

 del db.
naturalmente.
il concetto della relazionalità del db (anche se mi ha teso nel tempo
alcune simpatiche trappole) deve essere salvaguardato.
ma siccome il prossimo post dell'op sarà quasi sicuramente "come posso
permettere all'utente di modificare lo stato facendoglielo scegliere da un
elenco di possibili valori?", anticipavo un po' la tematica ;-)

Newsgroup: it.comp.lang.visual-basic
Titolo: Conversione VB3 --> VB4

Ho ripreso un vecchio progetto fatto in VB3  ed ho deciso di convertirlo in
VB4
per i moduli sw (.bas) non ho trovato particolari problemi, su alcune form
che facevano uso della libreria threed.vbx mi si sono presentati alcuni
errori.
In particolare i bottoni di tipo sscommand e gli oggetti di tipo sspanel
nella form VB4 non vengono correttamente convertiti e vengono trattati come
pictures.
Da premettere che in fase di creazione del VBP ho aggiunto tra i controlli
aggiuntivi la ocx treed32 della sheridan e successivamente ho aggiunto le
form vb3.
Tralaltro nella barra degli oggetti i bottoni di tipo sspanel e sscommand
compaiono correttamente.
Cosa posso fare per non ridisegnare gli oggetti sopra elencati.
Grazie
Dany 
       		     		Toledo Daniele
               Intecs Sistemi S.p.A. Via Consalvo, 169 Pal. 8
                 80125 Napoli Tel 081-621133 Fax 081-621107
       e-mail 
tol...@napoli.intecs.it
 - Web Server 
http://www.intecs.it
       -----------------------------------------------------------------
           	Presso Ansaldo Trasporti S.p.A. Napoli
       				tel. ++39.81.2432721
       			e-mail 
fior...@atr.ansaldo.it
--
Automatic posted from 
stargate.ansaldo.it
 [151.89.15.1]
via Mailgate Server - 
http://www.mailgate.org

...


VB4...
Probabilmente l'hai aperto usando Vb4 32 (come ho fatto io)
Prova prima con il VB4 16.
Ciao,
			Mirco Guietti
mirco....@iol.it
http://users.iol.it/mirco.guietti

Newsgroup: it.comp.lang.visual-basic
Titolo: Visual basic e C++

Ho una DLL scritta in C++ che mi restituisce un puntatore a una struttura di
dati.
Riesco correttamente a richiamarla da Visual Basic 6, facendomi ritornare un
LONG (che č il puntatore alla struttura).
Come faccio a recuperare i dati della struttura puntata?
Si possono utilizzare i puntatori in VB6?
-- 
Posted from 
HA-server-a.cs.interbusiness.it
 [151.99.250.31] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

...

E' un po' lungo da spiegare (e da fare...) cmq ci provo:
1) devi sapere la lunghezza in byte della struttura;
2) ti serve conoscere la struttura (ad es. in termini di Type) della
struttura;
3) a partire dal puntatore dovrebbe essere possibile con la api CopyMemory
copiare la struttura su una appropriata variabile tipizzata;
forse qlc del genere: CopyMemory varDest, puntatore, Lungh_Strutt
spero tu ti possa accontentare di questo;
un esperto del C++ potrebbe illuminarti maggiormente.
buon divertimento
SAL
Newsgroup: it.comp.lang.visual-basic
Titolo: Utilizzo di un EXE standard?

Buongiorno a tutti, volevo fare questa domanda, forse un po gnocca:
Se io creo un EXE standard possono utilizzarlo anche altri utenti sui loro
computer anche se non hanno installato VB6?
Se si come si fa ad installarlo, basta copiarlo?
Vi ringrazio anticipatamente,
ciao Matteo
--------------------------------
Inviato via 
http://usenet.libero.it

 Se si come si fa ad installarlo, basta copiarlo?
No. Devi usare la procedura per la creazione del pacchetto di installazione,
compresa in VB

Ti ringrazio enormemente Lupo, sei sempre tu che mi rispondi!!!!
Grazie ancora
Ciao Matteo


 computer anche se non hanno installato VB6?
dipende da cosa ci metti dentro e su dove lo devi installare..
se non usi ocx particolari basta la dll runtime msvbvm60.dll (e su sistemi
recenti penso sia gia installata però non ci giurerei).
per sicurezza (soprattutto se installi su sistemi datati) è meglio creare il
pacchetto di installazione.
ciao

Ti ringrazio molto!!
Ciao Matteo


Newsgroup: it.comp.lang.visual-basic
Titolo: File .DBF, DAO e campi Memo

Ho il seguente problema.
L'importazione di campi memo da archivi .DBF ad access non funziona.
I campi risultano valorizzati con dei caratteri strani tipo... 
+pà+u#j Q  x ¢pà+ú$·+pu Ã  ·+p   
Il database viene aperto nel seguente modo:
Dim db As Database
Dim Ds As Recordset
Set db = DBEngine.Workspaces(0).OpenDatabase(path, False, False,"dBASE 
III;")
Set Ds = db.OpenRecordset("ANASPE0F")
il campo memo WriValP viene impostato nel seguente modo:
WriValP = Left$(Trim$(Ds("MEMO").GetChunk(0, Ds("MEMO").FieldSize)), 
1000)
anche impostandolo con WriValP = Ds("MEMO") il risultato non cambia
Qualcuno ha qualche idea in merito ???
grazie

 ha scritto

getchunk mi sa che ti restituisce il binario.
ho creato un ciccio.dbf + ciccio.dbt in c:\ciccio, compilandone tre record
con db4. il memo si chiama "appunti".
con un datacontrol e txtbox collegati i memo si vedono bene.
sotto esempio via codice e risultato in debug.
-- 
hth, ciao, j.
http://www.sundaysw.com
Private Sub Command1_Click()
    Dim db As Database
    Dim rs As Recordset
    Dim s As String
    Set db = OpenDatabase("c:\ciccio", False, False, "dBASE III")
    Set rs = db.OpenRecordset("ciccio")
    With rs
        Do While Not .EOF
            s = s & !appunti & vbNewLine & "***********" & vbNewLine
            .MoveNext
        Loop
    End With
    rs.Close: Set rs = Nothing
    db.Close: Set db = Nothing
'    MsgBox s
    Debug.Print s
End Sub
[ ^G ]
ecco il memo del primo record
ecco la seconda linea del memo del primo record
***********
ecco il memo del secondo record
ecco la seconda linea del memo del secondo record
***********
terzo record terzo record terzo record terzo record terzo record terzo
record terzo record terzo record terzo record terzo record terzo record
terzo record terzo record terzo record terzo record terzo record terzo
record terzo record terzo record terzo record terzo record terzo record
terzo record terzo record terzo record terzo record terzo record terzo
record terzo record terzo record terzo record terzo record terzo record
***********


Newsgroup: it.comp.lang.visual-basic
Titolo: salva

con un pulsante salva vorrei poter salvare una griglia in excel
faccio così:
Dim strNomeFile As String
strNomeFile = InputBox("inserisci il nome del file:")
Open strNomeFile For Output As #1
Print #1, MSFlexGrid1
Close 1
ma mi salva solo una cella della flexgrid ... quella selezionata
Come posso fare per salbvara tutta
Grazie 

 ha scritto

adatta il codice qui sotto (dao-dbgrid).
devi avere excel installato.
http://tinyurl.com/6cbk6
se ti basta un csv, adatta quello qui sotto (ado-datagrid).
pero xl da me i csv li apre bene con file-apri, ma a fare 2clic si incasina.
ciao, j.
Private Sub cmdExport_Click()
    Dim fNum As Long, fName As String
    Dim rs As New Recordset, j As Long, s As String
    fName = mainPath & "statanno.csv"
    fNum = FreeFile
    Open fName For Output As #fNum
    s = "ANNO;GEN;FEB;MAR;APR;MAG;GIU;LUG;AGO;SET;OTT;NOV;DIC;TOT"
'    s = Replace(s, ";", Chr$(9))
    Print #fNum, s
    With rs
        .Open "select * from statanno order by anno", mainCN, adOpenStatic,
adLockOptimistic
        Do While Not .EOF
            s = ""
            For j = 1 To .Fields.Count - 1
'                s = s & .Fields(j) & Chr$(9)
                s = s & .Fields(j) & ";"
            Next
            s = Left(s, Len(s) - 1)
            Print #fNum, s
            .MoveNext
        Loop
    End With
    rs.Close: Set rs = Nothing
    Close #fNum
    MsgBox "OK"
End Sub

Newsgroup: it.comp.lang.visual-basic
Titolo: VB & Smart Cards

Hi all!
Qualcuno ha mai usato il VB per programmare e gestire smart cards?
Esiste del materiale di riferimento in rete?
Thanks in advance.
Ciao, Alfonso.

 ha scritto nel messaggio
news:eKbR6.1917$i71....@news.infostrada.it...


 ha scritto nel messaggio
news:eKbR6.1917$i71....@news.infostrada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Cinematica inversa e librerie grafiche 3D

Cari Amici,
sono alla ricerca di una libreria od un tool di sviluppo per immagini 3D con
prospettiva, rendering ed animazione(ovviamente meglio se free!).
Lo scopo č quello di simulare i movimenti di un braccio robotico.
Qualcuno di voi conosce qualche prodotto adatto?
--
Ciao!
Ettore Massimo Albani
(leva ANTISPAMMER dall'indirizzo per inviare messaggi)

 ha scritto nel
messaggio news:2ftTa.2393$w8....@news.edisontel.com...


 Lo scopo č quello di simulare i movimenti di un braccio robotico.
per la cinematica inversa invece hai bisogno di librerie adatte.... ci sono
PARECCHI motori che ti permettono di implementare IK e FK, ma non ne conosco
di free....  :(

Uhm non penso che ad ettore gli si possa di dire di
studiare ... mi sà che è uno già sa e se cerca è perchè
ha fretta.
IMHO .... credo che qualche cosa di gratis
che funzioni non lo troverai mai.
-- 
Saluti
Andrea Moro

Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 sp4 & Crystal Report

Ciao a tutti che versione di Crystal Report funziona con Visual Basic 6
Service Pack 4?
Sapete dove la posso scaricare?
Ciao.

quella di serie con VB6 (4. non so che ) va abbastanza bene, puoi trovare la
evaluate version sul sito della seagate