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

Qualcuno sa come creare un menu in VB5 in fase di run-time partendo da zero?
Ho provato a farlo utilizzando le funzioni API CreateMenu(), InsertMenu() e
compagnia bella... tutto funziona nel migliore dei modi, ma mi sono poi
bloccato non riuscendo a controllare il click sull'item dello stesso.
Dovrei in effetti controllare i messaggi di sistema generati dal click del
mouse e non saprei proprio come farlo.
Se avete altre idee... sono qui.
Saluti
Giancarlo.

mouse e non saprei proprio come farlo.
Non saprei dirti se il codice seguente e' funzionante (e' un estratto di
cose che avevo fatto in precedenza), se comunque puo' essere utile come
spunto.
  Dim lhMenu As Long
  Dim lhwnd As Long
  Dim llRet As Long
  Dim lsRes As String
  Dim lsItem As String
  Dim lsItems As String
  Dim lvntRes As Variant
  Dim ltdMsg As MSG
  Dim ltdPos As POINTAPI
  Dim ltdRect As RECT
  lhwnd = GetActiveWindow()
  lhMenu = CreatePopUpMenu()
  llRet = TrackPopupMenu(ByVal lhMenu, 0&, ltdPos.X, ltdPos.Y, 0&, lhwnd,
ltdRect)
  If llRet Then
    ltdMsg.hwnd = lhwnd
    llRet = GetMessage(ltdMsg, ByVal lhwnd, ByVal 0&, ByVal 0&)
    If ltdMsg.message = 273 Then
      If ltdMsg.wParam Then
          ' ltdMsg.wParam contiene il numero dell'item selezionato
          ' il codice seguente ottiene invece  la stringa
          lsRes = String$(255, 0)
          llRet = GetMenuString(ByVal lhMenu, ByVal ltdMsg.wParam, ByVal
lsRes, ByVal 255&, ByVal 0&)
          lvntRes = Left$(lsRes, llRet)
      End If
    End If
  End If
  llRet = DestroyMenu(ByVal lhMenu)
Il Pestatasti scroccaccount  Stefano Castiglioni.

Il codice è ottimo, ora inizio a capirci qualcosa... ti faccio sapere.
Grazie.

mouse e non saprei proprio come farlo.

Newsgroup: it.comp.lang.visual-basic
Titolo: leggere dalla porta seriale

Salve a tutti.
Qualcuno potrebbe essere cosi' gentile da darmi una dritta su come poter
leggere dei dati in ingresso dalla porta seriale con visual basic ?
Grazie mille
Claudio

 leggere dei dati in ingresso dalla porta seriale con visual basic ?
Devi usare il controllo comm fornito di serie con VB (dalla versione 4,
credo).
Saluti.
FogOnTheSea

leggere dei dati in ingresso dalla porta seriale con visual basic ?
~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~
Gabriele Bertolucci - NT4WKSITA+SP3 - VB5PROITA+SP3
pbe...@vi.ats.it
pbe...@freemail.it
http://userspace.ats.it/free/pberto/
http://www.fortunecity.com/skyscraper/spiff/523/
ICQ #: 9732192
~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~

leggere dei dati in ingresso dalla porta seriale con visual basic ?
Ti ricordo che tanti hanno avuto problemi con questo controllo (chi
non ha problemi con M$). Nel mio sito puoi trovare una DLL, completa
di esempio, che guida le porte I/O del computer.
Ciao, Gianni Zacchia
http://free.imd.it/giazack/


Prova con MSCOMM.VBX o OCX (mi sebra si chiami cosi'); un custom control per
gestire appunto le comunicazioni seriali; attenzione pero' non e' facile
come "OPEN "COM:1" for Input....." ecc., ti devi fare veramente del
male...anche se hai un controllo praticamente totale sulla seriale...
Bye
B l a c k l i g h t
----------------------------------------------------------------------------
----------------
E-MAIL:  
black...@mclink.it
WEB:  
http://www.geocities.com/~blacklightweb
ICQ:  12432436
...creativity ?! ... it's an inside light, an invisible light, ... it's a
blacklight !
Newsgroup: it.comp.lang.visual-basic
Titolo: Mi sapete dire il limete dei file mdb 20000

Salve a tutti, ho un applicazione che utilizza
il data base in oggetto, ormai si sfa facento
grosso, circa 80 mb, mi sapete dire quali
sono i limiti di questo dei db access 2000?
Ciao
www.scozzaro.it

 ha scritto nel messaggio
news:9qq2g7$lqc$1...@fe2.cs.interbusiness.it...

Fino al Giga ci arriva di sicuro
Che poi lo sopporti bene... è un'altro discorso :P
Ciao

 ha scritto nel messaggio
news:9qq2g7$lqc$1...@fe2.cs.interbusiness.it...


2 Gb perchè è in UNICODE.
Ciao SIMO
--
__________________
www.sasim.net
Vb è relativamente semplice perchè c'è MSDN!
Server IRC : 
irc.azzurranet.org
 --> Canale: #it_lang_vb
Sito Comune Ng: 
http://www.it-lang-vb.net
Manifesto del Ng: 
http://www.it-lang-vb.net/docs/Manifesto.txt


No infatti non è che sia grande un database di 80 Mb in confronto di altri
database,
è che i dati sono nelle mani di un'oggetto che mi da pochissima fiducia.


 è che i dati sono nelle mani di un'oggetto che mi da pochissima fiducia.
Dove lavoro vengono usati per clienti DB access anche di 800MB.
E guai a dirgli che non sono affidabili! Eresia!
Poi si passa più tempo al telefono a spiegare come fare per ricostruirli che
per altro, pero questa è un'altra storia :P
Ciao

 Stephen
Suppongo che tu ti riferisca a archivi Access di quelle dimensioni,
perchè Oracle si fa un baffo di un database del genere.
                                        danilo


Mi pare che la dimensione massima si aggiri sul Gigabyte... forse 2 Gb, con
Access 2000

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

Newsgroup: it.comp.lang.visual-basic
Titolo: Esistenza del file

Ciao a tutti
potete risolvere il mio problema.
Ho la necessità di aprire e leggere le informazioni in un file INI.
Come faccio però a far apparire un messaggio (tipo MSGBOX) SE il file ini
non esiste?
Grazie
Giuli
:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-
Giuliano Prati
E-mail:    
giul...@iol.it
Homepage:  
http://meteo.cjb.net
  "Web Meteo Live"
 
http://www.geocites.com/Yosemite/Rapids/1583
  "Sport
Estremi"
 
http://users.iol.it/giuli.gp
  "La città di Verona"

Probabilmente se il file .ini non esiste oltre alla MessageBox avrai anche
qualche altro problemino.... ;-))
Scherzi a parte, controlla l'esistenza del file con la funzione
Dir(Path&Nomefile) se la funzione ritorna "" allora il file non esiste. Per
una gestione più accurata puoi provare  il FileSystemObject inserendo
l'opportuno riferimento nel progetto.
bye
Axel

