mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: TextBox e calcoli

Scusate la banalità della domanda!
Ho realizzato un form composto da tre TextBox.
In due inserisco dei numeri e nella terza voglio che appaia
automaticamente la somma algebrica.
Come fare?
Grazie
paol...@tin.it

Scusate la banalitŕ della domanda!


 Come fare?
Option Explicit
Private Sub Form_Load()
Dim o As Object
  For Each o In Form1.Controls
    If TypeOf o Is TextBox Then
        Let o.Text = ""
    Else
    End If
  Next
  Let Text1(2).Locked = True
End Sub
Private Sub Text1_Change(Index As Integer)
  If IsNumeric(Text1(0).Text) And IsNumeric(Text1(0).Text) Then
    Let Text1(2).Text = Val(Text1(0).Text) + Val(Text1(1).Text)
  Else
    Let Text1(2).Text = ""
  End If
End Sub
Private Sub Text1_GotFocus(Index As Integer)
  Let Text1(Index).SelStart = 0
  Let Text1(Index).SelLength = Len(Text1(Index).Text)
End Sub
--
Ciao.
Maurizio

 wrote in message
7guj6s$ivj$1...@nslave1.tin.it...
Scusa... andavo di corsa!
  If IsNumeric(Text1(0).Text) And IsNumeric(Text1(1).Text) Then
--
Ciao.
Maurizio

ti posto il metodo piů semplice cosě non ti complichi la vita
a=val (text1.text)
b=val (text2.text)
somma=a+b
text3.text = str(somma)
e il gioco č fatto :-))
bye bye
Newsgroup: it.comp.lang.visual-basic
Titolo: Referenziare un form con il contenuto di una stringa

Ciao.
Nel mio progetto ho diversi form abbastanza simili, con alcune proprietą in
comune. A seconda della scelta che l'utente fa in un albero apro un form
diverso.
Questo č un pezzo del mio codice
Select Case UCase(NodeKey)
Case "TABCOM"
    frmTabCom.RecordsetFrm = rsTab
    frmTabCom.CaptionFrm = tvTabelle.SelectedItem.Text
    If bAggiungiRecord Then
        frmTabCom.AggiungiRecord = True
    End If
    frmTabCom.Show vbModal
Case "TABIMPR"
    frmTabImpr.RecordsetFrm = rsTab
    frmTabImpr.CaptionFrm = tvTabelle.SelectedItem.Text
    If bAggiungiRecord Then
        frmTabImpr.AggiungiRecord = True
    End If
    frmTabImpr.Show vbModal
Case "TABPROF"
    frmTabProf.RecordsetFrm = rsTab
    frmTabProf.CaptionFrm = tvTabelle.SelectedItem.Text
    If bAggiungiRecord Then
        frmTabProf.AggiungiRecord = True
    End If
    frmTabProf.Show vbModal
.....
Come vedere l'unica cosa che cambia č il nome del form.
Mi chiedevo se fosse possibile scrivere una sola Sub che funzioni passando
il nome del form come stringa.
Grazie per l'aiuto.
Skysurfer

 il nome del form come stringa.
Passalo come Form  (ByRef)
Private Sub ApriForm(frmFormDaAprire as Form,....)
    frmFormDaAprire.RecordsetFrm = rsTab
    frmFormDaAprire.CaptionFrm = tvTabelle.SelectedItem.Text
    If bAggiungiRecord Then
        frmFormDaAprire.AggiungiRecord = True
    End If
    frmFormDaAprire .Show vbModal
end sub
Elio.

 Skysurfer
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

dimenticato un pezzo... riposto:
Public Sub ilForm(ByVal cheForm As String)
 
   Dim stoForm As Form
 
   Set stoForm = Forms.Add(cheForm)
 
    With stoForm
 
        .RecordsetFrm = rsTab
        .CaptionFrm = tvTabelle.SelectedItem.Text
 
        If bAggiungiRecord Then
            .AggiungiRecord = True
        End If
 
        .Show vbModal
 
   End With
 
   Unload stoForm
 
End Sub
rialoHa
elefante


Grazie ad entrambi per i consigli.
Adesso provo.
Ciao
Skysurfer

Newsgroup: it.comp.lang.visual-basic
Titolo: Come passo un puntatore a POINTAPI?

Salve a tutti,
    nella dichiarazione dell'ape Polygon il secondo parametro e' un numero
long che in pratica e' un puntatore ad un vettore di POINTAPI: come faccio a
passarlo? Ho provato con un tipo cosi':
type POLIGONO
    p1 as POINT
    p2 as POINT
    p3 as POINT
end type
ma fallisce. Qualche idea?
    A proposito, esiste un modo per fare il casting in VB4? Cioe', se ad
esempio ho un OCX e un evento con un parametro long, posso dirgli di
considerarlo un single o passarlo come argomento al posto di un "byref p as
MyType"?
    Grazie a tutti
--
the Al

MyType"?
Per il casting di dati guarda sull'help in linea sotto "Type Conversion
Functions"
Ciao Bruno




Ciao
Paolo


Giusto. Basta che nella dichiarazione non sia specificato ByVal.
Bruno
Newsgroup: it.comp.lang.visual-basic
Titolo: Cerco VB5 Professional in italiano

Cerco VB5 Professional originale (e relativa licenza d'uso) in italiano a
prezzo modico.
Per favore offerte in e-mail. Grazie e auguri di BUONE FESTE a tutti.
maxgr...@freemail.objsystem.it

Ho notato che è la 6a (= SESTA, = 1,2,3,4,5,6) volta che hai postato lo stesso messaggio.
Posso chiederti il perché?
Se nessuno in queste 6 volte ti ha risposto, è perché evidentemente la risposta era "NO".
Per prezzo modico intendi 178000 lire?
Se si, allora corri in negozio ed acquista la licenza studente (se sei fortunato di danno il VB6)
Se per te, invece, è ancora troppo caro, beh non so che dirti.
Spero di essere stato chiaro e convincente, e sono fiducioso che non vedrò più questo thread.
Saluti e Buone Feste,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] VB6 - SP2: è installato o no?

Salve a tutti.
Ho scaricato SP2 per VB6 e l'ho installato. L'installazione procede fino
alla fine tranquillamente e un messaggio mi avvisa che tutto è a posto. Però
quando lancio VB6, dopo aver riavviato il sistema, non c'è niente che mi
dica che c'è un SP installato, né nello splash screen né nella finestra di
about. Anche msvbvm60.dll dà versione 6.00.8268, senza SP, e la data è 25
Settembre 1998. Qualcuno ha qualche chiarimento da darmi?
Grazie in anticipo,
Saluti,
Domenico

 wrote in message
