mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Integrazione tra Visual Basic e Visual Fortran

Gentilissimi cyberutenti,
desidererei sapere se posso creare un modello matematico con Visual
Fortran Professional Edition 5 ed "esportarlo" in un file di visual
basic 5, con il quale creare l'interfaccia grafica...alla fine
integrare il tutto in un file eseguibile.
Grazie anticipatamente per le risposte che mi vorrete dare.

 ha scritto nel messaggio
news:284cacda.04090...@posting.google.com...

io ho fatto qualcosa di simile:
Per i calcoli ho utilizzato subroutine fortran e per l'interfaccia ho
utilizzato il VB
ho creato un file eseguibile fortran con il compilatore fortran.
ho creato un progranmma VB con bottoni label ecc ecc in cui l'utente immette
i dati
i dati li scrivo in ascii su un file senza che l'utente se ne accorga in vb
utilizzo la schellexecute
che fa partire il fortran in modo nascosto calcola e scrive i dati su un
file che il programma vb
lo gestisce.ecco un esmpio
se vuoi dare una occhiata vai sul mio sito 
http://it.geocities.com/leonelloc
vai su download
e scarica il programma  gauss-Boaga
leonello

 lo gestisce.
usi files temporanei per interfacciare due programmi .... a 
parte le performance che soffrono di un collo di bottiglia 
evitabile, non è esattamente quel che si dice integrazione tra 
moduli.
Non hai provato a usare oggetti condivisi di memoria (che so, 
tipo la clipboard con un formato tuo privato, matrici OLE, al 
limite persino dde se i dati son pochi) ?
Le prestazioni penso migliorerebbero fortemente.
P.S. nonricordo però se il fortran possa gestire puntatori o 
surrogare con byref come fa il VB, in caso contrario ci 
sarebbero problemi a fare quel che dicevo io.
ciao
cccp++mario


 Fortran Professional Edition 5 ...
Per le mie simulazioni ho usato spesso modelli matematici
scritti in Visual FORTRAN ed interfacciati a VB come DLL.
Qualche volta ho anche scritto la parte di interfaccia
grafica all' interno della DLL.  L' unica cosa antipatica
e' che le DLL scritte in Visual FORTRAN necessitano, per
funzionare, di altre due DLLs.
Ciao e se ti servissero altre informazioni contattami
pure.
Franco

...

Ma mi sorge un dubbio: con la versione detta del visual fortran potrei
creare un'interfaccia grafica? Esistono delle guide in Internet per
quanto riguarda la versione del Visual Fortran su menzionata?
grazie

...

MI POTRESTI DIRE, PER FAVORE, COME FARE , NEL DETTAGLIO, A CREARE UNA
.dll con Visual Fortran? E poi, se nn ti dispiace, mi potresti dire la
differenza che esiste tra "fortran fixed format source file" e
"fortran free format source file" (due tipologie di file che devo
selezionare per scivere del codice in visual fortran 5) ? Mi potresti
dire anche quali sono queste altre due .dll che mi servono per
scrivere la.dll su menzionata? Ma si può creare un'interfaccia grafica
con Visual Fortran 5? Grazie per la cortese risposta.

 differenza che...
Si, posso anche mandarti il sorgente di una DLL grafica
scritta in Visual FORTRAM ma, per favore, contattami
privatamente alla mia E-Mail: qui siamo "leggermente" OT.
Ciao ed a risentirci.
Franco
Newsgroup: it.comp.lang.visual-basic
Titolo: grafico in vb

Salve a tutti.
Problema: Realizzazione di un semplice grafico (torta / istogramma) con visual
basic 6. Vorrei evitare l'integrazione con applicazioni esterne (es. Excel).
Esistono componenti di vb che mi permettano di realizzare un grafico su
statistiche?
Grazie Mille e buon lavoro.
-- 
Posted from  [217.59.153.115] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 statistiche?
Il MS Chart non ti va bene ? C'č gią nel VB6. Se ti serve,
puoi scaricare unversione aggiornata da questo link,alla
voce Microsoft Chart Control:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q193366
Bye, G.
Newsgroup: it.comp.lang.visual-basic
Titolo: [.NET] 2 bug del framework

Credo di aver trovato due bug lavorando con gli oggetti graphics e le
coordinate come Single
Mettete in una form un image control (myImage) e due bottoni con questi
eventi click:
1) Questo dovrebbe produrre: 'IsVisible: False'
Dim g As Graphics = myImage.CreateGraphics()
Dim gp As New Drawing2D.GraphicsPath()
Dim rect As New RectangleF(1.0F, 1.0F, 1.0F, 1.0F)
gp.AddRectangle(rect)
MsgBox("IsVisible: " & gp.IsVisible(0.5F, 0.5F).ToString)
2) La stringa ruotata non viene visualizzata:
Dim g As Graphics = myImage.CreateGraphics()
g.PageUnit = GraphicsUnit.Inch
Dim rect As New RectangleF(1.0F, 1.0F, 1.0F, 1.0F)
g.DrawString("foobar", sampleFont, Brushes.Black, rect)
g.DrawRectangle(New Pen(Color.Black, 1 / g.DpiX), rect.X, rect.Y,
rect.Width, rect.Height)
Dim mx As Drawing2D.Matrix
mx = g.Transform
mx.RotateAt(45, New PointF(1.0F, 1.0F))
g.Transform = mx
g.DrawString("foobar", sampleFont, Brushes.Black, rect)
g.DrawRectangle(New Pen(Color.Black, 1 / g.DpiX), rect.X, rect.Y,
rect.Width, rect.Height)
Qualcuno puo' confermare (ed eventualmente indicarmi come segnalarli a MS)
Mario
--------------------------------------------
Un uomo che non si e' ancora sposato e' incompleto. Poi e' finito.
Zsa Zsa Gabor
--------------------------------------------

MsgBox("IsVisible: " & gp.IsVisible(0.5F, 0.5F).ToString)
Anche a me accade la stessa cosa, indipendentemente
dal dialetto .net che venga usato per scrivere il codice.
Pare infatti che ad un certo punto il numero in virgola
mobile venga reso intero, arrotondando per eccesso
da .5 in su: fino a 0.49999999999999 il risultato
e' corretto.
Ho provato a debuggare il codice MSIL e sono
arrivato fino al punto di ingresso nel codice nativo.
Il metodo IsVisible (nella fattispecie
quello sovraccaricato con i parametri float)
arriva fino alla chiamata a
GpStatus WINGDIPAPI GdipIsVisiblePathPoint
esposta da gdiplus.dll, il cui prototipo e'
GpStatus WINGDIPAPI GdipIsVisiblePathPoint(
		GpPath* path, REAL x, REAL y, 
		GpGraphics *graphics, BOOL *result)
