mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema recordset

Ciao a tutti,
    ho un problema nell'accesso ad un database Access 97.
Ho una control data1 associata ad un file .mdb che visualizzo tramite una
control dbgrid. Il mio problema e' che non riesco ad eliminare un record dal
recordset aperto cosi':
Dim db As Database
Dim Rs As Recordset
Dim FileName As String
Dim resp, query As String
FileName = "c:\documenti\cc.mdb"
Set db = Workspaces(0).OpenDatabase(FileName)
rs=db.OpenRecordset ("andamento") 'andamento e' la tabella
Il metodo rs.delete non funziona. Ho provato a farlo seguire da rs.update ma
nulla.
Io so che rs.delete dovrebbe eliminare il record corrente, ma come si setta
il record corrente. Io ho provato con i vari rs.movefirst etc, ma nulla. Il
fato e' che non ottengo nessun errore.
Qualcuno mi puo' mandare un piccolo esempio con inserimento cancellazione e
modifica di record?
Il mio database e' semplice: una tabella con una chiave primaria di una sola
colonna. A parte la chiave, tutte le colonne non sono indicizzate. E' forse
questo il problema?
Ciao a tutti e grazie
Neos

 rs=db.OpenRecordset ("andamento") 'andamento e' la tabella
with rs
    .seek "=", val-dla-chiave-nel-rec-che-vuoi-elim 'ricavalo con un txtbox
o altro
    if not .nomatch then .delete
    .moveprevious
    if .bof then .movefirst
end with

Newsgroup: it.comp.lang.visual-basic
Titolo: [aita, aita!] Piccolo problema con ADO

Ciau,
sono sempre io, quello del text editor mit correttore ortografico (il cui 
dizionario, tra l'altro, conta già più di 1200 parole ^^).
Essendo io un niubbo di vb 6.0 che in precedenza aveva programmato solo in 
Turbo Pascal, credo di aver fatto passi da gigante in questi giorni. C'è 
però una cosa che proprio non riesco a capire, nonostante la 
documentazione. Ovvero: esiste, nelle ADO, l'equivalente del 
"Recordset.NoMatch" dei Data? E qual è?
Riporto qui la sub incriminata. "rtbCorrettore" è una RichTextBox 
contenente il testo da correggere. All'avvio della form in cui è presente 
la rtbCorrettore, ogni parola viene evidenziata singolarmente.
Le msgbox sono solo temporanee, mi servono a capire come si comporta il 
programma.
Grazie mille a chi saprà aiutarmi ^_^.
***
Private Sub rtbCorrettore_SelChange()
Adodc1.Refresh
Dim parola As String
parola = rtbCorrettore.SelText
If parola <> "" Then
    segnaposto = Adodc1.Recordset.Bookmark
    CriterioRicerca = "Vocaboli = '" + _
    parola + "'"
    Adodc1.Recordset.Find (CriterioRicerca)
    If Adodc1.Recordset.NoMatch Then ' *<----*
        MsgBox ("Parola non presente")
        Text1.Visible = True
        Text1.Text = parola
        cmdAggiungi.Caption = "Ok"
        cmdAggiungi.SetFocus
    Else
        MsgBox ("La parola è presente nel dizionario")
    End If
End If
End Sub
-- 
Outspan, che sarei io.
Arma virumque canò... e poi boh
http://scriverefantascienza.blogspot.com/
 

 Private Sub rtbCorrettore_SelChange()


 If Adodc1.Recordset.NoMatch Then ' *<----*
Ciao. Se il provider lo consente potresti testare il valore della proprietà
RecordCount (If rs.RecordCount = 0 Then MsgBox "No record"), ma fai molta
attenzione: i cursori lato server e alcuni tipi di provider restituiscono
sempre -1, il che non significa che i record ci sono, ma solo che non è
stato possibile contarli, quindi potrebbe esserci qualche record oppure non
essercene nessuno.
Invece c'è un metodo che funziona sempre: se entrambe le proprietà EOF e BOF
sono True significa che il recordset è vuoto.
If Not (Adodc1.Recordset.BOF And Adodc1.Recordset.EOF) Then
      MsgBox "Ho trovato qualche record"
ElseIf Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
      MsgBox "Nessun record corrisponde al crierio della query"
End If
Spero ti sia utile. Ciao.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/
Newsgroup: it.comp.lang.visual-basic
Titolo: VBA ACCESS - selezionare un path

Ciao a tutti
sto sviluppando un applicazione con ACCESS ed ho il seguente problema: devo
permettere all'utente di selezionare il path di un file e voglio che cio'
avvenga mediante le finestre di selezione che di solito vengono utilizzate
nelle appliczioni Windows (ad esempio quelle che vengono visualizzte quando
selezioni Apri o Salva con nome).
Conosco i controlli FileListBox e DirListBox di Visual Basic ma vorrei
sapere se esiste un oggetto simile anche in Access.
Grazie a chiunque mi possa aiutare per questa cosa che a saperla e'
veramente banale, ma che mi sta creando parecchi problemi.
Ciao.
Claudio
--
Posted from 
mailhub.infostrada.it
 [161.27.227.135]
via Mailgate.ORG Server - 
http://www.mailgate.org

 wrote in message
E707A38D86C2D211A1C7...@exchangemi.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Recupero delle chiave di autoincremento dopo un Insert.

Ciao a tutti, ho una maschera i cui campi sono collegati ad un dataset 
attraverso la solita combinazione tableadapter e binding source; in 
pratica si comporta come una form di Access.
Ed esattamente come una sottomaschera di Access, nella form è presente 
una DataGridView che contiene dati collegati alla form principale 
attraverso un campo id, legato ad un campo autoincrementante della 
tabella a cui sono agganciati i dati della form principale.
Provenendo dallo sviluppo in Access (non si era capito, vero?) avrei 
bisogno di gestire la fase di un nuovo inserimento. Nel momento in cui 
inserisco i dati della "sottomaschera", devo salvare il nuovo record 
della maschera principale, recuperare il campo autoincrementante e darlo 
in pasto alla procedura di aggiornamento della sottomaschera.
Vi chiedevo quindi: c'è un metodo standard per fare questo senza dover 
rifare una query solo per sapere qual è il campo indice appena inserito 
dalla maschera principale?
Spero di essere stato chiaro. Grazie in anticipo per ogni dritta.
Saluti
-- 
Ciao
Nico

 ha scritto nel messaggio 
news:fpud4m$pr$1...@megan.servidellagleba.it...

Lavori su Access??? In caso contrario che database usi??? 

 
In questo caso MSSql, ma vorrei che il meccanismo fosse il più portabile 
possibile. Ad esempio MySQL ha una funzione chiamata last_insert_id() 
che fa proprio quello che cerco, ma, se possibile volevo appoggiarmi a 
qualche funzione legata all'astrazione dei dati di Vb.net (in 
particolare ai dataset)
Access l'ho citato solo per rendere più chiaro il concetto di 
maschera/sottomaschera.
-- 
Ciao
Nico

 particolare ai dataset)
