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

E' la prima volta che scrivo in questo gruppo, in ogni caso, c'č
qualcuno che mi sappia dire come si puň programmare la Sound Blaster
da VB?
Per esempio programmare il mixer, o settare il volume e cosě via.
Ringrazio in anticipo.
Federico Liendl
fli...@interware.it

...


Poui anche guardare sul sonoro l'esempio MCI che c'e' in Visual Basic
5. Una cosa bella sulla Sb l'aveva fatta... (o cavoli, non mi ricordo
+ !), una DLL che monitorizzava un tempo reale i picchi del suono
della schda sonora in tempo reale.
Se ti interessa prova a chiedere sul questo NG di questa cosa.
Ciao.
Federico Galli
FedE...@tin.it
Visual Basic and Delphi
http://www.geocities.com/colosseum/loge/2151

 Se ti interessa prova a chiedere sul questo NG di questa cosa.
Io ho scritto una dll che monitorizza in tempo reale quanto e' ricevuto
dalla sceda audio in tempo reale.
Una mia vecchia versione occupava 200 kb.
Una mia nuova versione, piu' compatibile e con le stesse funzioni, e
stesse caratteristiche ne occupa solo 16 di kb.
E' freeware, la posso spedire a chi me lo chiedesse, very gratis e senza
impegno.
Anzi un piccolo impegno lo chiedo: vorrei che qualcuno mi spiegasse come
registrare .wav usando il controllo MCI, senza che mi vada a creare io
un nuovo formato audio.
Saluti.
-- 
Demis Magoga
de...@mall.it
[Internet: Chi cerca trova]
-- 
Demis Magoga
de...@mall.it
dma...@merlot.dtv.unive.it
http://www.geocities.com/SiliconValley/Horizon/3639
 
[Internet: Chi cerca trova]

impegno.
E' esattamente quello che cerco, se pui spedirmela, l'indirzzo è qui
sotto.
Non so come ringraziarti.
Federico
fede...@iol.it

Per esempio programmare il mixer, o settare il volume e così via.


Newsgroup: it.comp.lang.visual-basic
Titolo: OCX con Formattazione Euro

Ciao a tutti
Mi occorrerebbe un ocx, MaskEdit e qualsiasi altro oggetto, che implementi
un controllo dei decimali inseriti. Insomma qualcosa del genere che utilizza
la classica calcolatrice di Windows.
Se sapete dove trovare l'ocx di detta calcolatrice sarebbe il massimo ;-)))
In poche parole devo dare la possibilità di inserire un importo in Euro e
controllare automaticamente i decimali dopo la virgola. (es: scrivo 100,
deve essere visualizzato 1,00)
Forse è banale però ho trovato soltanto controlli sulla data e sulle valute
in genere (cioè con i punti delle migliaia).....
Grazie ancora a chi mi aiuta.
Saluti

 ha scritto nel messaggio
news:9uq2jn$85n$1...@nreadb.inwind.it...


 ha scritto nel messaggio
news:Kl1Q7.671$Ah7....@news1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [vb6+birra omaggio] Form abilitato, ma il click non funziona

Ho un progetto in vb6 (sp6) con un comportamento strano:
ho un ocx (chiamiamolo ocxForm) fatto da me che comprende una classe
publica e un form.
La classe espone un metodo pubblico (.mostraForm) per visualizzare in
maniera modale il form.
  Public Sub mostraFormDellOcx()
    Form1.Show vbModal
  End Sub
ho poi una dll (chiamiamola dllChiamante) fatta da me che complernde
una classe pubblica e un form.
Nel form è presente il controllo ocxForm.
La classe espone un metodo pubblico (mostraFormDellOcx) per rimappare
il metodo ocxForm.mostraForm. In particolare ecco il codice:
  Public Sub mostraFormDellOcx()
    Load Form1
    Form1.ocxForm.mostraForm
    Unload Form1
  End Sub
Se nel programma istanzio la classe dllChiamante e richiamo il metodo
dllChiamante.mostraFormDellOcx() il form viene visualizzato
correttamente e anche il suo funzionamento è corretto, ma il primo
click non viene sentito. In pratica è come se il form fosse
disabilitato, infatti non sente il Click sulla X, non sente il Move, i
pulsanti non vengono premuti, ecc. anche se il form è in realtà
attivo e abilitato.
Offro una birra a tutti quelli che ci pensano!

 ha scritto nel messaggio
news:1137595761.0...@f14g2000cwb.googlegroups.com...

So che anch'io ci sono incappato una volta, ma non ricordo più come ero riuscito
a girare attorno a 'sto problema.
Non garantisco nulla, prova questo codice:
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As
Long, lpdwProcessId As Long) As Long
Public Sub mostraFormDellOcx()
Dim ProcessID As Long
    Load Form1
    GetWindowThreadProcessId Form1.hwnd, ProcessID
    AppActivate ProcessID
    Form1.ocxForm.mostraForm
    Unload Form1
End Sub
Se non sortisce effetto, prova ad usare l'API BringWindowToTop passandole
Form1.hWnd.
Bye
Raf

Newsgroup: it.comp.lang.visual-basic
Titolo: qualcuno sa dirmi perchè galactica no va.

Salve a tutti e due giorni che cerco a collegarmi
con galactica e il mumero da sembre occupata,
non so a che santo rivolgermi, mi sapete dire
il perchč
Cioa
www.scozzaro.it

 il perchè
Sei un po' OT, comunque potrebbe dipendere da questo:
http://www.punto-informatico.it/p.asp?i=37199
Ciao
*Roby*


Mi dispiace per te, ma galactica č famosa in rete per i casini che
combina...
Newsgroup: it.comp.lang.visual-basic
Titolo: TESTO RUOTATO UTILIZZANDO - CreateFontIndirect

Funziona perfettamente in debug, se provo a compliare l'exe non va.
Qualcuno ha già affrontato questo problema?
Grazie.
Private Declare Function CreateFontIndirect Lib "gdi32" Alias
"CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long,
ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As
Long) As Long
Private Const LF_FACESIZE = 32
Private Type LOGFONT
     lfHeight As Long
     lfWidth As Long
     lfEscapement As Long
     lfOrientation As Long
     lfWeight As Long
     lfItalic As Byte
     lfUnderline As Byte
     lfStrikeOut As Byte
     lfCharSet As Byte
     lfOutPrecision As Byte
     lfClipPrecision As Byte
     lfQuality As Byte
     lfPitchAndFamily As Byte
     lfFaceName As String * LF_FACESIZE
End Type
Sub Command1_Click()
     Dim font As LOGFONT
     Dim prevFont As Long, hFont As Long, ret As Long
     Const FONTSIZE = 10
     font.lfEscapement = 450
     font.lfFaceName = "Arial" & Chr$(0)
     font.lfHeight = (FONTSIZE * -20) / Printer.TwipsPerPixelY
     hFont = CreateFontIndirect(font)
     prevFont = SelectObject(Printer.hdc, hFont)
     Printer.CurrentX = Printer.Width / 2
     Printer.CurrentY = Printer.Height / 2
     Printer.Print "TESTO RUOTATO di " & font.lfEscapement / 10 & "