dove REAL e' un typedef per float.
Non sono riuscito a trovare ulteriore documentazione
su questa funzione.
Sarebbe interessante, a questo punto, sapere
cosa faccia di preciso questa funzione.
La gdiplus.dll ha dipendenze solo da
kernel32.dll, user32.dll, gdi32.dll,
ole32.dll e advapi32.dll.
Non vorrei che alla fin fine, venga
in realta' chiamata PtInRect di
user32.dll, la cui firma e'
BOOL PtInRect(
  CONST RECT *lprc,  // rectangle
  POINT pt           // point
);
dove POINT e RECT sono definiti con interi.
Ci vorrebbe un decomp... ehm... ;-)
-- 
ciao, hal


Ops... scusate il quoting selvaggio :-(

rect.Width, rect.Height)
Ora la stringa viene visualizzata.
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: Form MDI

Salve a tutti,
volevo sapere un'informazione sapete dirmi se c'č un modo per controllare se
una Form MDI č aperta o no, se si mi potete dire come?
Grazie a tutti
--------------------------------
Inviato via 
http://usenet.libero.it

 una Form MDI č aperta o no, se si mi potete dire come?
Prova quesat sub
Public Function bolFormLoad(ByVal FormName As String) As Boolean
    Dim frm As Form
    For Each frm In Forms
        If UCase(frm.Name) = UCase(FormName) Then
            bolFormLoad= True
        End If
    Next frm
    Set frm = Nothing
End Function

 End Function
migliorala in questo modo
         If UCase(frm.Name) = UCase(FormName) Then
             bolFormLoad= True
             exit for
         End If
non si sa mai quanti form hai aperti.. ^_^

Grazie mille Funziona!!


di niente
--
Ciao
Alfredo

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] BitBlt o StretchBlt ma per stampare ????? Urgente.

Tramite la BitBlt o la StretchBlt riesco a copiare una parte di schermo o
ciň che voglio all'interno di una pictureBox ma poi se devo stampare ???
Cosa mi debbo inventare ???
TIA

 Renzo

devo stampare ??? Cosa mi debbo inventare ???
BitBlt e StretchBlt. Ma anzichč sul DC dello schermo o della finestra, 
su quello della stampante

 ha scritto nel messaggio
news:Xns90799B6E1CA4...@127.0.0.1...

Ho provato ma non funziona, e non capisco dove sbaglio :
questo funziona :
retval = StretchBlt(PictureBox2.hdc, 0, 0, 177, 250, PictureBox1.hdc, 0, 0,
177, 250, SRCCOPY)
questo pure:
retval = StretchBlt(Form1.hdc, 0, 0, 177, 250, PictureBox1.hdc, 0, 0, 177,
250, SRCCOPY)
questo no........
retval = StretchBlt(Printer.hdc, 0, 0, 177, 250, PictureBox1.hdc, 0, 0, 177,
250, SRCCOPY)
poi da cio' che vedo credo che in questo modo non sia possibile impostare le
coordinate di stampa dell'immagine sulla stampante, ossia se debbo centrare
la stampa dell'immagine su un A4 penso che non sia possibile... ma spero di
essere smentito....
grazie....
Ven.
Newsgroup: it.comp.lang.visual-basic
Titolo: OCX per stampa da ASP

Ho creato (con VB6) un piccolo OCX per la stampa diretta
su stampante (la stampa va fatta da web tramite asp). 4 righe in tutto.
Public Function OpenStampante(strStampante)
    Open strStampante For Output As #1
End Function
Public Function WriteStampante(strStringa)
    Print #1, strStringa
End Function
Public Function CloseStampante()
    Close #1