@@Identity e Scope_Identity dovrebbero fare al caso tuo, e funzionano 
sia con SQL Server che con MySql
http://www.dotnethell.it/forum/messages.aspx?ThreadID=14693
http://www.actionscript.it/forum/archive/index.php?t-4076.html
ciao
stefano


A mio modesto parere devi cercare qualcosa che con llo standard sql.
Quindi @@Identity e Scope_Identity fanno quello che cerchi.
Altrimenti puoi usare con mysql LAST_INSERT_ID che io personalmente
uso tantissimo con il comando execute 

 particolare ai dataset)
Io userei un approccio differente. Se prevedi di utilizzare il tuo 
programma sotto differenti DBMS puoi provare a parametrizzare 
dall'esterno l'utilizzo delle query.
Giusto per capirci. Ti scrivi le tue belle query in un file esterno al 
programma (un xml va bene) e, in base al dbms che hai sotto, usi il file 
  appropriato.
In questo modo ti assicuri maggiori prestazioni, perchè usi comandi 
specifici del dbms, e grande portabilità.
Nicola
Newsgroup: it.comp.lang.visual-basic
Titolo: Richiesta informazioni

Sto cercando un controllo che mi permetta di stampare su etichette adesive
un codice a barre EAN13, se qualcuno ne conosce mi faccia sapere come si
chiamano e dove possono essere reperiti
i demo.
Grazie a tutti, in particolare a Enrico Santoemma per l'aiuto ricevuto.

...

---------
Ciao!
Dovresti trovare quello che cerchi sul Sito Comune dei programmatori VB,
http://members.xoom.com/it_lang_vb
.
Alla prossima
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260/
http://www.armaditaggia.com/marco

Newsgroup: it.comp.lang.visual-basic
Titolo: VB & Applicazioni/Comandi MS-DOS

Ciao a tutti.
   Volevo sapere se è possibile e come fare a ricavare l'output di
un'applicazione lanciata da MS-DOS (attivando ad esempio la finestra 'cmd'
in Win 2k) su VB. Ad esempio ricevere il risultato dei comandi DIR o VER.
Vi ringrazio.
 § Roby §
-- 
roby...@hotmail.com
 --

 Vi ringrazio.
Ridirigi l'output su file con > o >> e poi lo leggi. Non mi viene in mente
altro...
Ciao

Ecco la varsione più semplice.... funzionante con (credo) tutti i sistemi
operativi
Shell Environ("comspec") & " /c dir > c:\dir.txt"
Shell Environ("comspec") & " /c ver > c:\ver.txt"
Ciao
L2K

 Vi ringrazio.
Articolo sul sito comune
Ciao
--
Timothy Redaelli (inc@zzed version 1.0)

Newsgroup: it.comp.lang.visual-basic
Titolo: datareport error 372

ciao a tutti.
Nel mio programma utilizzo datareport per delle stampe ma quando porto il prog in un altro computer 
mi da
run-time error 372  impossibile trovare "datareport" in  c:\windows\system\msdbrptr.dll ecc ecc
cosa devo fare?

 cosa devo fare?
Includere msdbrptr.dll nel setup.
Mi pare che le dll da includere per il datareport siano due,
controlla le referenze per verificare quale sia l'altra.
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: x esperti (MAPI)

Salve,
C'č qualcuno cosě gentile da spiegarmi se si puo'  fare un programma
in VB che spedisca mail con attachment vari SENZA sfruttare Microsoft
Outlook?
Cioč che funzioni poi anche se uno non ha Microsoft Outlook.
Grazie Mille.

Andrea Strambi ha scritto:

Mah, senza Outlook o Exchange č duretta utilizzare MAPI... Questa (Mapi)
si basa proprio sui profili create da uno dei due programmi. Insomma:
deve essere presente il Windows Messaging System. Al momento non conosco
bene la situazione Win98, (nel senso che non mi ricordo se comprende un
qualche Exchange installabile durante il setup oppure no). Nel caso tu
riesca a utilizzare comunque Mapi, ti posso dire che conviene utilizzare
la Microsoft OLE Messaging, che č una dll che una volta installata e
registrata mette a disposizione una serie di oggetti dichiarabili in VB
(OLE Messaging la trovi nel CD di VB5), con funzioni piů avanzate e piů
flessibili, object oriented (con le o minuscole).
Se Mapi non ti aggrada (non basta installare il *tuo* software perché la
posta funzioni) puoi provare con qualche OCX di posta Internet, tipo
quelli della Mabry. Dŕ un'occhiata al sito (
www.mabry.com
). Comunque ce
ne sono altri, forse anche freeware.
Ciao
Flavio
f.ronco@*NonMiServeNiente*
flashnet.it
http:\\
www.geocities.com
\Paris\3461\
-------------------------------------------------------------
"Dio ha uno screensaver. Speriamo che non tocchi il mouse..."

Newsgroup: it.comp.lang.visual-basic
Titolo: Accesso alle proprieta' di un controllo da altro form in VB.NET

Ho una  classe form1 istanziata come frm1 con una textbox,a cui assegno in
run-time il valore "pippo"
textbox_form1.text="pippo"
Da questo form ne istanzio un secondo precedentemente  creato come form2
anch'esso con una textbox
dim frm2 as new form2
frm2.show
se dal form 2 faccio eseguire :
textbox_form2.text=frm1.textbox_form1.text
Sulla textbox del form2 non ottengo il valore "pippo"   contenuto nella
textbox_form1,
 ma soltanto il valore text stabilito in fase di progettazione.
Ho anche  settato tutte le proprieta' modifiers  dei controlli a Public ,ma
il risultato e' lo stesso.
Come e' possibile accedere alle prorieta' dei controlli di un form da altro
form cosi' come avviene in VB6 ?

