mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Funzione Dadediff

La funzione *Datediff* mi consente di calcolare la differenza di tempo tra
due date.
Il mio problema e' che da questo calcolo vorrei poter escludere alcuni
giorni, ad esempio il sabato, la domenica e gli altri giorni festivi.
Mi potreste scrivere una routine adatta allo scopo, dato che non sono molto
esperto di VB.
Ciao e grazie a tutti
Pino



 ha scritto nel messaggio
news:a7kc7i$lrd49$1...@ID-89213.news.dfncis.de...

Non credo che in VB ci sia una funzione "pre-confezionata" che permette di
escludere automaticamente i sabati e le domeniche da un intervallo di date
(se qualcuno mi smentisse, pero', sarebbe una bella scoperta anche per me).
Quindi, se io fossi al tuo posto , dopo aver determinato i giorni
complessivi con la funzione 'datediff', farei un ciclo che conti in
quell'intervallo quanti sabati e domeniche ci sono utilizzando la funzione
'Weekday' (dai un'occhiata alla guida in linea).
Per la questione invece dei giorni festivi (pasqua, natale, capodanno etc.)
credo che l'unica soluzione sia inserire queste date all'interno di una
tabella (o di un vettore) e fare un altro ciclo per verificare se
all'interno dell'intervallo delle date ci sono quei giorni.
Tieni il conto di tutti quei giorni e poi levali dal totale che hai
determinato in precedenza.
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Quale manuale per iniziare?

Ciao a tutti,
             è la prima volta che scrico a questo NG.  Da poco ho
cominciato a smanettare in VB 5 (versione italiana) e vorrei sapere, da
tutti voi popolo di esperti del VB, quale sarebbe un manuale, una guida,
insomma un libro, che fosse utile a chi inizia a programmare in VB 5??
Grazie a tutti coloro che mi risponderanno!!!
Ciao  ;-)
Adriano R.

Guarda nella sezione libri del Sito Comune !!!
--
Ciaps
Stracca
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Cerca le risposte alle tue domande sul Sito Comune del
newsgroup it.comp.lang.visual-basic: 
http://www.murialdo.it/it_lang_vb
Magari prima leggi l'Help in linea!
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

 wrote in message
37F72577...@interplanet.it...

Microsoft Visual Basic 6.0 - Manuale del programmatore
Se non sbaglio te lo danno gratis com la licenza completa di Visual Basic
Non te lo danno invece acquistando la licenza studente
Lo puoi anche comprare in edizione Mondadori 
http://education.mondadori.com
a lire 90.000
Se ti accontenti della versione in formato .doc la trovi sul CD di Visual
Basic nella directory tool
Newsgroup: it.comp.lang.visual-basic
Titolo: Cercare un record.

:-))))))))
Ciao Ragazzi speriamo che qualcuno di voi possa darmi un aiutino.
Sono un novellino di VB5 e non riesco a trovare un record in un DB.
Mi spiego meglio, ho due  db nel primo ho un campo il quale deve
servirmi per cercare un record nel secondo DB.
Il problema sembra facile ho provato sia l'istruzione seek che findlast
e anche con select , il problema è che il campo e che deve servirmi per
cercare il record è integer.
ctrdata.recordset.seek "=" campo   (non funziona va in errore)
ctrldata.recordset.findfirst etc...etc....  ( e nemmeno funziona)
"select * from db where campo=  campo2" (e qui casca l'asino)
come devo fare se il valore registrato in campo2 è di tipo integer e
campo è anch'esso di tipo integer???????????????????????
Vi prego di aiutarmi non risco + ad andare avanti
:-(((((((((((  :-)))))))))))))
 
romano_...@hotmail.com

...

Non so se ho capito bene
prova cosi
C1 = 12
"select * from nome_tabella where campo = " & Trim(Cstr(C1))
Le select sono stringhe ma se il campo è intero questo funziona
Paolo
Newsgroup: it.comp.lang.visual-basic
Titolo: resizing di form e controlli su pc diversi

Ciao a tutti,
ho spulciato il newsgroup per risolvere il mio problema, ma non ho
trovato niente..
Uso VBNET 2005 e sto sviluppando un'applicazione con molti form e
tantissimi controlli, soprattutto label e textbox. Ho notato che
passando dal portatile (dove sviluppo l'applicazione) ad un altro pc
(su cui dovrebbe girare l'applicazione) cambia notevolmente l'aspetto
grafico:
- le form e i controlli sono stati ridimensionati per adattarsi alla
risoluzione del pc di destinazione, ma spesso i form sono visualizzati
fuori dai bordi e non c'è verso di ridimensionarli; faccio notare che
il portatile ha una risolzione di 1280 x 800, il pc di destinazione una
risoluzione di 1280 x 1024 e che la form più grande ha una larghezza
pari a 1000 pixel. in sintesi: perchè se sul portatile ho una form
larga 1000 pixel (campo size della form) sul pc di destinazione me la
visualizza a 1300? non posso fissare una volta per tutte la dimensione
di una finestra (eventualmente anche con form di dimensioni  prossime
alla risoluzione di 800 x 600) e garantirmi che sia sempre grande
uguale?
- i colori dei controlli cambiano da pc a pc: sul portatile ho
un'immagine il cui sfondo è impostato al colore Control, ma sul pc di
destinazione il colore Control è diverso! perchè succede questo?
grazie anticipatamente a chi saprà fornirmi una possibile
interpretazione e/o soluzione,
Daniele

stamattina ho fatto una prova su due pc diversi, su uno di questi c'è
installato VB2005 professional e sull'altro VB2005 express.
Sul primo pc (quello con VB2005Professional, risoluzione 1280x800) ho
creato un nuovo progetto con una form di dimensione stardard (300 x 300
pixel), ho salvato e ho portato l'applicazione sull'altro pc
(risoluzione 1280 x 1024). Il problema è che quando ho aperto il
progetto con vbexpress il form ha una dimensione di 397x 3776!!! Ma
perchè?? Inoltre, se con VBEXPRESS creo una nuova form questa mi viene
creata di 300 x 300...
ho come l'impressione che NET automaticamente scali i controlli in base
alla risolzione, ma io non voglio che questo avvenga... se dico che un
controllo DEVE essere 50 x 100 pixel deve essere così ovunque..
mi è anche venuto il dubbio che l'unità di misura fossero i twips, ma
ho letto che 
VB.NET
 lavora con i pixel.. e i pixel sono pixel, azz...
:-))
Daniele
Newsgroup: it.comp.lang.visual-basic
Titolo: Copia di un file

Ciao a tutti,
Ho un problema: devo fare un programmino (per me un programmone) che
recupera un file da una cartella o da A: (file che mi arriva da diversi
fornitori con nome diverso) e lo copia sempre in accodamento su un unico
file fino a che l'utente non decide di cancellarlo.
Come si fa? Datemi qualche dritta , vi prego
 Grazie
