mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: larghezza di un testo da stampare

Salve,
so che e' possibile farlo, ma non ricordo come :-)
Avrei bisogno di sapere la larghezza in mm (dopo aver settato la
proprieta' Scale dell'oggetto printer) e magari anche l'altezza, di un
testo da stampare.
Questo per permettermi di centrare il testo stesso rispetto il foglio.
Chi mi ricorda come si fa?
Ciao e grazie... Maurizio

 
bye
r

 ha scritto nel messaggio 
news:vBZme.965107$b5.41...@news3.tin.it...


 così lo centri nella riga
Se Printer.ScaleMode=vbMillimeters (come suggerito da Mizio), allora
dovrebbe essere
xpos = (210- printer.textwidth(Testo))/2
Da notare tuttavia che questo presuppone che il foglio largo 210 mm,
ovverosia in A4 e in verticale (Printer.Orientation=vbPRORPortrait).
Generalizzando, sarebbe meglio usare la proprietà Printer.Width, che
però è sempre in twips. C'è la funzione ScaleX per trasformarla
nell'unità di misura corrente dell'oggetto Printer. Ergo:
xpos = (Printer.ScaleX(Printer.Width,vbTwips,Printer.ScaleMode)) -
Printer.TextWidth(Testo)) / 2
Invece di Printer.Width si potrebbe usare Printer.ScaleWidth, che
ritorna la larghezza "disponibile" del foglio, ovvero esclusi i margini
non stampabili.
Per centrare in altezza, vale il discorso analogo.

 Generalizzando, sarebbe meglio usare la proprietą Printer.Width,
....
Mmm... avevo provato con questa proprieta' andando un po' a naso e prima di 
postare la richiesta di aiuto, pero' mi dava un errore che non mi ricordo e 
che non posso provare ora, ho appena rimesso in piedi il pc dopo aver 
sostituito l'HDD
ciao e grazie... Maurizio
Newsgroup: it.comp.lang.visual-basic
Titolo: VBA - Come annullare i dati inseriti su TextBox con tasto "Annulla"

Ciao a tutti,
ho realizzato una finestra di dialogo per l'immisione di alcuni dati
utilizzati poi da altre finestre.
Vorrei oltre al tasto OK per confermare i dati anche un tasto "Annulla" che
una volta premuto mi cancelli tutti i dati riportandoli alle impostazioni
originarie.
Non è detto che le impostazioni originarie siano quelle di default ma
potrebbero derivare da precedenti modifiche dell'utente
Quale codice devo scrivere sul tasto "annulla" che praticamente deve
funzionare esattamente con il tasto "X" di tutte le finestre di dialogo
Spero di essermi spiegato bene...
Ringrazio tutti in anticipo.
Ciao da Emiliano

 ha scritto nel messaggio
news:UeGia.64372$i26.1...@news2.tin.it...

Se stai parlando di progetti di ACad io ho avuto lo stesso problema
(versione 2000), cioè dopo l'unload dei forms, nel ricaricarli i valori dei
controlli e le variabili a livello di modulo, restano ancora in memoria, io
ho risolto con una routine, richiamata all'apertura dei forms, che setta i
valori di controlli e variabili a Null.
Ciao, omnitow

 Spero di essermi spiegato bene...
Azz , vba non lo conosco proprio cmq la logica di base e' :
Clicco su un tasto modifica
    -registro i valori da qualche parte (vettore)
    .... fai quello che vuoi ....
    if clicco su annulla
        ripristino i vecchi valori
        esco
    if clicco salva
        faccio quello che devo fare
        ' lascio invariati i valori cosi da registrarli al prossimo ciclo
        esco
esco

Newsgroup: it.comp.lang.visual-basic
Titolo: Dove sbaglio (*.cab?????)

Ciao a tutti,
ho creato un'applicazione con VB 6, ed ora dovrei distribuirla con
dischetti e/o con directories condivise in rete.
La prima differenza che ho trovato rispetto al wizard utilizzato con
VB5, č la presenza nel kit di installazione dei file .cab (Cabinet).
Ora, se effettuo l'installazione dal mio Pc non ci sono problemi i file
.cab rimangono tali mentre, se provo ad
effettuare l'installazione su di un altro Pc utilizzando dischetti o
rete, l'estensione del file diventa .zip (che centra?) e
l'effetto finale č un errore con conseguente abort dell'installazione.
Dove sbaglio e chi puň aiutarmi?
Scusate l'ignoranza. Non farň piů una domanda del genere .


Come li metti su dischetto questi file CAB?
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!

Ancora non li ho messi sui dischetti.
Attualmente sono sul mio Hard Disk su di un direttorio specificato durante
il Wizard (ES: App_Install)
Successivamente via rete, attraverso condivisione, saranno copiati su
altri PC(App_Install) ed installati via setup.exe
Poi per ragioni di società archiviati su floppy da 1.44 Mb
Sandro

Newsgroup: it.comp.lang.visual-basic
Titolo: prg che funziona su cd

con il passaggio a vb5 e vb6 non ho + avuto questa esigenza ma con il buon
vecchio vb3 quando creavo un'applicazione (programmino) quando
copiavo tutti i filese e vbx nella dir dell'exe tutto funzionava.
ora mi trovo nella situazione di dover creare un'applicazione che deve
funzionare senza effettuare l'installazione
esiste un modo per farlo?
grazie

 ha scritto

Hai provato a mettere le run-time di VB nella stessa dir del tuo programma?

 ha scritto nel messaggio
news:OkFT7.327344$sq5.15...@news.infostrada.it...

forse ti puo' servire:
http://www.bit-arts.com/fusion.html
ciao. buc

 ha scritto

se crei un exe normale con i controlli standard, quelli che hai in palette
aprendo vb, ti basta mettere la dll (50 o60) nella stessa dir dell'exe sul
cd. funziona, provato.
se usi controlli che vanno registrati (es. ovvio: dbgrid), la vedo male.
forse -- forse -- funziona anche se li registri tenendoli sul cd, ma non so
cosa ne pensa poi win quando si toglie il cd.
ciao, a.
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Programma per lo screen-recording

Ciao ragazzi....
lo so, è lievemente OT, però qui siamo tutti programmatori e magari mi
potete dare una mano....
sto cercando sul web un'applicazione per registrare su un file AVI il
desktop del PC, per creare una sorta di file video da usare come help per
una mia applicazione.....
un po' come fa il lotus screen-cam, per spiegare meglio!!
possibilmente freeware.......
grazie e buon week-end a tutti!!!
--
Damiani Liborio Igor
ig...@igordamiani.it
 - 
