mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: copiare il contenuto di una listbox in una variabile

Come posso fare per copiare il contenuto di una listbox in una variabile o
in una casella di testo?!?

Se devi copiare l'elemento selezionato:
Dim strVar as string
if lstbox.ListIndex   <> -1 then
    strVar = lstBox.list(lstbox.ListIndex)
end if
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Devo salvare una BMP modificata!

Dopo aver caricato una BMP in una picturebox la modifico e poi la
salvo. Il problema e' che non mi salva le modifiche ma solo l'immagine
originale.
						Grazie

...

Questo perchè se usi i metodi di disegno di una picture box questi verranno
memorizzati solamente sull'immagine della picture e non sulla picture...
Prova a fare una cosa tipo:
Picture1.picture=picture1.image
o forse basta
Picture1.refresh
Il primo sono sicuro che funzioni il secondo non l'ho mai provato...
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: [Meeting & OT] Riconoscimento e indirizzo, + domanda su UDT e DLL

1) Scusate l'insistenza, ma...come ci riconosciamo? Segni segreti, copia di VB originale in mano (allora non verra' quasi nessuno 8-) ), ultimo numero di LE ORE 
(che IMHO deve essere abbastanza difficile da trovare), o altro?
2) (a chi puo' interessare) Ho cambiato azienda, quindi la mia vecchia mail non e' piu' attiva. La nuova e' 
massim...@tiscalinet.it
.
3) Se creo una DLL che ha il solo scopo di esportarmi degli UDT, qual'e' il modo migliore di linkarla ad un programma? Nelle references, usando una 
CreateObject, o altro?
Bye by Massimo 8-]

CreateObject, o altro?
Non puoi esportare UDT da DLL, sia standard che ActiveX.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: visualizza form

Salve a tutti.
Da buon vecchio programmatore QuickBasic (oggi prestato al VB5), volevo
chiedervi se in VB5 e' possibile fare questa operazione :
1) metto dei punti in interruzione al codice
2) mando in esecuzione
3) quando mi fermo al primo punto ( o al secondo ... ) vorrei vedere
l'effetto che ho ottenuto sullo schermo (In quickBasic usavo il tasto F4 che
mi dava lo schermo cosi' come si era modificato )
Per piacere, anche se la risposta e' "NO", gradirei una risposta.
Grazie.

mi dava lo schermo cosi' come si era modificato )
certo, lo vedi sulla finestra del programma che stai eseguendo :)
Non ho mai usato Quick Basic, ma per quanto riguarda l' ambiente di debug
vb e' ottimo. Ti permette di modificare il codice sorgente durante il debug, esplori le variabili
sia della chiamata corrente, sia delle altre che sono ancora sullo stack,
esegui del codice (anche interi loop) sulla finestra di verifica, e, ad ogni passo,
osservi il risultato a video (se c'e' un output ovviamente), utilissima e ' anche la watch window.
Con Debug.Print puoi stampare quello che vuoi nella finestra immediate
Con Debug.Assert puoi far interrompere il codice al verificarsi di particolari condizioni
ciao, hal

 esegui del codice (anche interi loop) sulla finestra di verifica, e, ad
ogni passo,
*********
il problema e' proprio qui.
se per esempio sul mio form c'e' un text1, text2,text3,text4  e command1 ed
io ho queste linee di codice:
Private Sub Command1_Click()
    text1 = 2
    text2 = 4
    text3 = 6
    text4 = text1+text2+text3
End Sub
e metto con F9 punti di interruzione su tutte le linee, quando mi fermo su
text1 = 2 e clicco sulla freccia di prosecuzione (o f5) il programma si
sposta su text2 = 4 :
a questo punto io vorrei poter vedere la form e osservare
che effettivamente il text1 abbia valore 2, e cosi' anche per le altre
linee.
Grazie


linee.
Seleziona la form che sta girando dalla taskbar di windows oppure con Alt+Tab, 
se hai maggior confidenza con la tastiera.
ciao, hal

 ha scritto nel messaggio
news:99kr8v$1ikgv$1...@ID-56381.news.dfncis.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: Font dei menu'

Ciao a tutti.
Come faccio a cambiare il font delle voci di menu in una finestra
(Win95 - VB5 - SP1)? Non mi dite di cambiare il font del form perche'
non funziona. 
Grazie,
Massimiliano Gaudenzi

Lo decidi dalle impostazioni del desktop.
Scusami ma non puo' essere l'unica soluzione. Se apri l'ambiente di
sviluppo (VB5) vedrai che tutte le scritte (compresi i menu') sono in
"Tahoma" a non in "MS Sans Serif" come specificato sulle impostazioni
del desktop. Io vorrei ottenere lo stesso effetto: per i vari
controlli non c'e' problema ma per il menu' non so cosa fare... forse
serve qualche API?
Massimiliano Gaudenzi

Newsgroup: it.comp.lang.visual-basic
Titolo: Salvare un RTF caricato in una RTFBox.

Salve a tutti.
Vorrei che mi aiutaste in questo piccolo intoppo che ho trovato durante
l'editazione di una piccola applicazione. Uso VB5 in modo amatoriale (forse
non merito neanche questo aggettivo) :D.
Nel mio programma ho una RichTextBox con la quale carico (grazie sempre al
vostro aiuto) alcuni files RFT che scelgo da un FileList.
La mia domanda.
1) Come faccio a salvare il file .RTF che ho caricato nel RichTextBox e che
ho modificato?
GRazie a tutti.
*frankyz

 ha scritto

ho provato a mettere un rtb su un form, a cliccarlo 1 volta e a premere f1.
metodi -> savefile:
Salva il contenuto di un controllo RichTextBox in un file.
Sintassi
oggetto.SaveFile(percorso, tipofile)
La sintassi del metodo SaveFile è composta dalle seguenti parti:
      Parte Descrizione
      oggetto Obbligatoria.Espressione oggetto che definisce un oggetto
dell'elenco "Si applica a".
      percorso Obbligatoria.Espressione stringa che definisce il percorso e
il nome del file che riceverà il contenuto del controllo.
      tipofile Facoltativa. Valore intero o costante che specifica il tipo
di file caricato, come indicato nella sezione "Impostazioni".
Impostazioni
Le possibili impostazioni di tipofile sono:
      Costante Valore Descrizione
      rtfRTF 0 (Predefinita) RTF. Il contenuto del controllo verrà salvato
in un file .rtf.
      rtfText 1 Text (testo). Il contenuto del controllo verrà salvato in un
file di testo.
esempio:
Private Sub Command1_Click()
   CommonDialog1.ShowSave
   RichTextBox1.SaveFile CommonDialog1.Filename, rtfRTF
