mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: finestre di pop di IE

Salve ragazzi volevo sapare se sapevate come far apparire quelle noisissime
finestre di pop up che si vedono nei siti internet.
Voi direte è ot ...NO! xchè questo mi serve dal mio programma in VB so che
per esempio usando Kazaa mi compaio queste finestre e volevo sapere se
avevate qualche idea.
Io ho pensato di fare questo
Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String,
ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Sub apriDialog(pagina As String)
    ShellExecute 0, vbNullString, "javascript:open(" & pagina &
",'finestraPop','toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=1,width=680,height=500,left=1,top=1')",
vbNullString, "C:\", SW_SHOWNORMAL
End Sub
Che dire funziona ma e mi viene fuori quello che cerco ma vorrei che la
finestra 'madre' quella che fa partire il processo non ci fosse invece
rimane.
Qualche idea?
--------------------------------
Inviato via 
http://usenet.libero.it

beh, a parte che ti odio per quello che stai facendo, come odio i programmi
che fanno cosě, comunque.....
io metterei un controllo WebBrowser sul form della mia app, nascosto o
comunque non visibile........
fin qua ci sei? ok.....
poi mi faccio una pagina HTML in locale, nella stessa dir della mia
applicazione. Quando voglio far apparire la finestra in popup, faccio un bel
.Navigate del mio WebBrowser, cosě:
Me.WebBrowser1.Navigate App.Path & "\Pagina.html"
La pagina HTML contiene un classico script VB/JavaScript che fa aprire la
finestrina, in maniera assolutamente analoga ai siti Web (o come hai fatto
tu nel codice che hai postato!!!)
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: Copia di Directory/File

Cerco delle funzioni che mi permettano di copiare delle directory, comprese
di sotto-directory, da una parte all'altra del PC..o di un'altro PC in
rete....ho come parametri i vari percorsi e, naturalmente, i nomi dei file o
delle directory.
Fino ad ora ho utilizzato la SHELL sul comando XCOPY di DOS...ma non posso
gestire gli errori che potrebbero generarsi nel processo, quindi vorrei
cambiare il sistema...per la copia del file...utilizzerei il comando
FILECOPY...ma per le directory non so come fare (ho visto COPYFOLDER..ma non
ho capito come utilizzarlo :-(   )
Spero che possiate aiutarmi.....buon lavoro e ciao a tutti


wrote:

sto usando un software sviluppato dallo staff di microsoft,
assolutamente gratuito, con le funzionalità di XCOPY, ma anche altro
(per esempio puoi settare il numero di volte in cui deve riprovare ad
accedere ad un file, se in quel momento e' bloccato, o , ancor più
utile, fa l'allineamento di file e directory in aggiunta, ma amìnche
in rimozione)
si chiama ROBOCOPY (robust copy)
con un motore di ricerca si dovrebbe trovare subito.
ciao
   Nicola Tornieri
   ----------------------------
  Manens Intertecnica srl
  tornieri[at]
manens.com
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

> si chiama ROBOCOPY (robust copy)
Credo che "robust" alla Microsoft non possa indicare nulla di diverso da
"tarchiato".
Escludo che conoscano altra accezioni del termine robusto.
:-))))
locaduck

 Fino ad ora ho utilizzato la SHELL sul comando XCOPY di DOS...ma non posso
