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

Ciao a tutti,
devo usare la funzione "Input" per leggere tutti dati inseriti in un file
TXT separati da tabulazioni.
Ho però bisogno di sapere anche quando la funzione finesce di leggere una
riga per passare ai dati presenti nella riga successiva.
Come si fa?
Ringrazio tutti in anticipo.
Ciao da Emiliano

 Come si fa?
    Do While Not EOF(nfile)
         'legge il file una riga per volta
         Line Input #nfile, riga
	...
    loop
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 maxx
---------------------------------------
Ciao grazie per la risposta ma la funzione "Line input" già la conoscevo, il
mio problema però è un'altro: mi va bene che la funzione mi isoli dato per
dato pur appartenendo alla stessa riga, ma vorrei anche che si accorgesse
quando una riga è finita e me lo segnalasse in qualche modo prima di passare
a esaminare i dati della riga successiva
Per fare un esempio pratico devo convertire un file da:
1    2    3    4
5    6    7    8
9    10    11    12
nel seguente modo:
1-RIGA
1
2
3
4
2-RIGA
5
6
7
8
...
Spero di essere stato abbastanza chiaro.
Ciao da Emiliano


Si', e' per questo che devi usare Line Input!
Nel codice che ti ho postato la variabile riga contiene l'intera riga e 
operi sul contenuto di questa variabile per estrarre i dati. Se hai vb6 
puoi usare la funzione split che ti crea un array che contiene i tuoi 
dati gia' separati.
Se non e' questo che devi fare, non ho capito bene la domanda ...



Ciao Maxx,
hai capito esattamente il mio problema!!
Ti ringrazio per la tua grandissima disponibilità ma ne devo approffittare
ancora un po'.
Non sono riuscito a usare la funzione "split", ho letto la guida MSDN ma non
ci ho capito molto:
ho provato a scrivere il seguente codice ma mi da errore:
a = Split("ciao da emiliano")
MsgBox a
Come devo fare?
Ti ringrazio di nuovo.
Ciao da Emiliano

 
La funzione split prende una stringa e la divide in pezzi usando come 
delimitatore predefinito lo spazio, oppure un delimitatore che scegli tu.
split("ciao da emiliano") ti restituisce una matrice 1x3 fatta cosi':
a(0)="ciao"
a(1)="da"
a(2)="emiliano"
Ovviamente non ha molto senso fare _msgbox a_ perche' a e' una matrice.
Nel tuo caso se il separatore e' il catarrete di tabulazione scrivi:
a=split(riga,vbtab)
otterrai quindi una matrice di dimensione 1x4 e non fai altro che andare 
a recuperarti i valori con a(n) dove n va da 0 a 3
    Do While Not EOF(nfile)
         'legge il file una riga per volta
         Line Input #nfile, riga
	a=split(riga,vbtab)
	debug.print a(0), a(1), a(2), a(3)
     ...
    loop
In questo esempio do per scontato che ci siano 4 numeri per riga ...


 In questo esempio do per scontato che ci siano 4 numeri per riga ...
----------------------------------------------------------------------------
-------------
Ciao,
ti ringrazio sei stato molto esauriente, e hai risolto alla perfezione il
mio problema.
Grazie ancora
Ciao da Emiliano
Newsgroup: it.comp.lang.visual-basic
Titolo: Come stampare un grafico (Mschart)?

Salve a tutti.
Esiste un modo per stampare un grafico ottenuto con il controllo Mschart,
evitando di stampare l'intero form.
Grazie.

...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?OT] Qualche domanda...

L'anno prossimo (a grandi linee) dovrò "fare qualcosa di nuovo", nel senso
di investire in nuovi progetti autonomi da rivendere, non di rispondere a
commesse acquisite. L'ambiente di sviluppo/mercato è sempre il gestionale
per piccole/medie aziende (da 1 a 15 posti lavoro in rete locale). Sto
seriamente considerando (dopo assurde e recenti esperienze) alternative
"importanti".
Butto qui alcune domande, grazie per ogni risposta:
1) Qualcuno ha già tartassato .NET, in particolare per la gestione dei
database (Access e SQL Server)? Se sì (ma tartassato per davvero, non
provicchiato), che sensazioni ha?
2) Immaginando di buttare alle ortiche Microsoft, in toto, esiste qualche
linguaggio (ovviamente, per mia scarsa cultura, il più possibile simile a
VB, concettualmente/strutturalmente, della sintassi non mi importa nulla)
che preveda anche una traduzione (pur alla CDC) da sorgente VB e che, pur in
modo non ottimizzato, produca un  codice sorgente "quasi immediatamente
funzionante" per il nuovo ambiente? Se sì, quali?
3) Immaginando di non usare SQL Server e nemmeno (nel modo più assoluto!)
ADO (anche se fosse rivolto a database non Microsoft) quali motori/gestori
di database client/server posso considerare e (immagino) di conseguenza, a
quali sistemi operativi posso orientarmi?
Sintesi: Non mi importa un fico secco di avere la stessa identica sintassi
per fare delle cose, desidero soltanto, anche per un prodotto 100 volte meno
completo/potente, che se c'è scritto "per fare così, devi fare così", lo
faccia. Niente altro!
Grazie a tutti per ogni indicazione.


tutto questo sempre secondo il mio modestissimo parere!

 
Questo è il bello per tutti qui dentro penso!!
Flavio
Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto per principiante

 
Ciao a tutti!
Sono una vera e propria neofita di Visual Basic e ho bisogno di aiuto....
scusate , la mia domanda sarą sicuramente stupida, ma fino a questo momento
mi sono limitata a studiare le basi teoriche del Visual Basic e non sono
ancora passata alla pratica.
A questo proposito volevo sapere come posso fare per avere un editor grafico
possibilmente freeware...
grazie!
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it




 grazie!
-- 


 lato praticissimo del termine...ciao un bacio davide... :o)


On Thu, 02 Dec 2004 13:49:34 GMT, 
madd...@libero.it
 (Maddy) wrote:
Non so quanto ti possa interessa ma io ho Vb6 Enterprise in vendita,
se ti interessa fammi sapere.
Ciau ^_^

On Thu, 02 Dec 2004 14:44:29 +0100,
termoP...@postacaldaininglese.com
 (termoPilucco) wrote:
[CUT]
Ma sei lo stesso di Xbox live? o.O




Io, io, io. A me interessa. Se non lo vendi a lei, lo vendi a me? Mi
contatti? (scusa l'intrusione, maddy)
indirizzo di posta: yronium_QUESTO_TOGLILO@tiscali_ANCHE_QUESTO.it


termoPilucco
io ho il TAG: Criceto :P non so se ti ricordi ghghghgh

 Ma sei lo stesso di Xbox live? o.O
Sě, ma ultimamente sono molto poco live e molto off live :)
termoPilucco
-- 


 io ho il TAG: Criceto :P non so se ti ricordi ghghghgh