Vedi post sotto
[.net] form e variabili
giuseppeD


La soluzione si chiama "Singleton": è un design pattern ben noto nella OOP e
(per comodità) lo puoi trovare già implementato (seppur non in relazione
alle Windows Forms) in C# qui:
http://www.dofactory.com/Patterns/PatternSingleton.aspx
L'idea di base è quella di applicare il pattern per simulare la presenza
delle istanze predefinite (a la VB6), ed adattarlo per non rinunciare alla
possibilità di ottenere nuove istanze.
--
.A
UGIdotNET - User Group Italiano .NET
http://www.ugidotnet.org
Newsgroup: it.comp.lang.visual-basic
Titolo: crisi da principiante....help me

dopo due giorni di VB ...non riesco a scrivere il codice per uno stupido
pulsante (con su "ok" e "annulla") per far si che il programma si chiuda
con Ok oppure resti in vita con annulla
potete scrivermelo voi , cosi
almeno riesco a capire dove sicuramente sbaglio??? grazie a tutti coloro
che mi risponderanno.
sdj
--------------------------------
Inviato via 
http://usenet.iol.it

 con Ok oppure resti in vita con annulla
1) Un solo pulsante? Che può valere "OK" o "Annulla"?
2) O sono due pulsanti?
3) No, non dirmi che un solo pulsante porta la scritta "OK ... Annulla"
(In questo caso devi usare il MouseDown o MouseUp e vedere se il valore di X
è nella prima metà della Width del pulsante (OK) o nella seconda (Annulla)
Nel caso 1:
Sub pulsante_Click
    if pulsante.caption="OK" then
        ... istruzioni per OK
    else
        ... istruzioni per Annulla
    end If
End Sub

SCUSA LUPO MI SONO ESPRESSO MALE
IL PULSANTE E' QUELLO CHE DERIVA DALLA
COSTANTE 
vbOKCancel
scusa e grazie


 vbOKCancel
Ne capisco sempre meno. Ricomincia daccapo e spiega meglio, dai.

ho fatto un programmino stupido ( del tipo clicca qui ed esce una foto,
clicca la ne esce un'altra); ho inserito un pulsante esci 
che ha questo
codice
Private Sub cmdesci_Click()
unload me
End Sub
 e fin qui
tutto ok!
ho deciso che quando clicco su esci , il programma deve
propormi le alternative
OK e annulla , quindi quando clicco su esci
appare una cesella con su le due opzioni
poi il buio
come devo fare
affiche' cliccando su ok il programma si chiuda, e clicando su annulla
rimanga li dove? premetto che č un'unica Form.
grazie ( sperando di
essere stato piů chiaro)


Credo di aver capito:
    risposta = MsgBox("Tuo messaggio", vbOKCancel)
    If x risposta vbCancel Then
        call MsgBox "Hai scelto Annulla"
    end if
    If risposta = vbOK Then
        MsgBox "Hai scelto OK"
    end if

grazie....avrai mie notizie
alla prossima
sdj


 rimanga li dove? premetto che è un'unica Form.
Private Sub cmdesci_Click()
    risposta = MsgBox("Hai cliccato su Esci" & vbcrlf & "Clicca su OK per
confermare l'uscita," & vbcrlf & "Clicca su Annulla per continuare perchè
hai cappellato.", vbOKCancel+vbquestion)
    If x risposta vbCancel Then
        call MsgBox ("Hai scelto Annulla. Non farò un bel niente (bevi di
meno...!)", vbokonly+vbinformation)
    end if
    If risposta = vbOK Then
        call MsgBox ("Hai confermato l'uscita. Ti sbatto fuori!",
vbokonly+vbexclamation)
        unload me
    end if
End Sub

 grazie....avrai mie notizie
Cosè, una minaccia? ;-)))

     If x risposta vbCancel Then
Quell'x è chiaramente un refuso, pardon.
     If risposta vbCancel Then
Newsgroup: it.comp.lang.visual-basic
Titolo: HELP EXCEL MACRO AUTOAPRI

Come faccio con excel 97 a creare  un macro che parta in automatico alla
apertura del foglio come era la vecchia AUTO_APRI()
Grazie per la collaborazione
bar...@tin.it

...

Dall'editor di visual basic
tuacartella - ThisWorkbook
Private Sub Workbook_Open()
    'tua procedura
End Sub
Ciao
--
Andrea :-{)
acm...@hotmail.com
==========================================================
Ci tieni a fare la figura dell' incompetente su Usenet?
No? Allora leggi 
http://beatles.cselt.it/news-it/FAQ.html
Conosci bene i manifesti dei NG su cui posti?
Li trovi su 
http://beatles.cselt.it/news-it/gruppi-it.html
==========================================================

Newsgroup: it.comp.lang.visual-basic
Titolo: Disattivare il tasto tab

Immagino che vi siate già resi conto che di programmazione  non ne capisco
un cavolo.
Sapreste essere così gentili da dirmi come posso fare per disattivare il
tasto tab da un programmino??
Mi serve evitare che, l'utente del programma selezioni i pulsanti tramite il
tasto tab al posto del mouse.
Grazie a tutti
Ciao Mario
Rispondete anche via e-mail
dem...@tin.it

 tasto tab al posto del mouse.
i pulsanti (e molti altri controlli [credo]) hanno la proprietą TabStop che,
se messa a False, impediscono all'utente di dargli il focus con il tasto di
tabulazione
ciao!
Faber



Newsgroup: it.comp.lang.visual-basic
Titolo: Accendere una Lampadina !!!

Ciao a tutti, vorrei fare un programma x accendere una lampadina.... a parte
il circuito di controllo che non e' un problema come faccio ad esempio a
pilotare l'uscita della
seriale mettendo ad un livello logico alto un pin della stessa ?
sapreste indicarmi un sito dove posso trovare degli esempi ?
GRAZIE A TUTTI
ciao
                ADRIANO



Io avevo fatto un'interfaccia emplicissima su parallela. Sono anni che non la uso ed il progrmmino
all'epoca lo avevo fatto il QB. Comunque, per pilotarla con VB, puoi usare la WinIO32.dll (se non
ricordo male) che trovi sul Sito Comune.
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
---------------------------------------------------------------------------