End Sub
Osservazioni
Per scrivere file .rtf, è inoltre possibile utilizzare la funzione Write di
Visual Basic e le proprietà TextRTF e SelRTF del controllo RichTextBox. È
possibile, ad esempio, salvare il contenuto evidenziato di un controllo
RichTextBox in un file .rtf, nel modo seguente:
Open "miotesto.rtf" For Output As 1
Print #1, RichTextBox1.SelRTF

> ho provato a mettere un rtb su un form, a cliccarlo 1 volta e a premere
f1.
Scusa la pigrizia. Cerchero' di provare un poco prima di impegnare i vostri
Byte.
Grazie
*frankyz
Newsgroup: it.comp.lang.visual-basic
Titolo: controllo ocx per divx

salve a tutti,
dove posso trovare un ocx per riprodurre il formato divx?
graize
ciao
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.471 / Virus Database: 269 - Release Date: 10/04/2003

 ha scritto nel messaggio
news:2wSQa.176412$Ny5.5...@twister2.libero.it...

installa il codec, e usa il "Microsoft Net Show Player", lo trovi tra i
componenti di vb
--
Ciao
Alfredo


grazie


 ciao
ehm ho installato il codec ma net show player non c'è tra i componenti.
io uso vb6.


 ha scritto nel messaggio
news:SGSQa.176807$lK4.5...@twister1.libero.it...

come no? io anche uso il 6+sp5 e ci sta
--
Ciao
Alfredo


è quel +sp5 che mi manca, allora.
grazie lo stesso


Newsgroup: it.comp.lang.visual-basic
Titolo: Problema Opendatabase ODBC

Lavoro in Access, vorrei aprire, da codice, un database esterno per
delle modifiche tramite ODBC, ma mi dà errore 3024 (impossibile
trovare file)
Questo è il codice incriminato:
Dim MioDB as Database
Set MioDB = OpenDatabase("PIPPO")
    With MioDB
        .Connect = "ODBC;DSN=PIPPO;UID=;PWD=;DATABASE=PIPPO"
    End With
MioDB= Nothing
Girando sui vari NG in rete ho visto che è un problema già evidenziato
da altri ma non ci sono risposte.
Ho provato varie sintassi oltre a quella sopra ma il risultato non
cambia. Se lascio Opendatabase("") nella seconda riga, mi si attiva la
finestra di dialogo dell'ODBC e riesco a connettermi manualmente ma
vorrei lavorare in automatico.
Se sono nel NG sbagliato o se ce ne sono di più adatti ditemelo pure.
Grazie per l'aiuto
Alessandro

 MioDB= Nothing
CUT
C'è IL NG DI ACCESS.....................
cmq una cosa...per curiosità!
...perchè dopo averlo aperto lo distruggi??? a che serve aprirlo allora!
distruggilo quando non ti serve più no?????
a che serve miodb=nothing..!!!! mah!

 a che serve miodb=nothing..!!!! mah!
Grazie, proverò sul NG di Access.
P.S. Prima di MioDB= Nothing ho tralasciato del codice (in effetti
potevo benissimo tagliare anche quella riga)
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto per Favore: Selezione Recordset (URGENT)

Ciao a tutti, ecco il mio problema
dovrei creare una Query, è un po' complicato da spiegare cosi
vi faro' un esempio:
Tre tabelle
CUSTOMER
idcust
name
ORDER
idcust
idord
product
ORDDETAILS
idord
special
qty
price
I dati di esempio delle tre tabelle sono
CUSTOMER
idcust    name
1	  clinton	
2         kennedy
3         washington
ORDER
idcust	idord	product
2	1	prodA
3	2	prodB
ORDDETAILS
ordid	special	qty	price
1	FREE	2	10
2	DISC	1	20
Il risultato della query dovrebbe essere il seguente:
idcust	name		special	total
1	clinton			0	
2	kennedy		FREE	20
3	washington		0
In altre parole vorrei visualizzare tutta la tabella 1 e i dati di
tabella 3
che corrispondono a certi valori, se non corrispondono il campo
special e total saranno vuoti o zero.
Con il LEFT JOIN sono riuscito a visualizzare tutta la tabella 1 e
incrociarla 
con la 2 e la tre ma se inserisco la condizione del campo special
mi vengono visualizzate solo le righe estratte con special,
nell'esempio la riga
due.
Potete aiutarmi?????
Grazie
Attilio

 3             washington                          0
Ovviamente se aggiungi il criterio  Where o Having il risultato va a farsi
benedire e continui ad ottenere una sola riga, da qui non credo che se ne
esca, poichè lo schema relazionale e la logica dell'sql non te lo permettono
(almeno credo) .
io ho risolto così:
SELECT Customer.idcust, Customer.name, IIf([Special]="free",[Special],"") AS
Specials, Sum(IIf([Special]="free",[Price],0)) AS prices
FROM (Customer LEFT JOIN [Order] ON Customer.idcust = Order.idcust) LEFT
JOIN OrderDetails ON Order.Idord = OrderDetails.idord
GROUP BY Customer.idcust, Customer.name, IIf([Special]="free",[Special],"");
Ogni volta che esegui la query  (unicamente da codice) sostituisci le parti
tra virgolette con delle variabili che imposti di volta in volta con il
valore che ti serve, il tutto è chiaramente rallentato dalle "IIF" ma se
filtri bene i record e aggiungi tutti gli indici e le chiavi necessarie non
dovresti avere problemi.
Io ho provato e funziona, perciò se non ci saranno altri suggerimenti che ti
soddisfano fammi sapere se è andato tutto bene.
(darei anche un'occhiata alla normalizzazione del database, potresti
valutare ad esempio la possibilità di aggiungere la tabella dei prodotti in
modo da non doverli replicare ogni volta nella tabella orderdetail)
In alternativa non ti rimane che prenderti la query, caricartela su un
recordset e generare un'altra tabella testando il campo special.
Fammi sapere, ciao
Axelmet


Hei, grazie della preziosa indicazione, ho provato ieri sera ed ha
funzionato benissimo...ora non devo far altro che inserire i dati
della query manualmente in una DBGrid per poterli far editare
dall'utente (altrimenti non me li lascia modificare) e poi se
modificati, eventualmente scrivere la variazione sulla tabella
originale.
Grazie ancora
Attilio
Newsgroup: it.comp.lang.visual-basic
Titolo: Codice riutilizzabile per più controlli

Vorrei sapere se è possibile riutilizzare la stessa procedura per più
controlli.
Es: Una sub fà riferimento, al suo interno, ad un controllo Text1. E'
possibile usare la stessa per facendo riferimento ad un controllo Text2? Per
quanto ne so non è possibile passare ad una procedura un controllo. Esiste
qualche altro modo?
Grazie a tutti.

 ha scritto nel messaggio
