mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Recuperare il puntatore di un ParamArray

Ciao,
qualcuno sa come è costituito in memoria un ParamArray?
Nel senso: lo posso considerare come un SAFEARRAY di Variant oppure è
qualcosa di diverso?
La domanda nasce perchè avrei la necessità di recuperarne l'indirizzo
per inviarlo come parametro tramite un PostMessage e, una volta a
destinazione, riconvertirlo in una matrice di variant.
L'alternativa 'semplice' è utilizzare un'interfaccia che il form che
deve ricevere il messaggio deve implementare....ma così la cosa non è +
asincrona, mentre con il PostMessage lo è!
Avete suggerimenti?
Tnx, Daniele.
-- 
Free As In Freedom
www.fsf.org

 destinazione, riconvertirlo in una matrice di variant.
Però non esiste un modo per recuperarne direttamente l'indirizzo, poiché VB non
consente di utilizzare il parametro paramarray se non indicizzato o nelle
funzioni ubound e lbound.
In parole povere VarPtrArray(Params()) dà errore di Type Mismatch.
Private Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (ptr() As
Any) As Long
Conviene quindi copiare il paramarray in un variant array normale e passare
l'indirizzo di quest'ultimo.
Inoltre ricostruire l'array di Variant dato l'indirizzo non è banale, bisogna
utilizzare API e strutture SAFEARRAY.
Vedi qui:
http://www.vbadvance.com/arrays.htm
Bye
Raf

 
http://www.vbadvance.com/arrays.htm
Tnx!
L'avevo letto tempo fa questo articolo!!
Ciao!


Newsgroup: it.comp.lang.visual-basic
Titolo: Ignoranza assoluta

 
Basta che tu durante la procedura di crazione dell'installazione inserisca
il font nella lista dei file 
Valerio Tesei


Non puoi "includere un font nell'eseguibile (EXE)", ma puoi distribuire il
font (file TTF) insieme al tuo programma.
Se hai fatto il set di installazione con il setup wizard, basta che,
nell'apposito passo del wizard, inserisci il file del font.
N.B. assicurati che il font non sia copyrighted, in tal caso non potresti
"legalmente" distribuirlo.
--
Roal Zanazzi
z...@iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Compilatore access

Avrei bisogno di un compilatore access che mi consenta di distribuire i
miei MDB completi di maschere e di report senza distribuire l'Access
(anche perché è illegale!)
So che esistono tali compilatori, e anche se conoscete solo il nome di
qualcuno, indicatemelo lo stesso (poi me lo cerco io sul web!).
N.B.: Uso l'Access versione 95 e 97 (fà lo stesso)

...

Newsgroup: it.comp.lang.visual-basic
Titolo: campo contatore.......

Salve a tutti scusate la mia forse banalissima domanda ,io usavo access 2000
per il mio db ma provando Vb Net ne sono rimasto affascinato premettendo che
tutto quello che faccio è solo per mi hobby niente per scopoo di lucro.
Comunque ho molte domande ma quella che prima mi fà impazziere sono
due.........in access quando creavi una maschere con fonte dati una tabella
il campo contatore quando cominciavi a digitare un nuovo record si posiziona
in automatico al N° del record corrente. ma con Vb non và...è normale oppure
si deve fare qualcosa.?!?
Seconda domanda  quando si crea un'interfaccia in Vb con origini dati da un
db di access2000. quando si crea un pacchetto di installazione il db viene
collegato nella cartella dove risiede il programma creato. ma se io invece
voglio fare in modo che il db deve stare solo in una macchina dove possono
accedere tutti è aplicare in ogni macchina l'interfaccia creata in vb....che
succederebbe.?!?
Spero di essere stato abbastanza chiaro.....
Grazie a tutti.
Gianni_B

 succederebbe.?!?
Il path dove risiede il db lo puoi dare utilizzando il file app.config,
costruzione in xml.
Detto file si posiziona nella macchina dell'utilizzatore e modificabile con
qualsiasi editor di testo
Ave
giuseppeD

 succederebbe.?!?
Questo perchè probabilmente usi controlli "linkati" a design time, altra
pratica deprecabile proprio per il motivo che hai detto.
Presumibilmente il DB starà in una sottocartella di App.Path.
Usa questa classe per costruire a runtime il percorso del tuo DB.
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema posizionamento stampa...

Salve,
stampo un form con il codice
frmMIO.PrintForm
solo che la stampa mi viene nell'angolo in alto a sx della pagina...
vorrei che fosse centrato orizzontalmente nella pagina...
ho visto che è possibile recuperare la larghezza della pagina stampabile con
w1 = Printer.Width
e la larghezza del form con
w2 = frmMIO.Width
in teoria dovrei inizare a stampare da
x = w1 / 2 - w2 / 2
A quale prorpietà della Printer devo dare questo valore?
Ci sono altri modi?
Grazie a tutti...
Croupier

 A quale prorpietà della Printer devo dare questo valore?
Vedi CurrentX e CurrentY

 Vedi CurrentX e CurrentY
Ho provato ma senza successo...
Ho impostato
Printer.currentX = x
ma stampa sempre vicino al lato SX...
Croupier

 ma stampa sempre vicino al lato SX...
quanto vale x in relazione allo ScaleMode della Printer?
Fai una cosa:
Printer.CurrentX=Printer.ScaleWidth/2
Printer.CurrentY=Printer.ScaleHeight/2
Printer.Print "Pippo"
Se va (e ti garantisco che va), ovvero se stampa Pippo a partire dal centro
del fogio, dovrai solo ragionare sulle varie coordinate. Vedi anche i vari
Scale...

>>>>> frmMIO.PrintForm
PrintForm, AFAIR, stampa dove gli pare...
Bye, G.

 PrintForm, AFAIR, stampa dove gli pare...
Già, e a volte va pure in errore
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] passare strutture (type..) a metodi pubblci di una classe

Salve a tutti,
vorrei poter assegnare ad una classe come proprietà pubblica un'altra
classe...
in vb5 non ci riesco a passare strutture definite da me (type..) a metodi
pubblci delle classi .. non c'è modo di poter aggirare questa limitazione?
grazie
Davide

 ha scritto nel messaggio
news:zMks7.45248$P04.4...@news2.tin.it...

