mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto generale!!!!!!!!!!!!!!!

Salve a tutti.
Sono nuovo del linguaggio VB, ho scritto questo mess. per chiedere se esiste
un valido programmatore che partecipa vivamente a questo news... se la
risposta č si, vi prego di farmi sapere se possiede un'indirizzo ICQ oppure
una chat personale per poterci "parlare" liberamente senza dover aspettare
giorni o settimane per delle risposte...
Vi ringrazio della vostra attenzione.
Bye Jonny

 Sono nuovo del linguaggio VB, ho scritto questo mess. per chiedere se
esiste un valido programmatore che partecipa vivamente a questo news... se
la risposta č si, vi prego di farmi sapere se possiede un'indirizzo ICQ
oppure una chat personale per poterci "parlare" liberamente senza dover
aspettare giorni o settimane per delle risposte...
((-:
Questo ng e` pieno di persone con le caratteristiche che hai indicato, forse
alcuni di loro icq l'hanno pure, ma non odio nessuno d'essi a tal punto da
fare il delatore... Mi dispiace.
:-))
Perche' non ti sfogli i post con santa pazienza, o con mezzi appena un po'
piu` sofisticati tipo il "Trova", alla ricerca della parola "ICQ" che ogni
tanto vedo comparire in qualche sign?
Fa' anche un giro sul Sito comune di questo ng:
 
http://www.murialdo.it/it_lang_vb
e leggi, oltre al resto, anche il nostro "Manifesto".
Scusa se posso sembrare scortese ma e` una reazione naturale che mi e`
provocata dalla parola "Aiuto" nel subj e dagli esclamativi
riririripetuti...
Buona fortuna, comunque.
Dimenticavo... Qui le risposte o sono immediate... o non sono. Nemmeno a noi
piacciono i tempi lunghi.
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

 la risposta è si, vi prego di farmi sapere se possiede un'indirizzo ICQ


 grazie per la risposta, non volevo essere maleducato, non conosco molto
bene le regole dei nw
Non sei stato maleducato. E spero di non esserlo stato neppur io. Spero che
continui a frequentare il ng, che ti ci possa trovare bene e che possa
esserti utile nel tuo lavoro.
--
Ciao.


Newsgroup: it.comp.lang.visual-basic
Titolo: Nascondere menu'

ho un form con dei menu
poi c'è un command button che prementolo gli ho assegnato il comando
me.menu.visible=false
Il menu' invece di scomparire mi restituisce un errore di runtime 387
- Impossibile impostare la proprietà visible per questo controllo.
Che può essere?

 - Impossibile impostare la proprietà visible per questo controllo.
perchè è l'unico sottomenù di un menù, e se un menù ha dei sottomenù, non
possono essere tutti invisibili.
sono stato spiegato? ;-)
ciaociao



Ok recepito, grazie!!!!
Newsgroup: it.comp.lang.visual-basic
Titolo: Codice Fiscale, Partita IVA

G

T

n

n

Il titolo e' interessante, ma non leggo NESSUNA delle vostre mail!!!!
Di che state parlano?
NON POSTATE IN HTML!!!! Senno vi legete solo voi e lasciate fuori il 70% dei potenziali lettori!!!!
-- 
Hi, Ciao
Ettore                 By -MES-
http://freeweb.aspide.it/freeweb/ilmes
 
(con OCX per stampare i Recordset)
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb

n

HTML.


 
oooh Finalmente, adesso gradirei un riassunto delle puntate precedenti....
C'e' qualcuno cosi' gentile da farlo?
Forse la cosa mi interessa.


 T
NON POSTATE IN HTML, SENNO IO E MOLTI ALTRI NON LEGGONO NULLA!!!!!!!!!


...
Nulla, Non leggo NULLA  (Sto HTML!!)


Q

M

Newsgroup: it.comp.lang.visual-basic
Titolo: Input # e array

In una Sub voglio che il mio programma
legga da un file dei dati del tipo:
1, 3, 4.4
2, 1, 2.2
...
in cui i primi due interi sono gli indici h,k
di un elemento di una matrice Double, mentre
il terzo numero e' proprio il valore dell'elemento
della matrice  matr_tmp(h,k).
Se uso un ciclo del tipo
 For i = 1 To Nrow
  Input #1, h, k, elem
  matr_tmp(h, k) = elem
 Next
funziona tutto bene, mentre uso un ciclo di questo
tipo
 For i = 1 To Nrow Step 1
   Input #1, h, k, matr_tmp(h, k)
 Next
non funziona piu'.
Non legge correttamente nemmeno h e k.
qualcuno potrebbe spiegarmi perche'?
grazie.
Davide

 ha scritto nel messaggio
news:9cjsid$jvo$1...@pegasus.tiscalinet.it...


 ha scritto nel messaggio
news:9cjsid$jvo$1...@pegasus.tiscalinet.it...

Ancora lo stesso post, BASTA!!!!
Ciao
--
Timothy Redaelli
timothy....@email.it

 ha scritto nel messaggio
news:9cjsot$k1s$1...@pegasus.tiscalinet.it...



che parolona grossa... offendere...
:-))
ciao
ugo

 ha scritto nel messaggio
news:9ckh9p$si2$4...@pegasus.tiscalinet.it...

emm... hai ragione,
avrei dovuto dire
 " spero di non avervi rotto le ... dll "
o qualcosa del genere.
ciaociaociao
davide

Newsgroup: it.comp.lang.visual-basic
Titolo: Oggetto contatore digitale

Esiste per visual basic un oggetto che mi permetta di avere
graficamente un'indicazione tipo un timer contatore/digitale?
Tipo questo:
http://www.marcucci.it/prodotti/imm_comp/3096407.JPG
Credo che l'immagine sia più esemplificativa delle mie parole...
Mi accontento anche di qche idea di cosa cercare in google...
Al3x

 
http://www.marcucci.it/prodotti/imm_comp/3096407.JPG
Al3x



Guarda qui:
http://www.it-lang-vb.net/collab.asp?autore=99
http://www.it-lang-vb.net/download.asp?file=http://www.it-lang-vb.net/Archivio/Sorgenti/Led.zip&ID=218
--
ciao
  Stefano

> Guarda qui:
Non ho ancora visto ma dai titoli ci siamo!
Grazie, grazie, grazie!
Al3x
Newsgroup: it.comp.lang.visual-basic
Titolo: HELP Prima applicazione multiutente

