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

Ciao sono sempre io.
Vorrei sapere se esiste la possibilità di settare automaticamente le
maiuscole all' avvio di un programma.
Grazie.
Ciao

Cristina wrote:

Ciao
l'unico modo per avere sempre le maiuscole è utilizzare la funzione UCase()
nell'evento lostfocus dei tuoi textbox.
Saluti paolo
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] Problema in una funzione per rinominare oggetto

Salve a tutti!!!!!
sto implementando una funzione contenuta in un modulo... questa:
With Form1
For j = 1 To 4
????????????
    For i = 1 To 4
        If .optCh1(i).Value = True Then
            Select Case i
                Case 1
                    Scala(j) = 225 / 30
                Case 2
                    Scala(j) = 225 / 15
                Case 3
                    Scala(j) = 225 / 6
                Case 4
                    Scala(j) = 225 / 3
            End Select
        End If
    Next i
Next j
End With
Il mio problema è che ho 4 controlli optCh1,optCh2,optCh3,optCh4 e
dovrei far variare l'oggetto nella funzione per controllare che valore
ha...
Mi potete aiutare per favore???
Grazie mille a tutti!

Nel suo scritto precedente, 
fad...@fastwebnet.it
 ha sostenuto :

Puoi usare il Set di una variabile Object, impostandolo sull'elemento 
"optCh" & Format$(i,"0") della collection Controls.
Poi usi il value di questo oggetto 'generico' come argomento del Case.
Oppure (ma non ho ben chiaro come sia la tua logica) potresti 
efficacemente ribaltare il test:
Select Case True
   Case optCh1.Value=True
....
Ciao
Alberto
-- 
Ma noi no

grazie per la risposta ma non ho capito molto bene il metodo set
sull'object..
Me lo puoi rispiegare con un esempio magari... 
grazie mille ancora

fad...@fastwebnet.it
 ha spiegato il 28/09/2005 :

Dim OPT_Generico as Object
With Form1
For j = 1 To 4
    For i = 1 To 4
        set OPT_Generico = .Controls.Item("optCh" & Format$(j, "0")) 
(i)
        If OPT_Generico.Value = True Then
            Select Case i
                Case 1
                    Scala(j) = 225 / 30
                Case 2
                    Scala(j) = 225 / 15
                Case 3
                    Scala(j) = 225 / 6
                Case 4
                    Scala(j) = 225 / 3
            End Select
        End If
    Next i
Next j
End With
Tutto scritto a braccio, non ho idea di come funzioni il tuo mostro di 
form...

Newsgroup: it.comp.lang.visual-basic
Titolo: muovere del testo in una label o in una text box e altro.

Ho trovato un modo per muovere a run-time (stile winamp) del testo in una
textbox ma non è molto elegante.
In pratica ho messo un timer che ogni secondo aggiunge ad una string (non
costante) uno spazio.
variabile = variabile & " "
poi TxtMove.Text = variabile & testo_da_muovere
'arrivato a trenta spazi
if len(variabile) => 30
variabile = left(variabile,Len(varabile-1)
TxtMove.Text = variabile & testo_da_muovere.
Conoscete qualche altro modo?
Inoltre:
ho un form con una picture come sfondo.
Questa picture ha dei bottoni disegnati..cercavo un oggetto trasparente da
metterci sopra in modo che quando l'utente preme in quella posizione (dove
lui vede un bottone ma in realtà è solo disegnato) si scateni l'evento
click.
Ho letto che si potrebbe usare anche una api ma diventerebbe complicato..
un ultimissima cosa: ho nella form un DtPicker ma vorrei togliere
completamente le freccie..c'è un modo o un altro oggetto simile?
Grazie!

 ha scritto nel messaggio
news:xtRla.4517$T34.1...@news2.tin.it...


 click... in maniera tale da poterla usare come tasto....
Ottimo..non ci avevo pensato...
L'ho messa transparent.
Tnx!

 completamente le freccie..c'è un modo o un altro oggetto simile?
umm umm anche il mounthview ha le frecce per spostarti , altrimenti il tutto
si riduce ad una tabellina fissa , fai na cosa , schiaffaci sopra qualcosa
in modo da coprire le frecce , tipo un bottone con il captio = dtpiker.value
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

Newsgroup: it.comp.lang.visual-basic
Titolo: Non riesco a settare la password con vb6 sp5 e access 2000

Uso questa stringa per connettermi al DB
Set DB = OpenDatabase(Archivio, False, False, ";PWD=pippo")
ma mi da sempre password non valida!!!
Qualcuno di voi mi sa spiegare il motivo?
Grazie.
Fil


prova a specificare anche lo user...
USR=...
ciao
ugo

No, il problema è diverso...
Se il db lo converto in access 97 tutto funziona, ma con il 2000
mi da errore anche sulla stringa
Data1.Connect = ";PWD=pippo"
Mi dice "Formato del DataBase non riconosciuto"
AIUTOOOO...
PS: scusa, per sbaglio ho postato a te anzichè sul NG

 Mi dice "Formato del DataBase non riconosciuto"
devi cambiare versione della libreria DAO
guarda su progetto->riferimenti
seleziona Microsoft DAO 3.6 Object Library
deseleziona tutte le altre versioni di DAO
Ciao
Enrico


Era già impostato così...
fil

Io lavoro con Access2000 e VB6.0, ho il tuo stesso problema e l'ho risolto
convertendo ogni volta i database (da Access2000 a Access 97) e
interfacciandomi da VB al database in Access97.
Non so se ci siano soluzioni, ma pare che VB non riconosca i database A2000
mentre quelli A97 funzionano.
Se qualcuno conosce alternative le posti, io però converto ogni volta i
database (sbattimento e rassegnazione, :-))

 ha scritto nel messaggio
news:frZ97.1323$te7....@news.infostrada.it...


sp5 nell'oggetto del post sta appunto a significare che ho il service pack 5
installato
^____^
Newsgroup: it.comp.lang.visual-basic
Titolo: File e cartelle nascoste.....