dam...@italiainfiera.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262

Conosco Camtasia...ma č shareware dopo il periodo di test funziona ma ti
mette in basso la scritta UNREGISTRED:
http://www.techsmith.com/default.asp
Gianni


CamStudio
www.atomixbuttons.com/vsc
--
Mauro
www.cerretosoft.it

grazie a tutti e due.....
sto guardando sia l'uno che l'altro.....
grazie ancora e buona domenica!!

Newsgroup: it.comp.lang.visual-basic
Titolo: browse directory

come faccio a ottenere una finestra tipo commondialog, ma che visualizza
solo directory.
esistono soluzioni alternative a a DirListBox?

 
http://www.allapi.net/apilist/SHBrowseForFolder.shtml
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

Newsgroup: it.comp.lang.visual-basic
Titolo: End senza End

Ho creato una piccola applicazione che usa la traybar.
Il problema che nel menu a tendina avevo inserito End per chiudere il prog
dalla finestra andava ma se cliccavi sulla traybar dava errore (Con gli
altri tasti posizionati sulla trayber andava) allora ho usato un unload (e
scaricavo tutti i form) ma se lo facevo dalla traybar non succedeva niente
mentre dalla finestra andava bene.
Disperato ho scelto di non mettere il tasto chiudi e se qualcuno voleva
chiudere doveva premere X sulla barra del form fatto sta che non si chiude,
sembra tutto chiuso ma se uno preme CTRL+ALT+CANC vede la mia applicazione
non chiusa.
COME FACCIO A CHIUDERE IL PROGRAMMA!!!
Grazie in anticipo!
Per creare la traybar ho scaricato dal sito comune l'esempio e da li ho
creato la mia applicazione

COME FACCIO A CHIUDERE IL PROGRAMMA!!!
Innanzitutto senza End, indipendentemente da TrayBr, Tray senza bar o Bar senza Tray....
Scarica tutti i riferimenti agli oggetti utilizzati (impostandoli a Nothing) per liberare memoria e
"unloada" tutti i forms:
For i = Forms.Count - 1 To 0 Step -1
    Unload Forms(i)
Next i
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
---------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Bug nella Key di ListView?

Utilizzando una Listview che riempio nel modo illustrato qui sotto
ottengo il messaggio: invalid key!
    Set itmX = ListView1.ListItems.Add(, CStr(lst!IDPREN), lst!nome)
dove lst e' un recordset ed IDPREN e' un contatore (long).(L'errore si
verifica sin dal primo elemento ed il contatore non e' duplicabile ;-0
Funziona invece se aggiungo una stringa qualsiasi come qui sotto:
    Set itmX = ListView1.ListItems.Add(, "i" & CStr(lst!IDPREN),
lst!nome)
Evidentemente la key non puo' essere un numero, anche se convertito in
stringa!
Questo comportamento e' bizzarro perche' istruzioni simili per ComboBox
e ListBox funzionano perfettamente ;-(
Qualche suggerimento???
grazie
		maxx
P.S.
Mi sapete dire se e' possibile aggiungere una key in un comando load (di
un controllo); ad es.:
Load MyControl(mylong,cstr(Mylong)) 
ovvero: mi sarebbe comodo assegnare come Indice a dei  Controlli
caricati dinamicamente un Long; poiche' pero' questi Long non sono
sequenziali, quando devo passare in sequenza questi controlli se uso la
sintassi:
for i = 0 to Mycontrol.UBound
next i 
si verifica un errore perche' non trova degli Index ( la cosa,
bizzarramente!, si verifica anche se uso degli indici sequenziali e poi
rimuovo con Unload un elemento: gli indici non vengono
riorganizzati!!!).
Daltronde non posso nemmeno usare la sintassi:
dim tmpCtl as Mycontrol
for each tmpCtl in Me.Controls
next tmpCtl
che non viene compilata, ma devo ricorrere a:
dim tmpCtl as Control
for each tmpCtl in Me.Controls
	if Typeof tmpCtl is MyControl then
		if tmpCtl.ID = MyLong	then
			...
			exit for
		end if
	end if
