mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: 50 linee di testo

Salve a tutti.
Come posso mandare in stampa le prime 50 righe di un richtextformat e
successivamente le altre? Grazie per le risposte
Saluti Amedeo.


wrote:

    txtPage.SelStart = <<inizio prima riga>>
    txtPage.SelLength = <<lunghezza testo in byte>>
    txtPage.SelPrint Printer.hDC
Louis.
-----------------------------
E' difficile fare previsioni,
soprattutto sul futuro...
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB.NET] Problema creazione File di testo usando StreamWriter

Salve a tutti...
ho uno strano problema... voglio creare un file di testo, usando
StreamWriter, dall'unione di vari campi presenti su una form, ma nn
sempre tutte le righe vengono scritte.... mentre se io al posto di
usare la usando StreamWriter uso la console.writeline della stessa
variabile ke mi contiene tutte le unioni.. a video la vedo....
dov'è l'inghippo?????

Puoi postare il codice, per favore?
Ciao
Zephiross


Forse che non invochi il metodo Flush alla fine?
-- 
Corrado Cavalli [Microsoft .NET MVP-MCP]
UGIdotNET - 
http://www.ugidotnet.org
Weblog: 
http://blogs.ugidotnet.org/corrado

Eccolo :)
Dim sr As StreamReader = New
StreamReader("MET_HR_IMPORT_25_10_041.txt",Encoding.Default)
Dim PortaleFile As StreamWriter = New StreamWriter("Portale.txt")
Do
  line = sr.ReadLine()
  LineOutput = 'concatenazioni varie della "line" per crearmi una
nuova stringa secondo il formato che mi serve..
  console.writeline (LineOutput)    ' A video vedo tutto
  PortaleFile.WriteLine(LineOutput) ' Sul file di testo creato... ne
vedo la metà rispetto a qllo che vedo a video...
Loop Until line Is Nothing
PortaleFile.Close()
sr.Close()  
 
Aiutoooooo

 ha scritto nel messaggio
news:8d506df0.04111...@posting.google.com...

Non mi convince la condizione del loop.
Se nel file c'è una riga vuota esce dal ciclo....
Usa come condizione:
Do until sr.Peek  = -1
    'il resto va bene...
Loop
Un consiglio, prima di entrare nel loop, fai un bel :
sr.BaseStream.Seek(0,IO.SeekOrigin.Begin)
così sei sicuro al 100% di posizionarti all'inizio del file.
Ciao
Zephiross

Scusa, mi correggo da sola (il venerdì fa brutti scherzi :-)  e a volte mi
fa scrivere assurdità, ahimé...)....
Non è la lettura del file che non va bene, ma la scrittura.
Invoca il metodo Flush dello StreamWriter prima di invocare il Close.
Ciao
Zephiross

...

Newsgroup: it.comp.lang.visual-basic
Titolo: VB e riempimento foglio Excell

Ciao dove posso trovare info o del codice che spieghi come poter riempire le 
righe di un file di excell, a partire da una maschera che ha come campi le 
colonne del file di excell?
mha spero di essermi spiegato ;)
cioč in sostanza vorrei poter inserire dei dati da un apposito form ed 
andare a riempire(cioč memorizzare) volta per volta le righe dei vari fogli 
di excell , che potrebbero indicare i vari mesi dell'anno.......
ciao e grazie in anticipo 

 di excell , che potrebbero indicare i vari mesi dell'anno.......
Ti ho mandato via e-mailun piccolo esempio con una macro di excel
ovviamente devi attivare la macro all'apertura del folgio ecco comunque il
codice
Modulo1:
Public str1 As String
Public str2 As String
Public i As Integer
Public Sub Prova()
For i = 1 To 3
    UserForm1.Show
    Worksheets(1).Cells(i, 1) = str1
    Worksheets(1).Cells(i, 2) = str2
Next i
End Sub
Userform1:
Private Sub CommandButton1_Click()
str1 = Me.TextBox1
str2 = Me.TextBox2
Me.Hide
Unload Me
End Sub
Private Sub CommandButton2_Click()
Me.Hide
Unload Me
End Sub
Private Sub UserForm_Activate()
Me.Label1 = "Inserire dato che andrà nella cella [" & i & ",1] "
Me.Label2 = "Inserire dato che andrà nella cella [" & i & ",2] "
End Sub

Newsgroup: it.comp.lang.visual-basic
Titolo: For Next falloso

Ho un loop for next
    .............
     for kk = 1 to  24
           ...........
    next  kk
          ...........
         .........
 end sub
che esegue soltanto il primo ciclo, dopo di che esce non soltanto
dal loop ma dalla procedura, ignorando sia i blocchi interni al loop,
sia quelli esterni, messi per capirci qualcosa.
c'è qualcuno che sa di cosa si può trattare.?
ramarro.

 ha scritto nel messaggio
news:2Dli5.9421$dF5.1...@news.infostrada.it...


hello
forse tu riusi la variabile kk del ciclo for....next
leonello



Bisognerebbe vedere cosa hai messo nel ciclo, e subito dopo next kk.
Non è che c'è un if.... then exit sub all'interno del ciclo?
Oppure un exit for?
Oppure modifichi kk all'interno del ciclo facendogli superare 24?
Hai provato ad eseguirlo passo passo, con F8?
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!

 wrote in message
8mdron$i7o$2...@fe1.cs.interbusiness.it...

( in un dimensionamento da 1 a n, assumevail valore 0 )
Sicuro di non aver settato un'opzione di compilazione?
Tra queste c'è proprio il check di overflow degli array.
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Ultra ToolBars

Un saluto a tutto il NG.
Vorrei sapere se qlc conosce un sito dove poter scaricare l' OCX Ultra
ToolBars della Sheridan (Infragistics) senza comprarla per forza.
Un grazie anticipato

Vai sul sito 
www.infragistics.com
 nella
sezione download, ti registri e poi scegli
il tuo controllo trial e lo scarichi
Ciao
www.scozzaro.it
"FormW@re" <formwa...@TOGLIMIhotmail.com> ha scritto nel messaggio
news:f8Hj7.77396$TS4.5...@news2.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: come recuperare file-info avanzate

Devo recuperare il valore di una proprietà "avanzata" di un file:
cioè quella che, da sistema operativo, visualizzo clickando su menù 
"proprietà" di un file e seleziono il tab "Summary" ("Riepilogo" in un S.O. 
italiano); ci sono varie proprietà tipo Autore, Titolo ecc, e poi anche 
quelle avanzate, diverse per tipo di file.
Io ho bisogno di leggere la data di scatto della foto dai file tipo .JPG.
Si può fare?
grazie comunque
Stefano 