scr...@tiscalinet.it

Risposta in due parti:
- per l'interfaccia grafica (GUI): usa il wizard che ti guida per
inserire menu (File/Open, save....) e ti mette il dialog per cercare i
files su disco, per salvare, ...
- per quanto riguarda il leggere/scrivere:
a) scegli il file da leggere, lo apri e lo scrivi
b) scegli il file SU CUI scrivere, lo apri con modo=APPEND e ci scrivi
sovra.
Naturalmente, leggere e scrivere sui files dipendono da come e' fatto il
file. Se e' ASCII (testo puro), ti basta leggere riga dopo riga e
scrivere la stessa riga sull'altro (tenedoli aperti in simultanea),
oppure puoi leggere tutto il file in un'unica stringa, oppure se e' in
binario ...


Newsgroup: it.comp.lang.visual-basic
Titolo: API DrawText e DrawTextEx

Ciao a tutti, sto cercando di fare un controllo personalizzato
in modo serio ( cosa molto ardua!!).
Se per scrivere uso l'API "TextOut" va tutto bene,
ma questa non mi permette di formattare il testo ed altre belle cose,
ho provato con "DrawText" e "DrawTextEx" ma nonostante il valore
di ritorno della funzione sia "1" non mi scrive assolutamente nulla!!
... Allego la funzione:
Function Scrivi(Testo As String, Rettangolo As RECT, Optional FontName As
String, Optional FontSize As Long, Optional FontWeight As Long, Optional
Italic as Boolean, Optional UnderLine As Boolean, Optional iFlags As Long)
As RECT
    Dim aFont As LOGFONT
    Dim Conta As Integer
    Dim hFont As Long
    Dim Ritorna As Long
    Dim Param As DRAWTEXTPARAMS
    If FontName = "" Then FontName = "Arial"
    If FontSize = 0 Then FontSize = 9
    If FontWeight = 0 Then FontWeight = 400
    If iFlags = 0 Then iFlags = DT_LEFT
    iFlags = iFlags Or DT_CALCRECT
    For Conta = 0 To Len(FontName) - 1
        aFont.lfFaceName(Conta) = Asc(Mid$(FontName, Conta + 1, 1))
    Next Conta
    aFont.lfQuality = PROOF_QUALITY
    aFont.lfFaceName(Conta + 1) = 0
    aFont.lfItalic = Italic
    aFont.lfUnderline = UnderLine
    aFont.lfWeight = FontWeight
    aFont.lfWidth = FontSize
    hFont = CreateFontIndirect(aFont)
    Ritorna = SelectObject(cHdc, hFont)
    Param.cbSize = Len(Param)
    Param.iLeftMargin = 0
    Param.iRightMargin = 0
    Param.iTabLength = 4
    ' la riga sotto funziona...
    Ritorna = TextOut(cHdc, Rettangolo.Left, Rettangolo.Top, Testo,
CLng(Len(Testo)))
    ' le due righe sotto No!!
    'Ritorna = DrawText(cHdc, Testo, CLng(Len(Testo)), Rettangolo, iFlags)
    'Ritorna = DrawTextEx(cHdc, Testo, CLng(Len(Testo)), Rettangolo, iFlags,
Param)
    Scrivi = Rettangolo
    Call DeleteObject(hFont)
End Function
Avete qualche idea?
Werty

 wrote in message
news:8t266a$av2$1...@nread1.inwind.it...






secondo me il problema sta nei parametri che passa 
all struttura rect che deve accogliere il testo
Newsgroup: it.comp.lang.visual-basic
Titolo: ove reprire sorgenti in VB5?

Ringrazio fin da ora per la pazienza a leggermi ed a rispondermi! :-)
Vorrei conoscere qualche link (italiano!) ove scaricare alcuni sorgenti
relativi a programmi di archivio in VB5: in pratica a me serve un programma
che permetta di gestire un archivio alfanumerico composto da 10-12 campi
(es. nome, cognome, tel.) e- soprattutto - ove sia possibile effettuare
ricerche su tutti i campi presenti, indistintamente.
Qualcuno può indicarmi ove reperire tale "listato"?
--
(Guido)

 ha scritto

--
www.comune.modena.it/cittadini/apal/tmp/vbtrix.zip
e' +- un dbms, con mdb access97 e interfaccia vb5sp3. usa dao e gli indici,
e c'e' un'abbozzino di gestione sql
e di relazione fra tabelle
( rima, neanche gozzano arrivava a tanto, si fermava a nietzsche:camicie :)
non e' granche' ma per un'idea d'inizio spero possa servirti.
siti italiani con sorgenti ne ho elencati nella pagina dei links vb al sito
qui sotto.
ciao, a.
http://www.comune.modena.it/cittadini/apal

Newsgroup: it.comp.lang.visual-basic
Titolo: ADODB e Visual Basic 6

Domanda (forse) banale:
Ho un db con due tabelle: una con pochi campi (ANAGRAFICA) e una con molti
campi (SCHEDE), quando tento di modificare tramite codice la tabella con
molti campi mi esce un erroe che mi dice "Query troppo complessa" al momento
che richiamo l'update. se invece uso il controllo adodc (il controllo data x
gli ado, x intenderci) i dati vengono aggiornati normalmente.
Esiste un limite di campi per tabella che ado può gestire? La tabella in
questione ne contiene 46, tutti di testo, variabile, 50 caratteri. Il
database è di tipo ACCESS 7.0 creato a tavolino con VisData.
I cursori che uso sono dal lato Client e la connessione è di tipo
ottimistico.
Dato che l'ocx adodc è un limite x me vorrei sapere se qualcuno può aiutarmi
con qualsiasi tipo di informazioni in suo possesso.
Grazie a tutti

 Grazie a tutti
ecco forse la tua magagna!...
http://support.microsoft.com/?kbid=103429
leggi anche
http://www.donkarl.com/AccessFAQ.htm?/it/FAQ/FAQ7Bug.htm
-- 
Il Wodkino Nazionale è a : 
www.martek.it
Pagina Vb/Bestiario/Lamer Experience :
http://www.martek.it/go.asp?portamia=2
 New Entry nel
bestiario! :-)
---
Messaggio scannerizzato e certificato "Virus free" da AVG free edition.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.771 / Virus Database: 518 - Release Date: 28/09/2004

 ha scritto nel messaggio
news:cjds24$kgm$1...@fata.cs.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con ADO