gradi"
     ret = SelectObject(Printer.hdc, prevFont)
     ret = DeleteObject(hFont)
     Printer.EndDoc
End Sub

...


Grazie per l'attenzione, ma utilizzando sia il mio codice che il tuo
(sostituendo l'oggetto Picture con Printer) non ci sono
problemi se si lancia il programma in debug. nel momento in cui si
utilizza il compilato il testo non viene ruotato.
Saluti,
Sergio

...


...


...


...


Newsgroup: it.comp.lang.visual-basic
Titolo: Procedure Oracle e VB6

Ciao a tutti,
    volevo sapere come posso passare da VB6 dei parametri a una procedura di
Oracle e come devo creare in Oracle una procedura che resti in attesa di
parametri da usare in una select o qualcosa di simile...
1000 Grazie!!!


Oggetto ADODB.Command
setti il command type adstoreprocedure....
quindi nel commandtext metti : nome_procedura(parm1,parm2,...,parmN);
La procedura la puoi scrivere in PL/SQL....
Ciao
Matteo

 La procedura la puoi scrivere in PL/SQL....
1000 grazie!!!
Newsgroup: it.comp.lang.visual-basic
Titolo: cambio pagina su stampanti slip (?)

Ciao
Stampo su una stampante "slip"... sono quelle stampanti ad aghi che
vedete nelle pizzerie.
uso VB6 sp5 su winXP.
Il driver che uso è generico/solo testo, su porta parallela (ma
seriale è uguale)
esempio
printer.print "qualcosa"
printer.print "qualcos'altro"
printer.enddoc
succede una cosa buffissima:
mi stampa "qualcosa" e la stampoa FINISCE COSI'
... ma sul foglio successivo, come PRIMA RIGA scrive "qualcos'altro",
e come seconda riga scrive "qualcosa", e così via nelle pagine
successive
mi è successo con due stampanti diverse, di marca diversa
vi è mai successo niente del genere?
se no, sapete consigliarmi che prove fare. un "monitor" di porta
parallela per vedere cosa passa sulla porta? così capisco se fa casino
il driver o la stampante ...

aggiungo una precisazione:
è come se la seconda riga rimanesse in un buffer.... che esce alla
stampa successiva.
intendo dopo il primo enddoc la stampa finisce, la stampante dice che
ha finito tutto quanto...
alla stampa successiva lui come prima riga mi scrive quello che non ha
scitto nella pag precedente...
grazie


fuori dai margini
sei arrivato fuori dai margini
-- 
-> GbC|
www.gbcweb.com
www.chiappori.com
 

 sei arrivato fuori dai margini
mmmm OK verifico!
Grazie!


fidati :P

Newsgroup: it.comp.lang.visual-basic
Titolo: Chiudere e riaprire un programma

Se nell'evento click di un bottone ho :
Form1.Close( )
il programma si chiude.
E' possibile fare in modo che cliccando su quel bottone il programma si
chiude e poi immediatamente si riapre ?
Dovrei realizzare una specie di effetto "Riavvia Programma"

 Dovrei realizzare una specie di effetto "Riavvia Programma"
Se usi VB 2005, fai semplicemente Application.Restart()
-- 
news:it-alt.comp.software.openoffice : Il newsgroup dedicato a
OpenOffice.org, la suite open source di applicazioni per ufficio.
Saluti, VITRIOL

Newsgroup: it.comp.lang.visual-basic
Titolo: array grandi o array piccoli?

cè differenza prestazionale a usare array grandi ( che so... 10 mega)
per elaborare dei dati oppure è meglio usare 10 volte un array da 1 mega
ed elaborare un mega alla volta? 


Stiamo parlando di VB6 o .NET?
Cosa devi fare precisamente sugli array?
-- 
S.

> Stiamo parlando di VB6 o .NET?
VB6

Newsgroup: it.comp.lang.visual-basic
Titolo: Quesito crittatura dati

Buonasera a tutti.
 
Ho una matrice di 256 byte da crittare.
Utilizzo la classe RijndaelManaged impostando la chiave a 256 bit e la dimensione dei blocchi a 256 bit.
 
Crittando la mia matrice di 256 byte, come risultato ottengo una matrice di dati a 288 byte (ovvero 256 byte + 32 byte, cioè 256 byte + 256 bit).
 
La domanda è: dopo la crittatura, non dovrei ottenere una matrice delle stesse dimensioni della matrice di dati iniziale (ovvero sempre 256 byte invece che 288)?
 
Il codice usato è, in sunto, il seguente.
 
Dim Data As Byte() = ... 'Data è una matrice di 256 byte.
Dim RijndaelAlgorithm As New RijndaelManaged
 
With RijndaelAlgorithm
    .KeySize = 256
    .BlockSize = 256
    .Mode = Security.Cryptography.CipherMode.CBC
    .Key = ... 'Key è anch'essa una matrice di 256 byte.
End With
 
Dim IV As Byte() = RijndaelAlgorithm.GenerateIV()
Dim EncryptedData As Byte()
Using Encryptor As ICryptoTransform = RijndaelAlgorithm.CreateEncryptor(RijndaelAlgorithm.Key, IV)
    EncryptedData = Encryptor.TransformFinalBlock(Data, 0, Data.Length)
End Using

>     .Key = ... 'Key è anch'essa una matrice di 256 byte.
 
Mi correggo, Key è una matrice di 32 byte (256 bit).


 
GenerateIV() serve a generare un vettore random (che poi sarà usato
-immagino- per la crittatura vera e propria).

 -immagino- per la crittatura vera e propria).
 
Si è così. Il codice che ho postato è ovviamente un riassunto di quello della mia applicazione.
Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto su codice vbs

ciao, una cosa da vero principiante...
 
ho il sequente pezzo di codice:
 
 
		if Fso.FolderExists ("D:\000") then
                 FSO.CopyFolder "D:\000", CopiaCDsuHD
		end if
 
		if Fso.FolderExists ("D:\CDSURF") then
		FSO.CopyFolder "D:\CDSURF", CopiaCDsuHD
		end if
 
                 if Fso.FolderExists ("D:\DATA") then
		FSO.CopyFolder "D:\DATA", CopiaCDsuHD
		end if
 
		if Fso.FolderExists ("D:\DICOM") then
		FSO.CopyFolder "D:\DICOM", CopiaCDsuHD
		end if
 
		if Fso.FolderExists ("D:\FILESET") then
		FSO.CopyFolder "D:\FILESET", CopiaCDsuHD
		end if
 
		if Fso.FolderExists ("D:\IMAGES") then
		FSO.CopyFolder "D:\IMAGES", CopiaCDsuHD
		end if
 
		if Fso.FolderExists ("D:\studies") then
		FSO.CopyFolder "D:\studies", CopiaCDsuHD
		end if
 
		if Fso.FolderExists ("D:\_STUDIES") then
		FSO.CopyFolder "D:\_STUDIES", CopiaCDsuHD
		end if
 
		if Fso.FolderExists ("D:\study000") then
		FSO.CopyFolder "D:\study000", CopiaCDsuHD
		end if
 
