mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Ancora e-mail da VB.

Sperando che il msg arrivi in formato HTML vi pongo questo quesito:
eiste il modo in VB5 di inviare delle mail complete di object, body and
attach?
Quello che cerco sarebbe un ocx o qualcosa di simile dove è possibile
programmare le cose che ho detto sopra come proprietà di un oggetto e
non una scorciatoia per avviare il programma di mail di default del pc.
Grazie a tutti per l'aiuto!
---Bruno
--
Posted from 
ro...@ns.cim.it
 [151.99.220.10]
via Mailgate.ORG Server - 
http://www.mailgate.org

Grazie a tutti per l'aiuto!
Guarda sul sito del NG 
http://members.xoom.com/it_lang_vb/
nella sezione "Progettati per te"
http://members.xoom.com/it_lang_vb/prj1.htm
Ciao
*** E' in corso la CFV di it.binari.visual-basic
*** Leggetela su it.news.gruppi o it.news.annunci
*** Seguite le istruzioni per votare
--
Andrea :-{)
acm...@hotmail.com
================================================
Leggi 
http://beatles.cselt.it/news-it/FAQ.html
 e
http://beatles.cselt.it/news-it/gruppi-it.html
Potresti imparare qualcosa di piu' sui NG
================================================

>
ATTENZIONE!!!
Il progetto SMTP attualmente sul sito comune e' stato ampliato per
supportare anche gli allegati ed e' stato eliminato anche qualche bug.
Purtroppo per motivi tecnici non e' stato possibile metterlo on-line.
Chiedi a me e te lo inviero' tramite e-mail.
Ciao
Roberto Negro
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto!!

In un giochino che ho creato devo inserire una classifica ed ordinarla in
base ai punteggi ma non so come fare.
Io ho registrato i nomi dei giocatori in un array ed i punteggi in un altro
Dim Nome(1 To 10) As String
Dim Punti(1 To 10) As Integer
Poi ho attribuito a Nome(n) il nome di un giocatore il cui punteggio
corrisponde a Punti(n)
Successivamente inserisco gli elementi dell'array Punti in una listbox (e
faccio la stessa cosa per quelli di Nome) e, impostando la proprietà Sorted
su true, li ordino in modo crescente.
Però mi trovo in difficolta nell'ordinare i nomi in base al punteggio
ovvero, dopo aver ordinato il punteggio, oviamente i nomi non corrispondono
più: Nome(n) non corrisponde più con Punti(n) (risulterebbe che un giocatore
avrebbe il punteggio di un altro).
(Scusate la prolissità)
Ora vorrei sapere come posso fare per ordinare gli elementi di Punti in
ordine crescente mantenendo la relazione con Nome che c'era prima
dell'ordinamento.
Mi spiego meglio:
dopo aver attribuito i nomi ed i punti Nome(1) corrisponde con Punti(1)
ovvero il giocatore inserito in Nome(1) ha fatto il punteggio registrato in
Punti(1); ma dopo l'ordinamento questa relazione non c'è più.
Grazie a tutti coloro che mi aiuteranno!!!!
Ghigo    :-)
P.S.    Magari c'è il modo di creare una ListBox con due colonne ed
ordinarle con la proprietà Sorted (o in altri modi) in base ad una colonna
(come ad es. una tabella di Excel) ?

 ha scritto nel messaggio
news:j5%P4.87767$xt2.1...@news.infostrada.it...

Ti converrebbe usare un DBase  DAO con tutti i giocatori e i loro rispettivi
punteggi e per quanto riguarda l'ordinamento puoi usare SQL.
Spero di esserti stato d'aiuto !
Ciao


La possibilità c'è, ma per avere l'ordine che vuoi tu dovresti visualizzare
prima il punteggio e poi il nome. Non mi pare bello.
Ciao. A.D.

> Mi pare che ti abbiano già risposto in precedenza. Comunque:
Lo so che mi avevano già risposto, ma ho fatto dei casini col computer ed ho
perso tutto... qindi per favore se mi avevate già risposto X favore abbiate
la pazienza di riscrivermi...    :-)

GRAZIE!!!!!!!!!!
Ghigo    :-)
Newsgroup: it.comp.lang.visual-basic
Titolo: Report in VB

Questo che segue è il codice di un pulsante di un form con 2 campi di testo.
In teoria dovrei aprire un report che prenda i dati dentro quella tabella
compresi tra le due date inserite. Niente di sovrumano no? Ma come faccio a
scrivere nell'instestazione del report "Questi sono i record da (datDa) a
(datA)"?
Sembra una banalità ma ci sto perdendo il sonno.
Un grande grazie achiunqu mi può aiutare!
Eugenio
Public Sub cmdShow_Click()
Dim db_file As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim SQL As String
Dim datDa As Date
Dim datA As Date
If txtDa.Text <> "" Then
datDa = CDate(txtDa.Text)
datDa = DatePart("m", datDa) & "/" & DatePart("d", datDa) & "/" &
DatePart("yyyy", datDa)
Else
intMsg = MsgBox("Inserire data inizio", vbOKOnly + vbExclamation, "Errore!")
End If
If txtA.Text <> "" Then
datA = CDate(txtA.Text)
datA = DatePart("m", datA) & "/" & DatePart("d", datA) & "/" &
DatePart("yyyy", datA)
Else
intMsg = MsgBox("Inserire data Fine", vbOKOnly + vbExclamation, "Errore!")
End If
db_file = App.Path
If Right$(db_file, 1) <> "\" Then db_file = db_file & "\"
db_file = db_file & "dballarmi.mdb"
Set conn = New ADODB.Connection
conn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & db_file & ";" & _
"Persist Security Info=False"
conn.Open
SQL = "SELECT * FROM alarm_table WHERE Data BETWEEN #" & datDa & "# AND #" &
datA & "#"
Set rs = conn.Execute(SQL, , adCmdText)
' Connette il Recordset al DataReport.
lblDa.Caption = datDa
Set rptAllarmi.DataSource = rs
If intMsg <> 1 Then
rptAllarmi.WindowState = vbNormal
rptAllarmi.Caption = "Report dal " & datDa & " al " & datA
rptAllarmi.Show vbModal
Else
frmMain.SetFocus
End If
rs.Close
conn.Close
End Sub

 rptAllarmi.Caption = "Report dal " & datDa & " al " & datA
    rptAllarmi.Caption _
      = "Report dal " _
      & Format$(CDate(txtDa.Text), "dd/mm/yyyy") _
      & " al " _
      & Format$(CDate(txtA.Text), "dd/mm/yyyy")
[...]
    Ovviamente usando variabili e verificando la coerenza dei valori...
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 > Questo che segue č il codice di un pulsante di un form con 2 campi di






 Capito?
    Si'. Passo.


 Capito?
    Si'. Passo.