Newsgroup: it.comp.lang.visual-basic
Titolo: Ricavare la data da un db SQLs

Qualcuno sa come leggere la data attuale attraverso una query
da un database di SQL server???
Non ho trovato nulla....
Grazie..
MIk

 da un database di SQL server???
Ho trovato!!
getDate()
MIk
Newsgroup: it.comp.lang.visual-basic
Titolo: janine, take a look

Untitled 
Documentrem...@neuropa.net
Che gli scriva qualcosa???
"mandy" <Anonymous...@See.Comment.Header> ha scritto nel messaggio
news:200102122315...@berlin.neuropa.net...
I don't have your address so I had to do it like this. That site is pretty
cool, Thx for the link. Now check this site out!

Correggo!
remaile...@neuropa.net

...
    I don't have your address so I had to do it like this. That site is
pretty cool, Thx for the link. Now check this site out!
    Take it up the a**!

 Untitled DocumentI don't have your address so I had to do it like this.


Newsgroup: it.comp.lang.visual-basic
Titolo: Mi sono perso la RichTextBox!!

Premettendo che sono un veterano del VB!!
Devo ammetere di aver letto da qlc parte "RichTextBox" ma ora che mi serve
non so più dove cercarla!!
Scusate per la stupidità di questa domanda ma sto andando ai matti  ;-p
Lucas84it
--
@   @   @   @   @   @   @   @   @   @
     Lucas84it
     Mail to: 
19lu...@genie.it
 
www.lucas84.cjb.net
padroni di niente, servi di nessuno...
@   @   @   @   @   @   @   @   @   @

 non so più dove cercarla!!
In che senso??? Vuoi dire nei componenti?
Li' la trovi come Microsoft RichTextBox Control 6.0
Buon lavoro, Giorgio.

 non so piů dove cercarla!!
Microsoft Rich TextBox potrebbe andare?
Se sě: Progetto -> Componenti -> MS Rich TextBox -> Spunta -> OK
Drag&drop dalla finestrella a sinistra verso la tua form
Ciao
Alberto il veterano

Trovata!!!
Grazie ma lavorando prima sui computer di scuola (dove la famigerata :-))
richtextbox faceva parte dei strumenti & andando poi a casa dove il Vb6 è
praticamente appena installato mi sono ritrovato con qlc componente in
meno!!
Grazie 1000 la vostra immediatezza nel rispondere ai post mette paura!!!
;-))
Lucas84

Newsgroup: it.comp.lang.visual-basic
Titolo: vb e plc - richiesta di chiarimenti

 come fare per interfacciare
vb con plc?
ho un mio programma che vorrei fosse avviato e stoppato da un plc
ho una scheda pci 6518 della National oppure porte seriali e plc S7 200
Potreste darmi delle dritte?
grazie anticipatamente
PFM

 ho una scheda pci 6518 della National oppure porte seriali e plc S7 200
Non ho idea di come funzioni la scheda della National che citi.
Volendolo fare in seriale (rigorosamente in modalità punto punto, non 
in cascata altrimenti bisogna farlo in polling anzichè a eventi):
- Colleghi il PLC con il PC (ovvio) in seriale
- Sul form, metti un MSComm
- Imposti i settings del MSComm come prevede il plc
- Abbassi il valore di RThreshold a 1
- Quando il PLC invia qualcosa, ti scatta l'evento OnComm
- A questo punto cicli sulla proprietà .Input del MSComm, finchè non 
ricevi un terminatore o finchè non scade un timeout, e fai quello che 
ti pare del dato ricevuto (ad esempio esegui uno start od uno stop di 
un qualcosa).
Ciao
Alberto
-- 
A questo punto hanno trovato un muro,
un muro duro, molto molto duro,
che siamo noi.

Esistono una infinita' di protocolli PLC e tutti quelli con cui ho
avuto a che fare fin'ora sono tutt'altro che semplici da implementare.
Quand'ero piccolino ero talmente pazzo da mettermi ad implementare il
protocollo anche se me lo chiedeva un singolo cliente.
Adesso, se vuoi un suggerimento, acquista un OPC Server creato per il
tuo tipo di PLC e risparmia un sacco di tempo e di bestemmie.
Ad esempio questo (immagino che con S7 intendevi un Siemens):
http://www.kepware.com/Spec_Sheets/Siemens_S7_200300400_TCPIPEthernet.html

su 
www.plcforum.it
 trovi una marea di informazioni

> su 
www.plcforum.it
 trovi una marea di informazioni
 In effetti hai ragione. Vedo che dentro c'e' anche un
S7_Comm_Winsock.zip
Esempio di comunicazione Ethernet tra VB e PLC Siemens S7 con winsock
apparentemente proprio quello che servirebbe a pfm
;-)

Newsgroup: it.comp.lang.visual-basic
Titolo: MDI con menù

RiSalve a tutti,
    forse è già stato un post di discussione ... cmq
Mi è capitato di creare un'applicazione con un form MDI e diversi Child...
L'MDI ha dei suoi menù (FILE, OPZIONI, GUIDA ecc), mentre i child hanno menù
aggiuntivi (STRUMENTI, RIEPILOGHI, GRAFICI ecc). Vorrei che quando si aprono i
figli dell'MDI i menù di questi andassero ad affiancare quelli dell'MDI... Se
non mi ricordo male si poteva fare (una volta mi sembrava di averlo visto da
qualche parte)
PS: la soluzione che adottato ultimamente è funzionale ma poco "pulita": creo
tutti i menù nell'MDI e poi nascondo quelli che dovrebbero essere dei Figli,
visualizzandoli solo da Form_load e rinascondendoli su Form_unload
--
*** doGmaI ***
ICQ#170836495

 ha scritto nel messaggio
news:ardgbm$aft$1...@monty.lombardiacom.it...

Purtroppo secondo me in VB6 la negoziazione dei Menu non funziona bene, e
devi utilizzare trucchi!!!, è stata risolta il VB net..

 ha scritto nel messaggio
news:ardgbm$aft$1...@monty.lombardiacom.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: FileListBox, come ti uso?