gestire gli errori che potrebbero generarsi nel processo, quindi vorrei
cambiare il sistema...per la copia del file...utilizzerei il comando
FILECOPY...ma per le directory non so come fare (ho visto COPYFOLDER..ma non
ho capito come utilizzarlo :-(   )
Potresti prendere in considerazione la possibilita` di usare l'oggetto
"FileSystemObject" presente in:
    Library Scripting
        <...>\SCRRUN.DLL
        Microsoft Scripting Runtime
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 grazie
usa l'oggetto FileSystemObject del modulo Scripting (Microsoft Scripting
Runtime, scrrun.dll) che espone sia i metodi MoveFolder che CopyFolder
esempio:
Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
fso.CopyFolder strSourcePath, strDestinationPath, flgOverwrite
oppure (se non hai referenziato scrrun.dll nel progetto)
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder strSourcePath, strDestinationPath, flgOverwrite
ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Salve a tutti.

Un salutone a tutti quelli che mi conoscono e non...dopo un bel pò di
tempo...
sono tornato...
A presto...

A presto...
Ciao,
hai visto quanta gente posta qui adesso ?!
Peccato che pochi usano le convenzioni del manifesto.
Se ti serve un link sai dove trovarlo... :-)
---
--
-
MIX (VB5SP3)
150 links a siti VB
http://www.tempolibero.com/user/mix/
-
--
---
Newsgroup: it.comp.lang.visual-basic
Titolo: mouse

Ho bisogno di sapere in ogni istante dove si trova il mouse, o meglio sapere
su quale oggetto si trova ad un istante t.
Es. devo sapere su quale textbox si trova il mouse
sicuramente bisogna usare le API. Sapete quale Api usare e come usarla
Grazie

 Es. devo sapere su quale textbox si trova il mouse
That's easy my friend!
Usi la funzione GetCursorPosition passandogli una struttura
POINT. Quets struttura la ripassi alla funzione
WindowFromPoint che ti rende l'handle della finestra
sulla quale "viaggia" il cursore nel tuo instante T.




 Grazie
Non so se č proprio il tuo caso, ma perché non provi con la proprietą
MouseMove dell'oggetto?
ESEMPIO:
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
    MsgBox "CIAO"
End Sub
Se invece non va bene, ci sarą qualche altra buon'anima che ti risponderą

 Grazie
Funzione GetCursorPos
La funzione GetCursorPos che consente di ottenere le coordinate del
puntatore sullo schermo
Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As
POINTAPI) As Long
E' necessario dichiarare prima la struttura POINTAPI che contera' per
l'appunto le coordinate del puntatore.
ricavo queste info dalla RaccoltaAPI.chm che puoi scaricare dal sito di
cesare rizzi:
http://members.xoom.it/CesareRizzi/
hth, pal
--
andrea dot palazzi at tin dot it
free vb/sw: 
http://www.comune.modena.it/cittadini/apal/html/

Se vuoi sapere su quale oggetto si trova il puntatore del mouse non conviene
usare le Api.
Xche' usare getcursorPos che restituisce le coordinate del mouse sullo
schermo ? In questo modo si dovrebbe fare una mappatura delle posizioni di
tutti gli oggetti sul form.
Meglio usare la MouseMove che restituisce di ogni oggetto se hai premuto un
pulsante del mouse, eventuali tasti MAIUSC, CTRL e ALT premuti e la
posizione del mouse riferita all' oggetto su cui e' il mouse.
Ciao
--
Icq ---> 50759119
Mercenaries Never Die. They Just Go Hell To Regroup.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] OCX per scorrere cartelle e files

Ciao a tutti,
esiste e sapete dirmi dove posso trovare un bell'OCX che mi crei quel
bell'oggetto per scegliere file e/o cartelle stile windows?
Non quello incluso in VB6, ma pensavo a quello (non so come dire) in stile
gerarchico (tipo quando sono dentro il RegEdit) dove ci sono le belle icone
gialle per le cartelle, le icone dei drives ecc ecc.
Grazie a tutti.
Mirco
------------------------------------------------------------
KATACLiSM
http://xoomer.virgilio.it/kataclism

http://www.it-lang-vb.net/download.asp?file=http://www.it-lang-vb.net/Archivio/Sorgenti/dirtreeview.zip&ID=45
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

 belle icone gialle per le cartelle, le icone dei drives ecc ecc.
Se per "quello incluso in VB6" intendi la FileListBox puoi usare il
controllo Common Dialog (già incluso in VB6)
Solo per le cartelle puoi usare l' API SHBrowseForFolder
Ciao
Michele

Il 08/01/2004 22.43, Michele Moccia scrisse:

CommonDialog e SHBrowseForFolder sono difficili da appiccicare ad un form!
;-)
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 belle icone gialle per le cartelle, le icone dei drives ecc ecc.
Un TreeVieew pare brutto ?
Bye, G.

 ha scritto


Newsgroup: it.comp.lang.visual-basic
Titolo: VENDESI LIBRO "VISUAL BASIC 6.0 Manuale del Programmatore"

Ciao vendo il libro Visual Basic 6.0 Manuale del Programmatore della
Mondadori, mai usato causa inutilizzo
acquistato a L. 90000 vendo a 45000 (26 euro). Chi e' interessato mi
contatti.

acquistato a L. 90000 vendo a 45000 (26 euro). Chi e' interessato mi
Dovresti fornirti di un buon euroconvertitore: 45000£=23.24€ o
26€=50343£ scegli tu! :-
PS: Evita di urlare!
-- 
Visita il sito comune del NG: 
http://www.it-lang-vb.net
Visit: 
http://www.hardwaretips.com

 Visit: 
http://www.hardwaretips.com
Hai ragione! scusa volevo dire 23,24. Sai alle 2 di notte dopo 4 ore di
programmazione! Cmq grazie! Ciao alla prossima

 Visit: 
http://www.hardwaretips.com
Volevo dirti Lord Rayden che non l'ho mai usato solo perke' ne ho un altro
identico!
Ciao, alla prossima :)

Newsgroup: it.comp.lang.visual-basic
Titolo: Help su stampa

Dovrei implementare la stampa di un modulo, e fin qui nessun problema.
Dovrei perň stampare anche un'immagine sul modulo, posso farlo con l'oggetto
printer???
Altrimenti come posso fare?
P.S. C'č un modo piů veloce (escluso CrystalReport) per fare le stampe?
P.P.S. Scusate ma non mi sono occupate di stampe cosě spesso sin'ora.
CIAO
VoCIOnE!!

printer???
1. 
Evita di scrivere Help (o Aiuto) nel subject se l' argomento non riguarda i file
della guida: avresti probabilmente ricevuto risposta prima.
2.
Per stampare immagini, usa il metodo PaintPicture di Printer.
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo connessione a server FTP

Mi connetto ad un server FTP tramite chiamate alle API e questo mi avverte
che se non faro' nulla per 5 minuti consecutivi, fara' cadere la
connessione.
Ora, mentre sono collegato posso fare quello che mi serve senza problemi, ma
se effettivamente mi fermo per pių di 5 minuti la connessione cade.
Ora io devo testare questo stato... esiste un qualche api o qualche funzione
che mi puō aiutare oppure devo basarmi su metodi empirici ???
Grazie, Matteo

 che mi puō aiutare oppure devo basarmi su metodi empirici ???
Per quella a internet prova a guardare sul sito comune... per quella al
server Ftp porva a testare gli errori...

Newsgroup: it.comp.lang.visual-basic
Titolo: VISUALIZZARE RICERCA

Ciao a tutti,
vorrei visualizzare tutti i record effettuati attraverso una ricerca
in un unico foglio.
come devo fare?
ciao e grazie

 come devo fare?
scrivendo molto piccolo
--
Salutoni
Sergio

 scrivendo molto piccolo
o prendendo un foglio molto grande...
MIk

 MIk
Andrea


wrote:

scusate non mi sono spiegato bene,
ho un form dove inserisco i dati che vengono registrati su un
database,
nello stesso form ho inserito la ricerca per cognome... se esistono
piu' persone con lo stesso congnome, vorrei che venissero visualizzati
su di un report. come faccio?
creo il report ma come lo aggancio alla ricerca?
grazie

[*peppe* = 
linu...@infinito.it
 in
news:m5elnvoaepn6hh615...@4ax.com
] ha scritto:

peppe, ti hanno preso un po' in giro.
Questo dipende (te lo posso assicurare!), prima ancora che dal tuo post, dal
particolare momento di chi legge, dalle naturali reazioni di chi ... legge
quel che altri hanno scritto 8e la cosa può risultare infinita) e,
soprattutto, dalle peculiarità di questo NG: assolutamente serio e capace,
ma (forse proprio per quello) spesso incline alla goliardia. In una parola
"umano" (forse non "gruppo", ma certissimamente "umano").
La tua domanda include già la risposta: una griglia.
Vedi tu (se sei masochista) se affidarti alle griglie bound-ate (legate) ai
dati, come le varie DBGrid, DataGrid e nomignoli del genere che,
generalmente e normalmente con due click ti consentono di mostrare (persino
bene) il contenuto di un recordset, oppure se a griglie non collegate ai
dati (per esempio MsFlexGrid) che dovrai compilare a manina, meglio se con
una routine fatta una volta per tutte.
Io, chiaramente, propendo per la seconda, ma, eccezionalmente, ti
consiglierei la prima, giusto e _solo_ per vedere i risultati. No, non
lavorarci sopra per variare, aggiungere, annullare. Intendiamoci, non
saresti l'unico, ma verresti (come detto) automaticamente (e gratuitamente)
iscritto al "MasoClub"...
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] o no ?

Cerco un telecomando x PC (con relativa scheda di ricezione infrarossi)
liberamente programmabile (in vb ...) esiste ?
L'idea è di poter spegnere il PC da lontano
(quando sono buttato nel letto che guardo i DVX o la TV con la TVcard)
Grazie
ciao
* FeDe *

 L'idea č di poter spegnere il PC da lontano
tastiera infrarossi da 30Euro + Switch per la tastiera normale 10Euro !

""Gigio2K"" <baronef...@SPAM-YOURSELFyahoo.com> ha scritto nel messaggio
news:JUpM9.32572$TC5.9...@twister1.libero.it...

Scusa ma dove la trovi unsa tastiera a 30 ? , ma mi sembra troppo
ingombrante ...

 ingombrante ...
guarda io ne ho una da 33Euro per la precisione , non so che marca sia , e'
nera mi sa che sono quelle dedicate alla TV-WEB , in pratica e' come la
tastiera di un portatile ( quindi piccola ) con impugnatura a destra e
sinistra dove ci sono rispettivamente i tasti e una semirotellina che
emulano il mouse , sara' in totale un 30cm !
molto comoda , io la uso per giocare dal letto col monitor 21" a 640x480
^_^;

 L'idea č di poter spegnere il PC da lontano


 zZzzZzzZ
idem , menomale che un timer vb basta e avanza per questo !
avevo letto anche uno schema per costruirmi la IrDA con soli 15Euro ma non
capisco una mazza di elettronica e col saldatore farei esplodere la casa !
(visti i precedenti in cui ho bucato una parte di un tavolo lasciandolo
acceso )

Newsgroup: it.comp.lang.visual-basic
Titolo: Programmi originali

Ciao ragazzi
A causa di cessata attivita'  regalo (quasi) tutto il software in mio
possesso. Tutto con regolare licenza e persino la confezione originale
del prodotto.
Si va dai sistemi operativi a quelli di sviluppo e somo comprese
annche suite di Office.
Chi fosse interessato puo' richiedermi via E-Mail personale la lista
completa e dettagliata.
Ciao Maurizio

 del prodotto.
...(...)...
Azz... se tu avessi postato qualche tempo fa ... :-(

Newsgroup: it.comp.lang.visual-basic
Titolo: Mulitple control instances?

Please help if you know how to create multiple instances of a control (like
a command button or a panel) or know how to make copies of a control or know
how to  move a control from one form to another.
Thanks, Bob


You must create a control with the Index property at the design time, then
you can use the Load statement to create a new control (with the Visible
property set to False).
Ciao, Stefano
Newsgroup: it.comp.lang.visual-basic
Titolo: PATH a 8 caratteri e PATH a 255

Buongiorno, qualcuno di voi mi può dire come posso fare per ridurre i nomi
di file con più di 8 caratteri nel vecchio formato?
Cioè come posso creare un path ridotto?
Esempio
C:\PROGRAMMI           --> C:\PROGRA~1
C:\PROGRAM FILES     --> C:\PROGRA~2
Mi servirebbe un modulo o qualsiasi cosa da inserire in un .vbp
So che è contrario all'etica del NG ma potreste spedirmi un'eventuale
risposta anche sul mio indirizzo e-mail?
Per 1 semplice motivo: non ho il PC a casa, quindi in facoltà non dispongo
di Outlook (che posso consultare a casa molto raramente)
Il mio indirizzo è 
valeri...@mail.omnitel.it
Grazie
Ciao

 ha scritto

Private Declare Function GetShortPathName Lib "kernel32" Alias
"GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath
As String, ByVal lBuffer As Long) As Long
Public Function GetShortPath(strFileName As String) As String
    'KPD-Team 1999
    'URL: 
http://www.allapi.net/
    'E-Mail: KPD...@Allapi.net
    Dim lngRes As Long, strPath As String
    'Create a buffer
    strPath = String$(165, 0)
    'retrieve the short pathname
    lngRes = GetShortPathName(strFileName, strPath, 164)
    'remove all unnecessary chr$(0)'s
    GetShortPath = Left$(strPath, lngRes)
End Function
Private Sub Form_Load()
    MsgBox GetShortPath("c:\Program Files\")
End Sub
Newsgroup: it.comp.lang.visual-basic
Titolo: [Ottimizzare codice]

Questo pezzo di codice,nel contesto di una scheda prodotti,visualizza
una piccola anteprima dei files ricercati.
Ha perň un problema,nel senso che, se trova piů files con lo stesso
nome,ma tipo diverso (pdf piuttosto che bmp,etc) mi visualizza solo
l'ultimo trovato.
Avete idea di come possa fare per ovviare al problema?
Secondo voi č possibile anche ottimizzarlo,e se si mi fareste un
esempio?
'***VISUALIZZA LE ANTEPRIME**********
For Cicla = 0 To 2
    If FileExist(PercorsoDwg & "\" & rst.Fields.Item("T01Dis" & Cicla +
1).Value & ".DWG") = True Then
        DwgThumbnail1.Item(Cicla).Left = 120
        DwgThumbnail1.Item(Cicla).Top = 720
        DwgThumbnail1.Item(Cicla).Width = 2505
        DwgThumbnail1.Item(Cicla).Height = 1980
        DwgThumbnail1.Item(Cicla).Visible = True
        Image1.Item(Cicla).Visible = False
        Image3.Item(Cicla).Visible = False
        Image2.Item(Cicla).Visible = False
        DwgThumbnail1.Item(Cicla).DwgFileName = (PercorsoDwg & "\" &
rst.Fields.Item("T01Dis" & Cicla + 1).Value & ".DWG")
    Else
        DwgThumbnail1.Item(Cicla).Visible = False
    End If
    If FileExist(PercorsoBMP & "\" & rst.Fields.Item("T01Dis" & Cicla +
1).Value & ".BMP") = True Then
        Image1.Item(Cicla).Left = 120
        Image1.Item(Cicla).Top = 720
        Image1.Item(Cicla).Width = 2505
        Image1.Item(Cicla).Height = 1980
        Image1.Item(Cicla).Visible = True
        Image3.Item(Cicla).Visible = False
        Image2.Item(Cicla).Visible = False
        DwgThumbnail1.Item(Cicla).Visible = False
        Image1.Item(Cicla).Picture = LoadPicture(PercorsoBMP & "\" &
rst.Fields.Item("T01Dis" & Cicla + 1).Value & ".BMP")
    Else
        Image1.Item(Cicla).Visible = False
    End If
    If FileExist(PercorsoDwg & "\" & rst.Fields.Item("T01Dis" & Cicla +
1).Value & ".PDF") = True Then
        Image3.Item(Cicla).Left = 120
        Image3.Item(Cicla).Top = 720
        Image3.Item(Cicla).Width = 2505
        Image3.Item(Cicla).Height = 1980
        Image3.Item(Cicla).Visible = True
        Image1.Item(Cicla).Visible = False
        Image2.Item(Cicla).Visible = False
        DwgThumbnail1.Item(Cicla).Visible = False
    Else
        Image3.Item(Cicla).Visible = False
    End If
    If FileExist(PercorsoDwg & "\TABELLE\" & rst.Fields.Item("T01Dis" &
Cicla + 1).Value & ".XLS") = True Then
        Image2.Item(Cicla).Left = 120
        Image2.Item(Cicla).Top = 720
        Image2.Item(Cicla).Width = 2505
        Image2.Item(Cicla).Height = 1980
        Image2.Item(Cicla).Visible = True
        Image1.Item(Cicla).Visible = False
        Image3.Item(Cicla).Visible = False
        DwgThumbnail1.Item(Cicla).Visible = False
    Else
        Image2.Item(Cicla).Visible = False
    End If
Next Cicla
'***FINE ANTEPRIME******************************
Grazie mille
R.Zanni
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.visual-basic
Titolo: ?2 GetRows

Scusate la banalità della domanda.
Ma mi postate un piccolo esempio di come GetRows può caricare una matrice
bidimensionale con i dati ricavati dai record di un database???
Grazie Infinite

bidimensionale con i dati ricavati dai record di un database???
scusate la banalita' della risposta ma interesserebbe molto anche a
me! :)

 wrote in message
3763a0bd...@news.queen.it...


 wrote in message
7k128d$si3$1...@hermes.iol.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [Libro Balena 2003 Cerco] no per Bastianello

Adesso che sta per uscire quello nuovo sul 2005,
qualcuno č interessato a vendere il libro di Balena 
"Programmare Microsoft Visual Basic .NET. Versione 2003" 
Con CD-Rom
Io sarei interessato all'acquisto
nota.
messaggio non per Luciano Bastianello che non tratta
con quelli non della sua latitudine.

 Io sarei interessato all'acquisto
io aspetterei proprio l'uscita e poi acquisterei il net.2003 almeno si
abbassera' il prezzo, la mia copia e' anche autografata e cmq mi rimane
utile un tomo come quello quando litigo con la morosa... non posso venderlo
!
-- 
-Gigio@work-
G2kSnipUrl : 
http://www.g2kweb.it/?3015
( il servizio accorcia link + Gigioso che conosciate ! )
---> No alla CONFISCA delle moto : 
http://www.maxkava.com/moto
 <---

 qualcuno è interessato a vendere il libro di Balena


qualcuno è interessato a vendere il libro di Balena 


Newsgroup: it.comp.lang.visual-basic
Titolo: modificare a runtime

il mio programma gestisce database per un magazzino.
a questo punto il mi utente puo salvare il db in qualunque c artella come
faccio io a memorizzare il percorso della cartella ??
io pensavo di modificare a run time iuna costante ma non ci riesco cosa mi
proponete mi basta uno spunto !!!!!!!!!
ciao grazie Bradok

[bradok]

ioc redo che p otresti salvre i percoso in u fail di test ooiun chiave d
registo !!!! poi lo pui legere di nuvo qundo riapti il prograa  !!!
guarda sula guidamsdn con opencloseprint premen i tastoF1
!!!!!!!!!!!!!!!!!!!!! apro posito non si po modificare a run ri me una
costane !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
ciao prego Lokar
--
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt

N  ocomm ent!!!
:-))))))
--
Igor Damiani
ig...@igordamiani.it
http://www.igordamiani.it
ICQ : 11847262

 costane !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
A forza di andare con lo zoppo... :)

 guarda sula guidamsdn con opencloseprint premen i tastoF1
Un altro messaggio così e ti mando il conto dell'oculista.
Se ti cade un'altra volta la tastiera, non rimettere più a posto a caso i
tasti. :-)
Ciao
*Roby*

 tasti. :-)
Povera rana! [1]
*Ovviamente* scrivere in tal modo era *voluto*, prova a rileggere il
primo post del thread e comprenderai meglio questa scelta! ;)
Happy Coding =)
Lokar
[1] 
http://groups.google.it/groups
?
    hl=it&lr=&ie=UTF-8&selm=9itcac
    %246gk%241%
40stargate1.inet.it


 Povera rana! [1]
Opps. Però anche tu almeno una faccina potevi metterla; se non altro per
amore della rana. :-)
Ciao
*Roby*
Newsgroup: it.comp.lang.visual-basic
Titolo: Intercettare progresso del datareport.

Salve a tutti,
vorrei riuscire ad intercettare la progressione della stampa di un data 
report, per poter ad esempio cambiare un elemento della stampa in 
funzione della pagina raggiunta o stoppare l'elaborazione. Credevo di 
usare la proprieta' AsyncProgress ma non riesco a capire quando viene 
attivata.
Grazie e saluti.
-- 
Lemor...@Lycos.it

 attivata.
l'evento asyncProgress vuoi dire....
AsyncProgress:  viene generato ogni volta che una pagina viene inviata alla
stampante.
-------------------------CODICE PER TERMINARE STAMPA
REPORT-------------------
Private Sub DataReport1_ProcessingTimeout( ByVal Seconds As Long,  Cancel As
Boolean, _
               byVal JobType As MSDataReportLib.AsyncTypeConstants, ByVal
Cookie As Long)
  If Seconds < constTIMEOUT Then
    If MsgBox("La stampa ha superato il tempo massimo. Si desidera terminare
?", vbYesNo + vbExclamation) = vbYes Then
      Cancel = True
    End If
  End If
End Sub
----------------------------------------------------------------------------
-----------------------
questo qui sopra è un pezzo di codice (di Amedeo Fantini) preso da:
http://www.visual-basic.it/uploads/articoli/tecnici/afDataReport1.htm
dai una letta a tutto l'articolo e risolverai il problema...
Ciao!


, 
spam...@email.it
 diceva...

-- 
Lemor...@Lycos.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con ListView

 
Grazie dell'interessamento!
-- 
Simone Eliantonio
         kit
sim...@cclix1.polito.it

di memoria.
Ciao a tutti,
Anche io riscontro lo stesso fenomeno ma non penso che dipenda da
problemi alla scheda video e relativo driver o dalla memoria. Infatti
il problema mi si e' presentato con molte configurazioni diverse:
486 DX2 66MHz, 16Mb, CL5428
468 DX4 120MHz,  16Mb, CL5434
468 DX4 120MHz,  40Mb, SiS6202
Pentium 120MHz,  32Mb, SiS6202
Pentium 120MHz,  32Mb, Matrox Mistique 2Mb (tutte le versioni di
driver dalla 3.18 alla 3.41)
La versione di VB e' sempre stata la 4.00.2422 Professional in
Italiano (32bits), mentre quella del comctl32.ocx attualmente e' la
1.0.2908.
I problemi si presentano esclusivamente con il controllo listview
utilizzato in modalita' report. Ciao.
Massimiliano Gaudenzi
Newsgroup: it.comp.lang.visual-basic
Titolo: access e outlook

ciao mi chiamo Claudio e sto lavorando ad un database sotto Access di Office
avrei bisogno di una macro che mi permettesse di rimandare l utente da una
cella (o una serie dei celle) direttamente ad Outlook.
ovvero in questa colonna saranno sistemati degli e-mail clikkando i quali
l utente verra' rimandato al dialogo "compose mail" in outlook con tale
email gia' inserito
e' possibile?
grazie
------------------------------------------------------------------------------------------------------------
Hi my name is Claudio and i m working on a database ander Access (Office)
and i need a Macro to redirect the user from a cell (or a group of cells)
to Outlook.
I mean, in that column will be the e-mails and clicking on them the user
will be sent to the dialog "compose mail" in Outlook.
is it possible?
thank you
please answer me via mail at 
kom...@mail.cz

 grazie
si'.
guarda l'inizio del thread di oggi "un collegamento a internet".

Newsgroup: it.comp.lang.visual-basic
Titolo: [Frame] contenuto

come si fa a sapere cosa contiene un oggetto frame?????
Non è che sono pazzo... tutti i miei ultimi post si riferiscono sempre allo
stesso prob (a parte quelli sul recordset) e sto cercando di risolverlo in
vari modi... ma trovo sempre intopppi :-((((

vari modi... ma trovo sempre intopppi :-((((
non ho presente i tuoi precedenti post, ti ho fatto questa funzioncina al
volo, va abbondantemente migliorata & adattata
Public Function ContenutoFrame(frmForm As Form, strNomeFrame As String) As
String
    Dim Obj As Control
    For Each Obj In frmForm.Controls
        If 
Obj.Container.Name
 = strNomeFrame Then _
            ContenutoFrame = ContenutoFrame & Obj.Name & vbCrLf
    Next
End Function
prova a chiamarla
MsgBox ContenutoFrame(Me, Frame1)
magari č ciň che ti serve...
Ciao!
Faber

yeppa grazie. :-)
anche se stupidamente pensavo che un oggetto avvesse la proprietà contiene
... non quella contenuto
così è ridondante :-((((
vabbeh è VB.... uffa!!
cmq graze mille!!!!! :-)
--
Saluti da Barovia
Strahd von Zarovich

cmq graze mille!!!!! :-)
Prego!
ciao
Faber
Newsgroup: it.comp.lang.visual-basic
Titolo: VB5 - compilare includendo gli OCX

Ammettete per un attimo che la cosa possa avere un senso(1):
E' possibile compilare un progetto in VB5 includendo il codice di un OCX
in modo da poter distribuire il prodotto finito senza l'OCX?
(1) Mi sarebbe utile per un servizio life-critical (puo' suonare come una
bestemmia, con VB5 sotto Win95, ma tant'e'...) e devo evitare nel modo piu'
assoluto che l'utente possa pasticciare con l'OCX (cancellandolo o
sostituendolo con una versione precedente) o le chiavi del registro in cui
sono inserite le informazioni di licenza.
Grazie per l'aiuto.
Gianni

...

Si`.
Ciao. Daria.

 Ciao. Daria.
E' possibile includerli con vb5?
Come risorse forse? O come?
Saluti
-- 
Demis
[Internet: Chi cerca trova]

 Ciao. Daria.
Che fai, sfotti?
Mauro CB

Ciao. Daria.
Come si fa?
Ciao e grazie

Ma va ? E come si fa?
Ciao.
Federico Galli
FedE...@tin.it
Visual Basic and Delphi
http://www.geocities.com/colosseum/loge/2151

Certo che si può!!!
--
Visitate la "Di Stasio's Home Page"
http://space.tin.it/sport/mdistasi
__________________________
                 by D.S.A.
 
adi...@tin.it
http://space.tin.it/sport/mdistasi
__________________________
Microsoft Windows 98 Beta-Tester
¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼
                        Alfonso Di Stasio
                  Visual Basic Programmer
               --------------------------------------------
Sideralis Programs (Visual-Basic and Delphi)
               --------------------------------------------
http://www.geocities.com/colosseum/loge/2151
¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼¼

Certo che si può!!!
Come? Puoi essere più esplicito?
Ciao e grazie.

...


 Ciao e grazie.
Chiedo maggiore chiarezza pure io.
Resto comunque perplesso.
-- 
Demis Magoga
de...@mall.it
[Internet: Chi cerca trova]

Si, se tu aessi i sorgenti deglio ocx, li inserisci dentro  come righe
di programma, ma ne soso hai i sorgenti come fai?


 wrote:
Concordo in pieno, anche perchè la filosofia e la speranza ( fondata )
Microsoft é quella che, un giorno, i sistemi saranno "WinDipendenti,
così da permettere e consentire la distribuzione del solo eseguibile.
***************************************************
Genesio Conti - Calvizzano (NA) - Italy
E-Mail address : 
gco...@napoliNOSPAMMERS.peoples.it
Rimuovere NOSPAMMERS per la risposta
Remove "NOSPAMMERS"
***************************************************
Newsgroup: it.comp.lang.visual-basic
Titolo: Lanciare applicazioni con XP

Salve a tutti, sarebbero giorni di festa ma purtroppo c'è sempre un buon
motivo per arrabbiarsi.
Ho un'applicazione che in certe occasioni lancia dei programmi esterni ed è
anche in grado di richiuderli quando sia necessario.
Funziona perfettamente win Win98, WinME e Win 2000 poi scopro che sotto XP
non va!!
Cioè la cosa pazzesca è che (almeno nella mia prova) il programma lanciato
compare nella lista dei task attivi ma non in quella delle applicazioni
attive ed a video non si vede nulla!
C'è una spiegazione logica? ma sopratutto c'è una soluzione?
Altra curiosità, accedendo ad XP in modalità Guest, il programma non
funziona perchè deve scrivere delle cose su disco ma questo non è possibile
dato che l'HD è impostato in sola lettura (a parte la cartella Documenti)
Mi devo rassegnare o ci potrebbe essere una soluzione?
Grazie a tutti coloro che non se ne sono andati ai Caraibi e che mi vorranno
dare una mano.
Buon anno a tutti..anche a chi adesso se la sta spassando alla facciaccia
nostra!! :)
Michele