next tmpCtl
e questa sintassi mi sembra alquanto barocca, ma soprattutto lenta se
ripetuta spesso e con molti controlli sul Form (come e' nel mio caso!).

 ripetuta spesso e con molti controlli sul Form (come e' nel mio caso!).
Non viene in mente niente di meglio neanche a me!
Ciao
Riccardo
Newsgroup: it.comp.lang.visual-basic
Titolo: Aggiornale la barra Avvio

E' possibile aggiornale la barra avvio dopo aver chiuso un programma
nella task area? Attraverso il mio prog. chiudo la systray ma non
riesco ad eliminare l'icona senza passarci sopra con il mouse.
Ciao
Edo
------------------------
E-mail
gd...@tin.it

...

In che senso "chiudi" la system tray se poi non riesci a togliere l'icona?
Per eliminare l'icona dalla S.T. basta passare a Shell_NotifyIcon()
NIM_DELETE anzichè NIM_ADD.
Se l'icona non si toglie probabilmente hai cannato ID!
L'argomento è particolarmente in voga negli ultimi giorni, ti consiglio una
lettura ai relativi messaggi.
Ciao.


------------------------
E-mail
gd...@tin.it

>
Prova a spiegarmi come fai a chiudere la tray...
Conosci l'handle?
Se è così puoi provare con un SendMessage hTray, WM_MOUSEMOVE, 0, 0 per
simulare il passaggio del mouse (forse).

Chiudo la tray terminando il task "systray".  L'applicazione "systray"
si chiude ma come ti ho gia detto l'icona rimane. 
Comunque conosco il process ID dell'applicazione
Servirebbe una API che dal ID del processo mi dà l'HANDLE oppure
un'altra che da il focus ad un programma dandogli questo ID.
Ciao
Edo


------------------------
E-mail
gd...@tin.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Visual basic & i report di access

Una semplice domanda: è possibile stampare da un programma vb un report
contenuto in un db access?
grazie
Sleeper
-------------------------
Let the light surround you

contenuto in un db access?
Yes, ed è quello che serviva anche a me. Ho risolto cosi':
-----------------------------------------------------------------------------------
Public Const acPreview = 2
Public Const acNormal = 0
Public Sub RunReport(Subject As String, Optional Preview As Variant)
    Dim Access As Object
    If IsMissing(Preview) Then Preview = False
    Set Access = CreateObject("Access.Application")
    With Access
        .OpenCurrentDatabase filepath:=DB_NAME
        If Preview Then 'preview report on screen
            .Visible = True
            .DoCmd.OpenReport Subject, acPreview
        Else 'print report to printer
            .DoCmd.OpenReport Subject, acNormal
            DoEvents 'allow report to be sent to printer
        End If
    End With
    Set Access = Nothing
End Sub
--------------------------------------------------------------------------------------
A DB_Name metti ad esempio "C:\DATI.MDB"
mentre quanto richiami la routine RunReport come Subject gli passi
in stringa il nome del report usato in Access.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Trasmettere dati con Winsock, é possibile ?

Ciao a tutti !
Ho cercato un po' in internet degli esempi di uso del controllo
Winsock.
Ho trovato parecchi esempi che mostrano come trasferire testi, o
semplici "Botta e Risposta", ma quel che mi interessa é la possibilità
di trasferire dati tipo file bitmap o file wave.
E' possibile farlo con il controllo in questione ? 
Bisogna inventarsi qualche protocollo tipo ZModem o Xmodem o roba
simile ?
Grazie per aver letto il mio messaggio
Dave

Beh i dati vengono inviati come stringhe...quindi ci trasferisci quello che
vuoi...magari è tua cura aggiungere il file a pezzi perchè in invio c'è un
buffer. Non ti serve niente altro.

 E' possibile farlo con il controllo in questione ?
Ovviamente sì, apri un file in binario, spedisci ciò che leggi come stringa
e ricomponi dall'altra parte... poi ti puoi divertire con il protocollo per
gestire i crc, farlo a recupero d'errore e così via.... Se non ricordo male
sul sito comune c'è un esempio di prg che usa il winsock che fa un sacco di
belle cose tra cui anche la spedizione di files....
Ciao e buon lavoro...


il crc non dovrebbe servire , provvede gia' lo stack tcp/ip a fornire la
verifica dei dati.
le informazioni necessarie sono la dimensione dei dati da trasmettere ed
eventualmente il nome del file.
la diemnsione ti serve per stabilire quando termina la trasmissione e
garantirti da premature interruzioni di della connessione 
P.S. l'ftp usa in realta 2 connessioni una per i comandi ed un altra per
i dati )

Ciao!
Trovi un esempio sul mio sito Internet, nella sezione "Dichiarazioni utili a
tutti".
--
Marco Minerva, 
vbco...@libero.it
http://www.marcominerva.com/vbcorner
"-< Dave >-" <da...@hate.spam> ha scritto nel messaggio
news:l5nsvtgdfeghjacsh...@4ax.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: la rotellina del mouse

Salve a tutti.
Volevo chiedervi come si possa gestire, su una DataGrid la rotellina del 
mouse per far scorrere le righe visualizzate o verso l'alto o verso il 
basso. Mi potreste, casomai, indicare un po' di codice?
grazie a tutti
L.
-- 
    /|                   L i n o G e
  \'o.O'  "Io ho vissuto a lungo, migliaia di anni, ma
  =(___)= non sono un dio e nemmeno uno degli immortali."
     U                                          s. kinG
 
 
 

 L.
Devi intercettare WM_MOUSEWHEEL
Cerca in 
groups.google.com
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

Prova questo codice, metti in un modulo:
Public glPrevWndProc As Long
Public Const GWL_WNDPROC = (-4)
Public Const WM_MOUSEWHEEL = &H20A
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal
hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal
lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam
As Long, ByVal lParam As Long) As Long
Public Sub pUnSubClass()
  SetWindowLong Form1.hwnd, GWL_WNDPROC, glPrevWndProc
End Sub
Public Function pMyWindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal
wParam As Long, ByVal lParam As Long) As Long
  Select Case uMsg
    Case WM_MOUSEWHEEL: Debug.Print "WHEELING!"
  End Select
  pMyWindowProc = CallWindowProc(glPrevWndProc, hw, uMsg, wParam, lParam)
End Function
Public Function fSubClass() As Long
  fSubClass = SetWindowLong(Form1.hwnd, GWL_WNDPROC, AddressOf
pMyWindowProc)
End Function
Poi metti in un Form:
Private Sub Form_Unload(Cancel As Integer)
  On Error Resume Next
  pUnSubClass
  Unload Me
End Sub
Private Sub Form_load()
  glPrevWndProc = fSubClass
End Sub
Nella debug window vedrai la scritta al movimento della rotellina (non so se
questo codice funziona solo per Win NT/2000/XP o anche in Win 9x......)
Ciao
Duke
http://www.catenaia.cjb.net



Ho visto funziona.A quale evento debbo associarlo per far 
scorrere la scroolbar della griglia?
Tks


Prova a guardare il metodo Scroll.....
PS Anche a te per caso piace Stephen King?
Io sono un suo fan accanito, ho letto circa 20 suoi libri e ne devo ancora
leggere altrettanti che ho gia' comprato....


 
[OT] PS :
Ho letto tantissimo di King e sono sempre rimasto affascinato 
dalle sue opere. Visto che ho quasi finito con i libri adesso 
sono passato ai film tratti dai suoi romanzi ...
Avrai letto sicuramente "La tempesta del secolo": e' da li che 
ho preso il nick ;)
Ti consiglio anche R. Laymon ... buona lettura

Newsgroup: it.comp.lang.visual-basic
Titolo: Origine dati su Crystal Report

Ho sviluppato un semplice programmino di prova con visual basic 6,
appoggiato su un database access.
Visualizzo i risultati con CR, il problema è che vorrei cambiare fonte dati,
cioè il file database di origine.
In visual basic utilizzo i moduli di classe, ma non so come fare con crystal
report.
C'è qualcuno che può aiutarmi?

 ha scritto nel messaggio
news:9rokne$hoq$1...@fe1.cs.interbusiness.it...

Sito comune: crysvr
ciao
ugo

 > cioč il file database di origine.


 buon lavoro
Altrettanto.
ciao
ugo

 ha scritto nel messaggio
news:9rokne$hoq$1...@fe1.cs.interbusiness.it...


    Se utilizzi CR come OCX, la versione fornita con  VB6  (la 4.6),  e
utilizzi la OCX collegata a una fonte dati tipo Data control tramite la
proprietà datasource, allora avviene tuto in automatico nel momento in cui
cambi il database al data control, altrimenti devi utilizzare la proprietà
connect.
Saluti
G.Chieli