Salve a tutti
In un mio programma ho usato questo codice:
Dim i As String
i = Dir("c:\", vbHidden)
While i <> ""
    If (GetAttr("c:\" & i) And vbDirectory) = (vbDirectory) Then
        MsgBox i
    End If
    i = Dir
Wend
...ma non mi restituisce che le directory normali, quelle nascoste (come per
altro i file, in altre prove che ho fatto) non vengono visualizzati. Come
faccio a visualizzare file e cartelle nascoste? E se voglio sia i file di
sistema che quelli nascosti?
Grazie a tutti
Giuse

 Giuse
semplicemente indicando la sommatoria dei valori di tutti gli attributi
i = Dir("c:\", 31)
beppe

Giuseppe Marini wrote:

vbDirectory è un flag mascherato, quindi se usi l'uguale otterrai solo 
le directory normali.
Prova con (GetAttr("c:\" & i) And vbDirectory) <> 0
Ciao
P.S.: non usare i numeri magici, ci sono le costanti: usa quelle (es. 
vbDirectory + vbHidden + vbSystem)
Newsgroup: it.comp.lang.visual-basic
Titolo: [.net] Programma Per palmari

Abbiamo realizzato una piccola procedura in Visual Basic .NET, che
attualmente gira in windows CE .NET. La procedura è una semplice gestione
della tentata vendita per gli agenti (carico camion, emissione
fatture/bolle, pagamenti ecc..).
Attualmente spostiamo "a mano" i file del database (semplici file di testo).
Come si può fare per automatizzare il processo? Ci sono dei sistemi tipo
P.E. vedere il palmare come disco e usare un BAT?
L'applicazione così compilata, potrebbe funzionare su di un Pocket PC 2003?
Grazie.
-- 
Favro Giuliano -- TRE B.I. srl
via Unità d'Italia 1/A
10098 RIVOLI (TO)
giuliano-n...@4boutiques.it
tel. 0119563059 - fax. 0119563584
per rispondere sostituire '-nospam-' con '.'

 L'applicazione così compilata, potrebbe funzionare su di un Pocket PC
2003?
Se per Windows CE intendi quello per PocketPC (non quello per dispositivi
simili a mini pc) l'applicativo girerà perfettamente anche sotto ppc2003 e
ppc2000.
Ciao
--
Reporting tool: 
http://www.neodatatype.net
Qualunque mentecatto può scrivere codice che un computer possa capire.
I buoni programmatori scrivono codice che gli uomini possano capire.
[Martin Fowler]


Su Visual studio . Net è stata creata un progetto per "Smart Device" 
specificando come piattaforma di destinazione Windows CE.
Che differenze ci sono con Pocket PC?
grazie.

 Che differenze ci sono con Pocket PC?
Che i PocketPC sono i palmari.
WindowsCE sono dei dispositivi un po' più complessi.
In linea di massima ti direi che non vi sono differenze: da quanto ho potuto
vedere i programmi di uno girano bene anche sull'altro e non vi sono
differenze nell'IDE o nel linguaggio.
Se il progetto è per PPC hai già le form della dimensione giusta e
visualmente è più vicino alla realtà (ad es. hai i menu in basso e non in
alto).



Se così è allora dovrebbe essere possibile anche il contrario ( a meno che
Active Synk non faccia in qualce modo da firewall).
Solo un'altra domanda che nome avrebbe il terminale (palmare) sulla rete? E'
possibile impostare un nome Host o NETBios, Vero?
Scusa ma la procedura l'ha fatta un nostro collaboratore che non è riuscito
a risolvere questo ultimo problema e per l'utente finale è importante.
grazie ancora.


 possibile impostare un nome Host o NETBios, Vero?
Il nome del terminale si imposta da "impostazioni -> sistema".
Mi pare sia la voce "identificativo" o qualcosa del genere, č un po'
nascosto tra le varie icone.


 più informazioni (che poi mi passerai :P )
Ho già aperto altri thread, ma fino ad esso non ho avuto risposte, la
maggior parte degli utenti dei PPC gli usa come GPS, e li ricarica un giorno
si e tre no perche gli incasina...
comunque appena sò qualcosa di più ti faccio sapere. Grazie.

Eureka!!!!
Ecco quì quello che mi serviva!
Molto semplice e poco oneroso...
Copiare file da e su dispositivi con windows CE (Visual Basic 6):
http://support.microsoft.com/?id=307256
Questo link propone una modicica (peraltro già implementata nel codice
precedente),
per la chiamata alla funzione 'CeRapiInitEx()'.
A quanto pare la prima stesura delll'HowTo aveva un Bug.
http://support.microsoft.com/?id=831883

Newsgroup: it.comp.lang.visual-basic
Titolo: Griglia con ComboBox

Avrei necessità di una griglia le cui celle sono delle Combobox.
Qualcuno conosce quanche componente adatto e può dirmi dove reperirlo ?
Grazie !


nessun componente specifico
usa una griglia+ combobox
gestisci tu la posizione dell'ultimo e le interazioni tra loro.
--
Ciao
Alfredo
Vb6+Sp5+Win2k

 ? Grazie !
Puoi usare una grid qualsiasi e un combobox
che diventa visibile nella posizione corretta solo quando l'utente
clicca sulla cella che ti interessa.
MIk
Newsgroup: it.comp.lang.visual-basic
Titolo: Data Environment

ciao a tutti,
stavo lavorando con "Generatore sql" e ad un certo punto:
Errore ADODB.Properties in programmazione query
Errore ADODB.Properties in programmazione query
Errore ADODB.Properties in programmazione query
Impossibile trovare l'oggetto nell'insieme corrispondente al nome o al
numero richiesto (11)"
cosa sta cercando?
grazie

 wrote in message
news:8u3vtg$25...@news.edisons.net...

Stavo scrivendo la risposta e ad un certo punto:
Che errore sara' ?
Cosa stara' facendo ?
Che query e' ?
E' dura trovare una risposta.
Forse e' stato scritto male un nome di campo ?
Ciao
Aldo

 ha scritto nel messaggio
news:8u4r5h$sied$1...@ID-56381.news.dfncis.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: (MEGA OT) raggiungere una var dentro flash5 con una ASP

lo so! clamorosamente OT !ma qui a queste domande hal o qualcun altro mi ha
sempre risposto...più in là fanno i difficili per rispondere lo
sapete..moderatori e clan vari!!
premesso che ho letto ma non ho capito vari esempi...
so all'incirca come fare
il debug list variabili di flash riporta
Level #0:
  Variable _level0.$version = "WIN 5,0,30,0"
  Variable _level0.credit = 95
.......
io devo raggiungere e modificare la variabile credit da ASP..E riprendermela
dopo che flash l'ha modificata....
ma mi ride in faccia
:-(
questo che secondo i manuali dovrebbe andare
  <script LANGUAGE="JavaScript">
function PassFlash(){
window.document.flashMarcoDEF1._level0.credit.SetVariable("credit", 1000);
}
</script>
Non va!
poi la var modificata la devo ripassare ad una asp....ma perchè usano flash!
Sigh!
HAL aiutami!...ma se qualcun altro lo sa grazie anche a lui!
scusate l'OT !


non conosco flash (e spero francamente di non doverci mai avere a che fare)
ma a spanne dovrebbe andare.
Che errore da?
ciao
ugo


CUT

 grazie!
beh, scusa, sicuro che l'oggetto flash si chiami flashMarcoDEF1?
Sennò ti direi di verificare se il metodo SetVariable debba essere applicato
alla variabile credit o direttamente all'oggetto _level0:
window.document.flashMarcoDEF1._level0.SetVariable("credit", 1000);
ciao
ugo

 ha scritto nel messaggio
news:a1cg0r$pffes$1...@ID-96367.news.dfncis.de...
CUT
Newsgroup: it.comp.lang.visual-basic
Titolo: [ADO] Operatore LIKE

Devo scrivere una banalissima query SQL del tipo " SELECT * FROM Tabella
WHERE Tabella.Campo LIKE 'campione*' ".
La query č banalissima e funziona perfettamente (sul DB) ma eseguita da ADO
mi ritorna il Recordset vuoto.
Il codice che ho usato č questo:
Dim RS as ADODB.Recordset, DataSource$
DataSource = "SELECT * FROM Tabella WHERE Tabella.Campo LIKE 'campione*'"
Set RS = New ADODB.Recordset
RS.Open DataSource, CN, OpenMode, adLockPessimistic
C'č qualcosa che non va? Mi sono dimenticato qualcosa?
Grazie 1K!

Al posto del carattere "*" prova ad usare "%".
Anche io avevo un problema del genere ed è stato risolto con questo metodo
Fammi sapere
FormW@re

 C'è qualcosa che non va? Mi sono dimenticato qualcosa?
Sostituisci l'asterisco (*) con il simbolo percentuale (%):
DataSource = "SELECT * FROM Tabella WHERE Tabella.Campo LIKE 'campione%'"

Grazie a tutti. Usando % ho risolto.
Grazie ancora!!!

Newsgroup: it.comp.lang.visual-basic
Titolo: vb con pocketpc

se devo appoggiarmi ad una struttura dati, quale mi conviene utilizzare ?
preferirei access, in quando devo installarlo su pocketpc ?
ci sono controindicazioni i driver odbc danno problemi ?
devo utilizzare una sorta di pocket access oppure mi butto su un file xml o
di testo ?
Marco TWC


Il migliore è sql server 2000 ce, ti permette molte più cose. Purtroppo non
sono mai riuscito ad utilizzarlo. Lo puoi scaricare dal sito microsoft e per
utilizzarlo devi avere installato sql server 2000 development edition.
Ciao
Fabio

 Ciao
ciaociao

Newsgroup: it.comp.lang.visual-basic
Titolo: [Re-Post] Spostare una picturebox

Riposto un mio messaggio di qualche giorno fa per metterlo in evidenza,
visto che nessuno mi ha risposto (forse è troppo banale)... per favore
datemi una mano ! :(
il messaggio in questione:
Mi serve qualcosa che mi spieghi come fare per permettere all'utente di
portare a spasso una picturebox all'interno del form e memorizzarmi le
coordinate di dove l'ha spostata (questo lo so fare).
Grazie per le risposte e ciao a tutti :)

 ha scritto nel messaggio
news:Qp6_c.250030$5D1.11...@news4.tin.it...

Prova con gli eventi con il drag.
Esempio OLEStartDrag etc. Vedi sul manuale.

 Grazie per le risposte e ciao a tutti :)
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
"Seminate Linux, che Windows si pianta da sč...." (Antico Adagio)
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it
email spamtrap: 
spam...@nicolaottomano.it

nel re-post mi sono dimenticato di dire che uso vb .net.. :/
grazie megasoft78, Nicola se potete aiutatemi ancora :(

> nel re-post mi sono dimenticato di dire che uso vb .net.. :/
Credo che con 
VB.NET
 la logica dovrebbe essere la stessa.
Gli eventi forse cambieranno leggermente, ma il resto credo sia uguale:
1-Intercetti l'evento Click del mouse
2-Intercetti il movimento del mouse con MouseMove (e.X ed e.Y)
3-Sposti le coordinate della Picturebox
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
"Seminate Linux, che Windows si pianta da sè...." (Antico Adagio)

Newsgroup: it.comp.lang.visual-basic
Titolo: Codice C in VB

E' possibile inserire function scritte in C all'interno di programmi VB ?
Come ?

Sģ, basta compilare le funzioni C in dll.
Tin ha scritto:


Newsgroup: it.comp.lang.visual-basic
Titolo: Account outlook

Salve a tutti
Ho la necessità di inserire in un programma la possibilità di inviare
email utilizzando le impostazioni di outlook
Avevo WIN2k e le informazioni erano memorizzate sotto la chiave
HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager
e da li ricavavo tutte le informazioni.
Sono passato a WINXP e non le trovo più.
Ho controllato ed ho visto che le mette in  un altro indirizzo
HKEY_CURRENT_USER\Identities\{9221E424-
E449-46CE-821B-7466EA72DDE9}\Software\Microsoft\Internet Account
Manager
Come posso fare per sapere se è l'una o l'altra chiave?????
Grazie a tutti
Sergio

Prova questo
Private Declare Function ShellExecute Lib "shell32.dll" _Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String,
_ByVal lpFile As String, ByVal lpParameters As String, ByVal
lpDirectory As String, _ByVal nShowCmd As Long)
As Long
Public Sub SEND_MAIL()
    Dim EMAIL As String, Subj As String
    Dim Msg As String, URL As String
    'indirizzo email
    EMAIL = "
a...@aaa.it
"
    'Oggetto del messaggio email
    Subj = "Inserire l'oggetto"
    'Testo del messaggio
    Msg = "Inserire il testo del messaggio"
    'Crea l'URL
    URL = "mailto:" & EMAIL & "?subject=" & Subj & "&body=" & Msg
    'altro
    ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString,
vbNormalFocus
End Sub

Oppure questo
Prova con questo:
Set outlk = CreateObject("Outlook.Application")
Set mapi = outlk.GetNamespace("MAPI")
Set mail = outlk.CreateItem(olMailItem)
Set myrc = mail.Recipients.Add("indirizzo")
myrc.Type = olTo
mail.Subject = "xxx"
mail.Body = "xxxx"
mail.Attachments.Add("nomefile")
mail.send
Ricordati pero' di settare il riferimento ad Outlook.
Ciao!

Vi ringrazio per i suggerimenti, ma non è questo quello che cerco.....
Ho un programma che deve inviare mail anche in automatico (non
spamming).
Utilizzo il winsock che è veramente molto semplice e facile, e non
utilizzo altri programmi.
Il problema è questo:
per semplificare le cose chiedo all'utente di segnalare al programma
quale account utilizzare.
Lo vado a cercare nella chiave di registro di sistema (con WIN2k)
all'indirizzo
HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager
\Accounts.
Qui trovo tutti gli account con i vari server di collegamento ecc.
Questo va bene però solo per WIN2K
Con WINXP le cose cambiano ed in effetti le memorizza sotto un'altra
chiave (almeno per quello che ho vosto) che è
HKEY_CURRENT_USER\Identities\{CODICE_CHIAVE_UTENTE}\Software\Microsoft
\Internet Account Manager\Accounts.
C'è la possibilità di farsi dare questi indirizzi da qualche parte o
sono obbligatori secondo i sistemi operativi (2K o XP)?
Grazie
Sergio
Newsgroup: it.comp.lang.visual-basic
Titolo: Consiglio

Salve colevo sapere se esiste un libro o un sito dove poter impare le
nozioni principali del linguaggio usato in Visual Basic.
Grazie

Apogeo ha fatto una collana che mi č piaciuta.
in Microsoft press  non ho visto nulla di "facile" e utile
">>>SOLINIMUS<<<" <aa...@machevuoi.aa> ha scritto nel messaggio
news:Ssl3c.60791$FJ6.2...@twister1.libero.it...


Io ti consiglio la collana "24 Ore" della tecniche nuove.
Partono dalle basi ed arrivano ad un livello intermedio.
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Nuovo    libero newsgroup

DiglieneQuattro
Nuovo   "Newsgroup"  di  discussione a largo spettro!
Chiedo scusa se mi inserisco nel vostro NG ma non ho altro modo  per
invitarvi su DiglieneQuattro  da poco creato, dove è concesso parlare
proprio di  TUTTO, nulla escluso ma  esclusivamente con educazione  e
buon gusto.
Potrebbe essere un'ottima l'occasione per conoscere meglio chi non
la pensi come voi avendo fatto un'  percorso di vita diverso
"DiglieneQuattro". Vi permette  di  "dirne quattro" a chi
volete, ci potrà sempre essere qualcun altro che vi risponderà
adeguatamente e magari anche da un'animata discussione potranno
scaturire verità sconosciute.
            "DiglieneQuattro"  è  tutto vostro e se volete potrete
farlo crescere !
           Per ora ciao a tutti, via aspetto su:
http://groups.google.com/group/DiglieneQuattro
Zorro.

 buon gusto.
Ah, allora te lo dico educatamente: signor Zorro, veda di levarsi dai coglioni.
Al Suo prossimo post che vedo comincio a segnalare agli abuse di competenza.
Bye, G. 

> su DiglieneQuattro  da poco creato, dove č concesso parlare

Newsgroup: it.comp.lang.visual-basic
Titolo: Gestire l'errore!

Salve, ho la necessità di aprire un file per estrarne i nomi degli utenti,
per farlo uso:
Open "check_utenti" For Input As #1
Input #1, a$
If a$ = "" Then
GoTo indirizzamento
Else
Option1.Caption = a$
utenti.Visible = True
Option1.Enabled = True
End
Input #1, b$
If b$ = "" Then
Option2.Enabled = False
Else
Option2.Enabled = True
End If
...questo per 5 volte...purtroppo può capitare che ci sia solo il primo e
allora quando faccio
input #1,b$
il programma mi và direttamente a indirizzamento....
come posso fare per fare in modo che mi controlli anche se ci sono b$,c$,d$
ed e$ e che in caso negativo non esca ma bensì abiliti solo quelli che
realmente sono presenti?
Grazie per eventuali aiuti!
Alessandro

Grazie per eventuali aiuti!
Spero di non aver detto una scemata... ma quello che chiedi
"veramente" non mi è molto chiaro.
PS. ho l'impressione che tutto il codice richiederebbe una seria
ristrutturazione, ma dovresti dare spiegazioni sugli obiettivi della
maschera e sul formato del file che leggi.
ps/2 è un po' che non si vedono dei $ nel codice... che versione di 
vb usi?
CLa

 vb usi?
il fatto è che dall'apertura del file in oggetto...vengono presi poi i nomi
da assegnare a rispettivi option....quello che hai scritto tu è quello che
ho provato io..ma se la variabile non c'è perchè ancora non salvata input
restituisce errore ed esce!...allora io vorrei fare in modo che a seconda
delle variabili salvate nel file si abilitino gli option.....scrivendo:
input #1, b$
se b$ non esiste restituisce errore, io invece vorrei che se ne accorgesse e
così potrei settare la option rispettiva a false.
P.S. uso VB6....anche se per poco ancora....il programma è diventato
mastodontico e molto famoso nell'ambiente...io avevo deciso di abbandonarlo
ma mi hanno richiesto la possibilità di usarlo con più utenti....è per
questo che lo ho rispolverato.....stò per passare a c++...appena avrò tempo
di studiarmelo :-)
Alessandro


mah... continuo a non avere le idee chiarissime...
prova con 
b$ = ""
on error resume next
input #1, b$
on error goto 0
if b$ ecc. ecc...
end if
così se la input fallisce arrivi comunque alla if con valore b$
impostato a stringa vuota...
Hope it helps.
CLa
ps. penso che anche se funziona ci vorrebbe una rivisitazione di tutta
la sub, normalmente si evita di saltare gli errori, si prevedono con
controlli sulla fine del file e/o similia...

 controlli sulla fine del file e/o similia..
Penso tu abbia ragione...proverň a rivedermi tutta la sub
Grazie ancora
Alessandro

 Penso tu abbia ragione...proverò a rivedermi tutta la sub
Prova usando file random anzichè testo.
E usando una struttura (Type) per i record.
Ciao
--
using System.Gtk.Forms = "
http://www.neodatatype.net/windowsforms/sgf.aspx
"
mathParser = "
http://www.neodatatype.net
"
sitoComune = "
http://www.it-lang-vb.net
"
Newsgroup: it.comp.lang.visual-basic
Titolo: Finestre al top

Ho trovato in un libro questa chiamata API per mettere una finestra
sempre in primo piano:
Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or
SWP_NOMOVE Or SWP_NOACTIVATE)
Ma non funziona correttamente.
Qualcuno conosce la chiamata giusta?
Grazie e auguri.
 

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Re: Errore File già aperto: non trovo l'errore sigh :-(

 Qualche idea?
   Nella Form_Load rimane aperto il file #1. Prova ad eseguirla passo-passo
e vedrai chiaramente qual'e' il problema:
-il prog parte
-tenta di aprire il file ma il file non esiste e viene generato un errore
-l'errore viene intercettato dalla tua routine che crea il file e poi esegue
un resume
-quindi riapre il file e questa volta ce la fa
-tenta di leggere una riga (che non esiste!)
-viene generato un altro errore, che viene intercettato ma non gestito
-quindi il programma ti apre il form con il file #1 ancora aperto

 -quindi il programma ti apre il form con il file #1 ancora aperto
Ora ci sono!
Grazie tante!

Newsgroup: it.comp.lang.visual-basic
Titolo: Codice VB5 sotto Windows 3 con Win32s

Scusate se mi ripeto.
Qualcuno di voi sa dirmi se un exe scritto in VB5 può girare sotto
Windows 3.11 con le Win32s.
Il vs. aiuto è molto  importante, grazie.

...


Che io sappia non puo girare,specie se usi le chiamate all'API che sono
diverse e minori nel Win32s
Ciao Riccardo
-- 
 Avalon Graphic s.a.s.
-Soluzioni Informatiche-


Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con VB 5 e Cristal Report

Non ci capisco piu niente!!!!!
Ho fatto un programma in VB che utilizza Cristal Report per stampare delle
schede. I dati vengono presi da un DB access. Dunque, funge tutto perň dopo
una decina di stampe mi escono i report vuoti, o meglio vengono stampate
solo le griglie vuote senza alcun dato. Ho controllato piu volte il
programma ma mi sembra tutto ok, devo fare qualche cosa dopo ogni stampa,
non so una specie di refresh del report? Aiutatemi vi prego prima che butti
tutto dalla finestra!!!!
Grazie 100000000000000000000000000000000000000000000000,
Massimiliano.

schede. I dati vengono presi da un DB access. Dunque, funge tutto però dopo

Newsgroup: it.comp.lang.visual-basic
Titolo: INNO SETUP chiarimenti

Non mi è chiaro ancora qualche passaggio per creare un pacchetto di
installazione con "inno setup".
Chiedo gentilmente ancora un po di pazienza nei miei confronti, per aiutarmi
a risolvere alcuni dubbi.
Obiettivo: preparare un pacchetto di installazione su CD (RW) da caricare su
altri PC.
es. Il prog. eseguibile è residente nella cartella c:\prova\......... mentre
i dati relativi al DB e altri file *.txt su c:\prova\dati\..... ed infine
alcune figure ed icone su c:\prova\figure\.....
Tutto questo lo dovrei preparare (assemblare) su un CD (scrivibile con
masterizzatore) es. unità m:
vi spiego cosa ho fatto:
a) lancio il prog INNO SETUP 3;
b)creo un nuovo sctript file con script wizzard;
c) poi
        application name: prova
        application name including version: prova 1.1
        application publisher: claudio
        application website: 
com...@prova.it
d) poi
        Application destination base directory
            - program file directory
            - custom (in alternativa)
        Application dir name:  prova   (dove si trovano i miei file generati
con VB)
e)    poi
        Application main executable file:
            - scelgo il file c:\prova\prova.exe
        Others applications files:
            -  (devo scegliere le sottodir di c:\prova  ???)