VB essendo un linguaggio ad alto livello non ti permette di indirizzare
direttamente le periferiche Hardware, quindi devi utilizzare delle
estensioni di utility che nel tuo caso potrebbe essere WIN95IO.DLL.
Per il resto è semplice, basta abilitare il bit 1 della porta parallela e
sul pin corrispondente troverai +5 V necessari per pilotare quel che vuoi.
Credo che comunque ti convenga utilizzare QuickBasic che permette
l'indirizzamento diretto tramite isstruzioni di OUT.
Saluti Emiliano.
-- 
Posted from 
eqs.ifsi.rm.cnr.it
 [150.146.134.11] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
KRRZ5.97665$hk4.3...@news.infostrada.it...


 ha scritto nel messaggio
news:r81_5.100849$hk4.3...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: ancora problemi con ntext

come scritto nel messaggio precente ho creato un campo ntext in una tabella
di SQL Server ma quando vado ad inserire una quantità grande di caratteri
nel campo (ma di sicuro non superiore alla dimensione massima del campo) mi
da questo errore : "troncamento a destra della stringa di dati".
Da cosa può dipendere?


Metti un breakpoint prima della execute e posta l'sql che sta per essere
eseguita, così si possono fare delle prove.
ciaociao
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] - Come muovere il cursore in una textbox

Salve a tutti, grazie tante per gli aiuti che mi date, ora pero' vorrei fare un
progetto che ad un evento deve muovere il cursore al rigo immediatamente
precedente. Come posso fare? Esiste una soluzione?
Grazie infinite. :)
-- 
Posted from  [62.98.169.146] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Grazie infinite. :)
Prova con selstart, non so se funziona con le textbox multiline...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] RichTextBox: Disabilitare ritorno a capo automatico.

Salve a tutti,
    ci ho provato un po in tutti i modi ma niente da fare... Magari qualcuno
di voi mi sa rispondere.
Come si fa a disabiltare il ritorno a capo automatico nella richTextBox?
Insomma a me interessa che il testo venga spezzato su più righe solo quando
c'è un interruzione di riga!!!
Ciao a tutti
Daniele

 ha scritto nel messaggio
news:uC6c8.15657$8F6.6...@twister2.libero.it...

In mancanza di meglio, considera che la property RightMargin del RichTexBox
e' di tipo Single...
se utilizzi un valore bello grosso, tipo 1E+38, pur non essendo impossibile,
ci sono buone possibilità pratiche che non vada mai a capo in automatico ;-)
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 ci sono buone possibilità pratiche che non vada mai a capo in automatico
;-)
Grazie mille del suggerminto ma purtroppo faceva parte delle prove che avevo
gia fatto... e non funziona :-(
Grazie lo stesso
Ciao
Daniele

 gia fatto... e non funziona :-(
Dimenticavo:
In design devi anche impostare la barra di scorrimento orizzontale, con
rtfHorizontal oppure rtfBoth


Grazie mille della dritta!
Ora funziona!
Solo che MarginRight non accetta valori troppi alti ed č per questo che ti
avevo detto che non funzionava...
con 1E+38 sembra che non succeda nulla...
per ora ho messo 10900000
Ti ringrazio nuovamente.
Ciao
Daniele
PS: ma cosa gli costava alla M$ mettere una proprieta NOWRAP?

Newsgroup: it.comp.lang.visual-basic
Titolo: urgente nibble mistero

ricevo 3 caratteri con la comm che devo interpretare e convertire 
il primo č il byte low
il secondo il byte high
il terzo il byte segno
qualcuno sa dirmi come devo fare per comporre il valore ?
ringrazio anticipatamente

 ringrazio anticipatamente
De nada! :)
-- 
Quando noi ignoranti eravamo di piů, tutto era piů bello (A. Celentano).
  ___   _   ___ _  _______   _______ ___
|   \ /_\ | _ \ |/ / _ ) \ / /_   _| __|
| |) / _ \|   / ' <| _ \\ V /  | | | _|
|___/_/ \_\_|_\_|\_\___/ |_|   |_| |___|

 ha scritto:


 Ti ringrazio
Di niente :)

Newsgroup: it.comp.lang.visual-basic
Titolo: ? File .dbf - Data1 - dbGrid.

Ok, scusate il mio precedente messaggio, ho risolto.
Adesso Vi pongo questo quesito:
Un file DBF, è stato affidato al controllo Data.
Il controllo Data è agganciato al DB grid.
Creo una colonna aggiuntiva per i commenti sul DB grid
Su questa colonna però, non riesco a scrivere nulla e quindi non posso
salvare ciò che vorrei scrivere.
Forse devo creare la colonna anche nel file DBF???
sulle celle che mi passa il file DBF e quindi Data1, riesco a scrivere e a
salvare.
Aiutatemi prima che io impazzisca.
Grazie di cuore --- CIAO
C E S A R E !!!


la colonna aggiuntiva va connessa con un campo del DBF tramite le sue
proprietà (cosi al volo non ricordo bene del tipo DBgrid.colums.datafields )
altrimenti la colonna aggiunta non può appartenere al DBF stesso.

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB.NET] Beta1 Appena installata su WinMe (e FUNZIONA!!!)

Ciao ragazzi,
allora, non ci crederete  ...... ho appena installato la beta1 di 
vb.net
 su