No, il mio cervello puň memorizzare circa 3 byte... :)


 lato praticissimo del termine...ciao un bacio davide... :o)
TAKKINO :-P
Bye, G.

 ha scritto

come ben sai, il tacchino pensa fino, no ? :)
http://www.repubblica.it/2004/l/sezioni/economia/ibm/zambb/zambb.html

Newsgroup: it.comp.lang.visual-basic
Titolo: Programmino di backup

Vorrei creare un programmino di backup che mi copy la
cartella/sottocartelle/file su un disco d:
Come si fa a sapere quante sottocartelle sono presenti in una cartella per
fare spostare automaticamente la copia.
Grazie, Alberto

Da me c'č MyBackup v2 con i sorgenti...
Fanne buon uso ;)
-> GbC
http://www.gbcweb.com

Grazie!
;-)

Newsgroup: it.comp.lang.visual-basic
Titolo: listview con sfondo colorato

č possibile far sě che in un ListView soltanto alcune "righe" abbiano un
colore di sfondo diverso da quello delle altre?
grazie

oddio... non ditemi che sono costretto a usare uno stramaledettissimo MS H
Flex Grid....!!!!!!!!!!!!

 Flex Grid....!!!!!!!!!!!!
www.mvps.org/vbnet
se non ha qualche idea birch...
seno' usa la griglia di 
www.vbaccelerator.com

ho provato su vbnet, ma non esce niente, se qualcuno ha il esto
dell'articolo (se esiste) puo farmi un fischio??? thanks...
mario

qualcuno poi conosce la differenza tra questi due messaggi?
LVM_SETBKCOLOR e LVM_SETTEXTBKCOLOR ??
mario
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Problema con Listview

Ciao a tutti,
    sapete come posso andare a capo in una cella della Listview ????
Mi spiego meglio ... devo avere la prima cella di ogni riga con la ragione
sociale
ed il numero di telefono, non esiste una multiline nella cella della
listview ???
grazie a tutti.


No, non esiste visto che la ListView non ha celle -_-;;;
Vai qui: 
www.vbaccelerator.com
. C'č una ListView tipo quella di outlook ed č
free.
Bye
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Incollare il contenuto della Clipboard in un campo OLE

Saluti a tutto il NewsGroup, nottambuli o meno  :)
Ho una funzione in una DLL che genera un codice a barre passandogli lo
standard e tutta una serie di altri parametri, mettendo negli appunti di
Windows il codice che crea
Avrei bisogno di mettere questo codice in un campo OLE di un DB Access '97,
utilizzo DAO.
Come faccio?
Prima di chiamare la funzione faccio Clipboard.Clear, dopo la chiamata
(verificato l'esito positivo) se faccio Clipboard.GetData(vbCFBitmap) > 1
risulta falso... anche se, facendo Form1.Picture = Clipboard.GetData
effettivamente nello sfondo del form è presente il codice (il disegno,
intendo)
Naturalmente se faccio RS("BarCode") = Clipboard.GetData mi genera errore
"Tipo non corrispondente"
Come posso fare?
(il programma dev'essere pronto & funzionante & testato per domenica sera al
più tardi...)
Grazie mille
Faber
P.S.: spero di aver spiegato con sufficiente chiarezza il problema,
altrimenti sarò felice di esporre meglio ciò di cui ho bisogno
(scusatemi, è il sonno  :))

 (scusatemi, č il sonno  :))
sonno ? tu ? strano ! :)
sono di corsa, intanto butto li' poi ci ragiono meglio:
visto che il picbox lo vede, non puoi salvarlo come bmp e mettere il bmp
nell'ole col sistema normale per infilare le immagini in un mdb (che non ho
mai usato ma credo ci sia) ?
fa' sapere.
ciao, a.

mai usato ma credo ci sia) ?
si, lo posso salvare come bmp con SavePicture.. e poi? detta com'è, non sono
capace di mettere una bmp in un campo OLE... come faccio?
grazie mille dell'interessamento
(e della condivisione del sonno    :))
Ciao
Faber

 (e della condivisione del sonno    :))
non c'e' di che... viene da se' :)
ciao, a.

s.v. "ole - creazione e inserimento"
si, l'avevo visto ma non mi ha dato l'illuminazione di cui ho bisogno... nel
senso che non ho trovato uno straccio di esempio di codice su come fare...
se non lo faccio entro domenica sera sono fregato
grazie mille
Faber
Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto su EM_GETCHARFORMAT

qualcuno sa per caso dove posso trovare un esempio, in VB, dell'uso del
messaggio EM_GETCHARFORMAT da inviare a un richtextbox ?
sto letteralmente impazzendo...
non mi da nessun errore, ma non legge neanche un cavolo di bit...
ho provato sia con
dim CharacterFormat as CHARFORMAT (ho provato anche con CHARFORMAT2)
retval=sendmessage(richtextbox1.hwnd,EM_GETCHARFORMAT , True,
CharacterFormat)
che con
retval=sendmessage(richtextbox1.hwnd,EM_GETCHARFORMAT , True, byval
varptr(CharacterFormat))
ma niente da fare...
grazie
MarioH