f)    poi
       Application start menù folder name:
            - scrivo prova
g)    poi
        Licenze file:   nulla
        Inform file show before inst: nulla
        Inform file show after inst: nulla
h)    Poi eseguo il "RUN" del file script appena eseguito
i)    Seleziono il percorso di destinazione:
        - m:\prova
   *****     Alla fine mi da un errore "53"   file non trovato  ******
Quindi, come devo fare per installare un pacchetto su un altro pc?
P.S. Ho scaricato anche "IsTool"  ma come si usa?
Grazie per eventuali chiarimenti!
Claudio

-> e)    poi
->         Application main executable file:
->             - scelgo il file c:\prova\prova.exe
->         Others applications files:
->             -  (devo scegliere le sottodir di c:\prova  ???)
No sono solo gli altri file che vuoi installare sulle macchine e che devi 
includere uno per uno
-> h)    Poi eseguo il "RUN" del file script appena eseguito
-> 
-> i)    Seleziono il percorso di destinazione:
->         - m:\prova
-> 
->    *****     Alla fine mi da un errore "53"   file non trovato  ******
Probabilmente hai qualche dire scritta in modo non corretto
-> P.S. Ho scaricato anche "IsTool"  ma come si usa?
Avvi IsTool batti il tasto nuovo e vedrai che ti parte con un wizard che è 
semplicissimo da usare e a parte qualche personalizzazione del caso tipo 
selezione dei componenti in fase di installazione, ti genera veramente tutto il 
necessario
Ciao Sha

 Avvi IsTool batti il tasto nuovo e vedrai che ti parte con un wizard che č