C'è una spiegazione logica? ma sopratutto c'è una soluzione?
Qualcosa di simile era gia' stato chiesto, ma non ricordo di aver letto
soluzioni vere  e proprie.
Guarda un po' se questo link ti puo' essere di aiuto e, in ogni caso,
un tuo feedback sara' utile a tutti.
Using Application Verifier to Troubleshoot Programs in Windows XP (Q286568)
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q286568
-- 
hth, hal

 Michele
A me succede una cosa simile che non ho risolto neppure con ShellExecute.
Quando avvio un' app. esterna, questa non viene avviata (non ho controllato,
perché non ho Win XP, se è però presente nei task attivi). Cmq l'app. non si
vede, o non viene avviata e questo succede sia con SHELL che con
SHELLEXECUTE.
Se vuoi provare a vedere se la stessa cosa succede con il tuo Xp e con il
mio programma (insomma...vediamo se il problema è lo stesso), puoi pure
prenderti i sorgenti del programma Loader 3.0 dal mio sito e fare un pò quel
che cavolo vuoi... :))
Fammi sapere....qui in NG sopratutto, così tutti possono dire la loro.
Ciao SIMO
p.s. Perdonate l'italiano pessimo, ma sono un pò assonnato. :))
--
__________________
www.sasim.net
* Server IRC : 
irc.azzurranet.org
 --> Canale: #it_lang_vb