per ognuna delle condizioni, qualora venga trovata una delle 9 cartelle 
elencate (es. "D:\DICOM" o "D:\IMAGES" ecc. ecc.)
tale cartella viene copiata su hard disk tramite il comando CopiaCDsuHD
 
è possibile riscrivere il codice in modo più "sintetico" ovvero anzichè 
ripetere 9 blocchi di codice quasi uguali, averne uno solo che dice che 
qualora una qualunque di quelle 9 cartelle sia presente su CD va 
ricopiata su HD?
 
ho provato con
if Fso.FolderExists ("D:\IMAGES") or ("D:\DICOM") or ecc. ecc.
 
ma non funzionava
 
grazie Tommy

 ma non funzionava
 
 
Un semplice OR dovrebbe funzionare, ma devi ripetere l'istruzione completa ("Fso.FolderExists(xxx) or Fso.FolderExists(yyy) or ...."
 
In ogni caso, puoi renderla più compatta con un ciclo, ad esempio con:
 
dim fso, folders, i
 
Set fso = CreateObject("Scripting.FileSystemObject")
folders = Array("D:\000","D:\CDSURF","D:\DATA","D:\DICOM","D:\IMAGES","D:\studies","D:\_STUDIES","D:\study000")
 
for i = 0 to UBound(folders)
    If fso.FolderExists(folders(i)) Then CopiaCDsuHD
next


grazie, funziona!!!

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Come è Hardcore Visual Basic?

Come è il libro in oggetto??? Premetto che ho già la mitica guida alla API32
di Dan Appleman's.
--
Kickaha, Master of MY Universe
E-MAIL: 
IO.Ki...@mclink.it
--------------------------
Moltissima gente confonde le opinioni con i pensieri
         "Herbert V. Prochnow"
Una conclusione è il punto dove sei stanco di pensare
         "Arthur Wright"

Non é una guida tipo Appleman il libro non é tutto dedicato alle API.
Secondo me é ottimo, stranamente anche la traduzione in italiano non é
scandalosa come di solito.
(Ma l'avete letta la traduzione in italiano del libro sugli oggetti di
Appleman?)
Se cerchi qualcosa di avanzato e non ti frega niente di Intenet é il libro
avanzato.
Ciao
Corrado
Newsgroup: it.comp.lang.visual-basic
Titolo: domanda semplice

Quale procedura si può usare in VB per realizzare il master tempo(stretch)?
C'è una dll specifica che lo fà?
Ho scaricato un programma player che lo fa senza schede particolari.
Nel programma c'è anche la possibilità del mix automatico(mette il brano
sucessivo alle stesse battute di quello che suona.
Se qualche anima gentile, essendo io un pivello della programmazione, mi da
qualche dritta!!!!!
Ciao e grazie, Sergio(MN)

 qualche dritta!!!!!
Iniziare con un "Hello World", come fanno le persone normali no č?
va beh...

Scusa ma la fretta di avere info ma fatto dimenticare l'educazione.
Ciao,Sergio

 Scusa ma la fretta di avere info ma fatto dimenticare l'educazione.
Non so se rispondevi a me, comunque non è tanto una questione di educazione,
però se sei un pivello comprati un bel libro e inizia a prendere
dimestichezza, poi quando ti sembrerà ti potertela cavare da solo, e senza
libro, vedrai che sarà più semplice anche fare cose più difficili.
Nessuno inizia la scuola dall'università, anzi tutti partono con le
elementari

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] parametri esterni x sql

qual'e l'esatta sintassi per questa fottuta SQL?
SELECT *
FROM FILE
WHERE CAMPO = PARAMETROESTERNO
parametro esterno tra apici & virgolette ....'?
GRAZIE MILLE!

 wrote in message
8p5hua$3rr8$1...@stargate1.inet.it...


 che è


 ha scritto nel messaggio
news:8p5hua$3rr8$1...@stargate1.inet.it...

Dipende dal tipo di dati di Campo. Per il Jet engine, ad esempio:
Testo, fra apici (attento però agli apostrofi).
Numerico, senza niente.
Data fra cancelletti #.
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!

 ha scritto



dipende dal parametro esterno.
intanto:
1. metterei il nome di una tabella interna al db:
select * from tabella
2. se il param e' una stringa, lavora con apici e/o virgolette, a seconda
che tu debba cercare *pippo* o *d'alessandro*. es.:
    sSql = "select * from tabella where campo = " & chr(34) & param &
chr(34)
    db.execute sSql
o qc di simile.
ciao, a.

 wrote in message
8p5muo$9b8$2...@fe1.cs.interbusiness.it...



La mia risposta non cambia, tieni conto solo della mia parte per il
caso Stringhe:
"SELECT * FROM FILE WHERE CAMPO = '" & TextBox.Text & "'"

Newsgroup: it.comp.lang.visual-basic
Titolo: [ot] sniffer

qualcuno conosce un free o low-cost per monitorare il traffico internet dei
vari ip di una lan nt ?
basterebbe anche meno sofisticato di iris...
grazie, a.

 basterebbe anche meno sofisticato di iris...
Free:
Ethereal, 
http://www.ethereal.com/
oppure il gruppo Analyzer-Windump-WinCap.
http://netgroup-serv.polito.it/netgroup/tools.html
Non free, Spynet 3.12 è ben fatto e non troppo complicato
da usare.
OT nell'OT:
Non c'entra niente, non è uno sniffer, ma già che ci sei prova
Languard Scanner: 
http://www.gfi.com/languard/lanscan.htm
free per usi non commerciali.
Bye, G.

 traffico internet dei vari ip di una lan nt ?
Anche questo, non è quello che cerchi, ma è da provare:
http://www.ntop.it/
Ciao.
--
BSD is for UNIX-lovers -- linux is for Windows-haters.

vari ip di una lan nt ?
Qui dovrebbe esserci qualcosa:
http://www.sysinternals.com/ntw2k/utilities.shtml
Fabio
--------------------------------
Inviato via 
http://usenet.iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] ISAM non installabile

Utilizzo una DBCombo collegata ad un DataControl per caricare dati da un DB
Access 2000.
Quando lavoro all'interno di VB6 tutto ok.
Quando invece provo ad eseguire il programma compilato mi da l'errore
"Impossibile trovare ISAM installabile"
C'è modo di risolverlo ?

Ho avuto lo stesso problema con Vb6 SP4. Per risolverlo devi lasciare in
bianco la proprietą connect del datacontrol. Vb per default ci scrive Access
Saluti Roberto C.