In VB5 no, in VB6 si
Occhio pero' che hai detto due cose diverse:
"...assegnare ad una classe come proprietà pubblica un'altra *classe*..."
non coinvolge le strutture ma, appunto, solo i moduli di classe; questo puo'
essere fatto tranquillamente definendo due moduli di classe e dichiarando
una property del tipo adeguato; basta solo stare attenti al fatto che se la
classe principale e' pubblica lo deve essere anche la classe figlia.
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett Brown

> Occhio pero' che hai detto due cose diverse:
si scus mi sono incartato... con i termini...
comunque in vb6 posso passare una matrice (anche multidimensione)  ad un
metodo di una classe?
tipo
dim matrice#(3,3,3)
pippo.input matrice
dove pippo è una classe con un metodo input:
public sub input (dati# ())
ho capito bene?
grazie

 ha scritto nel messaggio
news:byms7.45843$P04.4...@news2.tin.it...

Esatto (ma stiamo ancora parlando della stessa cosa di prima?!)
Questo se non ricordo male lo puoi fare anche con VB5


 Questo se non ricordo male lo puoi fare anche con VB5
ok lo posso farecon i tipi "nativi"(si dice coisì?! boh) $ % & ! #...
mas e voglio passsare una struttura come faccio?
esempio:
type Struct_Attacco
    X as double
    Y as double
    Z as double
    A as string
end type
Public Sub pippo(dati() As Struct_Attacco)
in vb5 non funziona...in vb6 si?
grazie
Davide


No.
Puoi farlo con gli array perche' sotto c'e' un SAFEARRAY descriptor che
definisce la forma dell'array; non esiste un analogo descrittore per le
strutture, percui o passi una classe o passi un array.
Poi ovviamente puoi passare una struttura traslata in array e ritraslarla
all'arrivo con una doppia copymemory, ma 'ste cose e' meglio farle con
moooolta cautela :P
Ciaotutti,
*

 moooolta cautela :P
Mi permetto di sottolineare 3/4 (cento) volte il "moooolta".
L'impresa è quasi (in realtà si può fare ma le sottolineature aumentano in
modo esponenziale) impossibile se la struttura contiene a sua volta array
dinamici/stringhe, a causa del modo di allocazione/deallocazione della
memoria automatico di VB quando si va fuori scope.
Se invecie le strutture sono al lunghezza fissa l'operazione è pressochè
banale.
Ciao


No, il friend non e' pubblico, e' privato con scope al progetto.
Non viene esposto come metodo di automazione e quindi puo' ricevere un tipo
privato definito nel progetto.
Ciaotutti,
*

 privato definito nel progetto.
Esattamente quello che ho detto io :P
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: funzione

ciao a tutti.
volevo sapere in visual quale è la funzione che restituisce una stringa
partendo solo da un certo 
punto.ad
 esempio ho:
sStr="iomangiolamela"
e voglio mi sia restituito "mangiolamela",quindi come start ho 2.
grazie
Beba

 wrote in message
news:3UX08.1103$WS2....@news1.tin.it...

La funzione è mid(stringa,start,[n° caratteri])
es.
sStr="iomangiolamela"
Mid(sStr,2) --> "mangiolamela"
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

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

 ha scritto nel messaggio
news:3UX08.1103$WS2....@news1.tin.it...

Dall'help in linea di VB:
Mid Function
Returns a Variant (String) containing a specified number of characters from
a string.
Syntax
Mid(string, start[, length])
The Mid function syntax has these named arguments:
PartDescription
stringRequired. String expression from which characters are returned. If
string contains Null, Null is returned.
startRequired; Long. Character position in string at which the part to be
taken begins. If start is greater than the number of characters in string,
Mid returns a zero-length string ("").
lengthOptional; Variant (Long). Number of characters to return. If omitted
or if there are fewer than length characters in the text (including the
character at start), all characters from the start position to the end of
the string are returned.
Remarks
To determine the number of characters in string, use the Len function.
Note   Use the MidB function with byte data contained in a string, as in
double-byte character set languages. Instead of specifying the number of
characters, the arguments specify numbers of bytes. For sample code that
uses MidB, see the second example in the example topic.
Send feedback to MSDN.Look here for MSDN Online resources.
Newsgroup: it.comp.lang.visual-basic
Titolo: Determinare se è stato passato un parametro?

Salve,
Ho questa sub :
Private Function IDBUser_FindUser(Optional UserName As String, Optional Pwd
As String) As Boolean
End Function
Come faccio a determinare se UserName e/o Pwd sono stati passati?
Grazie in anticipo,
Andrea

 Come faccio a determinare se UserName e/o Pwd sono stati passati?
se fossero dichiarate come variant potresti usare l'istruzione
IsMissing(UserName) (e invece magari la sintassi giusta è
UserName is Missing, verifica tu.....)
lasciandole come string potresti assegnare un valore "assurdo" come default,
e testarlo, una cosa del tipo:
Private Function IDBUser_FindUser(Optional UserName As String =
"MaCosaCavoloStaiDicendo", Optional Pwd
As String = "MaValloADireATuaSorella") As Boolean
if UserName = "MaCosaCavoloStaiDicendo" then eccetera eccetera
end sub
Salutoni
Sergio


oppure per default usa un valore non consentito
Private Function IDBUser_FindUser(Optional UserName As String =
"$", Optional Pwd As String = "$") As Boolean
if UserName = "$" then eccetera eccetera
..............
end sub
che avrai precedentemente testato al momento dell'immissione dello username.

 Come faccio a determinare se UserName e/o Pwd sono stati passati?
Io toglierei l'optional e costringerei il passaggio dei valori con un byval.
Ciao
--
using System.Gtk.Forms = "
http://www.neodatatype.net/windowsforms/sgf.aspx
"
mathParser = "
http://www.neodatatype.net
"
sitoComune = "
http://www.it-lang-vb.net
"
Newsgroup: it.comp.lang.visual-basic
Titolo: Listbox e #

Ho una listbox con vari item.
Come posso trasformare item di una listbox in questo formato:
item1#item2#item...
Per poi in futuro ritornare al formato originale tramite list1.additem ....
Grazie in anticipo

Per poi in futuro ritornare al formato originale tramite list1.additem ....
vedi sopra
ciao, hal

 spiegati meglio  ...
hal, te lo deve spiegare per filo e per segno ?
sara' una mistura sua, 1/4 olandese, 1/4 marocchino, 3/4 afgano :)


 Per poi in futuro ritornare al formato originale tramite list1.additem
....
vediamo se riesco ad indovinare cosa intendevi:
Dim i As Integer
Dim strTutti As String
For i = 0 To List1.Count - 1
    strTutti = strTutti & List1.List(i)
    If i <> List1.Count Then strTutti = strTutti & "#"