Devi partire da qui... non è semplice:
http://msdn.microsoft.com/library/?url=/library/en-us/stg/stg/ipropertystorage_ntfs_file_system_implementation.asp
Ciao
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca
 

Aggiungo:
Give Me the Details or File Summary Info
http://www.howtodothings.com/computers/a1061-give-me-the-details-or-file-summary-info.html


In questo thread, trovi anche dei sorgenti in 
vb.net
http://www.vbforums.com/showthread.php?s=&threadid=239232
Ciao


 ha scritto nel messaggio 
news:ebq63f$4i1$1...@area.cu.mi.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [SITO COMUNE] Aggiornamenti & Auguri

Ecco l'elenco degli aggiornamenti apportati al Sito Comune
http://www.murialdo.it/it_lang_vb
:
Progetti di esempio:
   Nuovo : MouseBas.zip : Gestione del Mouse
   Nuovo : MyAmpSrc.zip : MP3 Player
   Nuovo : Splines.ZIP : Interpolazione e approssimazione con curve di tipo
Spline
   Nuovo : ZipDir.zip : Leggere le informazioni sui files contenuti negli
archivi zip.
   Aggiornato: DemoAdo3.zip : Esempio dell'uso di un datagrid con ADO in VB6
Applicazioni binarie:
   Nuovo : EasySetup.zip : Programma di installazione per progetti VB6.
   Nuovo : ResMan99.zip : Semplice Resource Editor
Controlli DLL/OCX/VBX:
   Nuovo : MP3OCX.zip : Fantastico OCX per ascoltare Mp3 (versione Finale)
   Aggiornato: NowCombo182.zip : ComboBox multicolonna
Sezione Piccole Perle:
   Aggiornato: Gestione delle connessioni tramite le RAS API
Sezione Documentazione:
   Aggiornato: Manifesto del NewsGroup
Tanti Auguri a Tutti i Frequentatori Assidui e Non del NG!!
--
Ciaps
Stracca
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Cerca le risposte alle tue domande sul Sito Comune del
newsgroup it.comp.lang.visual-basic: 
http://www.murialdo.it/it_lang_vb
Magari prima leggi l'Help in linea!
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -


Ne č valsa la pena di aspettare!!
Ciao a tutti

Newsgroup: it.comp.lang.visual-basic
Titolo: simulare movimento mouse

Qualcuno puo inviarmi il codice per simulare lo spostamento del puntatore.
GRAZIE

 Qualcuno puo inviarmi il codice per simulare lo spostamento del puntatore.
Guardati l'API mouse_event
ciao, Assa.

 GRAZIE
sito comune. cerca "mousedown"
ciao!

 ha scritto nel messaggio
news:U3C97.6350$y_3.5...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: proprietà ColWidth controllo MSHFlexGrid ??

Provando a memorizzare in una variabile la larghezza di una colonna tramite
la proprietą colWidth(indexcolonna) mi viene restituito -1 per quelle che
non rientrano nella larghezza del FORM. Esiste un modo per riuscire a
recuperare la larghezza anche di quelle colonne. ??
grazie.

 la proprietà colWidth(indexcolonna) mi viene restituito -1 per quelle che


 Francesco
[ cut ]

Newsgroup: it.comp.lang.visual-basic
Titolo: [?OT] Esiste un DB con le città italiane??

Esiste un DB con le città italiane che riporti almeno:
Nome
Coordinate (Latitudine e Longitudine)
Ciao e grazie mille,
    Alessio C

Guarda sul sito comune!
Cerca i CAP!
ciao
		maxx


Newsgroup: it.comp.lang.visual-basic
Titolo: Posizioni nello schermo

Mi piacerebbe sapere il modo i spostare un form
nello schermo (senza una mdi sotto) e aggiornare due
label con i valori Top e Left in tempo reale cioč mentre sto
spostando il form.
Se qualcuno sa qualcosa o ha un esempio batta un colpo

spostando il form.
Bisogna sottoclassare il form ed elaborare il messaggio WM_MOVING.
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: RE Posizione TaskBar

Comunque ho trovato la DLL che mi restituisce se in basso, a destra ecc.
Mi raccomando, acqua in bocca: non far sapere a nessuno cosa usi :-(
--
ciao, hal
Veramente non ci ho pensato.
Comunque spulciando Api-Guide ho trovato questa DLL
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Private Type APPBARDATA
    cbSize As Long
    hWnd As Long
    uCallbackMessage As Long
    uEdge As Long
    RC As RECT
    lParam As Long
End Type
Private Const ABM_GETTASKBARPOS = &H5
Private Declare Function SHAppBarMessage Lib "Shell32.dll" (ByVal dwMessage
As Long, pData As APPBARDATA) As Long
La uso cosi in form_Load
'Restituisce la posizione della TaskBar
Call SHAppBarMessage(ABM_GETTASKBARPOS, ABD)
ABD.uEdge mi restituisce la posizione della TaskBar  --> 0 = Left,1 = Top
ecc.
invece
ABD.RC.Left mi restituisce la posizione sinistra
ABD.RC.Right mi restituisce la dimensione
Carmelo

ABD.RC.Right mi restituisce la dimensione
Caso mai questa e' proprio l'ascissa del pixel a destra e
ABD.RC.Bottom la sua ordinata ;-)
-- 
ciao, hal

Rispondo ad Hal








ABD.RC.Right mi restituisce la dimensione
Carmelo

[*Carmelo*=
carme...@libero.it
] ha scritto 5/6 volte la stessa cosa:
Carmelo, machhecavolo!
Cos'è Parkinson?

Newsgroup: it.comp.lang.visual-basic
Titolo: database condiviso

salve,
uso VB 6 e Access 2000 e sto cercando di fare un programma che funzioni in
rete ma ho alcuni dubbi.
Ho una LAN con 3 pc, l'archivio e' presente solo su un pc mentre il
programma deve girare su tutti e 3 i pc condividendo lo stesso archivio.
ma come si condivide l'archiio?
Il sistema piu' facile e' condividere la directory che contiene il database
e connettere la cartella come unita' di rete sugli altri due pc, pero'
questo sistema mi sembra poco professionale, anche perche' dare tutti i
privilegi ad un computer non e' una cosa molto conveniente (ipotizzando di
non usare win 98).
quindi invece di fare un'unica applicazione da mettere sui 3 pc dovrei fare
un'applicazione client e una server...
qualcuno sa come si fa? :-)
o eventualmente se ci sono dei tutorial in giro...
altra questione... al momento se l'utente del pc 2 vuole fare una modifica
succede una cosa di questo tipo:
- SELECT al database per l'elenco dei campi che rispondono ai criteri di
ricerca
- SELECT al database per il dettaglio del record scelto
- UPDATE del record coi nuovi valori...
le operazioni implicano l'aprire il database, eseguire la query, liberare le
risorse.
tutto cio' viene fatto per tre volte... non e' che si crea troppo traffico
nella rete?
ci sono metodi diversi?
anche qui si accettano consigli o tutorial :-)
grazie mille a chiunque abbia idee
Leo