Devo sviluppare un'applicazione gestionale che dovra' essere usata in
rete sotto Win98. Finora ho sempre lavorato in monoutenza con VB6 e i
database di Access e non so come si comportano in rete.
Ho bisogno di sapere a cosa vado incontro con gli strumenti di cui
sopra: sapevo che Access 1.1 per leggere un singolo record bloccava
una pagina composta da piu' records, e' ancora cosi' con Access 97?
Dovrei eventualmente sostituire Access visto che cerco il bloccaggio a
livello di singolo record e, soprattutto, la massima sicurezza
nell'integrita' dei dati?
Consigliatemi, grazie.
------------------------------------
per il reply rimuovi xyz dall'e-mail
------------------------------------

 Devo sviluppare un'applicazione gestionale <CUT>


A patto di lasciare completamente perdere il locking (ossia: usare il lock
ottimistico, trappare e gestire i run-time errors e sperare in bene ;-)
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: tab+textbox=testo selezionato

Salve.
Come faccio per fare in modo che quando mi sposto su una casella di testo
mediante pressione del tasto tab, il testo della casella di destinazione
risulti selezionato im modo che sia pronto per essere sostituito?
Ovviamente se skippo alcune caselle (sempre col tasto tab) il contenuto di
queste non deve cambiare...
Grassie per l'aiuto
Pietro

 vediamo se funziona, però non è stato testato.
Azz....
ho 40 caselle di testo... mi sparo a farlo per tutte...
Vabbè con calma.... ;-)
Grazie mille per la rapidità.
Pietro

 ha scritto nel messaggio
news:c2a64t$1rk4s8$1...@ID-71199.news.uni-berlin.de...

Cattura gli eventi delle textbox che ti interessano in una sola classe, ed
in quest'ultima scrivi il codice che ti serve.
Ciao,
Dave

 classe, ed in quest'ultima scrivi il codice che ti serve.
oppure ti fai un array di text box
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 Dave
cerbeurs

 ha scritto nel messaggio
news:ck12c.2721$O31....@news4.tin.it...

Scusa, ma sono proprio alle prime armi... intendi creare una sub o una
function e chiamarla ad ogni textbox_change?
Grazie mille
Pietro

Newsgroup: it.comp.lang.visual-basic
Titolo: se sei esperto o anche no ti prego rispondimi

ho alcuni quesiti da chiedervi su windows nt e 98
1)w98 se supporta il dual processor?
2) su wnt si possono far girare i progs per w98?
3) tutte le periferiche sono  compatibili con windows nt?
4)che differenza c'è tra nt server e nt workstation?
5) cosa mi consigliate tra i due?
6) posso tenerli insieme wnt e 98?
7)posso programmare tranquillamente in nt e far girare i programmi creati
con visual basic in w95/98?
8) se w98SE non supporta il dual processor, se lo installo lo stesso
funziona(naturalmente sfruttando un solo processore!)
grazie.
NATURALMENTE QUANDO DICO WNT MI RIFERISCO ALLA VERS 4 O L'ULTIMA(NON W2000)

NATURALMENTE QUANDO DICO WNT MI RIFERISCO ALLA VERS 4 O L'ULTIMA(NON W2000)
Altrimenti avresti detto W2000...
Ciao

 grazie.


Ne' W98 ne' W98SE supportano il Dual Processore !!!
--
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: [vb6] eliminare il popupmenu standard da una textbox

hello
ho creato un popupmenu attivabile col bottone destro del mouse da un textbox
ma invece di far apparire il mio popup, viene mostrato quello di default di
windows.
come fare a far apparire solamente il mio premendo il bottone destro ?
penso ci sia di mezzo sempre qualche api,ma quali e come usarle ?htazie
leonello

 come fare a far apparire solamente il mio premendo il bottone destro ?
il buon balena segnalava una tecnica "non ortodossa" per ottenere questo
effetto, si basava sulla disabilitazione e successiva riabilitazione del
textbox...
adesso te la cerco...
http://www.google.it/groups?hl=it&lr=&ie=UTF-8&threadm=bmopr7%24ph2bi%241%40ID-173193.news.uni-berlin.de&rnum=2&prev=/groups%3Fas_q%3Denabled%26ie%3DUTF-8%26as_ugroup%3Dit.comp.lang.visual-basic%26as_uauthors%3Dcssoft%26lr%3D%26hl%3Dit
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

...

prova cosě dovrebbe funzionare....
fammi sapere
ciao
Xes
Private Sub Text1_MouseDown(Button as integer, Shift as integer, _
X as single, Y as single)
If Button = 2 then 
Text1.Enabled = false 
PopupMenu YourMenu 
Text1.Enabled = True 
End if 
fonte: 
www.visual-basic.it

> leonello
A questo link spiega come fare:
http://vbnet.mvps.org/index.html?code/subclass/contextmenu.htm
ciao
giancarlo
Newsgroup: it.comp.lang.visual-basic
Titolo: problema con MSComm

perchè questo codice mi da l'errore "The device is not open"
MSComm1.CommPort = 3
MSComm1.PortOpen = True
MSComm1.Output = "atd36540" & vbCrLf

alex, giovedì alle 3.05.14, ha estratto dai neuroni:

C'è un On Error da qualche parte, vero?
Alberto
-- 
I have a dream that my four little children
will one day live in a nation where they
will not be judged by the color of their skin
but by the content of their character.

C'è un On Error da qualche parte, vero?
no

alex ha pensato forte :

Strano.
Prova a mettere l'handshaking a Off (non si sa mai che la periferica 
non lo gestisca, e tu non abbia ponticellato i pin di CTS con RTS).
Ovviamente, la Com 3 sul tuo pc esiste (altrimenti dovrebbe darti un 
errore diverso).
Ciao


errore diverso).
ho provato così
MSComm1.Handshaking = comXOnXoff
ma non funziona

Nel suo scritto precedente, alex ha sostenuto :

Ma sei sicuro che la tua periferica gestisca l'handshaking in XonXoff?
Per stare sicuro, io ti consigliavo di disattivarlo (ComNone).
Comunque punterei anche ad altre cose.
Parlami di Com3. E' una seriale normalissima su motherboard, o qualche 
cosa strana?


cosa strana?
dunque, in "Gestione periferiche" riesco solo a vedere COM1 e COM2.
Evidentemente COM3 è una porta virtuale creata dal mio modem interno
Atlantis Web-runner

 Evidentemente COM3 è una porta virtuale creata dal mio modem interno
Non ritieni che questa informazione fosse stato meglio darla nel primo 
post?


post?
va bene, ma adesso che conoscete questi ulteriori dettagli, posso
avere qualche spiegazione in piů?

 avere qualche spiegazione in più?
Daccele tu, le ulteriori spiegazioni:
Se usi CommPort=1, o CommPort=2, hai lo stesso problema (che è poi la 
prima prova che hai sicuramente fatto)?