Ciao,
ho un problema di connessione al Data Base. Quando installo l'applicazione
su un altro pc e la faccio partire il programma si connette correttamente al
db però quando cerco di aprire un qualsiasi recordset mi esce un messaggio
di errore che dice
"Class does not support Automation or does not support expected interface".
Questo messaggio me lo dava anche quando ho tra i references del programma
mettevo ADO 2.0 al posto di ADO 2.1 solo che prima me lo dava subito appena
eseguiva il comando "set dbc = new ADODB.Connection" mentre    ora me lo da
quando inizializzo un recordset.
Qualcuno di voi ha idea di cosa altro devo modificare nel programma?
Da notare che sia con gli ado 2.0 che con 2.1 il programma gira
perfettamente sulla macchina su cui è stato creato...
Grazie

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Indici & Tabelle

Hi Boys & Girls !!
Volevo chiedervi cosa significa questo messaggio che mi tormenta (o meglio
come fare affinchè non si verifichi):
"L'apporto modifiche, non è riuscito perchè si è cercato di duplicare i
valori nell'indice, nella chiave primaria o nella relazione. Modificare i
dati nel campo o nei campi che contengono dati duplicati, rimuovere l'indice
o ridefinirlo per consentire l'inserimento di voci duplicate..."
In pratica ho creato un piccolo database con Data Manager insieme a due
pulsanti che consentono di aggiungere ed eliminare i record.
Il problema è che quando inserisco un nuovo record, e poi mi sposto con le
relative freccette del data manager ecco presentarsi questo msg.
In verità il problema l'ho risolto ricompilando il tutto senza usare Data
Manager
e facendo si che "access accettasse :)" i duplicati, ma il mio cruccio è che
mentre con data manager potevo modificare i record in "tempo reale", in
quest'altra maniera devo eliminare il Record ed riaggiungerlo tutto
modificato!!
Spero di essere stata chiara, è comunque non noiosa!!
Bacilli a tutti !!
(Che palle, sono a letto con la Cinese, speriamo che l'anno prossimo mi vada
almeno meglio con qualche Cubano o Spagnolo :-P)

 Ti auguro tanti spagnoli, i cubani non li conosco a sufficienza (hei,
capiamoci, non sono gay! senza nulla togliere a chi li preferisce .....
affari loro.)
Con il data manager ho avuto lo stesso problema anch'io, non sono riuscito a
risolverlo! :-o
L'unica soluzione che ho trovata è stata quella di preparare il database con
access e successivamente leggerlo e manipolarlo con data manager, questo
pare funzionare!
Se hai notizie migliori fammelo sapere, sono interessato anch'io!
Bye e buona guarigione.
Wild Skin.

Purtroppo cara Ramona devo anch'io associarmi a wildskin (brr....che
nome....  :-)    ),a quanto pare i file di access si riesce a crearli nel
migliore dei modi possibili solo con access stesso!
Forse lo hanno inventato apposta! :-)
Scherzi a parte io mi ci sono impazzito per molto tempo ma alla fine non ho
ceduto, anche se ho usato una soluzione da pazzi:
Un bel file ad accesso diretto che gestisco con tante belle Put & Get!!! Che
Bello!!!!!                :-) :-) :-) :-) :-)!!!!!!!!!

 migliore dei modi possibili solo con access stesso!

Newsgroup: it.comp.lang.visual-basic
Titolo: TaskBar

Salve a tutti,
avrei bisogno di sapere come poso inserire un'icona per richiamare la mia
applicazione dalla task bar di Windows....
Grazie in anticipo.
Roberto.

Sito comune

http://www.it-lang-vb.net/

 ?

 ha scritto nel messaggio
news:RhtK6.5160$2i2.1...@news1.tin.it...


    www.cosafarainelleprossimetre.ore
Perché?
-> GbC
http://www.chiappori.net
http://www.gbcweb.com

È mai capitato, anche una sola volta nella tua lunga 
esperienza, di accedere al sito giusto il tempo di 
scaricare un, e solo un, progetto suggerito?
No, è ipnotico: giri giri giri e click qui, 
e click lì, e link e goback e faq e questo?
ma si, scarico anche questo! e questo? anche!
ma guarda un po' c'è anche questo e quello e
quell'altro.
UUUUUU ma questo lo ho cercato per mesi interi...
Dowload anche di questo e poi basta, giuro, giuro, giuro.
Ma se poi volessi finalmente portare a termine 
quel progetto che ho iniziato 4 anni fa e mi manca
solo la routine per l'accesso al registro EAX
che poi mi tarocca la CPU trifasica, bipolare
(che non so cosa [cut] sia ma rende l'idea)?
Giù anche questo...
E poi guardi il Delta Time; 
mai: DeltaTime LT 100 (minutes)
Tre ore, tre ore non di meno. Sempre.
Ciao
    Adriano


 
OOOPS!! 3 ore = 180 minuti 
Ovviamente sono incorso in questo
biasimevole errore perchè uso il Timer della
MS e non quello del sito. ;-))
Ciao
	Adriano

Urka we...
3 ore per di consultazione...
Il WM (Moreno 'Stakanov' Sirri) sarą contento...
Purtroppo spesso non ho il tempo per farmi un giro nei siti...
Cerco... C'č? Ok, altrimenti esco...
Anzi, non amo i siti in cui c'č troppo da leggere...
Ma Zono punti di vista assolutamente personali...


Newsgroup: it.comp.lang.visual-basic
Titolo: Vero principiante

 Scusate l'ignoranza, ma ho cominciato a programmare in VB per cercare
di realizzare un piccolo ed utile programma per l'associazione in cui ho
prestato il servizio civile.
Devo archiviare dei record in un file. Ogni volta che apro il file lo
scorro col seguente ciclo per capire quanti record sono stati archiviati
e trasferirli in un vettore. Ma il ciclo dà problemi perchè conta un
record in meno.
Qualcuno può suggerirmi un'idea migliore e farmi capire dove sbaglio?
vv = 1
Nattivita = 0
filedb$ = FileAtt
Open filedb$ For Random As #1 Len = Len(att)
Do While Not EOF(1)
    Get #1, vv, att
    If EOF(1) Then Exit Do
    dbattivita(vv) = att
    vv = vv + 1
Loop
Nattivita = vv

Prova ad incrementare il contatore subito dopo la get e prima di uscire dal
ciclo
Ciao Auguri Stefano
Newsgroup: it.comp.lang.visual-basic
Titolo: Gestione Thread

Ciao a tutti!
Ho un problema con i thread, so che sono abbastanza ostici per 
lavorarci...Perň se funzionano correttamente le operazioni passano in 
background senza appesantirmi l'applicazione principale. Ora spiego cosa 
faccio:
Ho un form di avvio cosě composto (solo la parte inerente ai Thread):
 
Public Class FormAvvio
   'Thread
    Public Th_Download As Threading.Thread = New Threading.Thread(AddressOf 
FTP.DownloadFile)
    Public Th_Export As Threading.Thread = New Threading.Thread(AddressOf 
FTP.EsportaCSV)
---------------------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button1.Click
            Th_Download.Start()
            Th_Export.Start()
 
            Dim Th_Merge As Threading.Thread = New 