Ciao a tutti,
perdonate la banalità del mio problema:
uso VB5, ed ho un form che all'avvio del programma mi deve mostrare una
e solo una determinata directory (presumibilmente con un controllo di
tipo FileListBox), da me prestabilita; l'utente poi clikka su un file di
questa lista e questo file verrà poi trasformato secondo le mie
esigenze. Non ho bisogno né di cambiare dir, né di cambiare disco
(sempre "C:"). Il problema è che mi mostra sempre la dir del sorgente
dell'applicazione, oppure, se lo compilo, mi mostra la dir dalla quale
lancio l'eseguibile. Come faccio a risolvere questo problemino?
Dove ed in che modo posso impostare questa dir?
Grazie a tutti coloro che vorranno aiutarmi,
Max

...


 Dove ed in che modo posso impostare questa dir?
file1.path = "c:\documenti\"
file1.path= iif(right(app.path,1)="\", app.path, app.path & "\")

Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 - MySql & Shape

Ciao a tutti, ho questo problema.
Premetto che utilizzo VB6 con database MySql ed effettuo le stampe
tramite il DataReport integrato in vb.
Ora, ho bisogno di stampare una fattura (testata - dettaglio) e non
riesco a connettere il database MySql con il DataReport in questo
specifico caso.
Non ho nessun problema a connettere e stampare i dati di una singola
tabella.
Navigando qua e la ho visto che molti esempi riportano il comando
SHAPE :
http://www.visual-basic.it/articoli/afDataReport1.htm
http://www.visual-basic.it/articoli/sdcdradvuse1.htm
Qui per esempio viene utilizzato con un db Access, ma non credo sia
supportato da MySql.
Avete suggerimenti?? Sono alla frutta...

 Avete suggerimenti?? Sono alla frutta...
Non è un comando particolare di Access o altro, è proprio un provider
OLE DB particolare che fa da strato intermedio verso una connessione
tradizionale ad altri database.... non l'ho provato di persona ma
teoricamente dovrebbe essere trasparente
Comunque se cerchi su Google "MSDataShape MySql" dovresti trovare un
po' di informazioni

 Avete suggerimenti?? Sono alla frutta...
Ciao, lo shape altro non è che un provider per creare recordset 
gerarchici (uso tipico, ad es, per un report master-detail),
qui trovi un po' di info:
http://www.robertovillari.it/DataShaping/Providers.htm
http://www.aspitalia.com/articoli/db/datashaping-p-1.aspx
ciao
stefano

 
antonio.tamu...@gmail.com
 ha scritto:

Grazie ragazzi, aiuti preziosissimi.
A presto!
Ciao,
antonio
Newsgroup: it.comp.lang.visual-basic
Titolo: Selezionare riga in MSFlexGrid

Ciao,
come posso fare in modo che cliccando su una cella di una riga della MSFlexGrid
l'intera riga venga selezionata come succede con la DBGrid con la proprietą
MarqueeStyle a Highlight Row.
Grazie,
Corrado Paoletti
ICQ 7044062

...

Prima di tutto setta questa proprieta':
SelectionMode=1 - flexSelectionByRow
e poi inserisci questo codice:
Private Sub MSFlexGrid1_SelChange()
  If MSFlexGrid1.Row <> MSFlexGrid1.RowSel Then
    MSFlexGrid1.Row = MSFlexGrid1.RowSel
    MSFlexGrid1.Col = 0
    MSFlexGrid1.ColSel = MSFlexGrid1.Cols
  End If
End Sub
Ciao
Gior...@BigFoot.com

Newsgroup: it.comp.lang.visual-basic
Titolo: Videocamera in una form VB

Salve a tutto il NG,
c'è qualcuno che cortesemente mi può indicare il modo per portare l'immagine
della mia videocamera digitale intel in una form VB5?
ringrazio anticipatamente
Tom

Nel sito comune c'è un ocx che visualizza una periferica di cattura video,
puoi provare con quello!
Personalmente a me con una Matrox RAINBOW RUNNER (modulo aggiuntivo Matrox
Mistique 220) che appunto è una periferica di cattura video, funziona!
in bocca al lupo...
--
Andrea
anfa...@tin.it
Tom ha scritto nel messaggio ...








Avrai un SW della tua scheda di acquisizione immagini che ti fa vedere
l'immagine che entra dalla telecamera: devi solo lanciare questo SW da VB:
per esempio
AppActivate Shell("C:\Programmi\WinTV\Wintv.exe", 1) ' Esegue WinTV se il SW
è WinTv.
Se poi scopri da qualche parte anche una gestione avanzata tipo salvataggio
immagini con VB ti prego di farmelo sapere!!!!
Giorgio


 puoi provare con quello!
tca...@altavista.net
Newsgroup: it.comp.lang.visual-basic
Titolo: vb6 ed excel 2000 sotto win 98 e 2000 (Aiuto!)

 Salve a tutti,
ho un problema con excel.
con vb6 creo delle stampe partendo da un foglio excel prefincato.
Public excA As Object
Public excw As Object
.
.
.
Set excA = CreateObject("excel.Application")
.
.
.
.
Set excw = excA.Workbooks.Open(App.Path & "\" & Main.Text6.Text)
'dopo aver stampato il foglio LO CHIUDO
excw.Close savechaNGES:=0
ALLA FINE CHIUDERò ACHE EXCEL
ExcA.DisplayAlerts = False
excA.Quit
SOTTO WIN 2000 TUTTO VA BENE!! EXCEL SI CHIUDE,
SOTTO WIN 98 MI DA' IL SEGUENTE ERRORE:
(DALLA FINESTRA iMMEDIATA)
?err
-
2147417843
Errore di automazione
PERCHE'??
DOVE SBAGLIO??
GRAZIE SE MI DARETE UNA DRITTA.
--------------------------------
Inviato via 
http://usenet.libero.it

 Errore di automazione
1) per favore fare attenzione all'uso del maiuscolo: da queste parti
equivale ad urlare, e può infastidire chi ha orecchie sensibili
2) non so che legame possa avere il comportamento da te segnalato con la
differenza dei sistemi operativi, ma una delle possibili cause dell'errore
da te segnalato è quella di cercare di chiudere una applicazione già
chiusa.. prova a vedere se questa riflessione è applicabile al tuo caso
di più non saprei
Salutoni
Sergio


Ah non lo sapevo per quano riguarda il maiuscolo,
e se ho fatto tanto baccano non volevo deconcentrare nessuno dal proprio
lavoro e forse
ho deconcentrato anche me stesso, perchè comunque hai ragione nel punto 2.
In ogni caso i
 due sistemi operativi si comportano in maniera diversa a tutto vantaggio di