Il motivo documentato non lo so. Posso pero pensare che essendo Access 2000
non supportato in maniera nativa , prima del Sp4,scrivendo access nella
proprieta connect 'pensa' di avere a che fare con access 97. Perchè poi lo
faccia solo sull'eseguibile non lo so (Forse l'eseguibile usa qualche dll
che nell'interpretato viene sostiuita dal vb)
Saluti Roberto C

Newsgroup: it.comp.lang.visual-basic
Titolo: OCX per grafici

Qualcuno conosce qualche OCX per gestire i grafici che mi permetta di fare
zoom o qualcosa di pių rispetto al controllo standard.
Grazie per l'interessamento.
Saluti
    Fabrizio

Qualcuno conosce un OCX per lagestione dei grafici più potente di
quello fornito con VB?
Grazie
Fabry

Newsgroup: it.comp.lang.visual-basic
Titolo: Quale libro mi consigliate per iniziare ?

--
Albe (
als...@libero.it
)

possibilmente con un ambiente di sviluppo incluso
--
Albe (
als...@libero.it
)

Io pensavo:
Learn Microsoft Visual Basic 6.0 Now 
di  Michael Halvorson
http://www.microsoft.com/italy/mspress/books/book1346.htm
Il libro c'e' in ing o it. Com'e' la traduzione in italiano ?
L'ambiente di sviluppo allegato al cd che limiti ha ?
Cosa vuol dire "working model" ?
Conoscenze: VBA, ASP, Pascal, C
--
Albe (
als...@libero.it
)

 wrote in message
orl5os424f6unhc1k...@4ax.com...


Grazie per la risposta!
Per la lingua cosa mi consigli ? Inglese(non dovrei avere grossi
problemi) o Italiano ?
--
Albe (
als...@libero.it
)

 wrote in message
fkn7os034gjq3tn98...@4ax.com...


pensavo inglese, dicono tutti che i libri non tradotti sono migliori
--
Albe (
als...@libero.it
)
Newsgroup: it.comp.lang.visual-basic
Titolo: urgente: Aiuto per testare applicazione

 Ciao a tutti,
chi ha voglia di darmi una mano a testare un programma sotto windows xp?
Io l'ho provato su 6 sistemi XP diversi senza errori, ma il mio cliente dice
che su tutti i suoi sistemi il programma si pianta con un errore in
oleaut32.dll.
Se qualcuno č cosě umano da mettere a repentaglio il proprio PC con windows
XP professional e aiutarmi a testarlo, gli regalo una licenza d'uso e anche
i prossimi aggiornamenti. Si tratta di un software antivirus-antispam per
email.
Agli interessati che mi mandano il loro indirizzo email mando URL e password
per scaricare il setup.
Grazie a tutti.
-- 
elimina unsampdoriano per rispondere via email

oleaut32.dll.
Quale errore?
Per quel cliente potresti fare una versione che scriva su un file di
log le funzioni che chiama in prossimita' dell'errore. Nella maggior
parte dei casi cio' e' sufficiente per capire cosa va storto.
-- 
ciao, un hal di passaggio

Newsgroup: it.comp.lang.visual-basic
Titolo: Cerco licenza VB 6.0 pro

Come da oggetto cerco qualcuno disposto a cedere una licenza Visual Basic
6.0 Professional o Enterprise .
Gianni Dragone

Chi fosse interessato può contattarmi in privato
all'indirizzo  
pha...@tin.it
grazie
Gianni Dragone

Newsgroup: it.comp.lang.visual-basic
Titolo: [ASP] Visualizzare caratteri particolari

Salve a tutti,
	ho un problema con un carattere che non è visualizzato in html e al suo 
posto compare ahimè un punto interrogativo. Il carattere in questione 
èil "µ". Come risolvere?

Ho provato a fare asc("µ") che è uguale a 181. Ma poi se faccio... 
chr("181") mi riappare il punto interrogativo.

"Peca's" <a...@efg.hi>

non e' esattamente vb
µ = &micro;
http://tinyurl.com/2ntlrt
ciao, a.

  > µ = &micro;
GRAZIE!
Newsgroup: it.comp.lang.visual-basic
Titolo: Mysql e Vb.net

Salve sto provando a far funzionare mysql con 
vb.net
 (provider
MysqlDriverCS) ma non riesco. Qualcuno puo postarmi un esempio di
progetto da poter studiare.
Grazie 
Ciao 
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 progetto da poter studiare.
<acido>
E se invece si iniziasse anche a leggere qualcosa tipo
http://www.mauriziopistone.it/discussioni/grammatica_1_a.html
http://www.mauriziopistone.it/discussioni/grammatica_2_c.html
?
Non è un crimine superare gli esami di quinta elementare.
</acido> 

Divertente battuta ma non risponde alla mia richiesta 
o la tua era solo pubblicità al sito???


Ormai MySql si integra decisamente bene con .NET (meglio di quanto facesse prima, e francamente meglio di quanto mi aspettassi).
Vai sul sito di mysql (
www.mysql.com
), sezione developer, e scarica i provider per .net, che sono gratuiti e rendono obsoleti molti progetti "free", a partire da ByteFx, che ho visto in giro.
Includono una guida stile MSDN che include gli esempi.

 MysqlDriverCS) ma non riesco.
Puoi definire meglio cosa intendi per "non riesco"?
ciao
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca

Non riesco vuol dire che nonostante abbia seguito alla lettera le
istruzioni riportate sul mio testo e quelle riportare dal fornitore del
provider
mi restituisce "errore durante la generazione".


 mi restituisce "errore durante la generazione".
http://support.microsoft.com/kb/555375
-- 
ciao, hal

 
http://support.microsoft.com/kb/555375
Si, direi che questo articolo potrebbe essere utile ;)


 Si, direi che questo articolo potrebbe essere utile ;)
come il cacio sui maccheroni: la morte sua :-)
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: Risposta al Commento Conclusivo

Una richiesta è una richiesta.
Una risposta è una risposta.
Se si vuole rispondere ad una richiesta, si risponda.
Se non si vuole rispondere ad una richiesta, non si risponda.
Porco cane.

 Porco cane.