--


 Capito?
    Si'. Passo.
--

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Numero di file in una directory

vari comandi tipo KILL FILEXISTS FILECOPY ecc... ma sarebbe possibile
determinare il numero di files presenti in una determinata path?
Ad esempio vorrei poter avvisare con un msgbox quando all'interno di questa
directory si siano raggiunti 100 files.
Grazie dell'aiuto!
Franco

 determinare il numero di files presenti in una determinata path?
il metodo più immediato è usare una FileListBox, impostargli la proprietà
Path, e poi controllare il numero di file con File1.ListCount
Ciao
Faber

 directory si siano raggiunti 100 files.
se ti basta il numero dei file in una dir, il codice qui sotto puo'
aiutarti.
se ti serve sapere anche il contenuto delle subdir, dovrai adattarlo
abbastanza individuando le cartelle e usando la ricorsione.
ciao, a.
    Dim tmp, tmpCnt As Integer
    tmp = Dir(MyPath & "import\*.*")
    While tmp <> ""
        tmpCnt = tmpCnt + 1
        tmp = Dir
    Wend
    If tmpCnt = 0 Then MsgBox "There's no TEXT files!": Exit Sub
    If MsgBox("Import and delete " & tmpCnt & " file(s) in " & vbCrLf & _
        UCase(MyPath) & "IMPORT\ folder ?", vbYesNoCancel) <> vbYes Then
Exit Sub




Newsgroup: it.comp.lang.visual-basic
Titolo: help su controllare un processo "createProcess" e "waitForSingleObject"

Ciao !!!!
Chi conosce queste API ???
Il mio problema è controllare un processo esterno (un exe) da 
visual basic e passargli dei parametri, ma con la Api in oggetto non 
ci riesco !!!! Non mi crea il processo che chiamo !!!!
Aiuto !!!!!!
Inviato da 
www.mynewsgate.net


Hai fatto una ricerca sulle news di 
www.google.it
? Lě trovi un sacco di
articoli e informazioni!!

Newsgroup: it.comp.lang.visual-basic
Titolo: MSHFlexGrid..un consiglio..

Ciao, ho sempre usato questo controllo utilizzando le proprietą .col, .
row  e .text per inserire valori nelle celle. Adesso perņ mi servirebbe
inserire valori nelle celle direttamente dal programma in esecuzione, in
pratica devo andare sulla prima cella e digitare il valore,  č possibile
fare ciņ ? Come ?
Grazie

 fare ciò ? Come ?
E' possibile utilizzando una casella di testo nascosta che viene spostata
nella cella che prende il focus.
Ho utilizzato tale tecnica una sola volta per studio.
giuseppeD
-- 
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: aiuto

Salve, devo realizzare un bottone che, premendo ok, copia automaticamente un
file prestabilito sul desktop del windows. Ho provato con filecopy, ma poi
mi sono reso conto che il percorso del desktop varia da windows a windows,
anche della stessa versione, ad es xp, poichè tale percorso dipende dal nome
dell'utente...... c'è un modo per risolvere questo problema  e far
funzionare il bottone con ogni win di ogni utente? grazie



Al volo
 Form+Button+List
Private Sub Command1_Click()
For i = 1 To 255
    If Environ(i) <> "" Then
        List1.AddItem Environ(i)
        List1.Refresh
    End If
Next
End Sub
ciao



a margine di quello che ho detto potresti leggere il registro
HKEY_LOCAL_MACHINE
"SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
Ciao
Alessandro

 ha scritto nel messaggio
news:bcd0pq$htnb7$1...@ID-191912.news.dfncis.de...


"S.P."
tutto in vbs adoperalo cosi oppure converti tu :
Set oShell = WScript.CreateObject("WScript.Shell")
oShell.Run("%windir%\Desktop")
  MsgBox x
percio'diquianchesideduceche :
set Shell = WScript.CreateObject("Shell.Application")
  Shell.Open 0
oppure
 ssfDESKTOP=0
Set oSHApp = CreateObject("Shell.Application")
  sSrc = "c:\fileprestabilito.ext"
  sDest = 0
  oSHApp.Namespace(sDest).CopyHere sSrc
ecc
http://www.freewebz.com/iosononiubbo/
(x >>>> aiuto >>> nel subj)
--
Fosco

"Fosco"
azzz...
Set oShell = WScript.CreateObject("WScript.Shell")
x=oShell.Run("%windir%\Desktop")
  MsgBox x
--
Fosco

Newsgroup: it.comp.lang.visual-basic
Titolo: Textbox Multiline!!! Help!!!

Grazie in anticipo a tutti quelli che mi aiuteranno!!!
Ho una textbox multiline con una scrollbar verticale, dovrei, all' append da
codice (del genere text1 = text1 & vbCrLf &  myStr) far scorrere la
scrollbar in modo tale da visualizzare l'ultima linea inserita....
come posso fare??????
grazieeeeeeee
... and one to rule them all ...

 scrollbar in modo tale da visualizzare l'ultima linea inserita....
Dopo l'inserimento dell'ultima linea inserita, aggiungi:
Text1.SelStart = Len(Text1.Text)
Ciao!
--
Esteban
Hosted by 
www.seber.it
(Remove nonspammare for reply)

 Text1.SelStart = Len(Text1.Text)
Oppure prima fai:
  Text1.SelStart = Len(Text1.Text)
poi:
  text1.seltext = vbCrLf &  myStr
Cosi' hai il vantaggio di evitare uno "sfarfallio" quando inserisci
velocemente molte righe consecutive
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con l'utilizzo dello stile grafico di WinXp...

Ho un problema con l'utilizzo dello stile grafico di Windows Xp:
In Vb.Net utilizzo l'istruzione Application.EnableVisualStyles() in una Sub
Main per rendere la mia applicazione in stile WinXp. Tutto funziona
perfettamente tranne per le toolbar che visualizzano i pulsanti grafici ma
non visualizzano le immagini .bmp o .ico
Come posso risolvere il problema? Devo impostare una qualche proprietą?
Potete aiutarmi?
Ringrazio anticipatamente.
Luigi


In una discussione di qualche giorno fa postai un link dove viene 
spiegato il funzionamento di EnableVisualStyles e alcuni suoi problemi.
La discussione di cui parlo č: 
http://groups-beta.google.com/group/it.comp.lang.visual-basic/browse_frm/thread/a61257eb93c2e630#72e27c7a00528e68
HTH
-- 
Massimo Prota [Microsoft .NET MCAD]
MyWebLog:  
http://blogs.ugidotnet.org/mprota
BlogFeed: 
http://blogs.ugidotnet.org/mprota/Rss.aspx

 ha scritto nel messaggio
news:PuaEd.74699$C94....@tornado.fastwebnet.it...