Next
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dim arrTutti() As String
arrTutti = Split(strTutti, "#")
List1.Clear
For i = LBound(arrTutti) To Ubound(arrTutti)
    List1.AddItem arrTutti(i)
Next
Faber
P.S.: se c'ho azzeccato dimmelo che corro a giocare al lotto  :)

 ha scritto nel messaggio
news:9drmlc$af$1...@lacerta.tiscalinet.it...


 ha scritto

azz... me ne sono arrivati solo 3/7

Newsgroup: it.comp.lang.visual-basic
Titolo: OCX per codici a barre ...

Per favore avete informazioni a riguardo di OCX per bar-code ??
Se si ne avremmo veramente bisogno ... potete inviare una mail a:
jg...@origin.it
 oppure nel news, grazie infinite.
Bragato Jgor

sul sito comune
http://members.xoom.com/it_lang_vb/
c'é tutto quello che cerchi...
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)


C'e' qualcosina sul SIto Comune, nulla di esaustivo comunque.
http://members.xoom.com/it_lang_vb
Ciao
By -MES-   Maronese Ettore
http://ilmes.freeweb.org
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://members.xoom.com/it_lang_vb

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

Salve a tutti ... non riesco a far funzionare questa queri, dov'e che
sbaglio??
La quesy va a buon fine am non estrae nulla....
Set MyTable = MyDb.OpenRecordset("select * from NomeTbl  where Data = " &
sData)
Grazie a Tutti Francesco

sData)
in che formato e' sData? in che formato e' Data?
molto prob e' un problema di formato.
guarda l'help, ma se Data e' un campo definito come campo "data" (scusa il
gioco di parole), mi pare che il formato DEBBA essere MM/DD/YYYY,
indipendentemente dalle impostazioni internazionali. Mi pare...
ciao

...


Grazie Francesco
Non sono un esperto di Access, ma se non sbaglio i campi data devono essere
tra cancelletti cosě: #10/12/1999#
Ciao.

 Non sono un esperto di Access, ma se non sbaglio i campi data devono


 Grazie a Tutti Francesco

Puoi provare anche cosě:
Set MyTable = MyDb.OpenRecordset("select * from NomeTbl  where Data =
cdate(' & sData & ');")
Gian Luca
gllo...@tin.it
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Errore durante l'installazione

Ciao,
quando creo il pacchetto di installazione di un programma da me scritto non
mi da nessun errore, però quando poi faccio il doppio click sul setup per
installare il programma sul PC di un amico ecco che errore mi da:
*** ERROR: The file 'C:\WINDOWS\TEMP\msftqws.pdw\$(DLLSelfRegisterEx)' could
not be registered because it was not found.
Il bello è che ci fa anche sul mio, dove ho installato VB6.
Come posso fare?
Grazie, Mirco.



Poco tempo fa ho incontrato lo stesso problema, risolto consultanto:
www.deja.com
dando come stringa di ricerca msftqws.pdw.
teddy...@hotmail.com
ICQ 7044062
Como - Italy
Newsgroup: it.comp.lang.visual-basic
Titolo: Scelta della directory

Ciao a tutti,
    è possibile, attraverso il commondialog, far scegliere delle directory,
invece che dei file?
Se si come posso fare, perchè ho guardato sull'msdn ma non ho trovato
nulla a proposito?
Se no, devo usare un altro controllo?(tralasciando il DirListBox).
Grazie,
    Matteo.

 ha scritto nel messaggio
news:9fni3s$560gn$1...@ID-86678.news.dfncis.de...


 wrote in message
news:9fnpjl$imc$1...@pegasus.tiscalinet.it...


 wrote in message
news:9fni3s$560gn$1...@ID-86678.news.dfncis.de...

SHBrowseForFolder()
Ciaotutti,
Asterix

Newsgroup: it.comp.lang.visual-basic
Titolo: ByVal arguments and Windows API

Hi,
I'm not having a problem making something work but understanding how
it works.
I have called the windows API function
Declare Function GetComputerName Lib "kernel32" Alias
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
What I don't understand is how when I pass a String ByVal the function
then fills this string with the name of my computer. If this had been
a ByRef call then I could understand it, but not ByVal.
Does anyone have the time to explain this for me.
Thanks
Tim

 wrote in message
698beced.01071...@posting.google.com...

This is related to how the String type is internally defined in VB; since
the external function GetComputerName is a not a VB but a C++ procedure,
using ByRef in this case would be, roughly speaking, like passing a "pointer
to a pointer" instead of a "pointer to string" as required by the function.
Regards
--
Luca Dormio
luca....@tin.it

 Does anyone have the time to explain this for me.
VB has a special management for API calls: a ByRef String is, in C terms, a
WCHAR **, while a  ByVal String is a CHAR *.
When you call an API function, VB converts the internal OLE string (**only**
for the String data type) into an ANSI string and passes the pointer to this
string to the called function.
When the function returns, VB reconverts the pointed buffer into an OLE
string, to get any change made by the function.
That is, you can not really pass ByVal a string to a function, unless you
copy your string to a temporary one and then pass it to the API.
HTH,
*

 writes:
T> Declare Function GetComputerName Lib "kernel32" Alias
T> "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
T> What I don't understand is how when I pass a String ByVal the function
T> then fills this string with the name of my computer. If this had been
T> a ByRef call then I could understand it, but not ByVal.
I think  that with a ByRef  qualifier the API receives  the pointer to
the  part of  the  VB string  that  holds the  pointer  to the  string
characters in the heap.
--
Gian Uberto| main(){printf(&unix["\021%six\012\0"],(unix)["have"]+"fun"-0x60);}
Lauri      |                        David Korn, 1987 ioccc best one liner 
(aka saint)|-------------------------------------------------------------------
em@ail: 
sa...@eng.it
 ( vedere X-nospam nello header - see X-nospam in header )
Newsgroup: it.comp.lang.visual-basic
Titolo: associazione icone ai programmi

Salve,
qualcuno mi saprebbe dire come associare un'icona (attualmente in formato
JPG) a un programma VB.
Oltre al problema dell'associazione c'e' anche il problema di convertire
il file JPG in formato da icona vero ?
Grazie e buon lavoro.
GS
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 GS
Devi associare l'icona nelle proprietà (campo ICON) del FORM che apre
il programma,
poi vai nelle proprietà del progetto
    nella cartella "Generale" associ il form iniziale (nel campo
Oggetto di avvio)
    nella cartella "Crea" c'è il campo icona agganciata al form che