Se crei una applicazione client che accede al DB tramite ODBC?
Con access puoi gia' creare applicazioncine che si condivinono il DB.
Che rete hai?.....quanto e' veloce?
I computer sono molto veloci?.....quello che ha il DB e' veloce?
Potresti pensare a una soluzione ASP?
Magari sono domande banali.....pero' sono queste che mi sono venute in mente
per aiutarti a riflettere.
Newsgroup: it.comp.lang.visual-basic
Titolo: Installazione VS.NET senza Win Component Update...

Devo assolutamente installare 
VS.NET
 2002 sul PC di casa, mi sono portato
dall'ufficio i CD ma mi sono dimenticato il CD Windows Component Update...
Nel Pc di casa ho WinXP con IIS installato + estensioni server di FrontPage
Non riesco ad installare 
VS.NET
 2002 perchè mi chiede di aggiornare alcuni
componenti...(saranno delle cazzate) e mi ricordo che c'è un comando per
bypassare la verifica dei componenti aggiornabili ed avviare il
setup..l'avevo letto in un file ReadMe che stava proprio su quel cazzo di CD
Windows Component Update....
del tipo : D:\setup\setup.exe [parametro]
Qualcuno me la può indicare ?
Grazie in anticipo.
 
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


non lo sapevo neanche io ma ho avuto un'idea geniale
google--> groups--> ho scritto setup without component update e magia delle 
magie
D:\Setup\Setup.exe /NO_BSLN_CHECK


Forse perň sarebbe ancora piů geniale sapere cosa deve essere aggiornato,
cosě magari non si rischia che poi non funzioni niente ;)
Ciao
--
Reporting tool: 
http://www.neodatatype.net


forse si :)

Newsgroup: it.comp.lang.visual-basic
Titolo: OT : Corso di Progettista Software

Corso di progettista Software ed applicazioni Internet
Corso Regionale di Qualifica post-diploma rivolto ai giovani in possesso di
Diploma di Scuola media Superiore.
presso: AFGP Bonsignori Remedello (BS)
www.dolmen.it/bonsi
af...@netquasar.com
Aree disciplinari:
Informatica Generale
Analisi e Disegno
Programmazione Database (Access, SQL)
Programmazione C e C++
Programmazione Visual Basic
Reti e protocolli
Programmazione HTML, Javascript, ASP...
Tirocinio presso aziende del settore
durata del corso 1050 ore
calendario : dalla fine di settembre a metà giugno (lezioni dal lunedi al
giovedi). E' possibile la convittualità per gli allievi maschi.

 wrote in message
7ql5st$b1j$1...@fe2.cs.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Passando per l'handle ...

Ho creato una bitmap in memoria e quindi ho il rispettivo Handle.
E' possibile salvare la Bitmap su disco sempre utilizzando una API
partendo dal suo handle ?
Saluti,Ettore.

...


Cristiano Corsani wrote:

La bitmap l'ho creata utilizzando l'API CreateDIBitmap.
Il problema č che l'istruzione SavePicture in VB salva un immagine
Bitmap le cui caratteristiche sono strettamente legate all'impostazione
corrente della scheda grafica.
Dato che ho l'esigenza di salvare un immagine creata dal un mio
programma
che praticamente č composta da 16 colori, vorrei evitare di  utilizzare
SavePicture poichč ciņ comporterebbe il salvataggio di una bitmap di
3Mb circa quando invece dovrei riuscire a cavarmela con 300 KB.
Quindi creo un DI Bitmap in memoria utilizzando una API, perņ ora dovrei
anche riuscire a salvarla in qualche modo, .... spero!
Ciao, Ettore.


La bitmap l'ho creata utilizzando l'API CreateDIBitmap.
Il problema è che l'istruzione SavePicture in VB salva un immagine
Bitmap le cui caratteristiche sono strettamente legate all'impostazione
corrente della scheda grafica.
Dato che ho l'esigenza di salvare un immagine creata dal mio programma
che praticamente è composta da 16 colori, non posso utilizzare
SavePicture poichè questo comporta il salvataggio di una bitmap anche di
3Mb quando invece dovrei riuscire a cavarmela con 300 KB circa.
Quindi creo un DI Bitmap in memoria utilizzando una API, però ora dovrei


Newsgroup: it.comp.lang.visual-basic
Titolo: picturebox aiuto

Salve ragazzi! Mi sono incartato in un piccolo problema....
vorrei sapere come prelevare il path della picturebox in fase di esecuzione!
In pratica sapere quale immagine contiene la picturebox :)!
per caricarla uso Loadpicutere....ma per sapere il path?
GrAzIe In AnTiCiPo

MrBurns ha scritto:

Non credo si possa, ma, scusa, se tu fai il LoadPicture significa che
conosci percorso e nome... o no? :-((

Newsgroup: it.comp.lang.visual-basic
Titolo: Posizionamento nel Menù Avvio

Ciao a tutti, ho creato con il kit di installazione di vb5 un installazione,
ma l'icona del mio programma si trova sotto la voce "Menu Avvio/Programmi",
come faccio a posizionarlo in una sottocartella da me definita.
Grazie Stefano.

...

Dovrebbe essere sufficiente inserire un altro file da lanciare...chesso' un
bel Readme.txt
Newsgroup: it.comp.lang.visual-basic
Titolo: Esecuzione file Bat

Come posso fare, per eseguire una procedura .Bat, per esempio all'apertura
di una form, e fare in modo che una colta terminata, la procedura chiuda
la finestra DOS che ha aperto.
Grazie mille e saluti
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 wrote in message 3bfb...@news.netsys.it...


 la finestra DOS che ha aperto.
Ma tu vuoi che rimanga visibile durante l'esecuzione?
Perche' se non e' necessario te la cavi con poco
shell("Nome.bat", vbHide)
Se invece vuoi chiuderla dopo e' un po' piu' complicato.
Devi mantenere l'id del task aperto e poi chiuderlo ma prima devi verificare
che abbia terminato
Hai provato a mettere in fondo al file bat il comando "EXIT" ?
ciao
Paolo B.

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Prova: so che non si fa, ma ...

 
Anche usando il server di fastweb 2 ore di blackout.
Misteri!
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 volta. ;-)
ghgh , il tedescone mi ha risposto per un po con 502 : tu sporco italiano
mancia spachetti, io no conosceren te , pussa via !
-- 
<Gigio2K>
--- 
www.g2kweb.it
 ---
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

... vabbè che sono "ponti" troppo allettanti, ma nessun messaggio dalla
16:02 su ICLVB, dopo che mpi.vb mi ha mostrato 3 post e subito dopo me li ha
segati dicendo che "Non sono più disponibili sul server..." (ma sul web ci
sono), mi vien da pensare che il tedescone abbia scambiato gli ultimi giorni
dell'anno con la OktoberFest o che a Wind sia cascato un server sul
mignolino della miglior gnocca...
Insomma, è solo un prova. Se scoprirò d'essere isolato dal mondo, scriverò
il mio testamento, ovviamente sulla carta che si usava una volta. ;-)
Buon anno a tutti e pochi botti chè "i diti" ci servono ancora.