Newsgroup: it.comp.lang.visual-basic
Titolo: cosa mi consigliate?

Salve vorrei incominciare ad avvicinarmi al mondo della programmazione, in
particolare al pacchetto visual 
studio.net
.
Che manuale mi consigliate per iniziare da zero?
In rete ci sono tutorial ed esempi (tutorial).?
Grazie

 ha scritto nel messaggio
news:gH1Cc.512935$rM4.21...@news4.tin.it...

Una bella ricerca su Google non guasta mai... poi come manuale puoi prendere
"Programmare Microsoft Visual Basic.NET edizione 2003" di F.Balena edito da
Mondadori Informatica. Prezzo 75 Euro.
Con questo manuale impari 
VB.NET
 e  passare a C# č quasi immediato (massimo
2 settimane) a detta degli esperti.
Ciao, Vincenzo
Newsgroup: it.comp.lang.visual-basic
Titolo: Help!Shdocw.dll

Salve a tutti.Ho un problema con la libreria di cui sopra,in un progetto
in cui utilizzo il controllo inet.Succede questo,durante
l'installazione,quando prova a registrare la libreria SHDOCW.DLL,non ci
riesce e chiede se 'Termina,riprova o Ignora'. Ovviamente se scelgo
ignora,continua con l'installazione,ma poi il programma non funziona.Se
provo a registrarla a mano,mi da' errore,dicendo 'GetLastError returned
error....' ecc....
Qualcuno mi puo' aiutare?Vi prego,il programma e' tutto fondato su un
browser personalizzato!

Non puoi registrare questa DLL (non puoi distribuirla, almeno
separatamente). E' parte di IE e puoi solo installare il programma dove sia
già installato IE (fra l'altro, l'errore può essere dovuto al fatto che
cerchi di registrare la dll su un pc dove non è installato IE, ma anche dove
è installata una versione diversa). In alternativa puoi:
(a) sottoscrivere il contratto IEAK di Microsoft per la distribuzione di IE
(b) scaricare dal sito MS le specifiche per la registrazione delle
componenti necessarie (sono diverse DLL). Purtroppo non ho sottomano
l'indirizzo, ma suppongo che si trovi anche passando da IEAK (mi sembra che
sia passato anche dal sito di VB).
----------------------------------------------------------------------
Stefano Minardi
zet...@mclink.it
----------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] Invio email

Ho trovato su internet un Componete vb  (SMTP.OCX) per l'invio delle mail.
Fin qui tutto bene. il controllo funziona benissimo.
Il mio problema nasce quando devo inviare un'email a piu' destinatari e con
piu' allegati.
Sapete se questo controllo puo' inviare email a piu destinatari e con piu'
allegati.
Grazie!!

Ho trovato su internet un Componete vb  (SMTP.OCX) per l'invio delle mail.
e se non non lo abbiamo trovato?


allegati.
Si, se hai trovato il controllo hai anche le istruzioni per sapere
come (anche se mi stupisce tu non abbia provato il metodo classico...
avrai mandato qualche volta la stessa email a piu' destinatari...)
--
Ciao!
Luca Menegotto

 avrai mandato qualche volta la stessa email a piu' destinatari...)
devo fare un programma che mada email leggendo un file di testo proveniente
da AS400
ho provato con outlook e' va tutto bene.
ora devo farlo pero' senza usare outllok.
ho provato con cdo.message ma il server exchange mi blocca in qualche modo
quando non uso il mio dominio interno.
con il controllo smtp1.ocx sembrava che lo avessi risolto ma non riesco a
mandare email a piu' destinatari e con piu' allegati..
comunque grazie per aver risposto.

mandare email a piu' destinatari e con piu' allegati..
Non conoscendo il controllo che usi tu, non so come aiutarti. Io uso
OSSMTP.OCX di OstroSoft (
www.ostrosoft.com
). Va molto bene ed e' ben
documentato. Per inviare a indirizzi multipli, basta separare i nomi
con il punto e virgola (o con la virgola, in questo istante mi
sfugge), e per inviare gli attachments basta riempire adeguatamente la
relativa collection.
Il tuo come si comporta, esattamente?
--
Ciao!
Luca Menegotto


Visto che il file ce l'hai su AS/400, non puoi mandare l'e-mail direttamente
dal server? C'è un comando di sistema operativo!
Ciao, Vincenzo
Newsgroup: it.comp.lang.visual-basic
Titolo: controlli runtime

Salve,
ho creato delle textbox a runtime, mediante una funzione, che vanno a d 
inserirsi in un form1
 
    Set txt(1) = frmScale.Controls.Add("VB.textbox", "txt1")
    With txt(1)
            .Visible = True
            .Top = sopra
            .Left = 2600
            .Height = 300
            .Width = 500
            .BackColor = "&HFFFFFF"
            .BorderStyle = 1
    End With
..se eseguo controlli e inserimenti nelle textbox, direttamente dentro la 
funzione, tutto va bene, se invece cerco di leggere il valore di queste 
textbox, fuori dalla funzione, mi genera un errore.....sicuramente mi 
sfugge qualcosa,,, ma cosa ???

dovrebbe essere un problema di visibilità dell'array txt che hai usato. Dove
l'hai definito.
Per dire
Private Sub Form_Load()
Dim txt as TextBox
End Sub
ho scritto senza troppa testa, non guardare la sintassi. Quello che voglio
dire è che sei hai dichiarato l'array txt dentro la Form_Load, al di fuori
di questa Sub non puoi accedere a questo array.
Quindi, dichiara l'array all'interno della dichiarazioni del form: in questo
modo, puoi accederci in tutte le Sub/Function del form stesso.
Spero sia questo il problema, altrimenti segnala l'errore giusto.....
good coding!!!
--
Damiani Liborio Igor
ig...@igordamiani.it
 - 
dam...@italiainfiera.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262

Newsgroup: it.comp.lang.visual-basic
Titolo: processo in esecuzione

ciao
c'e' un modo veloce per sapere se un'applicazione e' in esecuzione o
bisogna ricorrere alle api?
grazie
Lettor, tu vedi ben com'io innalzo, la mia matera, 
e pero' con piu' arte non ti meravigliar s'io la rincalzo.
					 Dante, Purgatorio, IX, 70-73.

 ha scritto nel messaggio
news:qich9019mjovelm08...@4ax.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: access2000 + VB6..... esasperazione

mi sono procurato il VB6 perchè con il VB5 sembrava che access2000 non ne
volesse sapere di funzionare, riconoscere database, effettuare ricerche.....
Stessa cosa con VB6!!!
ditemi..... devo scaricare qualche aggiornamento? devo fare un voto alla
madonna? aiutatemi, anche se amgari questi problemi sono stati già risolti
da tempo ma io arrivo sempre dopo....
ivan

 Stessa cosa con VB6!!!
lol
VB5 cosě come VB6 lavora benissimo con gli MDB di accessux 2000
basta specificare nella stringa di connessione il provider da utilizzare
conn.open "Provider=Microsoft.Jet.Engine.4.0;DBQ=c:\miodb.mdb"
N.B. E' necessario avere installato Jet 4.0 che trovi nell'ultimo MDAC
http://www.microsoft.com/data
ciao
--
Fibia "Mai piů Access per progetti aziendali seri" FBI
E-mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Sito Personale: 
http://www.geocities.com/fibiafbi
VB Simple: 
http://vbsimple.virtualave.net
Membro #26 delle Mitiche Brigate Takahashi sezione Sud


nonostante ti abbia fatto fare due risate ti ringrazio e ti chiedo maggiori
deludicazioni su quel che devo fare a proposito della stringa di connessione
che non so cosa č!
non ridere ancora dai....
ivan

 non ridere ancora dai....
1- scarica l'MDAC dal sito MS oppure dal mio sito
2- fai due salti su:
http://vbsimple.virtualave.net/activity/act_03.htm
http://vbsimple.virtualave.net/activity/act_04.htm
http://vbsimple.virtualave.net/activity/act_17.htm
   ' questo č per db con
password
spero sia un punto di partenza
ciao
--
Fibia "Sakamoto" FBI


> 1- scarica l'MDAC dal sito MS oppure dal mio sito
ops.. dimenticavo il tag [PURE SPAM] :))
--
Fibia "Unsigned" FBI