hai specificato
Io uso icone con formato .ICO ma dovrebbe funzionare anche con .JPG
......prova

 ha scritto nel messaggio 
news:1161955899.0...@e3g2000cwe.googlegroups.com...




hello
se cerchi in reteci sono dei programmi free che ti permettono di costriuti 
delle icone on formato ico
io ne uso uno  ottimo che si chiama icone facili e lo trovi sul sito 
www.vbscuola.it
 alla voce risorse per programmmatori
leonello

Grazie delle risposte.


Newsgroup: it.comp.lang.visual-basic
Titolo: catturare l'output di una textbox

come si può fare a catturare l'output di una textbox di un programma in
esecuzione di cui non si hanno i sorgenti utilizzando l'handle della textbox
?


riposto una mia mail di un po' di tempo fa (sempre su questo NG), basta
chiamare GetText con l'hWnd della TextBox di cui si vuole conoscere il
contenuto
Ciao
Faber
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As
Any) As Long
Private Const WM_GETTEXT = &HD
Public Function GetText(hWnd As Long) As String
    Dim m_Buffer As String * 10000
    If SendMessage(hWnd, WM_GETTEXT, Len(m_Buffer), ByVal m_Buffer) Then _
        GetText = TrimNull(m_Buffer)
End Function
Private Function TrimNull(ByVal StrIn As String) As String
   Dim nul As Long
   nul = InStr(StrIn, vbNullChar)
   Select Case nul
      Case Is > 1
         TrimNull = Left$(StrIn, nul - 1)
      Case 1
         TrimNull = ""
      Case 0
         TrimNull = Trim$(StrIn)
   End Select
End Function

non bastano i grazie per la gentilezza :-))))
Ciao.
Newsgroup: it.comp.lang.visual-basic
Titolo: [forse OT] VBScript client-side & ADO

Salve a tutti!
Non so se sono OT, ma non essendoci un NG per VBScript
penso che questo sia il posto più adatto!
Ho la necessità di creare e manipolare un DB Access
in un CDROM per gestire delle informazioni
relative a delle immagini memorizzate in esso.
Devo creare una serie di pagine HTML
che renda navigabile e presentabile questo insieme
di immagini diagnostiche creando anche una pagina di ricerca
che mi crei dinamicamente una pagina con le immagini cercate dall'utente.
Per fare questo uso HTML + VBScript che
si appoggia ad ADO per la manipolazioni di DB.
Vorrei rendere navigabile tale CDROM su Windows 9x, NT, 2000.
La mia domanda è:
l'uso degli oggetti ADO è fattibile avendo installato solo
il sistema operativo e IE 5.0 o superiore
oppure c'è bisogno di qualcos'altro
e se serve altro è possibile metterlo nel CDROM
e caso mai installarlo nel computer dell'utente?
Un grazie a chi mi da una mano!

 e caso mai installarlo nel computer dell'utente?
hai bisogno di installare ADO, tramite il pacchetto MDAC (Microsoft Data
Access Components); puoi scaricare l'installazione (un po' + di 5 Mb) da
http://www.microsoft.com/data
. l'ultima versione è la 2.6
Ciao
Faber

 wrote in message
news:9b6lef$82v8o$1...@ID-66268.news.dfncis.de...


Scusa forse per l'ovvietà.
Purtroppo tanto ovvio non e' :(
Differenti versioni di ADO possono provocare disagi, ma con lo script
usi il late binding, quindi in condizioni normali d' uso potresti stare
relativamente tranquillo.
Come linguaggio di script, imho, ti suggerirei di utilizzare javascript
piuttosto che vbscript.
La stessa m$ non usa vbscript, ma javascript sui suoi html.
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: Eseguire programma da riga di comando

Salve a tutti
Sono alle prime armi con VB e vorrei realizzare un'interfaccia grafica 
per un programma da riga di comando che già ho scritto in C.
Il programma su riga di comando accetta una serie di parametri per il 
suo funzionamento e poi restituisce alcune righe di risposta.
Quello che intendo fare è di poter selezionare ed impostare i vari 
parametri tramite un programmino scritto in VB che poi lancia 
l'esecuzione del programma su riga di comando con i relativi parametri.
Il programma in VB poi dovrebbe restare in attesa di tutte le linee di 
output emesse dal programma principale stampandole a video.
Qualcuno sa indicarmi qualche esempio simile da poter studiare o quali 
funzioni poter usare?
Grazie mille in anticipo
Bennny
-- 
--------------------------------------------------------------
R: Perché inverte l'ordine in cui le persone normalmente leggono un testo.
D: Perché il top-posting è una cosa così cattiva?
R: Il top-posting.
D: Qual è la cosa più fastidiosa in Usenet e nell'e-mail?

funzioni poter usare?
Foese ti basta la shell32
http://programmazione.html.it/visualbasic/faq/83.htm
http://www.maurorossi.net/pagine/tips/tips015.htm
http://www.biapps.it/vbprogrammer/tips/Tips.Asp?Cat=Sistema&RPage=1
ciao
  Stefano

 Bennny
Qui gli obiettivi da centrare sono tre.
Il primo è facile anche per chi è alle prime armi ed è l'avvio di un programma
esterno da VB. La funzione Shell serve a questo scopo.
Però qui entra un problema: la Shell di VB6 è asincrona, ossia non attende il
termine del processo avviato.
Per superare questo problema si deve ricorrere alle API di Windows. Qui trovi un
esempio di alcune tecniche:
http://vbnet.mvps.org/index.html?code/faq/getexitcprocess.htm
Infine, il programma VB non solo deve aspettare la terminazione del programma
"console", ma deve anche catturarne l'output per mostrarlo a video.
In questo caso il problema è ancora più arduo, in quanto VB6 non offre nessuno
strumento nativo per l'interfacciamento con la console.
Anche in questo caso la strada è affidarsi alle API di Windows, come spiegato in
questo articolo, che dovrebbe essere esauriente per il tuo scopo:
http://www.vb-helper.com/howto_capture_console_stdout.html
Bye
Raf

Grazie mille ad entrambi.
Per il momento ho risolto con l'esempio trovato su : 
http://www.maurorossi.net/pagine/tips/tips015.htm
In questo modo si apre una finestra di shell ed il programma con il suo 
output vengono visualizzati li stesso come se lo si fosse avviato da 
riga di comando con la sola utilità di non dover inserire tutti i 
parametri a mano.
La soluzione al momento mi soddisfa ma studierò gli altri link alla 
ricerca di qualcosa di più elegante.
Grazie