Infatti, manca qualcosa :(
Dichiara cosi':
Private 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 LF_FACESIZE = 32&
Private Const SCF_DEFAULT = 0&
Private Const SCF_SELECTION = 1&
Private Const WM_USER = &H400&
Private Const EM_GETCHARFORMAT = WM_USER + 58&
Private Type CHARFORMAT
  cbSize As Long
  dwMask As Long
  dwEffects As Long
  yHeight As Long
  yOffset As Long
  crTextColor As Long
  bCharSet As Byte
  bPitchAndFamily As Byte
  szFaceName(0 To LF_FACESIZE - 1) As Byte
End Type
e chiama cosi':
Public Function vbGetRTFSelectionFormat(ByVal a_hwndRtf As Long) As Long
    Dim cf As CHARFORMAT
    Dim retval As Long
 
    ' IMPORTANTISSIMO: va impostato il campo della dimensione della struttura
    ' affinche' Windows possa identificarne la versione
    cf.cbSize = LenB(cf)	
    Debug.Print cf.cbSize
    retval = SendMessage(a_hwndRtf, EM_GETCHARFORMAT, SCF_SELECTION, cf)
 
    If (retval) Then
        Debug.Print "OK"
        Dim sFaceName As String
        sFaceName = cf.szFaceName
        sFaceName = StrConv(sFaceName, vbUnicode)
        Debug.Print sFaceName
    Else
        Debug.Print "Failure: " & GetLastError()
    End If
 
End Function    '// vbGetRTFFormat
Il resto e' lasciato come esercizio al lettore ;-)
hth, hal


oddio mi sto incasinando.
sul mio MSDN quelle due costanti SELECTION o WORD sono menzionate in un
altro messaggio.
il messaggio getcharformat vuole, come terzo parametro, un True/False che
indica se si tratta della selezione corrente oppure ... come dire... del
carattere predefinito del RichTextBox...
cmq ora provo...
grazie mille
MarioH

grazie mille
il n' y a pas de quoi
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: password controllo data per mdb

Salve a tutti!
Ho un altro problema con l'impostazione delle password per la connessione ad
un mdb protetto.Vengo subito al dunque! Ho una database (.MDB) protetto da
password ed ho
utilizzato un controllo Data per connettermici.
Dov'è che devo impostare la password nel controllo?
Vi ringrazio anticipatamente!
Newsgroup: it.comp.lang.visual-basic
Titolo: Oggetto definito da variabile

Grazie per aver letto questo messaggio.
E' possibile definire un oggetto con una variabile??
Mi spiego meglio con due righe:
dim pippo as string
pippo = "Text1"
pippo.text = "testo da visualizzare"
scritto cosě non funziona, mi potete aiutare??
Grazie in anticipo.
rom...@flashnet.it

...

si devi fare :
Dim pippo a TextBox
pippo.text = "testo da visualizzare"
questo funziona per tutti gli oggetti del VB incluso i Form, che a loro
volta si ramificano in base agli oggetti presenti in esso, in pratica se
faccio :
Dim frm as MioForm
oppure
Dim frm as Form
Set frm = MioForm
posso anche fare :
frm.text1.text = "testo da visualizzare"
frm.label1.caption = "testo da visualizzare"
funziona anche con picture, image, label ecc. ecc, un po tutti.

 scritto cosě non funziona, mi potete aiutare??
Non funziona perche' String,int,long,byte,boolean,date,single,double,variant sono  tipo di dato fondamentale, non sono
oggetti.
Se diversamente tu definissi:
	Dim FormCopia	as Form
	Set FormCopia = new Form1
	FormCopia.Captiom = "Ciao Mondo"
	FormCopia.show
Funzionerebbe perche' From e' un oggetto e possiede la proprieta' Caption.
-- 
Hi, Ciao
Ettore                 By -MES-
http://freeweb.aspide.it/freeweb/ilmes
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto per Service-Pack

A quanto ho capito la versione Vb5 Professional in italiano è upgradabile (o
per meglio dire migliorabile) con dei service packs.
Dove li trovo? Vanno bene per tutte le versioni o ce n'è uno specifico per
la versione italiana? Grazie....

 la versione italiana? Grazie....


Lo puoi trovare anche nel numero di DEV di Maggio in edicola .
Daniele




L'UpGrade non è strettamente necessario per le funzionalità comuni.
In ogni caso è in versione internazionale al sito:
http://www.microsoft.com/msdownload/vs97sp/vb.asp
Oppure su VolFTP a 1/2 ricerca dedicata.


Ciao Sono Alessio Se compri Dev di Maggio di Quest'anno troverari allegato
un bel Cd con Il Visual Studio Service Pack 3 che aggiornera tutti i
programmi visual della Microsoft

S

la versione italiana? Grazie....
  L'ultimo Service Pack, il numero 3, e' comune a tutte le lingue, e'
grosso 13 MByte e se non vuoi penare con il sito Microsoft e non vuoi
comprare DEV di maggio lo puoi trovare su VOLftp: cerca il file
vbsp3.exe e se  hai un buon collegamento con il sito te le cavi in
un'ora e mezza (se poi hai un x2/56k/V.90 ed un buon transfer-rate
anche molto meno).
  Ciao :-)
  Massimo
  Nell'indirizzo, sostituire DIESPAMMERS con MC1258
  In the address, replace DIESPAMMERS with MC1258
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] Evento paint in usercontrol

Ho creato uno usercontrol che deve assumere come colore di sfondo quello del 
suo contenitore.
Il contenitore prima è bianco e cambia colore a run time.
l'unico sistema è quello di mettere il comando usercontrol.backcolor 
nell'evento paint, ma MSDN sconsiglia di usare la proprietà backcolor 
nell'evento paint perchè causa eventi a catena e potrebbe dare errore di 
overflow
Che consiglio mi date?
Grazie Carmelo 


In questi casi si usa l'evento UserControl_AmbientChanged, serve proprio per 
questi scopi.
Private Sub UserControl_AmbientChanged(PropertyName As String)
    If PropertyName = "BackColor" Then
        Me.BackColor = Ambient.BackColor
    End If
End Sub
Bye
Raf
Newsgroup: it.comp.lang.visual-basic
Titolo: Shutdown

Come posso fare si che un programma applicativo ( da me scritto in vb 4)
esegua lo shutdown del computer sul quale gira ?
Grazie 10^3
Alex


Per Windows 95: (per Win3.1 e Windows NT e' diverso!)
Codice Form, sezione dichiarazione:
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, _
ByVal dwReserved As Long) As Long
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Const EWX_POWEROFF = 8
Const EWX_RESET = EWX_LOGOFF + EWX_FORCE + EWX_REBOOT
Codice Pulsante Comando:
Private Sub Command1_Click()
Dim X As Long
X = ExitWindowsEx(EWX_SHUTDOWN, 0)
Modificando la costante presente attualmente nella chiamata API con un'altra
tra quelle dichiarate puoi ottenere risultati diversi.
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Colori diversi in una combo box (vb.net 2008)

Salve a tutti,
� possibile colorare ogni riga (4 righe in tutto) di una combo box di colore 
diverso?
Grazie 

zoorro wrote:

Sono di frettissima, ma se ti documenti sulla propriet� OwnerDraw (o qualcosa 
del genere) dovresti cavarne qualcosa.
-- 
S.

"Stevie" <jstevie__@__gmail__.com> ha scritto nel messaggio 
news:CzJtm.38709$Tq6....@tornado.fastwebnet.it...

Grazie ci provo. 

 Grazie ci provo.
Eccolo:
 
http://www.thescarms.com/dotnet/CustomListBox.aspx
E' relativo a ListBox, ma non dovrebbe essere difficile fare la stessa cosa con 
ComboBox.
-- 
S.
Newsgroup: it.comp.lang.visual-basic
Titolo: CALLBACK for Shell_NotifyIcon

I was not able to find the form prototype of the callback function
for the Shell_NotifyIcon Win32 function which is required in the
NOTIFYICONDATA structure definition.
I want to the advised by Windows when the user passes with the mouse on
the small icon I have created in the taskbar region.
Any help appreciated,
				Davide Manca
-- 
Davide Manca
Assistant Professor
Dipartimento di Chimica Industriale ed Ingegneria Chimica
POLITECNICO DI MILANO - ITALY
davide...@polimi.it
 