* Sito Comune Ng: 
http://www.it-lang-vb.net
* Manifesto del Ng: 
http://www.it-lang-vb.net/docs/Manifesto.txt
* I vecchi messaggi su: 
http://groups.google.com/

SHELLEXECUTE.
Hai provato a chiamare GetLastError() per sapere se da' errore  e quale ?
Oppure hai provato a sostituirla con CreateProcess come aveva suggerito Faber ?
-- 
ciao, hal

 ha scritto nel messaggio
news:a0ptu4$maqol$1...@ID-56381.news.dfncis.de...


 successivamente con la TerminateThread e TerminateProcess.
Uhm, potresti postare il codice "esatto" che non ti funziona ?
-- 
ciao, hal
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.visual-basic
Titolo: Programmare ADO MS PRess

non trovo da nessuna parte questo libro.
qualcuno non lo usa più ed è disposto a venderlo?
Grazie Enrico
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

qualcuno non lo usa più ed è disposto a venderlo?
Prova un po' qui, scontano un 15%:
http://www.gorilla.it/gorilla/product.asp?sku=8883310675
-- 
hth, hal


Ciao Enrico,
forse ti riferisci al libro
"Programmare ADO" di David Sceppa
Mondadori Informatica
che però appartiene alla collana
Microsoft Programming Series
Ti consiglio di provare presso una libreria della
catena Feltrinelli, solitamente molto fornite.
Se non riesci a risolvere fammi sapere, ce n'è
una a 50 metri da dove lavoro.
Ciao
 Valter