Newsgroup: it.comp.lang.visual-basic
Titolo: oprazione con date - giorni lavorativi

a partire da una data devo aggiungere 4 giorni LAVORATIVI (escludendo sabati
e domeniche) come fo ?
Grazie mille.
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 e domeniche) come fo ?
Devi crearti un calendario (Tabella) dove imputare le feste tipo 1 maggio
natale s. stefano: per Pasqua-Pasquetta c'č un apposita funzione per farlo
(la trovi sul sito comune). Naturalmente in questo calendario dovrai
inserire sabati e domeniche ed eventuali ferie.
A questo punto crei una funzione che trovi il primo giorno lavorativo
utile utilizzando il calendario di cui sopra.
Tieni presente che potresti avere dei calendari personalizzati per reparto.
Ciao Marco
-- 
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: ADOR: ci sono esempi?

Qualcuno mi può fornire qualche esempio di utilizzo di ADOR? Penso mi
tornerebbe moooolto utile in quello che sto realizzando. Grazie!

 tornerebbe moooolto utile in quello che sto realizzando. Grazie!
http://www.google.it/search?sourceid=navclient&hl=it&querytime=YYuE&q=ador+t
utorials

Newsgroup: it.comp.lang.visual-basic
Titolo: Primi programmi con ado

Salve a tutti ho appena iniziato a programmare con visual basic e ho qualche
problema con ADO.
Ho costruito una tabella con Microsoft Access, ma non so bene quale siano le
istruzioni per effettare la connessione ado...Se qualcuno mi puo' aiutare
facendomi degli esempi vi sarei grato.
Grazie Anticipatamente
Yuri

 ha scritto nel messaggio
news:9631pt$du3$1...@suite03.caspur.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Color Dialog

Am I being silly here?
I am using the color dialog to generate hex color codes for a web app.
In vb, FFFF00  is cyan, HTML it generates yellow
What is happening and how to I cure it for all colors.
Cheers, Nick.

 ha scritto nel messaggio
news:3997bd97$1...@news.jakinternet.co.uk...

Newsgroup: it.comp.lang.visual-basic
Titolo: Ctrl Apertura Word ...

Ho fatto un programma in A97 che apre automaticamente i file di Word, ma
utilizzo questa funzione che ogni volta mi apre una scissione nuova di Word:
vEsegui = "C:\Programmi\Microsoft Office\Office\winword.exe" & " " &
vNameFile
vStatus = Shell(vEsegui, 3)
Vorrei capire se word è già aperto, quindi aprire il documento sulla
scissione già aperta oppure aprire Word nel caso è chiuso.
Questa funziona:
''''''Controllo se Word è già aperto, altrimenti lo apro
Dim MyWord As Object, word As Object
 On Error Resume Next
 Set MyWord = GetObject(, "Word.Application")
 If err Then
     err.Clear
     Set MyWord = CreateObject("Word.Application")
     If err Then
         MsgBox err.Description
         Exit Function
     End If
 End If
On Error GoTo 0
Set word = MyWord.Application
word.Application.Visible = True
Ora devo riuscire ad aprire il file, come faccio ?
--
Ciao Marco S.
www.marcosanti.it

Prova ad usare l'API ShellExecute(). Trovi un esempio su 
http://www.devspy.com/Lang/Scr.aspx?id=15
Michele
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


grazie :-)


Newsgroup: it.comp.lang.visual-basic
Titolo: scrivere - leggere settori del disco

Chi ha materiale al riguardo ??

11 facciate in micro-caratteri, che non mi consentono di digitartele tutte.
Quando e' uscito questo numero ?
Potresti scannerizzarle ?
Ciao.
Antonio Tanzillo  
a...@pippo.netgroup.it
KillPippoforrepondez

KillPippoforrepondez

"Scandirle"
Ehi amico, non fare il letterato. Le parole si scandiscono...
Lo scanner ha miliardi di verbi utilizzabili.
Scannerizzare, scansire, acquisire...
SCANDIRE, lo usano solamente pochi programmi... Figuratevi che il mio
dice "Sto Scandeggiando" .... E l'ammorbidente quando lo devo mettere
? :-)
Ciao.
""""""""""""""""""""""""""""""""""""""""""""""
 -----------Federico Emanuele Galli----------
 ----------Visual Basic's Programmer---------
 
 Sideralis Programs (Visual-Basic and Delphi)
 
http://www.geocities.com/colosseum/loge/2151
""""""""""""""""""""""""""""""""""""""""""""""
                 Trust no ONE.

Se proprio ti servono posso farti delle fotocopie e spedirtele. Tempo
qualche giorno arriva no in tutta 'Italia' (campa cavallo che l'erba
cresce).
Gianni Zacchia (gianni.zacchia+AEA-usa.net)
WEB Page su Visual Basic
http://members.tripod.com/+AH4-GiaZack/
+AD4-Quando e' uscito questo numero ?
+AD4-Potresti scannerizzarle ?


Scannare !
Ciao Ciao CiaoOOO  !
Antonio Tanzillo  
a...@pippo.netgroup.it
KillPippoforrepondez

DIGITALIZZARE !!!!!!!!!!!

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con Print

Un saluto a tutti gli amici del ng
Ho bisogno , se possibile di una dritta da parte vostra:
Se scrivo per es.: ( variabili estrapolate da celle di excel)
Print #X, &A
Print #X, &B
Print #X, &C
Print #X, &D
Print #X, &E
Print #X, &F
Print #X, &G
Print #X, &H
Print #X, &I
Print #X, &L
Print #X, &M
Print #X, &N
Supponendo anche che qualcuna di queste variabili non verrà scritta perché =
0
come posso dargli l'istruzione che  " se arrivi a scrivere effettivamente 10
righe
(variabili) scrivi la frase "AZZURRO".
Ringrazio fin d'ora per i vostri sempre preziosi suggerimenti.
Roberto.


Usa un contatore, ogni volta che stampi una riga lo incrementi di uno.
Quando hai finito, ne leggi il valore e, se e' uguale a quanto desiderato, esegui
il codice corrispondente.
Es.:
Dim conta As Long
Print #X,,ciccio
conta = conta +1
Print #X,,pippo
conta = conta +1
ecc. ecc.
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Icona Desktop