Newsgroup: it.comp.lang.visual-basic
Titolo: patch o services pack

Ciao
per visual basic professional edition ci sono aggiornamenti o patches?
Nel caso ce ne siano, sareste cosi' gentili da fornirmi l'url del sito?
grazie!

 ha scritto nel messaggio
news:plOE8.67749$US3.1...@twister1.libero.it...


 nal=4
mi sembra sia quello per il solo runtime.
sp5 per vb/vs6 lo dovresti trovare qui:
http://www.microsoft.com/downloads/search.asp
?
Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto sui vettori

Mi spiegate un po' come si usano i vettori (conosco il C++, il pascal, e
l'assember) vi pregherei di farmi qualche esempio !!!
Scusate la domanda ma sono un completo neofita di questo linguaggio :-)
Grazie anticipatamente

 l'assember) vi pregherei di farmi qualche esempio !!!
allora, premetto che questo è quanto so e magari non è correttissimo...
(poi ho sonno, per cui... :))
i vettori possono essere di due tipi: statici o dinamici.
quelli statici sono dichiarati in questo modo:
(uso tipi standard, ma gli array possono chiaramente essere di tipo
strutturato...)
Dim Nomi(20) As String
Dim Totali(30) As Long
ecc...
il primo è un array di 21 elementi, il secondo di 31 (perchè sono da 0 a 20
e da 0 a 31)... tutto questo se, all'inizio del modulo, c'è un Option Base 0
(anche se non lo vedi, è il default). se invece metti Option Base 1 i
vettori così dichiarati hanno base 1 e non 0.
puoi anche dichiarare un vettore statico così:
Dim Nomi(5 To 20) As String
ma in questo questo modo non li ho mai usati...
gli array dinamici, invece, sono vettori di cui non si conosce a priori il
numero di elementi. si dichiarano così:
Dim Nomi() As String
'Questa variabile serve per l'esempio più avanti...
Dim QuantiNomi As Integer
si trattano in questo modo:
(es.: sub che mette gli elementi di una ListBox in un vettore di stringhe)
public sub RiempiArray (lstListBox as listbox)
    dim i as integer
    for i=0 to lstlistbox.count-1
        quantinomi=quantinomi+1
        'preserve serve a non cancellare gli elementi
        'già presenti nell'array
        redim preserve Nomi(quantinomi)
        Nomi(quantinomi)=lstlistbox.list(i)
    next
end sub
questa, invece, è un'altra sub che fa la stessa cosa ma in maniera
differente:
public sub RiempiArray2 (lstListBox as listbox)
    dim i as integer
    quantinomi=lstlistbox.listcount
    'non uso preserve perchè tanto dimensiono l'array tutto insieme...
    redim Nomi(quantinomi)
    for i=0 to lstlistbox.count-1
        Nomi(i) = lstlistbox.list(i)
    next
end sub
ulteriori informazioni le ottieni dall'help in linea alla voce Redim &
simili...
Ciao!
Faber
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Routine: Velocita' di esecuzione e memoria allocata

Salve
Seguendo alcuni consigli carpiti su questo NG utilizzo il seguente
codice per cronometrare il tempo di esecuzione di una routine:
Dim lngInizio as Long
Dim lngFine as Long
Dim intN as Integer
lngInizio = GetTickCount()
For intN = 0 To 1000
    Call RoutineDaTestare()
Next
lngFine = GetTickCount()
Quindi faccio la differenza fra lngInizio e lngFine.
A questo punto..... le domande nascono spontanee :-))
A)E' corretto il metodo suddetto o esiste un modo piu' preciso.
B)Come posso calcolare la memoria allocata dalle varie Variabili,
Costanti,Ecc.. che uso nella routine?
Ringrazio anticipatamente.
Pix

Costanti,Ecc.. che uso nella routine?
Mmmmhhh, potresti fare la stessa cosa di GetTickCount(), usando l'API
GlobalMemoryStatus() per ricavare i dati sulla memoria disponibile, prima e
dopo l'allocazione, poi fai il confronto.
Pero' non credo che questo sistema funzioni al meglio (considerando la
tecnica di gestione della memoria usata da VB).
Io in genere uso un sistema piu' grossolano: l'utility Monitor di Sistema di
Windows95 :-)
--
Roal Zanazzi
z...@iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Installazioni lasciate a metà