Newsgroup: it.comp.lang.visual-basic
Titolo: sandroschiariti@tin.it

 Contattare 
sandros...@tin.it
 per eventuale  collaborazione per 
rivendita vs proramma.
Ok, ha la mia email adesso, il cell è 338-9289343, mi dica pure.
Io ho un programma e sono ansioso di venderlo in un numero maggiore di copie 
di quanto non stia gia facendo. Lei (tu) mi uo aiutare?
Grazie del contatto
-- 
Greg 

 di quanto non stia gia facendo. Lei (tu) mi uo aiutare?
Posso provare a fare del mio meglio.
Stasera passo di autogrill in autogrill a lasciare il numero sulle 
porte dei bagni.
Non è che la clientela si possa considerare selezionata, ma sicuramente 
otterremo molti contatti.
ciao
Alberto
-- 
Alessandro Bergonzoni: Il tempo vola e noi no. Strano sarebbe se noi 
volassimo e il tempo no, il cielo sarebbe pieno di uomini con 
l'orologio fermo.

 Alberto
Sei grande e mi fai scompisciare :))
Ovviamente chiedo scusa,a  te a tutti
-- 
Greg 

mi sa che hai cannato il destinatario della mail :-)
succede, ma credo che ora ti convenga sostituire il numero del cell :-)
ciao
stefano