Ho finito un programma, devo fare in modo che quando l'utente lo istalla
crea in automatico l'icona sul suo desktop.
Come posso fare?
Grazie
ciao
Chiara

 ha scritto

http://www.thescarms.com/vbasic/VbFileOps.asp
ci sono arrivato cosi':
http://www.google.it/search?sourceid=navclient&hl=it&querytime=YYuE&q=visual
+basic+code+desktop+icon
hth, j.
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT?] Comandi da .BAT senza finestra DOS

Ok, sono fuso.
Devo creare su un CD (per favorire l'avvio col doppio click per chi non ha
lo start automatico del CD per Autorun.Inf) un file (suppongo .BAT) che
contenga un comando per avviare un EXE con un parametro, per esempio
Programma.EXE File.TXT
Ok, funziona, ma mi apre la finestra DOS e resta aperta. Come caspita faccio
a evitarla?
(No, non voglio fare un programma VB). Grazie.


Credo basti aggiungere sul CD anche il file .pif  che viene creato 
quando modifichi le impostazioni del .bat (il .pif contiene le info su 
memoria da utilizzare, dimensioni finestra, chiusura al termine 
dell'esecuzione).
Pero' non ho mai provato ...
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 Pero' non ho mai provato ...
Provato io, confermo. Se poi setti il .PIF per farlo partire come
"ridotto ad icona" non si vede neanche la finestra DOS.
Io setterei anche il file .BAT come hidden, e metterei una
bella icona al .PIF, dicendo all'utente di far partire quello.
Bye, G.

 Credo basti aggiungere sul CD anche il file .pif
Anche meno, basta un collegamento... (mamma mia!)
Grazie.

 "ridotto ad icona" non si vede neanche la finestra DOS.
Non sotto XP. Pur con il "Chiudi all'uscita", sta su sempre e si chiude alla
fine del programma avviato.
In 98 è ok. Ho scoperto che basta fare un collegamento e modificarlo nel
nome e nei parameri.
Banalissimo. Grazie.

 Anche meno, basta un collegamento... (mamma mia!)
Come non detto, con un collegamento non č possibile togliere il percorso
(per poi mnetterlo su CD), quindi va bene il PIF, con chiudi all'uscita e
riduci ad icona.

 riduci ad icona.
gia'. lnk... in win se copi da un pc all'altro i link del menu avvio,
anche se nei due pc la struttura delle dir e' la stessa, i link del
secondo puntano sempre al primo pc. per tirarmi dietro il menu avvio
devo ogni volta fare uno zip -r e scomprimerlo nel pc target...

Newsgroup: it.comp.lang.visual-basic
Titolo: Ado e OpenSchema

Ciao a tutti, ho la necessità di sapere se esiste una colonna in una
tabella:
Se uso AdSchemaColumns e passo anche il nome della colonna mi va in
errore...
Grazie a tutti :D
**
Public Sub ControllaUpdate(ADOConn As ADODB.Connection, Optional nTab As
String, Optional nCol As String)
Dim rstSchema As ADODB.Recordset
'Mi controlla la versione del programma e lancia gli eventuali aggiornamenti
If nTab = "" Then nTab = "MIATABELLA"    'Nome tabella
If nCol = "" Then nCol = "VERSIONE"    'Nome Campo
On Error GoTo esci
If ADOConn.State = adStateOpen Then
  Set rstSchema = ADOConn.OpenSchema(adSchemaColumns, Array(Empty, Empty,
nTab, nCol))
  If Not rstSchema.EOF Then
    MsgBox "esiste"
  Else
    MsgBox "non esiste"
  End If
Else
  MsgBox "connessione chiusa"
End If
esci:
End Sub

 ha scritto nel messaggio 
news:bpM7e.46990$IN.8...@twister2.libero.it...


     msgbox "NON Esiste Colonna"
Perfetto l'ho messo in una function e funziona perfettamente. (credevo che
la forzatura dell'errore potesse dar problemi)
Grazie ancora :)
Newsgroup: it.comp.lang.visual-basic
Titolo: Visual Basic 6 + crystal Report