7j56bn$2gu$1...@nslave1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Estrarre un file word da un db con VB

Salve, devo mettere un  file word all'interno di un DB oracle (colonna
CLOB) e devo creare un'applicazione che prende questo file word e lo
porta in locale.
Riesco ad effetture la connessione con ado per fare query generiche,
ma come faccio a prendermi il word. Non ho intenzione di utilizzare
altri sistemi (ftp ecc).
Grazie a chiunque possa darmi una mano
Sono un neofita in VB quindi serei grato a chiunque mi fornisse info e
ancora più grato se sono semplici :)
Ciao a tutti
Marco

 altri sistemi (ftp ecc).
Io con firebird e campi blob uso ADODB.Stream (provala un po' sicuramente è
migliorabile).
Per estrarre:
Dim MyStream As ADODB.Stream
Set MyStream = New ADODB.Stream
Rs.LockType = adLockReadOnly
Rs.CursorType = adOpenForwardOnly
Rs.Source = mySQL 
Rs.Open
[cut]
  If Not IsNull(Rs("CBLOB")) Then
    With MyStream
      .Type = adTypeBinary  'Tipo stream binario
      .Open 'apro stream
      .Write Rs("CBLOB") 'Scrivo nello stream il campo blob
      .SaveToFile SavePath, adSaveCreateOverWrite 'Salvo il nuovo file
      .Close  'Chiudo stream
    End With
  End If
Per salvare:
    Rs.LockType = adLockOptimistic
    Rs.CursorType = adOpenStatic
    Rs.Source = "SELECT * FROM TABELLA WHERE IDBLOB='" & Val(IDBlobK) & "'"
    Rs.Open
    [cut]
    With MyStream
      .Type = adTypeBinary 'definisco stream tipo binario
      .Open 'apro stream
      .LoadFromFile (SavePath)  'carico il file da salvare
    End With
    Rs("CBLOB") = MyStream.Read  'Nel campo blob inserisco lo stream
Set MyStream = Nothing


wrote:

Leggi il contenuto del campo CBLOB e lo scrivi in un File come Binary
assegnandogli il Nome.
@Alex

Salve,
vi ringrazio enormente, domani mattina provo il tutto,
purtroppo adesso non posso per vari motivi ma volevo ringraziarvi.
Newsgroup: it.comp.lang.visual-basic
Titolo: What Office App should I use? Help :)

I'm trying to write a small app for my wife's chiropractice
business.   She needs a list of patients, schedule and a way to print
insurance forms with codes.
I could use MS Access...which is great because searching for patients
who's last appointment date is greater than 3 months ago is very
easy.    What's very hard is to have a calendar and appointment
schedule.
I could use MS Outlook. After all, it has contacts (patients) and
calendar.   I don't imagine it would be that hard to write some VB to
output forms and look-up codes in a table somewhere?
Does anyone have any pointers or suggestions?   We have been paying
for applications all these years... and they are never quite right and
cost a lot.... especially for support and upgrades.
Any help would be appreciated.
Thanks
-Ed


... epparla come magni, noh?...
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 ... epparla come magni, noh?...
/SBADABAM !
Bye, G. 

 /SBADABAM !
... Vero?


 ... Vero?
Sě :-D
Senti, sto riscrivendo una linea di programmi. Finora li ho chiamati
Chrome, Iridium e Titanium. Ecco, pensavo che quasi quasi
un Yronium ci starebbe bene -).
Bye, G. 

"Paperino"

benone :P
adesso uno di voi due si degna di rispondergli che access va benone, se solo 
ha office e il controllo calendar, o meglio se sapete suggerirgli qualcosa 
in formato tabelle/query? :P
raga', qualunque fosse il livello, la domanda era a modo suo seria...
ciao, a.

 formato tabelle/query? :P
Se ha letto la posta lo sa già, e ha anche saputo di aver sbagliato
NG e dove avrebbe dovuto postare per avere migliori info ;-).
Bye, G. 

 e dove avrebbe dovuto postare per avere migliori info ;-).
velino! me lo sento, gli hai chiesto di chiedere a serni :PP

 un Yronium ci starebbe bene -).
Sono lusingatissimo, ma ti pregherei di non farlo: sarei costretto a
cambiare nick per evitare che il tuo milione di clienti pensi che io ho
qualcosa a che fare con il tuo programma e magari mi contatti per avere
guide, istruzioni, scorciatoie, aggiornamenti, personalizzazioni, ecc... e
in quel caso io dovrei ogni volta girare le richeste all'Ufficio Clienti
della Paperino spa.
iCoa. );


Newsgroup: it.comp.lang.visual-basic
Titolo: [VB.NET] Dataset

Ho un Dataset che corrisponde a una tabella di un database. Come posso
riferirmi, ad esempio, al valore di un campo specifico del record corrente?
Grazie
Paolo

prova con
Ds.Tables("nometabella").Rows.Item(0)("nomecampo")
dove item(0) e' la posizione nell'array di record dell'insieme rows (lo 0 e'
evidentemente il primo record).
Saluti
Riccardo


Newsgroup: it.comp.lang.visual-basic
Titolo: macro codice fiscale

Salve
Ho un programma di ottenimento del codice fiscale in Visual Basic; ma non
essendo un programmatore esperto in tale linguaggio ho dei problemi, in
quanto vorrei collegare questo programma ad un Data Base di Access da dove
il programma dovrà prendere i dati di nome, cognome, ecc.... non so come
scrivere il comdando , se qualcuno può aiutarmi ve ne sarò grato.
Grazie anticipato
Giuseppe

...


Ipotesi:
Nome Database: MioDb.mdb
Tabella: Tabella1
Campi interessati: Nome, Cognome, Data di nascita (nel formato "gg/mm/aaaa")
Campo da completare: CodFisc
dim dbase as database
dim rst as recordset
set dbase=opendatabase("MioDb.mdb")
set rst=dbase.openrecordset("Tabella1")
if rst.recordcount=0 then exit sub
rst.movelast
rst.movefirst
do
	rst.edit
		rst("CodFisc")=GeneraCodFisc(rst("Nome"), rst("Cognome"), rst("Data"))
	rst.update
	rst.movenext