Va vista come un'offesa per i cani ? >:-|
Bella, Trudy ! AZZANNATE ! >:-[
java, stai tranquilla, ci pensano loro.
Bye, G.
P.S.: dimenticavo... *PLONK*.

 P.S.: dimenticavo... *PLONK*.
E' proprio vero... quando uno (non mi riferisco a Jarni) non vuole capire
non c'è niente da fare. Continuerà a leggere quello che gli pare tra le
righe dei post.
E con questo oggi inizia il mio sciopero delle risposte agli "anarchici".
Da ora solo eventuali "RTFM", "F1" e "[MANIFESTO]".
Ciao


Vai Zanna... con te siamo a quota 5...
Temo perň che cosě, alla lunga, dovremo abbandonare il Ng e lasciarlo tutto
a loro...
che si rispondano a vicenda...   :->>>
ciao
ugo

 righe dei post.
brain.ignore()
--
Fibia "Ignore filter turned on" FBI

 mio nonno" :))
Invecie la professoressa di matematica per spiegare la proprietà transitiva
diceva:
"Se A = B e B = C allora C = A
Se la forchetta ha tre denti e mia nonna ha tre denti, allora mia nonna è
una forchetta."
Ciao


Pap ma tu ci sei in ML?
Che ne pensi della proposta dell' [SMR]?
Tanto nel 90% dei casi le risposte sarebbero sempre quelle, tanto vale
riassumerle in una mail enerica, tipo quella del buon Allanon e utilizzare
il tag di risposta standard...
Ciaotutti,
*

 Pap ma tu ci sei in ML?
Gaetano D'Antonio :-)
Bye, G.

 Gaetano D'Antonio :-)
lol.. e siamo in 2 che non ti avevamo riconosciuto :)
--
Fibia "Sakamoto" FBI

"Paperino" <non...@lo.dico> wrote in message
news:9nlhkp$2bq2$1...@stargate1.inet.it...

No e' che proprio non mi ricordo chi sono i partecipanti :P
Non ho qui le email, sono tutte a casa :)
Ciaotutti,
*

Newsgroup: it.comp.lang.visual-basic
Titolo: DBF come database

Ho un controllo data collegato ad un database dbf
Se imposto il valore
databasename (c:\database) sul controllo funziona,
se imposto la proprietą databasename="c:\database" non funziona
Che devo fare?
P.s.
Non posso cambiare il tipo di base dati
(avrei usato volentieri un mdb)
                                                            danilo


Certo che sei un po' avaro di spiegazioni ehh ????
Usi ADO o DAO ?
Se ci posti un po' di codice, non credi che andiamo meglio ?
Ci dici che errore ti dą ??
Comunque, a grandi linee, dopo aver cambiato una proprietą
del controllo bisogna usare il metodo Refresh.
Ciao
Sir JO

Non ho postato il codice perchè erano due righe comunque se volete:
Private Sub cmdLogin_Click()
    Dim strPassword As String
    Dim rstPassword As Recordset
    datapassword.DatabaseName = "c:\database"
    strPassword = "Select PASSWORD from PWDUSER where USER='" &
UCase(txtuser.Text) & "'"
    Set rstPassword = datapassword.Database.OpenRecordset(strPassword,
dbOpenDynaset)
e qui si ferma
in datapassword ho lasciato databasename vuoto connection DbaseIV
in c:\database c'è il file PWDUSER.DBF



 ha scritto nel messaggio
news:9kb6g4$s34$1...@fe2.cs.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: FlexGrid come Excel...mi aiutate?

Sto cercando di creare un piccolo foglio elettronico utilizzando il
controllo MSFlexGrid.
Nei book online di VB c'e' un esempio che pero' non funziona a dovere.
Mi spiego meglio: il textbox che simula l'entry viene spostato sulla
casella corrente della MSFlexGrid con l'istruzione Text.Move ma esso appare
spostato superiormente e non coincide affatto con la casella.
Qualcuno mi sa dare una mano?
Valentino

Valentino
La sintassi di OBJECT.MOVE č
object.Move left, top, width, height
dove width ed height sono le dimensioni di larghezza ed altezza della cella
che hai selezionato.
Top corrisponde all'altezza relativa al form e left alla distanza relativa
alla parte sinistra.
Questa ultimo valore (left) potrebbe darti qualche problema, ma basta
controllare il risultato per vedere se č ban allineato.
In genere devo moltiplicare il valore della cella per 1,06
Ma puoi usare questo esempio:
Private Sub MSFlexGrid1_EnterCell()
        Text1.Top = MSFlexGrid1.CellTop + MSFlexGrid1.Top
        Text1.Left = MSFlexGrid1.CellLeft
        Text1.Height = MSFlexGrid1.CellHeight
        Text1.Width = MSFlexGrid1.CellWidth
        Text1.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel,
MSFlexGrid1.ColSel)
        Text1.Refresh
End Sub
se hia problemi di allineamento a sinistra prova, alla seconda linea:
        Text1.Left = MSFlexGrid1.CellLeft * 1.06
se hai ancora problemi, aumenta pian piano il coefficente.
Spero di esserti stato utile.
Ald...@usa.net
Newsgroup: it.comp.lang.visual-basic
Titolo: Scambiare gli elementi di una collection

C'è un sistema per scambiare di posto gli oggetti che costituiscono una
collection?
Ciao

 collection?
No, ma ti invito a sostituire le collection con la adXCollection
(adXCollct.zip) che trovi sul sito comune (
http://www.it-lang-vb.net
)
Ciao
--
y = f(
http://neodatatype.interfree.it/index.html
)

Newsgroup: it.comp.lang.visual-basic
Titolo: Icona MDIForm

Ho realizzato un'applicazione in VB6 completa di MDIForm.
Nella proprietà "Icon" di MDIForm ho inserito il percorso dell'icona 
desiderata.
Nell'ambiente di sviluppo è ok, nel senso che visualizzo l'icona, mentre in 
fase di debug l'icona viene sostituito con la classica icona di Windows.
Avete qualche suggerimento per risolvere questo problema?
Grazie anticipatamente. 

 ha scritto

project > properties
controlla che in general lo startup object sia l'mdi, e in make l'icona sia 
la sua.
ciao, a.


Ti ringrazio per la risposta
Sembrerebbe tutto a posto....
Hai qualche altro consiglio?
P.S. La stessa icona nelle form tradizionali funziona correttamente. 

 ha scritto

mi stupisce. per postare ho fatto un vbp apposta e l'ha vista subito.
prova a cambiargliela, fermi restando i punti qui sopra. a volte si impalla.
seno' non saprei.
ciao, a.

 icona di Windows.
e' una VERA icona ? a me faceva cosi' con una bmp rinominata .ico.
Al max prova a cambiargli l'icona con una VERA icona e verificare
se lo fa' anche con quella. 

> e' una VERA icona ? a me faceva cosi' con una bmp rinominata .ico.
Si è un'icona vera!
ho provato anche a sostituirla con un'altra ma niente.
Se faccio un progetto nuovo funziona!
Bah... proverò a rifare la MDIForm anche se un po' mi secca!
Grazie. 

 ha scritto nel messaggio
news:g90fvv$ht7$
1...@aioe.org
zac
dentro il tuo progetto
"tira dentro" un file risorse
importa una icona e dagli il nome che vuoi BASTA CHE SIA IL PRIMO in ordine 
alfabetico
salva!.....compila!
....quella sarà l'icona della tua applicazione!
Fottendosene di altre icone impostate!
-----------------------------
Mio Blog
http://www.martek.it/dblog/default.asp
Mia città
http://wodka40hall.myminicity.com/

 Fottendosene di altre icone impostate!