se abiti a milano ho già provato nelle librerie feltrinelli di 
quella città. se non abiti a milano mi faresti un grande favore


Newsgroup: it.comp.lang.visual-basic
Titolo: [ADO.NET] Dove reperire guide base online

Come da oggetto, vorrei reperire guide base online su 
ADO.NET
.
MSDN spiega malissimo (avete notato che con .NET si è notevolmente
complicata l'MSDN?)
Ho girato su google ma immettendo "
ADO.NET
 guida online" (e similari) mi
escono solo siti che parlano di libri in vendita...
Essendo io al momento sprovvisto di tanti € per acquistare un buon libro, mi
accontenterei di una semplice guida per far funzionare "quel maledetto
programma" che sto facendo per mio padre.
Grazie a tutti.
bye
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


prego :-)
-- 
.A
UGIdotNET - User Group Italiano .NET
http://www.ugidotnet.org
Read my blog at: 
http://www.ugidotnet.org/4.blog

Newsgroup: it.comp.lang.visual-basic
Titolo: Text Files

Hi
I am writting a Visual Basic program which stores data in a text file. I
would like the end user to be able to backup this file and restores it, to
and from a floppy disk. Unfortunately sometimes the file exceeds 1.4 MB. So
basically, does anyone have any ideas?
Thanks in advance.
Regards,
        Louis Rose.
 