The uCallbackMessage of NOTIFYICONDATA is not a callback function but a
callback message.
You have to put a message id (WM_USER+XXXX or, better, a message registered
with RegisterWindowMessage) in uCallbackMessage and give a valid HWND in
hWnd member to have the message sent to your window each time the user moves
the mouse inside your system tray icon.
In wparam you will receive the icon ID (uID field of NOTIFYICONDATA) and in
lparam the mouse action performed by the user
(WM_MOUSEMOVE,WM_LBUTTONDBLCLK,WM_RBUTTONUP... and other mouse messages).
If you need to show a popup menu (as many system tray icons do) you can to
use current mouse coordinates (GetCursorPos) because there is no way (or I
don't find any) to find icons position.
---
Valter Minute
min...@fortech.it
 (the reply address is invalid to avoid Spam-mail)
www.fortech.it/english
---
Are you looking for a good freeware ScreenSaver? Try FOYD!
http://gsanet.com/ntfiles/cmdl/download.cmdl?catagory=ScreenS&bbsfile=foyd11
.zip&ftppath=/pub/screens/
And ask me for the source code.

 


As described in others answers you don't define a callback procedure but a
custom message that you need to trap using a subclassing tecnique.
Have a look at this snippet,you don't even need any subclassing code and it
works.
Add related declares and constant and a form (you don't need to show it)
..
..
..
Dim myStruct as NOTIFYICONDATA
With myStruct
.cbSize = Len(myStruct)
.uID = vbNull
.uFlags = NIF_MESSAGE Or NIF_TIP Or NIF_ICON
.hIcon = Form1.Icon
.szTip = "Custom Tooltip" & Chr$(0)
.hwnd = Form1.hwnd
.uCallbackMessage = WM_MOUSEMOVE
End With
ShellNotifyIcon NIM_ADD, muShNotify
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single,
Y As Single)
Select Case X
Case 7770: Debug.Print "Right DblClick"
Case 7680: Debug.Print "MouseMove"
Case 7725: Debug.Print "Left DblClick"
Case 7695: Debug.Print "Left MouseDown"
Case 7755: Debug.Print "Right MouseUp"
Case 7710: Debug.Print "Left MouseUp"
Case 7740: Debug.Print "Right MouseDown"
End Select
End Sub
Bye!
Corrado
Davide Manca ha scritto nel messaggio


BTW,
don´t forget to call DestroyIcon(..) after ShellNotifyIcon whenever you load
a new Icon into the system tray (e.g. to indicate different states).
Otherwise the system hangs later, because all memory is eaten up...
R.
Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO SU MDB

Qulalcuno conosce un metodo per catturare i nomi delle tabelle che
compongono un database (.MDB)?
Grazie a tutti

  Prova con il seguente codice
Option Explicit
Dim u_db As Database
***************************
Private Sub Form_Load()
Dim DBName As String
   DBName = MioDatabase
   'apro il database
   Set u_db = DBEngine.OpenDatabase(DBName)
End Sub
****************************
Private Sub Command1_Click()
Dim i As Long
  ' stampo a video il nome delle tabelle
   For i = 0 To u_db.TableDefs.Count - 1
      MsgBox u_db.TableDefs(i).Name
   Next i
End Sub
Ciao da Alessandro

Newsgroup: it.comp.lang.visual-basic
Titolo: Stampare un grafico

Ho un grafico da stampare. Usare l'oggetto
Printer e' impossibile. Esiste un modo semplice
per risolvere il problema. Pensavo eventualmente
di usare il notebook, ma sono un po' arreso.
Qualcuno puo' aiutarmi?
Cry
-- 
Cristiano Corsani
e-Mail: 
cris...@dsi.unifi.it
 
cris...@labri.u-bordeaux.fr
www: 
http://dsi2.dsi.unifi.it/~cristian/

Printer e' impossibile. Esiste un modo semplice
Non e' molto chiaro. Dacci qualche altra informazione.
Il risultato finale deve essere una stampa ?
Puoi disegnare sulla form, sulla stampante o su una picture box
sempre allo stesso modo usando i comandi line, pset, circle,... inserendoci
anche file bitmap.
Se non ti basta spiegati meglio.
Ciao Ciao
Giuseppe


Hai ragione, non avevo le idee chiare nemmeno io. Devo diseganre 
un grafico su un form o su una picture usando i metodi line.
Non volendo rifare il tutto sull'oggetto Printer, ho pensato
che fosse possibile recuperare l'immagine disegnata e mandarla
al Printer. Sono arrivato alla seguente conslusione. Disegno,
dalla proprieta' Image della picture o form riesco a catturare
l'immagine e darla al Printer con la funzione DrawPicture 
(o qualcosa del genere, non ricordo il nome). Siccessivamente
stampo ed ottengo sulla stampante l'immagine esatta del grafico.
E' sbagliato il ragionamento? Ancora non ho avuto la possibilita'
di provarlo, ma da quello che ho letto sul manuale sembra un
ipotesi possibile.
Grazie per l'attenzione.


stampo ed ottengo sulla stampante l'immagine esatta del grafico.
Mi pare ok.
Io per abitudine invece faccio cosi' :
Mi creo una form vuota di test e poi faccio
Set Media = Printer    oppure     Set Media = FormTest
e poi disegno sul Media (es Media.Line......., Media.FontName..... ecc.)
In questo modo ho 2 vantaggi :
1 - posso provare a video le stampe, e solo poi, una volta sgrossate, le
mando in stampa.
2 - stampo esattamente con la stessa procedura sia a video che su carta
evitando altrimenti inevitabili diversita'.
L'unica diversita' sta nella gestione dell'EndDoc e nel problema della prova
di stampe a tutta pagina (Height della form < Height della printer), ma
basta saperlo !
Ciao
Giuseppe

 Giuseppe
Grazie per l'aiuto, mi sembra un consiglio prezioso, anche se 
alcune cose mi sono ancora oscure (per inesperienza mia).
Immagino che FormTest sia un Form generico che tu puoi
anche visualizzare con show. Comunque a questo punto mi
arrangio e guardo quello che riesco a fare.....
Grazie mille e a buon rendere.

Newsgroup: it.comp.lang.visual-basic
Titolo: API per EMAIL

Dovrei fare un programmino che crea un messaggio Email su Internet Mail (o
Outlook Express). Ora non conosco come usare le API, se qualcuno mi spiega
come usare le API per le EMAIL o mi spiega come fare...
grazie
-- 
Please reply to my Email!!!!!!!
labbo...@odd.it
 o 
labbo...@euromadis.com

...





Newsgroup: it.comp.lang.visual-basic
Titolo: VB e SQLDMO

Ciao a tutti!
Da un programma Visual Basic devo creare un backup di un DB SQL.
L'operazione di backup viene fatta correttamente, e, se non si specifica
una directory, il backup viene fatto nella directory backup della dir di
installazione di SQLServer.
La routine di backup lo fa automaticamente.
La mia domanda č:
e' possibile sapere qual č questa directory da programma?
Suppongo sia la directory di default per il backup,ma SQLDMO ti da la
possibilitŕ di leggerla?
Vi ringrazio
Mary
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 possibilità di leggerla?
la versione 2000 di SQL Server SQL-DMO espone il metodo .BackupDirectory
dell'oggetto SQLDMO.Registry2..
il valore della proprieta' e' indirizzabile nel modo seguente
    Dim strBckupFolder As String
    Dim oRegistry As SQLDMO.Registry2
    Set oRegistry = objServer.Registry
    strBckupFolder = oRegistry.BackupDirectory
    Set oRegistry = Nothing
ed e' di lettura/scrittura...
Imposta la chiave di registro
HKLM\Software\Microsoft\MSSQLServer\MSSQLServer
 BackupDirectory
leggibile accedendo normalmente al registry (privilegi permettendo)
saluti
Andrea Montanari (Microsoft MVP - SQL Server)
andre...@virgilio.it
http://www.asql.biz/DbaMgr.shtm
 
http://italy.mvps.org
DbaMgr2k ver 0.4.0  -  DbaMgr ver 0.50.0
(my vb6+sql-dmo little try to provide MS MSDE 1.0 and MSDE 2000 a visual
interface)
--------- remove DMO to reply
Newsgroup: it.comp.lang.visual-basic
Titolo: Versione Working Model Edition

Che tipo di versione è la Visual Basic 6 Working Model Edition?
E migliore della versione 5 ?
Grazie

 E migliore della versione 5 ?
Il Working Model è la versione gratuita di prova di VB con funzionalità
limitate (molto).
Non so se sia disponibile per il download, posso indicarti la posizione
della versione precedente (VB5 Control Creation Edition
http://msdn.microsoft.com/vbasic/downloads/cce/default.asp
 ) da cui puoi
eventualmente partire per la ricerca.
Ciao
---
--
-
Mix
-
--
---

Newsgroup: it.comp.lang.visual-basic
Titolo: Datagrid e Recordset

Poi la metto come mia personale faq...
Mi spiegate per cortesia...
Faccio un test di un mio progetto (per la cronaca classi/collection e
amenità varie)
ed a un certo punto per vedere il risultato di un recordset (per debug)
mi son detto...beh uso sempre la HflexGrid....usiamo la datagrid
Acciderba a me! ecco perchè non la uso mai!
Vb6 Sp5 ADO 2.7 Access2000 come DBtest
connessione "client" (fin qui ci arrivo eh!)
trs è un recordset (provato in tutti i modi ...diciamo Keyset readonly)
pezzettino di codice
Set Me.MSHFlexGrid1.DataSource = Trs 'questa va e visualizza buon cara
vecchia flexgrid!
'provo la datagrid
Set Me.DataGrid1.DataSource = Trs
Me.DataGrid1.Refresh
'logicamente sta bastarda non visualizza nulla
aggiungo
Me.DataGrid1.ReBind
BOOOOOOM
esplode
"Impossibile inizializzare le associazioni dei dati"
sgrat sgrat
saranno relazioni nella tabella? coambio tabella e ne metto una sega (nome
cognome indirizzo)
solito errore!
Ecco perchè non utilizzo la datagrid!
Ma c'è una ragione di ciò?
San google è molto parco di notizie!
Saluti!
--
Il Wodkino Nazionale è a : 
www.martek.it
Pagina Vb/Bestiario/Lamer Experience :
http://www.martek.it/go.asp?portamia=2
Quotefix e altro: 
http://www.martek.it/go.asp?portamia=4
Usr: ICLVB Pw: amici

 ha scritto nel messaggio
news:U8BDa.42648$pR3.9...@news1.tin.it...

ciao wodka
quando usavo datagrid anche a me refresh non funzionava, usavo solo rebind
non ho capito hai usato tutte due insieme
ciao Ilario


> Il Wodkino Nazionale č a : 
www.martek.it


Newsgroup: it.comp.lang.visual-basic
Titolo: FTP in Visual Basic

Ciao a tutti!
Per caso qualcuno mi puņ aiutare a capire come si usa il controllo File
Transfer Protocol 5.0 fornito con il VB? Sto cercando di capire come poter
accedere ad un FTP proprio come quando utilizzo un programma tipo FTExplorer
o CUTEFtp, magari se conoscete od avete qualche controllo che riguarda la
gestione dell'accesso verso un FTP sarebbe fantastico.
Insomma qualsiasi cosa riguardo a come poter accedere ad un FTP in Visual
Basic :))
Grazie in anticipo :))))
Cordiali Salutit
Daniele
E-Mail: 
cusu...@global-italianet.it
ICQ: 7682285