Grazie!

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

trovare nulla
Controlla la sintassi...
Stringa  "Campo = 'stringa'"    la stringa cercata è fra gli apici
Numero "Campo = numero"   il numero non è fra gli apici
Data "Campo = #mm/gg/aaaa#"  la data è fra # e in formato inglese
Se poi usi il comando per cercare da una variabile, devi ricordare che
FindFirst richiede come parametro una Stringa...
"Campo = " & format$(variabile_numerica)   così è OK
"Campo = "; variabile_numerica     non funzionerà mai...
Se hai bisogno scrivi e manda il tuo codice...
Flavio


Posta la sintassi dei comandi che usi.
Puo' essere:
1) per la data devi includere # in testa e in coda alla stringa e il
formato deve essere mese/giorno/anno 
2) per la data devi includere # in testa e in coda alla stringa
Forse (e dico forse) devi includere anche il singolo apice per
chiudere la stringa.
Ciao. (e facci sapere).
Massimiliano (
ma...@zerocity.it
) 

Usate una select e semmai poi usate i move se volete scorrere...
scusate l'intrusione, ma la cosa interessa anche a me
puoi dirmi per favore come fai?
ho provato subito il tuo suggerimento, ma non riesco a far diventare
il record corrente ciň che mi esce dalla ricerca fatta con la select.
come usi i move ?
grazie :-)
Carmelo Miuccio
radiot...@videobank.it

 marco 
icv...@box1.tin.it
Ragazzi non usate i comandi Find!!! sono molto piu lenti di una ricerca
fatta direttamente con la SELECT... ma anche del doppio piu lenti!
Usate una select e semmai poi usate i move se volete scorrere...
--
Centro Studi Informatica di Danilo Priore
Via Pio VII, 9 - 00163 - Rome - Italy
Phone: (06) 66.40.052
Mobile Phone: (0335) 63.87.643
P.IVA 10149810581 Iscr. CC.I.AA. 0841531
e-mail: 
pri...@infocenter.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Database aperto o no ???

Mi trovo in questa situazione :MDIForm e 6 ChildForm, 3 di queste utilizzano
lo stesso Database per estrapolare informazioni. Dovrei chiudere il Database
solo se queste 3 FormChild sono chiuse altrimenti deve rimanere aperto. Come
faccio a verificare tutto ciň ? O forse dovrei cambiare totalmente tattica
??
Aprire e chiudere il Database ogni volta che chiudo una di queste(FormChild)
e poi passo ad un'altra non credo sia ottimale o no ?
Grazie 1000
Ciao Master_P 8)

 Grazie 1000
De nada.

Newsgroup: it.comp.lang.visual-basic
Titolo: Prompt dei comandi

Come posso scrivere sul prompt dei comandi dal quale ho richiamamto il
programma ??
usando shell("cmd echo ddd")  si apre una nuova finestra
grazie
Martino

 usando shell("cmd echo ddd")  si apre una nuova finestra
Prova a dare un'occhiata qui:
http://support.microsoft.com/default.aspx?scid=kb;en-us;Q171654
Ciao
--
Timothy Redaelli
timothy(dot)redaelli(at)email(dot)it
-----------------------------------
Links:
Sito Comune: 
www.it-lang-vb.net
MSDN: 
msdn.microsoft.com

 programma ??
[cut]
Se non ricordo male trovi qualcosa sul sito comune.
www.it-lang-vb.net
Ciao!
Newsgroup: it.comp.lang.visual-basic
Titolo: Presentazione e domanda

Ciao, sono Gabriele Tassoni di Bologna, da poco ho iniziato a programmare in
VB6 e, dopo alcune settimante di lurkaggio su questo NG, ho deciso di uscire
allo scoperto con un dubbio:
sto creando una applicazione in VB che deve convertire delle informazioni in
un file txt portandole in un file Excel, fino a ora ho sempre lavorato in
win2000 e non ho mai riscontrato problemi, quendo ho provato il prog su un
win98, sembrava non riuscire a creare il file Excel.
Ho cosě provato a sviluppare il prog sotto win 98, durante il debug mi da
sempre un codice di errore 458 sempre nel momento in cui creo il file Excel,
nel dettaglio, il codice riguardante questa fase č:
    Dim xlApp As Excel.Application
    Dim xlWB As Excel.Workbook
    Dim xlWS As Excel.Worksheet
        Set xlApp = New Excel.Application
        Set xlWB = xlApp.Workbooks.Add
        xlWB.Activate
        Set xlWS = xlWB.Worksheets.Add
        xlWS.Activate
Il problema sorge sulla linea Set xlApp = New Excel.Application, che nel
debug viene evidenzata gialla (e questo penso sia normale per indicarmi
dov'č l'errore).
Forse anche le linee successive non vanno bene in win98.
La versione di Excel č la 97 (riferimento Excel9.olb), ma su win2000 il prog
funziona sia  con Excel 2000 che col 97, su 98 invece non sembra nemmeno
riuscire a creare un oggetto Excel.Application.
Mi sa a questo punto che anche i comandi che ho usato per chiudere il file
non vadano piů bene sotto win98...
Mi piacerebbe proprio capire!
Grazie della risposta!

 wrote in message
news:taq37.3642$Pv.1...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Il mistero delle variabili uguali

Forse sarà questione di sonno arretrato, ma questo per me è un vero
dilemma al quale non ho trovato una spiegazione. Questo codice porta
regolarmente a visualizzare nel campo di testo il contenuto del campo
del database indicato nella variabile:
Private Sub Command1_Click()
Dim Sorgente As String
Sorgente = Data1.Recordset(1)
Text1.Text = Sorgente
End Sub
Questo, invece, visualizza nel campo di testo la stringa
"Data1.Recordset(1)" (che è il testo contenuto nel file Prove.txt)
anziché il contenuto del campo del database:
Private Sub Command1_Click()
Dim Sorgente As String
Open "C:\Temp\Prova.txt" For Input As #1
Input #1, Sorgente
Close #1
Text1.Text = Sorgente
End Sub
Eppure dovrebbe funzionare come nel caso precedente! Nel file
Prova.txt ho provato a mettere la stringa tra virgolette o no, ma il
risultato è lo stesso. Come può succedere?
-----------
Stefano












--
Posted from 
sparc20.ftbcc.it
 [151.99.147.3]
via Mailgate.ORG Server - 
http://www.mailgate.org

...



