mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Barra degli strumenti in stile Explorer 5

Ciao,
vorrei inserire nel mio programma in VB5 una barra degli strumenti in stile
Explorer 5 (o anche lo stesso vb5), dove insomma i pulsanti abbiano uno
stile "flat" quando non selezionati, le barre siano ancorabili e spostabili.
Ho provato la toollbar di vb5, ma fa schifo.
Qualcunoi sa dirmi dove reperire un OCX gratutio che sopperisca alla mia
necessità ?
Grazie,
Iper

 wrote in message
9byk5.43632$dF5.8...@news.infostrada.it...


 
http://marcominerva.cjb.net
Io ho provato a cercarolo sul sito MS, ma non ho trovato nulla,
se puoi inviarlo anche a me, mi faresti un grande favore.
A buon Rendere
Grazie
Ciao, Valli



Interessa molto anche a me !!!
Mille grazie anticipate....
--
Frogman
indirizzo e-mail corretto: 
be...@reboot.to





E un altro gosso grazie a Iper
Marco annulla pure la spedizione del file in questione,
sono riuscito a trovarlo
Grazie lo stesso
Ciao a tutti, Valli


 Per cosě poco!
[piu` una sessantina di righe:(]
--
Ciao.
Maurizio
--------
?SPQR(C)
 X

...



Come al solito non leggo mai abbastanza attentamente le istruzioni
per l'uso....   C'era scritto grosso come una casa che il controllo
era per Vb5...  Io che ho Vb6 resto col mio problema....
In effetti il setup del controllo dice di non aver trovato Vb5 e si
ferma li..
Poi probabilmente non faceva neanche al caso mio (per la serie:
nondum matura est).
Allora ho questo problema: Ho un form MDI su cui ho appoggiato
a sinistra una picturebox con proprieta' align=left. Poi ho gestito da
codice l'allargamento della picbox con il mouse, e un pulsantino x
per chiuderla.   Mi piacerebbe pero' riuscire a 'smuoverla' dalla sua
posizione trascinandola al centro del form trasformandola in un form
non MDIChild, esattamente come accade per le tool windows
dell'ambiente di sviluppo VB.
Sepoffa' ?   Se non c'e' un controllo gia' fatto (per VB6!), secondo
voi si riesce da codice ?  Una dritta ?
Come sempre grazie!


Rettifico...  CoolBar e' gia' fornito assieme a VB6.
Comunque non e' quello che cercavo io...
Ripostero' il mio problema in un nuovo thread per
evitare confusione. Mi scuso con coloro che lo
leggeranno due volte...


Newsgroup: it.comp.lang.visual-basic
Titolo: vb.net Problema da principiante

Ho creato questo script:
Dim sec As Integer = (10 * 60000) - 3000
Dim num As String = Convert.ToString(sec / 60000)
Dim txt As String = Replace(num, ".", " ")
Dim stmp() As String = Split(txt)
Il problema è che non funziona se gli passo una stringa formata da caratteri
fa sparire il punto e quindi splitta se invece tengo i numeri non funziona.
Sapete dirmi dove sbaglio?
E' molto importante grazie.
PS
L'obbiettivo è quello di avere il numero senza virgola

 Rodney Dangerfield


Ti ripeto a me funzia con le operazioni ..  :)
mi restituisce alla vine un vettore di 2 elementi ..
saluti [t]Eo
[cut]

 
Proa cosě:
stringa = ((10*13)-124).Totring()
P.S.: quota umanamente per favore.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: BarCode

Vorrei stampare dei BarCode con una stampante Laser... tuttavia non voglio
un programma esterno per generarli a mano...
mi farebbe più comodo o un frammento di codice che mi permetta di generare
barcode automaticamente... senza intervento manuale..
Ho provato a scaricare il font di BarCode39... ma, oltre al fatto che non so
se devo usare una dimensione di font particolare, non mi e' riuscito far
leggere nulla al lettore.
C'e' un modo? Qualcuno c'e' riuscito?
Grazie a tutti per eventuali aiuti!

mi farebbe piů comodo o un frammento di codice che mi permetta di generare


Per usare un font Code 39, devi mettere un asterisco davanti e uno
dietro al codice (sono i caratteri di start/stop) e, secondo come č
settato il lettore, devi anche aggiungere un carattere di controllo
dopo il codice e prima del carattere di stop (l'ultimo asterisco).
Se vuoi stampare direttamente usando l'oggetto printer, ci sono le
funzioni per farlo sul sito comune 
http://www.murialdo.it:8000
Se vuoi ho anche disegnato un font per l'EAN13, ma ce l'ho a casa, e
ora sono in ufficio. Fammi sapere se ti serve, caso mai te lo mando.
Fabrizio Filippini














ora sono in ufficio. Fammi sapere se ti serve, caso mai te lo mando.
Se me li puoi mandare,  ti ringrazio.
Il mio indirizzo diretto č:
sp...@sira.it

funzioni per farlo sul sito comune 
http://www.murialdo.it:8000
Caspita, sono stanco di dirlo.
http://www.murialdo.it:8000
  NON VA BENE, NON USATELO. Avrei quasi voglia di
far spostare la porta da 8000 a 8001 per vedere quanti si lamentano che il
sito (rimanendo esattamente dove sta) non e' piu' accessibile.
l'unico vero l'URL del Sito Comune e':
http://www.murialdo.it/it_lang_vb
Ciao
By -MES-   Maronese Ettore
http://ilmes.freeweb.org
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://www.murialdo.it/it_lang_vb

funzioni per farlo sul sito comune 
http://www.murialdo.it:8000
[...]


ora sono in ufficio. Fammi sapere se ti serve, caso mai te lo mando.
Se lo potessi spedire anche a me te ne sarei grato email 
val...@iol.it


Mi associo, grazie anticipatamente.
Carlo Strano
Newsgroup: it.comp.lang.visual-basic
Titolo: Vb.net e datagrid

Ho creato un form e ho inserito una datagrid.
Visto che non tutte le colonne rientravano nella datagrid, quest'ultima, da
sola, ha aggiunto una scroll bar orizzontale.
Dopodichč ho inserito una datagrid dentro ad un groupbox di un altro form, a
questo punto mi aspettavo che se superato un tot di item, anche se usciva
dalla grid, avrebbe inserito una scroll bar verticale ma non so perchč non
attiva la scrollbar.
Qualcuno sa come si attiva la scrollbar in una datagrid?
Grazie in anticipo.

 Qualcuno sa come si attiva la scrollbar in una datagrid?
Strano, da me la bar verticale si attiva automaticamente, sia se la griglia
è figlia della form o di un groupbox.
Per avere sempre visibile la barra verticale potresti aggiungere il seguente
codice:
Public Class GrigliaEreditata
    Inherits DataGrid
    Public Sub New()
        Me.VertScrollBar.Visible = True
        AddHandler Me.VertScrollBar.VisibleChanged, AddressOf ShowScrollBars
    End Sub
    Private Sub ShowScrollBars(ByVal sender As Object, ByVal e As EventArgs)
        If Not Me.VertScrollBar.Visible Then
            Dim width As Integer = Me.VertScrollBar.Width
            Me.VertScrollBar.Location = New Point(Me.ClientRectangle.Width -
width, 0)
            Me.VertScrollBar.Size = New Size(width,
Me.ClientRectangle.Height)
            Me.VertScrollBar.Show()
        End If
    End Sub
End Class
Nel codice collassato devi sostituire il tipo di dati dalla griglia
da  System.Windows.Forms.DataGrid
a  GrigliaEreditata
giuseppeD
Newsgroup: it.comp.lang.visual-basic
Titolo: VB.NET: Errore compilando un progetto di prova semplicissimo ???

Saluti a tutti,
Ho installato 
VB.NET
, Framework 1.0 SP2, Framework 1.0 SDK e provo a
fare un nuovo progetto di una banalita' disarmante: un bottone e un
Text Box, premo F5 e mi si verifica un errore.
Penso: e' vero che lavoro in VB da 10 anni, ma di sicuro e' colpa mia,
cosi, creo un nuovo progetto, 
VB.NET
 mi crea da solo la form e ripremo
F5, e ri-ottengo 'sto errore:
Unhandled Exception: System.Runtime.InteropServices.COMException
(0x800700B7): Impossibile creare un file, se il file esiste già.
   at System.Windows.Forms.UnsafeNativeMethods.WaitMessage()
   at System.Windows.Forms.ComponentManager.System.Windows.Forms.UnsafeNativeMethods+IMsoComponentManager.FPushMessageLoop(Int32
dwComponentID, Int32 reason, Int32 pvLoopData)
   at System.Windows.Forms.ThreadContext.RunMessageLoop(Int32 reason,
ApplicationContext context)
   at System.Windows.Forms.Application.Run(Form mainForm)
   at WindowsApplication1.Form1.Main() in
D:\tmp\WindowsApplication1\Form1.vb:line 1
E' un segno del destino che mi avverte di continuare a sviluppare solo
in VB6, o qualcuno mi sa dire cosa ho fatto di sbagliato
nell'installazione?
Ciao e grazie...
Peter


Nell'installazione nulla di sbagliato...
Da quello che vedo hai tentato di avviare il programma in Debug partendo da
D:\tmp...
Questa non è una cartella che può contenere applicazioni .NET a meno che tu
non lo specifica nelle Opzioni...

o qualcuno mi sa dire cosa ho fatto di sbagliato nell'installazione?
Mi sa di sě...io l'ho installato FULL senza chiedermi che facesse (giusto
per provarlo prima di formattare il pc) e sono riuscito
a fare il programmino con textbox + pulsante che premendo scrive nella
textbox e non ho avuto problemi nč in VB.Net che in c#
Purtroppo non saprei perň aiutarti :-(
Alessandro

Newsgroup: it.comp.lang.visual-basic
Titolo: Sorgente programma bioritmi

Non sono riuscito a trovare in rete un esempio di sorgente per il calcolo
dei bioritmi, qualcuno magari ce l'ha in qualche cartella 'storica' del
proprio disco fisso ??? Ho trovato solo un sorgente in TurboBasic della
Borland dell'87 ! Ma � pieno di GOTO e GOSUB da rendere un porting
impossibile !
Grazie !
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 impossibile !
Mah, a naso direi che e' semplicizzimo:
(attenzione, codice scritto "a naso")
Giorni = datediff (datadinascita, now,"d")
intelletto = int(giorni /33)
emozionale = int(giorni/28)
fisico = int(giorni/23)
Select case intelletto
  case 1,16,17,33
   faseintelletto = critica
  case 2 to 15
   faseintelletto = positiva
  case 18 to 32
   faseintelletto = negativa
End select
etc etc etc 

 impossibile !
http://tinyurl.com/oho2q6
-- 
Ciao Fede
By Chicco Production
http://bcp.freetools.it


Io dovrei avere qualcosa, fatto in VB3. Se ti interessa...
Newsgroup: it.comp.lang.visual-basic
Titolo: Help

Cioa a tutti e grazie in anticipo
Sto cercamdo di imparare Visual basic 6.0.
La cosa che più mi serve è la gestione di form con database.
Chi sa dirmi dive posso trovare (su internet) una sezione completa che
tratta i database, le tabelle, le relazioni, ecc. ?????
Grazie 

 ha scritto nel messaggio
news:ZRLjd.23297$Es2.5...@twister2.libero.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Suggerimenti per successione di colori diversi fra loro

Salve a tutti,
sono alle prese con la presentazione dinamica di un certo numero di grafici.
Questo numero varia dinamicamente:
Quindi potrei avere 3 grafici, 2 oppure 10 .
Devo trovare un modo per far variare il colore di questi grafici in modo 
da renderli distinguibili.
Vi chiedo se esiste un algoritmo che a partire da un colore mi permetta 
di ottenerne N diversi fra loro.
es. ecYellow + i * 1000
Parto dal giallo e gli sommo un parametro per variarlo ma non ottengo 
perfettamente quello che vorrei !!!
Spero di essere stato chiaro nella spiegazione del problema.
Grazie e buon lavoro

 ha scritto nel messaggio
news:e92g2j$ra6$1...@nnrp-beta.newsland.it...


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

ciao a tutto il ng ho un problema con una applicazione FTP che sto
sviluppando, dato che l'applicazione deve essere molto specifica ho
necessità di inviare o scaricare file solamente da una cartella di un
sito, per poter gestire l'elenco delle cartelle ho usato un treeview il
problema l'ho risolto in parte, sono riuscito a rendere utilizzabili i
file di una cartella (per comodità a), ma il mio problema diventa
quando devo visualizzare l'elenco dei file nelle cartelle child solo di
questa cartella(a) pensavo di risolvere il problema con un timer e
questo
private sub timer1_timer()
if tview1.selecteditem.child then
treeview2.enabled = true
else
treeview2.enabled = false
end if
end sub
ma rende utilizzabili tutte le cartelle child mentre io voglio rendere
utilizzabili solo quelle della cartella(a), uso VB6
ringrazio anticipamente

 utilizzabili solo quelle della cartella(a), uso VB6
Io non ho capito un tubo :)
Ripova, sarai più fortunato.
Ciao 

scusa mi spiego meglio: ho bisogno di rendere possibile inviare e
scaricare file solo da una cartella e dalle relative sottocartelle
visualizzando il resto delle cartelle del sito ma non potendo
modificarle spero di essermi spiegato meglio ciao e grazie
Newsgroup: it.comp.lang.visual-basic
Titolo: Scrivere in un file txt

Buongiorno
Questo comando dice:
Apri un file che si chiama come la data del calendario e scrivici dentro una 
serie di cose.
Il mio problema è questo che se il file esiste già perche io ho già fatto 
l'operazione nel giorno specificato lui lo cancella e ne fa uno nuovo, io 
invece vorrei che aprisse quello già esistente e scrivesse i dati nella riga 
successiva a quella già presente..
Qualcuno puo' correggere questo codice oppure mi devo studiare tutta 
un'altra operazione? spero di essermi spiegato. grazie a chiunque vorrà 
aiutarmi.
Dim nomefile, contenuto As String
nomefile = Format(Calendar1, "dd.MM.yyyy") & TxtAggiungi.Text
contenuto = LstParcheggio & TxtTrat.Text & LstAuto & TxtTrat.Text & 
TxtDalle.Text & TxtTrat.Text & TxtAlle.Text & TxtTrat.Text & TextKmTot.Text 
& TxtTrat.Text & TxtRisultatoCostoKmPiùCostoOrario.Text
Open App.Path & "\archivio\" & nomefile & ".txt" For Output As #1
Write #1, contenuto
Close #1

equinozio ha scritto:

sostituisci la riga:
Open App.Path & "\archivio\" & nomefile & ".txt" For Output As #1
in Open App.Path & "\archivio\" & nomefile & ".txt" For Append As #1
Inoltre è consigliabile utilizzare la funzione FreeFile per ottenere il 
numero di file disponibile.
-- 
Saluti.
Gregorio.
mailto:
gregorio.c
(a)
gcsoft.it
http://www.gcsoft.it

Newsgroup: it.comp.lang.visual-basic
Titolo: File menu

Hi all,
        How do i add a file menu? Like in windows apps you have file,
edit,......etc
thanks
steve

 wrote in message
news:maS87.2536$V5....@news1.sunsh1.vic.optushome.com.au...


 ha scritto

in the vb ide, have the focus on a form.
then menu: tools | menu editor
maybe you'll have to play a little with it, but it's easy.
after creating a menu, clicking on it in the form will let you into its
corresponding code event...
hth, pal

 wrote in message
news:9k0rsd$1v37o$1...@ID-51318.news.dfncis.de...


 wrote in message
news:maS87.2536$V5....@news1.sunsh1.vic.optushome.com.au...


 wrote in message
news:9k39l3$fa9$1...@neptunium.btinternet.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Outlook express 5.x

Salve a tutti quelli che lo utilizzano.
Esiste un modo veloce per potere posizionarsi al successivo messaggio
non letto? Io attualmente devo passare ad un altro NG e quindi tornare
al precedente per posizionarmi sul successivo messaggio. Oppure
scorrerlo tutto con pazienza.
Sono io che non ho letto bene le istruzioni o manca questa
funzionalità?
Ah, non rispondetemi consigliandomi di cambiare programma.
Grazie
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!

 Ah, non rispondetemi consigliandomi di cambiare programma.
Cambia programma ^__^
Ciao
--
Fibia "Sakamoto" FBI
URL: 
www.geocities.com/fibiafbi
E-Mail: 
fibi...@hotmail.com
ICQ UIN 63586057

 ha scritto nel messaggio
news:8s6ikn$5ih$1...@fe2.cs.interbusiness.it...
Salve a tutti quelli che lo utilizzano.
Esiste un modo veloce per potere posizionarsi al successivo messaggio
non letto? Io attualmente devo passare ad un altro NG e quindi tornare
al precedente per posizionarmi sul successivo messaggio. Oppure
scorrerlo tutto con pazienza.
Sono io che non ho letto bene le istruzioni o manca questa
funzionalità?
Ah, non rispondetemi consigliandomi di cambiare programma.



Grazie a tutti, come era previsto, la colpa č mia che non ho cercato
abbastanza nella guida.


Newsgroup: it.comp.lang.visual-basic
Titolo: password char in inputbox

come nel soggetto!
è possibile?
--
._-----_-----_.
        _...-=</"GicK"\>=-..._
-
gi...@passaggiosegreto.cjb.net

 
No. Devi farti tu un form ...
ciao
	maxx
P.S> Il form per il login e' uno di quelli creabili con 
l'autocomposizione ...
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!
Newsgroup: it.comp.lang.visual-basic
Titolo: Trasformare un numero di giorni in anni mesi giorni

Ciao a tutti,
VB6
devo trasformare un numero di giorni (es. 550) in ANNI, MESI, GIORNI,
tenendo conto che i mesi sono di 31, 30 ,29 o 28 giorni. Come fare?
Ciao,
Michele
--------------------------------
Inviato via 
http://usenet.libero.it

 tenendo conto che i mesi sono di 31, 30 ,29 o 28 giorni. Come fare?
credo che se tieni conto della lunghezza dei mesi, sia molto importante
sapere la data di partenza del conteggio.
ciao

 tenendo conto che i mesi sono di 31, 30 ,29 o 28 giorni. Come fare?
Ovviamente sai anche la data di partenza giusto?
Usa DateAdd per aggiungere i giorni alla data di partenza e DateDiff per
scoprire la differenza fra la data "finale" e quella "iniziale" nel formato
che preferisci! ;)
                    Ciao
                                                Allanon
--
- SPAMKILLER
 L'indirizzo delle risposte é 
itlangv...@michele.sytes.net
 LASCIATE il NOSPAM fa parte dell'indirizzo :-)
  Per superare le impostazioni di protezione antispam scrivete
  nel testo del messaggio la scritta "SPAMKILLER"
Scusate il disturbo, ma non posso più di pubblicità

 tenendo conto che i mesi sono di 31, 30 ,29 o 28 giorni. Come fare?
Ha senso farlo SOLO sapendo da che data iniziare, perchč il numero di giorni
nei mesi dipende dal momento storico appunto a causa dell'anno bisestile.
In considerazione di ciň, fai cosě:
    Dim dtRiferimento As Date
    Dim dtFine As Date
    Dim NrGG As Long
    Dim Anni, Mesi, Giorni
    NrGG = 550 ' Nr di giorni
    dtRiferimento = CDate("23/12/2001")
    dtFine = DateAdd("d", NrGG, dtRiferimento)
    Anni = DateDiff("yyyy", dtRiferimento, dtFine)
    Mesi = DateDiff("m", dtRiferimento, dtFine)
    Giorni = DateDiff("d", dtRiferimento, dtFine)
Ettore Maronese,
il Mes

Newsgroup: it.comp.lang.visual-basic
Titolo: selezioni MULTIPLE in una finestra FileListBox

Come faccio a crearmi una matrice o in generale gestile le SELEZIONI
MULTIPLE di una finestra FileListBox, con file1.FileName ho il file
selezionato, con file1.List(x) posso scorrerla MA gestire piu' di un
file selezionato ?
Bye,
Antanik - 
ant...@hotmail.com
************************************
REMOVE NO SPAM FROM REPLY TO ADDRESS
************************************

 file selezionato ?
Ti sei risposto : 
MA gestire piu' di un file selezionato ? 
con file1.List(x) posso scorrerla .

...

Per gestire la selezione multipla, esiste la proprietą MultiSelect della ListBox:
               2.Extended     (permette la selezione multipla)
Per poi cercare gli elementi selezionati:
es:
                For i = 0 To List1.ListCount - 1
                    If List1.Selected(i) Then
                       msgbox List1(i).List(List1(i).ListIndex)
                    End If
                Next I
ciao.

                Next I
Molte grazie a tutti..... 

Newsgroup: it.comp.lang.visual-basic
Titolo: file guida

Ciao,
e' la prima volta che scrivo su questo newsgruop e lo trovo molto
interessante.Ora ho un problema:sto facendo un programma con VB6 di cui ho
fatto anche il file guida.
Il file guida di per se (cioe' caricato in modo autonomo) viene visualizzato
correttamente da winhelp;non riesco,pero',a richiamarlo dal
programma.Qualcuno sa dirmi come risolvere il problema?
Ciao e grazie.
--
------------------------------------------------
Junior Silvestro Pomenti
Via Ecetra 13
04100 Latina
Sito Web: 
http://space.tin.it/io/jpomenti
Email:    
jus...@tin.it
 
jus...@geocities.com
------------------------------------------------


Devi usare una chiamata API
se non ricordo male la funzione si chiama proprio WinHelp
controlla la documentazione di Windows SDK

 ha scritto nel messaggio
news:8cql9h$269$1...@nslave2.tin.it...


programma devo inserire il  comando DECLARE e quali parametri devo
passagli?
la dichiarazione la prendi dall'API Viewer, poi la metti in un modulo (come
public o private, dipende dall'utilizzo che ne vuoi fare) o in una form
(come private perchč come public VB si arrabbia       :)), dopodichč puoi
tranquillamente chiamare la funzione come faresti con una creata da te. il
significato dei parametri di [quasi tutte] le funzioni dell'API lo trovi
nell'MSDN
Ciao
Faber

Newsgroup: it.comp.lang.visual-basic
Titolo: [TIPS-OT] Mantenimento pwd accounts mail con Win 2000/XP

Anche attivando il checkbox che consente di mantenere la password di un
account di posta (Outlook Express e Outlook), sotto XP (verificato) e 2000
(non so), la pwd non viene affatto mantenuta e deve essere reimpostata ogni
volta.
Forse sono l'ultimo a scoprirlo, ma, col mio primo XP Pro, ho fatto fatica e
spero di risparmiarla ad altri:
Soluzione:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q264672

 account di posta (Outlook Express e Outlook), sotto XP (verificato) e 2000
AZZ allora mi è sempre andata bene????(XP pro Win2k Win98Se Win2kServ)
....a me ricorda tutto!
....ricorda anche quello di aruba e genie oltre ad altri 7 account
....mmm forse è un bug discontinuo!
la posta è sempre stata l'unica cosa che mi ha funzionato senza problemi al
primo botto!....mi metti in dubbio anche questa ora???
ciauz!

 primo botto!....mi metti in dubbio anche questa ora???
Wodka (cin!), per carità, nessun dubbio nè pulce, ma l'articolo citato è
chiaro e ... a me è successo.
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] - FileSystemObject

Ciao ragazzi,
Ho la necessità di copiare N files che si trovano dentro una directory
su una directory diversa.
vorrei usare la funzione in oggetto per fare questa operazione.
Ciao e grazie.

 Ciao e grazie.
Niente figurati! :)
Mik

 Va bene, usala! :)
lol lol
LOL
rofl rofl
ROFL
--
Mattia stacanovista...

A parte gli scherzi, non hai visto che sulla guida è tutto spiegato?!?!?
Ciao, mattia
--
Mattia stacanovista...

 vorrei usare la funzione in oggetto per fare questa operazione.
o se non la conoscete va bene anche il vostro modo....
Ah...ah....eh.....

 Ciao, mattia
va bene ci guardo....pensavo di fare una cosa al volo...com Gig...hai capito
no....
tu lanci i componenti io faccio il resto.....scherzo naturalmente...ciao

 Niente figurati! :)
/me cappotta
Bye, G.

Newsgroup: it.comp.lang.visual-basic
Titolo: Re: Problema dim as string * 15

Direttamente dall'MSDN 2003:
Visual Basic 6.0
In Visual Basic 6.0 è possibile specificare la lunghezza di una stringa
nella relativa dichiarazione. La stringa avrà quindi una dimensione fissa,
come nell'esempio seguente:
Dim Name As String * 30 Visual Basic .NET
In Visual Basic .NET non è possibile dichiarare stringhe con lunghezza
fissa, a meno di utilizzare l'attributo Classe VBFixedStringAttribute nella
dichiarazione. Se si utilizza il codice dell'esempio precedente viene
restituito un errore.
La stringa deve infatti essere dichiarata senza specificarne la lunghezza.
Quando viene assegnato un valore alla stringa, la lunghezza del valore
determina la lunghezza della stringa, come nell'esempio seguente:
Dim Name As String
' ...
Name = "Name is now 30 characters long" ' Length can be changed later. Ciao
da Luigi

Newsgroup: it.comp.lang.visual-basic
Titolo: Stored Procedure

Ciao,
sto utilizzando ADO per una connessione a un DBMS SQL-Anywhere.
Vorrei creare una stored procedure, ma da quel poco che ho capito da
MSDN e da varie prove effettuate, non posso crearne una nuova, ma solo
importare quelle gia' esistenti per il database. Infatti andando in
visualizzazione dati, attribuisco a Connection1 la mia connessione al
database, secondo quanto ho letto sulla guida, alla pressione del tasto
destro del mouse su Connection1 dovrebbe uscire "Nuova Stored
Procedure", invece nel menu c'e' solo "Inserisci Stored Procedure" e
selezionando questa opzione viene fuori una maschera che dice "L'elenco
a sinistra contiene tutte le stored procedure disponibili per la
connessione specificata. Selezionare quelle da aggiungere a Data
Environment". A questo punto pero' non avendo creato ancora nessuna
store procedure, non ho niente nell'elenco di sinistra e non ho capito
come posso fare per crearne una!!!!
Spero di essere stata chiara nello spiegare il problema.
Ciao
Donatella :)


Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 + VISIO 2002 = Crash!!

Qualcuno ha provato ad installare Visio 2002 nella stessa macchina ove è
presente l'ambiente VB6?...
Beh, io l'ho fatto in ben tre macchine differenti, ed ogni volta che lancio
VB6 (SPK5) ed apro un progetto, mi va in Crash VB6!!!...
... se, successivamente, disinstallo VISIO 2002, VB ritorna a funzionare
correttamente...
C'è qualche buon'anima che mi può confermare tale conflitto?... e se vi
risulta, conoscete un rimedio per far coesistere (amichevolmente) i 2
prodotti?...
Grazie.

 
io per andare sul sicuro ho tolto visio (e vivo bene lo stesso :). credo 
che dovresti cercare tra qualche opzione se è possibile fare in modo che 
Visio non inserisca la sua barra in VB.

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] dove trovo il valore di LOCALE_SYSTEM_DEFAULT e LOCALE_USER_DEFAULT

Ciao,
dove posso trovare il valore di queste 2 costanti?
grazie
Davifr


scusate li ho trovati.. li posto se srvono ad latri:
LOCALE_SYSTEM_DEFAULT = &H800
LOCALE_USER_DEFAULT = &H400
ciao
Davide

Newsgroup: it.comp.lang.visual-basic
Titolo: BMP to GIF

Mi servirebbe una OCX o DLL FREE per convertire un BMP in GIF.
Spero che qualcuno conosca la soluzione per me, vi prego di mandarmi la
risposta anche per email personale
Ciao

Se la cosa puo' interessarti, ho fatto un programmino in VB6 per
salvare il contenuto di un PictureBox in formato GIF.
Per convertire da file BMP potresti prima caricare l' immagine in
un PictureBox (magari invisibile) e poi salvarla come GIF.
La conversione, essendo interamente fatta in VB (incluso l' algoritmo
di compressione LZW), non e' molto veloce ma ti consente di usare
tutte le opzioni del formato GIF89a (interallacciamento, plain text,
pixel trasparenti, ...).
Fammi sapere se devo inviartela.
Ciao.
Franco


 Fammi sapere se devo inviartela.
Mi interesserebbe molto anche a me, potresti inviarmelo?
Grazie
P.S.: Io invece, ho da poco fatto un programmino che legge una windows BMP e
la riscrive dopo eventuali processi di elaborazione (header, img data,
ecc...). E' anche il mio molto lento (opero con un P133 e 32Mb di RAM), ed
anzi volevo chiedervi se non c'e' qualche metodo per velocizzare le routine
di lettura (e ... visualizzazione) e scrittura di questo tipo di file. Uso
il PSET, ma e' molto lento!
Ciao
Salvo
Newsgroup: it.comp.lang.visual-basic
Titolo: CHIEDO UMILMENTE AIUTO!!!

C'è qualche anima gentile fra di voi che avrebbe 5 minuti di tempo per
scrivere al sottoscritto una procedura di stampa a video di una matrice di
r righe e c colonne???
So che dev'essere una stronzata pazzesca ma io è da quasi un mese che ci
provo ma con pessimi risultati!!
Gli unici valori passati dal programma sono appunto gli indici di riga e di
colonna e la procedura dovrebbe andare a far visualizzare la matrice a
video.
Vi lascio libertà nella scelta dell'oggetto sul quale andare a scrivere:
potete usare picturebox, textbox e simili. vi chiedo solo di non usare i
file perchè non saprei poi eventualmente come maneggiarli! Se usate una
picture box sarebbe l'ideale!
Grazie mille!
(PS: per farmi avere la procedura, potreste inviarmela su 
aud...@libero.it
)
Attendo presto un vostro aiuto!

Insieme al cd masterizzato ?
Un Hal cattivissimo :-(

 wrote in message
news:lv636.204629$hk4.7...@news.infostrada.it...


 provo ma con pessimi risultati!!
Lo č, ma se tu imparassi a programmare invece che masterizzare CD pirata...
A Natale sono stato un po' buono... ma č passato... ]B)
Newsgroup: it.comp.lang.visual-basic
Titolo: DAO CON MSDE SU ALCUNI XP è LENTISSIMO ????????

CIAO RAGAZZI,
HO UN PROBLEMINO, HO COSTRUITO UN APPLICATIVO CON DAO (msde) CHE GIRA PERFETTAMENTE SU 98 E 2000 MA CHE SUL 50% DEGLI XP PROVATI MI DA PROBLEMI DEL TIPO:
ANALIZZANDO UNA TABELLA DI N RECORD ARRIVA IN 3 SECONDI AL 15 % POI SI BLOCCA PER 1 MINUTO, POI RIPRENDE VELOCISSIMO POI SI RIBLOCCA PER CIRCA 1 MINUTO E COSI'  VIA.
qUELLO CHE NON CAPISCO E' CHE SI FERMA QUANDO VUOLE LUI A RANDOM.
HO PROVATO SIA CON ODBC CHE CON CONNESSIONE DIRETTA, HO COMUNQUE NOTATO CHE SU ALCUNI PC VARIANDO VIA ODBC IL SERVER DI CONNESSIONE INSERENDO PUNTO IL PROBLEMA SI RISOLVE, SE METTO (LOCAL) SI RIPRESENTA.
TENETE PRESENTE CHE IL MIO PROGRAMMA LAVORA SOLO IN LOCALE.
UNA OPERAZIONE CHE IN 2000 IMPIEGA 20 SECONDI IN XP PUņ IMPIEGARE 10 MINUTI.
CIAO E GRAZIE
--
Dema

 HO UN PROBLEMINO,
Sě, hai il caps lock inchiodato
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 UNA OPERAZIONE CHE IN 2000 IMPIEGA 20 SECONDI IN XP PUò IMPIEGARE 10 MINUTI.
XP è sicuramente molto più pesante di 2000, ma da 20" a 10' c'è troppa 
differenza. Sicuro che le installazioni di MSDE siano identiche?
Alberto
-- 
"Se viriamo, viriamo viriamo viriamo;
Se andiamo dritti, viriamo"
(Cit. "il tattico")

Ok!!! :-)
Come avete capito non sono un professionista...
Ricapitolando, l'applicazione che gira perfettamente su 2000 su alcuni xp da i problemi che ho elencato :
Sia su sistemi Xp pro che Home nonostante l'installazione di MSDE sia esattamente la stessa l'esecuzione del programma si blocca a random per alcuni secondi rallentando di fatto le varie operazioni. Sottolineo che questo problema si verifica solamente quando eseguo:
while not Myrs.eof
istruzioni
Myrs.movenext
wend
gli accessi al database sono del tipo:
Set MyDB = Workspaces(0).OpenDatabase("", False, False, DATABASEATTIVO)
 
    Set myrs = MyDB.OpenRecordset(SQL$, dbOpenDynaset, dbSeeChanges)
Ciao e grazie
--
Dema

 [cut] PUņ IMPIEGARE 10 MINUTI.
        ^^^
Scrivendo tutto maiuscolo vengono fuori aborti di questo tipo, bruttissimi
a leggersi, e comunque equivale ad urlare (altrettanto fastidioso) =)
Ciao,

 Sia su sistemi Xp pro che Home nonostante l'installazione di MSDE sia esattamente la stessa l'esecuzione del programma si blocca a random per alcuni secondi rallentando di fatto le varie operazioni. Sottolineo che questo problema si verifica solamente quando eseguo:
Prova a lavorare con ADO cosi':
------------------------------------------------
Dim provStr As String
Dim rs as ADODB.RecordSet
'Imposta la variabile db
Set dbAdo = New ADODB.Connection
provStr = "Provider=sqloledb;data source=192.168.1.1;user
id=nome_utente;password=password_utente"
Call dbAdo.Open(provStr)
Set rs = dbAdo.Execute(stringa_sql)
do while not rs.eof
     ...
     ...
     ...
     call rs.movenext
loop
--------------------------------------------------------

 CIAO E GRAZIE
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] esiste timer con accuratezza almeno 10KHZ

Devo fare un oscilloscopio in VB che mi guarda l'imput della porta
parallela. Hobisogno di un timer con accuratezza a 10KHZ almeno. Esiste
una cosa del genere?

 ha scritto nel messaggio
news:38B0600E...@libero.it...


 una cosa del genere?
--
/*****************************************************/
                    Paride Dominici
                   Software Developer
                   ------------------
 
par...@info-net.it
 
iamp...@geocities.com
 
merlin...@libero.it
 
http://www.geocities.com/CapeCanaveral/Hangar/4841/
 
http://digilander.iol.it/paridehome/index.html
 -----------------------------------------------------
 Dobbiamo continuare a sognare, perche' se si uccidono
 i sogni non c'e' piu' alcuna ragione di vivere.
/*****************************************************/

Newsgroup: it.comp.lang.visual-basic
Titolo: VB.net e database access

Dopo avere per lungo tempo utilizzato acce per i miei database, vorrei
passare a VB.net, passaggio solo dettato da curiosità di conoscere questo
programma che non da esigenze concrete e anche perchè ho trovato (e
acquistato) un manuale di mondadori informatica (rick dobson l'autore) sullo
specifico argomento.
Vorrei sapere se i report creati con access sono riutilizzabili in VBnet o
se bisogna crearli di nuovi e in questo caso che strumento usare, visto che
su questo manuale, ad una prima scorsa,  non mi sembra se ne faccia
menzione.
Grazie
Ph. Barnum

 ha scritto nel messaggio
news:yBhEc.551122$rM4.22...@news4.tin.it...


 menzione.
Per costruire report puoi utilizzare Crystal reports,
le classi del Framework System.Drawing.Printing.
Ave
giuseppeD
Newsgroup: it.comp.lang.visual-basic
Titolo: Excel e database

Avrei la necessita di disporre di un piccolo database per gestire delle 
tabelle all'inetrno di un foglio Excel dove devo analizzare i vari dati.
Qual'č il modo piů semplice per realizzare il database?
Conosco abbastanza gli oggetti DAO ma gli ho sempre usati all'interno di 
Access.
Grazie in anticipo dei vostri consigli.
Ciao

 Access.
Non è chiara la domanda. Se la tua necessità è di interagire con un file
excel tramite DAO, il punto di partenza è
Set DBExcel = OpenDatabase(PathFileXls, False, False, "Excel
8.0;HDR=yes;") 
o quasi...
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
Se i tempi non chiedono la tua parte migliore, inventa altri tempi. 
(Baolian, libro II, vv. 16-17)
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


In realtà vorrei utilizzare Excel come applicazione principale in quanto 
l'analisi dei dati rappresenta la parte principale di ciò che devo
svolgere, mi servono solo alcune tabelle per poter salvare dei dati 
calcolati e per poterli richiamare in seguito con una semplice query.

 calcolati e per poterli richiamare in seguito con una semplice query.
Bene.
Quindi la domanda è... 


Newsgroup: it.comp.lang.visual-basic
Titolo: A proposito di 16bit...

Scusate se la domanda e' stata fatta gia' molte volte:
Come si fa a compilare un sorgente VB5 in 16bit (win3.1)?
Una volta avevo trovato sul manuale il modo ma adesso non c'e' piu'
(probabilmente perche' non lo trovo + io, ma non ne sarei sicuro (:))
Ciao

Come si fa a compilare un sorgente VB5 in 16bit (win3.1)?
Semplicemente non si può con VB5
si può invece con VB4
Ciao


Ma allora perche' ci sono le costanti di sistema WIN16 e WIN32?
Non me lo dire, si sono scordati di correggere l'help...
Infatti sul manuale non ci sono.
Ciao


Servono (a poco, ormai) solo per alleviare un po' la gestione di
applicazioni che possono essere compilate a 16bit (con VB4 16bit) o a 32bit
(VB432 o VB5).
Riassunto: non esiste (e non esistera' mai) una versione di VB che compili
sia a 16 che a 32 bit.
--
Roal Zanazzi
z...@iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: picturebox come contenitore

come posso associare dei controlli ad un picturebox usandolo come
contenitore?
grazie a tutti

 contenitore?
Glieli disegni dentro in fase di progetto oppure
Set controllo.Container=Picture1
controllo. zorder 0
controllo.left=...
controllo.top=...

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

ciao!sono beba e programmo in vb5.
come posso fare una funzione o qualcosa che mi permetta di dividere
automaticamente i giorni lavorativi dalle festivita'?
esiste gia' qualcosa?
grazie!

...

Const DOMENICA = 1
Const SABATO = 7
If (WeekDay(Date) = SABATO or WeekDay(Date) = DOMENICA) then
    ' non contare la giornata
Else
    'conta la giornata
End If
Ovviamente ti dovresti fare un bell'array con tutte le festività aggiuntive
tipo Natale, Pasqua, ecc...
Anzi per la pasqua se ne è discusso parecchio, mi sembra che sul sito comune
c'è un algoritmo per calcolarne la ricorrenza.
Ciao.
Newsgroup: it.comp.lang.visual-basic
Titolo: Che creare un file per excel?

Scusate la domanda stupida ma come posso creare un file apribile da excel?
ciao
Marco Rossi

>Scusate la domanda stupida ma come posso creare un file apribile da excel?
ad esempio facendo creare ad un oggetto OLE Excel un file. Guarda l'help su
CreateObject() e l'help VBA in Excel.
Ciao
Sig

 ha scritto nel messaggio
news:8havk5$ghr$1...@nslave1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Challenge to the experts:

Here is a difficult question:
Imagine you have 12 labels. You don´t know what labels have the property
visible set to true or set to false and you want to pass over each label the
properties of the label before.
example:
label1
label2
label3
label4
label5
label6
label7
label8
label9
label10
label11
label12
if label1 is visible then label 1 switches to invisible
if label1 is invisible it continues invisible
if label2 is visible then label1 switches to visible
if label2 is invisible then label1 switches to invisible
and so on
I have tried this but it won´t work 100%
I use a timer:
If label2.visible=true then
label1.visible=true
label2.visible=false
else
timer1.enabled=false
if label3.visible=true then
label2.visible=true
label3.visible=false
else
timer1.enabled=false
etc...
this don´t work becuase :
if label1 is set to visible and label2 to invisible and label3 to visible
label1 won´t pass to visible and label2 won´t pass to visible.
if label1 is set to visible and label2 to invisible and label3 to invisible
and label4 to visible
label1 won´t pass to invisible, label2 won´t pass to invisible and label3
won´t pass to visible
can you discover what is wrong?
Thanks

...


Very Simle!
Create an array of Labels: Label(0) Label(1) Label(2) .... Label(20)
and use follow source:
Dim Count%
For Count% = 0 to 20-1
	if Label(Count%+1).Visible Then
		Label(Count%).Visible=True
	else
		Label(Count%).Visible=False
	End If
Next Count%
Label(20).Visible=False
If you can't to use an array of Labels:
Dim Count%
Dim Array()	as Label
Redim Array(20)
set Array(0) = Label1
set Array(1) = Label2
set Array(2) = Label3
set Array(4) = Label4
set Array(5) = Label5

Newsgroup: it.comp.lang.visual-basic
Titolo: ? Sito Comune Ma quando riprende a funzionare ?

Come da oggetto,
Quando riprende a funzionare il sito comune???
oppure l'indirizzo è cambiato???
è sempre questo ?? 
http://www.murialdo.it:8000/it_lang_vb/

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Stampe in orrizzontale

Salve a tutti, sto provando ad utilizzare DataReport (che fatica!!!) e
vorrei sapere se gestisce automaticamente le stampe in orizzontale (come
Word, Excel ecc.) o deve essere gestito da codice.
Grazie.
Paolo.

 wrote in message
_Zhu6.9543$lT1.1...@news2.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Devo fare un Upgrade ...

ciao a tutti,
ho un piccolo software che si appoggia ad un database .mdb ...ora, devo fare
un upgrade del software, cioč devo aggiungere in alcune maschere dei nuovi
dati e di conseguenza i rispettivi campi in alcune tabelle del database, il
problema č che lo devo fare mantenendo comunque tutti i dati nell' .mdb .
Come faccio !?? DEvo creare uno script in access oppure lo posso fare in VB
???!?!?!
grazie mille a tutti e ciaoo
CLaudio .

 ???!?!?!
Fai le tue modifiche alla base dati direttamente in Access poi modifichi il
tuo applicativo, lo ricompili e lo reinstalli.
Se non hai a disposizione Access potresti fare le modifiche direttamente dal
visualizzatore dati dell'iDE di VB.
Mi sembra che non ci siano problemi particolari !


puoi farlo con VB, sia usando SQL standard che usando
le estensioni ADOX per la manipolazione dei dati (questo se usi
ADO, con DAO è ancora più semplice)
--
bye BlackMagic
ICQ: 85485468

Newsgroup: it.comp.lang.visual-basic
Titolo: Da ACCESS a Visual Basic, aiuto !!

Allora... intanto grazie per aver risposto,
ho realizzato un'applicazione con access, direi con ottimi risultati, ma a
causa di tutti i soliti problemi che affliggono questo tipo di realizzazioni
mi vedo costretto a tradurre il tutto in Visual-Basic.
Sono abbastanza ferrato in codice puro, non ho pero' esperienza con il
codice relativo alle operazioni sulle tabelle dei database. Mi potete dare
una mano ?? Attualmente sto' usando Visual Studio 6.0.
So che visual basic use sempre il Jet come motore per accedere ai database,
esistono delle librerie di facile utilizzo per le funzioni piu' classiche
nelle tabelle ?? (apertura del db, ricerca del record, filtri e relazioni??)
C'e' qualcuno di voi che puo' inviarmi giusto poche righe di codice molto
semplici che effettuino le operazioni di base su un .db ?? Avete avuto
un'esperienza 'migratoria' simile alla mia?
Vi ringrazio moltissimo, Pietro
pfa...@docnet.it
(per cortesia rispondetemi in posta, ri-grazie)

 Vi ringrazio moltissimo, Pietro
http://www.comune.modena.it/cittadini/apal/tmp/vbtrix.zip
c'e' un db indicizzato (post di ng su vb) con gestione di mini query.
vb5sp3 / access 97 / dao3.5x
http://www.comune.modena.it/cittadini/apal/tmp/vbtrix_mdb.zip
ci sono altri 3 mb di post.
il dbms e' molto ruspante ma qualcosa fa.
ciao, a.
--
andrea dot palazzi at tin dot it
free vb/sw: 
http://www.comune.modena.it/cittadini/apal/html/

 wrote in message
96779281...@tango.comm2000.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Che cosa svilupp?

Ciao a tutti,
scrivo questo messaggio per uno scopo che forse
vi risulterà un pò strano: non voglio chiedere
come sviluppare una certa cosa, ma che cosa
sviluppare...
Mi spiego meglio: io uso VB 5, presto passerò al
6, e credo si saperlo usare discretamente bene.
Il fatto è che ho una carenza di idee...
Non so davvero dove concentrare i miei sforzi
visto che esistono già programmi di ogni genere...
Sono graditi consigli, preferibilmente
alla mia mail: 
ond...@tin.it
Marrocco Maurizio
PS Molto bello il sito comune del newsgroup.

...


E per porre fine a questo problema, votate tutti
it.comp.prog.collaborazione
non appena iniziano le votazioni verso settembre
MI RACCOMANDO !!!
Ciao...
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
 -----------Federico Emanuele Galli----------
 ----------Visual Basic's Programmer---------
 
 Sideralis Programs (Visual-Basic and Delphi)
 
http://www.geocities.com/colosseum/loge/2151
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
                 Trust no ONE.
Per rispondermi via E-Mail togli STOPSPAMMERS.
Guarda la RFD per it.comp.prog.collaborazione !

 non appena iniziano le votazioni verso settembre
Esatto.
E se Marrocco Maurizio sa come lavorare sui database, sui files ASCII e magari sa cos'e' un CGI, ho io qualcosa di bello da
fargli fare  :-))
Ovviamente e' un lavoro che paga solo in soddisfazioni.
Federico Galli sa di cosa parlo... . vero?
-- 
Hi, Ciao
Ettore                 By -MES-
http://freeweb.aspide.it/freeweb/ilmes
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb


http://members.xoom.com/it_lang_vb

 Spara spara...;-))
Ops... ecco qui l'ottavo moschettiere.   :-)
CGI..... Centra col sito comune, c'e' una vaga possibilita' (affascinante) di una evoluzione in questa dierezione.
Volevo farlo oggi ma questa per me e' una settimana da panico, comunque al piu' tardi dopodomani iniziero' un thread per
discutere di una possibile e sostanziale evoluzione del sito comune.
Preparatevi a dire la vostra.


>Federico Galli sa di cosa parlo... . vero?
+ che vero.
Ma qui si sapra' tutto tra qualche gg !
Per ora lo sanno in pochi ! :)
Ciao !

Newsgroup: it.comp.lang.visual-basic
Titolo: Simple VB6 question - I think!!

I am a casual user of Visual Basic and the question that 
I need help with is how to force a Form to stay on the 
'TOP' while there are other forms present.  I have 
searched the form properties and cannot find anything 
that will work. Hopefully, I am using the correct 
terminology which describes the form propery in question.
The property is probably right under my nose but I am too 
ignorant to find it..
Thanks - Jim
jf...@ieee.org

Here Are The Declaration For Showing A Form, Always on Top, No Movement, No
Resizing
Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd
As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long,
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Const HWND_TOPMOST = -1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
' Your Form is MyForm1
dim lResult as Long
lResult = SetWindowPos( MyForm1.hWnd, HWND_TOPMOST,0,0,0,0,SWP_NOMOVE Or
SWP_NOSIZE)
Hope this Helps
Dan
Jim Flanagan wrote in message ...


Try this source from 
http://www.planet-source-code.com/vb/
:
'***************************************************************
'Windows API/Global Declarations for :StayOnTop
'***************************************************************
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal
hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long,
ByVal cy As Long, ByVal wFlags As Long) As Long
Source Code:
Note:This code is formatted to be pasted directly into VB.
Pasting it into other editors may or may not work.
'***************************************************************
' Name: StayOnTop
' Description:Keep a form always on top (topmost floating form) i
'     n windows 95.
Albetski, Allan"
' By: Found on the World Wide Web
'
'
' Inputs:None
'
' Returns:None
'
'Assumes:None
'
'Side Effects:None
'
'Code provided by Planet Source Code(tm) (
http://www.PlanetSource
'     Code.com) 'as is', without warranties as to performance, fitness,
'     merchantability,and any other warranty (whether expressed or impl
'     ied).
'***************************************************************
Public Sub StayOnTop(frmForm As Form, fOnTop As Boolean)
    Const HWND_TOPMOST = -1
    Const HWND_NOTOPMOST = -2
    Dim lState As Long
    Dim iLeft As Integer, iTop As Integer, iWidth As Integer, iHeight As
Integer
    With frmForm
        iLeft = .Left / Screen.TwipsPerPixelX
        iTop = .Top / Screen.TwipsPerPixelY
        iWidth = .Width / Screen.TwipsPerPixelX
        iHeight = .Height / Screen.TwipsPerPixelY
    End With
    If fOnTop Then
        lState = HWND_TOPMOST
    Else
        lState = HWND_NOTOPMOST
    End If
    Call SetWindowPos(frmForm.hWnd, lState, iLeft, iTop, iWidth, iHeight,0)
End Sub
**** Posted from RemarQ - 
http://www.remarq.com
 - Discussions Start Here (tm) ****

 wrote in message
news:MPG.117d27cc6...@netnews.worldnet.att.net...

Newsgroup: it.comp.lang.visual-basic
Titolo: Monitoraggio connessione

Una domandina :)
Spesso ascolto RTL 102.5 via internet ...
e lo scazzo è che ogni tanto la radio salta ...probabilmente dovuto a un
collo di bottiglia o che so io ...
Insomma WMP mi chiude la connessione e io devo ogni volta riavviarlo.
Ho aperto un progettino veloce con controllo webbrowser ( WB )
apro il file con wb.navigate [URLdaAprire]
Quello che non so fare e il monitoraggio della connessione....insomma quando
la radio salta chiudi la connessione e riaprila ...
credo di essermi spiegato ...mi aiutate ?

 la radio salta chiudi la connessione e riaprila ...
Cerca sul sito comune le api per controllare se la connessione e' attiva, e
metti il controllo in un timer.
Mi sembra un metodo decente, anche se credo ce ne siano di migliori.... (ad
esempio sei sicuro che il webbrowser non dia qualche genere di errore quando
cade la connessione?)

 metti il controllo in un timer.
La connessione alla quale mi riferivo pero' era quella al server di
streaming ... qui sono su adsl .. :(
Ti viene in mente nulla ?

Newsgroup: it.comp.lang.visual-basic
Titolo: riconoscimento vocale

qualcuno sa dove posso trovare informazioni dettagliate ed in italiano??
sul sito MS ho gia visto....
ciaociao!!
--
____________________________
   G 1 0 X®
Web: 
www.giox.net
Alt. Mail: 
info...@libero.it
Icq Uin: 47698601
Irc Chan. @azzurranet:
   #mhackerone; #ahccc; #linux;
_____________________________

 sul sito MS ho gia visto....
Sito Comune:
http://www.it-lang-vb.net/
Non so quanto possa tornarti utile, ma dovrebbe esserci un sorgente che ti
permette il TextToSpeech in italiano credo...
Cmq. se ne è discusso ampiamente tempo fa sul NG... prova anche a fare un
giro su 
http://groups.google.com
 e fatti una ricerchina.
--
-- Luvme2times
"Love me two times babe | I'm going awayyyy"
J.D.M.
Newsgroup: it.comp.lang.visual-basic
Titolo: data1.recordset.absoluteposition = n / n ?

how do you make a label display the absolute position of a data base
using the n/N Parameters
Please help

 Please help
ryan
this sub works with the ado objects:
Private Sub Adodc1_MoveComplete(ByVal adReason _
    As adodb.EventReasonEnum, ByVal pError As adodb.Error, _
    adStatus As adodb.EventStatusEnum, ByVal pRecordset As adodb.Recordset)
    On Error Resume Next
    With Adodc1.Recordset
        frmMain.SB.Panels(1) = "Movies: " & .AbsolutePosition & " / " &
.RecordCount
    End With
End Sub
with dao objects there should be the analog, only with dynaset recordset,
not tables.
please note:
if i remember, with some versions of ado you could have to use
As adodb.Recordset20
hth, ciao, j.