succede, ma credo che ora ti convenga sostituire il numero del cell :-)
O scriverlo davvero negli autogrill e dedicarti ad altre proficue attività
:-))
--
ciao
  Stefano

 :-)
scherzi? l'ho fatto apposta! Io vivo di pienowind :)
Addirittura stasera Albe me lo mette in tutti gli autogrill che incontra :)
Eh, gli automatismi di OE.Ma nessuno gli ha mai detto niente?
-- 
Greg 

 :-))
più remunerative della profesisone che ci siamo scelti, ohimè, temo 
proprio di si :-)
ciao
stefano

 Eh, gli automatismi di OE.Ma nessuno gli ha mai detto niente?
ah beh, se per quello a me č successo anche col piů blasonato thunderbird.
Diciamo che i primi ad essere bacati siamo noi utenti :-)
ciao
stefano

 ha
scritto:

Basta usare un newsreader invece di OE, e sei a posto.
--
ciao
  Stefano

  Contattare 
sandroschiar...@tin.it
 per eventuale  collaborazione per

GHGHGH
sei fottuto amico ho già provveduto a registrarmi con questo numero
su:
Viados.com
passerinetappate.it
salamibollenti.net
cicciafresca.com
mignott.org
padulo.net
orgedipolpo.com
e stasera ne seguiranno altre!!!

 Contattare