win 2000 che da
meno problemi.
Grazie!!


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

Salve, non capisco moltissimo di visual Basic... mi servirebbe,
impostata una data futura alla attuale, che il programma sottraesse i
giorni da quella data alla attuale mostrandomi i giorni restanti
Grazie
Umbi


DateDiff(data,iniziale,datafinale,tipo)
tipo è il tipo di conteggi ossia in giorni, settimane, mesi

Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO:Non trovo BDCombo

Aiuto importante,
Ho acquistato VB5 professional e per disegnare form
non riesco  a trovare il controllo DBCombo.
Ho esaminato tutti i controlli disponibili nella finestra dialogo
controlli , ma non sono riuscito a trovarlo.
Chi mi puo' aiutare??? Grazie infinite.
Massimo Mazzei

Prova a cercare DBList32.OCX
Newsgroup: it.comp.lang.visual-basic
Titolo: Concatenare stringhe per comando SQL


buona norma è usare  stringa= stringa1 & stringa2
bye
--
-------
sito: 
www.dadev.it
ultime: Ocx per irc testi freeware
-------

 bye
nel tuo caso
sqlstringa="SELECT * FROM TBL_PROGRAMMI WHERE NOME LIKE" & " " & 'parametro'


Salve a tutti.
Sto programmando in vb una piccola applicazione VB+ACCESS.
Dovrei creare una stringa SQL del tipo :
SELECT * FROM TBL_PROGRAMMI WHERE NOME LIKE 'parametro'
il mio problema è che ci sono errori di concatenazione tra le '  parametro
'.
Io la concatenazione la faccio con le virgolette " " e con il + .
Come si fa ?!!
Ciao e grazie anticipatamente.
Andrea

 SELECT * FROM TBL_PROGRAMMI WHERE NOME LIKE 'parametro'
sSql = "select * from tbl where nome like '*" & parametro & "*'"
db.execute ssql
guarda bene come sono apici e asterischi nella linea. se vuoi usare il like,
_parametro_ conviene che risulti racchiuso fra apici _e asterischi_:
'*parametro*'
o 'parametro*' se cerchi una parte iniziale
o '*parametro' se una finale
magari guarda la guida su "like".
nb: l'apice ovviamente in vb deve stare dentro una stringa, seno' vb prende
per commento quel che segue.
se il contenuto di parametro contiene un apice:
    select * from tbl where nome like '*" & "bell'aria" & "*'"
devi raddoppiarglielo.
ciao, j.

 wrote in message
news:Hp_r7.6410$jT5.2...@news.infostrada.it...


> andrea
non sarà mica QUELL'Andrea che mugugna dall'altra stanza? :)))
--
Fibia "Sakamoto" FBI

Newsgroup: it.comp.lang.visual-basic
Titolo: recordset + gerarchici = slow

ciao a tutti,
perchè se creo dei recordset gerarchici, anche creando solo una "RELATE", i
metodi move diventano lentissimi????
ciaoa tutti e buon lavoro

 ha scritto nel messaggio
news:90nue7$61...@news.edisons.net...


 escribió en el mensaje
news:90op5r$94p$2...@fe2.cs.interbusiness.it...

di seguito il recordset che uso:
'    cn2.Open "PROVIDER=MSDataShape;Data
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\documenti\miodatabase.mdb"
     rs2.Source = "SHAPE {SELECT * FROM `anagrafica`}  AS anagrafica APPEND
({SELECT * FROM `ricetta`}  AS ricetta RELATE 'ID' TO 'codice_anagrafica')
AS ricetta"
   rs2.Open , cn2, adOpenKeyset, adLockBatchOptimistic
utilizzando un recordset non gerarchico il programma funziona ad una
velocità ottima, con quello sopra invece fra un movenext e l'altro mi vado a
prendere un caffè al bar.....
ciao a tutti
xadu
Newsgroup: it.comp.lang.visual-basic
Titolo: File testo x Rilevazioni Presenze





 

 


ho un file di testo :


                           11130304080000
                           
11130304120001
                           
11130304133000
                           
11130304163001


                           12130304080000
                         
  12130304163001


 


Da questo file ho la richiesta di avere una situazione in 
questo modo :


        
Matricola :   Data :       Ingresso : 
Uscita : IngressoIn : UscitaOut 


        11    
     13/03/04       
08.00     12.00    13.30    
    16.30


        
12         
13/03/04       08.00    
                
            
 16.30


 


 


Come si può notare la matricola 11 ha 2 ingressi e 2 uscite in 
data 13/03/04


 



 This is a multi-part message in MIME format.
Per favore, scrivi solo in plain/text.
-- 
ciao, un hal di passaggio
-- 
ciao,
hal

 Per favore, scrivi solo in plain/text.
E anche:
"Per favore, scrivi tutto il testo dell'e-mail"
:-)



Potresti definire dei range di orari di entrata e uscita in funzione
dell'orario di lavoro della matricola
HTH
bye
r

Non riesco a capire quale sia il problema, soprattutto se a gestire il 
file è un programmatore ?!?
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio 

news:6daa2f1403241e24a13...@mygate.mailgate.org
...


Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO - Ho dei problemi con la comunicazione seriale

Stò facendo un programma di comunicazione tra il PC ed un misuratore
fiscale, ma ho un grandissimo problema.
Il protocollo del misuratore prevede la trasmissione del carattere NULL
ma VB5 non vuole saperne di riceverlo.
Per essere precisi il carattere è presente nel buffer di ricezione, ma
quando passo il contenuto del buffer in una stringa, VB5 mi taglia fuori
tutti i caratteri che seguono il NULL.
C'è la possibilità di avere tutta la stringa ?
Grazie anticipatamente.
Saluti Andrea.

tutti i caratteri che seguono il NULL.
La possibilita' c'e' perche' la uso abitualmente.
Verifica la proprieta' NullDiscard (poco probabile a quanto dici)
I caratteri che seguirebbero il NULL ti restano in buffer (InBufferCount
<>0)
o li perdi completamente ?
Fammi sapere.
Ciao Ciao
Giuseppe


La propietà Nulldiscard è FALSE e se controllo il contenuto di
InbufferCount è 0 e quindi perdo completamente i caratteri che seguono.
Ho provato anche a mettere Nulldiscard TRUE e così facendo riesco a
ricevere la stringa dati, ma risulta incompleta e corro il rischio di
perdere dei dati importanti.
Grazie per collaborazione
Ciao da Andrea.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Cosa si può fare con un riga in VB?