Che tra l'altro dimagrisce l'.exe di qualche bit; io non lo faccio mai, ma 
non sarebbe male usare di piu il res :(
-- 
Greg 

 ....quella sarà l'icona della tua applicazione!
Scusami ma come probabilmente si sarà capito, non sono un'esportone.
Cos'è un file risorsa?
Grazie.
Newsgroup: it.comp.lang.visual-basic
Titolo: Evento MouseUp ed elemento selezionato

Salve a tutti
Ho una ListBox alla quale lego l'evento MouseUp, durante il quale, se si
clicca col destro, appare un menů che dipende dall'elemento selezionato.
Il problema č che cosě facendo se prima non clicco con il pulsante sinistro,
l'elemento selezionato della lista rimane invariato.
Ad esempio ho il quarto elemento evidenziato; se faccio clic destro sul
decimo, mi appare il menů soprŕ il decimo, ma l'elemento selezionato č
ancora il quarto e dunque č sballato il menů!!!!
Sul controllo ListView ho visto che ciň avviene in MousePress, ma non in
MouseUp.....ma nella ListBox non č cosě!!!
Come lo risolvo??? Grazie a tutti!

 ha scritto nel messaggio
news:F5BGb.6078$VW.2...@news3.tin.it...

Ecco come fare:
Si suppone che il ListBox si chiami List1
Private Sub List1_MouseUp(Button As Integer, Shift As Integer, _
    X As Single, Y As Single)
Dim dy As Integer
  dy = Int(Y / TextHeight("A"))
  'Se il puntatore del mouse non č su un elemento della lista, allora esce
  If dy + List1.TopIndex > List1.ListCount - 1 Then Exit Sub
  'Seleziona l'elemento
  List1.ListIndex = dy + List1.TopIndex
End Sub
Ciao!
Esteban

   dy = Int(Y / TextHeight("A"))
...
Ehm... e se il font del listbox e del form sono diversi... ?
Provare per credere e vedere le note per Text<Height Width>

Newsgroup: it.comp.lang.visual-basic
Titolo: Parametro in fase di installazione

Ho la necessità di installare un programmino in diverse postazioni, al
momento dell'installazione deve essere chiesto un valore che identifica la
postazione.
(non posso gestire io una tabella contenente i valori in quanto le
postazioni possono aumentare continuamente)
Come posso fare ?
Grazie Pigi





Ciao, Pigi


 


prova a utilizzare questa funzione che ti ritorna 
il ComputerName (in WinNT / Win2000) 


 


Nel programma di installazione  inserisci 
questa funzione : 


 


Private Function ComputerName() As 
String
Dim EnvString, Indx, Msg
Indx = 1
ComputerName = 
""
Do
   EnvString = Environ(Indx)
   If 
Left(EnvString, 13) = "COMPUTERNAME=" Then
      
MsgBox Environ(Indx)
      Exit 
Function
   Else
      Indx = Indx + 
1
   End If
Loop Until EnvString = ""


 


End Function


e la richiami con 


 


sCompName = 
ComputerName


 




 


Ciao, Vito


 
 



 ha scritto nel messaggio
news:8s6ark$jdg$1...@fe2.cs.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Come si cambia lo sfondo di Windows?

Grazie

Il codice seguente ti visualizza la finestra delle proprieta' dello
schermo.
Private Declare Sub ControlPanel Lib "shell32.dll" Alias "Control_RunDLL"
(ByVal hWnd As Long, ByVal hInstance As Long, ByVal cmdLine As String, ByVal
cmdShow As Long)
Private Sub Form_Load()
     Dim stCmdLine As String
    stCmdLine = "desk.cpl"
    ControlPanel Me.hWnd, 0, stCmdLine, 1
End Sub
Ciao

 wrote in message
fJzW4.33490$EY1.3...@news.infostrada.it...



Cerca Wallpaper sul sito comune:
http://www.murialdo.it:8000/it_lang_vb/
Ciao

 Grazie
Prego  :)
Ciao
Faber

Zanna wrote:

A me sotto win2000 non funziona.Sai come modificarlo?
Ciao

...

Sicuro di non avere l'active desktop (non ho ancora provato win2000, non so
neanche come è fatto)
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto distribuzione applicazione.

Ho già postato una richiesta l'altro giorno, ma i suggerimenti ricevuti non
hanno dato buon esito. Mi ripeto nella speranza che qualcuno possa aiutarmi
a risolvere questo problema.
Uso VB5 e Jet 3.5 su PIII e WinME per scrivere il programma.
L'applicazione prevede l'accesso a DB scritto con ACCESS sotto OFFICE 2000 e
convertito alla versione precedente per la compatibilità con VB5.
Tutto funziona egregiamente sulla macchina dove lo realizzo, ma il programma
non ne vuole proprio sapre sulle altre dotate di W95.
Al primo avvio mi compare l'errore "Chiamata alla VBAJET.dll o VBAJET32.dll
non riuscita lla chiamata" ed il programma temina senza alcun altro
messaggio.
Per la distribuzione ho utilizzato il wizard che mi ha incluso tutti i
files, compresi quelli relativi al Jet.
Cosa posso fare ancora per far capire a queste due dll che quando qualcune
le chiama devono rispondere ?
Datemi una mano, vi prego, sono veramente .. all'osso
Grazie.

 ha scritto nel messaggio
news:9BN66.211090$DG3.5...@news2.giganews.com...


messaggio.
E' probabile che sia un'incompatibilita' della daoxxx.dll.
A me e' successo con la dao350.dll, ho risolto cercando in vari pc la
versione precedente (vers. 3.50.3602.0) e sostituendola.
Se fai prove di questo tipo salvati prima la cartella dao.
Salve
                Dbg

 lo trovi nel tuo hard disk (non mi chiedere di preciso dove, cercalo)
... nel mio HD questo file non esiste. Proverň a cercarlo in rete.
Potresti dirmi a cosa serve, per favore.
Ciao

... non mi offendo affatto, giuseppe, ma dopo alcune verifiche ho scoperto
che la versione dll da te suggerita è la stessa che ho usato nel mio
progetto.
Quindi ti ringrazio per il suggerimento, ma purtroppo non sono riuscito a
trovare altre versioni.
Ciao

Non conta la versione della dll nel tuo progetto, devi vericare la dll che
e' presente nel PC dove installi il programma che ti da' il problema.
Ricordati che se nel pc che ti da' il problema la dll e' piu' 'nuova', il
tuo setup non installa la dll 'vecchia'.
Salve
                Dbg
Dragon ha scritto nel messaggio ...

Newsgroup: it.comp.lang.visual-basic
Titolo: problema con textbox...