Per caso qualcuno mi può aiutare a capire come si usa il controllo File

Newsgroup: it.comp.lang.visual-basic
Titolo: WebBrowser - Catturare l'handle

Questo messaggio è per Domenico Gottuso.
Non sò se è meglio continuare in privato il discorso o  quì, ora proviamo,
ma se questo rompe ditelo.
Il file per il webbrowser è shdocvw.ocx selezionabile con microsoft internet
control e naturalmente con installato internet explorer 4.x
Grazie e saluti a Domenico

...


...



La dll in questione e di 2 mb , non penso di poterla mandare in questo sito,
se vuoi mi dai email e te la posto lě
OK ??
Fammi sapere
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Problemino su DB vuoti!!

Ciao sicuramente quello che vi chiedo č una sciocchezza....
ma non riesco a trovare un valido metodo per non far inchiodare
i miei programmini quando si parte da un db vuoto per  esempio
e si va a cercare di leggere rercord (che magari sono vuoti) o
a cancellare rec fino a non averne piů....
ho trovato diverse varianti al problema ma non c'č ne č una
che mi dia sicurezza....
qualč secondo voi il metodo migliore???
ciao
fabry

qualè secondo voi il metodo migliore???
Qualsiasi tipo di accesso ai dati tu usi c'e' sempre una proprieta' / funzione
che si chiama EOF (o molto simile).
Se EOF restituisce True allora il dataset e' arrivato alla fine.
Ovviamente se se alla fine appena hai aperto il recordset/resultset
vuold dire che e' vuoto.
Un controllo piu' forte e' verificare il contemporaneo posizionamento
su BOF ed EOF.
-- 
ciao, hal

Quando apri il tuo recordset che io chiamerň Rs devi scrivere il
seguente frammento di codice:
Do While Not Rs.EOF           'Finchč non arrivo a EOF
	'OPERAZIONI DA EFFETTUARE
	Rs.Movenext           'Vado al record successivo
Loop
Se sei sicuro al 100% che il risultato della tua query č solo 1 (UNO)
Record allora puoi scrivere
If not Rs.EOF then      'Se non sono su EOF, allora vuol dire che ho
		         	'almeno un record           