[SFIDA]
Cosa si può fare con una riga in VB?
Concorso in due categorie:
senza usare i ":"
usando i ":"
x:termoPilucco,
postate copiosi, che poi copio, incollo e vendo il progetto :)

 usando i ":"
Non uso mai i ":" e, anche se li usassi, dopo aver obiettato che "le
informazioni sono insufficienti", direi, anzi (in attesa di chiarimenti
sulla domanda), dico "scriverla o cancellarla" e, a mia volta, sfido
chiunque a dare una risposta che meglio soddisfi la fumosità della
richiesta. :-P

 richiesta. :-P
Aiuto!
termoPilucco pentito.

[*termopilucco* = 
termop...@hotmail.com
 in
news:bkpijg$498mn$
1...@ID-188026.news.uni-berlin.de
] ha scritto:

Termo, da questa risposta (pari, a proposito di fumo, allo smog milanese in
una giornata uggiosa) e da quella di altro topic che parebbe un esempio,
vorresti farci cortesemente sapere cosa ti hanno costretto ad ingoiare a
pranzo? :-P

 pranzo? :-P
Ho dovuto digerire un progetto noioooooooooso.
termoPilucco annoiato, cerca nella creatività la chiave della felicità.

[*termopilucco* = 
termop...@hotmail.com
 in
news:bkpj21$4e7bt$
1...@ID-188026.news.uni-berlin.de
] ha scritto:

Ah, beh. Allora la risposta è "tutto".

 postate copiosi, che poi copio, incollo e vendo il progetto :)
Voglio le royalties
Nick
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Cosa si può fare con una riga in VB?
End



Se la mettiamo cosi' allora ...
'
Ciao! ;-)

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

Qualcuno sa come gestire le transazioni con ado utilizzando il provider Ms
remote, dato che non dovrebbe supportare i metodi BeginTrans, CommitTrans,
ecc..?
Grazie





Credo che questo si possa fare solo con 
l'oggetto RDO.


 


Ciao



pro

Newsgroup: it.comp.lang.visual-basic
Titolo: condividere winsock su + form

Come posso condividere la stessa connessione al server con winsock su più di
un form all'interno dello stesso progetto?
Grazie

 wrote in message
news:8ub1hi$ple$1...@sun250.unimi.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: sistemazione righe excel

salve a tutto il newsgroup, scrivo dopo aver cercato su google invano.
mi trovo a sover usare vba per sistemare un foglio excel. purtroppo non 
conosco questo linguaggio e per fare una cavolta sto impazzendo...
il problema è il seguente:
id	specialita
-------------------
234	
	nuoto
	corsa
345	
 
567	
	pattinaggio
	ciclismo
	calcio
5671
	briscola
io dovrei ottenere questo:
id	specialita
-------------------
234	nuoto, corsa
345
567	pattinaggio, ciclismo, calcio
5671	briscola
in teoria si dovrebbe fare cosi:
guardo il contenuto della cella:
- se il contenuto è vuoto guardo la cella sottostante e se c'è scritto 
un testo lo copio nella cella attiva
- se la successiva ancora ha anch'essa un testo aggiungo una virgola, 
uno spazio e il testo.
questo finchè non trovo un'altra cella vuota.
concluso il controllo sulla colonna elimino tutte le righe che hanno il 
campo id vuoto.
potrebbe andare?
come tradurlo in vb?
grazie a tutti
mauro

 campo id vuoto.
O meglio dovresti eliminare le righe che non hanno il campo ID numerico.
Per eliminare, ti consiglio di fare un ciclo che parte dal fondo, e risale,
eliminando via via le righe in cui
isnumeric(cells(r,c) ) = false
il ciclo che parte dal fondo lo fai cosģ:
for r=ultimariga to 1 step -1
next
NB: il codice che ho scritto č assolutamente non testato, ma dovrebbe
servirti da spunto.
termoPilucco

Newsgroup: it.comp.lang.visual-basic
Titolo: Come registrare un'immagine in un database?

Vorrei sapere se c'e' la possibilità di registrare in un mdb un'immagine!
possibilmente esempi di codice.
GRAZIE!

 wrote in message
8ol6bh$3e7$1...@sirmdpsin17.inwind.it...


 GRAZIE!
http://www.comune.modena.it/cittadini/apal/tmp/img_db.zip

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Multi thread in VB

Ciao!
qualcuno ha esperienza con i MultiThread in VB (Win2000),
utilizzo la procedura CreateThread, ma "cresha" spesso e volentieri (sia
l'exe, che in debugging).
In pratica vorrei fare un'applicazione che lancia un thread che "ascolta"
cambiamenti sul HD, quando c'e' un qualche cambiamento viene lanciata una
callback all'applicazione.
Qualcuno ha suggerimenti?
ciao e grazie
Gipo

 wrote in message
8dpkf5$8me$1...@unlisys.unlisys.net...


Newsgroup: it.comp.lang.visual-basic
Titolo: [.NET] Dichiarazione array

Ho notato che con 
VB.NET
 č possibile dichiarare un array cosě:
dim array1() as string
dim array1 as string()
Le due dichiarazioni sono equivalenti o mi č sfuggito qualcosa?
PS:
Non postavo qui dal 1998
http://makeashorterlink.com/?I494129D1
Ho seguito in ombra per piů di un mese.
Ho riletto il manifesto, la netiquette, tutto su come quotare e adesso sono
pronto.
Che gioia!!!
Qualcuno si ricorda di me?
Sul sito comune ci dovrebbe essere qualcosa fatto da me che riguarda la
stampa.
Un grande saluto a tutti!
--
Marco Camplese
-Windows .Net Server (RC1)
-Visual Basic .NET Standard
-Framework Sp2

Sono equivalenti
HTH
--
Corrado Cavalli
UGIdotNET - 
http://www.ugidotnet.org


Dopo prova pratica che confermava ho cercato nella guida , non ho trovato
nulla.
giuseppeD

 wrote in message
news:3rKi9.120569$ub2.2...@news1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Generazione combinazioni di una matrice

Ragazzi, ciao a tutti.
Se non trovo una soluzione strippo...
Ho una matrice, di n righe ed m colonne.
Da qui devo generare il numero massimo di combinazioni possibili,
chiaramente senza sapere a priori il numero di righe e colonne.
Magari qualcuno sa darmi una mano?

 ha scritto nel messaggio

Questo è un normale calcolo delle combinazioni possibili.
Guarda la mia classettina (VB6) Combinazioni.zip
http://www.it-lang-vb.net/archivio.asp?subMenu=Tutte&FullText=on&TypeRic=AND&keyword=combinazioni&x=0&y=0
Ciao 

Fabio ha scritto:

Questa potrebbe proprio essere una soluzione...
Oggi ho proprio il cervello fuso, non ce la faccio più a pensare...
Ma senti una cosa:
se io ho una matrice diciamo 3x3
a    b    c
d    e    f
g    h    i
devo generare tutte le combinazioni di 3 caratteri....
Posso ricavare qlc dal tuo progr...?

 Posso ricavare qlc dal tuo progr...?
Bastava provarlo ;)
inserisci "a b c d e f g h i"
Ciao

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