Ciao
Quando provo a installare sul mio pc un programma da me creato
mi dice che non trova "c:\temp\msftqws.pwd\ST6UNST.exe
e non mi fa terminare l'installazione
può essere che quando ho fatto le prove in precedenza con 
l'installazione e non mi funzionava, mi ha creato qualche file 
temporaneo e ora me lo va a pescare li?
come faccio a pulire? :-)
dove devo guardare?
ciaociao
-- 
        __ \/_  ---------------------------------------------------------
       (' \`\   Vuoi ricevere 1 battuta al giorno gratis? Iscriviti:
    _\, \ \\/   
http://scirio.altervista.org/varie/freddure/iscriviti.php
     /`\/\ \\   ---------------------------------------------------------
          \ \\        SCIRIO
           \ \\/\/_   100% COMMERCIALE
           /\ \\'\    
http://scirio.altervista.org
         __\ `\\\
          /|`  `\\
                 \\    ,
                  `---'

 
ok, risolto, ho svuotato la cartella c:\temp
(spero di non aver fatto danni ad altro :-) )

Newsgroup: it.comp.lang.visual-basic
Titolo: Sincronizzazione tra Server ActiveX e Client

Ciao,
Ho un problemone!!!
Ho scritto un server ActiveX per la gestione di un modem GSM via RS232.
Più o meno le operazioni che fa sono:
1. Invio un comando AT al modem
2. Il modem risponde e nell'evento On_Comm faccio partire un timer
3. Quando il timer scatta sono sicuro di aver ricevuto tutti i dati
4. Chiamo una funcione RxDispatcher per fare il parsing dei dati
5. Una volta codificati i dati lancio l'evento DataReceived(Data As String)
Tutto funziona bene fino a quando non faccio questo nel client:
Private Sub GSM_DataReceived(ByVal Data As String)
     If Data = "AT+CL" Then GSM.CloseCall
End Sub
Il metodo CloseCall chiude una chimata in corso.
Se chiamo il metodo (per esempio)usando un pulsante tutto funziona bene...ma in questo 
caso il metodo viene chiamato nella routine dell'evento prima che la funzione RxDispatcher 
del server termini!!
SERVER                CLIENT
RxTime_Timer(1)
      V
      V
RxDispatcher(1)
      V
      V
RaiseEvent
      V----------------->Call Server.CloseCall
                                    |
SendData To Modem <----------------/
      V
PROBLEMI!!!
End RxDispatcher(1)
      V
      V
End RxTimer_Timer(1)
Così si creano chiamate incoerenti fra loro e, siccome uso anche delle WaitFunction tutto 
va a p.....!!
Avete qualche consiglio da darmi?
Tnx.
LeleB

 ha scritto nel messaggio
news:hk89d.28549$N45.7...@twister2.libero.it...

Il problema è che in teoria questo genere di problematiche si risolve con un
server ActiveX multithreaded... il che in VB è arduo (ma non impossibile).
Ti consiglio questo libro di Matthew Curland, ha un capitolo intero dedicato a
questo problema.
http://education.mondadori.it/Libri/SchedaLibroStampabile.asp?IdLibro=88-8331-142-6
Altrimenti...
Non so... mi viene in mente che potresti aggiungere un parametro all'evento
DataReceived, con il quale il client, se lo desidera, informa il server che
vuole chiudere la connessione.
In questo modo la chiusura viene fatta al ritorno dall'evento dal server, che sa
quando è "meglio" effettuare la closecall.
Bye
Raf

 quando è "meglio" effettuare la closecall.
Mmmm...
Interessante!!
Sai che potrebbe funzionare...ora ci provo!!
Grazie!
LeleB.

Newsgroup: it.comp.lang.visual-basic
Titolo: Interfacciare Visual basic

Ciao a tutti, volevo chiedervi se si può tramite il visual basic,
interfacciare il programma con un utilizzatore.
Volevo sapere se si può fare, come e dove trovare il materiale giusto se
si può fare.
Vi ringrazio anticipatamente. 
By Ciccino
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:6493ce6aeb5f894eaeb...@mygate.mailgate.org...

Cosa, come, quando, perchè ecc. ?
Non sei chiaro spiega meglio il problema !!
Ciao
Alberto
Newsgroup: it.comp.lang.visual-basic
Titolo: Aprire file in ritchbox

Questo codice sotto apre il file prova.txt nel txtmessaggio.text.
io vorrei che lo aprisse nel     RichTextBox1  qualcuno puo' correggere il 
codice per favore?
Open App.Path & "\Archivio\Prova.Txt" For Input Access Read As #1
        Do While Not EOF(1)
        Line Input #1, strRiga
        TxtMessaggio.Text = TxtMessaggio.Text + strRiga
        Loop
        Close #1
Grazie :-)) 

 io vorrei che lo aprisse nel     RichTextBox1  qualcuno puo' correggere il codice per favore?
RichTextBox1.LoadFile --> premi il tasto F1
Bye, G.

Newsgroup: it.comp.lang.visual-basic
Titolo: CREATE TABLE con nome tabella passata da codice

VB6 + Sql Server
Non è possibile passare a una Stored questo tipo di parametro.
Pensavo di farlo con ADO ma credo di avere lo stesso problema.
Ho provato:
cn.Execute _
    "CREATE TABLE '" & strNomeTab & "' (" & _
.......
e mi da errore di sintassi.
C'è un modo di risolvere?
Grazie
@Pino

 .......
perchč il nome della tabella lo metti tra apici?

VB6 + SQL Server
Non è possibile passare ad una Stored questo tipo di parametro.
Ho provato con ADO:
cn.Execute _
   "CREATE TABLE '" & strNomeTab & "' (" & _
.......
ma mi segnala errore di sintassi, penso per lo stesso motivo.
E' possibile risolvere in qualche modo?
Grazie
@Pino

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Estrarre record con data

Chi mi può passare l'sql per estrarre da un recordset la data +  vicina alla
data corrente ?
Grazie, Alberto

Mi sa che ti devi fare un ciclo, partendo dalla data corrente... ti fai una
query che estrae tutti i record con data odierna. Se la query non
restituisce nessun record, decrementi di un giorno la data e ripeti la
query. Estremamente inefficiente.
Altrimenti, se c'e' modo di calcolare la data massima raggiunta (e' il
problema di determinare il valore massimo tra i valori di un campo: non l'ho
mai affrontato), allora cosi' sarebbe piu' efficiente...


 mai affrontato), allora cosi' sarebbe piu' efficiente...
select max(data_ins) from tabella
supponendo che le date fra cui cerchi possono essere <= alla corrente.
ciao, a.

 ciao, a.
select max(data_ins) from tabella where data_ins<Date() 'per Access
select max(data_ins) from tabella where data_ins<GetDate() 'per Dql Server
ciao
Alfonso

 select max(data_ins) from tabella where data_ins<GetDate() 'per Dql Server
be', dato che gli inserimenti a logica dovrebbero avvenire prima della
query, la clausola e' pleonastica, no ? :)

 > > select max(data_ins) from tabella
[...]
Newsgroup: it.comp.lang.visual-basic
Titolo: Filtro RecordSet

Vorrei filtrare in base a certe impostazioni dell'utente un Recordset già
aperto .
Leggendo la guida di VB5 mi sembra di aver capito che devo aprire un nuovo
recordset
impostando il filtro prima dell'apertura.
Ho provato a seguire l'esempio ma non funziona...
Potete darmi qualche indicazione ?
Non è proprio possibile applicare un filtro se un file è già aperto ?
In Visual dBase la funzione ApplyFilter risolve questo problema, ma in
Visual Basic ?
Grazie.

Potete darmi qualche indicazione ?
DAO oppure ADO ?
Nel dubbio, guarda un po' qua, che ci sono tutti e due:
Retrieving and Modifying Data
http://msdn.microsoft.com/library/en-us/wp/htm/wpmigratingretrieving.asp
-- 
hth, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Esportare da MDB in DBF

Ho un database MDB a cui accedo con VB 6.0 (ADO)
Come posso esportarlo in DBF?
Grazie,
CHICCO

 wrote in message
7qik29$2hh$1...@fe2.cs.interbusiness.it...


 DFU.
scusa, ma non so cosa sia il dfu...

Guarda il codice sorgentedi VisDAta (Visual Data Manager) che ti permette di
esportare i database in vari formati, lo trovi nei file di esempio forniti
con visual basic
ciao
Paolo

Newsgroup: it.comp.lang.visual-basic
Titolo: Immagini GIF

Salve a tutti !
Avrei un urgente bisogno di sapere se esiste qualche OCX o DLL che mi
permetta di convertire un immagine .BMP a GIF.
Grazie a tutti.

...

Cerca su
Il sito comune di it.comp.lang.visual-basic
http://www.murialdo.it/it_lang_vb/
o altrimenti sfoglia i links sul mio sito: ricordo che c'è qualcos'altro
free.
Ciao
---
--
-
MIX (VB5SP3)
170 links a siti VB
http://www.tempolibero.com/user/mix/
http://space.tin.it/computer/gaais/
-
--
---

Grazie dell'aiuto !!!
Newsgroup: it.comp.lang.visual-basic
Titolo: Ciao

Ciao raga,
è possibile fare in modo che in un text box si impossibile (per l'utente)
scrivere dei caratteri? Perchè utilizzo la suddetta solo per visualizzare
dei numeri, e non deve quindi apparire all'interno della text box, il
cursore quando il programma è in esecuzione.
Ciao Sem

 wrote in message
8u46h1$4rm$1...@lacerta.tiscalinet.it...


 ha scritto nel messaggio
news:8u46h1$4rm$1...@lacerta.tiscalinet.it...


 wrote in message
2ccYPd1...@newsmst.mcis.galactica.it...


Intromissione nell'intromissione nell'intromissione eehehe
Le label hanno una caratteristica rompi sfere: se una parola non entra nei
limiti di larghezza non viene visualizzata.
larghezza controllo
|------------------------|
c'e vidis c'e bullons
con le text box si vede fino alla n (e l'utente si accorge che c'e altro),
con le label 'bullons' sparisce (e l'utente dice mmmm che frase strana).
Salve
                    Dbg
Fabio GRANDE wrote in message


 con le label 'bullons' sparisce (e l'utente dice mmmm che frase strana).
dunque
1. a parte che con ms comic sans la tua frase ci sta benissimo dentro ai
trattini :)
2. a parte che: perche', cosi' non e' strana ? :):) (friulano-ispanico ?)
3. le etichette hanno la misconosciuta proprieta' autosize...
ciao, a.

...


 Ciao Sem
TextX.enabled = false
...comunque ti consiglio di non usare una testbox, per fare ciò che dici
userei una label. Se é il bordino 3D al quale non vuoi rinunciare, devi
cambiare la proprietà borderstyle
--
GUiLE

Non ti piace il mio senso dell'umorismo e ti sei gettato dalla finestra o ti
piace cosi tanto che non riesci a smettere di ridere??
eeehehehehe

 ha scritto

non riesco a smettere e scoppio, vuoi dire ? bella scelta... :)
ho solo pensato che io di solito faccio esattamente cosi', uso cioe' un
txtbox. per le etichette ho una simpatia limitata, gia' da quando faccio
copia e incolla su un form e devo andare a recuperare la nuova sotto il
controllo in alto a sx.
pero' di solito provo tutte le possibilita' a me note, e ne cerco
qualcun'altra, prima di decidere.
cosa che a te non riuscira' difficile: con una testa pensi, con una cerchi,
con l'altra provi. ma se ne avessi una sola, faticheresti anche tu...
ciao, a.

con l'altra provi. ma se ne avessi una sola, faticheresti anche tu...
See magari!!, in realta' le teste funzionano in monotasking (una alla
volta), e passano il tempo a proporre soluzione diverse, e siccome non si
possono ascoltare fra di loro (monotasking) e' un casino.
Ultimamente ho trovato una soluzione parziale, iscrivendo tutte e tre le
teste ad una mailinglist, bha che mondo ....
Ciao
                            Dbg
Newsgroup: it.comp.lang.visual-basic
Titolo: please!!HELP ME PLEASE!

Hi!
I have this problems 
1)  why if  I call CARDS.DLL (present on my wn/system directory and
normally used by cards games) I got a  cannot load dll message?
2) how can I write an application that loads and stays hidden, reading
and writing to a file all the keys I press? I mean, letting me do the
work I usually do on other apps?
Can anyone help me?
Oh yes, you mighty geeks, you can!
Please send a copy of the reply to:
______________________________________________________________________
pom...@full-service.it
Marco Poponi
-----BEGIN PGP PUBLIC KEY BLOCK-----
Version: 2.6.3i
mQCNAzKDjsoAAAEEAMwtDqpEloWl7hOv/Jm1Uk4BvreZeglLwAgtNV8MdfXOh3kh
AOtU/RxDc8DVWS3S6NPqaSbccbucK54XfZ6DSOJGjl0tDfmt2mo0c3Pl9SYpxARI
revkVazppErJ3f8z4RsoqyE9w1Kmrb5S6tzv6bwCtDNzgm1190nkRZ0roApFAAUR
tCVtYXJjbyBwb3BvbmkgPHBvbWFyY0BmdWxsLXNlcnZpY2UuaXQ+
=CJIb
-----END PGP PUBLIC KEY BLOCK-----

normally used by cards games) I got a  cannot load dll message?
That's probably because you're trying to load a 16-bit DLL in a 32-bit
VB. That won't work.
Search for a 32-bits version of this DLL. I know there is one on "Carl &
Gary's VB home page", files section: 
 
http://www.apexsc.com/vb/files.html
HTH,
Bart.

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

Domandina che mi sta' facendo impazzire.
lngRet  = RasEnumConnections(RASCon(0), RASConnN_Size, RASConnN_Numb)
enumera le connessioni attive su un pc.
Se il Pc e' in rete e vi e' un proxi, come mi accorgo se vi e' una
connessione attiva o no.
Ciao e grazie.
 Kjo



Prova con questo (è un'anticipazione della terza versione dell'articolo sull'Accesso Remoto....)
Public Declare Function InternetGetConnectedState _
    Lib "wininet.dll" (ByRef lpdwFlags As Long, _
    ByVal dwReserved As Long) As Long
MsgBox InternetGetConnectedState(0&, 0&)
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: recordset gerarchici e Datareport

Ho un DB con un'unica tabella formata dai seguenti campi (c_NumFat, 
c_Fornitore,c_Importo).
Vorrei che il Data Report mi visualizzasse la seguente cosa:
Fornitore1
            Fat1
            Fat2
            ...
Fornitore2
            Fat1
            ....
....
....
ho sentito parlare di recordset gerarchici, ma non so dove sbatter la testa!
Ringrazio anticipatamente!
Alessio

 ho sentito parlare di recordset gerarchici, ma non so dove sbatter la testa!
MSHFlexGrid
cerca sulla guida di vb
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!
Newsgroup: it.comp.lang.visual-basic
Titolo: DBF come ?

Qualcuno mi suggerisce qual'č il metodo migliore e veloce per agganciare un
file
DBF gestito da un programma clipper, composto da 75000 record ????
Grazie
Alexandro Magrě
Responsabile Informatico
RIELA GROUP
--
Posted from 
mail.ctonline.it
 [212.34.202.4]
via Mailgate.ORG Server - 
http://www.mailgate.org

da Access, importazione tabelle....
Ciao
GL

Newsgroup: it.comp.lang.visual-basic
Titolo: [ot] kylix

http://www.drbob42.com/linux/


...OT...ma neanche poi molto...forse qualcuno dovrebbe iniziare a stringere
le chiappe, (si può dire chiappe?)!
Ciao, Adriano

 le chiappe, (si puņ dire chiappe?)!
se si puo' dire
la memoria non ha potuto essere "written"
(w2k)
secondo me si'.
anche a me da' l'idea, e anche che non sia poi troppo ot. il prossimo (e
primo) kylicio di guglielmo iii ? ma bisognera' che gli altri si mettano
d'accordo e lavorino *molto* bene. seno' saranno c# acidi.

Newsgroup: it.comp.lang.visual-basic
Titolo: --->x ESPERTI: HELP!!!!!!

Mi piacerebbe sapere come si fa ad assegnare un valore ad una cella
posizionata in un foglio di excel, utilizzando una macro di VB attivata con
la spuntatura di una check box
Grazie
mar...@satnet.it

l'istruzione in VBA potrebbe essere Foglio1.Cells(riga,colonna)=valore
se lavori in excel con le macro devi assegnare una macro contenente
quell'istruzione al Check box
se lavori da VB
WriteCell indicefoglio,indiceriga, indicecolonna, valore,tipovalore
pero prima devi impostare i riferimenti di VB agli oggetti Excel
Ciao Stefano

 wrote in message
10hubtq$k79$1...@fe2.cs.interbusiness.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Visualizzazione in traybar

Ho un problema: dovrei visualizzare in'icona nella traybar; mi dicono che
bisogna avere massagehook ma non lo trovo chi sa dirmi dove trovarlo?
grazie

 ha scritto nel messaggio
news:8cn6kc$t4h$1...@serv1.albacom.net...

Newsgroup: it.comp.lang.visual-basic
Titolo: Colorare settore angolare in Picture Box

Buon giorno amici,
Sto programmando in ambiente VB6 ed ho la necessità di disegnare in una 
picture box l'interno di un settore angolare. Il settore lo delimito 
disegnando l'arco e poi i due segmenti che uniscono le estremità dell'arco 
con il centro del cerchio di cui l'arco fa parte.
    Picture1.DrawWidth = 1
    Picture1.DrawStyle = 2  'Linea a puntini
    Picture1.Circle (CentroX, CentroY), 1500, vbGreen, Angolo_In_Rad, 
Angolo_Fin_Rad, 1
    Picture1.Line (X0, Y0)-(CentroX, CentroY), vbGreen
    Picture1.Line (CentroX, CentroY)-(X1, Y1), vbGreen
la mia necessità è di colorare quest'area.
Impostando a 0 la proprietà Fillstyle non ottengo risultato utile, nè ho 
trovato alternative suggerite da post precedenti.
Qualcuno si è già imbattuto ed ha risolto questa mia necessità?
Grazie del vs. tempo.

 Grazie del vs. tempo.
 
pi = 3.14159
' Picture1 e' il contenitore su cui disegno
Picture1.Scale (-10, -10)-(10, 10)
Picture1.FillColor = vbGreen
 
Picture1.FillStyle = vbFSSolid ' Riempimento per le figure chiuse
Picture1.Circle (0, 0), 7, vbRed, -pi / 3, -pi / 2 ' Spicchio pieno
(l'angolo negativo fa tracciare i raggi per chiudere lo spicchio)
 
Picture1.FillStyle = vbFSTransparent ' Tolgo il riempimento
Picture1.Circle (0, 0), 7, vbBlue, -2 * pi / 3, -2 * pi / 2 ' Spicchio
vuoto
Bye by SixaM 8-]
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Qualcuno si è già imbattuto ed ha risolto questa mia necessità?
http://www.msdn.microsoft.com/library/default.asp?url=/library/en-us/vb98/html/vamthcircle.asp
<cito>
Remarks
To fill a circle, set the FillColor and FillStyle properties of the object
on which the circle or ellipse is drawn. Only a closed figure can be
filled. Closed figures include circles, ellipses, or pie slices (arcs with
radius lines drawn at both ends).
</cito>
La prima idea che mi viene in mente è che nonostante tutte le precauzioni
prese la tua figura non sia "chiusa"
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo


 (l'angolo negativo fa tracciare i raggi per chiudere lo spicchio)
Grazie 1000, non sapevo di questa cosa... funziona alla grande ^_^
Newsgroup: it.comp.lang.visual-basic
Titolo: Come posso fare? Da Word ad Access

Premetto che sono aperto a qualsiasi soluzione e quindi ogni suggerimento
sarà ben accetto.
Devo salvare il contenuto di documenti Word in un Db di Access in un campo
memo
Uso Word prechè ho bisogno di usare caratteri formattati e soprattutto posso
gestire le stampe come voglio. I documenti sono referti di visite mediche
quindi devono avere un layout ad-hoc
Ho provato diverse soluzioni, ma....
1. Uso al contrario il comando "Inserisci Database", ossia quello di
StampaUnione di Word dove al posto di Select From uso Update, questo
funzionerebbe ma la stringa SQL non può essere più lunga di 512 caratteri
oltre i quali mi viene troncato il testo da inserire
2. Usando DDE arrivo fino ad avere trovare gli oggetti System, sotto il
quale trovo SysItems, Topics, Status. Sotto Topics trovo il nome del mio
database, ma poi......come faccio a scriverci dentro? Mi sono passato le
guide di Access, Word ed Excel ma gli esempi di tutti e tre si riferiscono
solo ad Excel. Ho fatto delle prove ma non riesco a cavarci fuori nulla.
3. Invece di word uso ASP con una textbox multiriga. Qui riesco a scrivere
nel Db quello che voglio ma non posso formattare il testo e non so come
poter gestire le stampe.
Come posso fare?
Grazie
Roberto


"Ogni" suggerimento?
Lasciali fuori da Access e salvati su Access solo la locazione fisica del
documento.
ciao
ugo

Newsgroup: it.comp.lang.visual-basic
Titolo: [Leggermente OT] Tariffe telefoniche

vorrei sapere anche cosa sono quei "numeri blu" (così mi sembra si

Newsgroup: it.comp.lang.visual-basic
Titolo: Ordinare le funzioni alfabeticamente

Esiste un sistema automatico?
Grazie
Gil
--
Ho trovato un sito eccezionale: te poi scarica' la coscienza. 
S. Disegni
Clicca sul link per contattarmi direttamente da ICQ
http://msg.mirabilis.com/scripts/contact.dll?msgto=32405502

 ha scritto nel messaggio
news:408puu467j1c1mr0m...@4ax.com...

scarica MzTools non è prorpio automatico, ma puoi ordinare
le procedure in maniera visuale
--
bye BlackMagic
ICQ#:85485468

le procedure in maniera visuale
Wow!
molto gentile, grazie! :)


Newsgroup: it.comp.lang.visual-basic
Titolo: ? format mese

perche mese e' sempre Dicembre o gennaio gennaio gennaio........
for a = 1 to 12
mese = format (a,"mmmm")
next
come posso ottenere il mese in esteso  dai numeri 1....12
Grazie ciao

come posso ottenere il mese in esteso  dai numeri 1....12
mese=monthname(a)
Ciao,
Moreno
-- 
sirri at morenosoft dot com
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

 mese=monthname(a)
Grazie ma in vb5 non esiste questa function c'e' altro modo?

Grazie ma in vb5 non esiste questa function c'e' altro modo?
Mese = Format$(DateSerial(Year(Date), a, 1), "mmmm")
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: domandina

Ciao a tutti.
Una domandina veloissima....
Come recupero la label di un disetto ol visual basic 6?
Grazie
            Manrico

 Come recupero la label di un dis[ch]etto [c]ol visual basic 6?
Ok, dunque, questa routine ritorna informazioni sul disco fisso, prova a
vedere se puoi applicarla anche al dischetto (cioé sostituisci la "C:\" con
"A:\")
Private Declare Function GetVolumeInformation Lib "Kernel32" Alias
"GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal
lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long,
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long,
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal
nFileSystemNameSize As Long) As Long
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: 
http://www.allapi.net/
    'E-Mail: KPD...@Allapi.net
    Dim Serial As Long, VName As String, FSName As String
    'Create buffers
    VName = String$(255, Chr$(0))
    FSName = String$(255, Chr$(0))
    'Get the volume information
    GetVolumeInformation "C:\", VName, 255, Serial, 0, 0, FSName, 255
    'Strip the extra chr$(0)'s
    VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
    FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
    MsgBox "The Volume name of C:\ is '" + VName + "', the File system name
of C:\ is '" + FSName + "' and the serial number of C:\ is '" +
Trim(Str$(Serial)) + "'", vbInformation + vbOKOnly, App.Title
End Sub
PF : Siccome sei nuovo(credo) ti invito a seguire un modo di inviare
richieste che é diventato un po' il nostro "standard" (che non tutti
seguono), cioé quando fai una richiesta l'oggetto deve essere piu o meno
cosi :   "[?] info sul Volume del dischetto" , e non.. "domandina" ( Se
specifichi le tue richieste avrai piu' possibilità che qualcuno ti
risponda ).

OK.
Ti ringrazio per il suggerimento e cercherò di attenermi alle regole.
-> Dave <- <da...@hate.spam> wrote in message
8ckdjv$kfv$2...@bw107zhb.bluewin.ch...


 risponda ).
Vorrei aggiungere, già che ci sei, di farti un giro sul Sito Comune, all'url:
http://www.murialdo.it/it_lang_vb
  , dove potrai trovare il 90% di quello
che ti può servire, senza neanche doverlo chiedere :-)).
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

Grazie anora una volta....
Ho provato l'api he mi ha dato Dave ma non mi restituisce nessun VName di A:
Provo ol tuo suggerimento.
Ciao
Paperino <non...@lo.dico> wrote in message
8cknqd$1k3k$1...@stargate1.inet.it...


 Provo [C]ol tuo suggerimento.
/MODE Dave OFF
Hai provato a dare una pulita alla tastiera, nella fattispecie al tasto
della lettera "C" ? ;-)))
Per restare in tema, sei sicuro che il disco in A: abbia effettivamente una label ?
Bye, G.

usa il drivelistbox
 non è fine però e facile
Newsgroup: it.comp.lang.visual-basic
Titolo: [HELP] ricerca in documenti word

parto dicendo che ho esperienza di programmazione ma non in vb
quello che dovrei fare e' questo:
in un cd contenente varie cartelle contenenti a loro volta documenti word
(.doc) dovrei creare un box di ricerca che mi ritorna una lista di tutti i
files word contenenti la parola chiave con a fianco la frase contente la
stringa
mi potete dare qualche consiglio... ho una vaga idea di come cercare nei
files word.. ma quello con cui ho problemi e' il fatto di aprirli e
ritornare al frase contente la parola chiave
grazie mille!!!

Per aprire e chiudere un file Word
Sub ApriChiudiCercaWord
    Dim AppWord As Object
    Set AppWord = CreateObject("Word.Application")
    'qui apre il documento
    With AppWord
        .Documents.Open FileName:=<nome documento, _
                ConfirmConversions:=False, _
                ReadOnly:=False, AddToRecentFiles:=False, _
                PasswordDocument:="", _
                PasswordTemplate:="", Revert:=False, _
                WritePasswordDocument:="", _
                WritePasswordTemplate:="", _
                Format:=0
    end With
    'Qui cerca un contenuto
    with AppWord
        .Selection.Find.ClearFormatting
        With .Selection.Find
           .Text = <testo da cercare>
           .Replacement.Text = ""
           .Forward = True
           .Wrap = 1
           .Format = False
           .MatchCase = False
           .MatchWholeWord = False
           .MatchWildcards = False
           .MatchSoundsLike = False
           .MatchAllWordForms = False
       End With
       .Selection.Find.Execute
       if .Selection.Find.Found then
          'Testo trovato
       Else
          'Testo non trovato
       end if
    End With
    'Qui lo chiude
    AppWord.Quit
end Sub


--------------------------------
Inviato via 
http://arianna.libero.it/usenet/