tranquillo, ero in un momento un po' "nervoso", nessun offesa!
ti ringrazio per le segnalazioni, ora mi metto al lavoro sperando sia la
volta buona.
ciao
ivan

 --
sono andato sul tuo sito ma la pagina download non va. ho ritenuto opportuno
segnalartelo.
ivan

ti ho scritto in privato per non intasare il NG.
ivan
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Generazione di un errore con cod.negativo

Alcuni errori (in particolare con ADO) hanno codici negativi,
comunque al di fuori del range 0-65535 che la funzione Error o Error.Raise
sopporta.
Come faccio a forzare la generazione di un errore di tal codice (come se
l'avesse generato la procedure) in modo che venga intercettato dalla normale
gestione degli errori?
Per esempio:
On error GoTo 0
Error.Raise -
2147217873
finisce però per generare un errore 5 perchè quel codice non gli sta bene.
Grazie.
(Motivazioni: L'errore può verificarsi in una mia DLL, lo intercetto e lo
comunico con MsgBox, poi vorrei rigenerarlo perchè venga intercettato dalla
mia normale finestra di comunicazione degli errori che sta però nell'EXE
chiamante)

 sopporta.
Non č vero :)
E proprio per gli errori personalizzati si dovrebbe sempre fare cosě fare
cosě:
Const ERR_MIO_ERRORE_1 = vbObjectError + 1
Const ERR_MIO_ERRORE_2 = vbObjectError + 2
Err.Raise ERR_MIO_ERRORE_1, ,"Errore 1!"
Ciao

 Err.Raise ERR_MIO_ERRORE_1, ,"Errore 1!"
Come vuoi. Hai provato?

gestione degli errori?
Gli errori vanno generati partendo da vbObjectError (0x80040000) e si aggiunge 
un offset a propria discrezione:
Es. 
Err.Raise vbObjectError Or 5
dove 5 e' il tuo codice di errore personalizzato.
-- 
ciao, hal

 E da quando?
Questo è l'help del metodo Raise relativo al parametro Number:
Obbligatorio. Intero di tipo Long che identifica la natura dell'errore. Gli
errori di Visual Basic (sia quelli predefiniti che quelli definiti
dall'utente) sono compresi nell'intervallo tra 0 e 65535. L'intervallo tra 0
e 512 è riservato agli errori di sistema, mentre quello tra 513 e 65535 agli
errori definiti dall'utente.Quando si imposta un codice di errore per la
proprietà Number in un modulo di classe, il numero del codice di errore
viene aggiunto alla costante vbObjectError. Per generare ad esempio il
numero di errore 513, assegnare vbObjectError + 513 alla proprietà Number
La domanda è sempre la stessa:
Come faccio a generare l'errore e attenerne gli stessi effetti (per esempio
la proprietà description)?
Per esempio, se mi riferisco a una tabella che non esiste (Select * From
DOCs), mi esce questo errore: -
2147217865
=Invalid object name 'DOCs'.
Fare Err.Raise vbObjectError Or -
2147217865
l'errore generato ha lo stesso codice, ma la sua descrizione è "Errore di
automazione"

la proprietą description)?
<musichetta>
Ma lei, F1 su Err.Raise l' aveva premuto?
</musichetta>
-- 
ciao, hal ;-)

 automazione"
Ma è proprio perchè gli errori che partono da vbObjectError sono errori
personalizzati, non di VB che hanno una descrizione associata.
Ognuno può metterci la descrizione che vuole.
L'errore vbObjectError + 1 per me potrebbe essere "Utente cretino", mentre
per un altro potrebbe essere "M$ rulez!"
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: vb6 per esperti

salve a tutti ,
Volete diventare esperti in vb6 ?
Studiate 
vb.net
.
Non sto scherzando.
Nell'esposizione delle differenze tra le due versioni sto scoprendo tanti
aspetti di vb6 a me , ao oggi ,  sconosciuti.
giuseppeG

Semplicemente ti è capitato un ottimo libro che illustra anche aspetti non
banali del vb6. Credo.
E poi i confronti mettono sempre in luce belle questioni... sono abbastanza
d'accordo con te.
:o))
--
Antonio Cangiano
Webmaster di 
www.visualcsharp.it
Fondatore di free.it.comp.lang.csharp
E' iniziato il corso di C# !

 banali del vb6. Credo.