louis...@virgin.net


---
Vorrei vedere le piramidi di Cheope,
ma sono miope, ma sono miope.
---

 will be of 1.4MB.
Does anyone know how I 'd do this?
Regards.
            Louis Rose
 
louis...@virgin.net

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Come faccio una form transparente?

Tutto nel soggetto!
vi prego aiutatemi!
pica...@labnet.it

vi prego aiutatemi!
Guarda sul sito comune 
http://members.xoom.com/it_lang_vb
Ciao
*** E' in corso la CFV di it.binari.visual-basic
*** Leggetela su it.news.gruppi o it.news.annunci
*** Seguite le istruzioni per votare
--
Andrea :-{)
acm...@hotmail.com
================================================
Leggi 
http://beatles.cselt.it/news-it/FAQ.html
 e
http://beatles.cselt.it/news-it/gruppi-it.html
Potresti imparare qualcosa di piu' sui NG
================================================
Newsgroup: it.comp.lang.visual-basic
Titolo: Albero genealogico e mdb

Vorrei costruire un programma che disegni in automatico un albero
genealogico!...le informazioni sono archiviate in un mdb! da dove comincio!!
grazie per qualsiasi suggerimento!


Puoi usare una griglia gerarchca come al mshflexigrid... cerca data shape
nella guida! ;)

Newsgroup: it.comp.lang.visual-basic
Titolo: ComboBox e autocompletamento caratteri [hal1961]

una ComboBox?
Non ho letto cosa abbia scritto, ma
ti ha gia' risposto Mauri il 10 maggio alle 22:14.
--
ciao, hal
...interessa anche a mè, ma il 10/05 non trovo nulla di Mauri... (?)
--
;-) ..grrazzie
---Scomodo---