Salve avrei bisogno di una mano con Visual Basic 6 + crystal report 9 
(usando l'ide di visual basic).
Io sono riuscito tranquillamente a creare 3 report distinti che puntano a 3 
tabelle di un database (questo per semplificare
perchè in realtà ogni tabella ha + dipendeze). Ora volevo riuscire a creare 
un report che mi raggruppasse diciamo i valori
delle 3 tabelle..Mi spiego bene nel caso specifico ogni tabelle viene 
raggruppata per un codice di lavorazione. In poche parole è questo
   Cantiere
+Lavorazione1
Materiale1
Materiale2
Materiale3
Manodopera1
Manodopera2
Noleggi1
Noleggi2
Noleggi3
+Lavorazione2
Materiale1
Materiale2
Materiale3
Manodopera1
Manodopera2
Noleggi1
Noleggi2
Noleggi3
Io riesco a fare
   Cantiere
+Lavorazione1
Materiale1
Materiale2
Materiale3
Altro report
   Cantiere
+Lavorazione1
Manodopera1
Manodopera2
Altro report
   Cantiere
+Lavorazione1
Noleggi1
Noleggi2
Noleggi3
Come posso fare?
Per i report distinti facevo
+Repor Header
+Page Header
+Group Header #1 Command.Cod_lav
 Lavorazione: Descrizione
Data Operaio Ore Costo Totale
+Details
c.data c.op  c.ore c.costo c.totale
+Group Footer #1 Command.Cod_lav
+Report Footer
+Page Footer
Il problema è che se io mettessi anche i dati per dire dei noleggi 
all'interno di details io mi trovo con alternanza tra noleggi e manodopera 
io invece vorrei
riuscire a tenere distinta la cosa..
Spero di essere stato chiaro
Vi sarei mooooooooolto debitore per un eventuale aiuto
Grazie e ciao 

Non sei stato molto chiaro o vista l'ora sono io che sono arrivato di 
cottura!
Non ho capito bene se hai già provato con dei sottoreport? In tal caso la 
cosa non è difficile da gestire.
Nei details metti 3 sottoreport ai quali passerai il codice lavorazione in 
modo da prelevare solo i valori per quella lavorazione.
Ciao, Vincenzo

 ha scritto nel 
messaggio news:eeYdh.70865$uv5.6...@twister1.libero.it...


Un altro modo esiste ma forse, anzi sicuramente, penso sia più dispendioso 
in termini di tempo e prestazioni.
Consiste nel costruire due tabelle, una la chiamerai testate (lavorazioni) e 
l'altra dettagli (Materiali, Noleggi, Operai); lavorando con qualche SELECT 
e qualche UNION riesci a crearti una base dati da passare al report.
Ciao, Vincenzo 

 ha scritto nel 
messaggio news:ifjeh.73469$Fk1.2...@twister2.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: file.ini

Ciao a tutti
devo fare una cosa in vb, ma non mi ricordo come si fà
devo prendere dei valori da un file ini
qualcuno può farmi un esempio di come deve essere fatto un file ini e la
procedura in vb per leggerlo ?
Grazie mille a tutti :->>>

 procedura in vb per leggerlo ?
ho idea che ti convenga trattarlo come un qualunque file di testo...
ciao
Enrico

 ha scritto nel messaggio
news:9jp3li$149sj$1...@news02.it.net...



puoi usare l'API GetPrivateProfileString
Ciao
Enrico

 ha scritto:

Se guardi sul sito comune, c'è una classe e un ocx mi pare...
Se non le trovi te le posso mandare.
Aran

 wrote in message
ffU77.11103$Qf6.1...@news2.tin.it...

[cut&paste mode on]
'dichiara le api necessarie:
Declare Function WritePrivateProfileStringA Lib "kernel32" (ByVal lpSection
As String, ByVal lpEntry As String, ByVal lpString As String, ByVal
lplFileName As String) As Integer
Declare Function GetPrivateProfileStringA Lib "kernel32" (ByVal lpSection As
String, ByVal lpEntry As String, ByVal lpDefault As String, ByVal
lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As
String) As Integer
'...poi, per scrivere...
Sub PutINI(ByVal Section As String, ByVal Variable As String, ByVal Value As
String, ByVal FileINI As String)
    Dim a As Integer
    a = WritePrivateProfileStringA(Section$ & Chr$(0), _
        Variable$ & Chr$(0), _
        Value & Chr$(0), _
        FileINI$ & Chr$(0))
End Sub
'...e per leggere...
Function GetINI(ByVal Section As String, ByVal Variable As String, ByVal
FileINI As String) As String
    Dim Bidone$
    Dim LenBidone As Integer
    Bidone$ = Space$(255)
    LenBidone = GetPrivateProfileStringA(Section$ & Chr$(0), Variable$ &
Chr$(0), Chr$(0), Bidone$, Len(Bidone$), FileINI$ & Chr$(0))
    GetINI$ = Left$(Bidone$, LenBidone)
End Function
[cut&paste mode off]
CIAO!

ci provo subito grazie ciao :->
"buc" <df...@XXXhotmail.com> ha scritto nel messaggio
news:9jp6c2$vbj8$1...@ID-91934.news.dfncis.de...


 ha scritto nel messaggio
news:ffU77.11103$Qf6.1...@news2.tin.it...


 [cut&paste mode on]
In questi casi consiglio
#include <disclaimer.h>
Non si sa mai... :P
Ciaotutti,
*

 Ciaotutti,
mi basterebbe un
#include <tantegrazie.h>
zzzap!
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] a Ettore Maronese, lavori in team

Ciao, sono quello a cui ieri hai proposto di lavorare in team nel NG.
Non so ancora se riesco a farlo ma mi puoi spiegare un po come funziona la
cosa e come si fa a partecipare!
Grazie.
Paolo :-))

cosa e come si fa a partecipare!
Nell'attesa che Ettore ti risponda, dai un'occhiata alla sezione "Leonardo" del Sito Comune: credo
che Ettore si riferisse a questo.
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
---------------------------------------------------------------------------

 che Ettore si riferisse a questo.
Spiritoso, lo sai che mi riferivo proprio a quello ^__^
Io non ho nulla da aggiungere, se non andare sul Sito Comune:
http://www.murialdo.it/it_lang_vb
sezione Leonardo, e contattare il coordinatore del progetto con il link
apposito presente sul sito
( il coordinatore è Zanna ), proporti al progetto e vedrete insieme a lui
quale aspetto del progetto preferisci curare.
 /\/\/\/\/\/\/\/\/\/
| Partecipa alla stesura di progetti VB sviluppati in team,
| informati sul Sito Comune sezione Leonardo.
| Io partecipo al progetto Data Raptor, alleati con noi.
 \/\/\/\/\/\/\/\/\/\
Ciao
Ettore Maronese, il Mes
http://www.maronese.com/mes
Sito Comune di questo NG
http://www.murialdo.it/it_lang_vb

quale aspetto del progetto preferisci curare.
Io aggiungo: avanti con nuove idee!
Possibile che nessuno abbia in cantiere qualche progettino che per qualsiasi
motivo non riesce a portare avanti?
Ciao



Credo il "galante" skunk, ma č decisamente OT... ;-PPPP


 Credo il "galante" skunk, ma è decisamente OT... ;-PPPP
:))
oltre che off topic, e' anche off tech...
come dicevano, si fara', si fara'...
Newsgroup: it.comp.lang.visual-basic
Titolo: Textout e dimesione carattere

Ciao.
Devo stampare un testo utilizzando l'API textout.
Supponiamo di avere un font Arial 8 o Arial 12
mi faccio calcolare la dimensione del carattere:
 gLogFont.lfHeight = Abs(-MulDiv(font.pitch, GetDeviceCaps(hdc,
LOGPIXELSY), 72))
Fra gli altri parametri setti
gLogFont.lfOutPrecision = OUT_DEFAULT_PRECIS
gLogFont.lfClipPrecision = OUT_DEFAULT_PRECIS
gLogFont.lfQuality = DEFAULT_QUALITY
gLogFont.lfPitchAndFamily = DEFAULT_PITCH Or FF_DONTCARE
Genero il font
ofont = CreateFontIndirect(gLogFont)
Invoco la textout
k2 = TextOut(hdc, x1,  y1, Testo, Len(Testo))
Perche' mai il testo che mi viene stampato e' un po' piu' piccolo di
quello che mi stampa sulla stessa stampante ad es. Word??????
Ciao e grazie.

quello che mi stampa sulla stessa stampante ad es. Word??????
Probabilmente sbagli ad impostare qualche parametro.
Prova a fare un confronto tra la struttura che crea VB del font e i
parametri che imposti tu.
ad. esempio per un Arial 8 l'altezza deve essere -11
Ciao Bruno


Newsgroup: it.comp.lang.visual-basic
Titolo: Riga sotto i menu