news:8a43m0$pko$2...@nslave2.tin.it...


quanto ne so non è possibile passare ad una procedura un controllo.
Perche' no ?
Sub GestioneText( txt As TextBox)
 txt.Text = "prova"
End Sub
alla sub passi il name del textbox
Ciao stefano

controlli.
beh si, hai già due esempi sopra, ti aggiungo questa funzioncina che mi sono
fatto in questi giorni...
Public Sub Scarica(ByRef Oggetto As Object)
    On Error Resume Next
    If TypeOf Oggetto Is Form Then
        Unload Oggetto
        Set Oggetto = Nothing
    ElseIf TypeOf Oggetto Is Recordset Or TypeOf Oggetto Is Database Then
        Oggetto.Close
        Set Oggetto = Nothing
    End If
End Sub
by Faber
Newsgroup: it.comp.lang.visual-basic
Titolo: Creare prog. con runtime la dll del setup

E' possibile

E' possibile
Ah, sì?
Dicci come si fa!
:)
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Problem con listbox

Ciao a tutto il ng, sto facendo una piccola applicazione dove c'è una
listbox (contenente nella lista due valori: SI e NO ) collegata ad un campo
si/no di un database. Il mio problema consiste nel fatto che non riesco,
quando passo da un record ad un altro, ad aggiornarlo (cioè a far passare la
selezione da SI a NO o viceversa). Spero di non essere stato troppo caotico
nel discorso, comunque grazie a chiunque mi saprà dare anche un piccolo
suggerimento.
Mirko



Supponiamo che il campo del DB non ci siano valori "Sì/No" ma "0/1" (molte volte infatti ho avuto problemi nelle
applicazioni internazionali)
Supponiamo che il campo in questione sia "Campo1" della tabella "Tabella1" del database "Db1" (che fantasia!!!)
dim dbase as database
dim rst as recordset
set dbase=opendatabase("db1.mdb")
set rst=dbase.openrecordset("tabella1")
list1.listindex=cint(rst!Campo1)
dove list1 è la listbox con
No
Sì
molto più semplice, vero?
Questo codice lo puoi anche utilizzare con un controllo data:
Private Sub Data1_Reposition()
	list1.listindex=cint(data1.recordset("Campo1"))
End Sub
Spero di esserti stato d'aiuto.
Ciao,
Moreno
#sirri#@
morenosoft.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Aggiornamento dati di una treeview

Ho una treeview che mi riempie i dati di un recordset (ADO), pero' se io
modifico i record e controllo i nodi secondari (riempiti da recordset) del
recod che ho modificato, non sono aggiornati. devo chiusere e riaprire il
programma, qundi funziona.
Ce' un modo per fare un refresh dei dati?
ho gia' provato con recordset.requery, ma non funziona, e' come se i valori
gli rimanessero in cache...
Grazie mille

se i dati li prendi da un database non penso che ti permetta di fare la
requery, perchè non sa dove prendere i dati, prova a creare una funziona
dove scriverai il codice di caricamento del treeview, poi quando devi
aggiornare non fai altro che pulire il treeview e richiamare la funzione che
carica i dati.

Newsgroup: it.comp.lang.visual-basic
Titolo: Millenium Bug... nel mio programma!!

Ciao a tutti ... sto sviluppando un programma che č affetto del millenium
bug :-)!!!! A parte gli scherzi... ho creato il database con access 97 e ho
un campo di formato data, solo che non trovo la data con l'anno a 4 cifre
!!! Come faccio ?...
Cioč, trovo solo : gg-mm-aa... ho bisogno invece di gg-mm-aaaa
ovviamente!...
Esiste una patch dell'access o un metodo per crearsi un campo con maschera
di questo tipo ??
Ciao e grazie

ehm, perchè non scrivi a mano gg/mm/aaaa?
Ti assicuro che funziona...
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

un campo di formato data, solo che non trovo la data con l'anno a 4 cifre
Guarda che la data di Access 97 e' a 4 cifre!
Se vuoi vederla nel formato che vuoi leggiti le specifiche
dell'istruzione format.
----------------------------------------------------------
Paolo Hölzl
Metis Informatica s.a.s technical manager (Ferrara)
----------------------------------------------------------
ATTENTION!, antispam 
For reply, substitute xxx.xx with 
tin.it

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

Spero che qualcuno sia cosi' gentile da aiutarmi, perche' ho fatto un po' di
prove ma non sono riuscita a venirne a capo.
Il mio problema e' il seguente:
Ho due tabelle, la prima con campi codice,descrizione,totale; la seconda con
campi codice (relazionato alla prima tabella) e importo.
La seconda e' un dettaglio della prima, con n possibili record riferiti al
medesimo codice.
E' possibile, tramite una query, aggiornare i totali della prima tabella con
il totale dei campi importo della seconda (ovviamente con codice
corrispondente) ?
Spero di essere stata chiara e ringrazio fin d'ora chi mi dara' una mano,
magari con un esempio.

magari con un esempio.
Io ho fatto delle prove con Access 97 e dopo aver provato e riprovato
(per fortuna che su Access si può fare in modo "interattivo") sono
riuscito a creare due tabelle e una query che aggiorna il totale come
vuoi tu. Se hai Access 97 ti posso mandare l'.mdb che ho creato (sono
solo 84 kb).
Ciao.
Mario 
mar...@ntt.it

Sě, utilizzo proprio Access 97 e mi sarebbe molto utile se mi spedissi
l'.MDB che hai creato.
Grazie mille, Simonetta


Se non ricordo male esiste una funzione SUM(campo) che permette di fare ciò
che ti serve con SQL
Ciao, ciao
 
dan...@goldnet.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Ordine dei campi in un recordset

Salve a tutti, ho un problema a cui non riesco a trovare soluzione
neppure guardando vecchi post... (mah forse ho guardato male....).
La mia esigenza è quella di salvare in un file un recorset con un
record per poi successivamente aprirlo ed aggiungerci un altro record e
così via per n volte.
Il codice che uso per salvare il recorset in un file è:
recRipSto.Save "C:\Fatture\recFat", adPersistADTG
mentre quello per aprire il recordset dal file è:
recFat.Open "C:\Fatture\recFat", , adOpenKeyset, adLockPessimistic,
adCmdFile
Ora, se io ho un secondo recordset e lo voglio aggiungere a quello che
ho aperto dal file faccio:
For KK = 0 To recRipSto.Fields.Count-1
   recFat.Fields(KK).Value = recRipSto.Fields(KK).Value