win me e funge !!! (chi è che diceva di no? eh eh?)
a parte questo sono rimasto sbalordito ...... è molto migliorato !!!
sono solo un paio d'ore che ci smanetto e ho alcune domande da porvi (se
avete voglia di rispondere)
- dovè finito l'intellisense ?!?!? non mi dite che l'hanno eliminato sennò
mi sparo ... ;)
- gli array di controlli ? non si fanno più ?
- come si imposta il nome del form ? (scusate Win32Form) la proprietà name
non cè !
- dove prendo un oggetto recordset ? (vedo solo adoConnection e roba simile)
- Come si fa l'output su msgbox ? (x ora faccio console.write che scrive su
console :(
ah dimenticavo ... quando l'ho installato vado su programmi->
microsoft.net
frameword SDK e trovo solo "IL Disassembler", per andare in ambiente di
sviluppo (Win Form Designer) ho dovuto cercare il file WinDes.exe sotto il
path di installazione ed eseguirlo (l'ho trovato x caso) .... non potevano
metterlo nei collegamenti dico io ?!?
l'ambiente di sviluppo mi fa creare solo un form ... come si fa a creare
progetti ?
P.S. Ma chi ha detto che VB.Net è difficile ?? io ho notato solo che
l'approccio è molto object-oriented ma la difficoltà dove sta ? per il resto
è come vb ....
Grazie a tutti
CIAO

 è come vb ....
Non è difficile, è solo diverso.
Prova ad esempio a capire come si fa a recuperare la largezza in pixel di un
testo, in VB6 avevi TextWidth mentre in Vb.Net...
Ciao
Corrado
Newsgroup: it.comp.lang.visual-basic
Titolo: Programma contabilita

Mi servirebbe, se esiste, un programma di contabilita' (fatturazione, 
fatture ricevute, magazzino, un piccolo bilancio) freeware e con i sorgenti 
(soprattutto) per un ospedale in Ciad.
Ho necessita' che sia con i sorgenti perche' dovro' poi tradurlo in 
francese, il programma puo' essere il piu' semplice possibile perche' in 
Ciad non vi sono problemi fiscali particolari, il bilancio serve solo per 
controllo interno.
Va bene sia in Access che in VB (o anche eventualmente altro.
Sapete aiutarmi?
grazie 

Il giorno Tue, 10 Apr 2007 09:32:59 +0200, "Donatella"
<donat...@hotmail.com.cancella> ha scritto:

C'era un esempio sul sito di GBC
http://www.gbcweb.com/articoli___fatture.html
ho anche questo link:
http://www.fatturafast.org/
--
ciao
  Stefano

 ha
scritto:
anche questo:
http://www.invv.net/it/software/fatturazione_pro/index.asp
--
ciao
  Stefano

Newsgroup: it.comp.lang.visual-basic
Titolo: Programma di SetUp

Puoi utilizzare programmi specifici come InstallShield Express 2 (abbastanza
semplice da usare e dal costo contenuto) oppure InstallShield Professional
5.1 (ottimo!! anche se abbastanza caro)
Ciao
Riccardo









Newsgroup: it.comp.lang.visual-basic
Titolo: Ringraziamaneto a Domenico Statuto

Nel modulo bas va quanto segue:
...
Per prima cosa voglio ringraziare domenico statuto per la sua risposta.E'
stata utilissima, ma non risolve il problema inquanto io us come componente
il webbrowse il quale non ritorna handle della finestra.
a questo punto ho tentato il seguente metodo:
Dim IE As SHDocVwCtl.InternetExplorer
Set IE = CreateObject("InternetExplorer.Application"),
ma infase di esecuzione mi ritorna :runtime error 13 type mismatch.
A questo punto credo di sbagliare io , ma sinceramente ho perso il lume
della ragione e non ci capisco piů un fico secco.
Se qualcuno volesse darmi un suggerimento ...
Ancora grazie
Berardi Paolo
pber...@nt.kjws.com

...


Nel modulo bas va quanto segue:
...
Per prima cosa voglio ringraziare domenico statuto per la sua risposta.E'
stata utilissima, ma non risolve il problema inquanto io us come componente
il webbrowse il quale non ritorna handle della finestra.
a questo punto ho tentato il seguente metodo:
Dim IE As SHDocVwCtl.InternetExplorer
Set IE = CreateObject("InternetExplorer.Application"),
ma infase di esecuzione mi ritorna :runtime error 13 type mismatch.
A questo punto credo di sbagliare io , ma sinceramente ho perso il lume
della ragione e non ci capisco piů un fico secco.
Se qualcuno volesse darmi un suggerimento ...
Ancora grazie
Berardi Paolo
pber...@nt.kjws.com


Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda da neofita

Non riesco a capire come si fa a far iniziare l'applicazione non da un Form
ma da un Modulo.
In pratica voglio eseguire del codice da un Modulo prima dell'evento Load o
Initialize del Form.
Credo sia una cazzata, ma sono tonto.
Stefano "Tita"
togli la PRIVACY per rispondere
remove PRIVACY for answer

 wrote in message
8qps62$5he$1...@pinco.nettuno.it...


 ha scritto nel messaggio
news:8qps62$5he$1...@pinco.nettuno.it...


Initialize del Form.
Aggiungi un modulo stadard ed in questo una procedura Sub Main(): in tale procedura scrivi il codice
da eseguire all'avvio, quindi invochi il metodo Show del form.
Poi, nelle proprietą del progetto specifichi che all'avvio deve esegire la Sub Main e non il form.
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
---------------------------------------------------------------------------

Poi, nelle proprietà del progetto specifichi che all'avvio deve esegire la




Newsgroup: it.comp.lang.visual-basic
Titolo: Spazio su disco, ancora non ho risolto il problema - GetDiskFreeSpaceEx

Come posso dichiarare la GetDiskFreeSpaceEx in VB6 e win Me ?
L'esempio della MSDN richiede il tipo Ularge_integer ma dichiarando il tipo
ULARGE_INTEGER, sempre con l'esempio MSDN, mi da un bel po' di errori.
Il tipo viene definito con il comando Typedef union che in VB non esiste
(almeno credo).
Come si dichiarano interi a 64bit in VB6 ?
Se procedo con il metodo GETDRIVE ( suggeritomi sul NG ) non riesco a fargli
riconoscere dischi oltre i 2Gbyte.
Qualcuno può aiutarmi ?
Grazie
Enzo

 Come posso dichiarare la GetDiskFreeSpaceEx in VB6 e win Me ?
scusami, capisco che a detta di tutti me sia un pacco mostruoso, ma mi
sembra davvero impossibile che non riconosca una funzione introdotta nel 96,
se non sbaglio.
puoi postare pari pari il codice che usi, dichiarazioni e chiamate, cosi'
qualcun altro con me lo puo' testare ?
ciao, a.


Credo che il problema sia i parametri di tipo INT64 (long a 8 byte).
Prova cosě (e se funziona non stare a chiederti perchč):
Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias
"GetDiskFreeSpaceExA" (ByVal lpRootPathName As String,
lpFreeBytesAvailableToCaller As Currency, lpTotalNumberOfBytes As Currency,
lpTotalNumberOfFreeBytes As Currency) As Long
--
           .-.         .-.         .-.
.-.       /   \       /   \       /   \       .-.
  ----- 
http://www.murialdo.it/it_lang_vb
 -----
    \   /       \   /       \   /       \   /
     '-'         '-'         '-'         '-'
   Partecipate al progetto Leonardo proponendo
   nuove idee e aiutando a svilupparle

 ha scritto nel messaggio
news:98galv$1l5rd$1...@ID-51318.news.dfncis.de...


Se mi posti la definizione corretta e la dichiarazione corretta ti
ringrazio
Leggi mia risposta a Pal in questo trhead.
ciao


Newsgroup: it.comp.lang.visual-basic
Titolo: INSERT INTO .....

Ciao a tutti,
c'è qualcuno di voi espertissimo su INSERT INTO che mi spiega perchè
questa stringa non viene accettata??
STR="Insert Into Rubrica (Nome, cognome, citta)Value('" & txtnome & "', '" &
txtcognome & "', '" & txtcitta & "')"
cnn.Execute STR
Per curiosità ho provato ad inserire direttamente dei risultati in questa
maniera ..
STR="Insert Into Rubrica (Nome, cognome, citta)Value('Paolo', 'Hendel',
'Milano')" ....
Il risultato è sempre lo stesso, cioè va in debug e mi dice che c'è un
errore di sintassi !!!!
Chi mi spiega meglio dove inserire gli apici dove le virgolette etc...???
Grazie a tutti
--
Ciao ;-))
crist...@tin.it
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°