Ovvero è possibile avere il separatore windows-like
nella barra dei menu? O devo per forza usare l'oggetto
Line? (che non mi piace)...
________________________________________
James Tiberius Kirk, matricola SC 937-076 CEC
  Nato a Riverside, nello Iowa, USA, Terra
            il 1277.1 (26/03/2233)

 ha scritto nel messaggio
news:gMqS8.71269$Kt3.1...@twister2.libero.it...


 Line? (che non mi piace)...
La seconda che hai detto.
Se non ti piace il controllo Line, puoi disegnare direttamente nell'evento
Paint (o Load se AutoRedraw=True)
Private Sub Form_Paint()
'Nota: l'altezza del menu' e' gia' tenuta in considerazione da VB
'possimo quindi partire normalmente dalla coordinata 0,0
Me.Line (0, 0)-(Me.ScaleWidth, 0), vb3DShadow
Me.Line (0, 20)-(Me.ScaleWidth, 20), vb3DHighlight
End Sub
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 La seconda che hai detto.
Grazie. Immaginavo che era cosi... peccato


 La seconda che hai detto.
Ma, scusate, dopo il suggerimento di Xpeppe, di che separatore parlate?

 ha scritto nel messaggio
news:yBBS8.72679$Kt3.1...@twister2.libero.it...

Dell'effetto 3D che vedi normalmente nelle finestre per separare le barre di
menu', le toolbar ecc.. dall'area client; nel caso di una form VB con solo
la barra di menu' e' assente (lo sfondo del menu' e della form e' uniforme),
e se interessa averlo, deve essere disegnato in qualche modo.


 e se interessa averlo, deve essere disegnato in qualche modo.
ma il separatore del visualbasic non basta ? (beppe post) non ho capito di
che effetto parli ! cmq se nei menu come "nome" metti "-" ti compare una
linea separatrice , per i toolbar esiste il bottone "tbseparator" invece !

"Gigio2K" <barone.fabrizio_SP@M_libero.it> ha scritto nel messaggio
news:0NKS8.77941$j65.1...@twister1.libero.it...

Guarda bene sopra; quello che il capitano Kirk chiedeva non era di separare
le varie voci di menu', ma di separare *l'intera barra del menu* dal resto
della finestra.
Apri una finestra qualunque della shell e nascondi tutte le toolbar, poi
confronta l'aspetto di questo menu' con quello della Calcolatrice.
L'effetto stabndard di VB e' quello della Calcolatrice, mentre il capitano
voleva ottenere qualcosa di simile al primo


 della finestra.
Esatto, e al momento uso l'oggetto Line ma, non
mi piace moltissimo.

Newsgroup: it.comp.lang.visual-basic
Titolo: Spostamento di oggetti...

Salve,
è possibile con VB5 spostare degli oggetti nel form in maniera fluida e
graficamente accettabile?
Ho provato con le funzioni move e left, ma risultano dei movimenti
irregolari ed a volte lampeggianti.
Se poi si mette un'immagine sullo sfondo della form, fino a che non viene
esaurito il ciclo di spostamento, quest'immagine non si aggiorna e resta la
strisciata del movimento.
Ho provato anche ad inserire un refresh nel ciclo, ma è ancora peggio.
Esiste una soluzione?
Grazie.
Gabry.

Esiste una soluzione?

Ciao Bruno
Diamine! Non ci avevo pensato, grazie!!

Esiste una soluzione?
non e' proprio quello che cercavi tu (in questa procedura si muove
solo il contorno) pero' se le tue esigenze non sono proprio di veder
muovere l'oggetto mi sembra che funzioni bene
Dim Dx, DY As Single
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X
As Single, Y As Single)
Dx = X
DY = Y
Me.Command1.Drag vbBeginDrag
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Me.Command1.Drag vbEndDrag
End Sub
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Me.Command1.Top = Y - DY
Me.Command1.Left = X - Dx
End Sub
Ciao
Pellati Fabio
Consulente in informatica
(FERRARA)
Newsgroup: it.comp.lang.visual-basic
Titolo: [ot] font nei report di crystal report

E' possibile ingrandire la dimensione dei caratteri stampati e visualizzati
in un'anteprima creata con crystal report 8  ?
saluti e grazie

in un'anteprima creata con crystal report 8  ?
Se ti stai riferendo all'editor ...
cerca la barra di formattazione o nel menů "Format" per la versione
inglese.
Se intendi da codice ... non saprei.
Se i report vengono visualizzati tramite Crystal Report Control darei
un'occhiata alla proprieta SectionFont (che non ho mai usato).
Ciao!

Ma nell'anteprima di stampa a video tali menů non esistono!
E' possibile solo stampare, esportare in TXT o RTF , settare la stampante,
modificare la % di ingrandimento.
( 25,50,100,125,150,200 % ) .
perň in stampa č sempre uguale la dimensione dei font.
ciao

Ma nell'anteprima di stampa a video tali menů non esistono!
Ah! Pensavo dovessi "modificare" il report alla fonte.
In anteprima non mi risulta proprio che si possano cambiare i font.
Ciao!

 però in stampa è sempre uguale la dimensione dei font.
Dal tuo post iniziale si capiva una cosa diversa.
Cerca di usare qualche virgola, in modo da rendere più chiaro il tuo
messaggio.
Sul tuo quesito, ti rispondo relativamente al DataReport, ma credo che su
questo aspetto sia simile.
Durante la preparazione del report, avvengono tutta una serie di cose, fra
cui anche eventi ad ogni cambio pagina, ecc.., che dipendono direttamente
dalla dimensione del font.
Ad esempio, se usi un font doppio di quello standard, potresti usare più
pagine per completare il report.
Morale: modificare il report in maniera strutturale (come faresti cambiando
il font) al momento dell'anteprima significherebbe ricrearlo completamente.
Nel datareport, una volta che il report è visibile in anteprima, è del tutto
completo.
Per modificarlo, si deve distruggerlo e ricrearlo.
La cosa è fattibile, in quanto tu potresti creare una tua form di selezione,
in cui ad esempio consenti di indicare il font, poi con un pulsantino
"Esegui" il tuo codice può distruggere il report visibile, cambiare il font
nella struttura, ricrearlo e rivisualizzarlo in anteprima. E' evidente però
che ci sono tempi morti, che dipendono molto dalla complessità del report e
dei dati sottesi.
Ciao
Alberto

 Alberto
ping
:-)
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 ping
Ho impiegato un po' a capirlo, poi ho sorriso.
Ciao
Albert
[fregato!]