loop until rst.eof
La funzione GeneraCodFisc, nell'esempio è così dichiarata:
Sub GeneraCodFisc (Nome as string, Cognome as String, DataNascita as string) as string
Ovviamente, se la tua è diversa, modifica la chiamata alla funzione.
Lo scopo del codice su riportato è:
Leggere nome, cognome e data di nascita di tutte le persone in tabella ed aggiornare il campo CodFisc con il codice
fiscale di ognuno.
Spero possa esserti d'aiuto.
Ciao,
Moreno
#sirri#@
morenosoft.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
Home Page - 
http://www.geocities.com/SiliconValley/Bridge/1414/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

 ....


posizionamenti, ne nei valori di recordcount.
Perché, soprattutto con tabelle grosse, può capitare che RecordCount restituisca solo i record "letti" e non quelli
totali.
Così facendo eviti il problema.....


 totali.
anche per i recordset di tipo tabella? Credevo che questo valesse solo per
snapshot e dynaset

Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal Report e Anteprima :(

Salve Gente,
ma e' possibile che un programma com crystal possa ceffare l'anteprima
? :((
Mi spiego:
Uso VB6 con crystal report 4.6 fornito nel pacchetto. Quando creo un
report e lo visualizzo vedo i campi separati, mentre quando lo mando
in stampa vedo che i campi sono sovrapposti. 
Esiste una soluzione??
Succede solo a me?
Grazie
fabio....@inwind.it
Genova

 wrote in message
news:1srfrsof2jgg3akf2...@4ax.com...

Se stiamo parlando di stampanti laser o ink-jet, potrebbe essere dovuto alla
risoluzione della stampante, sicuramente diversa da quella del video.
Capita infatti che, soprattutto se i campi sono molto vicini, a video sembri
tutto ok, ma se la stampante ha una bassa risoluzione i campi si
sovrappongano.
Soluzioni non ne conosco, a parte distanziare di piu' i campi, o ridurre la
dimensione del carattere di stampa...
Se si tratta di stampanti ad aghi, il problema e' anche peggiore...
Ciao
Lorenzo
Newsgroup: it.comp.lang.visual-basic
Titolo: clock

Qualcuno sà dirmi come costruire (in VB5) un orologio analogico con le
lancette di varie forme?
Sono graditi sorgenti, grazie.
Cecchini Marco: 
m.cec...@leonet.it

...

Bene, per creare le lancette puoi usare una semplicissima funzione di
linea, per il punto di arrivo della linea (quello di partenza è fisso il
centro dell' orologio) devi usare una formula matematica che al momento non
ricordo ma che posso reperire facilmente. Ci sono 3 lancette: ora, minuti e
secondi, per differenziarle puoi cambiare il valore di BorderWidth.
Mosquito

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

Salve
devo creare un programmino (fatto con VB6)che si visualizzi solo dopo un tot
di tempo che il PC non viene utilizzato, l'unico problema e che non so come
fare che il mio programma si accorga che il PC non č utilizzato da nessuno.
Vi ringrazzio anticipatamente per l'aiuto sperando che sia semplice perché
sono agli inizii

 fare che il mio programma si accorga che il PC non č utilizzato da
nessuno.
Credo che non ci sia alternativa: Il tuo programma (non esistono i
programmini!) deve essere avviato (lo devi mettere nella cartella Avvio
automatico) ogni volta che si accende il PC. Il programma (nella Sub Main)
verifica la data di sistema e la confronta con quella che hai depositato
precedentemente. Se il tempo trascorso č tale da avviare il programma, ne
visualizzi la finestra, viceversa lo chiudi in modo che non occupi
inutilmente memoria.


wrote:

Potresti rinominare l'eseguibile in .scr e usarlo come screensaver?
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Misteri di Visual Basic: Controllo Activex Monthview

Su una macchina con win nt 4 ...ho creato un applicazione che fa uso del
Controllo Activex Monthview..la stranezza ?
Cliccando..cambiando la data sul controllo in oggetto.....viene cambiata
anche la data di sistema del PC!!!
Qualcuno riesce a spiegarmi come mai..ma soprattutto come evitare
l'iconveniente..?
p.s.
portata l'applicazione su un  altro pc...avviene lo stesso fattaccio
g...@tim.it
tel. 3356331003
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Hai il VB indemoniato.
Scusa, hai inserito del codice che potrebbe cambiare la data di sistema?
Io ho fatto molte prove con il controllo, ma la data è sempre rimasta la
stessa!
Spiega meglio se hai inserito del codice.
ciao

Nessun codice...su dataclick prendo il valore selezionato..posso
inviarti tutto il codicese vuoi....


 inviarti tutto il codicese vuoi....
Magari con un
Date = MonthView.Value
? ;)
Ciao
--
y = f(
http://neodatatype.interfree.it/index.html
)
Newsgroup: it.comp.lang.visual-basic
Titolo: Matrice di ToolBar

Se uso una matrice di toolbar, quando lancio il mio programma mi dà errore
su "Private Sub Toolbar1.click (...)",
ho provato a inserire  Toolbar1(1).click (...) o Toolbar1().click (...) ma
non lo prende....
Come devo fare ?
Grazie, Giacomo 
ande...@tin.it

Anderle Giacomo wrote:

La Private Sub Toolbar1.click (index) ha come parametro index che e' l'indice
del controllo cliccato.
Usa quello!!!
--
**********************************
*******Luke SkyWalker********
**********************************


Ho idea che l'errore stia nel Toolbar1(1).click: click è un evento e non una
proprietà; prova con
Toolbar1(1)_click e l'indice del pulsante premuto
Ciao

 wrote in message news:7n18oa$75n$1...@nslave1.tin.it...



Forse Toolbar1_Click(1) sarebbe meglio...
--
Roal Zanazzi
z...@iol.it

 wrote in message
news:3jZk3.1471$X%.15928@typhoon.libero.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Repost: Can one send mouseclicks to another application?

I am trying to write a program to control another application window.
Sendkeys is helpful for part of my objective, but it would be really helpful
if I can position a mouse pointer on a certain spot on the remote window and
send a mouse click to it.  Does anyone know how I can accomplish this.  I am
running VB 6.0 professional.
Thanks so much for you response.
Cheers.
Newsgroup: it.comp.lang.visual-basic
Titolo: Trasformare il PUNTO del tastierino numerico in VIRGOLA

Ciao a tutti,
sto iniziando a programmare in Visual Basic e mi sono subito imbattuto in un
piccolo/grande problema.
Ho inserito un oggetto MaskEdBox con maskera ###,##0.#0 per l'input di
prezzi in Euro. Quando provo l'inserimento dei dati, sono costretto ad usare
la VIRGOLA per separare la parte intera da quella decimale perchè il PUNTO
presente nel tastierino numerico funge da separatore delle migliaia. Come
posso dire al mio programma che il PUNTO del tastierino numerico deve essere
interpretato come VIRGOLA?  Preciso che posso tranquillamente trasformare la
maschera in #####0.#0 (rinunciare cioè al separatore delle migliaia).
Grazie
Sandro

 deve essere interpretato come VIRGOLA?
Non so quanto sia garbato, ma nell'evento KeyPress potresti sostituire il 
codice del tasto premuto:
   If KeyAscii = 46 Then
      KeyAscii = 44
   End If
-- 
Ciao, Mauro CB

    End If
Concordo. E' l'unica soluzione. Comoda, l'ho usata anch'io
in un minigestionale di cassa.
_____________________________________________
James Tiberius Kirk, matricola SC 937-076 CEC
  Nato a Riverside, nello Iowa, USA, Terra
            il 1277.1 (26/03/2233)

 > > deve essere interpretato come VIRGOLA?



Al keypress del campo
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 44 And InStr(1, Text1.Text, ",") <> 0 Then
    KeyAscii = 0
End If
End Sub
Ciao
Stefano

 wrote in message
news:b3sm2i$vkv$1...@lacerta.tiscalinet.it...

io solitamente faccio tutto nell'evento validate :
- trasformo i punti "." in virgola ","
- rimuovo tutte le virgole (ad esclusione dell'ultima)
- formatto il numero con format$(Numero, "#,##0.##")
- se l'ultimo carattere è una virgola allora la rimuovo (perchè potrei
ottenere una stringa del genere "5.699,")
Comunque c'è sempre da tener conto delle impostazioni internazionali e della
nazionalità del sistema operativo.
Saluti

Newsgroup: it.comp.lang.visual-basic
Titolo: Flex Grid

Ciao a tutti,
è possibile stampare una flex grid in VB6?
Grazie e buon lavoro
Andrea

 č possibile stampare una flex grid in VB6?
No, non direttamente.
O "stampi" il pezzo di griglia visualizzato con Alt+Stamp (e poi Paint,
Incolla e Stampa) oppure devi scorrere tutte le righe e stamparle come piů
ti piace.
Assurdo? No, ci sono carenze ben piů inaccettabili.

 ha scritto nel messaggio
news:b5mvrk$2a3om7$1...@ID-174464.news.dfncis.de...

Ho risolto, la stampo come picture
Printer.PaintPicture MSFlexGrid1.Picture, PrinterLeft, PrinterTop,
Printer.Width * 5 / 7,Printer.Height * 3 / 4.5
Printer.EndDoc

 Printer.EndDoc
E se vi sono più righe e/o colonne di quel che vedi? :-(

 Printer.EndDoc
non ho mai provato, mi fido di quello che dici.
ma quando i dati non ci staranno in un solo foglio?
--
Salutoni
Sergio

 ha scritto nel messaggio
news:b5n2qs$29ijvv$1...@ID-174464.news.dfncis.de...

Stampa quelle che entrano in un foglio, cmq si può sempre fare un ciclo per
il numero di righe che ci sono nella flexgrid

 ha scritto nel messaggio
news:b5mtc3$gn7$1...@grillo.cs.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Registrare OCX

Buonasera a tutti.
Esiste del codice anche tramite API per la registrazione degli OCX nel
registro di windows?
Grazie.Ciao.
Piero
pieros...@crystalweb.it

 ha scritto nel
messaggio news:glJTd.68158$2h5....@tornado.fastwebnet.it...

Ti rimando a questo 3D:
http://groups.google.it/groups?hl=it&lr=&threadm=cnf4kl%249qd%241%40news.newsland.it&rnum=1&prev=/groups%3Fq%3DVisual%2BBasic%2Bregistrare%2BOCX%26hl%3Dit%26lr%3D%26selm%3Dcnf4kl%25249qd%25241%2540news.newsland.it%26rnum%3D1
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Piccolo grande problema con VB atto II

 Salve a tutti su questo newsgroup.
Sto realizzando un progettino che alla fine di due elaborazioni distinte mi
crea due "immagini".
Io riesco perfettamente ad esportarle in bmp e salvarle.
Ora viene il problema.
la prima immagine è molto più grande della seconda, quindi io debbo inserire
la seconda immagine in un punto ben definito della prima (angolo sinistro
superiore), tipo collage, è come se la prima immagine fosse una mappa ed io
debbo appiccicarci su una lagenda.
Il tutto deve essere fatto in maniera trasparente all'utente, cioè non si
deve vedere nulla.
Qualcuno mi ha suggerito di usare le GDI ma non so come usarle in quanto non
ho mai avuto l'esigenza di usarle.
Oppure posso usare la proprietà paintpicture dell'oggetto Picture, ma come
si usa???
Qualcuno ha del codice di esempio???
Se si può postarmelo su 
rus...@email.it
 ?
Grazie in anticipo e ciao
Emilio
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 si usa???
Almeno l'hlep l'hai letto?
-- 
Computers are unreliable, but humans are even more unreliable.  - Gilb
News 2002 [v 2.07] / StopDialer / PopDuster - 
http://www.socket2000.com
Akapulce portal: 
http://www.akapulce.net

 ha scritto nel messaggio 
news:80Z104Z156Z115Y...@usenet.libero.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [Req] abilitare/disabilitare un comando di menu'

ciao a tutti ^_^
ho creato un menù per un'applicazione ed ho visto che all'interno
dell'editor, associato ad ogni comando, c'è un opzione "Enabled" che
consente di rendere selezionabile il comando associato... come posso
accedere a questa proprietà da codice?
ipotiziamo che il comando sia: "mnuFileSalva" e che lo voglia rendere
attivo da codice (quindi in un secondo momento) non mi è possibile
accedere alla suddetta proprietà tramite la stringa
"mnuFileApri.Enabled = False/True" perchè sembra che non esista.
come posso fare?
Grazie ^_^
xst...@libero.it

 ha scritto nel messaggio
news:3b6ba358....@news.libero.it...


Se vuoi inserire da codice la disabilitazione del menu devi prima
definire dove si trova il menu.
Supponendo che il Form1 contenga il menu che ti interessa devi
semplicemente scrivere:
Form1.mnuFileSalva.Enabled = true
Ciao
Maurizio
XaBaRaS ha scritto:


Ho capito l'errore!!!
Ho abilitato nell'editor di menů il campo index con un numero
progressivo per ogni voce di menů!
Pensavo andasse fatto! #;P
A cosa serve questo campo allora?
In quali casi č lecito modificarlo?
Grazie a tutti! ^_^
xst...@libero.it

 In quali casi è lecito modificarlo?
    Quando vuoi creare degli array di menu, così come è possibile fare per i
controlli.
        Cris
Newsgroup: it.comp.lang.visual-basic
Titolo: ambito di una variabile oggetto

cosa si intende quando si dice che un oggetto esce dal suo ambito ?
Cioè l'esecuzione del codice oltrepassa il metodo o la classe dove è 
definita la variabile , cioè il suo ambito?
grazie e ciao 

 definita la variabile , cioè il suo ambito?
Esatto, ma l'ambito di visibilità non dipende solo dalla posizione dove 
è dichiarato un oggetto. Dipende anche dagli specificatori, tipo 
private, public, friend ecc.
-- 
news:it-alt.comp.software.openoffice : Il newsgroup dedicato a
OpenOffice.org, la suite open source di applicazioni per ufficio.
Saluti, VITRIOL

Newsgroup: it.comp.lang.visual-basic
Titolo: Query SQL ??

Qualcuno sa come posso risolvere un piccolo problemino ?
Ho un archivio clienti, di cui la metà attivi (nel senso
che ci lavoro, mentre gli altri sono vecchi clienti)
Nella form posso selezionare se vedere tutti i clienti o 
solo quelli attivi. 
Volevo adesso mettere 2 bottoni Previous e Next, per poter scorrere
i clienti, ma funziona solo se sono in modalità 'tutti i clienti'
nel caso di clienti attivi mi scorre comunque tutti i clienti.
Come comporre la Query SQL sulla tabella ??
 io uso questa nel caso di Next:
id=id+1
select * from Clienti WHERE ID=" & id
se aggiungo la clausola dell'attivo non carica nulla e non mi piace
io vorrei invece che mi caricasse il prossimo cliente attivo, anche se 
ha l'ID distante 10 posizioni da quello attuale:
id=id+1
select * from Clienti WHERE ID=" & id & " and Attivo=1
Spero di essere stato chiaro.
Grazie infinite.
Alex
-- 
Posted from 
catania-043-1.ctonline.it
 [212.34.200.57] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

select * from Clienti WHERE ID=" & id & " and Attivo=1
Perché rigenerare il recordset ad ogni spostamento?
Quando tu scegli se visualizzare tutti i clienti o solo quelli attivi,
apri un recordset con una delle due select (a seconda dell'opzione
scelta), quindi nei pulsanti next e prev non fai altro che spostarti al
record successivo o precedente di tale recordset, quindi aggiornare la
visualizzazine dei dati. Ovviamente lo scope dell'oggetto recordset è a
livello di modulo...
Ciao,
Moreno
-- 
#sirri#@#
morenosoft.com#
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

si ma cosě devi tenere aperto il recordset a tempo indeterminato
ci sono alcuni cari colleghi che lasciano aperta una form anche per 3 giorni
e io non posso rinunciare alla compattazione notturna o altri 
interventi del genere.
Ciao e Grazie lo stesso.
Alex
-- 
Posted from 
catania-053-1.ctonline.it
 [212.34.200.67] 


interventi del genere.
Beh, č semplice... si sopprimono tali "cari" colleghi... :-))


> select * from Clienti WHERE ID=" & id & " and Attivo=1
Ma Attivo, che tipo di campo e` ?
Se e` un booleano devi mettere -1 ( true)  invece che 1 ....
BAU!
Newsgroup: it.comp.lang.visual-basic
Titolo: Sommatoria Crystal Report

Ciao a Tutti.
Ho un problema con crystal report 4
Immaginate di dover realizzare un report del tipo :
                                                                Saldo
Descrizione        Dare        Avere        Progressivo
Vendita                100                                    100
Acconto                                 50                      50
Vendita                200                                    250
Acconto                                150                   100
Come ottengo il saldo progressivo???
Ho provato a vedere gli esempi di crystal report ma non c'č niente che si
avvicini a questa problematica.
Potreste aiutarmi?.
Grazie

 
Devi usare delle variabili nelle formule e whilePrintingRecords o 
WhileReadingRecords.
Cerca WhileReadingRecords e l'esempio relativo.
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 Cerca WhileReadingRecords e l'esempio relativo.
Innanzitutto grazie per la dritta.
Ho provato proprio con l' esempio riportato in Whileprintingrecords (ed in
effetti avevi ragione, fa proprio al caso mio), ma mi da un errore quando
imposto l'ultima formula)
@extend {detail.QTY} * {detail.DISCOUNT}
@initialize NumberVar Runtotal;
If {detail.ORDERNUM} <> Previous ({detail.ORDERNUM}) Then
 Runtotal := 0
Else
 Runtotal := Runtotal
@runningWhilePrintingRecords;
NumberVar Runtotal;
Runtotal:= Runtotal + {@extend}                        su     questa riga mi
da un errore "č necessario indicare un numero" e il cursore si ferma dopo
l'uguale !!!
Che vor' dě
Grazie cmq.

 
Prova con
Runtotal:= Runtotal + tonumber({@extend})
Perche'? Non lo so.


 Perche'? Non lo so.
Bah, fa niente, l'importante per il momento č che funzioni.
Grazie 1000

Newsgroup: it.comp.lang.visual-basic
Titolo: notrollo inet su due computer in rete

Salve, vorrei sapere se è possibile, come far funzionare il controllo inet
tra due computer con win98se. Sto "tentando" di far un prg. con il controllo
inet, ma per fare le prove devo essere per forza collegato ad internet:
tutto questo costa.
Posso settare il tutto per funionare in rete?


Non mi e' chiaro cosa vuoi fare, ma penso che basti far girare un web server
sull' altro pc.
Ciao
Aldo

 ha scritto nel messaggio
news:95ejou$uq0$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Data Report

controlli per tali dati.
Dettagli è sì il recordset secondario ma il nome da assegnare al datamember
nella seguente query che ti avevo portato come esempio è Fine, cioè, il
recordset strutturato completo.
SHAPE {SELECT * FROM Auto} AS Auto APPEND ({SELECT AutoID, Anno, Costo FORM
Auto} AS Dettagli RELATE AutoID TO AutoID) AS Fine
2)
La prima query select ti consiglio di farla con DISTINCT.
Ad es. SELECT DISTINCT AutoID, Auto FROM Auto.
Questo ti consente di avere solo un record restituito per ogni gruppo, cioè,
se ho 5 Fiat 500 e non metto distinct, creerò 5 gruppi FIAT 500
quintuplicando >:-O il recordset secondario. Con distinct ti restituisce un
record solo (evita infatti le duplicazioni per dati uguali) restituendo un
nr. di recordset secondari corretto.
Ciao e scusa la fretta.
matpascal
(Quando arriverà un service pack per portare a 48 le ore di una giornata [o,
meglio, per ridurre quelle di lavoro a una manciata di minuti :)])
Newsgroup: it.comp.lang.visual-basic
Titolo: [!] #Develop