'OPERAZIONI DA EFFETTUARE
End If
Spero di esserti stato d'aiuto.


Giovanni Lauria
Responsabile WRSoft Provincia di Taranto
wrsoft...@tiscalinetNOSPAM.it

 qualè secondo voi il metodo migliore???
Migliore è una parola grossa...
Diciamo che potresti controllare, prima di scrivere, eliminare ecc.., di non
essere in EOF (oppure BOF). Un buon F1 schiarirà le idee :-)
Ciao,
Carlo.

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Vb & Mac (URGENTE)

Esiste un modo per eseguire programmi scritti in VB nel MAC magari
appoggiarsi con l'INTERNET EXPLORER
Ciao e Grazie

...

Newsgroup: it.comp.lang.visual-basic
Titolo: ActiveBar Control or toolbar required

I am currently developing an app in VB6.0 professional.
I require a toolbar like the ones in MS Office. But instead of having images
on the buttons, I just want text.
I think they are called ActiveBar Control.
I think I have the ActiveBar control, but when I add it to my form, right
click on it and select 'designer ...' I get a message 'The designer failed
to open'. So I don't know how to use it.
Any ideas on my problem?
Is ActiveBar Control available for download (for free)?
Thanks,
Steve.
stephe...@dingoblue.net.au

Dear DingoBlue,
you can find the ActiveBar at 
www.datadynamics.com
.
Unfortunately, it is not for free.


Newsgroup: it.comp.lang.visual-basic
Titolo: Estrarre un carattere da una stringa

Qualcuno sa come fare ad estrarre un carattere da una stringa con VB5??? In
C era una cosa del tipo x=stringa[i], in vb5 come si fa?
Grazie a tutti coloro che risponderanno
Yuri
--------------------------------
Inviato via 
http://usenet.libero.it

 C era una cosa del tipo x=stringa[i], in vb5 come si fa?
Cerca "funzioni Stringa" in MSDN
Ciao

 ha scritto nel messaggio
news:81Z72Z3Z144Y10...@usenet.libero.it...


 ha scritto nel messaggio
news:81Z72Z3Z144Y10...@usenet.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Ma il Recordcount ed il EOF, Funzionano?

E' possibile che durante lo siluppo dei programmi anche quando il file di
Databse  č bello che finito l'EOF non lo vede per niente tranne se prima non
faccio un Movelast con conseguenza di errore per fine file ?
Esiste una sintassi piů precisa o un comando piů funzionate per controllare
i fine File?
Grazie anticipatamente Dario



Prova questa funzione
Function RecordsInTabella(ByVal db As Database, ByVal tb As String,
Optional ByVal criterio) As Long
'
Dim snTabella As Recordset, nRetVal As Long, SQL As String
'
If IsMissing(criterio) Then
  SQL = ";"
Else
  SQL = " WHERE " & criterio & ";"
End If
'
Set snTabella = db.OpenRecordset("SELECT Count(*) AS NumeroRecord FROM
[" & tb & "]" & SQL, dbOpenSnapshot)
If snTabella.EOF Then
  nRetVal = 0
Else
  nRetVal = snTabella("NumeroRecord")
End If
snTabella.Close
'
RecordsInTabella = nRetVal
'
End Function
La chiamata e':
RecordsInTabella(dbPippo, "Tabella") che restituisce il numero di
records nella tabella "Tabella"
oppure
RecordsInTabella(dbPippo, "Tabella", "Nome = ""Pippo""") che
restituisce il numero di records nella tabella "Tabella" che
soddisfano la condizione
Ciao
Nando

'
Solo una osservazione: se lo scopo è sapere quanti record ci sono in
una tabella, basta usare la proprietà recordcount su un recordset di
tipo tabella: se non sbaglio in questo caso si sa sempre subito quanti
record ci sono.
La tua funzione funziona, ma costringe a leggere tutta la tabella,
cosa che su tabelle grandi in rete potrebbe sfiorare l'eternità :)
(a meno, naturalmente, che il motore SQL sia abbastanza furbo da
ottimizzare la query).
Ciao
--------------------------------------------------------------------
Fulvio Senore
Eliminate "zz" dall'indirizzo e-mail per scrivermi (spammers...)
Remove "zz" from e-mail address to write me (spammers...)
--------------------------------------------------------------------

ottimizzare la query).
Grazie per il suggerimento, ne terro' conto
Nando
Newsgroup: it.comp.lang.visual-basic
Titolo: come inserire virgolette in istruz. Sql?

Salve non riesco ad inserire un nome che contiente un apice
p.e. D'Amico in record perchè ?
ho usato chr(39) nell'istruzione sql ma niente di fatto!!!
Qual'è la sintassi esatta?
Grazie by Lujx


Devi raddoppiare gli apici: una coppia di apici viene inserita come un apice
singolo, gli apici singoli invece come delimitatori di stringa.
Prova quindi ad inserire D''Amico

Si ma il fatto è che non posso prevedere tale cosa poichè i campi della
query sono presi da una text box quindi non è sempre possibile prevedere
quando verrà inserita la virgoletta
"Mela" <melani...@tiscalinet.COM> ha scritto nel messaggio
news:9pv64f$kvcnr$1...@ID-6300.news.dfncis.de...


 > > ho usato chr(39) nell'istruzione sql ma niente di fatto!!!
qualcosa come
dim ssql as string
ssql=replace(text1,"'","''")
set rs= openrecordset(ssql,...)
non l'ho ancora provato ma il prob si pone anche a me e pensavo di
risolverlo cosi.
consiglio: premi reply e muovi il puntatore fra le virgolette per
contarle...
ciao, j.'

 wrote in message
news:9pvaon$l21vj$1...@ID-51318.news.dfncis.de...

Ciao...
Java che te ne pare di una soluzione del genere???
**********************************************************
Public Function DoppioApice(instring As Variant) As Variant
    Dim outstring As Variant
    Dim i As Integer
    Dim n As Integer
 
    outstring = ""
    If IsNull(instring) Then
        DoppioApice = ""
        Exit Function
    End If
 
    n = Len(instring)
    For i = 1 To n
    If Mid(instring, i, 1) = "'" Then
        outstring = outstring & "''"
    Else
        outstring = outstring & Mid(instring, i, 1)
    End If
    Next i
 
DoppioApice = outstring
End Function
***************************************************
a me funziona bene sia col FindFirst che creando la query
con i campi presi dalla casella di testo...
tipo "SELECT a FROM b WHERE c=" & doppioapice(text1.text)...
Spero di essere stato utile... :-))
Ciao
Andy
-- 
Posted from  [62.205.142.199] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

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

 Ciao, Pascal ;)
cioe', quella che ho postato specificando di non averla provata funziona ?
mi sembra molto simile.
ciao, j.