prima prova che hai sicuramente fatto)?
ecco l'elenco degli errori dalla 1 alla 18 (l'unica che non da errori
è la 2)
Porta: 1 - Port already open
Porta: 3 - The device is not open
Porta: 4 - Invalid port number
Porta: 5 - Invalid port number
Porta: 6 - Invalid port number
Porta: 7 - Invalid port number
Porta: 8 - Invalid port number
Porta: 9 - Invalid port number
Porta: 10 - Invalid port number
Porta: 11 - Invalid port number
Porta: 12 - Invalid port number
Porta: 13 - Invalid port number
Porta: 14 - Invalid port number
Porta: 15 - Invalid port number
Porta: 16 - Invalid port number
Porta: 17 - Invalid port number
Porta: 18 - Invalid port number

 ha
scritto:

Il tuo modem funziona correttamente? (ad esempio con una connessione ad
Internet)
Hai installato i driver giusti del modem?
Ti da errore quando vai in  gestione periferiche?
Che sistema operativo usi?
Anche il mio portatile ha un modem interno ma io lo uso tranquillamente sulla
seriale virtuale con MsComm.
ciao
  Stefano

Che sistema operativo usi?
xp
Newsgroup: it.comp.lang.visual-basic
Titolo: INSERT INTO ........ ???

Scusate ma perchè non và ???? Ho una delle 4 tabelle in cui voglio
aggiungere due valori (di cui uno è la chiave-esterna) TBL_ALBUM
Dim DB as Database
Dim RS as Recordset
Set DB = Opendatabase (".........")
Set RS = DB.OpenRecordset (INSERT INTO TBL_ALBUM (ALBUM_DESC,ID_AUTORE)
VALUES (COMBO_ALBUM,COMBO_AUTORE)
..... ma non accade nulla, (sarà forse colpa degli oggetti combo ???? se sì
qual'è la giusta sintassi ???)
Grazie a tutti
Ciao  Master_P  8)

 VALUES (COMBO_ALBUM,COMBO_AUTORE)
L' istruzione INSERT aggiunge dei nuovi record in tabella e, ovviamente, non
restituisce righe.
Col l' istruzione SELECT * FROM TBL_ALBUM ti viene restituito il recordset,
cioe' una copia del contenuto della tabella TBL_ALBUM.
Ciao
Aldo

 Ciao  Master_P  8)
Ciao,
potresti utilizzare uno di questi metodi (a memoria non prendere come oro
colato la sintassi :-)
Set DB = Opendatabase (".........")
Set RS = DB.OpenRecordset ("SELECT * FROM <nomeTabella>", ....)
With RS
    .addNew
    .FIELDS("<NomeCampo>").Value = <Valore>
    ....
    ....
    .Update
end With
-------
Set DB = Opendatabase (".........")
strInsert = "INSERT INTO <NomeTabella> (<Campo1>,<Campo2> ...) VALUES
(<Valore1>,<Valore2> ...)"
DB.execute strInsert
Ciao
Franco L.

 VALUES (COMBO_ALBUM,COMBO_AUTORE)
Il comando INSERT non restituisce recordset, per cui va eseguito a livello
di database cioè:
DB.Exexute "INSERT INTO TBL_ALBUM (ALBUM_DESC,ID_AUTORE) " & _
    "VALUES ('COMBO_ALBUM','COMBO_AUTORE')"
Ciao
Sirjo




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

devo fare un programma in VB di un semaforo
che ogni dieci secondi dal lancio del programma cambia colore
cioč prima
rosso...
poi dopo dieci secondi si sccende il giallo
dopo altri dieci secondi si accende il verde...
e di nuovo il rosso...
fino a quando non esco dal programma...
come fare ? nn so prodprio da dove partire.... ;-(
aiuto!!!
Rita ;-)

 che ogni dieci secondi dal lancio del programma cambia colore
puoi usa un timer e delle picturebox, imposti interval=10000 e nel suo 
evento cambi il colore alle picture...
CIAO 

 evento cambi il colore alle picture...
Meglio ancora delle Shape, cosě le fa pure rotonde.
-- 
As far as we know, our computer has never had an undetected error.  - Weisert
News 2000 [v 2.06] / StopDialer / PopDuster - 
http://www.socket2000.com
Akapulce portal: 
http://www.akapulce.net
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Alignment e Multiline, Win95 e Win98

Ho notato un diverso comportamento delle proprietą del controllo TextBox a
seconda del sistema operativo.
In Win95 c'era bisogno di settare Multiline = True per avere effettivamente
l'Alignment se diverso da vbLeftJustified.
In Win98 questo problema non c'e' piu' e la cosa e' molto comoda.
Mi chiedo se distribuendo su sistemi Win95 applicazioni scritte e compilate
sotto Win98 (=>Multiline=False) l'Alignment va a farsi benedire oppure no.
E se si', c'e' la maniera di portarsi dietro qualche dll nel pacchetto di
instalazione per ovviare al problema?
Qualcuno ha mai provato?
Grazie
--
Piero Santini (VB6Sp3 - Win98)
Togliere ahaha dall'indirizzo per risposte in mail

 wrote in message
81gmr3$d4i$1...@nslave2.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Allargare combo

Ho una descrizione particolarmente lunga in una combo che non posso
allargare per motivi di spazio. Per mostrare tutta la descrizione ho provato
ad
allrgarla con il dropdown, ma visto che non esiste un "dropup" mi rimane
larga.
Come posso fare?
Grazie e ciao PAO

 ha scritto

Option Explicit
Private Sub Form_Load()
    Combo1 = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
    'Combo1.ToolTipText =
"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
    Combo1.ToolTipText = Combo1
End Sub
ciao, a.

Newsgroup: it.comp.lang.visual-basic
Titolo: stampa di un singolo record in report Access2000

Buongiorno a tutti.
Vi posto un problema che mi sta facendo sclerare....
Ho un database ACCESS2000 con:
-tabella "Clienti"
-maschera "Clienti"
-report "Clienti"
Ovviamente dalla maschera clienti immetto nuovi record, ne cancello, li
modifico.
Nella maschera viene caricata un'immagine esterna, il cui percorso si trova
in
campo nascosto "Foto", e questa immagine va anche caricata nel report
relativo.
Ho poi creato un pulsante che mi deve stampare il report di quel record, ma
qui
non funziona. Attualmente l'istruzione č, quindi, cosě:
    Dim stDocName As String
    stDocName = "Clienti"
    DoCmd.OpenReport stDocName, acViewPreview
    Set Reports!Clienti!Foto.Picture = LoadPicture(Foto.Value)
    DoCmd.PrintOut acSelection