Rischiando di fare spamming voglio informare il NG che da pochi minuti è
stata rilasciata la ver. 0.91 di #develop
(
http://www.icsharpcode.net/opensource/sd/
).
Penso sia importante questo messaggio perchè sembra che adesso ci sia una
valida alternativa a 
VS.NET
: ora è funzionante sia il form/control designer
che la generazione del codice relativo sia in C# che in 
VB.NET
.
Veramente un ottimo lavoro per un tool gratuito, ben lontano da VS, sia
chiaro, ma per iniziare a smanettare un po' con .NET (e anche qualcosa di
più) è sicuramente un buon modo per non dover sborsare miGliardi :)
Ciao
--
' // Initialize the expression evaluator
Engines.Evaluator = CreateObject("
http://www.neodatatype.net
")
' // you can find resources for and from the NG here!
Me.SitoComune = "
http://www.it-lang-vb.net
"

 più) è sicuramente un buon modo per non dover sborsare miGliardi :)
Sta facendo passi da gigante... ^___^
Sono contento.
-- 
Antonio Cangiano
Webmaster di 
www.visualcsharp.it
free.it.comp.lang.csharp
free.it.comp.lang.vbnet
free.it.comp.lang.aspnet
free.it.comp.lang.delphi
--

 (
http://www.icsharpcode.net/opensource/sd/
).
Wow
E io che mi ero informato per comprare la licenza di vs-net
:-)
va beh, mi sa che quella mi toccherà acquistarla ugualmente, però mi fa
piacere che ci sia una valida alternativa, per una volta mi pare che la
situazione non sia più di monopolio microsoft e questo è bello, anche perchè
è stata proprio microsoft a volerlo.

 più) è sicuramente un buon modo per non dover sborsare miGliardi :)