Queste sottostati sono tre sub del mio programma di chat, ma succede una 
cosa strana che non riesco a risolvere...clicco sul pulsante invia 
(chiamando quindi la prima sub) tutto ok, ma se faccio invio nella 
casella di testo (chiamo la 3° sub) alla fine, dopo il corretto 
caricamento della rtb mi ritrovo txtmsg vuota, ma con il cursore in 
seconda linea...Come mai?
Private Sub cmdinvia_Click()
     If Len(txtmsg.Text) > 0 Then
         Call AggiungiRigaRTF(txtmsg.Text, vbBlue)
         txtmsg.Text = ""
         txtmsg.SetFocus
     End If
End Sub
Sub AggiungiRigaRTF(StringaDaAggiungere As String, Colore As Long)
     rtb.SelStart = Len(rtb.Text)
     rtb.SelLength = 0
     rtb.SelColor = Colore
     rtb.SelText = StringaDaAggiungere & vbCrLf
End Sub
Private Sub txtmsg_KeyPress(KeyAscii As Integer)
     If KeyAscii = 13 Then
         cmdinvia_Click
     End If
End Sub
Grazie Mille
-- 
Se vuoi un newgroup su PAOLO VILLAGGIO vai su
it.news.votazioni e vota!
Per conttarmi in pvt togliere NOSPAM o in alternativa con
MSN Messenger: rocco7man chiocciola 
hotmail.it
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Frase Mitiche:
"Colpo partita: triplo filotto reale ritornato con pallino."
(Rag. Ugo Fantozzi in Fantozzi)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Aggiungo anche un:
;-) WLF ;-) Forza Milan e Manchester United!
CIAO

 seconda linea...Come mai?
Correggi con:
 Private Sub txtmsg_KeyPress(KeyAscii As Integer)
     If KeyAscii = 13 Then
         KeyAscii=0
         cmdinvia_Click
     End If
 End Sub
Ciao!
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca

Ciao!
Giusto per essere scassapalle fino in fondo, si potrebbe sostituire la
chiamata alla funzione (che capiamoci, funziona perfettamente) con un
SendMessage. Questo fa si che, nella migliore aderenza possibile alla
programmazione event driven, si rende il controllo al sistema il più
presto possibile.
OK, mental pipes finite, me ne torno al lavoro... ;-)
--
Ciao!
Luca Menegotto
Newsgroup: it.comp.lang.visual-basic
Titolo: errore di sintassi in una stringa sql

Ciao rAgazzi qualcuno saprebbe indicarmi il modo corretto di scrivere la
segente dichiarazione di stringa SQL ???
il Campo FL_PROD e' di tipo carattere e se metto le doppie virgolette va in
casino con la sintassi sql come posso fare ???
Dim strQuery As String
    strQuery = "SELECT PROG,FL_PROD,DESCRIZIONE AS PRODUTTORE,SERIE,MOD2 AS
MODELLO,LISTINO FROM DETTAGLIO WHERE prog = " & _
    LBL_PROG_DETT.Text AND FL_PROD='1'
Ciao a Tutti Grazie !!!!!
----------------------------------------------------------------------------
------------
Stefano Grassi
System  Admin Sabiana S.p.A
Sabiana S.p.A
Via Piave , 53 20011
Corbetta MI
Tel. 02972031
Web Site: 
www.Sabiana.it
 
www.Sabiana.com
----------------------------------------------------------------------------
--------------------------------------------------------
INFORMAZIONI STRETTAMENTE CONFIDENZIALI
L'invio di questa e-mail č destinato solo ad uso personale o a enti sopra
nominati e potrebbe contenere informazioni riservate, coperte da segreto
professionale e non soggette a divulgazione ai sensi di legge. Se non ne
siete i corretti destinatari, con la presente siete informati che non Vi č
assolutamente permessa alcuna divulgazione, copia, distribuzione, o altro
uso delle informazioni in essa contenute. Se per errore avete ricevuto
questo messaggio, Vi chiedo cortesemente di informarmi immediatamente al
mio indirizzo di posta elettronica. Grazie.

     LBL_PROG_DETT.Text AND FL_PROD='1'
     strQuery = "SELECT PROG,FL_PROD,DESCRIZIONE AS PRODUTTORE,SERIE,MOD2 AS
 MODELLO,LISTINO FROM DETTAGLIO WHERE prog =  '"& _
     LBL_PROG_DETT.Text & "' AND FL_PROD='1'"
(dove c'è '" si intende singola virgoletta+doppie virgolette)
Se invece prog è numerico devi togliere le 2 singole virgolette (dopo prog=
e prima di AND FL_PROD)

 va in casino con la sintassi sql come posso fare ???
strQuery = "SELECT PROG,FL_PROD,DESCRIZIONE AS PRODUTTORE,SERIE,MOD2 AS
MODELLO,LISTINO FROM DETTAGLIO WHERE prog ='" & LBL_PROG_DETT.Text  & "' AND
FL_PROD='1'"
Nota (tralasciando l'apice doppio) l'apice singolo prima e dopo
LBL_PROG_DETT.Text

 Ciao a Tutti Grazie !!!!!
strQuery = "SELECT PROG,FL_PROD,DESCRIZIONE AS PRODUTTORE,SERIE,MOD2 AS
MODELLO,LISTINO FROM DETTAGLIO WHERE prog = " & _
LBL_PROG_DETT.Text  & "AND FL_PROD='1' "
Per usare i doppi apici dentro le stringhe, basta che lo raddoppi es. str="
mista stringa con apici:"" fine"
Ciao
Andrea

Newsgroup: it.comp.lang.visual-basic
Titolo: Compattazione file con ADO

Ciao a tutti!
Sapete come compattare un file MDB con Ado?
Grazie mille ancora, ciao Lino

Sapete come compattare un file MDB con Ado?

Newsgroup: it.comp.lang.visual-basic
Titolo: Numero di righe in un file

Salve a tutto il NG!!!
Qualcuno è capace di ricavare in qualche modo
il numero di righe di un file di testo???
(se è troppo complicato lasciate stare, mi
arrangerò in un altro modo)
GRAZIE 1000000000!
--------------------------------------------
             ASSA
http://web.tiscalinet.it/Assatarram
--------------------------------------------

 GRAZIE 1000000000!
se la riga è a larghezza fissa
puoi dividere la dimensione del file ( funzione lof())
per la larghezza della linea
altrimenti le devi contare....
Ciao
Enrico

GRAZIE 1000000000!
Di un file di testo?
E complicatissimo!
Guarda qui sotto:
Dim Rows as long
Dim hFile as Integer
Dim s as string
hFile = FreeFile()
Open "FileDiTesto.txt" For Input As hfile
    Do While Not Eof(hFile)
        Rows = Rows + 1
        Line Input hFile, s
    Loop
Close hFile
Ciao

 (se è troppo complicato lasciate stare, mi arrangerò in un altro modo)
Option Explicit
Sub Main()
  Dim intNFile        As Integer
  Dim strFullFileName As String
  Dim lngRows         As Long
  strFullFileName = "c:\test.txt"
  intNFile = FreeFile(0)
  Open strFullFileName For Input As intNFile
  lngRows _
    = 1 _
    + UBound(Split(Input$(LOF(intNFile), intNFile), vbCrLf))
  Close
  Debug.Print "Righe: "; Format$(lngRows, "#,##0")
End Sub
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

Public Sub Leggi_File()
    dim count as integer
    Open path & nome_file.txt For Input As #23
    Do While Not EOF(23)
           count = count+1
           Line Input #23, textline
    Loop
    Close #23
End Sub

 GRAZIE 1000000000!
Vedo 2 strade possibili:
1)
Apri il file di testo e lo carichi TUTTO in una variabile stringa.
Cerchi tutte le occorrenze del carattere chr$(10) nella variabile stringa e
le conti.
Per far ciò, usa l'istruziuone instr() (vedi help)
2) Apri il file, ed in un loop fai sempre Line Input (e le conti) fino a che
non raggiungi la fine del file ( EOF() )
Ciao
Ettore Maronese
il MES
http://www.maronese.com/mes
Newsgroup: it.comp.lang.visual-basic
Titolo: Chi mi aiuta 2