Se provate questo codice, scoprirete che stampa il report di tutti i record,
nonostante il metodo AcSelection.
Questo per me č inammissibile, visto che il database mi serve per gestire
1300
clienti.
ho provato anche a imporgli una funzione in SQL che controllasse che il
campo
ID_cli tra maschera e ID_cli del report siano uguali in questo modo...
    DoCmd.OpenReport stDocName, acViewPreview, , Forms!Clienti!ID_cli.Value =
ID_cli.Value
Ma neanche cosě funziona!!!
Ho provato poi a farmi stampare la maschera di un singolo record con questo
codice:
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.PrintOut acSelection
Neanche a dirlo, qui l'istruzione AcSelection funziona regolarmente!
Vi prego aiutatemi... sono disperato!!!!!
ema...@libero.it
#####_______#######
=====| KeViN |======
##################
--------------------------------
Inviato via 
http://usenet.libero.it

 Ma neanche così funziona!!!


 ciao
--------------------------------
Inviato via 
http://usenet.libero.it
Newsgroup: it.comp.lang.visual-basic
Titolo: [DAO e/o ADO] RecordCount

Come mai il metodo RECORDCOUNT richiamato su un oggetto RECORDSET
restituisce valore -1 anche se invece il record nel db ha dei record?
(Ora mi sta RIcapitando programmando in ASP, ma ricordo che mi succedeva
anche un paio di anni fa quando scribacchiavo in vb5)
Grazie...
Daniele

 wrote in message
news:_JH07.555$D03....@news.infostrada.it...

1) Movelast
2) Movefirst
3) --> Recordcount

 ha scritto nel messaggio
news:9hvhks$14je$1...@stargate1.inet.it...

oppure
SELECT COUNT(*) AS NRec FROM NomeTabella
Ciao
Faber

restituisce valore -1 anche se invece il record nel db ha dei record?
Con ADO il recordcount vale solo se utilizzi certi modi per aprire il
recordset. A memoria non mi ricordo quali, comunque su msdn c'e'
scritto.
Guarda l'help del metodo open dell'oggetto recordset.
Saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 242, 152
  VBR - Vero Birro Romagnolo®, diffidate dalle imitazioni!
 Opel/ECC Calibrezio EVO-VI --- Kawasaki "Gas Gas" ZZ-R 1100
 ICQ# 36893168 - IRCNet: bugbarbeq, @ on #linux-it & #NetBSD
   On contrary of popular belief, Unix *IS* user friendly:
    it just appears to be selective who it is friend with

Daniele
il
fatto e' che ado, per risparmiare memoria, non carica i dati in memoria
finche' non glie lo dici tu, ma e' una cosa che nelle MSDN e' scritto
GRANDE COSI'...
devi prima popolare il recordset con rst.MOVELAST
a
quel punto il recordset avra' caricato tutti i dati e potrai procedere.
ma ti ricordo che nelle msdn...
ciao
_JeLot_
--------------------------------
Inviato via 
http://usenet.iol.it
 

 restituisce valore -1 anche se invece il record nel db ha dei record?
il metodo migliore per conoscere il numero di record è chiederlo al provider
tramite query
SELECT COUNT(*) FROM Tabella
non affidarti alla proprietà recordcount

 non affidarti alla proprietà recordcount
concordo
alcuni tipi di cursore o di locking non forniscono il numero corretto
--
Fibia "Sakamoto" FBI
E-mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Sito Personale: 
http://www.geocities.com/fibiafbi
VB Simple: 
http://vbsimple.virtualave.net
Membro #25 delle Mitiche Brigate Takahashi sezione Sud

 _JeLot_
ciao Daniele

Newsgroup: it.comp.lang.visual-basic
Titolo: Maschere Access in VB. Come importarle?

Come posso importare delle maschere access in VB?
esiste qualche control aggiuntivo o si puo' fare direttamente?

...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] drag&drop (x un esperto)

Ciao a tutti.
Vorrei capire il funzionamento del drag&drop in vb. Per farlo da un
controllo a un'altro controllo all'interno del mio prg ho capito come
funziona attraverso un esempio che ho scaricato da internet ed è molto
semplice. Come si fa invece da un mio prg a un'altro prg di win? E
come viceversa?
Ciao,
     Salvo

 ha scritto nel messaggio
news:3b273556...@news.inwind.it...

Spiegati Meglio ( forse vuoi trascinare un file con una tua  Associazione
sul tuo file Exe ?)



No volevo ad esempio che se da esplora risorse viene trascinato un
file sul mio editor di testi, questo prontamento lo apre. Oppure che
se dal mio prg di gestione file l'utente trascina un file sul blocco
note (in esecuzione) questo verrà aperto. Spero di essermi spiegato. 
Ciao,
     Salvo

 ha scritto nel messaggio
news:3b273556...@news.inwind.it...


note (in esecuzione) questo verrà aperto. Spero di essermi spiegato. 
E' un' operazione a dir poco banale.
In un progetto vuoto metti un textbox in un form;
Imposta il textbox con multiline=true e scrllbar=both;
Copia il codice sotto la firma;
Esegui e trascina un file txt sulla textbox :)
hth, hal
=================================================
Option Explicit
Private Sub Form_Load()
    Text1.OLEDropMode = 1   ' automatico
End Sub
Private Sub Form_Resize()
    Text1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub
Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    If (Data.Files.Count) Then
        Text1.Text = CaricaFile(Data.Files(1))
    End If
End Sub
Private Function CaricaFile(ByVal a_filename As String) As String
    Dim nFile As Integer, buffer As String
    nFile = FreeFile()
    Open a_filename For Input As #nFile
    CaricaFile = StrConv(InputB(LOF(nFile), nFile), vbUnicode)
End Function

Ehm, ho dimenticato di chiudere il file :( 
Private Function CaricaFile(ByVal a_filename As String) As String
    Dim nFile As Integer
    nFile = FreeFile()
    Open a_filename For Input As #nFile
    CaricaFile = StrConv(InputB(LOF(nFile), nFile), vbUnicode)
    Close #nFile
End Function
sorry, hal

Hal, ma perchč prendi i dati dal file in quel modo "strano"???
Non č possibile farlo cosě:
input #nfile, varstr
caricafile = varstr


Ciao,
     Salvo

caricafile = varstr
Prova ad eseguire quello che hai scritto e capirai ;-)
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Non stampa sul stampante di rete