[SNIP]
Per quelli che volessero fare il "qualcosa di piu'" mi sembra giusto
ricordare che nel framework e' presente anche un debugger (cosa di cui
#develop e' sprovvisto), nella cartella "GuiDebug"
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 #develop e' sprovvisto), nella cartella "GuiDebug"
Questa non la sapevo :)
Dovrò mettermi a fare un convertitore di progetti 
vs.net
<->#D


 Dovrò mettermi a fare un convertitore di progetti 
vs.net
<->#D
Suggerirei spassionatamente di aspettare che diventi un po' meno "acerbo"
in particolare i formati di file (non parlo solo delle form, per il cui
editing visuale e' stato scelto un formato "proprietario", ma anche dei
normalissimi file .vb o .cs), per non so quale inesplicabile motivo, non
sembrano del tutto compatibili...


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

Vorrei sapere come è possibile rinominare un file con VB
Grazie!!!

 ha scritto nel messaggio
news:lCC68.3057$nI1....@twister1.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: eheheh sempre domande....:-)

Eh ...si ....immagino che il NG è pieno di questiti....tanto per cambiare ve
ne pongo io uno....
con il VB5.0 queli sono le linee di codice da usare per assegnare a una
variabile il nome ( percorso ) di un file ( in modo da poter dopo fare
operazioni come copy e tutto il resto , attraveso le BOX di scelta ?
spero di essermi spiegato :-)
se potete rispondermi via mail è meglio e se no cicce! :-)
grazie comunque ciao!