Ho letto alcuni esempi su come convertire tabelle access in tabelle
execel.... ma le ho trovate tutte un pò complesse.... non esiste un comando
che da VB  converta automaticamente una mia query il un file exel?

 ha scritto nel messaggio
news:adhkq8$3vt$1...@serv1.iunet.it...

diciamo un recordset:
Vedi l'esempio che ho postato al sito comune
ado2excel
ciao
ugo
-----------------------------------
Links:
Sito Comune: 
www.it-lang-vb.net
MSDN: 
msdn.microsoft.com

> "Nio" [...]:

    Esistesse, non sarebbe meno complesso dell'altro. Vero e' che
"complesso" e' un concetto relativo...
    Potresti provare con "Visual Data Manager". Io non lo conosco ma so che
ha funzioni di importazione/esportazione.
    Non so cosa tu intenda fare effettivamente, ma considera anche la
possibilita' di creare un file excel direttamente collegato alla query.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------
Newsgroup: it.comp.lang.visual-basic
Titolo: Urge aiuto sul Desktop

Premesso che ho rivisto i vecchi post e non ho trovato niente. Premesso che
sono andato sul sito di Moreno Sirri come suggeriva lui alla domanda posta
da 'News' che ha come oggetto 'path del Desktop' e non ho trovato niente.
Premesso che vorrei sapere come ottenere il percorso del desktop.
C'è qualcuno che mi dice come si fa, o magari Moreno mi spiega dove vedere
nel suo sito per ottenere questa informazione?
Vi ringrazio anticipatamente per l'aiuto.
Ciao Luciano.
P.s. Scusate se ho ripostato una domanda gia fatta altre volte. ^__^

 C'č qualcuno che mi dice come si fa, o magari Moreno mi spiega dove vedere


Ma dimmi una cosa, ti hanno gia fatto Santo o ci stanno pensando?!! ^__^
Era proprio quello di cui avevo bisogno!
Infinitamente Grazie per l'aiuto e per la pazienza.
Chi sa se un giorno ti potrò ricambiare il favore... :)
Ciao Luciano.

 ha scritto nel
messaggio news:8khk5c$312$1...@fe2.cs.interbusiness.it...


nel suo sito per ottenere questa informazione?
La risposta l'hai già ricevuta: non intendo otizzare il NG, ma se guardavi bene sul mio sito,
trovavi la pagina 
http://www.morenosoft.com/MSVBSite/sorgenti/DirPred.htm
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
---------------------------------------------------------------------------

 ha scritto nel
messaggio news:38522...@news.megasys.it...


Ciao Moreno,
non ti nego che speravo che tu mi rispondessi. Ti rigrazio comunque anche se
mi aveva risposto gia Marco.
Spero, prima o poi, di poterti aiutare io. ^__^
Ciao Luciano.

Ciao Murizio,
Innanzi tutto eccoti la risposta che avevo ricevuto:



--------------------
La funzione "GetDesktopDir" ti restituirà una stringa contenente il percorso
completo del Desktop di Windows.
Ci tengo a precisare che, quando rispondo a qualcuno, non replico il suo
post per evitare appesantimenti dei miei messaggi e per renderli più
leggibili, non certo per un fatto di cattiveria nei confronti di qualcuno.
Per quanto riguarda il fatto che non ti sei riuscito a scaricare la risposta
che ho ricevuto, mi dispiace, ma non so proprio come aiutarti... Non ho idea
del perchè ti scarichi i miei messaggi e no quelli di altri.
Spero di esserti stato comunque utile.
Ciao Luciano.

 Spero di esserti stato comunque utile.
Certamente. Ancora grazie.
--
Ciao.
Maurizio

 messaggi e per renderli piů leggibili, non certo per un fatto

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] ancora su classi, interfaccie e metodi aggiunti

Ciao,
torno alla carica :)
ho una piccola interfaccia ( IDemo) esposta da cApp
cEsempioDemo usa implements con l'interfaccia di cApp
poi nella classe cEsempioDemo aggiungo altri metodi publici. (es:
nuovometodo1)
Ho in cAppuna collection di oggetti la funzione che li memorizza č:
public miacollection as collection
private sub memoOggetti (oggetto as Object, key)
    miacollection.add oggetto,key
end sub
e fino a qui nulla di strano...
creo il mio oggetto:
dim mio as IDdemo
set mio =new cEsempioDemo
capp.memoOggetti mio, "chiave"
e anche qui ok...
mi aspetto che:
capp.miacollection("chiave").nuovometodo1 funzioni, invece mi dice che il
metodo non esiste...
č perchč quanto credo l'oggetto lo definisico come tipo con l'interfaccia?
o cosa'altro?
grazie
Davide

 metodo non esiste...
Se il metodo e' stato definito direttamente in cEsempioDemo, come sembri
suggerire piu' sopra, allora esiste solo negli oggetti di tipo cEsempioDemo
e non negli oggetti di tipo IDemo... quello che comanda qui e' il tipo usato
nella dichiarazione, "mio" a questo punto e' in grado di ricevere un istanza
di qualsiasi classe che implementa IDemo, ma di queste puo' utilizzare
*solo* i membri dell'interfaccia implementata, non i membri proprietari
delle varie classi; tanto per capirci, non fare l'errore di considerarlo
come una variante piu' evoluta di "As Object", aspettandoti che l'esistenza
del metodo venga verificata in esecuzione; se cosi' fosse allora staresti
usando late-binding, non early-binding come invece fai, e tutto il discorso
delle interfacce perderebbe di significato...
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

Newsgroup: it.comp.lang.visual-basic
Titolo: Come ricevere,cancellare etc.. sul server

qualcuno ha idea di quali siano i comandi o dove prendere spunto per un
programmino che controlla i dati (mittente, oggetto, kb etc..) di uno o +
account email direttamente sul server (senza scaricarle in locale)?
grazie :)

 ha scritto nel messaggio