Ho preparato una stampa con dei codici print #1 ......... per una stampante
ad aghi, e finchè la stampante è collegata al computer dove gira il prog
tutto è ok (anche se stampo su laser) ma quando cerco di stampare su una
stampante collegata in rete il prog mi si inchioda .......... chi mi sa dare
una spiegazione ?
Grazie, Alberto

 Ho preparato una stampa con dei codici print #1
Non ho capito, come fai ad inviare codici print alla stampante?
--------------------------------------------
             ASSA
http://assatarram.yohoo.it
Napster: Assatarram3
it.comp.lang.visual-basic: Assa
--------------------------------------------


Credo che per riuscirci bisogna installare la stampante di rete in questione
con l' opzione di cattura della porta. In questo modo l' output diretto alla parallela
viene redirezionato sulla stampante di rete.
ciao, hal

Come si fa ?

Newsgroup: it.comp.lang.visual-basic
Titolo: Memorizzare checkbox

Ciao,
sto ultimando un applicativo con vb 2008 express e ho
inserito un CheckBox per determinare se vedere o meno nella
barra l' icona per cui
Private Sub BarraApplicazioni_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
BarraApplicazioni.CheckedChanged
        If BarraApplicazioni.Checked Then
            Me.ShowInTaskbar = True
        Else
            Me.ShowInTaskbar = False
        End If
    End Sub
il problema è che se chiudo e riapro l' applicativo perde il flag
(di default è False)
Come faccio per fargli "ricordare" la presenza o meno del
flag dopo ogni riavvio?
grazie
Marco

Scusate ho sbagliato gruppo...
ciao

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

Ciao a tutti e scusate l'OT,
per chi è interessato, l'attuale versione (6.6) di Reflector è l'ultima 
ad essere rilasciata gratis (la versione pro è già a pagamento) dalla 
fine di febbraio si pagheranno 35$.
Ciao
stefano


ultime novità: 
http://groups.google.com/group/it.comp.dotnet/browse_thread/thread/13cc1d1b080ae176#
Marcello Cantelmo


grazie.
ciao
stefano
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto allineamento su carta

Salve ho realizzato un piccolo programmino che mi fa i conti con i campi 
incolonnati nel seguente modo:
Quantità       Descrizione      Prezzo      Iva      Importo
txt1                text2                txt3        txt4         label1
txt5                text8                txt11      txt14        label2
txt6                text9                txt12      txt15        label3
txt7                text10              txt13      txt16        label4
Però quando stampo su carta il foglio, la colonna relativa al Prezzo, 
all'Iva e Importo, mi risultano allineati a sinistra come per i campi 
descrizione e Quantità. E non mi piace tanto questa visuale.
Mentre a video avendo impostato l'allineamento a destra è tutto OK
Non è nulla di grave, è solamente per un fatto estetico
Per essere allineati a destra come posso fare?
Mi suggerite qualche cosa?
Grazie tante
AP: un programmatore alle prime armi!!! 

 descrizione e Quantità. E non mi piace tanto questa visuale.
domanda: come fai a stampare su carta?
se ce lo dici, forse possiamo trovare il modo di modificare l'allineamento.
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Mentre a video avendo impostato l'allineamento a destra è tutto OK
Supponendo che tu stia utilizzando i normali metodi dell'oggetto Printer, 
sevi calcolare opportunamente la CurrentX sulla base della larghezza della 
colonna (la coordinata X di fine della colonna Prezzo) e dello spazio 
occupato dal testo che vuoi stampare (metodo .TextWidth)
Per lo piu' te la cavi con una semplice sottrazione.
Ciao
-- 
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown 

 Non č nulla di grave, č solamente per un fatto estetico


 che si possa scegliere a sinistra a centro o a destra, anche per la stampa?
no.
come diceva luca, puoi impostare il punto in cui cominci a "scrivere" con
printer.currentx e printer.currenty.


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Dec>Hex ok Hex>Dec ?

Ciao a tutti
Mi trovo con un piccolo problemino
la funzione "Hex(numero)"
restituisce il valore esadecimale del numero decimale
e per il contrario non esiste nulla?
l'help di VB5 non mi da la soluzione.
Utilizzo questa soluzione ortodossa ma se qualcuno ha qualche cosa di meglio
e` ben accetta
        Do Until ris = Format(Hex(passo), "00") Or passo = 255
            passo = passo + 1
        Loop
dove ris e` la mia stringa con il valore Hex e in passo mi ritrovo il valore
Dec

Quella M$ sono dei bastardi e nelle documentazioni non dicono nulla basta
usare:
Val("&Hnumero") e tutto funzia alla meraviglia
prova ad usare anche la sintassi per i numeri ottali, forse funzia anche
quella....
--------
Ciao
Sabba

 wrote in message
X2nL4.3095$xt2....@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: trasformare da decimale in binario

Salve,
scusate ma sono alle prime armi con VB6
Mi occorrerebbe un semplice algoritmo che mi
trasformi un numero decimale in binario.
Grazie in anticipo a tutti coloro che
sapranno essermi di aiuto



Se non ti basta l'HEX$(), che trasforma in esadecimale, ma vuoi un binario come
questo 1011001B:
http://code.dreamincode.net/snippet223.htm
--
ciao
  Stefano

Gianni ha scritto:

ma questo non è un problema di visual basic
http://www.bioinfovet.unimi.it/binfovet/bioin/biatica/linbin.htm
ciao, roby
Inviato da X-Privat.Org - Registrazione gratuita 
http://www.x-privat.org/join.php

Ciao.
Io lo faccio così
Public Function Dec2Bin(Decimale As Long) As String
    Dim Dec As Long
    Dim Bin As String
    Dec = Decimale
    Bin = ""
    Do While Dec > 1
        Bin = Trim$(Dec Mod 2) & Bin
        Dec = Int(Dec / 2)
    Loop
    If Decimale > 1 Then
        Bin = "1" & Bin
    End If
    Dec2Bin = Bin
End Function
Public Function Bin2Dec(Binario As String) As Long
    Dim Dec As Long
    Dim i As Long
    Dim Number As String
    Dim Lunghezza As Long
    Lunghezza = Len(Trim(Binario))
    If Lunghezza = 0 Then Exit Function
    For i = 0 To Lunghezza - 1
        Dec = Dec + Val(Mid(Binario, Lunghezza - i, 1)) * 2 ^ i
    Next
    Bin2Dec = Trim$(Dec)
End Function

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