Threading.Thread(AddressOf FTP.Merge)
            Th_Merge.Start()
End Sub
 
Ora, io faccio partire anche il terzo thread che perň prima di eseguire le 
sue operazioni deve attendere la fine dei primi due, quindi ho pensato:
 
Module FTP
Public Sub Merge()
        'Attendo la conclusione dei due thread
        FormAvvio.Th_Download.Join()
        FormAvvio.Th_Export.Join()
 
        ecc...
        ec...
 
 
Ma a runtime mi diche che i due Thread su cui si sta facendo la join() non 
sono stati avviati, eppure lo start per i due c'č.
E' un cazzata immane, o mi manca qualcosa di piccolo? 
 

 E' un cazzata immane, o mi manca qualcosa di piccolo?
 
Usa un semaforo, come ad esempio un ManualResetEvent, invece della 
join.
 
.m
 
-- 
blog @ //
milestone.topics.it
 
 
 

esempio un ManualResetEvent, invece della join.
 
Grazie del suggerimento, perchè sono riuscito a risolvere!!
Precisamente ho fatto:
-Modificato l'avvio dei thread mettendoli in un ThreadPool
ThreadPool.QueueUserWorkItem(AddressOf FTP.DownloadFile)
ThreadPool.QueueUserWorkItem(AddressOf FTP.EsportaCSV)
ThreadPool.QueueUserWorkItem(AddressOf FTP.Merge)
 
Poi nel modulo FTP ho dichiarato:
Private AutoEvent() As AutoResetEvent = New AutoResetEvent(1) {New 
AutoResetEvent(False), New AutoResetEvent(False)}
 
Poi alla fine delle due SUB DownloadFile ed EsportaCSV ho inserito:
AutoEvent(0).Set()---->Per quanto riguarda la SUB DownloadFile
AutoEvent(1).Set()---->Per quanto riguarda la SUB Esporta CSV
 
E nel terzo thread, all'inizio della sua SUB ho inserito:
WaitHandle.WaitAll(AutoEvent)
 
Così nessun conflitto e tutto funziona regolarmente!
Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo griglia

E' possibile utilizzando il controllo griglia inserire direttamente i valori
nelle celle?
Grazie mille, ciao.


Se stai usando MSFlexGrid non puoi farlo automaticamnte, devi usare un
trucchetto che consiste nel creare una TextBox invisibile di dimensioni pari
alla cella del controllo MSFlexGrid (ovviamente puoi ridimensionarla in
funzione del ridimensionamento MSFlexGrid) e spostare la TextBox in funzione
della casella che selezioni.
di seguito un po' di codice che potrai modificare a piacimento
' Impostazioni generali
Private Sub Form_Load()
    Text1.Visible = false
    Set Text1.Font = MSFlexGrid1.Font
    .......
    .......
    ecc.
End Sub
' Impostazione TextBox = Cella MSFlexGrid
Private Sub PosTextBox()
    Text1.Left = MSFlexGrid1.CellLeft+MSFlexGrid1.Left
    Text1.Top = MSFlexGrid1.CellTop+MSFlexGrid1.Top
    Text1.Width = MSFlexGrid1.CellWidth
    Text1.Height = MSFlexGrid1.CellHeight
    Text1.Visible = True
    Text1.SetFocus
End Sub
' Evento che richiama PosTextBox per intro dati
Private Sub MSFlexGrid_EnterCell()
    Text1.Text = MSFlexGrid1.Text
    Call PosTextBox()
End Sub
Ciao e buon lavoro
JKLJKL :-)

Newsgroup: it.comp.lang.visual-basic
Titolo: R: Eseguibile senza Installazione


Le dll devono stare nella directory di Windows\System altrimenti il
programma non gira a meno che tu non realizzi un programma che sfrutta le
dll stardard di windows inserendo cioč solo oggetti di base tipo textbox o
label

 wrote in message
8ho57u$9...@dante.italia.com...

senza contare che sul computer di destinazione devono esserci o devi portare
anche le librerie di runtime del tuo vb.
Ciao Andrea

No, le dll possono stare dove vuoi, ma le devi registrare
con il programma regsvr32. Se vuoi che il tuo programma
funzioni devi, come minimo, lanciare regsvr32 su tutte
le dll usate dal tuo programma.
Ciao
Andrea


 > label

 >


 
La sintassi è:
 
regsvr32 <percorso della dll>
e serve per registrare la dll nella registry in modo che
il linker dinamico la possa trovare. Si, direi che un
batch puo' bastare. Il comando agisce solo sulla registry,
non sposta le dll e gli ocx. Se vuoi sapere da quali
dll ocx dipende il tuo eseguibile prova a guardare 
quali file sono utilizzati dal package&deployment wizard
(l'autocomposizione di installazioni).
Ciao

Ma una volta registrata la dll, al momento che spengo il PC e tolgo il CD
dall'unità, non è che poi ogni volta che accendo il computer mi dice DLL non
trovata etc.etc.? E come faccio a vedere le Dll utilizzate dal mio
eseguibile tramite l'autocomposizione installazione? Se non erro dovrebbe
far vedere solamente quelle particolari, se creo un form e avvio l'autocomp.
non credo mi faccia vedere qualcosa. Come faccio a vederlo?
Ciao
K

Newsgroup: it.comp.lang.visual-basic
Titolo: Fatture con Crystal Reports.

C'è qualcuno che conosce il sistema per creare tipo dei sottoreport
all'interno di uno report creato con CR per VB4. O meglio: Posso avere
un'idea su come costruire un report fattura stile italiano (1000 e più
informazioni a piè di pagina) superando il problema che incontra CR per
visualizzare i riepiloghi IVA in basso nel documento? Qualcuno l'ha già
fatto?
Grazie.

Lino Magri wrote:

I sottoreport sono presenti in crystal report pro, la versione allegata al
vb4 non li supporta..
Nel mio programma di fatturazione mi sono arrangiato creando delle formule
in cr contenti solo la dichiarazione della variabile (es. numbervar
aliquota1) per contenere il codice iva, l'imponibile e l'imposta per ogni
aliquota (ho limitato a 4 le aliquote per fatt.).
da vb passo i parametri tramite
crfattura.Formulas(1) = "aliquota1=20"
crfattura.Formulas(2) = "imponibile1=10000"
crfattura.Formulas(3) = "iva1=2000"
crfattura.Formulas(4) = "aliquota2=4"
ecc.
prima di lanciare il report.
saluti
Stefano

fatto?
Secondo me conviene stampare i documenti come le fatture senza CR. Se
si usa direttamente l'oggetto printer si ha un maggior controllo sulla
stampa e, tutto sommato, non si impiega molto tempo in più a scrivere
il codice (anche considerando che la prossima volta si potrà riciclare
tutto con poca fatica).
Senza considerare che così la stampa è immediata: i clienti con
macchine "debolucce" non diventano idrofobi mentre aspettano che CR si
decida a stampare.
Ciao
--------------------------------------------------------------------
Fulvio Senore
Eliminate "zz" dall'indirizzo e-mail per scrivermi (spammers...)
Remove "zz" from e-mail address to write me (spammers...)
--------------------------------------------------------------------