Ma proprio IO devo venire a dire a TE di guardare i vecchi post? :PPP
Cmq nel centinaio di messaggi che aspettano di essere inserito nelle FAQ
questa domanda ricorre un paio di volte...
Ciaotutti,
*

 questa domanda ricorre un paio di volte...
anche nei 20-25k messaggi del mio db... anche se in questo caso non li ho
riguardati...
e poi, prima di rtfm e di cercare nei vecchi post, si prova sempre, no ? :)
ciao, j.try

io ho sempre usato chr$(34)
ciauzzzzzzz


Controlla sui vecchi messaggi.
ciaotutti,
*
Newsgroup: it.comp.lang.visual-basic
Titolo: - aprire + file con 1 sola applicazione

- aprire + file con 1 sola applicazione
il mio problema e questo:
Devo creare un'applicazione tipo Word,con queste 2 caratteristiche:
1. deve essere eseguita 1 sola volta (cioe' 1 sola istanza)
2. i file associati ad essa si devono aprire in una propria Form (contenuta
in una MDIForm),senza avviare una nuova istanza dell'applicazione
Prendiamo come esempio Microsoft Word.
Se io faccio click su un file .DOC si apre Word,e di conseguenza il relativo
file.
OK!!!
Se invece x la 2° volta,faccio click su un altro file .DOC,non si apre di
nuovo Word,ma soltanto una finestra al suo interno,che contiene il 2° file.
RISULTATO
2 file aperti,1 sola applicazione.
X non lo avesse notato, invito a farlo!!!
Il mio obbiettivo e' fare la stessa cosa.
Il 1° problema si risolve con questa bazzecola:
if app.previnstance then end
Il 2° mi preoccupa,xche' devo indicare all'istanza precedente,di aprire il
file contenuto nella variabile 'Command'
Spero di essermi spiegato.
--
RISPONDETEMI SUL NEWSGROUP

 file contenuto nella variabile 'Command'
Possiedo i sorgenti di un'app che contiene un richtextbox e costituita da un
MDI a doc multipli.
Descriverti i meccanismi sarebbe complesso, se vuoi ti faccio avere il file
zip.
Ciao
Daniele Grignani

Newsgroup: it.comp.lang.visual-basic
Titolo: Setup VB6

Ciao,
Qualcuno sa se esiste il modo in vb6 di evitare che, ogni volta che si
ricompila il progetto, occorra rifare completamente i dischi di
installazione?
Con i VB precedenti bastava comprimere l'eseguibile con estensione .ex_ e
sovrascrivere quello nei dischi di installazione, ma VB6 crea dei files
.CAB.
Dato che mi capita di inviare i dischi d'installazione via e-mail, vorrei,
se possibile, evitare di mandare ogni volta i circa 3MB di roba con evidenti
problemi, e inviare invece solo l'exe ricompilato...
Come fare?

salve,
se utilizzi piu' file cab, dopo aver ricreato i file cab dal file .bat
potresti mandare solo il cab modificato..
saluti
Andrea Montanari
hs...@guest.net

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Errore 50003

Ciao a tutti,
VB5 SP3
Certo e' che quando VB ci si mette, fa porprio arrabbiare.
VB sul mio PC Portatile, vado dal cliente, rilevo un baco nel mio prg, lo
sistemo sui sorgenti che mi ero copiato sul portatile, compilo, provo, tutto
OK, copio l'exe sul PC del cliente; Errore 50003 all'avvio
dell'applicazione!
Giocando con l'ini file con il quale posso togliere alcune finestre del prg,
ed e' emerso che, credo, che il problema lo davano le finestre con l'mscomm,
_credo_; quando si e' dal cliente non c'e' mai tempo per fare vero debug
qundi non so cosa dava quel maledetto errore 50003.
Il prg e' installato su 3 PC dal cliente, e su tutti e 3, stesso problema.
Ho fatto i dischi di installazione, ho reinstallato il prg sui PC del clente
e si e' messo a funzionare.
Mi pare di aver capito che il prg si comporta in modo diverso se lo compilo
dal mio PC in ufficio rispetto a quando lo compilo sul portatile.
Entrambi i PC hanno WIN98 ed entrambi hanno VB5 SP3.
Qualcuno sa darmi qualche chiarimento?
Grazie
Ciao
By -MES-   Maronese Ettore
http://www.maronese.com/mes
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://www.murialdo.it/it_lang_vb

 VB5 SP3
ciao ettore--
mi verrebbe da dire: come me...
non fosse che mi sa che ciascuno di noi abbia un mix (non maurizio :)
articolato di
-- vb con cui facciamo i prg
-- vb sp
-- vb da exe installati di versioni diverse
-- win
-- win sp
-- controlli vari ed eventuali
cioe': io come te ho vb5sp3.
solo che mi trovo dei cmn ctrls 6, anche sp2..., che posso usare. c'e' pure
una toolbar.
per curiosita' ho provato a prendere un mio prg che usava quella vb5, e a
mettere la vb6 --> errore compilazione, classe non registrata.
se la metto ex novo, mi sembra gli piaccia molto. evidentemente cambiano dei
metodi o simili...
in compenso un altro prg nel setup wizard cerca disperatamente la
stkit432.dll ... e mi dice che non ha dipendenze per il comn ctrl ocx ... IL
MIO OCX, QUELLO DI VB5 !!!
ho mandato ieri un exe per posta a uno in america e gli dava errori ole
ecc. -- mandatogli anche l'ocx, miracolosamente tutto ok (il mio programma.
poi magari excel gli fulmina i conti di casa dell'ultimo piano
quinquennale...) (cioe': il tuo cliente ha fatto girare anche gli altri
programmi sui pc dov'e' installato il tuo?) (e tu sei a distanza di
sicurezza?)
BASTA !! PLEASE !! NON VOGLIO PIU' ESSERE UPGRADATO !!
ammetto che io smacchino abbastanza con la rete, tendo a scaricare almeno
5-10 free anche complessi al giorno, installandone e dis- uno o due al
giorno.
cio' non toglie che vorrei che *almeno* i controlli che ho regolar- e
salatamente pagato  vorrei ritrovarmeli, senza che l'ultima versione me li
sparisca (transitivo per l'imbestialimento) da sotto al naso e mi dica che
non sono piu' ok (loro, io lo sono senz'altro)...
roal, quanto mi metti un corso di *delphi* email condensato per testoni ??
pagamento al conseguimento risultati, a prescindere dalle sinapsi dello
scolaro...
ma temo che non sarei al sicuro dai controlli comuni in ogni caso...

Newsgroup: it.comp.lang.visual-basic
Titolo: indirizzo del Sito ufficiale?

Ho perso l'indirizzo del sito ufficiale, qualcuno me potrebbe postare?
Tempo fa era qualcosa come ....murialdo.....!

 ha scritto nel messaggio
news:8i4l06$mvj$1...@nslave1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Identificazione Hardware con Vb