Next KK
ma mi restituisce l'errore di runtime n. -
2147217887
.
Cercando di capire la causa dell'errore ho visto che l'odine dei campi
nei due recordset cambia e non sono riuscito a trovarne la logica.
Perchè?
Come posso fare a far si che l'ordine rimanga uguale nei due recordset?
Grazie a tutti.

 Come posso fare a far si che l'ordine rimanga uguale nei due recordset?
Prova ad usare il nome, ovviamente i due recset devono avere la stessa
struttura, oppure RecRipSto può avere meno campi teoricamente.
Poi sinceramente non so se un'assegnazione diretta in quel modo può dar
problemi.
dim sFieldName as string
For KK = 0 To recRipSto.Fields.Count-1
  sFieldName= recRipSto.Fields(KK).Name
  recFat.Fields(sFieldName).Value = recRipSto.Fields(sFieldName).Value
Next KK
-- 
DBMS Firebird
VB6 + Ado

Andrea [Work] ha scritto:

Grazie, sembra che funzioni. Mi perdevo nel classico bicchier d'acqua.
Grazie ancora.

Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO API !!!!

ciao a tutti
Qualcuno sa dirmi come posso eliminare/modificare il menů a tendina che esce
quando clicco su una textbox.
Grazie a tutti per l'aiuto
Ciao bodo


E' uno "sporco" trucco quello che ti propongo, ma funziona ed il fine
giustifica i mezzi.
In + senza usare neanche mezza API !!!!    ;-))
Nell'evento MouseDown della textbox metti questo codice :
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
    If Button = vbRightButton Then
        Text1.Enabled = False
        Text1.Enabled = True
        PopupMenu MyPopup
    End If
End Sub
Chiaramente si presuppone che hai creato un menu' PopUp di nome MyPopup.
Fammi sapere, xche' se non dovesse andarti bene passiamo sul pesante, con
l'utilizzo delle API !
Ciao
Ven.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?2] cambiare la lingua nel programma di installazione

Vorrei sapere come si puo' cambiare la lingua al programma di installazione
del mia applicazione in modo che sia completamente in inglese, e quindi
internazionae. Ho completato il mio programma e devo inviarlo in Germania ma
ho questo problema da risolvere.
Ringrazio anticipatamente tutti gli amici che avranno la pazienza di
rispondermi

 ho questo problema da risolvere.
Prova a vedere nel sito comune, nella sezione FTP.
Altrimenti nel sito di Microsoft.

rispondermi
Ci ho perso parecchio tempo e pazienza anch'io sul problema, ma la cosa è
molto semplice:
Sul CD di VB c'è una dir:
H:\Common\Tools\VB\PDWizard
dove troverai un po' di lingue per il setup.
basta che tu sostituisca i files di queste dir a quelli nella originale
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard
ed il gioco è fatto.
Devi solo ricordare che una volta creato il pacchetto d'installazione dovrai
sostituire le seguenti righe al file Setup.lst in modo che corrispondano
alla lingua scelta (altrimenti VB usa la sua)
[Bootstrap]
SetupTitle=Install
SetupText=Copying Files, please stand by.
P.S.: ti consiglio di farti una copia della tua PDWizard.
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Corso di Visual Basic .NET

Conoscete aziende che fanno corsi di formazione su Visual Basic .NET?
Grazie.
Maxfeel.


Microsof! :)
Ok, scherzi a parte, (e sperando che nessuno mi fustighi per la
pubblicità), la Mondadori fa corsi di formazione su una cifra di
linguaggi e sistemi (specialmente Microsoft, in quanto Microsoft
Partner).
Tra gli altri c'è anche 
vb.net
.
Ecco un link...
http://education.mondadori.it/Corsi/ListaRicercaCorsi.asp?cboLineaProdotto=DEV
P.S. NON SO DOVE LI FACCIANO... sono sicuro a Milano perchè partecipai
anche io ad uno dei loro corsi...
-- 
Asso

> Conoscete aziende che fanno corsi di formazione su Visual Basic .NET?
<Pubblicita>
http://education.mondadori.it/
</Pubblicita>
-- 
Corrado Cavalli [Microsoft .NET MVP-MCP]
UGIdotNET - 
http://www.ugidotnet.org
Weblog: 
http://blogs.ugidotnet.org/corrado/
Newsgroup: it.comp.lang.visual-basic
Titolo: Access 2000 e DAO.

Salve ed auguri al N.G.,
molto ho letto sull'uso di ADO per db Access 2000 ma volevo chiedere se era
possibile usare i DAO per accedere a DB di Access 2000 e se possibile come
fare, perchè volevo convertire alcuni programmi già realizzati all'uso di db
Access 2000.
Grazie.

Ciao Massimiano Luca.
Con queste informazioni di mamma MS dovresti saltarci fuori:
같같같같같같같같같같같같같같같같같같같같같같같같같같같같같같같같같같같같같같
같같같같같같같같같같같같같같
The information in this article applies to:
Microsoft Visual Basic Professional and Enterprise Editions for Windows,
versions 5.0, 6.0
Microsoft Access 2000
----------------------------------------------------------------------------
----
SYMPTOMS
If you try to gain access to an Access 2000 database, you might experience
one of the following errors within your Visual Basic program:
If you are using ADO (or the ADO Data Control):
Run-time error -
2147467259
 Unrecognized Database Format XXX
If you are using DAO (or the DAO generic Data Control):
Run-time error 3343 Unrecognized Database Format XXX
CAUSE
Access 2000 uses the Jet 4.0 engine, which creates Jet 4.0 format database
files. Jet 3.50 components would not recognize such a format.
If you are using ADO, you get error -
2147467259
 when you try to connect to
your Access 2000 through the "Microsoft.Jet.OLEDB.3.51" provider.
If you are using DAO, you get error 3343 above when you use the "Microsoft
DAO 3.51 Object Library."
The DAO generic Data-Control does not work against Access 2000 databases,
and always generates error 3343 unless used as instructed in the RESOLUTION
section of this article. This occurs because this control is based on Jet
3.51 and only recognizes Jet 3.51 (or before) database formats.
RESOLUTION
For ADO (or the ADO Data Control), use the "Microsoft.Jet.OLEDB.4.0"
provider.
For DAO, go to Project menu, and choose References to use the "Microsoft DAO
3.6 Object Library."
If you use the generic Data-Control, you need to open a DAO 3.6 recordset
and then assign it to be the source of the Data Control as follows:
Option Explicit
Private daoDB36 As Database
Private rs As DAO.Recordset
Dim sPath As String
Private Sub Form_Load()
sPath = _
"C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb"
Set daoDB36 = DBEngine.OpenDatabase(sPath)
Set rs = daoDB36.OpenRecordset("Customers")
Set Data1.Recordset = rs
End Sub
같같같같같같같같같같같같같같같같같같같같같같같같같같같같같같같같같같같같같같
같같같같같같같같같같같같같�
Newsgroup: it.comp.lang.visual-basic
Titolo: reboot pc da applicativo in vb6 pof.