Ciao, l'errore è che la parola chiave NON è VALUE, ma VALUES ! :)
Bye
--
Tango
www.af.mil
ICQ: 35463931

 Chi mi spiega meglio dove inserire gli apici dove le virgolette etc...???
Direi che manca lo spazio fra "citta)" e "Value".
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 l'errore è che la parola chiave NON è VALUE, ma VALUES ! :)
Oops!

Newsgroup: it.comp.lang.visual-basic
Titolo: VBA in Word

Sto realizzando in VBA (office 2000) un foglio di Word che si compila
pescando i dati in un DB.
Ho inserito una serie di Moduli di Testo, unici punti del foglio dove ho la
possibilità di scrivere.
Se però con STRUMENTI --> PROTEGGI DOCUMENTO.
Faccio in modo di non poter scrivere sul resto del foglio allora perdo anche
la possibilità di lanciare Macro.
Come faccio?
Simo

 ha scritto

Cosa intendi con "lanciare Macro"? Il comando "Strumenti/Macro/ecc..."?
Perche' le macro le puoi lanciare da una voce di menu' o da un pulsante su
di una barra o con una combinazione di tasti...
Puoi chiarire meglio?
--
Ciao.
Maurizio
Newsgroup: it.comp.lang.visual-basic
Titolo: Disegnare Grafico

Avrei bisogno di disegnare un grafico su una Picture.
I dati che ho sono le coordinate X e Y dei punti da riportare sul grafico.
Questi punti poi andranno uniti da linee in modo da simulare una linea
continua.
Per fare un esempio, come se volessi rappresentare una funzione matematica.
Esiste qualcosa per VB?
Massimo

 Per fare un esempio, come se volessi rappresentare una funzione
matematica.
prova a guardare il metodo Line dell'oggetto Picture, al limite puoi farlo
direttamente sul form
Salutoni
Sergio

 Esiste qualcosa per VB?
oltre al metodo line come gia ti è stato detto puoi usare anche pset
ciao :)

Questi metodi li conosco bene.
Pensavo ci fosse gią in giro qualcosa di pronto.
Grazie comunque

 Pensavo ci fosse già in giro qualcosa di pronto.
Prova a vedere 
http://www.neodatatype.net/
 del nostro buon neoMVP Zanna

 Pensavo ci fosse già in giro qualcosa di pronto.
Dai un'occhiata alla funzione API PolyLine che si aspetta un vettore di
punti (POINTAPI) e lo hdc del controllo nel quale graficarli. E' molto piu'
veloce del corrispondente Line/LineTo.
Limitazioni:
- Il numero di punti graficabili e' ~16000 circa ma si puo' decidere di
graficarne x alla volta (piu' chiamate alla stessa funzione)
- disegnare linee con spessore > 1 genera inaspettati effetti
collaterali/crash (a meno di utilizzare schede video particolari).
Se dovesse servirti, ti posto il codice di una sub che grafica matrici di
punti superiori ai 16000 (con la possibilita' di graficare a partire da un
punto "centrale")
'Numero di punti in cui spezzare la curva
Private Const MAX_POINT = 16000
Public Type POINTAPI
    X As Long
    Y As Long
End Type
Private Declare Function Polyline Lib "gdi32" _
                (ByVal hdc As Long, _
                 lpPoint As POINTAPI, _
                 ByVal nCount As Long) As Long
'Semaforo per la graficazione
Private bBusy As Boolean
Public Sub Plot(ByRef hdc As Long, _
                ByRef lpPoint() As POINTAPI, _
                ByVal nCount As Long, _
                Optional ByVal First As Long)
   Dim i As Long
   Dim Last As Long
   'Verifica che non stia gia' disegnando
   If bBusy Then
      Exit Sub
   Else
      bBusy = True
   End If
   'Conta i segmenti della curva
   Last = nCount \ MAX_POINT
   For i = 0 To Last
      'Disegna il segmento di curva
      Call Polyline(hdc, _
              lpPoint(First + i * MAX_POINT), _
              Sgn(Last - i) * MAX_POINT - _
              (Sgn(Last - i) - 1) * (nCount Mod MAX_POINT))
   Next i
   bBusy = False
End Sub
hth,
Lokar
--
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
Newsgroup: it.comp.lang.visual-basic
Titolo: Resize form e controlli

Ciao a tutti,
Penso che sia capitato un po' a tutti di sviluppare un'applicazione e di
doverla far funzionere su più PC con risoluzioni diverse. Il problema che
spesso si incontra è di adattare le proprie form a risoluzioni differenti
per non ritrovarsi con form mezze vuote ed oggetti/font piccolissimi.
Naturalmente ho cercato in google e ho trovato OCX, funzioni poco
perfonrmanti che al resize delle screen fanno passare tutti gli oggetti e ne
modificano i valori di dimensione e dei font ma con risultati scadenti.
Avete qualche consiglio per affrontare il problema?
Grazie
Gian

 spesso si incontra č di adattare le proprie form a risoluzioni differenti

Newsgroup: it.comp.lang.visual-basic
Titolo: Ho bisogno di un lavoretto (Pago)

Salve,
ho bisogno di un lavoretto in Visual Basic.
Si tratta di un dialer esattamente come quello che viene distribuito in alcuni
siti erotici.
Il programmino deve lanciare una conessione remota ed un browser molto
semplificato (tasti avanti - indietro ecc..). Praticamente permette di navigare
all'interno di poche pagine internet predefinite e basta.
Se qualcuno pensa di poterlo realizzare bene e personalizzarlo come voglio io
mi contatti: 
folle...@tiscalinet.it
 (poi vi fornirò un'email più decente)
Pago tramite bonifico o assegno.
Saluti
Marco
-- 
Posted from 
flat-p08-m106.aruba.it
 [62.149.168.108] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

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

 :-)
-- 
Posted from 
flat-p09-m204.aruba.it
 [62.149.169.206] 


Mi rivolgerò a qualche altro ng.
Ottimo !

Newsgroup: it.comp.lang.visual-basic
Titolo: scrivere su exe

Carissimi pochi gg fa mi sono chiesto: sarà possibile scrivere alla fine di
un exe?
Quello che voglio fare è semplice:
alla pressione di un tasto scrivo alla fine del file exe una decina di
caratteri.
Si può fare?
Se si puo fare, come devo aprire l'exe e come posso scriverci?
Ciao e grazie
Andrea.

 Si può fare?
Se l'EXE é il PRG  che sta girando in quel momento, mettici una pietra
sopra...
, altrimenti... si...

...

Come?
Andrea

...

Apri il file .exe in append come se fosse un normalissimo file di testo.




File binario, vorrai dire!
--
Roal Zanazzi
z...@iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] MACRO [?]