news:pC6Rb.278863$vO5.11...@twister1.libero.it...

Puoi usare i comandi SMTP ad esempio implementando Winsock.
Forse ricercando nel sito comune trovi qualcosa


SMTP?
Direi piuttosto POP3.
Cerca in rete le RFC del protocollo POP3.
Implementarlo con Winsock non è difficile.
Ciao
Alberto

 Direi piuttosto POP3.
Ebbene si lapsus.....
comunque qua trovi i comandi principali per le sessioni pop3 e smtp
http://www.kensan.it/articoli/Telnet.html

 ha scritto nel messaggio
news:XE9Rb.287066$e6.11...@twister2.libero.it...


 ha scritto nel messaggio
news:XE9Rb.287066$e6.11...@twister2.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: MsgBox in caratteri UNICODE

Ciao a tutti.
E' da un po' che cerco in giro, senza trovare uno spunto per la 
soluzione del mio problema.
Vengo al dunque: ho la necessità di inserire nel mio programma delle 
scritte in cinese. Il metodo migliore che ho trovato è stato quello di 
acquistare degli ocx atti allo scopo.
Il problema ora si presenta quando devo far comparire dei message box 
con messaggi scritti in cinese.
I casi sono 3:
1) O metto delle scritte in inglese, cosa poco elegante;
2) O mi creo un form personalizzato che mi simuli il comportamento 
dell'msgbox contenente i miei controlli, cosa che vorrei evitare;
3) O qualche buon'anima ha gia avuto modo di affrontare il problema... e 
mi può dare un suggerimento
Grazie in antiipo.
Ciao.
Roby

 dell'msgbox contenente i miei controlli, cosa che vorrei evitare;
Avere un proprio msgbox, con un design più 'intonato' al resto 
dell'applicativo, con le iconcine dei bottoncini uguali a quelle che si 
usano nelr esto del programma, e magari con la possibilità di chiudersi dopo 
un certo timeout, è comunque una bella praticità. E la realizzazione di una 
cosa del genere non richiede più di due/tre ore di lavoro, e dopo ce l'hai 
sempre disponibile.
Ciao
Alberto
-- 
E tutto mi sembrava andasse bene...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Icone di sistema

Qualcuno sa come ottenere gli handles delle icone di sistema (quelle delle
messagebox per intenderci)?


-------
A cosa ti servono gli handle? Se vuoi utilizzare queste icone nei tuoi
programmi, le trovi nella directory Icons\Computer di VB.
Alla prossima
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260/
http://www.armaditaggia.com/marco

Newsgroup: it.comp.lang.visual-basic
Titolo: Ripropongo la domanda - Ricavare proprietà commento di un file

Ciao a tutti,
molti programmi (come ad esempio word, excel, autocad, acrobat ecc)
consentono
dal menų "file-->Proprietā" di inserire delle informazioni sull'autore, un
titolo, un commento inerenti il file in questione. Queste proprietā vengono
poi visualizzate anche in Esplora risorse di Windows soffermandosi sopra al
file con il mouse.
Ho la necessitā di ricavarmi la proprietā "Commento" (ma anche le altre se
possibile) con Visual Basic.
Come posso fare? Ho cercato in rete ma non ho trovato niente.
Ringrazio tutti in anticipo.
Ciao
Emiliano

 Come posso fare? Ho cercato in rete ma non ho trovato niente.
come ti ho scritto l'altra volta, cerca e troverai (5 minuti netti):
http://users.chello.be/ws36637/properties.html
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/stg/stg/the_summary_information_property_set.asp
http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q186/8/98.asp&NoWebContent=1
ma soprattutto:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q224351
ciao
ugo

 ha scritto nel messaggio
news:c7eeb.195667$R32.6...@news2.tin.it...


 informazioni.
Nulla (non volevo essere polemico).
L'importante è che siano state utili.
ciao
ugo
Newsgroup: it.comp.lang.visual-basic
Titolo: Come stampare su un foglio 30x10

Come posso impostare crystal report ??
Non riesco da impostazioni pagina.....non è supportata la pagina,
anche l'altezza deve essere quella perchè sono su un modulo continuo.
Aiutatemi vi prego.
Grazie
Andrea__

 wrote in message
7n41dh$lr$1...@fe2.cs.interbusiness.it...


...



Io per la stampa uso un trucchetto :) faccio in questo modo:
dim objDocumento as new word.document
with objdocumento
fatto questo apro word registro una macro che comprende quello che devo
stampare e la copio in vb
e da word puoi impostare tutti i formati ( io ci stampo delle etichette con
i campi presi da un DB)
Ciao e fammi sapere

Newsgroup: it.comp.lang.visual-basic
Titolo: errore nell'installazione

Aiuto...
nella creazione di un pacchetto di installazione mi dice errore in
createprocess() e si ferma.
cosa posso fare?
le dipendenze e tutti i file sono al loro posto.....non ci capisco piu'
nulla
nel log di errore mi dice: che non riesce a lancaire setup1.exe.

Me lo fa anche a me, ti dice:
Type mismatch.
Un errore inaspettato si è verificato!
Aspetto aiuto anch'io!
Ciao
Wein

Se provi a installare il pacchetto sul computer in cui hai fatto il progetto
ti funziona?
A me si.
Ma quando sono su un altro Pc mi da quell'errore........
Malnato Bill.......
Ciao

 ha scritto nel messaggio
news:8j9vp5$8cv$1...@pegasus.tiscalinet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: URGENTISSIMO !!!

Qualcuno sa se esiste un comando per eseguire un file eseguibile dal proprio
progetto realizzato in VB ?
Ringrazio anticipatamente per l'aiuto, ciao.

...

Puoi utilizzare il comando Shell:
        .....
        Shell pathname[,windowstyle]
        msgbox "ATTENZIONE!!!", vbOK, "ATTENZIONE"
        .....
Attento perň che l'eseguibile cosě laciato č indipendente dal progetto che
lo avvia (si crea un proprio task). Visual Basic infatti non attende che tu
chiuda il programma avviato con "SHELL" per eseguire la sucessiva riga di
codice, ma bensi prosegue indisturbato (nel esempio vedrai aprirsi
contemoraneamente il tuo programma e la Message Box).
Ciao
Emanuele