End Function
Il mio problema e` che quando stampo su una stampante
mi vengono stampati dei caratteri a spaziatura proporzionale.
Io vorrei una spaziatura fissa, tipo quella che si ha quando si fa:
type nomefile > prn
da dos.
Avete qualche consiglio?
Grazie Leo.

 da dos.
non puoi utilizzare l'oggetto printer?
printer.print strStringa invece di print #1, strStringa
in tal modo puoi settare il font da utilizzare mediante
printer.FontName
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

Il problema dell'oggetto printer e` che mi stampa sempre in
modalita` grafica.
Io vorrei usare la modalita` testo, proprio come fa il TYPE del
DOS.
Con la funzione
print #1, strStringa
e` l'unico modo che conosco, ma vorrei evitare la spaziatura
proporzionale.
Grazie, Leo.


 wrote in message
news:9hp51a$f6bd1$1...@ID-87012.news.dfncis.de...


Usando l'oggetto printer ho provato dei caratteri non proporzionali, come il
Courier.
Usando quei caratteri riesco ad evitare la spaziatura proporzionale,
ma non riesco a fare una stampa in modo testo.
In pratica se stampo una semplice "A" essa viene stampata in modalita`
grafica.
Io vorrei solamente una "A" sfigatissima, come quella (mi ripeto ;-)
del comando TYPE.
La modalita` testo invece riesco ad ottenerla usando la stampante come
uno streamer:
print #1, strStringa
Ciao e grazie.
Leo.


Newsgroup: it.comp.lang.visual-basic
Titolo: text box a colori

Salve, volevo realizzare una text box con parole di colori diverse in vb6,
come posso fare?

 come posso fare?
Usa una RichTextBox. Maggiori info nei post vecchi, nel caso cerca su Google.
http://groups.google.com/advanced_group_search
Bye, G.
--
    Le risposte alle tue domande sono sul Sito Comune
    di questo NewsGroup: 
http://it-lang-vb.net/
    ... e nell'help in linea !
Real E-address: gaetano_d(chioccioletta)
hotmail.com

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

        Traditore ... mi abbandoni per una sedicenne ..... io non lo avrei
mai fatto ... semmai per uan quindicenne !!!

Scusa, ma hai sbagliato NG o cosa?
Devi andare su alt.pedofilia.discussion

 ha scritto nel messaggio
news:8mefra$lpl$1...@nslave1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Creare una sezione in un file INI

Per creare un nuova sezione in un file ini devo usare un'api particolare
oppure la creo a "mano" con "open .... for append"????
Qualcuno mi fa vedere un esempio se si tratta d un api???
grazie by
eJ

 ha scritto nel messaggio
news:hwX%6.115434$Uo3.2...@news6.giganews.com...

perchè non utilizzi i metodi GetSetting e SaveSetting, funzionano molto
bene, e in sistemi nt mantengono (ovviamente) differenziate le
configurazioni per utente.
guarda nella guida cercando "getsetting"
ciao

 guarda nella guida cercando "getsetting"
anch'io preferisco get/savesetting.
per gli ini, cmq, palarm, da me.
codice vecchio ma va.
ciao, a.
--
andrea....@tin.it
http://www.comune.modena.it/cittadini/apal

 wrote in message
news:hwX%6.115434$Uo3.2...@news6.giganews.com...


 perchč non utilizzi i metodi GetSetting e SaveSetting, funzionano molto

Newsgroup: it.comp.lang.visual-basic
Titolo: FTP con VB4

E' possibile creare una gestione di FTP.
Avrei, per il momento, solo la necessità di aggiornare un sito trasferendo
le nuove pagine HTML e qualche GIF.
Se è necessario qualche OCX potete indicarmi dove trovarlo? (possibilmente
freeware).
Ciao Franco

...


Newsgroup: it.comp.lang.visual-basic
Titolo: tasto destro

Salve a tutti ho un piccolo problemino. Ho una listview popolata da una
function. Quando pero clicco il tasto destro su un item non si seleziona
come quanto faccio con il tasto sinistro. Come posso risolvere il problema?

 Come posso risolvere il problema?
A me non accade con VB6 SP5: sia il destro che il sinistro
selezionano l'elemento e scatenano l'evento click.
Puoi essere piu' specifico?
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

 wrote in message
news:bcppsn$lldip$1...@ID-158338.news.dfncis.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: leggere un campo di un database

Mi spiego.... ho un DBgrid collegato a un DB ..in fase di esecuzione
voglio leggere il contento di una casella del DBgrid...per metterla ad
esempio in un controllo txt..o per poterla aggiornare...č possibile?
.......grazie

 Bye.
Si ma il mio problema e che ho un DB nel quale in qgni recordset con x
campi ho x-1 camp in funzione del restante campo il quale al suo varaiare
deve fare variare gli altri, ora io vorrei selezionare una casella del
campo indipendente e tramite una scrollbar farlo variare con la conseguente
variazione dei campi associarti allo stesso ma solo per quel recordset..
cioe solo per la riga che seleziono; mi è riuscito con i grid ma vorrei
sfruttare la potenza dei DBgrid
Newsgroup: it.comp.lang.visual-basic
Titolo: attribuire ad una textbox un nome volante

 
          devo modificare i parametri di molte caselle di testo
(text1,text2,text3.....) e vorrei farlo con una semplice routine, per
esempio facendo accettare che il nome della casella di testo sia. di volta
in volta. ad es. "pippo" così che mi sarebbe sufficiente dire all'inizio
della routine che Pippo=text1 (2,3, ecc.) per ridurre enormemente il
listato. E' possibile? come si fa? Grazie
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 listato. E' possibile? come si fa? Grazie
Verifica quello che dico comunque:
1) Usa le text box come matrice di controlli, almeno userai txt(0),
txt(1) e con un for le scorri tutte.
2) Fai una sub del tipo
Sub cambiaTxt (txt as textbox)
  with txt
	.text=1
	.proprietà=....
  end with
end sub
e passi
call cambiatxt(text1)
call cambiatxt(text2)
3) Credo che le collection servano a quello che vuoi fare, però non ho
visto bene come funzionano. Dovrebbe essere qualcosa del tipo che
aggiungi i vari oggetti ad una collection e poi li scorri con un for
.... each
Però mai usata quindi non so dirti...
-- 
Freccia@Bulldozer63 :D

                    si, questa è già una buona soluzione, grazie.
Credo però che anche con Dim as si possa fare qualcosa, confermi?


 Credo però che anche con Dim as si possa fare qualcosa, confermi?
Sinceramente non lo so, ma potresti provare.
-- 
Freccia@Bulldozer63 :D

 Credo però che anche con Dim as si possa fare qualcosa, confermi?
Io non ho nemmeno capito dove sta il problema :(
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]



non so se è quello che chiedi, cmq prova questo codice.
  Dim x As Control
    For Each x In Me.Controls
        If TypeOf x Is TextBox Then
            x.Text = "pippo"
        End If
    Next
ciao.

 ....e questo è ancora meglio! grazie assai

Newsgroup: it.comp.lang.visual-basic
Titolo: fattooooo!!

grazie all'esempio trovato sulla API guide di AllApi, alla  API
"EnumWindows" ... sorbole, mi escono 104 tasks in esecuzione, contro la
ventina che vedo premendo control+alt+canc..., cmq l'evento è catturabile,
alla fine.
ty a tutti, ciao

opps, scusate, è uscito come messaggio nuovo, ma si riferisce al mio post
"finestrella in tecnologia push" del 30/04. scusate ancora.
bb

*ezio* ha scritto fattooooo!!
Io rilancio: Cooomeeeeeeeeeeeeeee???

Ti sei fatto una canna?
-- 
Saluti
Andrea Moro
Sito Comune : 
http://www.it-lang-vb.net

 Ti sei fatto una canna?
Chi?
Andrea, te lo chiedo in ginocchio, quota almeno l'autore...

Lupo (
LupoOrmaiR...@libero.it
) ha scritto, tanto per cambiare ...
Si ops :) Mi è scappato una freccia alta di troppo ...
Anche se si dovrebbe capire che era riferito ad "ezio" ...
Te Lupo niente canne ... al massimo un grappino ;) (Senza offesa).


 Te Lupo niente canne ... al massimo un grappino ;) (Senza offesa).
Ma per carità (senza offesa a mia volta per gli estimatori), io tracanno
solo whisky

 tracanno solo whisky
Hai ragione ... dimenticavo ... l'avevi detto al meeting. Va beh ...
allora barista grappa e whisky per tutti ...



eh eh... fortuna che ho chiesto scusa, sennò altro che canne...
nella fretta di scappare al lavoro ho schiacciato 'nuovo messaggio' invece
che 'rispondi al gruppo': niente canne né sniffate: un piccolo errore:
abbiate pietà per un fallace mortale
bb

 allora barista grappa e whisky per tutti ...
Grazie amigos !
-- 
<Tutti>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

[....] cmq l'evento è catturabile,alla fine.
Se spiegassi come.... e se fosse  piu' "semplice" di questo:
set oShell = CreateObject("WScript.Shell")
Do Until oShell.AppActivate("Calcolatrice")
  wscript.sleep 200
Loop
oShell.run"%windir%\MEDIA\TADA.WAV"
www.google.it
 "EliteSpy+"
(se la finestra di allert resta "visibile" con questo la vedi)
--
Fosco


mmmm, ci provo (devo aspettare la settimana prox, a borsa aperta)
bb

Newsgroup: it.comp.lang.visual-basic
Titolo: datagrid/dataset, xml, pocket pc, vs.net

salve gente
domanda da un milione di dollari
dove trovo documentazione _chiara_ su come caricare - con visual basic .net
- i dati contenuti in un db xml all'interno di un datagrid in
un'applicazione pocket pc?
se qualcuno sa aiutarmi, avrą la mia imperitura riconoscenza :-)
d.
-- 
La bella che guarda il fiume ha un nome che fa paura...
La bella che č addormentata ha un nome che fa paura:
Libertą! Libertą! Libertą!
http://www.pilardeimeli.net

 se qualcuno sa aiutarmi, avrą la mia imperitura riconoscenza :-)
MSDN, questo sconosciuto:
"Using the DataGrid Control in Pocket PC Applications"
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnppcgen/html/datagrid_control.asp
Ciao
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Drag con griglia

È possibile spostare un oggetto durante un'operazione di drag con un certo
passo (un po' come lo spostamento degli oggetti sui form del VB in
progettazione)?
Pensavo di inserire un codice di gestione nell'vento DragOver, ma non so
proprio che controlli e su che variabili poter operare.
Idee?
Grazie 1000 per l'attenzione!

 progettazione)?
Se ho capito bene quel che cerchi, supposto che l'oggetto che vuoi
"draggare" (mi si passi il neologismo) abbia la proprietą DragMode
impostata su Manual, per iniziare il dragging usi il metodo Drag; da quel
momento puoi gestire tutti gli eventi di Dragging che vuoi. Lo stesso
metodo Drag (con gli opportuni argomenti) termina il dragging,
confermandolo o annullandolo.
Guarda la guida per maggiori dettagli
Bye
-- 
Ale...@tiscalinet.it

È così: faccio partire manualmente il drag con il metodo "drag vbBeginDrag"
nell'evento MouseDown dell'oggettp da draggare.
Il mio problema è a questo punto di far muovere questo oggetto con passi di
qualche pixel e non lineare come default.
Esempio: quando posizioni un controllo in VB questo viene draggato a passi
di tot twips.

 di tot twips.
ah, ho capito; dunque tu, giustamente, hai provato ad implementare il tutto
nell'evento DragOver (come avrei fatto anch'io), ma hai incontrato dei
problemi; di che genere?
Newsgroup: it.comp.lang.visual-basic
Titolo: come attivare una connessione?

so che con questo codice si dovrebbe attivare una connessione il problema è
( visto che sono un novellino )
voglio che la connessione si attivi quando clicco su una voce del menu
il problema è come inserire il codice sottostante
-------------------
Public Sub Connect(NomeConnessione As String)
Dim rtn As Long
rtn = Shell("rundll32.exe rnaui.dll,RnaDial" & NomeConnessione, 0)
SendKeys "{ENTER}}" 'INVIO effettua una connessione
End Sub
-----------------
 nella stringa
private Sub C4_Click()
End Sub
ho provato a fare dei richiami di tutto ma non so come si fa
qualcuno mi puo aiutare?
visto che è da un giorno solo che uso visual basic
grazie
Josuke Higashikata
------------------------
Membro del Jojo Fan Club
------------------------
Autore della home page italiana dedicata a JOJO NO KIMIYONA BOKEN
HIROHIKO ARAKI'S WORLD
http://members.xoom.com/hirohikoa/index.html

private Sub C4_Click()
Dim rtn As Long
rtn = Shell("rundll32.exe rnaui.dll,RnaDial" & NomeConnessione, 0)
SendKeys "{ENTER}}" 'INVIO effettua una connessione
End Sub
le "Sub" sono delle procedure: non puoi inserire una procedura in un altra procedura e allo stesso tempo non ha senso
che una procedura sia vuota (vorrebbe dire "non fare nulla"): quindi la soluzione era di estrapolare il codice da
eseguire da una procedura ed inserirlo nell'altra.
Ciao,
Moreno
#sirri#@
morenosoft.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
Home Page - 
http://www.geocities.com/SiliconValley/Bridge/1414/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

 Moreno
---------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: [??] UNICODE

Come faccio a gestirlo?
Ho letto che dal VB4/32 lo fa già il VB
ma devo aggiungere qualche funzioncina di conversione
poi o no? Help!
DaDe

 Come faccio a gestirlo?
di solito non ce n'è bisogno, ma dipende da cosa vuoi fare


 di solito non ce n'è bisogno, ma dipende da cosa vuoi fare
Beh, io devo creare un programma che crea degli archivi,
questi verranno poi letti da gente che sta in Giappone, Malesia...
e altri.

 wrote in message
news:WzPg6.24191$eQ5.5...@twister2.tin.it...



I file vengono però scritti come Random e uso dei tipi di
dati definiti, il mio problemone è come scriverli e leggerli
DaDe


Le stringhe vengono scritte da VB su file in ANSI.
Usa la funzione StrConv().
Ciao.

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] richiesta PAGAMENTO 2

continua da un tread molto più sopra:
hanno accettato di retribuirmi;
mi hanno chiesto di cambiare nome e logo al prog;
mi hanno chiesto il prezzo per 1000 pezzi.
Nessuno mi aiuta sul prezzo da proporre?
(nota:
 prima lo distribuivo gratuitamente,
ma ne proibivo la commercializzazione,
ora poichè lo inseriscono
in un progetto commerciale,
lo valuto "tot" e vi chiedo quanto
potrei chiedere;
aiutatemi solo se avete esperienza seria
o abbastanza seria)

Se non ci dici cosa fa il programma e non possiamo vederlo, come facciamo a
proporti un prezzo????
-----
PS. Eliminare xxx per rispondermi in email!

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Controllo ActiveX

Salve a tutti
ho quasi finito di sviluppare un controllo activex, e vorrei
aggiungere un'icona personalizzata (quella che viene visualizzata
nella palette controlli di vb). Non ho trovato alcunché, neanche su
MSDN.
Inoltre, compattando l'ocx con Neolite, non mi funziona più...
ComExplorer lo registra, ma nella finestra "Aggiungi componenti" di VB
il nome del controllo è qualcosa tipo "è|ad", e non può venire
utilizzato... eppure Neolite dovrebbe compattare anche file .ocx! Gli
.exe li compatta già che è una meraviglia!!!
Grazie a tutti!
--
Dos
minic...@cheerful.com

MSDN.
Se non ricordo male, è la proprietà .ToolboxBitmap
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
---------------------------------------------------------------------------

.exe li compatta già che è una meraviglia!!!
le dll ActiveX hanno (almeno) due funzioni esportate,
DllRegisterServer e DllUnregisterServer, e se non sbaglio i
compressori di eseguibili hanno PARECCHI problemi nel conservare le
export...
Newsgroup: it.comp.lang.visual-basic
Titolo: Non esiste nessuno che conosca le applicazioni IIS, non so come fare..

Non ho idea di come posso fare a scrivere un valore in una casella testo di
una pagina html (esistente e con unaq casella ti testo), che č inserita nel
mio progetto IIS.
Per prendere informazioni da questa lo faccio con request.form.item("nome
casella di testo"), ma per scriverci ?
Sarebbe la stessa cosa se non mi ripulisse il campo, cioč mi spiego meglio:
Con un pulsante controllo se nella casella di testo c'č scritto quello che
dico io, altrimenti richiamo la pagina html
PaginaHTML.WriteTemplate, ma cosě facendo lui mi ripresenta la pagina ma con
i campi vuoti ? ??
AIUTOOOO, non so come fare
Riccardo

Riccardo Giuliani ha scritto:

Purtroppo hai scelto quella che, imvvho, e' una complicazione cose semplici.
Se lavorassi direttamente con l' oggetto Response, te la caveresti con un
banalissimo:
Response.Write("<INPUT type=""text"" name=""nomecampo"" value=""" & _
                                             variabile_con_nuovo_valore & """")
Scusa se non so suggerire di meglio.
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: While & Exit While

Ho tentato in VB5 di usare, come si fa per Do, For, Sub, ...,
l'istruzione:
            While   .........
                    ..................
 
                         if condizione then exit While
                     ............
            Wend
e mi viene segnalato un errore, che fa intendere che 
non è possibile.
 è vero ?
ramarro

 wrote in message
01bfd86a$19306c00$0a4a1497@hdtzrgrk...

Newsgroup: it.comp.lang.visual-basic
Titolo: Inibire la funzione del tasto TAB

Esiste, che voi sappiate, un modo per impedire che, alla pressione del tasto
TAB il fuoco venga passato da una TextBox ad un altro controllo?
Immagino che subclassando il form si riesca ad ottenere, ma speravo in
qualcosa di più semplice...

 TAB il fuoco venga passato da una TextBox ad un altro controllo?
Credo di avere in parte risolto (a meno che qualcuno non abbia un'idea
migliore).
Sembra che, disattivando in tutti i controlli la proprietà "Tab Stop", venga
generato correttamente l'evento KeyDown.
In questo modo si fa tutto a mano e, nell'evento KeyDown di ogni controllo
(o del Form con KeyPreview = True), si deve mettere il codice per passare al
controllo successivo, ovviamente questo non avverrà nel caso della TextBox.
E' un pò brigoso, ma altro non mi viene in mente.

Dimio says...

Usa e.KeyChar
Christian

Christian ha scritto:

Qualcosa mi fa pensare che Dimio usi VB6, dove l'oggetto EventArgs non 
esiste...
-- 
Emanuele Torrenti
Registered Linux User #409659
http://torrenti.altervista.org

 esiste...
Ops, allora chiedo perdono.
Christian

Newsgroup: it.comp.lang.visual-basic
Titolo: R: Non so come spiegare il problema in poche parole......

 Io ho provato ma non funziona.. :(
  No, questo modo di agire che funziona, ad ex., in JavaScript, VBA Access
ed altri langs, in VB non si può adottare. Per fare quello che chiedi e'
pero' possibile passare alla funzione il riferimento al controllo sul quale
essa docvra' agire.
  In pratica:
  Functiom ScriviInListBox( lbxCtrl as Control, sStringa As String, altri
parametri)
      ....
      lbxCtrl.text = " sStringa"
      ....
  End Function
  Ciao.

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Valutazione portatile

Ciao ragazzi!
Mi date un consiglio? Ad una mia amica hanno fatto vedere il seguente 
notebook:
HP Omnibook 6000
Pentium III 700Mhz
Lettore CD + Floppy disk esterno
1 porta USB
128 Mb di RAM
1 HD da 6Gb
2 porte PCMCIA
Scheda audio ESS Maestro
Ovviamente il tutto è usato, esteticamente il portatile è perfetto.
Le hanno chiesto 350 euro.....a me sembra troppo.....
quando potrebbe chiedere, secondo voi? cosa vorreste spendere voi per un PC 
così?
grazie, ciao!
-- 
Alletun
"Se ti va di spassartela adesso
Prendi il Vettore oggi stesso."
Terre Desolate - Stephen King 

 cosě?
cinquanta con resa franco destino
-- 
ciao, hal

 Di' al terzo che a quel prezzo se lo può tenere lui

 un PC cosě?
Stando larghi 100 euro...
-- 
Alex {per email metti '[IOPOSSO]' nell'oggetto}
"Prima di dedicarti all'impossibile accertati di aver fatto tutto il
possibile" (Alex1980)

casomai non + di 100 Euro
Poichè il processore è ok ( si trova ora a 20 Euro ;-)
Ma il disco fisso !!! dico , almeno 20 Gb, ma 6...
--
Carmine ( 
pikachu...@gmail.com
 (Togli la scritta NOSPAM) )
Webmaster di The Total Site (
http://www.tekkentag.altervista.org/
 )
Co-Webmaster di SceptilePage (
http://www.sceptilepage.altervista.org/
 )
Account Messenger: 
thetot...@msn.com
Newsgroup: it.comp.lang.visual-basic
Titolo: Simulazione del medoto POST

Ciao, qualcuno è riuscito a simulare il metodo POST (<form action="...."
method="post">) di una form HTML richiamando una pagina WEB con il
WebBrowser di VB6 ?
A presto
Fabio

 wrote in message
r62o6.3093$lj4....@news6.giganews.com...


No, in realtà non ci sarà nessuna form reale. La mia intenzione è quella di
passare dei dati da un programma Visual Basic ad una pagina ASP per
aggiornare ed interrogare un database. L'uso del metodo POST mi serve solo
per passare alla pagina ASP la stringa SQL e altri parametri (tipo la
password per l'autorizzazione). Speravo che il controllo WebBrowser avesse
qualche proprietà per cui fosse possibile "caricarvi" in qualche modo
l'elenco dei parametri da POSTare. Cmq se trovo la soluzione la POSTo nel ng
:)
Il progetto in sintesi è questo:
Le variabili da passare alla pagina sono:
- User (contenente un nome utente abilitato)
- Password (lo dice la parola stessa)
- Stringa SQL (SELECT, INSERT ecc.)
- Database (un database di Access residente nel server)
La pagina ASP mi restituirà una pagina XML che conterrà i dati
dell'interrogazione o il risultato dell'inserimento/modifica, la quale sarà
contenuta nel controllo WebBrowser e potrà essere interpretata dal programma
in VB.
Ciao
Fabio

 WebBrowser di VB6 ?
se non ricordo male..
webbrowser1.document.forms(0).item(indice del pulsante).submit
--
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: [?] Realizzare un servizio NT

Come posso creare un eseguibile che venga avviato come servizio in ambiente
WNT?

 wrote in message
7r0ig2$b7m$1...@nslave1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [WPF] "DropShadowEffect".

Ciao a tutti,
sono andato a provare la mia applicazione sul PC che la ospiterà, con WinXp, e l'effetto non funziona :(
E' normale, o posso rimediare?
Grazie.

 E' normale, o posso rimediare?
 
vado a memoria ma credo che il DropShadowEffect sia un pixel shader 
directx e quindi deve essere supportato dalla scheda grafica, inoltre 
deve essere implementato dal tema dell'OS, infine se l'OS per questioni 
di performance ha deciso di disabilitare ancuni effetti ci puoi fare 
ben poco.
 
.m
 
-- 
blog @ //
milestone.topics.it
 
 
 

 ben poco.
Ah! E' un'ipotesi più che probabile che il PC dove l'ho provato, non abbia i requisiti HW che hai descritto. La cosa che mi interessava era sapere se fosse colpa di XP. Da quanto mi rispondi, fortunatamente non è così.
Provo a cercare relativamente al "pixel shader".
Grazie 1.000 Mauro.
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] NIk impara a quotare e se non sai non ridere

Come da oggetto
Sei irritante
--------------------------------
Inviato via 
http://usenet.libero.it

C'č chi poterbbe prenderla come offesa personale
Tranqui a me non da fastidio, ma rischi un flame da parte di qualcuno



Pardon Mik


 Tranqui a me non da fastidio, ma rischi un flame da parte di qualcuno
Ecco per l'appunto ^_^ Olix Leggiti la netiquette !
hai infranto circa un bel po' di regole a partire dal primo post fino
all'ultimo, che fa' ? Concilia ? (cit.)
1) E' IRRITANTISSIMO scrivere tutto nel subj e poi scrivere "Come oggetto"
Grrrrr
2) Non si cambia subject nello stesso 3ad
3) Non si mandano messaggi di carattere personale a tutti il ng , e'
preferibile contattare l'interessato in mail !
:p

Ok chiedo scusa a tutti sono un Newbbino dei NG :)
Ps: spero di imparare col tempo :)
Ciao Olix


 Ps: spero di imparare col tempo :)
Ci siamo passati (quasi) tutti.
Ciao
--
Math Parser, VB.Framework : 
http://www.neodatatype.net
Sito Comune               : 
http://www.it-lang-vb.net

 2) Non si cambia subject nello stesso 3ad
Ahi ahi ahi... hai detto una cosa inesatta.
Si *DEVE* cambiare subject nello stesso thread, ma *solo* se è cambiato il
ramo argomentativo.
Andrea

 ramo argomentativo.
E io aggiungerei che si dovrebbe anche indicare il vecchio subject
es:
Re: Re:Argomento chiarito :P (was: [OT] NIk impara a quotare e se non sai
non ridere)
Ciao

 cambiato il ramo argomentativo.
gia' giusta osservazione e sottolineo anche il post di zanna !
:p

O E' IL CALDO CHE
VI DA ALLA
TESTA????

 TESTA????
Ciao, nei newsgroup non si grida (scrivere maiuscolo), e' sinonimo di
maleducazione, non si quota a cavolo , non si quota sopra il testo, non ci
si mette le dita nel naso, non si bevono alcoolici se non siete M$ certified
partner, non si dice buona sera , non si brucia la candela e sotto la panca
lasciate stare la capra stanca che canta !
+
I
-
N
E
E
D
-
F
E
R
I
E
+
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

 +
A chi lo dici! :(

 +
No, te ciai bbisogno di un condizzionatore.
Un Paperino a 23 gradi :-P.

 lasciate stare la capra stanca che canta !
neanke una birretta?!
no perchč io non ce la faccio proprio piů....
:(

 Un Paperino a 23 gradi :-P.
spero tu ricordi esattamente il tono che uso' Giacomo di Aldo Giovanni e
Giacomo quando disse : "Bastaaaardo!"
:p
Un Gigio che in ufficio sta sui 36° adesso a casina il termometro segna 30°
!


 no perchč io non ce la faccio proprio piů....
we' sei te il festeggiato (AUGURI) quindi offrile :p


 Giovanni e Giacomo quando disse : "Bastaaaardo!"
Questo ?
http://www.bestkevin.com/Download/mp3fun2/tre%2520uomini%2520e%2520una%2520gamba/bastardo_dentro.wav
;-)
Bye, G.


http://www.bestkevin.com/Download/mp3fun2/tre%2520uomini%2520e%2520una%2520g
amba/bastardo_dentro.wav
no ma rende l'idea ^_^

Newsgroup: it.comp.lang.visual-basic
Titolo: Come fare?

Vorrei, nel mio prog contenente un mdiform e tanti form secondari,
aggiungere l'opzione stampa del form secondario in quel momento attivo.
Mi aiutereste? Sono un novellino.
Grazie ciao

 wrote in message
news:8sn9om$9v8$1...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: ordine profondità controlli

Ciao,
Ho ho un form con alcune listview completamente ricoperto da una picturebox
con sopra alcune cose che scompare appena si digita un determinato
pulsante...il problema č che una delle listview rimane sempre in primo piano
e non viene nascosta dalla picturebox....come posso rimediare? C'č un modo
per decidere l'ordine di "profonditą" dei controlli?
Grazie

 ha scritto nel messaggio
news:PuIid.127

Picture1.ZOrder
Ciao
-- 
NeoDataType : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

Newsgroup: it.comp.lang.visual-basic
Titolo: Utilizzo TextToSpeech

Sto cercando disperatamente aiuto!
Il problema è questo: sto modificando del software per l'accessibilità ai non
vedenti e agli ipovedenti e questo mi richiede l'uso di runtime vocali.
Sto utilizzando le TTSpeech dell'IBM-Viavoice.
Ad un primo test su alcuni PC il tutto sembrava andare bene.
Un paio di giorni fa su un PC......... tutto in blocco!
Ci ho lavorato per ore prima di risolvere il casino: in pratica (credo!) erano
state installate prima altre runtimes vocali che poi sono state disinstallate.
Le 'voci' però risultano ancora se crei la lista da runtimes 
    For i = 1 To FormBocca.Bocca.CountEngines
        ModeName = FormBocca.Bocca.ModeName(i)
        Combo1.AddItem ModeName
    Next i
e la predefinita risulta essere proprio una di quelle che non esiste più!
Ovviamente il prg non parte e non dà la possibilità di configurare la voce da
scegliere. Se si disinstallano (ho fatto la prova), rimangono nel registro. Ho
dovuto 'ripulire' manualmente il registro di sistema per far partire il
programma.
Qualcuno sa in quale modo sia possibile indicare al programma di scegliere
'proprio' le voci del TTS Italiano?
Grazie e ciao 
Ivana
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:d7383af3cfd1096b7e9...@mygate.mailgate.org...

non c'entra nulla ma forse ti puo essere utile per bimbi ipovedenti,ho
realizzato un programmino "tabelline Perlanti" si  puo'  ascoltare
(generate a caso e non) tutte le tabelline pitagoriche e vederea caratteri
grandi sullo schermo
ric...@tin.it
ti posso spedire il sorgente


 ha scritto nel messaggio
news:d7383af3cfd1096b7e9...@mygate.mailgate.org...

Newsgroup: it.comp.lang.visual-basic
Titolo: Gestire una parallela??

Ariciao, sono di nuovo Salvo,
e' possibile gestire una porta parallela come sono abituato a fare con il
vecchio QBasic 4.5, tramite l'istruzione OUT riuscivo in QB a inviare alla
LPT1 i comandi per gestire una camera CCD elettronica con interfaccia
parallela. Adesso voglio scrivere il codice in VB per fare tali operazioni
ma non riesco a comunicare con la porta. Come si fa???
Grazie
Ciao
Salvo

 wrote in message 7qp482$o21$1...@nslave1.tin.it...


in alternativa:
open "lpt1:" for output as #1
    print#1,chr$(vbKeyEscape) 'con CR alla fine
    write#1,chr$(vbKeyEscape) 'senza CR alla fine
close#1
funziona anche con input...
-- 
GbC

Newsgroup: it.comp.lang.visual-basic
Titolo: Controlli e Indici

E' possibile permutare gli indici di controlli multipli, gestiti da una
matrice di
controlli, ma non tutti uguali tra loro per forma, dopo che Vb(5) ha loro
assegnato,
in seguito alle operazioni di copia/incolla, indici non adatti alle
esigenza del
programma ?
grazie per l'attenzione.
 
ramarro.

puoi variare la proprietą indix di ogni controllo facente parte della
matrice, facendo attenzione che non ne esita una altro con lo stesso indice
se vuoi rimpiazzare una text con indice 3 a 1, dovrai assegnare alla 1 un
indice diverso per esmpio 5 e poi passare alla text 3 l'indice 1
ciao spero di averti aiutato
ciao marco
mario provera ha scritto nel messaggio
<01bfba9f$de469fc0$43461497@hdtzrgrk>...

Newsgroup: it.comp.lang.visual-basic
Titolo: Informazione

Vorrei sapere come posso fare per far si che se avvicino il mouse ad un
pulsante il programma se ne accorga e possa far seguire una certa
operazione??
Ciao,
Nick

 operazione??
Vedi evento MouseMove del pulsante

Nick wrote:

Il mouse dev'essere sopra o "vicino" al controllo ?
Ciao,
        Negus

 wrote in message
news:b1908b....@127.0.0.1...


 Sopra.
Allora ci sono tutti gli eventi che vuoi.
Ciao,
        Negus

Newsgroup: it.comp.lang.visual-basic
Titolo: mettere pausa programma

Salve, C'eč un modo per metttere in pausa il programma, nel senso che io
gli faccio fare dei calcoli, li faccio apparire sul form e voglio fare in
modo che mi mostra una videata e si mette in pausa, clicco su un pulsante
e lui mi fa vedere un'altra videata, e cosě via...
A me servirebbe il comando per farlo andare in pausa e quello per farlo
ripartire.
 Grazie 
     Sniper Wolf
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 farlo ripartire.
Beh ci sono moltissimi modi, ognuno adatto ad una specifica esigenza.
Nel tuo caso mi sembra che puoi creare varie funzioni. Ciascuna di queste
elabora qualcosa. Quando una finisce, dà il risultato. Poi usi l'evento
keypress dei command button per passare alla funzione successiva.
bye
-- 
"Seminate Linux, che Windows si pianta da sè...." (Antico Adagio)
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it
Sinapsi Antispam. Antispam Gratuito.
http://www.nicolaottomano.it/sinapsi.htm
email spamtrap: 
spam...@nicolaottomano.it
Velocipedi Equestri su
http://www.nicolaottomano.it/velocipedi_equestri.htm

Newsgroup: it.comp.lang.visual-basic
Titolo: Leggere i nomi di tutti i file di una cartella ?

Salve !
Ho bisogno di caricare in un vettore l'elenco di tutti i file contenuti in
una cartella.
Mi sembra di aver capito che la cosa ha a che fare con il comando Dir ma non
mi e' chiaro come posso leggerli uno per uno sino alla fine.
Potete aiutarmi ?
Grazie

 ha scritto nel messaggio
news:HUdC8.28416$5k4.6...@twister2.libero.it...

a=Dir("C:\Cartella\Pipp*.*")
do
    if a="" then exit do
    file_ennesimo=a
    a=Dir
loop

 mi e' chiaro come posso leggerli uno per uno sino alla fine.
Proprio oggi ho postato la soluzione per un quesito IDENTICO, vedi le
risposte al post intitolato "Aprire tutti i file in tutte le sottodir?"...
Ciao,
- SonicBoom -

Grazie a tutti

Newsgroup: it.comp.lang.visual-basic
Titolo: datagrid & access 2000





Ciao a tutti.


La mia domanda è questa:


Perchè un datagrid collegato con un db access 2000 
non funziona, mentre se lo collego con un db access 97 tutto è OK.?


Vi ringrazio per l'eventuale risposta.


Ciao a tutti.


 



Per favore, non postare in html.
Il manifesto del newsgroup, che ti consiglio vivamente di leggere
su 
http://it-lang-vb.net/
, e la netiquette in generale
raccomandano di inviare messaggi in solo testo.
Riguardo alla tua domanda, cerca nei post precedenti perche'
se ne e' parlato veramente tanto.
ciao, hal

 ha 
  scritto nel messaggio 
news:000a01c0d3e2$85a13c60$af02...@fabaris.it
...

Newsgroup: it.comp.lang.visual-basic
Titolo: importazione/esportazione di dati

Non è possibile farlo in modo generico. E' necessario che le strutture di
dati siano uguali o il programma effettui le conversioni necessarie.
Se sono uguali:
supponi di avere un MDB con Tabella1 e un File DBF di nome TABELLA1.DBF
Dim DBOrig as Database
Dim DBDest as Database
Dim RkOrig as Recordset
Dim RkDest as Recordset
Set DBOrig=OpenDatabase("C:\TEST",False,False,"dBase III")
Set DBDest=OpenDatabase("C:\TEST\ACCESS.MDB")
Set RkOrig=DBOrig.OpenRecordset("TABELLA1",dbOpenDynaset)
Set RkDest=DBDest.OpenRecordset("TABELLA1",dbOpenDynaset)
Do Until RkOrig.EOF
      RkDest.AddNew
      For x= 0 to RkOrig.FieldCount-1
               RkDest.Fields(x)=RkOrig.Fields(x)
      Next
      RkDest.Update
     RkOrig.MoveNext
Loop
RkDest.Close
RkOrig.Close
DBDest.Close
DBOrig.Close
Set DBOrig=Nothing
Set DBDest=Nothing
Set RkOrig=Nothing
Set RkDest=Nothing



Newsgroup: it.comp.lang.visual-basic
Titolo: TreeView control

Uso quello che si trova in MSCOMCTL.OCX all'interno di un progetto
Access 2000 (.adp).
Praticamente vorrei evitare la comparsa dei tool-tips al passaggio del
mouse sopra le voci contenute nella tree-view.
Cosa che già riesco a fare attivando la finesta di un altro programma
per poi ritornare alla finestra di Access che contiene il controllo
(strano ma vero, i tool-tips smettono di essere visualizzti).
Mi piacerebbe evitare questo espediente molto sporco.
Ciao, Alessandro
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Mi piacerebbe evitare questo espediente molto sporco.
Se a qualcun'altro può servire ho trovato come fare:
Private Const TVS_NOTOOLTIPS = &H80
Private Const GWL_STYLE = (-16)
Private Declare Function GetWindowLong Lib "user32" Alias
"GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias
"SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal
dwNewLong As Long) As Long
Private Sub Form_Load()
    ' Evita la visualizzazione dei tool-tips al passaggio del mouse
sopra le voci della tree-view
    SetWindowLong Me.TreeView.hWnd, GWL_STYLE,
GetWindowLong(Me.TreeView.hWnd, GWL_STYLE) Or TVS_NOTOOLTIPS
End Sub

Newsgroup: it.comp.lang.visual-basic
Titolo: Compilazione 16 bit

Ho un programma visual basic che dovrei compilare a 16 bit ma nel mio
computer ho VB6. come posso fare? cosa devo intsallere nella mia macchina?


realizzato con vb6?
mi sa che non puoi...
l'ultima versione di Vb in grado di compilare a 16Bit č
la 4.0
--
bye BlackMagic
ICQ# 85485468

computer ho VB6. come posso fare? cosa devo intsallere nella mia macchina?
  Rischi di avere grossi problemi perche' non basta installare VB3 ma
devi convertire il progetto, il che significa trovare i VBX
equivalenti a tutti gli OCX che stai usando e comunque la conversione
all'indietro non e' automatica. Forse VB4 a 16 bit riesce a fare
qualcosa di meglio se hai gli OCX a 16 bit necessari ma dipende molto
da quali componenti utilizza il tuo progetto VB6.
  Ciao :-)
  Massimo
  Nell'indirizzo, sostituire "micio" con "mc"

 ha scritto nel messaggio
news:55e08v4mcaecptlgj...@4ax.com...


 Gli OCX che uso sono solo quelli standard che sono anche su VB4.
Allora potresti farcela semplicemente leggendo il progetto con VB4 (e
eliminando le righe non capite dal .vbp).
Controlla però che effettivamente carichi gli oggetti corrispondenti di VB4
e non mantenga quelli di VB6, che sono ovviamente a 32bit.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: copia files

Salve a tutti...
Devo gestire la copia di una serie di file da vb.
Vorrei usare postmessage in subclassing per lanciare la copia dei file uno 
ad uno...
Qualcuno sa dove posso reperire i numeri dei messaggi restituti dai 
processi di windows ed in particolare da PostMessage per quanto riguarda la 
copia dei files??
Grazie

 file uno ad uno...
UCAF=UfficioComplicazioniAffariSemplici

> UCAF=UfficioComplicazioniAffariSemplici
Non te lo consiglio: c'è sempre la fila a quell'ufficio... :-)
Antonio Mirarchi

 ad uno...
API SHFileOperation
Cosa si può volere di più?
-> GbC|
www.gbcweb.com

 wrote in news:AWgCb.184705$e6.6903686
@
twister2.libero.it
:

Sto provando ad usarlo ma ho qualche problema, spero tu mi possa aiutare..
1-Come faccio a gestire un errore di copia?
2-E' corretto creare una collection degli elementi da copiare oppure se mi 
baso su di una tabella di un db per avere l'elenco come posso gestire la 
copia internamente alla mia applicazione? (vorrei cioè visualizzare 
all'utente i file che non sono stati copiati, ma procedere con i restanti)
Spero di essere stato chiaro :)

 file uno ad uno...
*EH ?* Ma usare una semplice, benedetta FileCopy pare brutto ?
Bye, G.

[*Paperino* = 
gaet...@hotmail.com
 in
news:brceni$1puh6$
1...@ID-108681.news.uni-berlin.de
] ha scritto:

Salvo il masochismo che neanche la frusta serve piů, in certo senso, sě,
specialmente se i file sono in uso.
Resta comunque una via breve: Open ... For Binary e via di blocchi Get/Put

> Resta comunque una via breve: Open ... For Binary e via di blocchi Get/Put
Ma non è lento come metodo rispetto a FileCopy o all'API??
Antonio Mirarchi

 Ma non č lento come metodo rispetto a FileCopy o all'API??
Rispetto a FileCopy non mi pare (leggasi pareva, da test fatti a suo tempo),
ma, se anche fosse, se devo copiare alla svelta allora uso Espora risorse,
no?!

 no?!
Eh... Questa si chiama logica impeccabile ^__^
Antonio Mirarchi

 Non te lo consiglio: c'è sempre la fila a quell'ufficio... :-)
Domanda: se tutti vanno allo sportello con la fila più corta, perchè nelle
file più lunghe c'è sempre più gente?
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 file più lunghe c'è sempre più gente?
Perchè gli sportelli sono pochi!!
Antonio Mirarchi