fatto?
In realtà si può usare un metodo che non è elegante , ma vista la
macchinosità di CR e l'incompletezza della versione data con VB, è più che
accettabile
Allora basta creare un report basato su un DB creato ad hoc per l'occasione
con tutti i campi che servono. Non so se mi sono spiegato.
Newsgroup: it.comp.lang.visual-basic
Titolo: Seriale HD... di quanti caratteri è composto?

Come da oggetto...

 Come da oggetto...
start > esegui > cmd [invio] > dir [invio]
lo vedi nella seconda riga
-> GbC
www.gbcweb.com
www.chiappori.com

> start > esegui > cmd [invio] > dir [invio]
Si si ma il seriale è lungo uguale per tutti gli HD moderni o antichi, 
IDE, SCSI, SATA e SAS? tutti con la stessa lunghezza?
Grazie!

> Si si ma il seriale è lungo uguale per tutti gli HD moderni o antichi,
Il problema è gestire gli HD con i numeri romani:
II I II VIII-VI I V II
Ad ogni modo:
http://www.google.it/search?hl=it&q=visual+basic+numeri+romani&meta=
;-)
-- 
---------------------------
Mauro Gamberini
http://www.riolab.org/
 


per quello che riguarda i sistemi operativi MS (al momento) pare di si
-> GbC
www.gbcweb.com
www.chiappori.com

>
dimenticavo...
è modificabile, quindi è inutile utilizzarlo come codice univoco...
-> GbC
www.gbcweb.com
www.chiappori.com

A quale seriale fai riferimento?
Per quello software assegnato al momento della formattazione è un numero 
decimale di 10 cifre
Se invece ti riferisci a quello hardware è una stringa di lunghezza 
variabile. 

 è modificabile, quindi è inutile utilizzarlo come codice univoco...
Oltretutto, esistono HD di uno stesso lotto con seriali identici (visto 
in prima persona con lotti di pc Dell), e HD molto vecchi privi di 
seriale.
Ciao
Alberto
-- 
Ho spiegato a mio nipote cos'è il compromesso: se per le vacanze tua 
madre vuole andare al mare e tuo padre invece in montagna, il 
compromesso è che si va al mare, ma il papà può portarsi gli sci.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Subclass di un textbox

Qualcuno mi sa dire come fare per intercettare il MouseUp di un textbox?
A quanto pare questo riceve solo il WM_MOUSEACTIVATE e l'HiWord(lParam) č il
messaggio vero e proprio, ma riesco a ricevere il WM_LBUTTONDOWN ma non il
WM_LBUTTONUP... :(
Perchč? Se lo fa VB dovrei riuscirci anch'io...
Ciao

Perchè? Se lo fa VB dovrei riuscirci anch'io...
Infatti ci si riesce.
Che codice usi?
-- 
ciao, hal

 Che codice usi?
adHook 1.3 sul sito comune.
Sia subclassando il form che il textbox
Ciao

Sia subclassando il form che il textbox
Uhm... abbiamo i sorgenti?
-- 
ciao, hal

 Uhm... abbiamo i sorgenti?
Ovvio, sul sito comune :)
Ah, il programma si limita a fare un
Call adHook1.SetSubclass(Form.hWnd)
Sub adHook1_BeforeMessage
    Debug.Print adHook1.MsgName(wMsg)
End Sub
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 End Sub
Prova a fare un "normale" subclassing della textbox (senza utilizzate
l'ocx). Se riesci ad intercettare il messaggio hai trovato un bug
nell'ocx, altrimenti il problema risiede o in VB o in Windows...
Ciao.
-- 
BSD is for UNIX lovers -- linux is for Windows haters.

Newsgroup: it.comp.lang.visual-basic
Titolo: Passaggio da controlli a codice per gestione dati [lunghino]

Salve gente,
ho dovuto riesumare una vecchia (neanche tanto) applicazione con la quale
gestivo un mdb tramite datacontrol e adodc (non si accettano più di un tot
di critiche, ok?).
Dovendo apportare alcune modifiche ho colto al volo l'occasione per
riscrivere tutto in ADO e tutto senza controlli.
In merito a ciò, data la mia piccola esperienza con ADO, vi chiedo due
cosette...
1) ho preso l'abitudine di chiudere tutte le connessioni ed i rs per esempio
(e neanche qui molti commentini...) dopo aver popolato una griglia
(eccezione per datagrid) o dopo aver aggiunto un record, anche se devo
inserirne altri, dopo l'immissione. Mi conviene invece tenere aperti sia rs
che connessioni?
2)se aggiungo un nuovo record con chiave primaria già esistente, ovvero sto
cercando di duplicarla, mi conviene gestire questa cosa intercettando
l'errore (molto più pratico) oppure controllando prima dell'addnew,
piuttosto che dell'update, se nella tabella esiste già un record con quella
chiave primaria (forse più raffinato?)?
3) semplice curiosità, in termini di prestazioni (memoria, velocità ...) ci
guadagno qualcosina?
Grazie mille a tutti.
Ciao, Marco


Non penso, dato che comunque adodc dovrebbe usare ado già di suo.
Guadagni in elasticità di utilizzo.
Ciao!
Newsgroup: it.comp.lang.visual-basic
Titolo: Form MDI

E' normale
 che se massimizzo (o minimizzo)  un form MDI, tutti i form MDI figli mi si
massimizzano (o minimizzano) di conseguenza ?
O meglio se minimizzo, gli altri Child ritornano nella posizione non
massimizzata...
Sembrano essere dipendenti

 Sembrano essere dipendenti