Nel primo caso tu dici a Text1 di visualizzare ciň che arriva dall'OGGETTO
Data1, mentre nel secondo dici di visualizzare l'insieme dei caratteri
"Data1.Recordset(1)".
Per fare quello che ti serve, potresti per esempio fare cosě:
Ipotizziamo che tu debba visualizzare il contenuto della tabella di nome
TabA .
Allora nel file di testo Prova.txt memorizza TabA.
Nel Form crea una Text1 ed un Data1.
Imposta correttamente la proprietŕ di DatabaseName di Data1.
Collega Text1 a Data1.
Poi
Private Sub Command1_Click()
  Dim MyTable as String
  Dim Sorgente As String
  Open "C:\Temp\Prova.txt" For Input As #1
  Input #1, MyTable
  Close #1
  Data1.RecordSource = MyTable
  Data1.Refresh
  Sorgente=Data1.Recordset(1)
  Text1.Text = Sorgente
End Sub
Ciao
Maurizio B.
mrzNOMMI...@tin.it
 (eraseNOMMISPAMMA)


Il fatto č che non puoi salvare su disco l'istanza di un oggetto!
Windows non saprebbe piů come trattarlo quando verrebbe ripescato.
VB cerca solo di fare tutto il possibile per tradurre quello che VUOI fare
in quello che PUOI fare.
Ciao.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?VBA]è possibile visualizzare il totale di una fattura ?

CIAO di nuovo..
         Questa è veramente complicata: è un paio di settimane che ho il
programma pronto, ma non riesco assolutamente a visualizzare il totale
della fattura mentre l'utente la compila.
Mi spiego : Ho un Form dove vengono presi i dati generali della Fattura
(DataEmissione,CodCliente,DataPagamento,NFattura) nel quale si apre un
sottoform dove l'utente inserisce riga per riga il Codice prodotto,
Quantità e prezzoVendita.
Ho creato una Query che mi calcola il totale per stamparlo in una
distinta ( mitovo per il quale sto sviluppando questa applicazione), ma
vorrei che il totale si potesse vedere anche sulla stessa maschera dove
si sta compilando, prima che l'utente confermi la fattura e questa venga
inserita in archivio.
COME FARE ?
Grazie a chi saprà darmi una mano.
Saluti
Alex

Una domanda......
se l'utente preme "conferma" cosa capita? Si registra immediatamente il
totale sul database?
Fammi sapere che continuiamo
Ciao

max ha scritto:

Il pulsante conferma memorizza i dati della fattura dai quali è possibile
ricostruire il totale

Newsgroup: it.comp.lang.visual-basic
Titolo: Altre 2 domandine...

Dove trovo un buon tutorial per gestire la porta seriale (apertura della
porta, invio e ricezione dati)?
E' possibile inglobare un filmato flash all'interno di un progetto vb?
Grazie tante
saluti
hyppos

 wrote in message
99qni3$2eli7$1...@ID-73994.news.dfncis.de...


 E' possibile inglobare un filmato flash all'interno di un progetto vb?
(se hai flash installato naturalmente) c'é un OCX... Sfoglia i componenti
(click con il tasto destro del mouse sulla casella dei componenti) dovrebbe
esserci qualcosa tipo "Flash player" O "Macromedia Qualcosa..."
            Ciao
                    Allanon

 ha scritto nel messaggio
news:99s9ec$2gg4g$1...@ID-67444.news.dfncis.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: Click destro del mouse (API)