E magari mandare un cancel, anche se ormai è tardi...
Bye, G. 

Paperino ha scritto:

Fatto subito, io non lo vedo da un pezzo
-- 
Greg 

 Fatto subito, io non lo vedo da un pezzo
Mi sa che l'hai cancellato dal tuo PC, ma non dai server; almeno,
io lo vedo su tre server diversi. Spero di non essere offensivo,
ma sei sicuro di aver fatto "Annulla messaggio", non è che hai
semplicemente premuto Canc ?
Bye, G. 

 semplicemente premuto Canc ?
:(
c'e rimedio?
-- 
Greg 

"greg" ha scritto

Riscaricare il NG e annullare il post:
click sul nome del NG-->proprietà-->file locale-->reimposta-->OK-->
aggiornare il NG-->selezionare il messaggio-->menu messaggio-->
annulla messaggio.
Bye, G. 

 Bye, G.
Fatto; da qualche parte avevo letto che un canc era uguale, invece no.
Piu che per il  mio numero, non chiamerà nessuno che costa, mi spiace per la 
lail del signore in oggetto che sarà invasa di spam nei prossimi mesi.
Ma d'altra parte, chissa perche, anche caselle mai usate son piene 
regolarmente di spam
-- 
Greg
Newsgroup: it.comp.lang.visual-basic
Titolo: [REQ VB6 SP5] Aggiornamenti automatici

Ciao a tutti,
Avrei bisogno di dotare la mia applicazione di una procedura automatica di
Update. Ma non ho la più pallida idea di come si possa leggere la versione
di un File Exe per verificare se quello in locale è + nuovo di quello
remoto.
Grazie 1K
--Marco


GetFileVersionInfo
HTH, HAND.
*

 GetFileVersionInfo
Se è sufficiente confrontare la data e l'ora, basta una FileDateTime.
Bye, G.

 remoto
Se capisci bene l'inglese scaricati CREATE INSTALL da volftp
č un ottimo programma che fa i pacchetti di installazione ma la cosa piů
bella e che se vuoi (e se lo imposti bene) ti crea un eseguibile e un file
ini che metti nel programma.
Questo eseguibile funziona tipo il LiveUpdate della norton ossia tu metti su
un server i nuovi file aggiornati + un file .ini che ti crea Create Install
quando gli dici COSA aggiornare e lui automaticamente scarica e copia...
Puoi decidere che l'utente veda l'aggiornamento solo se i suoi files sono
piů vecchi dei "nuovi" oppure cosa molto semplice (Come faccio io) crea un
file di testo in cui scrivi la versione dell'applicazione a cui sei arrivato
(ad esempio 2.1.1)
Quando devi fare l'aggiornamento recupera dal server il file di testo,
confrontala con una stringa che contiene la versione del programma del
cliente e se sono diverse fai partire l'eseguibile di create install.
E' un pň difficile da usare all'inizio (se sai l'inglese). ti consiglio di
fare varie prove
Se invece non sai l'inglese: E' IMPOSSIBILE
Newsgroup: it.comp.lang.visual-basic
Titolo: ENIGMA

Solo per veri appassionati!!!
Ricerco disperatamente l'algoritmo di ENIGMA o qualsiasi cosa che mi
permetta di risalirci.
Chi non conosce ENIGMA è pregato di non postare inutilmente chiedendo info
NON VOGLIO SITI SU ENIGMA VOGLIO L'ALGORITMO!!!!!

[POTA-POTA]
Mi hai incuriosito. Mi dai un sito
di riferimento, vorrei capire cos'e'? Grazie.

 writes:
t> Solo per veri appassionati!!!
t> Ricerco disperatamente l'algoritmo di ENIGMA o qualsiasi cosa che mi
t> permetta di risalirci.
La  descrizione completa  la trovi  di sicuro  se cerchi  con impegno,
lessi  una  descrizione abbastanza  chiara  (anche  se incompleta)  su
"Storia Illustrata" oltre vent'ani fa.
In  soldoni,  una macchina  enigma  dispone di  una  o  più ruote  che
contengono (in  HW tramite fili di rame)  una permutazione reversibile
(ovvero mappano  il simbolo X nel  simbolo Y e viceversa)  che ad ogni
uso    fanno   uno    scatto    per   cui    le   mappature    variano
ciclicamente. Battendo il testo in  chiaro si ottiene il testo cifrato
e battendo il testo cifrato  si ottiene il testo in chiaro, ovviamente
si devono usare  macchine "dello stesso modello" ovvero  con le stesse
ruote. La  chiave è la posizione  iniziale della o  delle ruote (credo
che più ruote lavorino "in parallelo", per cui con due ruote i simboli
vengono rimappati una volta dalla ruota 1 ed una volta dalla ruota 2).
Puoi  modellare una  ruota  con un  array  di 2  colonne,  una per  la
codifica ed una per la decodifica.  Lo scatto lo ottieni con uno shift
circolare sul  vettore. La posizione  iniziale della ruota  la ottieni
con un adeguato numero di shift preliminari.
--
Gian Uberto| main(){printf(&unix["\021%six\012\0"],(unix)["have"]+"fun"-0x60);}
Lauri      |                        David Korn, 1987 ioccc best one liner 
(aka saint)|-------------------------------------------------------------------
em@ail: 
sa...@eng.it
 ( vedere X-nospam nello header - see X-nospam in header )

 ha scritto nel messaggio
news:pulj7.50609$vC1.6...@news1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Windows script host

vorrei fare uno script che mi permetta di modificare il nome del backup in
base al giorno e alla data... mi appresto a fare due prove ma non mi riesce
neache aprire un file con il notepad
dove sbaglio?
Dim MyDate
MyDate = Date
Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Echo(MyDate)
WshShell.Run "%windir%\notepad" & " c:\"& Mydate &".bkf"

WshShell.Run "%windir%\notepad" & " c:\"& Mydate &".bkf"
Non funziona perche' stai cercando di 
aprire un file che si chiami C:\11/11/2002.bkf
-- 
ciao, hal

Costui, hal1961!
You wrote  on Mon, 11 Nov 2002 22:20:07 +0100:
 ??>> Dim MyDate
 ??>> MyDate = Date
 ??>> Set WshShell = WScript.CreateObject("WScript.Shell")
 ??>> WScript.Echo(MyDate)
 ??>> WshShell.Run "%windir%\notepad" & " c:\"& Mydate &".bkf"
 h> Non funziona perche' stai cercando di
 h> aprire un file che si chiami C:\11/11/2002.bkf
hai ragione, ho risolto cosě!
Dim MyDate
MyDate = Date
anno = Right(MyDate, 2)
giorno = Left(MyDate, 2)
mese = Mid(MyDate, 4, 2)
prova = "notepad" & " c:\"& giorno & mese & anno &".bkf"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad" & " c:\"& giorno & mese & anno &".bkf"
Sono solo all'inizio, vorrei lanciare sempre il solito script e vorrei
lanciare il tipo giusto di backup... come faccio a definire il primo lunedi
del mese?
mb

del mese?
Function PrimoLunediDelMese(ByVal mese, ByVal anno)
	Dim i
	For i = 1 to 7
		If (WeekDay(DateSerial(anno, mese, i)) = 2) Then
			PrimoLunediDelMese = i
			Exit Function
		End If
	Next
End Function
-- 
hth, hal

 del mese?
Private Function PrimoLunedě(ByVal dData As Date) As Date
   Dim iDayOfWeek As Integer
   iDayOfWeek = Weekday(dData)
   PrimoLunedě = dData + (9 - iDayOfWeek) Mod 7
End Function
Ciao
*Roby*

Costui, Roberto!
You wrote  on Mon, 11 Nov 2002 22:50:44 +0100:
 RP> Private Function PrimoLunedě(ByVal dData As Date) As Date
 RP>    Dim iDayOfWeek As Integer
 RP>    iDayOfWeek = Weekday(dData)
 RP>    PrimoLunedě = dData + (9 - iDayOfWeek) Mod 7
 RP> End Function
ma mi funziona in WSH?
grazie mille!

Costui, hal1961!
You wrote  on Mon, 11 Nov 2002 22:43:09 +0100:
 ??>> hai ragione, ho risolto cosě! Dim MyDate
 h> Function PrimoLunediDelMese(ByVal mese, ByVal anno)
 h>  Dim i
 h>  For i = 1 to 7
 h>   If (WeekDay(DateSerial(anno, mese, i)) = 2) Then
 h>    PrimoLunediDelMese = i
 h>    Exit Function
 h>   End If
 h>  Next
 h> End Function
stiloso!

 ma mi funziona in WSH?
Ehm io l'ho scritta per VB in effetti. Per lo meno elimina le tipizzazioni
prima di provarla.
In ogni caso per la tua esigenza va meglio quella che ti ha suggerito Hal.
La mia funzione, cosě com'č, vuole che gli passi come data di partenza il
primo giorno del mese.
Ciao
*Roby*
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] Parametri Account mail

Sapreste dirmi dove Vista memorizza i parametri di account mail (SMTP 
server, POP3 ecc.) settati in win mail.
XP memorizza i parametri di OE nel registro, ma su vista non sono riuscito a 
trovarli.
Carmelo 

 ha scritto

nella cartella
C:\Users\[utente]\AppData\Local\Microsoft\Windows Mail\
cerca i file *.oeaccount
hanno nomi tipo
account{A4E2E2C8-FE9C-4623-870E-A10B353AC5D9}.oeaccount
(oe giusto per ricordarsi chi e' l'antenato di winmail...)
ciao, a.

> C:\Users\[utente]\AppData\Local\Microsoft\Windows Mail\
questa cartella non la trovo nè tantomeno la ricerca *.oeaccount ha avuto 
esito
Ciao Carmelo 

 ha scritto

mi stupisce un po'. solo a cercare
AppData\Local\Microsoft\Windows Mail\
arrivano subito conferme:
http://www.google.it/search?q=AppData%5CLocal%5CMicrosoft%5CWindows+Mail%5C&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:it:official&client=firefox-a
tieni presente che su un vista italiano, in explorer, ovviamente vedi 
c:\utenti\...
comunque, cosa trovi sulla tua installazione?

 arrivano subito conferme:
L'ho trovata, nel mio sistema era una cartella nascosta e con la ricerca non 
la visualizzava.
Il file .oeaccount è un XML, posso leggerlo come un file normale con Open o 
devo per forza mettere nei riferimenti XMLecc (non ricordo come si chiama)
Carmelo 

 ha scritto

non ne ho idea, io li apro con editplus come txt :)
comunque xml mi sembra una di quelle cose piu' native a dotnet che a vb6.
ciao, a.

 chiama)