Qualcuno sa se č possibile, dall'interno di una applicazione VB, conoscere
dal sistema un qualcosa che identifica l'Hardware del PC su cui
l'applicazione sta girando. Potrebbe essre un identificatico della scheda
video, della scheda madre, del processore, di un disco, di una scheda di
rete..., di qualunque cosa. Ovviamente non qualcosa che dipenda da un
aformattazione succesiva, come il numero di serie di un disco rigido o di un
floppy.
Potrebbe servire come alternativa (meno efficiente ma piů economica) ad una
chiave hardware.
Grazie a tutti anticipatamente
--
The Eng Coach
E-Mail: 
theen...@freemail.it

 wrote in message
news:93ro27$6l9$1...@nread1.inwind.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Fermare un ciclo for...

Ciao ragazzi...
avrei la necessità di voler bloccare un ciclo for attraverso un pulsantino.
il problema è che quando è in corso la ricerca (cioè il ciclo for) alle 
volte il puntatore del mouse scompare o comunque quando appare mi è 
impossibile premere qualsiasi pulsante. Come potrei fare??
Immaginatevi una ricerca in corso...e la mia voglia di fermarla (cioè 
fermare il ciclo for).
??
:)
attendo un vostro aiuto.
grazie a tutti.
tranky 

fermare il ciclo for).
Mettici un bel DoEvents all'interno del ciclo e verifica se è stato
premuto il pulsante in questione tramite una variabile booleana che
setti a true quando lo premi
Questo ti rallenta un pelo la routine, ma ti permette di uscire quando
vuoi...
Ciau
Click 

 vuoi...
Se invece del Do Event mette un If sarebbe piů velňoce o piů lento?
Cosi:
For ....
    fa il tuo lavoro
    if BottonePremuto = true then exit for
next
--
Greg

 next
Il DoEvents ti serve per permettere all'utente di premere il tasto.
Per il rallentamento basta che il DoEvents venga eseguito solo "ogni tanto".
es.:
    If i mod 100 then Doevents 'Solo ogni 100 cicli.
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]

     If i mod 100 then Doevents 'Solo ogni 100 cicli.
Emh... ovviamente questo era
If (i mod 100) = 0 then Doevents 'Solo ogni 100 cicli.
:)
Ciao

 Il DoEvents ti serve per permettere all'utente di premere il tasto.
E si scusa, ho detto una stupidaggine.
Senza Doevents manco si riesce a premere il pulsante :(
--
Greg

 ha scritto nel messaggio
news:XQNhe.901426$b5.39...@news3.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: compattare tabella .dbf con visual basic

Ciao,
qualcuno mi riesce a dare delucidazioni su come fare (VB6).
    Max

prova a vedere se funziona questa
DBEngine.CompactDatabase "db2.mdb", "db2.mdb2", dbLangGeneral
dove mdb2 è il db compattato.
Credo che dovrebbe andare bene anche x i dbf.
Sennò vedi come funziona dbengine
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

 Credo che dovrebbe andare bene anche x i dbf.
debbo dubitarne.
se ne e' discusso a lungo, p.e.
http://groups.google.com/groups?as_q=dbf%20deleted&ie=UTF-8&oe=UTF-8&as_ugroup=it*basic&lr=&num=50&hl=it
nel primo thread c'e' un suggerimento di ugo mangini.
ciao, j.

Grazie mille ho risolto il problema.
   Max

Aspita! Questa proprio non la sapevo...

Newsgroup: it.comp.lang.visual-basic
Titolo: creazione pacchetti installazione con vb6

Ciao a tutti !!!
mi sembra di aver letto che esiste la possibilità tramite il sito di
microsoft di scaricarsi un tool di creazione di pacchetti di istallazione
applicazioni per vb6 del tipo install shield che e' migliore di quello
presente in vb6 , che funziona con vb6  ma che si trova su msdn e occorre
avere l'abbonamento a msdn  ????
qualcuno sa confermarmi qualche cosa ?????

 ha scritto nel messaggio
news:bb7ijk$crv$1...@newsreader.mailgate.org...


 avere l'abbonamento a msdn?
Visual Studio Installer non ho il link sotto mano ma lo
trovi con una ricerchina veloce veloce sul sito microsoft.
Non e' necessario abbonamento MSDN, mi pare (e dico pare)
che ci voglia pero' una licenza di VS6 (nel senso che non
basta VB6).
Lokar
-- 
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
Statuto: 
http://www.it-lang-vb.net/docs/Statuto.txt
UGIdotNET - 
http://www.ugidotnet.org

Newsgroup: it.comp.lang.visual-basic
Titolo: Inserimento dati in campo memo - HELP

riposto il msg completo dei msg di errore.
Il capo nopc contiene del testo sotto questa forma
1111111§222222§222222§33333
Il comando SQL di aggiornamento del record è
 dbcon.Execute "INSERT INTO guadagni (c_fnd,c_gst,[nop_a],anno) VALUES ('" &
codice & "','" & lstpers.Text & "'," & nopc & "," & Year(txtdt.Text)
  il messaggio di errore è
 Errore di run-time '-
2147217900
(80040e14)'
 Errore di sintassi (operatore mancante) nell'espressione della query
'valore nopc'.
oppure
 dbcon.Execute "INSERT INTO guadagni (c_fnd,c_gst,[nop_a],anno) VALUES ('" &
codice & "','" & lstpers.Text & "',' " & nopc & " '," & Year(txtdt.Text)
il messaggio di errore è
 Errore di run-time '-
2147217900
(80040e14)'
 Errore di sintassi nell'istruzione INSERT INTO
Grazie anticipatamente a chiunque mi sia di aiuto.
Outbank

 1111111§222222§222222§33333
non è che contiene anche qualche apice?
Salutoni
Sergio

  Errore di sintassi nell'istruzione INSERT INTO
Qui invece è fra apicini, pur con uno spazio dopo il primo e prima del
secondo. A parte lo spazio (che toglierei decisamente) appare corretto,
visto il contenuto.
Fai una cosa: Prova con:
dbcon.Execute "INSERT INTO guadagni (c_fnd,c_gst,[nop_a],anno) VALUES ('" &
 codice & "','" & lstpers.Text & "','1111111§222222§222222§33333'," &
Year(txtdt.Text)
e vedi cosa ti dice.
Ohhh, porca pupattola, intanto che scrivo vedo che manca la parentesi di
chiusura di VALUES (..., giusto dopo Year(txtdt.Text), quindi:
dbcon.Execute "INSERT INTO guadagni (c_fnd,c_gst,[nop_a],anno) VALUES ('" &
 codice & "','" & lstpers.Text & "','" & nopc & "'," & Year(txtdt.Text) &
")"

 Grazie di cuore. Tanta fatica per .... l'omessa parentesi
permettetemi un sono proprio un p......