Salve a tutti,
devo impedire che compaia il popup premendo il pulsante destro del mouse in
un controllo WebBrowser e credo che l'unico modo sia gestire la chiamata
all'API.
Qualcuno mi puó aiutare anche con qualche Link o codice `d'esempio?
Grazie in anticipo
Igor

 ha scritto nel messaggio
news:J0cd8.3992$Ns4.1...@news2.tin.it...

Credo che si debba fare con un subcassing.
Sito Comune >> Archivio >> Binari >> HookOcx (credo)
Ciao
--
Timothy Redaelli
timothy(dot)redaelli(at)email(dot)it
-----------------------------------
Links:
Sito Comune: 
www.it-lang-vb.net
MSDN: 
msdn.microsoft.com
Newsgroup: it.comp.lang.visual-basic
Titolo: Con FlexGrid

Ciao a tutti.
Come posso far sparire quelle cellette grige che appaiono nella prima
colonna ? Intendo quelle specie di intestazioni di riga ?
grazie.

 colonna ? Intendo quelle specie di intestazioni di riga ?
' per colorare la prima cella a sinistra:
MSFlexGrid1.Col = 0
MSFlexGrid1.Row = 0
MSFlexGrid1.CellBackColor = colore_Che_desideri
giuseppeD


-- 
Abulion Yorgen
Maestro Jedi
Sign che sta rientrando dalle ferie...
(forse)


[cut] [cut]
Guida in linea
a.. FixedCols: restituisce o imposta il numero totale di colonne fisse di un
controllo MSHFlexGrid.
a.. FixedRows: restituisce o imposta il numero totale di righe fisse di un
controllo MSHFlexGrid
Hai letto con attenzione la richiesta e successivamente testato il codice
che hai scritto ?
giuseppeD
p.s.
la Bibbia va letta attentamente per intero e non conviene fidarsi di
spiegazioni di gente di parte.

 news:tjm4nugvj1jonr7uk...@4ax.com...
CUTTINO nervoso....
Cavolo dobbiamo fare la guerra di religione anche su una FlexGrid.....che
c'entra la bibbia!
Cmq
RISPOSTA CORRETTA:
Premi F1 e cerca "FixedCols, proprietą"
RISPOSTA SBAGLIATA:
Private Sub Command1_Click()
flex.FixedCols = 0
flex.Refresh
End Sub
Aloha!

 ha scritto nel messaggio
news:nZDc9.40519$ub2.6...@news1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Outlook: dove sono i contatti della rubrica?

Ho dovuto reinstallare win95 e IE4.01 e Outlook-Express.
Sembra che habbia perso i contatti della rubrica...
Dove sono contenuti? Forse ho una copia della cartella...
Ciao.

Dove sono contenuti? Forse ho una copia della cartella...
Cerca i file .WAB !
Zeross
_____________________________
"In realtà sono polpette di dinosauro!"

Cerca i file .WAB !
Grazie, ora sono sicuro di aver perso tutti i miei contatti...

Grazie, ora sono sicuro di aver perso tutti i miei contatti...
Allora prova a cercare qualche copia di backup... ha estensione .WA~
Zeross

...
|Ho dovuto reinstallare win95 e IE4.01 e Outlook-Express.
|Sembra che habbia perso i contatti della rubrica...
|
|Dove sono contenuti? Forse ho una copia della cartella...
|
|Ciao.
|
|
Windows/Application Data/Microsoft/Address Book
------
ciao, grenzo

Grazie, ora sono sicuro di aver perso tutti i miei contatti...
SEI UNICO !  :-)
Comunque grazie per avermi ricordato di fare un bel backup.
Ciao e auguri
---
--
-
MIX (VB5SP3)
130 links ai siti VB
http://www.tempolibero.com/user/mix/
(Ultimo aggiornamento 28-12-98)
-
--
---
Newsgroup: it.comp.lang.visual-basic
Titolo: Programma senza SETUP

E' possibile eseguire un programma in VB 5.0 su un PC in cui c'e'
Win95 E BASTA! (subito dopo l'installazione, per esempio), senza
dover eseguire la procedura di Setup?
Che ne so mettendo le varie DLL e OCX che servono nella directory del
programma?
Ho provato ma non sembra funzionare.
Qualcuno ha un'idea migliore?
Sent via Deja.com 
http://www.deja.com/
Share what you know. Learn what you don't.

Qualcuno ha un'idea migliore?
Dovrebbe essere possibile riuscire a farlo funzionare anche cosi', l'unica cosa
che manca e' registrare DLL e OCX con regsvr32.exe
Ciao
--
Luca Dormio
l...@sig-la.com
ldo...@tin.it

Qualcuno ha un'idea migliore?
Penso che dovresti mettere le dll e gli ocx in windows\system.
Ciao. Luca.

Newsgroup: it.comp.lang.visual-basic
Titolo: ado dao access 2000

salve a tutti,
l'azienda per cui lavoro mi ha chiesto di fare il porting di
un gestionale da access 97 access 2000.
un buon programmatore vb, mi ha detto che era necessario passare da dao
ad ado.
siccome provando a fare questa cosa, mi son trovato in una marea di roba
da riscrivere, mi chiedevo se non fosse sufficiente ricompilare il tutto
cambiando nei riferimenti del progetto da dao3.5 a dao 3.6.
inoltre , se il lacchezzo non fosse possibile, mi dite perchè i
combo box fuinzionano in maniera laeatoria quando gli attacco ad una
data e peggio non funzionano affatto quando gli attacco ad un adodc???
saluti uno che il vb non gli piace per niente ( w il C !!!)

 wrote in message 3880A91A...@newnet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Guida MSDN da Visual Basic (anche da VC++ in realtà)

Ciao a tutti!
L'unico problema (si fa per dire...^_-) che ho č il seguente:
se premo F1 sia in VB6 che in VC++6 mi dice che la guida non č
disponibile anzi piů precisamente:
Impossibile visualizzare la guida (da VB6 SP5)
Unable to display Help:
A required component is missing.
Please reinstall. (da VC++ SP5)
Ovviamente se dal menu avvio vado si MSDN lo vedo perfettamente mentre
da VB o VC no...
Sempre ovviamente ho installato MSDN quando l'installazione di Visual
Studio 6 me lo ha chiesto, MSDN č quello che ho trovato (con quello
che costa diciamo comprato!) con i CD di Visual Studio 6.
idee?
Sempre grazie a tutti,
Al3x
PS: ho anche provato a reinstallarlo (come mi diceva VC++) ma
niente...

 Please reinstall. (da VC++ SP5)
Hai per caso installato Visio?
Se sě cerca (anche qui, oltre che Google e MSDN on-line) c'č un po' da
trafficare col registro.

 trafficare col registro.
Se scopro di averlo installato lo farò ^_^!
Al3x

 Se scopro di averlo installato lo farò ^_^!
Vedi anche qui:
http://makeashorterlink.com/?Q18E21592
Per Visio ... possibile che ... abbia delle "visioni"? eppure ricordavo
qualcosa del genere. Scusa.

Grazie a Lupo per l'aiuto e grazie a tutti quelli che hanno letto ma
ho capito, provato e risolto!
Ecco qui:
[SITO MICROSOFT ON]
PRB: MSDN Library Unable to Display Help from Within Visual Studio
Programs
The information in this article applies to:
Microsoft Developer Network (MSDN)
Microsoft Visual Studio 6.0
Microsoft Visual Studio 6.0 SP1, SP2, SP3
[...]
Microsoft Visual Basic Professional Edition for Windows 6.0
[...]
Microsoft Visual C++, 32-bit Professional Edition 6.0
[...]
Microsoft Visual Studio, Professional Edition 6.0
[...]
SYMPTOMS
When you try to access MSDN Library Help from within Visual Studio
programs using F1 or the Help menu, the following error message
appears:
unable to display help
CAUSE
Vshelp.dll is not registered or is not correctly registered with the
operating system.
RESOLUTION
To resolve this problem, run Regsvr32 to register Vshelp.dll: 
Search for Vshelp.dll.
Select Start and then click Run. Type Regsvr32.
Click and hold on the file Vshelp.dll found in the search and drag it
into the Run box immediately following Regsvr32. Click OK.
The system should return a "registered successfully" message. Click
OK.
Close both windows.
Open a Visual Studio program and test Help.
[...]
[SITO MICROSOFT OFF]
Al3x
Newsgroup: it.comp.lang.visual-basic
Titolo: Possibile Convertire File Garfici ?

Esiste qualche libreria che mi permette di caricare un file in formato tga e
salvarlo in un altro formato ?
mari in tiff o jpg o pippoPalla ?
grazie mille....
un salutone e buon lavoro a tutti voi...

 wrote in message 7r838c$ml0$1...@stargate1.inet.it...

Ho sentito di un buon convertitore di qualsiasi file garfico in formato
pippoPalla o mari tiffffffffffffff.......
Ma non mi ricordo dove =)

 salvarlo in un altro formato ? magari in tiff o jpg o pippoPalla ?
Per esistere esistono, ma... quanto ci vuoi spendere ?
Incorporati in Win 95 esistono gli OCX della Wang, se hai installato Imaging
C'è perfino un programmino di esempio in VB.
L'unico altro gratuito che conosco, ma solo per usi privati, è TwistedPixel
della BananaSoft, che mi è sembrato anche piuttosto veloce. L'ultima
volta che ho guardato sul sito era ancora in beta version, però funzionava
abbastanza bene.URL: 
http://home.earthlink.net/~bananasoft/
Se te ne servono professionali, chiedi ancora, qualcuno risponderà...
Bye, G.
--
---------------------------------------------
    Le risposte alle tue domande le trovi
    sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
       ... e nell'help in linea !
---------------------------------------------
Real E-address: 
gaet...@hotmail.com

 > mari in tiff o jpg o pippoPalla ?

:-)
dei miti....
:_)
il mio problema specifico e' che devo controllare se un file grafico e'
scritto correttamente...
per esempio..
se uso il tga conosco a priori le sue dimensioni e mai basta controllare che
siano giuste per vedere se il file e' ok...
poi lo converto in tiff o in qualcosa di altro...
sarebbe piu' facile controllare direttamente se il tiff (o il jpg o il pippo
palla) e' giusto...ma non saprei da che parte iniziare...voi cosa suggerite
?
grazie ancora....

intendi che devi controllarne molti in automatico? molti quanti? in ogni
modo, un bel casino, considerato anche solo il numero dei colori possibili e
i livelli di compressione jpg (e anche gif, a parita' di dimensioni ma
avendo o no larghe zone di colore uguale)... in base a cosa lo controlli?
avresti tante variabili che ti conviene rifarli a mano mi sa.
cosi' sui due piedi, due ipotesi:
- fai delle pagine con thumbs, anche non programmandole tu, con qualcosa
tipo pmio (che va benino ma non vuole vedere i gif per ideologia), e poi dai
un occhio ai thumbs. io i francobolli li faccio fare a gvbox, ma direi che
coi tiff a piu' livelli perde qualche colpo, e con file grossi non e' un
fulmine (non ti dico poi coi pippopalla). se vuoi controllare il risultato
vai al sito qui sotto, ma e' lento. i thumbs di gvb sono quelli non degli
sfondi.
- fai delle macro in photoshop per la conversione, se i file hanno problemi
ti avverte lui.
ciao, pal
ps - se il thread continua, magari qualcuno ci scrive "file gRAfici" :)
cosi' sembrano orfici...
===
andrea palazzi
pal at cedoc dot mo dot it
http://members.xoom.it/xday/_html/
===

Newsgroup: it.comp.lang.visual-basic
Titolo: database che non si chiude

Salve a tutti.
Il  programma che sto realizzando, deve gestire dati presenti su
un database Access 2000... fin qui niente probl.
Il fatto è che devo avere la necessità di operare su files diversi
(tutti con la stessa struttura ovviamente) aprendone 1 alla volta...
quindi, per semplificare, analizzare il file di Aprile, chiuderlo
e aprire quello di Maggio, chiuderlo e aprire quello di Giugno, ecc.
lasciando all'utente la possibilità di selezionare il file da analizzare.
Ho inserito nel menu le opzioni OPEN LAST e OPEN NEW per
semplificare la vita all'utente.
e anche qui no probl... ho inserito un oggetto DATA e vado a
cambiare la proprietà "Databasename".
Il mio problema è come realizzare la voce del menu CLOSE.
Ho provato ad assegnare una stringa vuota ( "" ) alla proprietà Databasename
e poi a fare un refresh del controllo Data ma l'ultimo file utilizzato
(prima di scegliere
CLOSE) mi resta bloccato (è presente il file .LDB) e mi viene liberato
solamente chiudendo il programma.
La mia procedura è corretta o devo fare in qualche altro modo?
----------------------------------------------------------------
Biasiutti Riccardo
rbias...@tin.it
ICQ : 26888458

 Il mio problema è come realizzare la voce del menu CLOSE.
Devi prima chiudere tutti i recordset eventualmente aperti con
rs.close
set rs=nothing
e poi
db.close
set db=nothing
quindi apri l'altro database sempre (se vuoi) sull'oggetto/connessione db


se non erro questi sono comandi DAO ... ma come faccio
a chiudere la connessione del CONTROLLO DATA?

 a chiudere la connessione del CONTROLLO DATA?
F1 sul Data control
Che non sia Data1.Database.Close?

 ha scritto nel messaggio
news:0AYS8.80049$j65.1...@twister1.libero.it...
grazie ... tutto ok
l'avevo già provato ma mi dava errore.
E' strano il fatto che nel Form ho 4 controlli DATA
ma per far sparire il file .ldb ne ho chiusi solo 2 .... BOH
comunque funziona.

Newsgroup: it.comp.lang.visual-basic
Titolo: AL WEBMASTER DEL SITO COMUNE

Per favore, pubblicala.
Nella voce fornitore, mettici "luXor".
Grazie...

Grazie...
Per fornire materiale al WM del Sito Comune, scrivi a:
it_la...@murialdo.it
In questo NG non sono ammessi attach files binari, un robot automatico li
elimina.
Ciao
By -MES-   Maronese Ettore
http://ilmes.freeweb.org
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://www.murialdo.it/it_lang_vb

Newsgroup: it.comp.lang.visual-basic
Titolo: ebqdom@tin.it

 prova
Scusate
ho sbaglato indirizzo
Dovevo inviarla a me stesso.
giuseppeD

> prova
it.comp.test
NON E' DIFFICILE

prova
Newsgroup: it.comp.lang.visual-basic
Titolo: ? ISAM installabile

Siamo alle solite con access 200.
Il problema è questo.
Il controllo Data ha la proprietà Connect impostata su ACCESS 2000
e finche lancio l'applicazione dall'IDE di VB, tutto gira OK.
Quando il file è compilato, se l'ancio l'exe, i da il seguente errore:
"IMPOSSIBILE TROVARE ISAM INSTALLBILE"
Che vor di ????
Per il momento ho risolto convertendo il DB di access alla versione
precedente, ed impostando la proprietà connect del controllo data su ACCESS
Ma perchè, devo fare sempre un passo indietro per far funzionare le
applicazioni ???
a Proposito, il mio VB6 è con SP4
Spero in Voi... Ciao

 ha scritto nel messaggio
news:8tcfgd$qv7$1...@serv1.albacom.net...


Poiche' sono troppo pigro, non avevo voglia di iniziare
un nuovo thread sull'argomento.
Qualcuno conosce qualche maniera per creare un
driver ISAM? un driver ODBC.
Insomma se creo un nuovo tipo di file, con una struttura
che so io, come faccio ad utilizzare i dati all'interno del
mio file attraverso un provider quale ADO o DAO?
--
Fibia "Sakamoto" FBI
URL: 
www.geocities.com/fibiafbi
E-Mail: 
fibi...@hotmail.com
ICQ UIN 63586057


E' possibile creare un ADO simple provider addirittura con VB, anche se non
mi ricordo piu' dove l' ho letto. Avevo anche iniziato a scrivere un
programmino di prova, ma siccome era giusto di prova (ergo non pagato) non
l' ho mai portato a termine.
Ciao
Aldo

 l' ho mai portato a termine.
Grazie HAL.
Qualcuno ne sa qualcosa in piu' a proposito?


Newsgroup: it.comp.lang.visual-basic
Titolo: Verificare che un db non sia vuoto...

Vorrei scrivere una breve routine ma non so come fare evitando al 100% 
che venga richiamato un errore...
Tac

 Tac
non è molto chiaro quello che chiedi...
la butto li' a casaccio:
Function isRecordsetEmpty(rs as recordset) as boolean
    'imposto il valore di ritorno di default
    isRecordsetEmpty = True
    'ignoro qualsiasi errore
    'in caso di errore la funzione ritorna True
    on error resume next
    isRecordsetEmpty = (rs.eof and rs.bof)
    'se non c'e' nessun errore la funzione
    'ritorna true se il recordset è vuoto o false se esiste almeno un record
end Function

 end Function
aggiungerei solamente un on error goto 0 alla fine....
bye,
Marco Trapanese
---
e-mail: 
marcotr...@tin.it
web: 
http://members.xoom.it/m_trapanese

     isRecordsetEmpty = (rs.eof and rs.bof)
Era questo che mi sfuggiva. Non ci avevo pensato, grazie :-)
Tac

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

Ciao a tutti.
Sapete dove posso trovare il seogente di uno dei giochi Bomberman?
Grazie

 If KeyAscii = vbKeyUp Then
vbKeyUp non è un codice Ascii... Devi usare un altro evento, tipo KeyUp, o
meglio (per un gioco) KeyDown, che ha tra i parametri KeyCode... Inoltre:
sei sicuro che il form possa intercettare l'evento, cioé che abbia il focus?
Forse uno sguardo alla proprietà KeyPreview può aiutarti (se non lo hai già
fatto)...
Ignazio

 meglio (per un gioco) KeyDown, che ha tra i parametri KeyCode... Inoltre:
grazie, era questo non lo sapevo.

Newsgroup: it.comp.lang.visual-basic
Titolo: Data1 & DBlist1

Data1.RecorSet.FindFirst     "(nome) = ' "  &  DBlist1.Text & " ' "
lo scriverei come Pal nel suo messaggio, ma "(nome)"  lo hai scritto con le
parentesi  tonde  o quadre?
Ciao stefano

       Salve, sono bloccato con un problema di Visual Basic Pro 5, ho un
controllo DATA1 che mi gestisce una lista di indirizzi;
ci sono varie caselle di testo collegate al Data1 e queste vanno bene,
infine c'è un DBLIST1, questo mi visualizza benissimo il contenuto del campo
a cui l'ho collegato, (NOME) ma vorrei che cliccando sul nome dentro la
DBlist1 anche il DATA1 si puntasse sul nome che scelgo.
Reduce da VB3 ho messo questo comando dentro DBlist1.click:
Data1.RecorSet.FindFirst     "(nome) = ' "  &  DBlist1.Text & " ' "
Girare gira, ma ogni volta che agisco sui comandi di Data1 mi da questo
errore:
        L'oggetto non sopporta questa Proprietà o Metodo
Come farlo funzionare ???
        Grazie e ciao a tutti....      Sauro

         L'oggetto non sopporta questa Proprietà o Metodo
Data1.RecorSet.FindFirst "(nome) = ' "  &  DBlist1.list(dblist1.listindex) &
" ' "
cosi' va ?
ciao, a.


Questa non l'ho capita...
--
Lunga vita e prosperità
Joshua
mailto://
jos...@mclink.it

Questa non l'ho capita...
selecteditem restituisce il segnalibro del record selezionato quindi con
l'istruzione che ti ho scritto puoi andare direttamente al record desiderato
(sempre che il database che usi supporti il bookmark per es access)
Ciao stefano

 wrote in message
89d9lt$96e$1...@pegasus.tiscalinet.it...

Vedi? Questo č l'Alzheimer che avanza... non avevo notato il dblist, e
credevo si trattasse di una normale combobox. Sorry...

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

Can anyone help me! Is there a way to change the screen resolution and
screen color setting using Visual Basic?  What I would like to
accomplish is to just before I launch a computer game I have designed,
to make a call and adjust the resolution and color of the users screen.
Please help.
Thanks,
Sarvy
Sent via Deja.com 
http://www.deja.com/
Before you buy.

Goto 
www.vbnet.com
bye
		maxx


Newsgroup: it.comp.lang.visual-basic
Titolo: listview e click

Vorrei che click e doppioClick mi facciano die azioni diverse.
Ma l'evento item_click del listview mi cattura tutti i click, quindi in
dblClick non ci va mai.
Come faccio????

Un'idea:
    gestisci il punsante sinistro del mouse come click
    il pulsante destro del mouse come il doppio click
no?

 ha scritto nel messaggio
news:d9gW9.47443$0v.14...@news1.tin.it...


 Vorrei che click e doppioClick mi facciano die azioni diverse.
da me lo fanno.
ciao


Public lastXOnLVST As Integer
Public lastYOnLVST As Integer
Private Sub LVStr_MouseUp(Button As Integer, Shift As Integer, X As Single,
Y As Single)
Dim itemTX As ListItem
lastXOnLVST = X
lastYOnLVST = Y
End Sub
Private Sub LVStr_DblClick()
Dim itemTX As ListItem
Set itemTX = LVStr.HitTest(lastXOnLVST, lastYOnLVST)
If Not itemTX Is Nothing Then
        'EVENTO DOPPIO CLICK SULL' ITEM itemTX
End If
End Sub
Ciao
Kjo
Newsgroup: it.comp.lang.visual-basic
Titolo: Connessione a DLL Remota

Ciao.
Devo connettermi a un DB remoto, e utilizzo la tecnologia DLL ActiveX a Tre
Livelli.
Il problema è questo.
La mia DLL si chiama Connect, il modulo si chiama clsConn e il server è
http://www.pippo.com
Supponendo che la DLL si trovi nella directory /pluto, è giusto scrivere
set objDll=createobject ("Connect.clsConn","
http://www.pippo.com
")
????
Non soi proprio come specificare la directory remota che mi interessa..
AIUTATEMI!
GRazie.
WILD!

 ha scritto nel messaggio
news:DI3i7.10594$%a4.4...@news.infostrada.it...



Se la DLL è COM per usare un meccanismo del genere devi per forza
registrarla sulla macchina server ed utilizzare un oggetto come MTS o COM+
per fare in modo che possa partire. E, sempre sul discorso COM, non importa
dove sta la DLL dato che è il registry che mantiene l'associazione tra il
nome che passi alla CreateObject e la collocazione fisica del file.
In generale una DLL non vive da sola ma deve essere sempre ospitata in un
processo. Quando da un eseguibile compilato con VB fai una CreateObject il
processo ospite è il tuo eseguibile, se la vuoi creare remota devi fare in
modo che sul server esista un processo in cui la tua DLL possa vivere, MTS e
COM+ fanno (tra l'altro) anche questa funzione.
Inoltre tieni presente che come la usi tu la comunicazione necessita di
aprire una bella serie di porte (non basta la porta 80 di Http).
Un'altra tecnica possibile è quella di usare RDS per queste cose, invece di
usare direttamente la CreateObject devi usare la CreateObject
dell'RDS.DataSpace, unico problema (a parte un po di lentezza in più) è che
tra una chiamata e l'altra l'oggetto viene sempre creato e distrutto, quindi
non puoi fare affidamento alla persistenza delle variabili tra una chiamata
e l'altra.
Saluti
Massimo

Newsgroup: it.comp.lang.visual-basic
Titolo: paura del controllo INET

sto implementando una applicazione che ha bisogno di collegarsi via
INternet e scaricare/caricare (via FTP) alcuni file di testo e
successivamente di lanciare un CGI (via HTTP)
Sto facendo il tutto con il controllo INET della Microsoft.
Vorrei sapere pero' se nessuno di voi lo ha mai usato e come si e'
trovato, visto che mi preoccupa un po' la "solidita' "del controllo,
soprattutto per quanto riguarda la gestione degli errori (cadiuta del
collegamento, risposta da parte del server, etc.)
Avete suggerimenti o (meglio ancora) esempi da mandarmi???
Grazie
Alessandro

Lo sto utilizzando in un programma dell'azienda per cui lavoro che effettua
degli FTP da PC a server UNIX, e
per il momento non ho avuto grossi problemi.

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

Ciao a tutti,
ho notato che selezionando i caratteri grandi nelle impostazioni di Windows
i controlli modificano le dimensioni in modo inaspettato per me...
esiste un modo per far visualizzare un form con i controlli che abbiano
sempre con le
medesime proporzioni indipendentemente dalla macchina su cui venga
installato il programma?



Scusatemi, per errore ho inserito il messaggio in questa posizione....
Newsgroup: it.comp.lang.visual-basic
Titolo: Prestazioni

Tra il controllo data e creare un recordset da codice (DAO) quale dei due
sistemi offre migliori prestazioni ?
Grazie, Alberto

 ha scritto nel messaggio
news:ASwj6.47626$gb1.1...@news4.aus1.giganews.com...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Nomi file lunghi e corti

Ciao a tutti
Ho inserito un programma nella cartella SentTo del profilo utente, ed ho visto che quando questo programma viene chiamato tramite il menù Invia A..., tutti i files/cartelle selezionati, vengono
passati come parametri, ognuno separato da uno spazio ed in formato 8.3.
Il problema è questo: come posso ricavare il nome lungo dal nome 8.3, oppure fare in modo che Invia a... mi passi direttamente il nome lungo? (ho VB5 e Win95)
API? Funzioni di VB? Controlli OCX o DLL supplementari?
Illuminatemi...
TIA
.Enjoy.
Legolas

fare in modo che Invia a... mi passi direttamente il nome lungo? (ho VB5 e
Win95)
Copiato da:
http://support.microsoft.com/support/kb/articles/q163/2/27.asp
Public Function GetLongFilename _
        (ByVal sShortName As String) _
        As String
        Dim sLongName As String
        Dim sTemp As String
        Dim iSlashPos As Integer
        'Add \ to short name to prevent Instr from failing
        sShortName = sShortName & "\"
        'Start from 4 to ignore the "[Drive Letter]:\" characters
        iSlashPos = InStr(4, sShortName, "\")
        'Pull out each string between \ character for conversion
        While iSlashPos
          sTemp = Dir(Left$(sShortName, iSlashPos - 1), _
            vbNormal + vbHidden +    vbSystem + vbDirectory)
          If sTemp = "" Then
            'Error 52 - Bad File Name or Number
            GetLongFilename = ""
            Exit Function
          End If
          sLongName = sLongName &amp; "\" & sTemp
          iSlashPos = InStr(iSlashPos + 1, sShortName, "\")
        Wend
        'Prefix with the drive letter
        GetLongFilename = Left$(sShortName, 2) & sLongName
      End Function
Attenzione che il win 98 e l'NT 5 hanno già una funzione simile:
GetLongPathName
che si usa, credo, come la funzione GetShortPathName usata nell'esempio sul
SC
per la funzione inversa, cioè per trovare il nome corto.
Bye, G.
--
---------------------------------------------
    Le risposte alle tue domande le trovi sul
    Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------
Real E-address: 
gaet...@hotmail.com
Newsgroup: it.comp.lang.visual-basic
Titolo: Aprire un form passando ad una variabile stringa il Nome del form da aprire.

Esiste qualcosa simile al metodo DoCmd.OpenForm "NomeForm" di Access 8.0 in
Visual Basic? O è una cosa assolutamente impensabile?
A chiunque lo sappia, ditemi come posso fare.
Esempio:
Public Sub Command1_Click ( )
Dim rsForm as recordset
Dim sFormName as String
set rsForm = .OpenRecordset("TableFormName")
Do While Not rsForm.EOF
sFormName = rsForm!FormName
Form(stringvariable).show
rsForm.MoveNext
Loop
End Sub
Se sai la risposta: Wal...@Gpi.it
Grazie mille.

Eh! č impensabile, In VB5. Sembra che in VB6 non sia cosě.... Mah!
Fabio Guerrazzi


Io in VB4 lo faccio tranquillamente! (sentito parlare della collection
forms?)
Ciao.


Non ho capito....
Ho sentito parlare della Collection, ma mi sembra che a domanda fosse "si
può passare una stringa....".
In Access probabilmente l'istruzione OpenForm standard seguita da una
costante stringa esegue lo Show del Form con nome uguale alla costante. In
VB come fai? con la collection crei una serie di istanze, e poi?
Potresti fare un piccolo esempio di come, con una stringa, apri un form?
(ovviamente senza comparazioni, altrimenti anch'io so usare Select Case....)
Ciao. Fabio Guerrazzi

 VB come fai? con la collection crei una serie di istanze, e poi?
Ho creato una funzione APRISCHEDA che riceve in ingresso il nome della finestra
da aprire in formato stringa;
all'interno della funzione scorro la collection forms fino a trovare quella il
cui name è uguale alla stringa passata e la
visualizzo. Questa soluzione ha comunque un limite, infatti nella collection
forms sono contenute solo le finestre di cui
si è già effettuato il load il che implica il caricamento in memoria di tutti i
forms all'avvio dell'applicazione (anche senza visualizzarli) e alla loro
chiusura fare la hide anzichè l'unload che sarà invece effettuato alla chiusura
dell'applicativo.
Ne consegue che se il numero dei forms dell'applicativo non è alto il tutto va
bene e anzi consente una visulizzazione dei form
molto veloce (a parte il primo ovviamente). Ciao.

...

Provate con il Microsoft Script Control 1.0
Basta inizializzare il Controllo nel FORM_LOAD:
Sub Form_Load()
    MScriptControl.AddObject "frmAbout", frmAbout, True
    MScriptControl.AddObject "frmMain", frmMain, True
End Form_load
Dopo, puoi aprire il form con lo script seguente:
_______________________________________
Dim test as String
test = "frmAbout"
MScriptControl.ExecuteStatement test & ".Show"
Il Controllo si scarica dalla HomePage della Microsoft(Freeware).
Ho solo provato velocemente ma !!Funziona!!.
Ciao, Walker.