In questo articolo c'è una classe che ti consente di maneggiare i files XML
da codice, senza la necessità di avere una referenza a una libreria esterna:
http://tinyurl.com/6l53bw
--
Ciao Fede
By Chicco Production
http://bcp.freetools.it
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Stampa di MSChart

Seguendo le istruzioni di MS ho provato a stampare un grafico generato
con MSChart:
MSChart1.EditCopy
Printer.Print ""
Printer.PaintPicture Clipboard.GetData(vbCFMetafile), 0, 0  
Printer.EndDoc
Con queste istruzioni ottengo una bella stampa di un rettangolino un po'
troppo piccolo (7cm x 4cm)
Allora modifico le istruzioni di PaintPicture:
Printer.PaintPicture Clipboard.GetData(vbCFMetafile), 0, 0,
printer.width _		-3000,printer.heigth -3000
e ...
... viene stampato un grafico delle giuste dimensioni, ma leggermente
tagliato al margine destro e sinistro (mezzo cm del grafico viene
tagliato e quindi non vengono visualizzati dei caratteri dell'asse Y o
della legenda).
Altra prova:
Printer.PaintPicture Clipboard.GetData(vbCFMetafile), 0, 0,
printer.width _		-3000
cioe' tolgo la dimensione dell'altezza e ...
viene stampato un grafico corretto, solo che l'altezza e' quella
originale (cioe' circa 4 cm), mentre la larghezza e' quella corretta !?!
Qualche suggerimento?
grazie
		maxx

 Qualche suggerimento?
Io uso questa procedura
  With Printer
    .ScaleMode = vbCentimeters
    Clipboard.Clear
    MSChart1.EditCopy
    If iFoglio = 1 Then ' stampa verticale
      .Orientation = vbPRORPortrait
      .PaintPicture Clipboard.GetData(), 1, 1, 18, 14
    Else		' stampa orizzontale
      .Orientation = vbPRORLandscape
      .PaintPicture Clipboard.GetData(), 1, 1, 27, 19
    End If
    .EndDoc
  End With
Saluti
	Lore


Grazie ma purtoppo non funziona :-(
ciao
		maxx

Continuando la triste storia ...
Se stampo un mschart con legenda viene troncato un pezzo di legenda ed
un pezzo del grafico !!!!!
Ovvero :
	Grafico  Legenda
viene stampato
 
	Grafic   Legend
(abbiate un po' di immaginazione e cercate di vedere il grafico e la
legenda :-)
misteri della ms ...
ciao
		maxx


Rettifica:
Il suggerimento funziona se utilizzo l'istruzione:
Printer.PaintPicture Clipboard.GetData(), 1, 1, 27, 19
che ha pero' una qualita' di stampa molto scarsa!
se utilizzo invece:
Printer.PaintPicture Clipboard.GetData(vbCFMetafile), 1, 1, 27, 19
il problema permane!
E' quindi una questione di metafile rdimensionati in maniera incorretta
per immagini di tipo metafile!
ciao
		maxx


Sempre piu' strano!
Se faccio una copia del grafico con:
MSChart1.EditCopy
Clipboard.GetData (vbCFMetafile)
e poi la importo in word, inizialmente viene visualizzata errata (come
nelle stampe).
Facendo poi doppio click sull'immagine del grafico in word si apre
"modifica immagine", la visualizzazione si corregge da sola e chiudendo
"modifica immagine" il grafico viene mostrato correttamente !!??!!
W MS
ciao
	maxx

Newsgroup: it.comp.lang.visual-basic
Titolo: modifica delle tabelle collegate in un dbs access

Ciao, 
è possibile modificare, attraverso codice VB, il percorso delle
tabelle collegate in un database access senza doverlo fare manualmente
all'interno del database stesso?(una menata pazzesca!!) se si come?
Grazie
--------------------------------
Inviato via 
http://usenet.iol.it

 Grazie
copiato ed incollato da MSDN
Sub CreateLinkedAccessTable(strDBLinkFrom As String, _
         strDBLinkTo As String, _
         strLinkTbl As String, _
         strLinkTblAs As String)
   Dim catDB As ADOX.Catalog
   Dim tblLink As ADOX.Table
   Set catDB = New ADOX.Catalog
   ' Open a Catalog on the database in which to create the link.
   catDB.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=" & strDBLinkFrom
   Set tblLink = New ADOX.Table
   With tblLink
      ' Name the new Table and set its ParentCatalog property to the
      ' open Catalog to allow access to the Properties collection.
      .Name = strLinkTblAs
      Set .ParentCatalog = catDB
      ' Set the properties to create the link.
      .Properties("Jet OLEDB:Create Link") = True
      .Properties("Jet OLEDB:Link Datasource") = strDBLinkTo
      .Properties("Jet OLEDB:Remote Table Name") = strLinkTbl
   End With
   ' Append the table to the Tables collection.
   catDB.Tables.Append tblLink
   Set catDB = Nothing
End Sub

Newsgroup: it.comp.lang.visual-basic
Titolo: Visual Studio 6: Errore RPCSS all'avvio di Windows 98

Ho installato Visual Studio:
in particolare MS Visual Basic 6 e Visual C++ 6.
All'avvio di Windows 98 ottengo automaticamente un errore di protezione che
riguarda il modulo RPCSS (penso usato dal debugger di Visual C++ che ora fa
parte di Win98): per far ripartire Windows devo uccidere il processo MSD
(debugger).
Inoltre mi appare automaticamente la finestra di connessione remota (ad
Internet).
Nel file Leggimi di Visual Studio è fornita la soluzione a quest'ultimo
problema cioè bisogna impostare la seguente chiave nel registro di Win:
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\OLE]
"EnableRemoteConnect"="N"
anziché
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\OLE]
"EnableRemoteConnect"="Y"
Se si imposta tale chiave, è risolto anche il problema relativo all'errore
RPCSS.
Qualcuno ha riscontrato lo stesso problema riguardante il modulo RPCSS
all'avvio di Windows?