spero di essermi spiegato :-)  [...]
' mettere su un form un pulsante e una CommonDialog
Private Sub Command1_Click()
    Dim MyPath As String
    CommonDialog1.showopen
    MyPath = CommonDialog1.filename
    MsgBox MyPath
End Sub
ATTENTO: è solo una bozza, ti servirà come spunto per lavorarci su.
Usa la guida in linea sul controllo CommonDialog  e su showopen: ci sono i
link per saperne di più.
Ciao
--
-
MIX (VB5SP3)
post...@yahoo.com
110 links ai siti VB
http://www.tempolibero.com/user/mix/
 (consigliato)
http://space.tin.it/computer/gaais
  (alternativo)
-

Newsgroup: it.comp.lang.visual-basic
Titolo: l'oggetto rnd

crea numeri casuali compresi tra 0 e 0,999999999999  ?
 
Quindi se volessi un numero intero random compreso tra 0 e 15 ? (sono i 
codici colori quickbasic)
 
Devo calcolare  16*rnd   ?
 
 
grazie 
 
 

vittorio ha scritto...

Dall'esempio della guida in linea:
 
MyValue = Int((16 * Rnd) + 1)   ' Genera un valore casuale compreso tra 1 e 
16.
 
Certo che in quanto a pigrizia non vi batte nessuno!!! 
 

 ha scritto nel messaggio 
news:528f78f8$0$780$5fc...@news.tiscali.it...

non ce l'ho installato VB6...sto leggendo il codice da convertire,cribbio,mi 
consenta! 
 
 

 MyValue = Int((16 * Rnd) + 1)
 
ma cos� non mi genera mai lo zero!
io ho bisogno tra 0 e 15 .
 
 
 

 io ho bisogno tra 0 e 15 .
 
E' uno scherzo?
 
 
Alberto
 
 

 E' uno scherzo?
 
16*0+1  fa   1  e non zero.
 
 
 

E allora lo modifichi cos�... MyValue = Int(15 * Rnd)... dove st� il 
problema? Che ci vuole????
 
Assurdo!!!
 

 16*0+1  fa   1  e non zero.
 
Mia figlia di 8 anni mi ha appena detto che 16*0 fa zero.
 
Alberto
 
 

problema? Che ci vuole????
 
cos� non ottengo 15 per�(ottengo al max  14,9999999) ;
 
Nei requisiti ho ben specificato che mi serve un intero tra 0 e 15 !!!!! 
 
 

 Mia figlia di 8 anni mi ha appena detto che 16*0 fa zero.
 
Int ( zero +1) fa uno per�. 
 
 

 Int ( zero +1) fa uno perï¿œ.
 
Guarda, se stai scherzando, puoi anche finirla qui perchï¿œ lo scherzo ï¿œ 
riuscito bene, ci siamo cascati.
 
In caso contrario, preoccupati.
 
Alberto
 
 

 cos� non ottengo 15 per�(ottengo al max  14,9999999) ;
 
Mi spieghi come fai a ottenere 14,9999999, o un qualunque numero con la virgola, se al risultato applichi Int()?!
 