-- 
ciao, hal

 wrote in message
QO8G8.86099$US3.1...@twister1.libero.it...


 by KDobermann
---Scomodo---


grazie ^__^
---Scomodo---

Copiate per intero questa mia piccola funzione in un modulo.
[snip]
Non l'ho letto (mea culpa), ma l' ho memorizzato per segnalarlo
a chi ne avesse necessita'.
Grazie da parte di tutti :-)
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: Stampare su più stampanti

Salve,
altra cosa che vorrei fare è stampare su più stampanti...
posso fare un driver che mi faccia scegliere più destinatari ?
Cioè non posso installare più driver e usare ogni volta uno.... devo
fare tutto con un colpo solo...
Grazie anche quì per gli spunti...
Saluti
A.

 fare tutto con un colpo solo...
Tenderei ad escludere il "colpo solo", la Printer è, in un certo istante,
una sola.
Puoi chiedere all'inizio quali sono le stampanti e relative caratteristiche
(formato, orientamento, font, etc.) e mettere tutto il codice per la stampa
in una Sub che stampa sempre su Printer (o su oggetto omologo). Setti la
prima stampante, chiami la sub, setti la seconda stampante e chiami la sub,
etc.

Esatto Lupo...
solo che non voglio avere 100 driver.. le stampanti in questione sono
sempre lo stesso modello....
Ho visto nel registro che cambiano delle chiavi... e se cambio quelle
al volo e .....
Ma da Word quindi dovrei fare un pulsantino che richiama questo .exe
... ma come stampo il documento attivo se richiamo un programma
completamente esterno ?
ciao
e grazie per ora...


 sempre lo stesso modello....
Non capisco o, meglio, ho capito cosě: Hai 100 stampanti fisiche,
praticamente tutte identiche (quindi con lo stesso driver), ma, ovviamente
con nome ST1, ST2, ..., ST100.
Beh?! Assegni la Printer a ST1 e stampi, assegni la Printer a ST2 e stampi.
Spiegati meglio, dai.

Non capisco o, meglio, ho capito così: Hai 100 stampanti fisiche,


 come ti pare ?
Mi pare che non capisco più niente.
Quante stampanti fisiche hai? 100?
E vuoi creare un'unica stampante con il suo driver?
E vuoi stampare anche sulle altre 99?
Se è così, si potrà pure, ma io getto la spugna, non prima di aver detto "ma
chettefrega creare 100 stampanti ciascuna col proprio driver, è
un'operazione che si deve fare una volta sola (per ogni PC, certo)..."

 ha scritto

de pippis: secondo me ha ragione lupo.
se sono uguali, il driver lo installi una volta sola.
da codice devi solo ciclare l'output sulle 100 porte.
paracodice:
    for j = 1 to 100
        set lpt = "lpt" & cstr(j)
        spedisci su lpt
    next
a naso devi conoscere gli indirizzi delle 100 stampanti. poi li metti in una
matrice, una tabella, una cosa cosi'. poi cicli sugli item.
p.f. non ciclare piu' sui post di questo thread !
hth, j.lpt

> chettefrega creare 100 stampanti ciascuna col proprio driver, č

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto!!! Problemi con Vb5 e Windows 98.

Scusate, ma sono un neofita di Vb5. Da quando lo ho istallato la versione
professional su Windows 98, non riesco a lanciare le applicazioni che
utilizzano COMDLG32.OCX, come quella d'esempio denominata Biblio.vbp, in
quanto si bloccano e mi ritornano il seguente messaggio: "Vb Cannot load
control CommonDialog1; license not found". Qualcuno gentilmente mi aiuta?

...


Grazie per l'incredibile velocità della risposta. La COMDLG32.OCX  è marcata
come SP2, ma comunque non riesco a capire... Il visual basic è praticamente
inutilizzabile, e non so se dipende da Windows 98, o da qualche altro
problema... Se comunque qualcuno mi può inviare una libreria funzionante e
compatibile mi farebbe una enorme gentilezza..

Problema risolto: Vai all'url 
http://free.imd.it/giazack/
 e leggi nelle faq
di maggio:
1° metodo
Hai qualche problema con l'installazione dei Common Controls, quindi prova a
cercare sul CD un file con un nome tipo vbctrls.reg e cliccaci sopra, in
modo da cercare di aggiustare i dati dell'installazione nel registry.
2° metodo
scarica VBC.exe da
 
http://support.microsoft.com/download/support/mslfiles/Vbc.exe
serve proprio a risolvere questo bug, praticamente ricontrolla
l'installazione,leggi comunque la documentazione nel KB per VB,cerca per
VBC.exe.

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Ci riprovo: Da visual basic excel a VB6..... AIUTO !!!

Premetto che sono appena passato al VB6 ho solo una piccola esperienza di programmazione con visual basic per excel. 
Devo far andare nella combo una lista che ho creato in excel ora ho salvato il file in dbf altrimente mi dava un errore. 
Comunque il listato in excel e questo Private Sub UserForm_Activate()
'setta i fogli di lavoro
Set start = Worksheets("start").Range("A:A").CurrentRegion
Set lista = Worksheets("Lista").Range("A:A").CurrentRegion
x = 2
Dim k As String
Dim z As String
'determina la lunghezza della lista
Do While lista(x, 1) <> ""
x = x + 1
Loop
'copia il nome e i dati relativi nella casella di opzione
nomeaz.Clear
For Y = 1 To x
k = lista(Y, 1)
nomeaz.AddItem k
Next 
End Sub 
Secondo voi come posso convertirlo in VB6 io ci ho provato cosi' ma non funziona:
Private Sub Combo1_Change() 
'determina le lunghezza degli index e li associa a x
x = 1
Do While Data1.Recordset(x) <> ""
x = x + 1
Loop 
'copia il nome e i dati relativi nella casella di opzione combo
Combo1.Clear
For y = 1 To x
k = Data1.Recordset(y)
Combo1.AddItem k
Next 
End Sub 
Data1 corrisponde al mio file in dbf 
Grazie per la risposta !!!
-- 
Posted from 
gw2-maimeri.net-one.it
 [212.177.116.250] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Grazie per la risposta !!!
Forse sarebbe meglio che tu ci chiarisca anche cosa vuoi ottenere, oltre a
farci vedere il codice.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------
Newsgroup: it.comp.lang.visual-basic
Titolo: Collegamento Multiutenza

 
          Buongiorno a tutti!!!