Ciao ragazz, volevo sapere se era possibile eseguire le Macro di Access 97
trrammite codice VB 5, qualcuno sa come fare???
io ho provato a leggere qualcosa sulla guida ma non dice nulla...
Cordialità Gianluca
-------------------------------------------
gvde...@iol.it
TelematicaMente Gianluca

Ciao
Purtroppo scordati di poter eseguire una macro Access da VB o da qualsiasi
altro linguaggio.

Newsgroup: it.comp.lang.visual-basic
Titolo: select su data

Salve a tutto il newsgroup.
Avrei un problema su queste righe di programma che non funzionano:
- st1sql="select * from fattdett where fattdett.data= #" &
data1.recordset.fields("data") & "#"
.- data2.recordsource=st1sql
 - data2.refresh
In pratica non viene visualizzato alcun record  nel dbgrid associato a data2
( ma nella tabella fattdett ci
sono record che soddisfano la condizione where ).
C'e' evidentemente un'errore , qualcuno puo' suggerirmi dove ?
Grazie a tutti
Nico


solito discorso: come è scritta la data in data1.recordset.fields("data") ?
ciaociao

 Format(data1.recordset.fields("data"),"mm/dd/yyyy") & "#"

 wrote in message
T0XBb.15156$i_5....@news.edisontel.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: Leggere linea di un file

Se apro un file:
Open Filename For Input As #hnd
e voglio leggere soltanto una riga, magari la seconda, come posso fare?

 wrote in message
news:8trdco$i89$1...@nslave2.tin.it...


 ha scritto nel messaggio
news:8trdco$i89$1...@nslave2.tin.it...


 wrote in message
It86JWN...@newsmst.mcis.galactica.it...


 wrote in message
news:8ts0bi$9h7$1...@nslave2.tin.it...


 ha scritto nel messaggio
news:8ts0bi$9h7$1...@nslave2.tin.it...


 e voglio leggere soltanto una riga, magari la seconda, come posso fare?
Scritto in fretta (da controllare e migliorare):
Option Explicit
Private Sub Command1_Click( _
)
  Dim a() As String
  Dim s   As String
  Dim i   As Long
  a = GetLines("pippo.txt", 1000, 10)
  For i = LBound(a) To UBound(a)
    s = s & a(i) & vbCrLf
  Next
  Text1.Text = s
End Sub
Public Function GetLines( _
  FileName As String _
, FromLine As Long _
, Lines As Long _
) As Variant
  Dim intFile     As Integer
  Dim lngLine     As Long
  Dim strLine     As String
  Dim strArray()  As String
  ReDim strArray(0)
  intFile = FreeFile(0)
  Open FileName For Input As intFile
  Do While Not EOF(intFile)
    Line Input #intFile, strLine
    lngLine = lngLine + 1
    Select Case True
    Case FromLine <= lngLine And _
         lngLine <= FromLine + Lines - 1
      If UBound(strArray) = 0 Then
        ReDim strArray(1 To 1)
      Else
        ReDim Preserve strArray(1 To UBound(strArray) + 1)
      End If
      strArray(UBound(strArray)) = strLine
    Case lngLine > FromLine + Lines - 1
      Exit Do
    Case Else
    End Select
  Loop
  Close intFile
  GetLines = strArray
End Function
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

...


Newsgroup: it.comp.lang.visual-basic
Titolo: OT: vendita applicazioni

Ciao raga.
Ho una domandina per voi.
Ho qualche programmino pronto e vendibile, ma non so come fare per
pubblicare.
Qualcuno di voi conosce la strada?
Grazie infinite
Ninja

 wrote in message
news:VsxS6.21267$ZZ.8...@news.infostrada.it...

Proprio ieri ho registrato due miei programmi per PocketPc su Tucows
http://submit.tucows.com/
 e su CNET
http://upload.cnet.com/uploads/0-5904195.html?tag=subnav
Prova comunque a cercare nei vari siti da cui puoi scaricare software la sezione
'Submit Software' o 'Segnala file' o comunque qualcosa del genere...
Ciao!
Esteban
Hosted by 
www.seber.it

 ha scritto nel messaggio
news:PUFS6.22988$ZZ.9...@news.infostrada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: VBA - Come memorizzare una costante

Con Excel VBA avrei bisogno di memorizzare un valore in una "variabile" alla
chiusura del file e di ritrovare lo stesso valore alla successiva riapertura
del file.
L'unico sistema da me trovato č quello di inserire tale valore in una cella
di un foglio di lavoro o in un "Nome" del Workbook ma credo che questo non
sia il metodo piů corretto. Lo stesso problema mi si presenta lavorando con
le macro di Access.
Qualche suggerimento da proporre?
Grazie e ciao a tutti.
gilgil