E` un'impresa familiare! :-) I figli sono anche dipendenti del
genitore-titolare.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

Newsgroup: it.comp.lang.visual-basic
Titolo: Colore della barra dei menu????

In vb 6 come posso fare per scegliere il colore della barra dei menu di un
form e magari anche il carattere???
grazie mille

Che io sappia non puoi: č direttamente collegata alle impostazioni di
windows (pannello di controllo - schermo); puoi cambiare quelle (ma
cambierai TUTTI i menů di tutti i programmi)...

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Fusion code

C'e' qualche anima pia che mi manda i nuovi codici di sblocco per Fusion?
Con i vari keymaker che si trovano in rete non va, probabilmente li hanno
cambiati.
Mi va bene anche se mi date un link dal quale scaricare la versione vecchia,
quella in circolazione verso maggio.
CiaoZ
P.S.
Non fustigatemi per questo mega-ultra OT galattico.

 quella in circolazione verso maggio.
è inutile cercare keymaker
devi cercare i crack dove è inclusa l'applicazione già sbloccata
non saprei dove, ma il softlock (il sistema di protezione che vende
Bit-Arts, che è lo stesso usato per proteggere Fusion) non lo aggiri
facilmente
ciao
xAERO


Io il keymaker ce l'ho solo che risale a maggio/2000.
L'hanno fatto quelli del Core e a loro dire il fantomatico Softlock4 non era
tanto difficile da aggirare. Il problema e' che da maggio ad oggi l'hanno
modificato e i vecchi codici non vanno piu'.
E' ormai una settimana che ho scritto a quelli del Core ma non ho ricevuto
risposta e dubito fortemente di riceverla.
A questo punto le soluzioni sono due:
1) qualcuno che e' entrato in possesso dei codici me li da.
2) qualcuno che ha scricato Fusion verso maggio/giugno me lo manda.
Chi si riconosce in uno degli individui sopracitati scagli la prima pietra,
mi dia notizia della sua esistenza e mi tenda una mano.
CiaoZ da un Polluce soll'orlo del baratro.

Scusa, ma se lo usi l'idea di acquistarlo non è fuori dal mondo.
Parlare di usare sw 'piratato' in un NG di programmatori mi pare a dir
poco fuori luogo, oltre che di cattivo gusto.
Che facciamo, proteggiamo il nostro lavoro e freghiamo quello degli
altri?
Mah...
---
GbC
http://gbc.homeip.net
---

Mah...
SI mi  sa che hai perfettamente ragione. Almeno bisognerebbe fare coma
a Napoli: il malocchio non è vero ma ci credo.......
parafrasando: i crack non esistono però li uso!!!
Robin

Newsgroup: it.comp.lang.visual-basic
Titolo: API per eseguire file midi (Help)!

Ho 16 anni e ho cominciato a programmare con vb5.
Sto lavorando a un progetto ma non riesco a eseguire i file midi.
Ho sentito che si puň fare con le API.
Potete mandarmi un codice di esempio
Grazie

 Ho sentito che si può fare con le API.



Ciao.
Sul sito comune dei programmatori VB, 
http://members.xoom.com/it_lang_vb/
,
nella sezione "Progettati Per Te", puoi trovare un esempio dell'utilizzo
delle Multimedia API, applicate al MIDI.
Spero che ti possa bastare.
Marco Minerva

Newsgroup: it.comp.lang.visual-basic
Titolo: VB5 SP3, si trova ?

Ho VB5 versione enterprise, ho iniziato da pochissimo a lavorarci. Vorrei
sapere se e dove si possono trovare i Service pack e quale è quello più
recente (mi pare, seguendo il NG, di aver capito che si tratto di SP3)
Grazie e chi mi potrò essere d'aiuto.
Alessandro C.

 wrote in message
37af5...@news.dada.it...





Newsgroup: it.comp.lang.visual-basic
Titolo: Visual Basic può...?

Ciao a tutti,
dovrei realizzare un software che legge in continuazione le
informazioni inviate da alcuni sensori collegati al pc. Tali
informazioni in ongni caso non devono essere lette istante dopo
istante ma a intervalli di tempo regolari (piů o meno lunghi).
E' possibile farlo in Visual Basic? O ci sono delle limitazioni?
Grazie,
   Roberto
email: 
ro...@ctonline.it
icq:   47933273 

...


Newsgroup: it.comp.lang.visual-basic
Titolo: gif animate in una form???

ciao a tutti: ho bisogno di un vostro aiuto!! chi di voi sa come far vedere
le gif ANIMATE  in una form di visual basic 6.0??
io metto l'immagine gif ma quando vado su RUN l'immagine rimane ferma!!
ringrazio chi saprą aiutarmi!!


wrote:


 wrote in message
h6655u4v2lvccbc14...@4ax.com...



wrote:


 ha scritto nel messaggio
news:a2rmq7$kf7$1...@lacerta.tiscalinet.it...

vedi un mio post di 10_15 giorni fa  (con codice)
cmq  scomponi la gif  nelle sue immagini quindi attiva un timer a 150 msec
all'interno del timer carica l'immagine in una picturebox
leonello

 ha scritto nel messaggio
news:a2rmq7$kf7$1...@lacerta.tiscalinet.it...

vedi un mio post di 10_15 giorni fa  (con codice)
cmq  scomponi la gif  nelle sue immagini quindi attiva un timer a 150 msec
all'interno del timer carica l'immagine in una picturebox
Private Sub Timer1_Timer()
Image1.Picture = LoadPicture(App.Path & "\" & lettera & Trim(Str(nn)) &
".gif")
nn = nn + 1
If nn > 10 Then
nn = 0
Image1.Picture = LoadPicture(App.Path & "\" & lettera & "0.gif")
Timer1.Enabled = modo
If pronuncia Then
Dim wave As Long
wave = sndPlaySound(App.Path & "\v_" & Label1.Caption & ".wav", 1)
End If
End If
la gif sono lettere dell'alfabeto ed ogni gif e' formata da 11 immagini
leonello

 ha scritto nel messaggio
news:a2rmq7$kf7$1...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: nomi dei file in DOS

Ciao a tutti!
E' possibile convertire percorso e nome file dal formato esteso 
al formato DOS?
per esempio 
C:\Documenti Personali\Prove\questa è una prova.doc
in 
C:\Docume~2\Prove\questa~1.doc
Grazie mille!!
-- 
Inviato da Virgilio 
http://newsgroup.virgilio.it
Filtra gli antipatici, segnala le risposte, segue i thread, e lo fa da web

Faust wrote:
UFFA CHE PALLE
allora anche a te....E PER L'ENNESIMA VOLTA!
esiste una raccolta di API catalogate con esempi
si chiama ALLAPI
ci trovi un sacco di info!
http://www.mentalis.org/
SCARICATELA e guarda quanta roba c'č!
Fatti venire voglia di sperimentare!
dentro troveresti:
Private Declare Function GetShortPathName Lib "kernel32" Alias
"GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As
String, ByVal lBuffer As Long) As Long
Public Function GetShortPath(strFileName As String) As String
    'KPD-Team 1999
    'URL: 
http://www.allapi.net/
    'E-Mail: KPD...@Allapi.net
    Dim lngRes As Long, strPath As String
    'Create a buffer
    strPath = String$(165, 0)
    'retrieve the short pathname
    lngRes = GetShortPathName(strFileName, strPath, 164)
    'remove all unnecessary chr$(0)'s
    GetShortPath = Left$(strPath, lngRes)
End Function
Private Sub Form_Load()
    MsgBox GetShortPath("c:\Program Files\")
End Sub
-- 
Il Wodkino Nazionale č a : 
www.martek.it
Pagina Vb/Bestiario/Lamer Experience :
http://www.martek.it/go.asp?portamia=2
 Quotefix e altro:
http://www.martek.it/go.asp?portamia=4
Usr: ICLVB Pw: amici

 Private Declare Function GetShortPathName Lib "kernel32" Alias
Wodkino bello :-), una volta tanto non mi sento di darti ragione
in tutto.
Tu parti dal presupposto che l'OP debba sapere _cosa_ sta
cercando, cioč in questo caso che esista una chiamata API
che fa questo lavoro. Stai perlomeno supponendo che lui sappia
cosa sono le chiamate API e a che cosa potrebbero servire,
anche se magari non conosce questa.
Ora, se Faust fosse stato un altro, avrei ben capito, ma mi pare
la prima volta che posta, e il beneficio del dubbio gli si potrebbe
anche dare.
Oh, perň dalla seconda volta giů botte, eh ! >:->
Bye, G.
Newsgroup: it.comp.lang.visual-basic
Titolo: riposto - array

Scusate se l'ho rimandato ma non capisco come mai non mi compare nel
newsgroup.
Come posso fare un assegnamento fra due array? Devo per forza assegnare
elemento per elemento?
Grazie
Andrea

Prova cosi:
Dim A as variant, B as variant, ArrayA (10) as integer
ArrayA(0)= 1
A = ArrayA
A(1) = 1
B = A
B(0)=100
?A(0), A(1), B(0), B(1)
Prova a vedere cosa ti stampa print .....
Salve
                    Dbg
Andrea wrote in message


 elemento per elemento?
Con VB "liscio" si, pero' puoi usare l'API CopyMemory cosi':
Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
 (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
e quindi
Dim Array1() As Long, Array2() As Long, i As Long
'popoliamo il primo array
ReDim Array1(0 To 9)
For i = 0 To 9
    Array1(i) = i
Next
'dimensioniamo il secondo come il primo
ReDim Array2(0 To 9)
'copiamo gli elementi da 1 a 2
CopyMemory Array2(0), Array1(0), LenB(Array1(0)) * 10
Ciao
--
Luca Dormio
luca....@tin.it
luca....@sig-la.com

Andrea wrote in message


Grazie mille, funziona!

Newsgroup: it.comp.lang.visual-basic
Titolo: visual basic excel HELP

ciao a tutti,
dopo essermi letto come si fanno le if in visual excel mi piacerebbe
riuscire a fare un controllo su una cella del foglio elettronico esempio:
se la cella C2= 0
nascondi la colonna
qualcuno mi spiega come posso farlo?
grazie in anticipo  ...... visto che ci sono ce un manuale di visual basic
gratuito?
grazie ancora ciaoooooo
enrico

grazie in anticipo  ...... visto che ci sono ce un manuale di visual >basic
gratuito?
gratuito? non so, non credo...

 grazie in anticipo  ...... visto che ci sono ce un manuale
di visual basic gratuito?
Visita il Sito comune:
 
http://www.murialdo.it/it_lang_vb
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
Newsgroup: it.comp.lang.visual-basic
Titolo: VB e licenza

 Scusate se l'argomento sembra ovvio, ma io in merito non ne capisco un
accidente e non ci ho capito granche' nemmeno facendo qualche ricerca.
Mi piace dilettarmi facendo qualche programmino. Sono in possesso di una
licenza studente di VB4 con la quale ho cominciato qualche anno fa. In
seguito ho cercato di acquistare la licenza di VB6 come upgrade, ma mi hanno
detto che non era possibile.
Ora ho realizzato un'applicazione che ho la necessita' di installare su una
decina di computer in tre o quattro sedi diverse.
Cosa devo fare perche' non ci siano problemi legali?
Acquistando una licenza VB.net (del quale sono totalmente all'oscuro) e'
possibile una migrazione delle applicazioni esistenti in maniera indolore?
Grazie dell'attenzione.
 
Giuseppe ©
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Dimenticavo: ho trovato, su 
www.gorilla.it
, Visual Basic .net 2003 Standard
In Italiano -- di Microsoft a 114 euro. Inoltre, sullo stesso sito, nella
sezione LICENZE EASY OPEN, ho trovato un Vstudio 6.0 Pro Cd-kit a 28 Euro.
Di che si tratta?.
Grazie.


 Grazie dell'attenzione.

 Di che si tratta?.
Nel primo caso caso, del normale pacchetto Standard di 
VB.NET
 (licenza e 
supporti CD), nel secondo dei *soli supporti CD* per Visual Studio 6, che 
puoi acquistare se *hai gia'* un contratto di licenza Easy Open (un tipo di 
contratto multilicenza)
Ciao
-- 
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

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

Ciao a tutti, non sono un espertissimo di Vb e database. Vorrei aprire un
mdb fatto con Access 2000
utilizzando Visdata di Vb6.
L' errore che appare è il 3343, facendo una ricerca in rete ho trovato
questa informazione
Microsoft
http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com
:
80/support/kb/articles/Q252/4/38.asp&NoWebContent=1
l' ho applicata alla lettera, però in fase di compilazione mi si presenta il
seguente errore, bloccando la compilazione: Impossibile assegnare a una
proprietà di sola lettura moduleo cmdOk del form frmAddField.
Non ho assolutamente modificato nulla di diverso da quello scritto nel link
sopra.
E' un settaggio del compilatore ?
Grazie

[*Max* : 
cu...@hotmail.com
] ha scritto:

Sinceramente ho avuto modo di usare la versione 6 di VisData, quella già
pronta e distribuita. Non ho mai fatto quelle modifiche sulla versione
precedente.
Puoi indicare il codice riportato nella riga sulla quale il compilatore si
ferma?
Sicuro di aver dichiarato DAO 3.6 al posto di DAO 3.5x e di averlo messo
prima di ADO nei riferimenti?

 prima di ADO nei riferimenti?
Grazie !!!!!!!!! era proprio quello il problema nei riferimenti c'era prima
ADO !
Cmq la versione è la 6.0 credo fosse con il Sp 5
Ciao e grazie ancora
Newsgroup: it.comp.lang.visual-basic
Titolo: Registro di configurazione

Sono uno scarsissimo appassionato di VB ma ho sempre qualche idea per la
testa.
Vorrei sapere come si fa ad andare a settare una stringa di valori in una
perecisa
chiave di registro selezionata da me.
Tenete presente che sono uno scarsissimo appassionato.
Grazie 1000 per l'aiuto. Ciao.
Se volete potete rispondetmi anche via E-Mail 
francesc...@libero.it

 ha scritto nel messaggio
news:WBsU6.6893$fG4.2...@news.infostrada.it...


 wrote in message
9ftn6p$6vl$1...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Scrittura di patch

Ciao a tutti,
il discorso è a dire il vero un po' più generale, non solo finalizzato a VB.
Sapete come si fa a scrivere scrive una patch per un programma? O che
programmi vengono utilizzati?
So di programmi che generano patch in base alle differenze fra il file non
patchato e quello patchato. Mi interesserebbe però un qualcosa di più
"teorico", non un programmino appunto che fa già tutto lui.
Eventualmente sapete indicarmi qualche link a riguardo?!
Grazie a tutti,
Dave

Il 06/11/2003 10.54, Dave scrisse:

http://www.gnu.org/directory/diffutils.html
Ovviamente si tratta di creare patch dei sorgenti, non degli eseguibili.
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

"Dave" vergo' codeste parole.

Io userei delle DLL in modo da poterle aggiornare sostituendole.
Con cordialita'
TF

 TF
Credo che la cosa più logica sarebbe fare un confronto
binario tra il vecchio e nuovo programma e fare un app
che modifica il vecchio file.
In vb si potrebbe convertire in base 64 il codice binario
che differisce tra i due prog, poi inserire il codice in base
64 nella patch(in una var String) e fare in modo che quando
viene lanciata riconverta in binario il codice e poi lo
aggiunga/sostituisca al prog da patchare.
Boh! E' una idea che mi è venuta adesso! Potrebbe anche
funzionare ma credo che la cosa in genere sia un pò più
complessa.
Saluti
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] Numero di form in un MDI

Esiste un modo per sapere quanti form ci sono aperti in un MDI form senza
passare dalla collection forms?
-- 
Roberto Ukmar
Indis S.p.A.

 ha scritto nel messaggio
news:DDeKc.85789$G%.60616@tornado.fastwebnet.it...

---In un Modulo :
Private  iNForm as Integer
Public Property Get FormsLoaded() as integer
    FormsLoaded = iNForm
End property
Public Sub FormAdd
    iNForm = iNForm +1
End Sub
Public Sub FormRemove
    iNForm = iNForm -1
End Sub
--- Nei form MDI Child
Form_Load()
    FormAdd
End Sub
Form_Unload()
    FormRemove
EndSub
Non ho provato il codice ma è molto semplice, quando apri un form aumenti il
contatore, quando lo chiudi  lo diminuisci
Per conoscere quanti form sono stati letti:
debug.print FormsLoaded
...Ma non è più semplice utilizzare la collection Forms ?

 ...Ma non č piů semplice utilizzare la collection Forms ?



Questo forse potrebbe aiutarti?
Potresti passare alla DLL  l' oggetto Forms
NELLA DLL:
Private m_Connect As Object
'Dall' EXE  chiami SET MiaClasse.Connect = Forms
Public Property Set Connect(ByVal Value As Object)
    Set m_Connect = Value
End Property
'Una volta preso l' oggetto forms puoi controllare tutti i form con
MDIChild=true
Public Property Get CountForm() As Long
    Dim a As Form, count As Integer, i As Integer
   'Necessario On Error  perchè la proprietà MDIChild per i form MDI non
esiste
   'quindi si genera un errore
    On Error GoTo skip
    For i = 0 To m_Connect.count - 1
        Set a = m_Connect( i )
        If a.MDIChild = True Then
            count = count + 1
        End If
skip:
    Next
    CountForm = count
End Property
Private Sub Class_Terminate()
    Set m_Connect = Nothing
End Sub
Ciao
Giachi
Newsgroup: it.comp.lang.visual-basic
Titolo: sql server

Salve,
sto effettuando un porting da una applicazione Access ad una VB6 su backend
Sql Server 2000. Qualè la soluzione migliore per la gestione delle tabelle
temporanee?
Ovvero nell'applicazione precedente facevamo uso intensivo di tabelle
temporanee non salvandole sul database per preservare i dati dei singoli
client. Alla fine dell'elaborazione i dati venivano committati su DB.
Come posso ora realizzare una cosa simile?
So che è possibile creare la tabella su server e conseguentemente una view
che riporti l'identificativo del client per ogni record, in modo da filtrare
i dati relativi alle singole postazioni.
In alternativa mi consigliate l'utilizzo della tempDB?
Grazie
Roberto

 Come posso ora realizzare una cosa simile?
Non ho ben chiaro come funzionino le tabelle temporanee in Access.
In sql-Server, però, puoi sfruttare due funzionalità interessanti, ossia le
tabelle # e ##.
Ossia, se inserisci davanti al nome della tabella il prefisso # o ##, avrai
delle tabelle 'quasi' normali (ci sono alcune differenze se ci apri sopra
dei cursori nelle sp), ma che non sono fisicamente scritte. In un caso, la
tabella 'vivrà' a livello di singolo batch, nell'altro caso a livello di
connessione.
Se poi alla fine decidi di scriverle fisicamente, puoi semplicemente fare
una insert usando come sorgente la tabella # o ##.
Altra soluzione (ma che si può usare solamente se TUTTO è volatile finchè
non lo decidi tu), è quella di aprire una transazione all'inizio e eseguire
un commit alla fine. Qui nascono alcuni milioni di problemi di concorrenza
fra i diversi utenti, quindi va studiata bene.
Ciao
Alberto

 ha scritto nel messaggio
news:LRHva.111402$iy5.3...@twister2.libero.it...


 Ti risulta questa possibilità?
Sicuramente.
Non ricordo come, ma su BOL c'è sicuramente.
E' probabilmente una variabile di ambiente come @@VER, @@Identity, ecc...
Ciao
Alberto

Ne approfitto per chiedere un altro consiglio.
Siccome ci capita spesso di dover apportare modifiche personalizzate al
cliente, qual'è il modo migliore per distribuirle in ambiente Sql Server?
Ovvero, se ho necessità di creare una nuova view o table o sp, come posso
ricrearle sul DB del cliente?
Grazie e saluti
Roberto


 sp, come posso ricrearle sul DB del cliente?
L'argomento è troppo lungo per essere spiegato qui, oltre ad essere
discretamente OT (vista la quantità e qualità dei NG su Sql-Server).
Comunque c'è stato un bel thread sull'argomento un paio di settimane fa.
Cerca un po', perchè non ricordo il subject...
Ciao
Alberto
Newsgroup: it.comp.lang.visual-basic
Titolo: Toolbar di VB6.

Cosa sono e come si usano i ButtonMenu delle toolbar di VB6?
Si possono inserire altri controlli a fianco dei Button su una toolbar?
Grazie, Riccardo.

 Grazie, Riccardo.
Io usa la ToolBar solo come contenitore, e poi ci metto dentro bottoni,
caselle di testo, ecc.
Ps: Avevo iniziato ad utilizzare anche la CoolBar, che sinceramente mi
piace di piů, ma poi ho letto sull'help che funziona solo se il Pc ha
W98 o Internet Explorer installato. Sfortunatamente non trovo piů
l'articolo. Qualcuno sa qualcosa di piů? 
Ciao
:-) Hd (-:
hd...@TOGLI.freemail.it
Sito Comune:
www.murialdo.it
\it_lang_vb