Ho un applicazione .NET installata sulle macchine degli utenti con il
pacchetto di installazione. Ho aggiornato eseguibile e DLL manualmente
ed ora il collegamento nel menu di avvio cerca di reinstallare
l'applicazione. Se creo un nuovo collegamento funziona senza problemi.
Ho notato che i due collegamenti hanno funzionamento e dimensione
differente, quello del setup è 3kb, come target ha il nome
dell'applicazione ed è grigiato mentre il collegamento creato dopo è
400 byte e il target è il nome dell'eseguibile, quanti tipi di
collegamenti esistono? Idee per risolvere il problema senza ricrearli
tutti?
Grazie e saluti
Fritz


Si tratta di una shortcut "advertised".
http://msipackagingforvista.com/what-is-an-advertised-shortcut.html
Probabilmente puoi modificare il progetto del pacchetto di installazione in 
modo da creare shortcut ordinarie.
Bye
Raf 

 Si tratta di una shortcut "advertised".
http://msipackagingforvista.com/what-is-an-advertised-shortcut.html
Ok, grazie non ne conoscevo l'esistenza. Ora devo solo capire cosa ho
tolto dalla cartella di installazione che fa scattare la
reinstallazione.
Ciao
Fritz
Newsgroup: it.comp.lang.visual-basic
Titolo: Cicli For/Next, e computer più o meno veloci

Cari amici, il problema è il seguente.
Devo inviare dei comandi tramite il controllo MSCOMM alla seriale, ed
aspettare che mi risponda OK, o qualcos'altro
Guardate questo codice
   Do
      DoEvents
      Do While cnt < 250000     ' Ciclo interno.
        cnt = cnt + 1   ' Incrementa il contatore.
            If cnt = 200000 Then      ' Se la condizione è True.
                check = False         ' Imposta il valore del flag su False.
                Exit Do               ' Esce dal ciclo interno.
            End If
        Instring = Instring & frmTerminal.MSComm1.Input
        If InStr(Instring, "OK") <> 0 Then check = False:  Exit Do
      Loop
   Loop Until check = False
Dunque, se ricevo OK, esco subito dal ciclo.
Se non lo ricevo, rieseguo il ciclo per 250000 volte.
Sul mio vecchio macinino (Pentium II e Win 98), tutto funziona bene.
Ma ho provato su un PC + veloce e con Win XP, ed il valore 250000 sembra
essere troppo basso ed è necessario aumentare il ciclo interno.
Vorrei venirne fuori senza ricorrere all'espediente di eseguire un certo
numero di cicli, visto che la cosa cambia in ragione della velocità del PC
dove gira l'exe.
Avete qualche idea ?

 Guardate questo codice
l'MsComm ha degli eventi.
Usa quelli.
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 ha scritto nel messaggio
news:Truub.40536$9_.16...@news1.tin.it...


Non usare un ciclo usa una data un valore di ora e termini quando sono
passato x millisecondi 
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Ciao!
Perché non usi un timer?
    Ciao
        Allanon
-- 
- SPAMKILLER
 lasciate il NOSPAM nell'indirizzo: 
itlangv...@michele.sytes.net
 e lasciate la parola SPAMKILLER nel corpo dell'email

 sembra essere troppo basso ed è necessario aumentare il ciclo interno.
Trascurando per un attimo i suggerimenti su eventi & c , con i quali
probabilmente puoi riorganizzare meglio tutta la faccenda, se vuoi mantenere
il tuo ciclo di attesa lo devi temporizzare con la funzione Sleep in modo da
renderlo indipendente dalla velocita' della macchina.
Supponendo tu voglia rimanere in attesa un massimo di 30 secondi e poi
uscire dal ciclo comunque, puoi fare qualcosa del genere:
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
check = True
For i = 1 To 300
    Instring = Instring & frmTerminal.MSComm1.Input
    If InStr(Instring, "OK") <> 0 Then Exit For
    Sleep 100 'pausa di 100 ms
    DoEvents
Next
check = False
Ciao
-- 
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 ha scritto nel messaggio
news:bpf80b$ugd$1...@news.newsland.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6 SP6-VBA Excel] - Problema Client-Server

Ho creato in VB6 un gestionale (fatturazione) per un mio cliente
(impiantista elettrico).
Gli articoli che deve usare per la fatturazione sono contenuti in una
cartella Excel.
Poiché il mio cliente, beato lui, dispone di doppio monitor da 21", mi ha
richiesto di poter importare l'articolo evidenziato nella  riga corrente del
foglio Excel aperto sul monitor di destra, nella mia procedura aperta su
quello di sinistra.
Ho creato perciò un Server in Excel usando il controllo Winsock con
indirizzo 127.0.0.1 e un piccolo programma Client In VB6 per testarlo: tutto
ha funzionato alla perfezione.
Tuttavia una volta inserito la routine Client nel mio applicativo, il Client
non riesce a connettersi permanendo nello stato 6 (in connessione).
Ho controllato e ricontrollato il listato non trovando alcun errore, ho
anche inserito l'artificio Unload Winsock1 - Load Winsock1, e, poiché uso
una struttura a finestre MDI-Child, ho persino provato a spostare il
controllo Winsock dal form Child a quello Parent, ma ovviamente senza
risultato.
Avete qualche suggerimento?
-- 
Ettore Massimo Albani

 cartella Excel.
Di solito questi articoli vengono messi nel database della fatturazione, e 
non in un file a parte.
Ma anche lasciando tutto come è, puoi caricarrti i dati di excel in un 
recordset, con questo popoli una List e a  questo pusto è facile 
intercettare il clik sull'elemno della Lista, copiarlo e metterlo dove vuoi 
nel tuo applciativo.
-- 
Greg
Newsgroup: it.comp.lang.visual-basic
Titolo: .VBR questo sconosciuto!!

Ho visto che definendo un'applicazione di tipo Exe ActiveX viene creato un
file .VBR che nell'Help in linea ho capito servire per esecuzione come
server remoto.
Quello che non so è come utilizzare questo file e soprattutto come funziona
un server ActiveX remoto.
Dove posso trovare informazioni al riguardo?
Grazie, Ciao!

 ha scritto nel messaggio
news:ahrpai$aki$1...@newsreader.mailgate.org...
sempre nell'help in linea!
:-)

Newsgroup: it.comp.lang.visual-basic
Titolo: finestre dimensionabili...

ho un problema, ho la necessità di usare il controllo tree view di vb6 sp5,
solo che
mi piacerebbe avere la possibilità di usarlo come esplora risorse, ovvero
come se fosse
un frame dimensionabilem solo che non ho trovato nessun controllo in vb
che fa questo....
                                    spero di essere stato chiaro....
                                                        Grazie.

 che fa questo....