Qualche suggerimento da proporre?
Idem come sopra. L' unica differenza e' che qui, invece di una cella, puoi
usare un campo di una tabella.
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT][LOL] Impariamo a sProgrammare

è un po' lungo ma dategli un occhio :))
http://www.soft-land.org/documenti/pessimo.html
bye BlackMagic

 
http://www.soft-land.org/documenti/pessimo.html
Non è possibile! Quel maledetto ha letto del mio codice! Dove l' ha preso !?
:-))
Ciao
Michele

 ha scritto


 bye BlackMagic
Piů che un corso di cattiva programmazione a me pare un corso di orrido
italiano.
--
rumplestilskin


E' un ottimo corso di offuscamento del codice per .NET :)
(sempre che in compilazione non venga ottimizzato).
CIAnO

Newsgroup: it.comp.lang.visual-basic
Titolo: Qualche domandina semplice per chi ci capisce

Oggi sviluppando una semplice applicazione VB6, mi sono trovato a dover
gestire una password, non sapendo come nascondere i caratteri inputati alla
vista dell'operatore. Do per scontato che tra le migliaia di activeX o
proprietà o metodi che si possono visualizzare in VB6, vi sia già qualcosa
di già fatto. C'e' qualcuno che mi possa indicare il metodo più semplice?
(io ho usato una inputbox, ma accetto anche altri suggerimenti).
Ho inoltre riscontrato una lacuna comune su i maggiori manuali di VB6. Alla
fine del testo non vi è un elenco dei comandi principali di BASIC utilizzati
comunque da questa applicazione. C'e' sempre qualcuno che potrebbe indicarmi
un testo che possa costituire un riferimento costruttivo ad uno sviluppatore
alle prime armi?
Grazie in anticipo a chi mi risponderà


Piu' semplicemente metti una form all'avvio della procedura con una TextBox,
poi dai uno sguardo alla proprieta' : PassWordChar di tale text box.....
Ciao
Ven.

Per i libri dai un'occhio al 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!
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] [SMAU] qualcuno c'è?

Io ci sono domani ven. 25 ott.
C'è qualcun altro?
Ciao
--
' // Initialize the expression evaluator
Engines.Evaluator = CreateObject("
http://www.neodatatype.net
")
' // you can find resources for and from the NG here!
Me.SitoComune = "
http://www.it-lang-vb.net
"

C'č qualcun altro?
Dovevo esserci io, ma devo lavorare. Se riesco ci sarň lunedě...
Ciao,
Moreno
-- 
sirri at morenosoft dot com
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

 C'è qualcun altro?
Nope... quest'anno niente smau... ho preferito venire al meeting! O:-)



Hai fatto bene. Se le cose non cambiano direi che era il mio ultimo
SMAU...


 SMAU...
Io non ce l'ho fatta, ma alcuni colleghi mi hanno confermato...
Peccato, _potrebbe_ essere tuta un'altra cosa...
ciao
ugo
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Da un modulo a una lettera formale

Quesito.
Ho un modulo che uso per l'interpretazione di un test medico su cui scrivo
dei dati e metto crocette sui punti pertinenti.
Qualcuno poi prende il mio modulo e scrive una lettera formale in base alle
crocette che ho messo sul modulo.
Esempio:
______________________
Data del test__24/10/2001___
Paziente:__Pinco Pallino___
Medico: __Tizio Caio____
Qualitá:  __ Buona  _X_Sufficente __Scarsa
Test: _X_ Nei limiti ___ Borderline ___Anormale
ecc...
E qualcuno scrive:
Egregio Dr. Tizio Caio,
    il test eseguito in data 24/10/2001 sul suo paziente, Signor Pinco
Pallino, appare di sufficente qualitá e risulta nei limiti della norma ecc..
E in piú sulla lettera c'é il mio nome, il nome del laboratorio, saluti e
altre formalitá, lo spazio per la mia firma ecc..
Vorrei automatizzare il tutto creando un "form" in visual basic in cui
inserisco i dati e tutte le mie crocette (questo lo so fare) e poi scrivere
(o meglio far si che Word scriva) la mia lettera formale in base a quello
che ho inserito nella mia form di VB.
Immagino che non dovrebbe essere difficile, non ho problemi con la prima
parte (creare un form in VB per i miei dati e le mie crocette) ma non so
come implementare la seconda, stampare la lettera formale.
Qualcuno potrebbe spiegarmi come fare o indirizzarmi su un tutorial che
spieghi come fare il tutto con VB6 (VBA forse)?
Grazie in anticipo.
Luca

 crocette che ho messo sul modulo.
Puoi sfruttare la funzionalità di mailmerge propria di Word. Tu ti limiti a
scrivere i dati in un file da cui Word li riprenderà per fare il mailmerge.
Se cerchi Mailmerge nel tuo help di Word sono quasi sicuro che lo trovi (io
sono in giro col portatile e l'help non l'ho installato adesso, quindi non
posso controllare). Altrimenti, dai un occhio qui:
http://www.rdg.ac.uk/SerDepts/su/Topic/WordProc/WoPW7mai01/
Ciao
*Roby*

 wrote in message
news:9r8dvc$s00hf$1...@ID-94194.news.dfncis.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: Traduzione di un programma

Ho creato un programma in VB5.0
Ora ho bisogno di creare la traduzione in Inglese, e forse altre
lingue.
Ho gia' visto che VB5 prepara un sistema tramite registry per la
traduzione.
Il problema e' che solo poche cose sono ora segnate in questi
registry.
A questo punto i problemi sono 2:
1- C'e' un modo per completare l'elenco nei registry di tutte le voci
mancanti in modo automatico?
2- Cosa si fa a farlo a mano?
Grazie Lorenzo

 traduzione.
Per i miei programmi ho usato un metodo molto più artigianale:
- nel registro di configurazione ho inserito una variabile che mi dicesse la
lingua selezionata al momento dell'installazione del software,
- ho creato una classe che facesse da filtro tra il file delle risorse dove
sono contenute le stringhe ed il resto del programma; in pratica, invece che
chiamare direttamente la LoadResString, chiamo
GestoreStringhe.LoadString(indice); il metodo loadstring va a leggere la
stringa all'indice 2000*lingua+indice; cosicchè posso avere al massimo 2000
stringhe per lingua (e quindi al più 16 lingue).
Ciao, Alessio.