Alcune informazioni le ho prese dal libro "Migrare da microsoft Visual basic
6.0 a Microsoft Visual Basic . Net"
Ed Robison , Bond , Lan Oliver (Mondadori)
non sono arrivato ancora alla fine.
Una informazione che sul testo è riportata in fase avanzata :
per l'aggiunta al riferimento di runtime di vb6 , dal pannello COM
selezionare Visual basic for applications 6.0 (msvbvm60.dll)
Una attesa: sul testo è annunciata la prossima uscita dell'add-in VB Snippet
Upgrade , utilizzabile per conversioni di poche righe di codice.
Non mi risulta che sia stato rilasciato dalla Microsoft.
Altre informazioni sulla differenza le sto leggendo nella guida incorporata
in visual Studio.
giuseppeD
Newsgroup: it.comp.lang.visual-basic
Titolo: Avviso di chiamata

Ciao,
ho scoperto da ieri questo interessante N.G.
Io sono completamente inesperto di programmazione e
mastico pochissimo l'inglese, avrei delle domande banali:
a) Qualcuno potrebbe farmi scaricare un ottimo programma
per tradurre in inglese e francese ?
b) Siccome sono spesso collegato ad internet, mi servirebbe
un piccolo programma, che mi avvertisse se c'è una chiamata in
arrivo.
c) I cosiddetti Firewoll si possono inserire senza ADSL
oppure rallentano la velocità di connessione ?
Ho cercato di metterne uno, ma mi si è inceppato tutto.
Io ho un pentium 3, con antivirus Norton e un altro che si chiama
SCUDO, ma non so proprio come funzionano, ne se sono
compatibili.
Ringrazio chiunque mi voglia spiegare.
A buon rendere.
Ciao-:)))
--
Andrea Sorrentino libero "Ricercatore"
http://digilander.libero.it/socratis

compatibili.
Se non sai cosa sono (a proposito: si scrive Firewall, con la "a"), e'
meglio che per adesso lasci perdere.
Vedo che usi windows, percio' ti invito a leggere piu' messaggi
possibili su it.comp.sicurezza.windows PRIMA di fare domande.
La' sono meno buoni di noi ;-)
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Ultimo accesso e Data di Creazione: come ricavarli in vb?

***

Beccati questo!
  Carino, ma da dati sperimentali pare che restituisca l'ora nel fuso
orario GMT...
  Ciao :-)
  Massimo
  Nell'indirizzo, sostituire DIESPAMMERS con MC1258
  In the address, replace DIESPAMMERS with MC1258

Newsgroup: it.comp.lang.visual-basic
Titolo: -- ottenere la lista dei file da un server ftp

 500 List command failed
Come vedete tutto procede bene,ma l'unica cosa che non funziona e' il
comando list (che serve x avere la lista dei file). Dapprima mi
risponde con "Opening data connection", ma dopo qualche secondo mi da
l'errore "List command failed".
Siccome non conosco ancora bene il protocollo ftp, sapete dirmi dove
sbaglio?

Io ho un controllo che fa tutto senza bisogno di alcun codice. Ho
addirittura un prg che ne mostra l'utilizzo. Tutto scaricato da
internet. Ho trovato il link in un post di qualche giorno fa (perchè
non guardate i post vecchi????).


Ciao,
     Salvo

 < LIST
ma dopo aver dato il port hai aperto il socket passivo?
in questo caso devi aprire un socket in connessione su 127.0.0.1
sulla porta 126.
suggerisco una lettura della RFC 959
ciao
--
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: ocx

In VB5 in che modo si devono caricare gli ocx in modo da averli come default
per nuove applicazioni ? Se io creo una nuova applicazione e carico qualche
ocx quando ne creo un'altra li devo ricaricare.
grazie
c...@eubico.it

...

Newsgroup: it.comp.lang.visual-basic
Titolo: carattere "segno di spunta"

Qualcuno sa come poter scrivere in un campo di testo il carattere di spunta,
cioč tipo quello che compare in un checkbox?
Grazie mille!

 ha scritto

se non trovi sistemi migliori, devi usare un font che ce l'ha, tipo
wingdings 0252. solo che questo implica:
o spezzi il testo p.e. in un textbox wingdings e uno times new roman
o usi un richtextbox, selezionando in wingdings il carattere.
hth, j.
Newsgroup: it.comp.lang.visual-basic
Titolo: Coordinate mouse su un controllo

Salve,
come è possibile riconoscere quando il mouse è sopra un controllo che NON
abbia l'evento mousemover ne l'evento click o altri.
Sicuramente con le API è possibile fare, mi dite come?
Grazie

 wrote in message
news:iqt46.228638$hk4.10...@news.infostrada.it...

Cosi' per curiosita', di quale controllo si tratta ?
(cmq, le coordinate del cursore si ottengono con GetCursorPos, dell' api
win32)
Ciao
Aldo

 win32)
Si ma devi avere l'hwnd del controllo e poi devi fare la ScreenToClient per
ottenere la posizione del mouse rispetto al controllo.
Mello

Newsgroup: it.comp.lang.visual-basic
Titolo: [.NET] SELECT con una JOIN in un DataSet

Salve,
impazzisco su una cosa, se cerco di riempire un DataSet mediante un 
oggetto DataAdapter lanciando una query con una join mi viene restituito 
un errore di un'eccezione "ERRORE DI SINTASSI NELLA PROPOSIZIONE FROM".
Se invece sostituisco la query con una semplice SELECT * FROM CLIENTI va 
tutto bene.
Il DB è access e la connessione è OleDB.
Posto il codice:
"SELECT T1.COGNOME, T1.NOME, T2.TIPOCLIENTE, T1.NOTE FROM TABELLA1 AS T1 
" & _
"INNER JOIN TABELLA2 AS T2 ON T2.CODCLIENTE = T1.CODCLIENTE "
objDaClienti.SelectCommand.CommandType = CommandType.Text
objDaClienti.Fill(objDsClienti, "Clienti") 'Qui viene restituito "ERRORE 
DI SINTASSI NELLA PROPOSIZIONE FROM"
grazie anticipatamente a chi perde 2 min per lanciarmi un salvagente.

 DI SINTASSI NELLA PROPOSIZIONE FROM"
Non so se Access supporta l'alias AS per il nome della tabella.
Prova a scrivere l'istruzione SQl senza l'Alias
giuseppeD 

GiuseppeD ha scritto:

Se la lancio in ACCESS Funziona. E' da VB che non va!!!

 Se la lancio in ACCESS Funziona. E' da VB che non va!!!
la seguente da me funziona
Dim sql As String = "SELECT  T1.Au_ID, T1.Author, T1.[Year Born], T2.ISBN 
FROM Authors T1  INNER JOIN [Title Author]  T2 ON T1.Au_ID = T2.Au_ID;"
non ha  AS
giuseppeD
Newsgroup: it.comp.lang.visual-basic
Titolo: How can I turn off my PC using VB?