Adesso c'è tutto :-))
Ho qusi finito il mio programma, ma devo risolvere i tre problemi
principali, da solo proprio non ci riesco. Nel file ci sono 3 piccoli form
con le spiegazioni, per uno capace sono sicuro che bastano 5 secondi a
risolverli tutti.  Dai su fate quest'opera buona:-))
http://www.scafrique.com/Problemi.zip
se c'è qualche anima gentile disponibile questo è il mio indirizzo
om...@kaospc.it
Grazie

 
Ue Omar ma ci prendi per le mele????
Anzi attacco  a parlare toscano va:
O Omarrè  oc'chè ci pigli pè le mele?
Glìò scaricào ì tù faìlle....maremma bona tu ti ci sei proprio impegnào 
di brutto a scriverre tutto que codice!
Ti ci sarà venùo ù'n mar di testa!!!
Maremma impestàà...accidenta a te e a tutto i cepu!!!
Parlando seriamente....non vedo cosa non ti torna...non hai scritto nulla!
Avresti fatto meglio a dire....ragazzi come faccio a aprire un file 
scelto nella filelistbox???
Ti avrebbero dato delle dritte...
dritte che non avresti capito perchè dal tuo codice (che NON hai 
scritto) capisco che non hai mai studiato programmazione(e fin qui mal 
di nulla nessuno nasce imparato....)...ma che NEANCHE hai voglia di 
imparare!
Se tu avessi voglia di imparare:
Quesito uno--MOTORE--
Basta valorizzare la proprietà text della textbox con una evidentissima 
proprietà di file1....la proprietà finisce per xxxxname....a te il resto!
Quesito 2 RichText
Basta valorizzare la proprietà filename di RTF con la risultante di 
Dir1...path + "\" + nome file di file1....
Casomai far precedere il tutto da una serie di controlli...una select 
case o quello che vuoi...sull'estensione del file
se è txt o quello che vuoi....prosegue altrimenti non mostra nulla!
Quesito 3 Salva impostazioni
Le parole magiche sono
SaveSetting per salvare qualcosa
GetSetting per recuperare questo qualcosa!
Buono studio!

 Grazie e sei pure stato simpatico :-))) Ho risolto tutti i quesiti 
purtroppo  mi ero messo intesta di fare una cosa che non era al mio livello, 
ma rompendo a destra e a sinistra adesso il prog è quasi finito.   Adesso 
tornero ai miei semplici form fammi vedere la foto togli la foto vuota 
cartella  sposta cartella ecc ecc  e magari tra qualche mese tornerò qui più 
preparato.

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Icona per applicativo senza form

Salve a tutti.
Sto uscendo pazzo.
C'è un modo per associare un'icona ad una applicazione composta solo da Sub
Main ??
Grazie
Stef

 applicazione composta solo da Sub Main ??
Inserisci un file di risorse a questo aggiungi l'icona che vuoi
assegnare all'applicazione.
Windows assegna all'EXE la prima icona (in ordine alfanumerico) che
trova nel file di risorse. Il problema e' che il VB assegna all'icona di
default il numero 1.
La soluzione (semplicissima) e' di inserire l'icona che si vuole
assegnare all'EXE ed darle un ID non numerico, bensi' testuale (AAA).
Windows scegliera' questa invece che quella di default.
Ciao.

Grazie 1000.
Soluzione validissima.
Ciao
Stef
"H.P.L." <u...@vaila.ble> ha scritto nel messaggio
news:6uqu6.1098$dJ6....@news.infostrada.it...


FAQed...
ciaotutti,
*
H.P.L. <u...@vaila.ble> wrote in message
news:6uqu6.1098$dJ6....@news.infostrada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Ulteriore ARDUA sfida per gli amici programmatori di VB !!!

E rieccomi un'altra volta !!!!!!!
Innanzitutto ringrazio tutti quelli che in passato mi hanno dato una grande
mano !!!
Ora, come vedete, ho ancora bisogno d'aiuto e vi dico subito qual'è il
problema.
Devo avviare da VB6 una macro di Exel che si trova già dentro ad un foglio
di lavoro .xls;
se non è possibile fare ciò, allora passo al piano B: è possibile ricreare
la stessa macro in un
codice sorgente di VB ?
Chiaramente, anche le soluzioni alternative sono ben accette !!!
Ho speranze ? Cmq grazie e attendo notizie...
--
Ciao,2FB.


Fai tradurre la macro in codice VBA (mi pare ci sia un add-in apposito in
Excel), ma poi dovrai quasi sicuramente modificarlo molto per usarlo con VB.
Meglio la prima soluzione.

 Chiaramente, anche le soluzioni alternative sono ben
accette!!!
Alternative a cosa?
--
Ciao.
Maurizio

 Maurizio
Ciao,2FB ŠŽ(foolbrain)ŽŠ.

 Cmq grazie tante !!! Anche cosģ ho gią avuto un buono spunto
!!!
--
Ciao.
Maurizio

Newsgroup: it.comp.lang.visual-basic
Titolo: esercizi per newbie





gradirei, se per voi naturalmente non è troppo 
disturbo, che qualcuno mi invii degli esercizi da fare, applicazioni semplici 
per uno che ha cominciato da poco a studiare il vb. Sapete la mia è passione 
pura, però ho bisogno di essere stimolato, sono carente in fantasia............. 
e in tempo, ho una famiglia da mandare avanti.


 


GRAZIE



 ha scritto nel messaggio
news:000801c0d1c0$4ef0bde0$767afea9@j6r8z4...

GRAZIE
Eccoti un bel esercizio: Non mandare i messaggi in HTML....
Ti basta?
Ciao
--
Timothy Redaelli
timothy....@email.it