e comuqnue, installato o meno, la guida di VB6 è sempre disponibile:
http://msdn.microsoft.com/en-us/library/aa242020%28v=vs.60%29.aspx
Newsgroup: it.comp.lang.visual-basic
Titolo: copiare un file htm su spazio web

possiedo un file su disco fisso e vorrei copiarlo
su spazio web, sullo spazio ho ho infatti una cartella con permessi di
scrittura
accessibile con il comando 
ftp://user:pass...@www.dominio.it/
sapete se e come č possibile?
Grazie

 su spazio web
controllo Inet ( internet transfert control mi pare )

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

Ho computer portatile cosě configurato:
Windows XP
Office 2002
Varie applicazioni aziendali in Access
Devo correggere dei sorgenti scritti in VB5 che utilizzano l'OCX MSCOMM32
(vers. 5)
Ho installato VB5 e quando carico il progetto non riesce a caricare i form
contenenti l'OCX MSCOMM32.
Se provo a reinserirlo, mi dice che non ho la licenza per l'uso di questo
OCX.
Ho provato a registrare manualmente l'OCX, alla fine compare nella lista dei
disponibili, ma quando tento di utilizzarlo mi da lo stesso errore.
Disistallando VB5 ricompare nel sistema MSCOMM32 vers. 6, ma anche provando
ad utilizzare quello mi dice di non avere la licenza d'uso.
Tutti i programmi sono rigorosamente originali e licenziati.
MI date una mano ?
Grazie in advance.
ml


Bye

 Grazie in advance.
Dal sito Microsoft si scarica una patch che risolve questo problema, si
chiama vbc.exe.
Saluti
giachi

 ha scritto nel messaggio
news:uyuKc.17751$5D1.6...@news4.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: non ridete di me, ma non riesco a modificare il record

salve a tutti i partecipanti dell'NG.
io ho un piccolo problema: no riesco a modificare il valore di un campo a
caso di un recordset con ADO...
non ho proprio idea come fare, ho provato con UPDATE, ma mi ha cambiato il
valore del campo in tutti i record...
qualche anima pia puň illuminarmi?
grazie

"pappo" <a.ga@ga.a> wrote in message
news:90h0la$4jt$1...@lacerta.tiscalinet.it...

Se usi un' istruzione sql diretta, il modello e':
UPDATE nome_tabella
SET nome_campo = nuovo_valore
WHERE campo_chiave = valore_chiave_che_identifica_il_record.
Se usi un recordset... come esegui la modifica ?
Ciao
Aldo

Come hai potuto verificare da solo Update salva il valore immesso in tutti i
record.
Per salvare il valore immesso solo nel record corrente devi usare
UpdateBatch.
Ciao Luciano.

Grazie a tutti... veramente gentili...
Antonio


ciao Luciano,
ho provato, ma non riesco ad effettuare la modifica...
saresti cosě paziente da farmi vedere un piccolo esempio?
grazie

Esempio:
  Dim Apertura As New ADODB.Connection
  Dim Rs As New ADODB.Recordset
  Apertura.ConnectionTimeout = 15
  Apertura.Mode = adModeReadWrite
  Apertura.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & NomeDb & ""
  Apertura.Open
  Rs.Open Query, Apertura, adOpenKeyset, adLockOptimistic, adCmdText
  Rs.Fields("Prova") = "Prova"
  Rs.UpdateBatch
  Rs.Close: Set Rs = Nothing: Apertura.Close: Set Apertura = Nothing
- La stringa di connessione è per Access 2000 quindi eventualmente va
cambiata.
- NomeDb è una variabile contenente il percorso e il nome del database in
questione (db senza pw).
- Query è una variabile contenente una query valida.
- Prova è un campo di prova.
Se non vuoi usare una query ma vuoi semplicemente aprire una tabella, allora
sostituisci
- Rs.Open "Tabella", Apertura, adOpenKeyset, adLockOptimistic, adCmdTable
al posto di
- Rs.Open Query, Apertura, adOpenKeyset, adLockOptimistic, adCmdText
dove Tabella è la tabella in questione.
Fammi sapere come va.
Ciao Luciano.
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Utile Tool x IE per cercare Su Google (e nei Gruppi)

Perdonatemi  x l' OT ma mi pare una cosa utile..per velocizzare le ricerche sul Web e sui NewGruops!
Forse molti di voi lo conosceranno già:
http://toolbar.google.com/
Molto utile a mio avviso, serve anche per effettuare ricerche su 
http://groups.google.com/
Ciao SIMO
--
__________________
www.sasim.net
* Vb è relativamente semplice perchè c'è MSDN: Usa F1 !!
* 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/

 ha scritto nel messaggio
news:CAzD7.8939$7A4.5...@news.infostrada.it...


 ha scritto nel messaggio
news:CAzD7.8939$7A4.5...@news.infostrada.it...


 ha scritto nel messaggio news:9rmlh3$ujmav$1...@ID-111402.news.dfncis.de...


 
http://toolbar.google.com/
Grazie per l'informazione.
Restando in tema di ricerche è molto utile anche Copernic:
http://www.copernic.com/products/copernic/basic/index.html
Ciao
---
--
-
Mix
-
--
---


http://www.copernic.com/products/copernic/basic/index.html
Confermo. :-)
Tra l' altro ti salva pure le ricerche fatte.
Io mi sono messo la sua iconcina nei Quick Launch :-)
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: Matrici

Sto' tentando lo sviluppo di una funzione con matrici dinamiche, ho una
stringa che individua un pagamento che contiene le scdenze tipo
"60-90-120-150" che scompongo in una matrice con la funzione Split ;
Il mio problema e' il seguente:
se tento di assegnare la matrice generata da Split ad una  variabile
dichiarata come
dim str() as string
mi da' errore, bisogna ridimensionarla con redim ( giusto?)
per calcolare la lugnhezza della matrice in uscita da split come faccio se
non so' a cosa assegnarla?
Utilizzare una variabile tipo variant cosi' dichirata
dim str as variant
puo' essere una soluzione?
Mi resta un dubbio, se devo definire di quanti elementi e' composta una
matrice che funzione uso ?
Ciao e grazie
Stefano
PS
Scusate ma ero abituato con Visual Object e la gestione matrici in VB mi e'
ignota

 ignota