Hello everyone!
How can I turn off my PC using VB?
If you need to know it, I can turn off the PC using the keyboard with the
following steps:
* CTRL - ALT - CANC
* ALT - A
Thank you in advance to all the ones who will decide to help me!!!
- Mirco Soderi -

ExitWindowsEx
Mirco Soderi wrote:

--
Bunch of stuff For Sale and Wanted at the link below.
Tek 2465, TFT projector, ham radio, 30pS pulser
Tektronix Concept Books...
http://www.geocities.com/SiliconValley/Monitor/4710/

 wrote in message
news:3DDC2280...@juno.com...

-----BEGIN PGP SIGNATURE-----
Version: PGP Personal Privacy 6.0
Comment: Key ID: 0x428A3B3F
iQA/AwUBPlfc406J8MBCijs/EQJkAACdEVSKfTTuqQvqmPAcLlGwmQeq+2kAnjWB
GD5fxWQonVAduseQsKLPEPWi
=NGmC
-----END PGP SIGNATURE-----

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Indici tabella

E' possibile (tramite la proprietà INDEX del recordset)
ordinare una tabella con due indici?
Es. miatabella.index = "cognome" "nome"
in modo che all'interno dei sig. ROSSI
Abramo venga prima di Vauro
Ciao a tutti

Potresti usare query con ORDER BY cognome, nome


Devi creare (ad es. con Access per fare prima) un nuovo indice, diciamo
"indice1", che abbia come campi di ordinamento Cognome e Nome, li specifichi
all'interno della finestrella Indici così:
nome indice                nome campo        Criterio ordinamento
indice1                        cognome                crescente
                                     nome                        crescente
poi da vbasic per impostare l'indice attuale fai così:
RS.index="indice1"
e poi...
Enjoyyyyyyyyyy!!!!

Newsgroup: it.comp.lang.visual-basic
Titolo: Help Enza MSDN

Qualcuno sa dirmi come si fa ad installare MSDN e dove devo prenderlo?
Grazie Enza

 Qualcuno sa dirmi come si fa ad installare MSDN e dove devo prenderlo?
Si inserisce il primo dei 2/3 cd e si esegue il setup. I CD li avresi dovuti
trovare nella scatola del visual studio o dell'MSDN. Se sei abbonata msdn
puoi anche scaricarli dall'apposito sito m$oft! ;)
hth

 ha scritto nel messaggio
news:bk405n$16u8$1...@half.spin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Query builder

non so se sia una FAQ, ma chiedo comuqnue..
Sapete se esiste un tool (possibilmente gratuito) da integrare in un
progetto VB e che permetta di creare query a runtime nello stile di ACCESS o
Query Designer per poi poter sfruttare le istruzione SQL create?
grazie,
alessio

 ha scritto nel
messaggio news:aggrl2$er1$1...@newsfeed.cineca.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Problemuccio COM