saluti.
qualc uno mi saprebbe come al termine di un'applicazione in vb 6 lanciare il
reboot forzato del sistema ???
grazie

Devi usare un API, ti incollo un pezzo di codice.
Private Declare
Function ExitWindowsEx Lib "user32" ( _
ByVal uFlags As Long, _
                                            ByVal
dwReserved As Long) 
                                            As Long
Const ewx_shutdown = 1
Const ewx_reboot = 2
Const ewx_logoff = 0
Const
ewx_force = 4
' riavvia il pc
ExitWindowsEx ewx_shutdown, 2
Saluti...
--------------------------------
Inviato via 
http://usenet.iol.it
 

 wrote in message
news:99d730$agr$1...@fe2.cs.interbusiness.it...


 Saluti...
Questo non funzionerà però su WinNT/2000... :)
Byee
Zeross

Newsgroup: it.comp.lang.visual-basic
Titolo: A control better than MSFORMS for attribute/value editing

Hello,
I am looking for a control which allows a user to enter some attribute
values which has a similar look and feel to the Visual Basic/Visual C
properties editor for a control.
i.e. on the left there are a list of attributes, on the right there are a
list of values.
The other objective is to allow an admin to add an attribute row to this
control.
I have used MSFORMS2.DLL extensively, but this seems to come up short.
I need something free and something which can be embedded in a dialog/form
in Visual C++.
Please send any response to 
chi...@integware.com
Thanks
Dave

Web Master,
The following aren't free, however see 
www.componentsource.com
 for:
smartUI (usable only in VB6)
VSFlexGridPro7 (one of their samples is a prop editor)
--A
Newsgroup: it.comp.lang.visual-basic
Titolo: Passaggio da Vb4 a Vb6

Salve a tutti. Di solito non scrivo su questo gruppo, quindi immagino che
questa mia possa finire nelle FAQ. Oltretutto non e' nemmeno una mia
domanda, ma di vari colleghi, quindi vi prego di perdonarmi. Il problema e'
il seguente: in azienda abbiamo numerose applicazioni scritte con varie
versioni del VB, dal vb3 (un po') al vb4 (molte) al vb5 (poche). Per
problemi di anno 2000 et alia, si sta prevedendo il passaggio al Vb6. Quanto
di quello che e' scritto in vb4 si salverebbe? Ci sarebbero modifiche
pesanti da fare ai sorgenti? Tipicamente le applicazioni si interfacciano
con RDBMS Oracle via ODBC o a DB Access, (le procedure in Vb4, quelle piu'
interessanti per noi, usano DB in Access 2). A parte il passaggio a diversi
RDBMS, QUALI sarebbero le principali modifiche da fare?
Non sto chiedendo un surrogato del manuale, ma solo delle "dritte"
fondamentali. Ad es. se devo cambiare tutte le Date in NuoveDate forse non
coverrebbe trasportare tutto in VB6... voi cosa ne sapete?
Scusate per la domanda, forse un po' scontata, ma come detto non frequento
questo newsgroup di solito, pur conoscendo il vb, e sono qui "di straforo".
Gradirei risposte anche in email a:
lpat...@hotmail.com
Grazie ancora, in anticipo, e scusate il disturbo.

vb4 è compatibile all'anno 2000 (lo dico per esperienza personale,
perlomeno ho simulato l'anno 2000 è i programmi si sono comportati
egregiamente), mentre Access 2 non è compatibile all'anno 2000 (per
sentito dire, ma se vai al sito della microsoft dovresti trovare, non so
come, una lista dei programmi compatibili o no con il nuovo anno).
Per quanto riguarda vb3 non so se sia compatibile, ma credo sinceramente
di no visto l'età che ormai si porta dietro.
Ciao!
-- 
May
---------------------------------------------------------
MaySist...@lycosmail.com
Togliere MAYBE
ICQ_UIN: 27234690
---------------------------------------------------------
"L.P." ha scritto:


mentre Access 2 non è compatibile all'anno 2000
Esatto
--
Roal Zanazzi
z...@iol.it

Esatto
Esatto! Infatti il problema e' proprio Access 2. Il passaggio al VB6 era
solo una questione di "comodita'": bisogna upgradare il DB, e passare a VB5
TUTTE le applicazioni per omogeneita'. Visto che ci siamo, conviene passare
a VB6, cioe' possiamo fare un salto di 2 major release (da 4 a 6) senza che
si incasini tutto? Se qualcuno ha esperienza in merito lo posti, plz :D
Newsgroup: it.comp.lang.visual-basic
Titolo: Come portare in primo piano una label

Innanzitutto vorrei ringraziare tutti quelli che mi hanno aiutato
rispondendo ai miei messaggi di ieri.
Vorrei anche porre un nuovo quesito:
Io ho un form di pixel 800*600 e una immagine che rendo visibile premendo un
dato pulsante piuttosto che con un timer che è anch'essa 800*600. Dopo un
tot di secondi che quest'immagine è sullo schermo dovrei far apparire una
scritta. Il problema è che questa scritta non è visibile: E' come se
restasse sotto all'immagine (se infatti chiudo l'immagine la scritta è al
suo posto).  Ho provato sia utilizzando un controllo picture che image ma il
risultato è lo stesso. Su picture la proprietà fillstyle è =trasparent....
Grazie
Paolo

 ha scritto


se la scritta e' in un'etichetta,
dovrebbe andare:
    Label1.ZOrder
ciao, a.

risultato è lo stesso. Su picture la proprietà fillstyle è =trasparent....
Se utilizzi un controllo "Image", allora basta un:
Label.ZOrder
Oppure puoi settarlo direttamente da design-time (tasto destro del
mouse sul controllo, "Bring To Front").
Se invece hai usato un controllo "Picture" (ahia), allora il discorso
e' differente.
In quanto un controllo Label non potra' mai star sopra ad un controllo
Picture.
Nella visualizzazione, alcuni controlli di Visual Basic hanno
priorita' rispetto ad altri.
Puoi settare tutti gli ZOrder che ti pare, ma non risolverai mai la
faccenda.
La soluzione in tal caso e' banale, sostituisci il tuo controllo
"Picture" con un controllo "Image".
Un controllo Image, inoltre, e' anche MOLTO piu' leggero di un
controllo Picture.
Se per qualche ragione, pero', tu fossi obbligato ad usare un
controllo "Picture", allora ti conviene mettere un controllo "Frame",
(Flat, Senza Bordo, Senza Caption) e metterci dentro quello che vuoi
che venga visualizzato SOPRA la picture.
Un controllo Frame puo' esser posizionato sopra un Picture.
L'unico inconveniente e' che cosi' facendo ti perdi qualunque tipo di
"Trasparenza" del testo.. Non so se mi spiego.
Una Label puo' aver il background trasparente, un Frame no.
Spero di esserti stato d'aiuto!
--
C'ya, 
  |
  |