Se si imposta tale chiave, č risolto anche il problema relativo all'errore


...


...

Newsgroup: it.comp.lang.visual-basic
Titolo: Adding an an image to a data report

I have a text database field, which stores the path of an image, when
writing a report I would like to display each record's image with the
data, however as yet I have not found a way of doing this using the
data report tool in visual basic, is it me, am i going mad, or is it
another ms conspiracy (lol). seriously tho' I have been struggling with
this for about a week.
So far; the rptImage control is not data bindable, no problem if I
could access it, when each detail object is formatted, however i can't
find an event of the data report that corresponds.
I also see that rptTextBox.DataFormat has a 'Picture' setting, although
when i set this property, the program throws a 'General Error'.
I am at my wits end, What can I do?
Please help.
Alekos
Sent via Deja.com 
http://www.deja.com/
Before you buy.



Newsgroup: it.comp.lang.visual-basic
Titolo: Invio Fax tramite VB6.

Salve, qualcuno può darmi alcune dritte x gestire l'invio di FAX tramite VB6
?...
Grazie mille.
TG

io mi sono 'appoggiato' a WinFaxPro
da VB riesco facilmente, via DDE, a 'colloquiare' con WinFax:
creo il fax, indico il nr telefonico, indico eventualmene quale cover
page utilizzare,
compilo il testo della cover page, indico il file (es.WORD, o PDF) da
inviare, ecc.
Ho scelto WinFax per la facilità di colloquio e il costo ragionevole
(mi sembra di ricordare, sotto i 100 euro)....
Forse però cercavi una modalità 'diretta'; su questo non so, e mi
piacerebbe sapere...
se qualcun altro interverrà, felice di imparare.

 ha scritto nel messaggio
news:1161252186.0...@i42g2000cwa.googlegroups.com...


Hai magari qualche esempio di codice o ti scoccia?....
Qui trovi qualcosa:
http://vbcity.com/forums/topic.asp?tid=61056&#RID274589
--
ciao
  Stefano

Newsgroup: it.comp.lang.visual-basic
Titolo: Qualche indicazione (audio)

Salve a tutti,
vorrei poter fare un "programmino" che , interfacciando con un database,
permetta di eseguire detrminati file audio in determinati momenti della
giornata: una specie di regia automatica (in piccolo).
Qualcuno sa darmi qualche indicazione circa la possibilta' di compressione
dei file audio e che tipo di strada mi conviene intraprendere.
Mi rendo conto che la domanda e' un po' generica... non chiedo la pappa
pronta, solo qualche consiglio a qualcuno piu' esperto che mi dia una dritta
su come procedere.
Grazie a tutti.
Giovanni DELISO



Grazie a tutti.
Giovanni DELISO
P.S.
Scusate l'errore commesso nel primo invio del messaggio


Se usi formati audio standard di Windows (WAV e MIDI), puoi gestirli con le
funzioni API di sistema (quelle del gruppo MultiMedia, MCI).
Se vuoi usare formati audio piu' complessi (MP3, AU, MOD, etc...) devi
utilizzare qualche controllo OCX che ti consenta di gestirli... sinceramente
non ti so indirizzare, ma prova a cercarne con i motori di ricerca internet.
Una alternativa (bruttina), sarebbe quella di chiamare via Shell() un
programma che si occupa del play del file (Es. Lettore Multimediale).
--
Roal Zanazzi
z...@iol.it