In realtà non riguarda direttament eCOM, ma il funzionamento di una semplice
funzione sotto COM
Praticamente ho bisogno di accedere all'interno del componente ad un file
.ini che contiene le stringhe da visualizzare(il programma deve poter essere
convertito in più lingue).
Ho preso la funzione (forse trovata su allapi) che da sempre uso ed
incredibilmente se uso la stessa chiamata alla funzione questa va in un
eseguibile normale, mentre nel componente com restituisce string not
found...
La funzione è
Public Function ReadIni(Filename As String, Section As String, Key As
String) As String
Dim RetVal As String * 255, v As Long
v = GetPrivateProfileString(Section, Key, "String Not Found", RetVal, 255,
Filename)
ReadIni = Left(RetVal, v)
End Function
La chiamata viene eseguita, infatti mi ritorna il valore di default, ma
perchè nell'applicazione tutto fila liscio mentre in COm non va una mazza?
forse inciampo io in qualche cretinata;-))
Ah, naturalmente la dichiarazione di getprivateprofilestring è la stessa
(cut'n paste) in entrambi i progetti, così come la chiamata.
Lorenzo

perchè nell'applicazione tutto fila liscio mentre in COm non va una mazza?
Effettivamente COM non c'entra. E' cut&paste selvaggio che prima o
poi lascia a piedi :-(
Che cosa passi come Filename ?
-- 
ciao, hal

 Che cosa passi come Filename ?
risolto!!!
Non passo più dalla classe COm ad una funzione che chiama l'APi ma chiamo
quest'ultima direttamente dentro la classe...
sono costretto ad usare un file INI perchè non mi va di creare un file .res
exnovo, il file .INI è già bello pronto e meno si lavora meglio si sta!
ciao e grazie
Lorenzo

Newsgroup: it.comp.lang.visual-basic
Titolo: DATABASE REMOTI

HELP ME !!!!!
Posso con vb6 connettermi da un programma che sta in locale su un databse
remoto ? Esempio, da un p.c. che sta a casa mia devo fare delle operazioni
su un databse che sta all'inidirzzo 
http://www.SitoCheTiPare.it
THANX !!!!
roccoc...@tin.it

 che sta in locale su un databse remoto ? [...]
Si, con ODBC.
Devi creare un DSN e collegarlo alle tabelle del DB remoto.
In seguito agganci il tuo programma al DSN che hai creato.
Scusami se sono sintetico ma ho poco tempo a disposizione, se hai bisogno di
altre info saro` pronto a dartele.
Ciao,
  Alex.

 Grazie della disponibilità.....
L'idea l'ho avuta, ma non sono riuscito a farlo.
Quale driver ODBC devo usare ?
Basta che nel nome del database metto prima l'indirizzo (es 
http://www.
..)
Puoi darmi qualche informzione in più ?
Per ora ancora grazie !!
By ROKKO

Newsgroup: it.comp.lang.visual-basic
Titolo: struttura dati associativa

Ciao a tutti,
volevo sapere se in VB6 esiste un qualche tipo di "struttura dati
associativa",
come std::map in C++ o hashtable & simili in java.
In parole povere e' una struttura che associa un valore ad una "chiave":
chiave1->valore
chiave2->valore
chiave3->valore
e dove le chiavi non possono essere ripetute....
Ciao e grazie
Beppe

 e dove le chiavi non possono essere ripetute....
collection
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Applet Java con IE 5.5 - Problemi!

Scusassero per l'OT, ma non riesco in nessun modo a visualizzare gli
applet Java su internet dal mio PC. Quali possono essere le cause e le
soluzioni?
Grazie!
-- 
<><><><><><><><><><><><><><>
<>   Ettore Gabrielli     <>
<> 
etto...@hotmail.com
   <>
<><><><><><><><><><><><><><>

 soluzioni?
Scusa la domanda stupida che sembra la pubblicità della fanta, quella con la
psicologa:-D... ma hai abilitato il Java dentro alle opzioni di internet
explorer? Se si.. potrebbe mancarti la java virtual machine... ma dubito...
probabilmente non hai l'hai abilitato... prova...
CIAO ,
ANTONIO

probabilmente non hai l'hai abilitato... prova...
Abilitato, abilitato... E' possibile che, installato IE non abbia la
jvm?
-- 
*~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~*
*~    ELDAR - Ettore - DICE    ~*
*~    
elda...@hotmail.com
    ~*
*~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~*
 "Quis custodiet ipsos custodes?"

sě ma č molto strano....

Newsgroup: it.comp.lang.visual-basic
Titolo: Combobox: abbastanza urgente

Perchè se io faccio il setfocus sun un combobox mi da messaggio d'errore
chiamata di routine o argomento non valido come cacchio fo?
--------------------------------
Inviato via 
http://usenet.libero.it

non dovrebbe farlo. se lo fa, vuol dire che c'č qualche routine che parte su
qualche evento.....
come la GotFocus della combobox stessa, o il LostFocus del controllo su cui
eri posizionato, sul Click della combobox, e cosě via....
fai un bel debug, seguendo le istruzioni passo-passo
good debugging!!!
--
Igor Damiani
ig...@igordamiani.it
http://www.igordamiani.it
ICQ : 11847262

 come cacchio fo?
E' un errore tipico nel caso in cui la combobox non e' accessibile: non e'
visibile, non e' enabled, c'e' un'altro controllo che per forza mantiene il
focus (form modale), ecc..
hth,
Lokar
--
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
UGIdotNET - 
http://www.ugidotnet.org

 focus (form modale), ecc..
... un caso classico e' quando viene invocato durante il Form_Load
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

Newsgroup: it.comp.lang.visual-basic
Titolo: CHR$

Qualcuno sa dirmi che cosa mi restituisce questa funzione ?
Es = Chr$(&H1)

 Es = Chr$(&H1)
F1
no, non ti restituisce F1, intendo dire che la risposta la puoi trovare lì.
comunque restituisce il carattere che corrisponde al codice ascii passato
come argomento.
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 Es = Chr$(&H1)
Un quadratino :-)
Quindi si tratta di un qualche carattere di controllo non rappresentabile,
esattamente pare si tratti del carattere ascii numero uno.
-- 
Le persone non sono il proprio comportamento: devi sempre andare oltre,
essere flessibile, capire il punto di vista degli altri, interpretarne i
comportamenti ed intuirne le esigenze.
Per rispondere in privato elimina
dall'indirizzo "togliquesto"
MasterDavidex
David Ruscelli
Newsgroup: it.comp.lang.visual-basic
Titolo: Conoscere risorse di Sitema in VB6

Salve a tutti
Ho una domanda da porvi:
Mi servirebbe conoscere, da una applicazione VB6, le risorse del sistema
(per Win 95 e Win 98)
Cercando su MSDN ho trovato , che la cosa e' possibile solo con
un'applicazione in VB4 a 16bit (utilizzando la GetFreeSystemResources) ,
questo pero' mi costringerebbe a creare un'applicazione esterna (magari una
DLL da dover registrare ad ogni installazione dell'applicazione). Non esite
un'altra alternativa ?
Ciao.




Sempre su msdn c'e' un esempio a 32 bit:
HOWTO: How VB Can Get Windows Status Information via API Calls
ID: Q147886 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: Copiare velocemente file di testo in variabili

Ciao a tutti,
ho un'applicazione che perde un sacco di tempo (85% del totale) a copiare in
una variabile stringa il contenuto di alcuni files utilizzando il codice:
    Open FileName For Input As nFile
        Do While Not EOF(nFile)
            Line Input #nFile, tmpLine
            FileText = FileText & tmpLine
        Loop
    Close #nFile
Conoscete un metodo piu' veloce per ottenere lo stesso risultato?
Esiste qualche API dedicata che potrei utilizzare?
Vi ringrazio in anticipo
Ciao
biXso

 Conoscete un metodo piu' veloce per ottenere lo stesso risultato?
Mitico... era una delle mie prime risposte sul NG !
Sniff ;-), era maggio del '99 !
Cut & Paste dall'archivio, a sua volta copiato "paroparo" dal manuale VB5:
''''''''''''''''''''
Do Until EOF(F)
Line Input #F, nextline
Text1.Text = Text1.Text + nextline
Loop
risulta molto più lento del seguente:
Do Until EOF(F)
Line Input #F, nextline
bufferVar = bufferVar + nextline
Loop
Text1.Text = bufferVar
Il codice riportato di seguito, tuttavia, svolge la stessa funzione ed
è più veloce:
Text1.Text = Input(LOF(F),F)
''''''''''''''
Bye, G.

 Cut & Paste dall'archivio, a sua volta copiato "paroparo" dal manuale VB5:
paropapero...

 paropapero...
LOL :-P
Appropo', OT per OT, un link al volo:
Cow Oriented Programming
http://spazioweb.inwind.it/cop/
Bye, G.


http://spazioweb.inwind.it/cop/
ROTFL :-)
-- 
ciao, hal
che ha provato un senso di deja vu :-PPP


ROTFL
ciao
alfonso

Newsgroup: it.comp.lang.visual-basic
Titolo: Break Point condizionato

Buongiorno a tutti, volevo chiedervi questa semplice domanda, è possibile
nel debug di VB mettere dei BreakPoint condizionati??
(ES.Fermati se codice = 001) Sicuramente si ma non ho capito come.
Grazie a tutti.Ciao.Andrea

 ha scritto nel messaggio
news:a48r6o$mdu$1...@nntp.weblinea.it...

Si, anche se non lo trovi definito come 'Breakpoint', ma come 'Watch'
("espressione di controllo" se hai VB italiano), sempre nel menu' Debug...
prova ad aggiungerne uno e vedrai che nella finestra relativa c'e' l'opzione
che cerchi.
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 (ES.Fermati se codice = 001) Sicuramente si ma non ho capito come.
Debug.Assert (Codice <> "001")
--
Faber

 ha scritto nel messaggio
news:a48r6o$mdu$1...@nntp.weblinea.it...