Ho fatto un programma che si appoggio a un MDB e lavora a monoutenza, ora ho
la necessità di utilizzare una MULTIUTENZA, come posso fare? posso rimanere
con un MDB o devo passare a un SQL? GRAZIE!!!!!
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


A quanto ho potuto leggere dai vecchi post, e dalla mia (poca) esperienza, i
files Access sono accettabili fino a che hai un numero limitato di PC
collegati (direi non più di 4/5 PC che accedono contemporaneamente). Se le
esigenze sono superiori, è meglio andare su database più orientati alla
rete.
Come suggerimento personale, utilizza i campi chiave con indice univoco ed
intercetta eventuali errori di chiave duplicata.
Stai attento anche in fase di modifica se il record che si va a scrivere è
stato già modificato o eliminato da un'altro utente (caso tipico dell'utente
che apre la finestra su un record e poi va a prendersi il caffè. Quando
torna clicca sul tasto Salva).
Ciao



         sai che tipo di apertura devo usare se dynamic dynaset o che altro? sono in
crisi!!!


Newsgroup: it.comp.lang.visual-basic
Titolo: Outlook Express

Salve a tutti,
Ho un piccolo problema, è qundi mi rivolgo a voi:
ho bisogno di recuperare gli allegati delle e-mail scaricate con OE , o in
alternativa di un codice che possa scaricare e-mail con allegati dal POP,
per poi renderli disponibili ad altre applicazioni.
Vi ringrazio e ciao a tutti

 per poi renderli disponibili ad altre applicazioni.
Sito Comune, link nella firma, cerca POP3.
Bye, G.
--
Le risposte alle tue domande sono sul Sito Comune
di questo NewsGroup: 
http://it-lang-vb.net/
... e nell'help in linea !

Ho bisogno di sapere se esiste una segnalazione visiva quando arriva un
messaggio nella cartella di posta in arrivo.
Inoltre, vorrei archiviare la posta eliminata in una cartella specifica, è
possibile?
Grazie 1000
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Newsgroup: it.comp.lang.visual-basic
Titolo: oggetto printer

Scusate, una domanda sciocca, ma come e' possibile stampare immediatamente
una stringa sulla stampante senza effettuare un salto pagina o attendere il
riempimento dello spool?. Devo fare una specie di log che ad ogni operazione
effettuata sul PC genera immediatamente una riga su una stampante ad aghi;
il salto pagina lo faccio eventualemnte io al raggiungimento del numero di
righe previsto.
Grazie e Saluti
Paolo F.

Printer.Print "prova 1 2 3 prova"
Printer.Enddoc
bye

...


Paolo F.
Evita di scrivere l'istruzione printer.enddoc e stampa tutto alla fine
dell'operazione. Questa istruzione è quella che da il comando di
stampa alla stampante, finisci il ciclo della routine e poi chiudi
stampando tutto.
Attila

dell'operazione. Questa istruzione č quella che da il comando di

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Bug su campo recordset?

Non capisco:
RECSTE!CAMPO è un campo (dbText,100) di un recordset regolarmente aperto
(con DAO), caricato e funzionante e posto in Edit:
RECSET!CAMPO="123"
Call Mia_Funzione(RECSET!CAMPO)
Debug.Print RECSET!CAMPO
Stop
Function Mia_Funzione(stringa)
    stringa="ABC"
End Function
Perchè RECSET!CAMPO resta "123"?
Ne sto uscendo pazzo. Le condizioni sono _esattamente_ quelle
descritte/scritte.
Ho provato ByVal, ho provato ByRef. A me sembra un Bug.
Ovviamente se faccio:
RECSET!CAMPO="123"
pippo=RECSET!CAMPO
Call Mia_Funzione(pippo)
Debug.Print pippo
Stop
pippo vale "ABC"
Grazie a tutti.
PS: Ho già risolto facendo:
RECSET!CAMPO="123"
RECSET!CAMPO=Mia_Funzione(RECSET!CAMPO)
Debug.Print RECSET!CAMPO
Stop
Function Mia_Funzione(stringa)
    stringa="ABC"
    Mia_Funzione=stringa
End Function
... ma vorrei capire.

 ... ma vorrei capire.
giusto.
aggiungo:
_mai_ usare le proprietà predefinite:
non hai un reale controllo sull'oggetto, come hai potuto constatare!
ciao
ugo

 Ho provato ByVal, ho provato ByRef. A me sembra un Bug.
Non č un bug .. o per lo meno se lo fosse č molto noto ...
se al posto di Rs!Nomecampo tu avessi
Text1.Value
avresti lo stesso comportamento
il perchč lo trovi nei vecchi post (
http://groups.google.com
)
potresti passare il tutto il recordset (si intende per valore) alla function
"Mia_Funzione" o megli ancora
RecSet!Campo = Mia_Funzione(RecSet!Campo)
Saluti

Grazie a entrambi. Non voglio ... scusarmi (è la prima volta che mi capita
in 2/300 mila righe di codice), ma ora sono contento. Grazie davvero!


btw, dammi retta:
specifica il tipo delle variabili, ovunque.
ciao
ugo

 avresti lo stesso comportamento
Certo:
così com'è la function accetta una variant tra i parametri.
Tenta di assegnargli un valore ma non sapendo
in realtà "cos'è questa cosa che mi è stata passata"
non può accedere alla proprietà predefinita.
Al contempo non va in errore, proprio perchè accetta
una variant...
Tuttavia _non_ è un bug, è un errore di programmazione.
(scusami wolf   :-)  )
ciao
ugo

 ha scritto nel messaggio
news:adiern$11h01u$1...@ID-96367.news.dfncis.de...

Ugo carissimo (sinceramente), ho capito e mi sono cosparso il capo di
cenere, anche per il fatto che la cosa non mi è affatto sconosciuta e avrei
potuto arrivarci da solo con un pelo di ragionamento in più (ma sono
presissimo!).
Ma, ... non infierire, dai. ;-))) Arfff.

 Ma, ... non infierire, dai. ;-))) Arfff.
Non volevo infierire, solo sfruttare l'occasione
per evidenziare informazioni (credo) utili a un ipotetico
newby che ci legge.   :-)
Di questi tempi sul ng, se scrivi a uno che sta sbagliando,
rischi fulmini via adsl...     ;-PPP
...e tu sapevo che avresti capito.  :-)
ciao
ugo

 ...e tu sapevo che avresti capito.  :-)
Certo, scherzavo ovviamente. Grazie ancora.