'/|\'
\\O//
//"\\
'\ /'
________________________________________TagLine___
"Quanti Angeli danzano sulla punta di uno spillo?"



Prova a settare il font che ti pare ( sto parlando della picture) col colore
che ti pare
e con picture1.currentx e currenty ti posizioni alle coordinate che ti pare
e poi
con picture1.print scivi direttamente sulla picture evitando anche di usare
un controllo.

risultato è lo stesso. Su picture la proprietà fillstyle è =trasparent....
Un label non può stare sopra una picture, ma può stare "dentro".
Ciao.
Newsgroup: it.comp.lang.visual-basic
Titolo: Info: Salvataggio di file su disco

Ciao a tutti.
E' da poco che mi sono avvicinato al mondo VB e ne sono affascinato, però ho
un problema da ... novellino.
Come faccio a copiare un file da hard disk a floppy ?
In pratica con un programmino personale vado a leggere/scrivere su un
database presente su HD; una volta aggiornato questo, ho la necessità di
trasferire il file d'archivio su floppy tramite un pulsante 'command'
presente nel programma.
Ringrazio coloro che vorranno darmi questo prezioso suggerimento.
Massimo
m...@fastnet.it

Guarda FileCopy nella guida di VB

Grazie Gian Luca,
la tua risposta mi è stata molto preziosa ed ho risolto il problema anche se
per cercare la corretta forma ho dovuto consultare la guida in linea di VB4,
mentre invece uso VB6 (la sintassi è risultata lievemente diversa). Infatti
la guida in linea di VB6 (su CD) non è in italiano, ma in francese. Sai se
esiste l'MSDN in italiano su CD?
Scusa se ti faccio perdere dell'altro tempo prezioso inviandoti questa
e-mail, ma purtroppo non conosco nessuno che mi sappia fornire questa
risposta, neanche il negoziante.
Ciao da Max

esiste l'MSDN in italiano su CD?
Mi spiace, non ne ho la piů pallida idea.
Non ho mai fatto uso dell'MSDN.
Ma chiedi in questo NG, ho letto che diversi ne fanno uso.
Ciao
GIAN LUCA DEI
---------------------------------------------------------------
E-mail1: 
g...@caen.it
E-mail2: 
luca...@tiscalinet.it
HomePage: 
http://club.caen.it/paginepersonali/gld/
---------------------------------------------------------------
Software utilizzato (ORIGINALI):
* Windows 98 (IE4)
* Visual Basic 5 (SP3)

c'è, c'è. Anche se non è tutto in italiano. Ma l'help relativo a VB6 si
è in italiano.
E via....
-- 
Ciao
:-) Hd (-:
p_di...@freemail.it
  (okkio, non è politico ^_^)
hd...@azienda.net
Sito Comune:
www.murialdo.it
\it_lang_vb
----------------------------------------------------------------------------
Quando l'ultimo pesce sarà catturato, l'ultima fiamma sarà 
spenta, l'ultimo fiume avvelenato, solo allora capirete che non 
si può mangiare solo denaro.
-----------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Troppi oggetti!!!

Salve a tutti: il mio problema è questo:
se io ho 3 textbox e voglio che alla pressione di un CommandButton si generi
una msgbox che avverte se una di queste è vuota (text1.text=""), come posso
fare senza scrivere per 3 volte di seguito:
if text1.text="" then msgbox
if text2.text="" then msgbox
...
ho pensato a qualcosa tipo dim txt as textbox, ma oltre non sono riuscito ad
andare...
grazie a quanti mi aiuteranno...
Lightspeed.

 ha scritto nel messaggio
news:lTZc5.8651$z%4.9...@news.infostrada.it...


 wrote in message



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

 ho pensato a qualcosa tipo dim txt as textbox, ma oltre non
sono riuscito ad andare...
Chiariamo i termini del problema...
Parli di TRE TextBox e di UNA MsgBox che avverte se UNA delle
TRE TextBox e` vuota, giusto? E se sono vuote DUE? O TRE?
L'esempio che fai sembrerebbe chiarire che in realta` vuoi UNA
MsgBox PER OGNI TextBox vuota.
Ma forse le cose non stanno cosi`... Come stiano realmente ce
lo puoi dire solo tu. Io faccio delle ipotesi.
Le TextBox si chiamano Text1, Text2 e Text3.
1) 3 TextBox, 1 MsgBox che informa sul numero delle TextBox
vuote.
    Dim intCount%
    Dim intIndex%
    For intIndex = 1 To 3
      Let intCount _
        = intCount _
        - Sgn(Len(Controls("Text" & intIndex).Text) = 0)
    Next
    Call MsgBox( _
        "Numero TextBox vuote: " & intCount & "." _
      , vbInformation)
2) 3 TextBox, 1 MsgBox per ogni TextBox vuota:
    Dim intIndex%
    For intIndex = 1 to 3
      With Controls("Text" & intIndex)
        If Len(.Text) = 0 _
        Then _
          Call MsgBox( _
              "'" & .Name & "' e` vuota." _
            , vbInformation)
      End With
    Next
3) 3 TextBox, 1 MsgBox se ALMENO UNA TextBox e` vuota:
    Dim intIndex%
    For intIndex = 1 To 3
      If Len(Controls("Text" & intIndex).Text) = 0 Then
        Call MsgBox( _
            "Almeno una TextBox e` vuota." _
          , vbInformation)
        Exit For
      End If
    Next
4) ecc...
C'e` di che sbizzarrirsi!... ;-)
--
Ciao.
Maurizio

 ti suggerirei di usare una collection Text1(0), Text1(1) e