Il frame dimensionabile si fa a manina con o senza API e prescinde dal fatto che tu usi
una TreeView, una TextBox o una ImageBox...
Io avevo trovato un buon compromesso grafico utilizzando una imagebox
verticale/orizzontale colorandola di nero solo quando la sposti (eventi mousemove,
mousedown, ecc)... ma il codice che ne viene fuori e' strettamente dipendente dal
progetto e quindi... inutilizzabile altrove! :(

 ha scritto nel messaggio
news:Z2yG7.26944$zu5.9...@news1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Hard Copy

Come si fa per fare l'hard copy da VB? Non ho trovato alcuna
documentazione on line. Grazie in anticipo.

 documentazione on line. Grazie in anticipo.
http://groups.google.it/groups?hl=it&lr=&ie=UTF-8&selm=c1ftbk%241hifh2%241%4
0ID-174464.news.uni-berlin.de
&rnum=10



L'ID messaggio o l'articolo numero c1ftbk$1hifh2$1%4 non sono stati
trovati.

[Alex = 
circa_a...@libero.it
 in 
407a66b1...@news.tiscali.it
] ha
scritto:

Ricomponi il link su un'unica riga, oppure usa questo
http://makeashorterlink.com/?D2BB32FF7
Prego.

Newsgroup: it.comp.lang.visual-basic
Titolo: SelStart, SelLength, chiarificazioni ...

Questa semplice routine mi ricerca una stringa all'interno del testo
contenuto in un TextBox (Text1)  a partire dal fondo del testo:
Private Sub cmdBack_Click()
  Dim strFind As String
  On Error GoTo errNotFoundRev
  ' Get a string to find
  strFind = InputBox("String to find:", "Search Backward")
  Text1.SelStart = InStrRev(txtString, strFind, Text1.SelStart) - 1
  Text1.SelLength = Len(strFind)
  Exit Sub
  errNotFoundRev
  .....
  End Sub
Il fatto č che se ad esempio immetto la ricerca di una parola, la parola non
mi viene evidenzaita al termine della routine. Cioč l'occorrenza della
parola mi viene verificata correttamente (verificandolo facilmente) ma il
testo che parte da SelStart per il numero di caratteri ritornato da Len()
non mi viene evidenziato nella casella di testo.
Sbaglio o le proprietą SelStart e SelLength servono appunto ad evidenziare
una stringa delimitata da queste due proprietą ??
grazie.

 wrote in message
ilK85.29781$2s6.3...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo VB per i report

Ciao a tutti
Avrei bisogno di un controllo VB (6) per fare il preview dei report.
E' necessario che il report sia esportabile in Word e in qualche altro
formato (RTF, HTML, ASCII, ...)
Ho provato la trial di VSVIEW 6.0 ma esporta solo in HTML, mentre a me serve
assolutamente rendere i report modificabili con un word processor
(sinceramente a me VSVIEW piace, ma al cliente no... e siccome bisogna
attaccare il ciuccio dove vuole il padrone...)
Potrei stampare direttamente in Word, direte voi, ma il problema è che non
voglio vincolare l'utente ad avere Word a tutti i costi.
Cercando qua e là ho trovato Reportster, che potrebbe fare al caso mio, ma
volevo sentire se qualcuno ha qualche altra idea.
Crystal Report non l'ho neanche preso in considerazione, visto che la
versione per VB4 era una mezza schifezza.
Grazie
Nando

 ha scritto nel messaggio
news:VKkD5.1742$N93....@news.infostrada.it...


 formato (RTF, HTML, ASCII, ...)
Prova il DataReport, con esso puoi esportare in formato testo e Html.
Inoltre č contenuto in VB6.
	Lore.

 formato (RTF, HTML, ASCII, ...)


 cosě gli do un occhio. Thankz

Newsgroup: it.comp.lang.visual-basic
Titolo: faber for president!!

ciao a tutti sono appena entrato nel newsgroup grazie a Faber.
Auguro a tutti una buona giornata.
Studio a UMIST manchester university computing ma sono una capra
totale,spero di ricevere buoni consigli da tutti!
saluti ancora
Fabio detto Mante

 totale,spero di ricevere buoni consigli da tutti!
uuh grazie per il "for president", sbrigati che l'esame ce l'hai fra due
settimane!    :)
Salutissimi
Faber
Newsgroup: it.comp.lang.visual-basic
Titolo: Database Access danneggiati

Salve avete idea se esiste un programma o una dll/ocx che mi consente di
riparare gli archivi ACCESS MDB danneggiati (quando sia Microsoft Access che
il metodo REPAIRDATABASE non riescono a ripararli)
???
grazie

 wrote in message
news:SYHX5.53226$IP1.1...@news1.giganews.com...

Forse conviene lavorare di prevenzione ...
L' unica cosa che mi viene in mente e' lanciare access da riga di comando
con l' opzione /repair, ma credo che faccia le stesse cose del metodo
RepairDatabase.
Ciao
Aldo

Newsgroup: it.comp.lang.visual-basic
Titolo: griglie sheridan e styleset