VO non lo conosco minimamente.... 8-(
-------
Ciao
Sabba

 For i = 1 To UBound(str)
diventa
 ReDim p(0 To UBound(str))
 For i = 0 To UBound(str)
o meglio
 ReDim p(LBound(str) To UBound(str))
 For i = LBound(str) To UBound(str)
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!

  For i = 0 To UBound(str)
OPS, che sciocco, e pensare che ci ho lavorato per un sacco di tempo....
Chiedo scusa......Ti ringrazio per aver fatto vedere il mio errore
grossolano.... 8-)
--------
Ciao
Sabba

Newsgroup: it.comp.lang.visual-basic
Titolo: Intercettare F1..F10

Vorrei sapere se esiste un'Api per intercettare la pressione di un tasto
F1..F10,
senza includere tanto codice nella mia form!
Grazie......

senza includere tanto codice nella mia form!
Mi dispiace, ma chi vuole programmare deve ancora usare un po' la tastiera
(fortunatamente) :-)
Ciao

Grazie tantisssssssimo!!!!!!!!!!!!!

E per intercettare il Tab?

...


senza includere tanto codice nella mia form!
Se l'hook è "circoscritto" alla form in cui ti trovi, allora vanno benissimo i metodi già suggeriti;
altrimenti cerca sul Sito Comune il programma completo HotKeys o il sorgente di KeyHook.
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
---------------------------------------------------------------------------

L'evento form_KeyUp non viene generato alla pressione del tasto Tab!
Non posso sapere se è stato premuto il tab senza usare le Api?

 wrote in message
8id8n7$cdp$1...@fe2.cs.interbusiness.it...


L'evento form_keypress parte con tutti i tasti normali, ma con il tab non
parte!!!!!
La proprietà Keypreview della form è settata a true!!!!!

 wrote in message
8id9q4$e50$1...@fe2.cs.interbusiness.it...


Grazie
Ciao
Walter


Newsgroup: it.comp.lang.visual-basic
Titolo: Visual basic 6.

Buongiorno a tutti... vorrei sapere dove è possibile acquistare Visual
Basic 6 (online oppure offline :-)).
Ho cercato su vari negozi online, ma ho trovato solo .net!
Grazie.
ALessandro

 ALessandro
idem


non è proprio cosi semplice
ecco cosa mi hanno risposto all'help desk microsoft italia
vb6 learning ---> 
vb.net
 standard cod 046-00747 + cd vb6.0 learning cod
046-00402
vb6 professional --> 
vs.net
 professional cod 659-00859 + cd vs6.0
professional 659-00428
vb6 enterprise --> 
vs.net
 enterprise developper 628-00849 + cd vs6.0
enterprise 628-00444
la prima riga purtroppo dice che se compri 
vb.net
 e fai il downgrade ti
corrisponde alla versione learning di vb6, in pratica non ti serve a niente
in quanto non puoi distribuire programmi.
Non puoi neanche comprare 
VS.NET
 Enterprise Architect in quanto non c'è una
corrispondenza con il vecchio visual studio
ciao

 professional 659-00428
In effetti ho preso il professional....senza pormi il problema...
Alessandro

Newsgroup: it.comp.lang.visual-basic
Titolo: Icona del .exe

Ho un applicativo del quale mi sono creato un pacchetto di installazione con
la Creazione Guidata di Visual Studio 6 SP5.
All'atto dell'installazione l'icona del file .exe è quella standard.
Qualcuno saprebbe dirmi come posso associare un'altra icona nel pacchetto di
installazione che creo?
Grazie.

 ha scritto nel messaggio
news:ba0m8m$ukj$1...@lacerta.tiscalinet.it...

==================
Finestra gestione progetti, progetto1, clik destro, proprietà

*Roberto Rocchi* ha scritto:

Progetto, Proprietà, Crea, Icona (indica un form al quale hai associato
l'icona desiderata)

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Regsvr32 e DLL

Ciao a tutti!
Ho realizzato il mio primo programma,
ho fatto l'installazione (InstallShield) e va tutto bene.
Più o meno.
;)
Quando faccio l'installazione però non mi registra due DLL.
Fin qui poco male. Basta eseguire REGSVR32
Allora io ho Programma.Exe che ha tra i riferimenti DLL1.dll che a sua volta
ha tra i riferimenti DLL2.dll
io eseguo REGSVR32 C:\PATH\DLL2.dll
poi REGSVR32 C:\PATH\DLL1.dll
Su tutti i PC funziona.
Su quello del mio capo no :(
Qualche idea???
CiaoZ
SebaMix


che OS usa il tuo capo? che dice regsvr32 dopo la prima registrazione?
Faber

 che dice regsvr32 dopo la prima registrazione?
Non dice nulla. Cioč, che la prima DLL č stata registrata correttamente.
Poi, quando vado ad aprire il programma e vado ad usare la prima DLL (che fa
riferimento alla seconda) mi si dice che il componente ActiveX non puň
creare l'oggetto... :( Domani ti so dire meglio l'errere, perň!
Grazie!
CiaoZ
SebaMix
Newsgroup: it.comp.lang.visual-basic
Titolo: API grafiche e costanti colori di VB

Ciao a tutti, forse arrivo con la solita domanda stupida, ma ci provo
ugualmente.
E' normale che le costanti dei colori di sistema di VB non funzionanto con
le API ???
Probabilemente la risposta è SI.
Allora vi chiedo signori della giuria: come faccio a risolvere questo
problema? Potete darmi qualke dritta?
Grazie,
Pusly

 problema? Potete darmi qualke dritta?
Con questa puoi convertire un colore di sistema in RGB:
Function GetVBSysColor(ByVal vbSysColorConstant As SystemColorConstants) As
OLE_COLOR
' ritorna il valore RGB del colore di sistema dato il colore vb*
    GetVBSysColor = GetSysColor(-(&H80000000 - vbSysColorConstant))
End Function
A te il compito di trovarti la dichiarazione di GetSysColor() :)
Ciao

<CUT>
Grazie 1000, ora la provo.
Saluti,
Pusky


Newsgroup: it.comp.lang.visual-basic
Titolo: Dimensione caratteri

Scusate mi sembra di aver gia' letto questo quesito tempo fa sul NG, ma non
mi sembra di ricordare che avesse avuto una risposta.
Comunque il problema e' questo:
e' possibile sapere nome e dimensione dei font utilizzati da Win per i
messagebox ed altri elementi di sistema?
Cioč quelli che si selezionano nell' "aspetto" delle proprieta' dello
schermo.
Ciao.

Dai un'occhiata alla chiave di registro
HKEY_CURRENT_CONFIG\Display\Settings
Altrimenti potresti ricavare la grandezza a seconda del valore di Screen.TwipsPerPixelX e Screen.TwipsPerPixelY
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)