Text1(2).
Scusa la precisazione. Non e` una Collection ma un Array di
controlli.
--
Ciao.
Maurizio

 wrote in message
8l4euc$b9n$2...@nslave2.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] ComboBox e indici

Innanzitutto grazie per i mille aiuti che mi avete già dato!!!
Vi pongo un quesito sul ComboBox:
Devo riempire i dati di un ComboBox partendo da un RecordSet e lo faccio nel
seguente modo:
i = 1
While i <= mSet.RecordCount
    .Combo2.AddItem mSet![DescrTipo], mSet![IDTipo]
    mSet.MoveNext
    i = i + 1
Wend
Dove [DescrTipo] è la descrizione che appare nell'elenco del ComboBox e
[IDTipo] sarebbe l'Index nel ComboBox, il problema che caricando i RecordSet
(mSet) con un'SQL IDTipo non e' sempre 0, 1, 2, 3, ... ma puo' essere un
numero qualsiasi.
Il mio problema e' che utilizzavo IDTipo perche' mi serviva averlo
memorizzato per altre operazioni che eseguivo all'interno del mio programma.
nella documentazione in linea dice testualmente che "È inoltre possibile
impostare la proprietà Index su un intero diverso da 0 per il primo
controllo della matrice." ma se IDTipo e' (ad esempio) 2 mi da errore di
runtime.
A questo punto, spiegato il problema, mi e' venuto in mente di memorizzarmi
in un'array a parte il campo IDTipo, ma volevo sapere se esistono altre
possibilità, ad esempio caricare due colonne di dati nel ComboBox, ma
visualizzandone una sola !!!
Spero di aver esposto il problema chiaramente!!!
Grazie ancora per il vostro preziosissimo aiuto !!!
Ciaps
Stracca
P.S. Fin'ora ho collezzionato un solo: Vai nel sito comune del NG... c'è
quel che cerchi!
Direi che non e' male per un principiante !!!
P.S.2 Suggerimento al WEBMASTER del sito comune: Fare un POST ogni volta che
c'e' un'aggiornamento sul sito coumne con l'elenco delle cose aggiunte e/o
aggiornate !!!

Prova ad utilizzare la proprietą Itemdata...
i = 1
While i <= mSet.RecordCount
    .Combo2.AddItem mSet![DescrTipo]
    .Comno2.ItemData(i) = mSet![IDTipo]
    mSet.MoveNext
    i = i + 1
Wend
Mauro

Newsgroup: it.comp.lang.visual-basic
Titolo: VB5 e assembler

Devo aiutare un amico a lanciare programmi Assembler da Visual Basic 5,
cosa che lui lo fa tranquillamente in Delfi.
Qualcuno di voi ha saprebbe aiutarci?
Grazie in anticipo.
Roberto  Da Dalt
--
Posted from 
ro...@regolo.cbi.polimi.it
 [131.175.60.2]
via Mailgate.ORG Server - 
http://www.mailgate.org


Se devi usare funzioni scritte in assembler, devi dire al tuo amico di
creare una DLL con Delphi, che contenga le funzioni in Assembler (in Delphi
e' possibile usare l'assembler in-line), perche' in Visual Basic non c'e'
possibilita' di scrivere direttamente in assembler.
Se ho capito male, spiegati meglio, please.
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: run time error 48 impossibile trovere la dll Aiuto

Ciao a tutti,
                il mio problema è che ho fatto un programmino che esporta 
via ftp dei files.
Il programma funziona correttmente su tutti i pc con windows xp, 2000 etc..
Il problema me lo pone con Windows 98
Mi da il seguente errore: run time error 48 . Impossibile trovare 
wininet.dll
Ho installato i run time di visual basic ma nulla da fare!
La dll non riesco a registrarla manualmente!!
COME POSSO FARE?
Grazie a tutti in Anticipo!!
Alberto 

 ha
scritto:

--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 w98 a 2000 cambia la versione
Ce ne sarà una ventina di versioni :-).
http://support.microsoft.com/dllhelp/
 --> ricerca per file.
Alberto, prova a fare "correggi installazione" di Internet Explorer,
o meglio ad aggiornarlo con un windowsupdate.
Bye, G.
Newsgroup: it.comp.lang.visual-basic
Titolo: Portare in primo piano con VbScript

Si può portare in primo piano una finestra con uno script?
-- 
http://midiquiz.altervista.org

 Si può portare in primo piano una finestra con uno script?
set oShell = CreateObject("WScript.Shell")
oShell.run"calc"
WScript.Sleep 500
oShell.run"notepad",3
oShell.AppActivate "Calcolatrice"
WScript.Sleep 500
oShell.AppActivate "Senza nome - Blocco note"
WScript.Sleep 500
oShell.AppActivate "Calcolatrice"
WScript.Sleep 500
oShell.AppActivate "Senza nome - Blocco note"
--
Fosco

 oShell.AppActivate "Senza nome - Blocco note"
Grazie, un granello alla volta mi fate fare interessanti progressi.
Ciao!
-- 
http://midiquiz.altervista.org

Newsgroup: it.comp.lang.visual-basic
Titolo: GRAPH32.OCX: registrazione impossibile ??

Come sapete, dopo aver installato VB5 e si vuole utilizzare programmi
scritti con VB4, occore registrare alcuni OCX (come consigliato anche
da Microsoft sul CD):    regsvr43 xxxxx.ocx
Ebbene, tutto funziona tranne per GRAPH32.OCX. dopo aver lanciato
REGSVR32 GRAPH32.OCX compare una finestra di errore con:
"LoadLibrary("graph32.ocx") failed. GetLastError return 0x00000485"
Questo messaggio compare quando si cerca di registrare un OCX
inesistente, ma GRAPH32.OCX c'è in Windows\System.
NOTA: succede lo stesso su un altro PC su cui è installato VB5.
Chiunque abbia qualche idea, .......
Grazie

 da Microsoft sul CD):    regsvr43 xxxxx.ocx......

Come già spiegato da qualche altra parte del ng, questo tipo di errore
capita se sulla macchina mancano dei file collegati al controllo, tipo
MFC40.dll e C.
Prova a dare uno sguardo.
Ciao
--
Stefano Zamboni
----------------------------------------------------------------------------
----------------
sz...@XXXtin.it
zam...@XXXfreemail.it
Togliere "XXX" per rispondere
----------------------------------------------------------------------------
----------------

inesistente, ma GRAPH32.OCX c'è in Windows\System.
  Probabilmente hai installato solo il GRAPH32.OCX senza le sue
dependancy, quindi cerca i file mancanti ed installa anche quelli.
  Ciao :-)
  Massimo
  Nell'indirizzo, sostituire DIESPAMMERS con MC1258
  In the address, replace DIESPAMMERS with MC1258

Grazie a tutti per i per interventi.
Comunque ho risolto il problema copiando in C:\Windows\System i file
Gsw32.exe e Gswdll32.dll, come scritto nel file Readme.txt nel
direttorio \..\Controls del CD.
Poi ho rilanciato REGSVR32 GRAPH32.OCX e tutto OK !!!!!!!
Trovo questo NG fantastico, grazie alla disponibilità di tutti .....
Newsgroup: it.comp.lang.visual-basic
Titolo: Telnet & Vb

Dovrei integrare a un mio programma telnet
Come posso fare?
Grazie

 ha scritto nel messaggio
news:8mk43d$9m0$1...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: gestione del registro

Salve.
Come posso aggiungere o togliere una voce alla seguente chiave in VB5.0?
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run
--------------------------
Marco Comite
http://www.comite.it/marco
ma...@comite.it
--------------------------

Sul sito comune c'č un esempio completo per gestire il registro.

Newsgroup: it.comp.lang.visual-basic
Titolo: Cercasi SDK di WIN32 (o url da cui scaricare)

come da oggetto

msdn.microsoft.com
 e quindi segui i link per "library"
Saluti, Massimo.

Newsgroup: it.comp.lang.visual-basic
Titolo: problema URGENTE data report

Ho creato un programma in Vb6 che utilizza il DataReport per le stampe.
Quando il programma viene lanciato da dentro vb6 (F5) tutto Ok.
Se invece lancio il .exe dopo qualche stampa il sistema va in crash.
E' come se non riuscisse a chiudere qualche oggetto, eppure vengono tutti
chiusi dopo ogni stampa.
GRAZIE
Andrea
-- 
Posted from 
pop.tiscalinet.it
 [195.130.225.147] (may be forged) 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:3B175A8A...@mail.tiscalinet.it...


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

Ciao a tutti,
In un mio software vorrei inserire una routine di protezione del software
 e, nello stesso tempo, questa dovrebbe consentire un periodo di prova
dello stesso.
Sapete dirmi dove posso trovare qualcosa di già
pronto e in italiano??
Grazie

 ha scritto nel messaggio
news:nvCH5.48015$Nz.14...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] array di oggetti autocostruiti

iao,
mi sono scontrato con la necessità di creare un array (possibilmente
dinamico) di oggetti creati da me: "macchina1" e "macchina2"
volendo posso definirli con una interfaccia uguale ("macchina1 " ha 3
metodi in meno di "macchina2"
comunque sarà l'array misto: alcuni oggetti "macchina1" e alcuni
"macchina2"
mi pongo un quesito irrisolvibile?
thanks 

"macchina2"
Soluzione type-unsafe: dichiari un array di Variant o, meglio, di
Object.
Soluzione type-safe: fai implementare, se la logica applicativa lo
permette (e direi di si', visto che vuoi radunare i due tipi in un
unico array), definisci una interfaccia comune per Macchina1 e
Macchina2 e la implementi per entrambi.
-- 
ciao, un hal di passaggio

Macchina2 e la implementi per entrambi.
Visto che ho ancora qualche minuto, ti aggiungo un esempio:
' Classe con metodi e proprieta' vuoti che fa solo da interfaccia
' da implementare: IMacchinaGenerica
Public Property Get UnaProprieta() As String
	' lascio vuoto
End Property
' fine class IMacchinaGenerica
------------------
' Classe Macchina1
Implements IMacchinaGenerica
Public Property Get SonoUnaMacchina() As Boolean
	SonoUnaMacchina = True
End Property
Property Get IMacchinaGenerica_UnaProprieta() As String
	IMacchinaGenerica_UnaProprieta = "Salve, sono Macchina1!"
End Property
' fine class Macchina1
------------------
' Classe Macchina2
Implements IMacchinaGenerica
Public Property Get QuestaESoloMia() As Boolean
	QuestaESoloMia = True
End Property
Property Get IMacchinaGenerica_UnaProprieta() As String
	IMacchinaGenerica_UnaProprieta = "Salve, sono Macchina2!"
End Property
' fine class Macchina2


Certo che le risposte avute ti facevano schifo eh ?
Non potevi continuare il vecchio thread e dire cosa non andava ?
ciao
Soviet-Mario
CUT

grazie x la prima risposta,
grande! per il secondo post (infatti non avevo aferrato come fare "in
codice")
Aggiungendo oggetti (macchina1 e macchina2) all'array vedo solo le
proprietą dell'interfaccia in comune, corretto?
ho creato: array(10) as lmacchinaGenerica
poi..      set array(1) = new macchina1.... 



non posso che darti ragione; temevo, a torto, che il thread una volta
ricevuto risposta non fosse più rivisitato

Newsgroup: it.comp.lang.visual-basic
Titolo: Generare E-mail

Il mio programma attualmente genera un file dati "es. pippo.dat"
vorrei generare una e-mail ? sapete come posso fare o dove reperire
informazioni in merito ?

 ha scritto nel messaggio
news:8IQk5.50140$dF5.9...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [!] Piccolo bug in ComDlg32.cls (Sito Comune)

Ciao a tutti,
non so se questa cosa e' gia' stata segnalata, comunque ho trovato una piccola
anomalia nella proprieta' FileTitle della classe in oggetto; in particolare in
questo riga di codice, presente nei metodi ShowOpen e ShowSave:
If (p_FileTitle = "") Then p_FileTitle = String$(256, 0)
quello che succede e' che, chiamando 2 volte consecutive (o comunque usando la
stessa istanza di classe) uno dei due metodi, uscendo dalla seconda chiamata la
proprieta' FileTitle puo' risultare troncata; questo succede sistematicamente
se, durante la *prima* chiamata, viene selezionato un file con un nome *piu'
corto* di quello selezionato nelle successive (in quanto p_FileTitle non viene
ridimensionata).
Un semplice rimedio e' quello di sostituire la riga incriminata con:
p_FileTitle = p_FileTitle & String$(256 - Len(p_FileTitle), 0)
in modo da aumentare sempre il buffer a 256 caratteri senza sovrascrivere il
valore precedentemente memorizzato.
Ciao
--
Luca Dormio
luca....@tin.it
luca....@sig-la.com


Anch'io avevo trovato lo stesso problema e l'ho segnalato all'autore (Roal
Zanazzi).
Ma ho risolto senza preoccuparmi di riscrivere il valore precedente:
    p_FileTitle = String$(256, 0)
Ciao,
    Silvio

     p_FileTitle = String$(256, 0)
Infatti subito ho fatto cosi'; poi per pignoleria (mi sembrava strano che Roal
avesse sprecato un "IF" cosi' ;-) ) sono andato a controllare come si comporta
l'OCX e ho notato che, se chiami uno dei due metodi Show e poi esci con Cancel,
la property .FileName viene azzerata mentre .FileTitle mantiene il valore
precedente, il che probabilmente e' sbagliato ma nel dubbio mi sono adeguato...