salve.
ho un problema con una griglia sheridan.
quando carico i dati per la prima volta dovrei cambiare colore alle
righe.  ho seguito l'esempio dell'help che dice, sull'evento rowloaded,
di usare un ciclo sulle columns e di settare cellstyleset.
senonche' il problema e' che se devo scrollare la griglia, avviene di
nuovo l'evento in questione.  siccome la colorazione dipende dal valore
della riga precedentemente letta, succede un casino (non bloccante ma i
colori non vanno piu' bene).
ho provato a leggere lo styleset della riga o delle celle e qualora
fosse non vuyoto ad evitare la colorazione ma non funziona: lo styleset
non viene restituito.
come potrei fare per impedire semplicemente una ricolorazione?  quale
proprieta' dovrei controllare?
grazie.

 
Premetto, io usavo la vecchia VBX.

Prova a gestirti un vettore che ridimensioni ad ogni nuova riga, in cui ti
memorizzi se devi cambiare il colore o meno.
-- 
Hi, Ciao
Ettore                 By -MES-
http://freeweb.aspide.it/freeweb/ilmes
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Trovare Dir contenente ProgrammaVB.exe

Salve a tutti ecco il quesito (banale). ^_^
Per sapera in quale dir e` localizzato l'eseguibile ProgrammaVB.exe in
esecuzione in Pascal si potevano controllare i parametri di linea.
Quale`il modo piu` semplice in VB di conoscere la dir da cui e` stato
caricato l'eseguibile x andare a leggere files di dati nella stessa dir
anche dopo aver campiato piu` volte la dir corrente?
Grazie123000, FenixX. (A buon rendere)
|:-D| FenixX |(-:|
ICQ: 16201896
http://members.xoom.it/fix/index.html
FenixX=Visual=Book=Marks=System:[Meteos]-[SuperBarZell]-[MangAnime]-[Music]
WebStation: Main Menu
[SearchEngines] [HotPages] [InternetServices] [MessagesServices]
[Hardware] [Software] [InternetSoftware]
[Friends] [People] [Audio-Music-Radio] [Video-Live-Cam-TV]
[MangAnime] [Doc-Info] [NewsPapers] [Lombardia] [Links2Links]
  ("`-''-/").___..--''"`-._
   `6_ 6  )   `-.  (     ).`-.__.`)
   (_Y_.)'  ._   )  `._ `. ``-..-'
     _..`--'_..-_/  /--'_.' ,'

 anche dopo aver campiato piu` volte la dir corrente?
[...]
DirectoryProgramma = App.path
Per chiarimenti cerca l'oggetto App o la proprietą Path nella guida in linea
.
Ciao
---
--
-
Maurizio Santaniello
MIX
170 links a siti VB
http://space.tin.it/computer/gaais/
http://web.tiscalinet.it/VBLINKS/
   <---  Nuovo server !
-
--
---
Il sito comune di it.comp.lang.visual-basic
http://www.murialdo.it/it_lang_vb/
Newsgroup: it.comp.lang.visual-basic
Titolo: Esportare in formato RTF da VB6

Avrei la seguente esigenza: ho un programma sviluppato in VB6 che
genera una stampa con un formato diciamo proprietario, le stringhe di
testo sono memorizzate in un file con le ripettive posizioni X e Y ed
al momento della stampa vengono posizionati tramite l'oggetto Printer
e i metodi CurrentX e CurrentY.
La mia esigenza sarebbe di poter trasformare questo file in un file
RTF ed il problema principale è il posizionamento delle stringhe
all'interno della pagina. Sapete se qualcuno ha già affrontato questo
problema o se esiste qualche tools o funzione che fa al caso mio?
Grazie


Salva la tua stampa in una bitmap ed incorporala in un rtf.
-> GbC|
www.gbcweb.com
www.chiappori.com
 


Il problema è che vorrei creare un RTF per poterci apportare delle
modifiche ad es. da WordPad.
Grazie comunque

 Grazie comunque
Puoi pensare una sorta di conversione, ma la vedo dura.
-> GbC|
www.gbcweb.com
www.chiappori.com
 

 >>> mio? Grazie
Ciao io uso spesso questo sistema.
Crea il tuo documento con Word (che ti consente di inserire anche delle
Table), inserisci nel documento delle parole chiave (tipo <TITOLO> o
<IMPORTO> per esempio).
Salva il documento in formato RTF.
Apri il documento con WordPad e risalvalo (ti accorgerai che le dimensioni
del file diminuiscono notevolmente, questo perchè il formato RTF di WordPad
differisce da quello Word), mantenendo però alcune caratteristiche di Word
non presenti in WordPad (per esempio le Table).
Adesso da Visual Basic apri il documento con:
Open Documento.rtf For Binary as #1
    i = Input(Lof(1),#1)
Close #1
Sostituisci le parole Chiave con il valori:
i=Replace(i,"<TITOLO>","Questa è una prova...")
i=Replace(i,"<IMPORTO>","Euro 10.00")
Risalva il file:
Open Stampa.rtf For OutPut as #1
    Print #1, i
Close #1
o visualizzalo tramite il controllo OCX RTF:
ControlloRTF.TextRTF = i
--
Ciao Fede
By Chicco Production
http://www.webalice.it/bychicco/

 <IMPORTO> per esempio).... CUT
Ti ringrazio, stavo giusto facendo dei tentativi tramite le tabelle di
Word (mi andrebbe bene anche generare un file .doc). Farò certamente
qualche prova come da te suggerito.
Ciao


Ciao Potresti usare l'HTML molto semplice e modificabile con Winword
ciaooo

Newsgroup: it.comp.lang.visual-basic
Titolo: Dove trovo i valori dei define?

Sapete dirmi dove posso trovare i valori definiti nella documentazione C++
di m$
e non presenti nel WinApi.txt? (es WS_EX_LAYERED)
Penso siano in Windows.h ma non so cosa devo installare per ottenere tale
file
Grazie
GL+

 wrote in message
8crv26$40l$1...@fe1.cs.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Dimensione caratteri di default

Ciao
la dimensione dei miei caratteri di default di Windows è improvvisamente
aumentata
questo lo noto quando carico le pagine con Interner Explorer e anche nella
guida
di help di Windows e MSDN sapete dirmi cosa può essere successo e che posso
fare per rimediare a questo problema?
Grazie Ciao
alberto...@tin.it

 ha scritto

temo che msdn legga l'ultima impostazione di ie alla chiusura. prova a
chiudere ie con un carattere grande, e vedi un po'. direi di avere fatto
cosi'.

Ma su internet Explorer si può scegliere il tipo ma non la dimensione del
carattere a quanto ho visto mi sai dire come si fa?
Grazie e Ciao


Ok come non detto ero come dicevi tu grazie mille ho sistemato tutto
Ciao Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: TIMER

Scusate la domanda che per voi sarà stupida; siccome non ho la guida in
linea di VB, che comando si usa affinchè l'esecuzione del programma abbia
una piccola pausa?

PauseTime = 5    'tempo di pausa in secondi
Start = Timer
Do While Timer < Start + PauseTime
    DoEvents
Loop
ciao

 ha scritto nel messaggio
news:29rh7.11062$i81.4...@news.infostrada.it...


 ha scritto nel messaggio
news:vXrh7.26970$vC1.2...@news1.tin.it...

Aaargh! cosa veggono le mie fosche pupille! :)
Call Sleep(5000) ' pausa - per davvero! - di 5 secondi
                 ' e senza mandare il processore al 100%
Ciao

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

Testing the posting

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Massimizzare da altre applicazioni

Ciao, qualche buon cuore
sa come poter dire da un'applicazione
ad un'altra applicazione (minimizzata) di ripristinare
la sua window ?
gRaZZieAssAi !
Ciao

la sua window ?
se hai l'hWnd dell'altra finestra puoi fare così:
'Dichiarazioni:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As
Any) As Long
Private Const WM_SYSCOMMAND = &H112
'private Const SC_MAXIMIZE = &HF030&
'Private Const SC_MINIMIZE = &HF020&
Private Const SC_RESTORE = &HF120&
'e per fare il restore:
SendMessage hWnd, WM_SYSCOMMAND, SC_RESTORE, 0
ti lascio immaginare a cosa servano le altre due costanti commentate..
spero torni utile a te e anche ad altri
Ciao!
Faber