Se il comando Shell non dovesse andarti bene puoi usare questo:
' SEZIONE DICHIARAZIONI
'
Public Type STARTUPINFO
    cb As Long
    lpReserved As String
    lpDesktop As String
    lpTitle As String
    dwX As Long
    dwY As Long
    dwXSize As Long
    dwYSize As Long
    dwXCountChars As Long
    dwYCountChars As Long
    dwFillAttribute As Long
    dwFlags As Long
    wShowWindow As Integer
    cbReserved2 As Integer
    lpReserved2 As Long
    hStdInput As Long
    hStdOutput As Long
    hStdError As Long
End Type
Public Type PROCESS_INFORMATION
    hProcess As Long
    hThread As Long
    dwProcessID As Long
    dwThreadID As Long
End Type
Global Const NORMAL_PRIORITY_CLASS = &H20&
Global Const INFINITE = -1&
Declare Function CloseHandle Lib "kernel32" (hObject As Long) As Boolean
Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long,
ByVal dwMilliseconds As Long) As Long
Declare Function CreateProcessA Lib "kernel32" (ByVal lpApplicationName As
Long, _
    ByVal lpCommandLine As String, ByVal lpProcessAttributes As Long, ByVal
_
    lpThreadAttributes As Long, ByVal bInheritHandles As Long, ByVal _
    dwCreationFlags As Long, ByVal lpEnvironment As Long, ByVal _
    lpCurrentDirectory As Long, lpStartupInfo As STARTUPINFO, _
    lpProcessInformation As PROCESS_INFORMATION) As Long
' Crea un nuovo processo e ne attende il completamento
'
Public Sub ExecuteAndWait(cmdline As String)
    Dim NameOfProc As PROCESS_INFORMATION
    Dim NameStart As STARTUPINFO
    Dim lX As Long
    NameStart.cb = Len(NameStart)
    lX = CreateProcessA(0&, cmdline, 0&, 0&, 1&, NORMAL_PRIORITY_CLASS, 0&,
0&, NameStart, NameOfProc)
    lX = WaitForSingleObject(NameOfProc.hProcess, INFINITE)
    lX = CloseHandle(NameOfProc.hProcess)
End Sub
--
Lanciando ExecuteAndWait("C:\Programmi\MiaApp.exe") esegue MiaApp.exe e ne
attende la chiusura!
Buon lavoro!
Ciao!
Newsgroup: it.comp.lang.visual-basic
Titolo: Bounded Combo

Spero non si tratti di una FAQ, e serei grato a chi mi sapesse dare
una risposta (e magari una soluzione?)...
Situazione: una Combo legata ad un controllo Data, in VB5.
Perche' se imposto la proprieta' Style=2 (DropdownList) ottengo un
messaggio di errore (Error 383, Text property is read-only) ogni
qualvolta il controllo Data si sposta sul recordset?
Se imposto Style=0 (DropdownCombo) l'errore scompare, ma il metodo
ListIndex non funziona piu'.
Come fare allora per selezionare a runtime un determinato item della
Combo?
---------------------------
For private answers use the
following address only:
cmrm...@mo.nettuno.it
------------------------

Ricevi l'errore perche' settando la proprieta' style a 2 puoi solo scegliere
in elemento dalla lista ma il controllo data, ogni volta che ti sposti,
modifica la proprieta' text del combo che in questo caso e' a sola lettura.
Perche' non provi ad usare un DBCombo?
Ciao.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] importazione dati (2)

scusate se riposto il thread, ma non sono più riuscita a recuparare i vecchi
thread che ho postato, il problema era il recupero di dati da files txt del
tipo:
processori,5
hard disk,6
-,0
-,0
memorie,5
processori,10
memorie,5
come posso fare per importare i dati affinchè mi compaiano in questo modo:
processori,15
hard disk,6
memorie,10
-,0
alessandrogiacometti e fabio guerrazzi mi avevano suggerito delle
possibilità, ma un po per la mia poca esperienza ed un poco perche ho perso
i vecchi messaggi ma non sono riuscita a venirne a capo. please help
-
cia Marika

puoi postare per favore uno stralcio di file da imporetare almeno 10/15
righe?
c'e' un solo file da importare? l'unico problema sono le due prime righe che
sono diverse? č possibile che il npome del prodotto (es: processori) sia
scritto in modo diverso?
ciao
L2K

 L2K
ti ringrazio per avermi risposto con tanta sollecitudine.... spero tu possa
aiutarmi
il file è di tipo .txt e contiene all'incirca un centinaio di righe (campi),
del tipo (e sono sempre così)
processori,5
hard disk,6
memorie,15
-,0
-,0
monitor,3
tastiere,5
-,0
floppy,15
processori,12
memorie,11
-,0
monitor,5
quello che vorrei ottenere è eliminare le voci ricorrenti (nell'esempio
processori, monitor e memorie compaiono due volte ma puà capitare che
compaiano decine di volte, come anche "-")
vorrei quindi creare un file "pulito" tipo
processori,17
hard disk,6
memorie,26
monitor,8
floppy,15
-,0
in modo da controllare subito le quantità del venduto senza controllare (e
sommare) centinaia di righe....
credo di essere stata il più chiaro possibile e spero tantissimo che tu
possa aiutarmi.... i tempi per la consegna si sono ormai ridotti e come si
può vedere da qualche mio post recente ho lavorato anche a capodanno, dicono
che porti bene :-)
-
ciao Marika

 compaiano decine di volte, come anche "-")
Se questo processo deve ripetersi piu' volte, puoi utilizzare una tabella
per sommare gli stessi prodotti. La tabella puo' essere sia in memoria (per
un centinaio di prodotti al massimo pero') oppure ti puoi appoggiare ad un
database Access.
In questo modo ad ogni riga letta dal file TXT:
1) separi il prodotto dalla quantita'
2) se il prodotto non esiste in tabella lo aggiungi con la relativa qta',
altrimenti lo sommi a quello presente
3) alla fine di tutto il processo stampi il contenuto della tabella
Se usi un array in memoria eviti di creare un database con relativa gestione
e DLL varie, altrimenti con una tabella Access puoi anche stampare i dati
nell'ordine desiderato, tenere uno storico (basta un campo data), ecc.
Michele
--
Per l'e-mail togli "xxx".
Home page: 
http://spazioweb.inwind.it/fochinet

http://www.lukino2000.net/vb/convert.zip
ecco un esempio .... io mi sono basato su il tuo post precedente... comunque
non ti sarà difficile analizzarlo e sostituire il necessario
lascio a te la scrittura della routine per l'output dei dati per adesso sono
in una collezione
L2K

 L2K
[CUT ]
grazie..... spero che possa servirmi.... grazie a tutti
-
ciao Marica.sollevata