mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Query con funzioni ?

Ciao a tutti..ho un problema....ovvio no ?
E' possibile inserire e come in una query delle funzioni ? cioč una funzione
mia al posto del COUNT o del SUM etc... avete un esempietto ?
Grazie
roby

puoi farlo con le stored procedure lato server, dipende pero' da che db
utilizzi.
In access e sql-server non so, in oracle si puo' fare conoscendo il pl-sql

 mia al posto del COUNT o del SUM etc... avete un esempietto ?
Se parli di Access mi sembra di ricordare che la sintassi sia :
{fn <nomefunzione>}
spero ti serva come spunto, di più non so..... facci sapere
Ciao, M.

Newsgroup: it.comp.lang.visual-basic
Titolo: NomeForm.Height

Ho notato che VB6 pone dei limiti nell'altezza del form e che questo limite
risente dell'attuale impostazione della risoluzione dello schermo.
Per esempio nel mio caso con risoluzione a 800x600 il limite è 9000.
Ho pensato: adesso lo frego io.
Imposto la risoluzione a 1280x1024 che è il massimo possibile nel mio caso.
Imposto l'altezza massima del form che è 14750.
Compilo il programma e lancio l'exe.
Funziona.
:-(
Quando rimetto la risoluzione a 800x600 e rilancio l'exe vedo solo un form
alto 9000.
Forse Vi chiederete:
Ma cosa te ne fai di un form alto il doppio di quanto si può vedere?
Volevo fare una specie di anteprima di una pagina di stampa che mostrava la
parte alta della pagina e con un click (Me.Top= -7500) la parte bassa.
Gradisco commenti e/o suggerimenti.
Grazie.
Sauro

> Gradisco commenti e/o suggerimenti.
Cerca su google e troverai molta roba.
Tieni conto che è un problema comune
bye
<nota per me>
Inserire nelle FAQ del SC...
</nota per me>
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it


Potresti provare con un controllo picturebox inserito nel  form, e
utilizzarlo per l'output in sostituzione del form,  puoi assegnargli la
dimensione che preferisci e scrollarlo all' interno del form con delle
semplici scrollbar.
Saluti
GC

 GC
Purtroppo l'oggetto PictureBox non ha il metodo Print e la proprietą Font,
ecc.
Ciao, Sauro

 Font, ecc.
Infatti usi l'oggetto rint con gli stessi metodi dell'oggetto Picture.
Ripeto, guarda i vecchi post su google e risolverai tutti i tuoi problemi.
bye


 Font, ecc.
Ehm...

 Purtroppo l'oggetto PictureBox non ha il metodo Print e la proprietą Font,
Ca##o, glie li hanno fregati e nessuno ha detto niente ? =8-O
Battutacce a parte, .Print non appare nell'Intellisense, ma c'č
e con .Font vai tranquillo.
Bye, G.

OK, ho preso una cantonata.
Scusate.
Ciao, Sauro
Newsgroup: it.comp.lang.visual-basic
Titolo: Copiare cartelle e contenuto durante l'installazione

Devo copiare una cartella ed il suo contenuto durante l'installazione di un
applicativo, utilizzando "Creazione guidata pacchetti di installazione" di
VB6 non trovo il modo per farlo.
Qualcuno ha qualche suggerimento?
Ciao e grazie.
Enzo

"Enzo" <e...@liberoANTISPAM.it> ha scritto nel messaggio
news:mBe89.80284$lu5.2...@twister1.libero.it...

Il mio consiglio č semplicemente di usare un programma piů potente
(e carino graficamente) dell'installazione guidata... per esempio prova
Innosetup... sicuramente uno dei migliori:
http://www.innosetup.com
Ciao,
Andrea Fontana
E-Mail: 
tri...@katamail.com
Website: 
http://www.it.owns.it
ICQ Uin: 27799781


C'e' una fase della creazione guidata in cui puoi aggiungere dei files 
al pacchetto. In una fase successiva puoi specificare dove devono essere 
  installati questi files (qualcosa tipo $(AppPath)\tuacartella).
Se i files sono molti e' piuttosto noioso. Io di solito aggiungo i files 
e poi modifico a mano il file Setup.lst.
Come ti e' stato suggerito InnoSetup e' piu' flessibile ed ha piu' opzioni.
ciao
		maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!

Il pacchetto di installazione di VB6 ha molti difetti ma per lo meno a
differenza di Innosetup mi estrae e confeziona tutti i file delle librerie
utilizzate nel progetto senza sapere quali sono.
Se non sbaglio con Innosetup questo lavoro lo devo fare a mano correndo il
rischio di dimenticare qualcosa.
Correggetemi se sbaglio.
Ciao
Enzo
"Enzo" <e...@liberoANTISPAM.it> ha scritto nel messaggio
news:mBe89.80284$lu5.2...@twister1.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Visualizzare una TreeView

Salve a tutti, io ho un piccolo problema devo visualizzare una Treeview 
espansa. Mi spiego meglio, quando visualizzo il form dove č contenuta 
questa treeview essa č ridotta ad una sola riga che poi č il nodo 
principale, io invece ho bisogno di visualizzarla direttamente aperta 
come faccio?
-- 
Posted from 62.110.252.164 by way of 
smtp3.libero.it
 [193.70.192.53] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

come faccio?
Per ogni nodo che crei,
node.expanded = true
;-)
--
--
Elena *DElyMyth* Franco
DEly...@tiscalinet.it
ICQ#: 8761263 - MSN: 
dely...@tiscalinet.it
Yahoo!: delytisc - AIM: DElyMyth
--

 ha scritto nel messaggio
news:GFUBZJ$IUdaPgwYsbBoq_ZrxrIOi1...@libero.it...
Salve a tutti, io ho un piccolo problema devo visualizzare una Treeview
espansa. Mi spiego meglio, quando visualizzo il form dove č contenuta
questa treeview essa č ridotta ad una sola riga che poi č il nodo
principale, io invece ho bisogno di visualizzarla direttamente aperta
come faccio?
vedi la proprietą Expanded
ciao


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

Devo manipolare una riga cioč dividerla in tante piccole parti in modo da
poter gestire le singole parole o frasi.
ESEMPIO
davide:f0,01,msg
uno = Davide
due = f0
tre = 01
quattro = msg
If uno = due then
 msgbox tre
else
 quattro
end if
Grazie in anticipo!!!!

 quattro = msg
Questo codice DA OTTIMIZZARE, DA MIGLIORARE  e forse DA CAMBIARE potrebbe
metterti sulla strada giusta:                           :-)  :-)  :-)
stringa$ = "davide:f0,01,msg"
lungh = Len(stringa$)
Dim uno As String, due As String, tre As String, quattro As String
Dim start As Integer, found As Integer
start = 1
found = InStr(start, stringa$, ":")
    uno = Mid$(stringa$, start, found - 1)
start = found + 1
found = InStr(start, stringa$, ",")
    due = Mid$(stringa$, start, found - start)
start = found + 1
found = InStr(start, stringa$, ",")
    tre = Mid$(stringa$, start, found - start)
start = found + 1
    quattro = Right$(stringa$, lungh - start + 1)
Ciao
Fabio

 metterti sulla strada giusta:                           :-)  :-)  :-)
Non farti venire comlessi...
:-)))
ciao
ugo


Già superati!!!
ieri, mentre passavo sopra il ponte del treno, mi è venuta una tentazione
suicida...
mentre scavalcavo la ringhiera si son detto: "ma che c...o sto facendo ?",
non vale la pena di suicidarsi per...
I DEBITI!!! (figuriamoci per VB)       :-)))))))))))))))))))
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Accesso ad un campo memo di access con rdo

Ciao, 
sapete se esiste qualche controindicazione su aprire un recordset (RDO) 
con una stringa SQL (Semplice Select) per estrarre un campo memo da una 
tabella di access?? 
Mi da errore ma non capisco!! 
grazie 1000 
francesca 
_________________________________________________________________________
Hai perso l'ispirazione? La frase da inviare via SMS te la suggerisce Ciaoweb: 
http://www.ciaoweb.it/sms/public
-- 
Posted from [151.88.109.26] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
news:55f101c0ce35$b1131420$266d5897@ciaoweb...


Non e' che fai un order o un group su quel campo???
ciao
mau_rizio

Newsgroup: it.comp.lang.visual-basic
Titolo: progress bar in una statusbar ? Come ?

domanda, credo, piuttosto banale: č possibile inserire una sorta di progress
bar in una sezione di una status bar ?? Un po' come fa Internet Explorer ?
se sě, come ??
grazie.
--------------------------------
Inviato via 
http://usenet.libero.it


devi mettere una coolbar e su di essa la progressbar o qualsiasi altro
componente, in effetti la coolbar e' solo un contenitore

se sě, come ??
Metti la progress bar sopra la sezione che ti interessa. Mi sembra di
ricordare che devi pero' gestire il resize, comunque non servono altri
ocx oltre ai common controls.
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: compatta database con Access 2000

per compattare un DB tramite VB utilizzo
dbEngine.CompactDatabase(.......)
utilizzando Access 2000 mi genera un errore
da cosa puņ essere dovuto
devo includere qualche libreria ?
ringrazio anticipatamente per l'aiuto
Laura

CompactDatabase OldDb, NewDb ...etc... va benissimo sia con Access97 che
Access2000 ma....
Sei sicura di aver installato Service Pack 4 e DAO 3.6 ?
senza questi (almeno DAO) non potrai accedere al formato Access2000
Un'altra cosina, ma credo che tu ci abbia già pensato: la compattazione dei
db è un processo che lavora in esclusiva. Devi essere certa di non avere
connessioni al database e che nessun processo stia utilizzando il file in
questione.
Spero di essere stato utile. Ciao.
Giubodi

Newsgroup: it.comp.lang.visual-basic
Titolo: Maschere continue in VB6?

Esiste in VB6 qualcosa per ottenere un effetto analogo alle maschere
continue in Access?
Ciao.
Max
--
Posted from [195.110.109.226]
via Mailgate.ORG Server - 
http://www.mailgate.org


Lo sto cercando anch'io...
Se qualcuno sa come fare, lo prego vivamente di farcelo sapere..
Ciao, Gundam

Dovrebbe esistere un controllo che si chiama repeater o qualcosa del genere
(vado a memoria e non l'ho mai usato quindi ... buona fortuna!!)
Daniele Cazzaro




Esiste qualcosa di analogo anche in VB5?
Newsgroup: it.comp.lang.visual-basic
Titolo: WebBrowser e dintorni

Salve a tutti.
Il componente WebBrowser è utilissimo per visualizzare pagine HTML nei
programmi, tuttavia per progettare interfacce web-based avrei necessità almeno
di leggere il contenuto dei form delle pagine.
Esempio: poniamo che nella mia applicazione ci sia un webbrowser che contiene
la seguente pagina:
<HTML>
  <!-- omissis -->
  <BODY>
    <INPUT TYPE=text NAME=testo>
  </BODY>
</HTML>
Come faccio a leggere il contenuto della textbox? A quanto mi è parso di
capire, si accede al contenuto del controllo tramite la proprietà document...
ma come?
Grazie!
---
Lorenzo Novara
E-Mail: 
wiz...@tin.it
Web: 
http://lozware.cjb.net

Non senza fatica ho risolto da solo!!! Il WebBrowser č documentato in piů
posti, ma il modo per accedere al DOM e quindi al contenuto del documento č
maledettamente non documentato. Se qualcuno fosse interessato mi faccia
sapere.
Bye,
Lorenzo


 wrote in message
news:8qls8b$r5m$1...@worldonline.it...


sapere.
veramente c'č fior di documentazione... ma NON per VB

> veramente c'è fior di documentazione... ma NON per VB
questo semplicemente perchè in VB non sono disponibili tutte le interfacce
non so spiegarti bene cosa siano.
cmq di recente l'ho letto su un NG americano, dove uno chiedeva come
disabilitare il menu a tendina (quello del tasto dx) da VB, e gli hanno
detto di usare uno script da mettere nell'HTML, e che se usava VC++ avrebbe
potuto usare diverse tecniche
ciao
xAERO

Viste le diverse richieste che mi sono giunte, pubblico direttamente su NG
quel poco che sono riuscito a scoprire e che è già molto per quanto riguarda
l'accesso al DOM da VB.
La prima cosa che ho scoperto è che oltre a usare il controllo WebBroser,
bisogna referenziare la "Microsoft HTML Object Library" (da
Project->References).
A questo punto bisogna creare un oggetto documento su cui poter lavorare:
nella sezione generale del inseriamo:
Private WithEvents Doc As HTMLDocument
Al completamento del caricamento della pagina nel WebBrowser è generato un
evento DocumentComplete, nel quale si può assegnare all'oggetto di cui sopra
il documento del WebBrowser:
Private Sub WebBrowser_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Set Doc = WebBrowser.Document
End Sub
Ora si può sfruttare proprietà e metodi dell'oggetto HTMLDocument. Ad esempio,
per leggere il valore di un input box di una form al quale è stato assegnato
il nome "pippo":
Dim Element As IHTMLElement
Set Element = Doc.All.Item("pippo")
MsgBox Element.getAttribute("value")
Le possibilità sono tantissime, purtroppo la documentazione è meno che
pessima... a questo proposito bisogna fare affidamento soprattutto su MSDN:
bisogna cercare le proprietà dell'oggetto "document" (lo si trova in
PlatformSDK -> Internet Services -> Dynamic HTML -> DHTML references ->
Objects).
Ovviamente chi va più a fondo ci faccia sapere!!!
Ciao,


Newsgroup: it.comp.lang.visual-basic
Titolo: blocco tastiera con xp w 2000

> con Xp e win 2000 non funziona come posso fare?

>> Buongiorno a tutti, ... eccetera.
Cos'è un copia-incolla di un secondo livello da qualche altra parte del
mondo?
Newsgroup: it.comp.lang.visual-basic
Titolo: Ordinare msflexgrid

Ho VB6.
Mi rifaccio in parte a quello che ha chiesto Alex nel messaggio "--elenchi
ordinati".
Io ho una msflexgrid, vorrei che cliccando su una qualsiasi intestazione di
colonna mi ordinasse la griglia in base a quella colonna.
Il mio problema non è tanto ordinare la griglia (per questo non c'è
problema) ma sapere quando clicco su una specifica intestazione di colonna.
Con Rowsel non "vede" quando clicco sulla riga di intestazione ma soltanto
quando clicco su una riga "interna".
Un problema è anche quello che il tipo di selezione è per riga, quindi
selezionando una cella mi evidenzia tutta la riga e mi prende come Colsel
l'ultima colonna.
Vorrei non cambiare il tipo di griglia che uso e se possibile lasciare anche
la selezione per riga.
Grazie

problema) ma sapere quando clicco su una specifica intestazione di colonna.
proprieta' MouseRow
-- 
hth, hal

Che dire Hal..... sei diventato il mio tutor personale. grazie.

Newsgroup: it.comp.lang.visual-basic
Titolo: Installare Visual Basic 6 senza Microsoft Java Virtual Machine

Ho WinXP SP2 con java sun 1.5.
Avrei bisogno di installare il vecchio Visual Basic 6, solo che durante 
l'installazione vuole a tutti i costi installarmi la Microsoft Java Virtual 
Machine, cosa che io non vorrei mettere. C'è un comando per dire che non la 
voglio? Non ho voglia di sporcare windows con la Micrsoft Java Virtual 
Machine.

 ha scritto nel messaggio
news:mJf9d.85526$35.41...@news4.tin.it...

io ho sempre installato vb6 su win xp ma non mi ha mai chiesto di installare
la JVM
ciao
Marco

Newsgroup: it.comp.lang.visual-basic
Titolo: ide + compilatori free e opensource

Buongiorno a tutti, ho sentito parlare e ho letto di diversi ambienti e
compilatori basic free e opensource. Sapreste consigliarmi quello che
ritenete il migliore e perchè? XBasic, FreeBasic, JustBasic ecc...
Grazie mille, ciao.

 ritenete il migliore e perchč? XBasic, FreeBasic, JustBasic ecc...
se intendi "visual basic", il visual basic e` uno solo.
per gli altri prova sui gruppi appositi, se esistono, oppure su
it.comp.programmare (forse anche it.comp.programmare.win32 se la
piattaforma che ti interessa e` windows).
-- 
ciao, hal

 ha scritto

questo url mi sembra stato postato qui poco tempo fa, mi scuso se non
ricordo da chi. c'e' una bella panoramica:
http://basic.mindteq.com/Index.html
BASIC-LIKE LANGUAGE ALTERNATIVE COMPILERS FOR WINDOWS & LINUX
hth, ciao, a.

 BASIC-LIKE LANGUAGE ALTERNATIVE COMPILERS FOR WINDOWS & LINUX
una bella lista :-)
il problema IMHO e` la completezza degli strumenti, uno stadio di
sviluppo che non sia la solita beta, semplicita` nell' accesso ai
database e la continuita` del supporto, tutte  cose che in ambito
aziendale hanno la loro importanza.
e` pur vero che  con la  discontinuita` inserita da Microsoft con 
.NET comincia effettivamente ad aver senso cercare alternative ad
uno strumento (
vb.net
) che  permette  di rilasciare  applicazioni
esose nelle richieste di risorse hardware - almeno, quelle che ci
hanno consegnato finora mi hanno lasciato una pessima impressione
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: End if dove sei???

Sapreste spiegarmi perchè questa routine funziona anche senza apporre il
secondo END IF ???
Private Sub DisableControls()
Dim ctl As Control
For Each ctl In Controls
    If TypeOf ctl Is Menu Or TypeOf ctl Is Label Then
        ctl.Enabled = True
    Else
        ctl.Enabled = False
    End If
    If TypeOf ctl Is TextBox Or TypeOf ctl Is MaskEdBox _
        Then ctl.BackColor = "&H8000000F"
Next ctl
End Sub
Grazie

         Then ctl.BackColor = "&H8000000F"
E' semplice: l'If è su un'unica riga:  "_ " è un carattere speciale per
andare a capo in un'istruzione.
Quindi non c'é bisogno di End If.
Il carattere di a capo serve perché in VB non c'é un carattere separatore di
istruzioni come ad esempio il ";" in Pascal.
Ciao :-)
DavideD

         Then ctl.BackColor = "&H8000000F"
un IF Then con una sola istruzione non richiede endif

        Then ctl.BackColor = "&H8000000F"


istruzioni come ad esempio il ";" in Pascal.
hum, non esattamente. il "_" c'è perchè VB non è un linguaggio di estrazione
"compilata".
Cioè, Se in C ad es. tu puoi andare a capo senza che lui si inc****i con VB,
essendo "interpretato" una riga alla volta, il compilatore (o interprete)
deve sapere che la riga non finisce lì, ma continua con quella sotto.
Al contrario il ";" dice che la riga è terminata e di non andare avanti che
tanto la roba che segue (anche se è sulla stessa riga) è un'altra
istruzione.
Ciao.
Newsgroup: it.comp.lang.visual-basic
Titolo: Ricerca proprietà - eventi - metodi

E' possibile ricavare, dato un qualsiasi oggetto, l'elenco delle
proprietą-metodi-eventi direttamente da VB o tramite qualche API?
Vorrei confrontare i componenti messi a disposizione da VB6, per esempio ho
6 tipi di bottoni e vorrei poter creare delle tabelle per evidenziarne le
differenze.
Sicuramente un metodo c'č, quello che utilizza il visualizzatore oggetti, ma
su MSDN non ho trovato niente che mi possa aiutare.
Ringrazio anticipatamente chi mi risponderą.


Le funzioni API che probabilmente servono per realizzare quanto sopra
descritto dovrebbero essere contenute in OLEAUT32.DLL e più precisamente :
LoadTypeLib
LoadTypeLibEx
LoadRegTypeLib
GetRecordInfoFromTypeInfo
Nell'API Text Viewer non sono inserite perciò, se qualcuno ha della
documentazione a riguardo o sa dove posso reperirla ne sarò grato.
Saluti
Newsgroup: it.comp.lang.visual-basic
Titolo: RichTextBox trasparente

Come posso fare per avere una richtextbox trasparente, in modo che lo sfondo
del testo non sia quello della proprieta BackColor ma quello direttamente
del form?
Grazie in anticipo...
Tiziano.
-- 
Posted from 
smtp3.libero.it
 [193.70.192.53] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG





Ciao, Prova Con Quanto segue:


 


Componenti:


Form1(Ovviamente)


RichTextBox(TxTInfo)


P.S 


Questa Funzione è Valida sia Per RichTextBox & 
TextBox o Similari


=================================================


Option Explicit


Dim Evento As Boolean


Private Const DT_EDITCONTROL = 
&H2000&
Private Type 
RECT
        Left As 
Long
        Top As 
Long
        Right As 
Long
        Bottom As Long
End 
Type
Private Declare Function BitBlt Lib "gdi32" (ByVal hDCDest As Long, 
ByVal XDest As Long, ByVal YDest As Long, ByVal nWidth As Long, ByVal nHeight As 
Long, ByVal hDCSrc As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop 
As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hWnd As 
Long) As Long
Private Declare Function DrawText Lib "user32" Alias 
"DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, 
lpRect As RECT, ByVal wFormat As Long) As Long


Sub RendiTrasparente(Oggetto As RichTextBox)
Dim 
TempDC As Long
Dim Temp As String
Dim Rif_Oggetto As RECT
Temp = 
Oggetto.Text
Rif_Oggetto.Left = Oggetto.Left
Rif_Oggetto.Top = 
Oggetto.Top
Rif_Oggetto.Right = Rif_Oggetto.Left + 
Oggetto.Width
Rif_Oggetto.Bottom = Rif_Oggetto.Top + 
Oggetto.Height
Oggetto.Parent.Cls
'''''''''''Oggetto.Parent.ForeColor = 
Oggetto.ForeColor ( Questa Riga se vuoi Utilizzare questa funzione anche per una 
TextBox )
Set Oggetto.Parent.Font = Oggetto.Font
DrawText 
Oggetto.Parent.hdc, Temp, Len(Temp), Rif_Oggetto, DT_EDITCONTROL
TempDC = 
GetDC(Oggetto.hWnd)
BitBlt TempDC, 0, 0, Oggetto.Width, Oggetto.Height, 
Oggetto.Parent.hdc, Oggetto.Left, Oggetto.Top, vbSrcCopy


End Sub


 


Private Sub 
SetTransparenza_Click()
RendiTrasparente TXTinfo
Evento = 
True
End Sub


 


Private Sub txtInfo_Change()
If Not Evento 
Then Exit Sub
RendiTrasparente TXTinfo
End Sub


 


Private Sub txtInfo_KeyPress(KeyAscii As 
Integer)
If Not Evento Then Exit 
Sub
RendiTrasparente TXTinfo
End Sub


 


Private Sub txtInfo_MouseMove(Button As Integer, 
Shift As Integer, X As Single, Y As Single)
If Not Evento Then Exit 
Sub
RendiTrasparente TXTinfo
End Sub


 


Fammi Sapere se è quello che volevi.


Ciao.





Ciao, Prova Con Quanto segue:


 


Componenti:


Form1(Ovviamente)( impostare la Propietà 
AutoRedraw=True) IMPORTANTE!!!!



Ciao, Prova Con Quanto segue:
  E tu posti due volte un messaggio lunghissimo in MIME con allegato
HTML? Sei per caso azionista telecom?
  Ciao :-)
  Massimo
  Nell'indirizzo, inserire una "h" tra la "t" e la "u"
  In the address, insert an "h" between the "t" and the "u"
Newsgroup: it.comp.lang.visual-basic
Titolo: maschera realtime in textbox

Salve.
Ho una textbox nella quale devo inserire un "tempo" (hh:mm) di modo
che il programma faccia il conto alla rovescia.
Insomma io metto 01:45 e lui conta alla rovescia per un'ora e tre
quarti.
Ora, quello che mi preme e` fare in modo che l'utente inserisca nella
TextBox le cifre in successione (0145) e automaticamente queste
vengano formattate correttamente (01:45).
Come cavolo posso fare?
Sto provando con:
Private Sub Text1_Change()
Text1.Text = Format(Text1.Text, "hh:mm")
Text1.SelStart = Len(Text1.Text)
End Sub
Sbizzarrendomi con quel Format ma non riesco 
a ottenere quello che voglio.
Help.
--
Peace cannot be kept by force.
It can only be achieved by understanding. A.E.

Prova cosi:
1° soluzione:
- sull'evento LostFocus verifichi che i numeri immessi corrispondino ad
un'ora valida (per farlo guarda le funzioni "DateSerial()" e "IsDate()"),
dopodiche formatti il testo nella cella di testo con la funzione "Format()"
2° soluzione (se non vuoi usare LostFocus):
- mentre l'utente digita, conta quanti caratteri ha inserito (usa "Len()")
- se ha inserito 4 caratteri, verifichi che sia un'ora valida (usa
"IsDate()"), formatti il testo nella cella con "Format()" e il gioco e
fatto.
Ciao.
Mario.
mpara...@easysoftware.it

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Riconoscere le impostazioni dei colori

C'č un modo per adeguare l'aspetto delle proprie finestre alle impostazioni
scelte dall'utente in Pannello di Controllo|Schermo|Aspetto, evitando cosě
di avere frames grigio windows in uno sfondo che, magari, č arancione?


nelle proprietà degli oggetti, scegliendo i colori, puoi scegliere tra
colori di sistema
e colori "fissi"... basta sceglierne uno di sistema!!
Ciao
Enrico

Newsgroup: it.comp.lang.visual-basic
Titolo: ..è vero che è già uscita la versione beta VB4?

!? 

Cerchi un Commodor64,
chiedi se è uscita la versione beta del VB4...
siamo nel 2006!
8-)
-- 
---------------------------
Mauro Gamberini 

 !?
E' uscita ormai da anni la RTM :P
Bye,
-- 
Carmine ( 
pikachu...@gmail.com
 (Togli la scritta NOSPAM) )
NUOVISSIMO SITO!!! The Total Site 4 : 
http://www.thetotalsite.it
MariokartDS Codice Amico: 532639027909 - CarmineC in MarioKartDS
Newsgroup: it.comp.lang.visual-basic
Titolo: combo box gratuito con check

ho assolutamente bisogno di un combobox (freeware) che abbia la possibilita
di visualizzare un checkbox accanto ai suoi elementi... e il combo del VB
non puo farlo...
non parlatemi del NowCombo, perche (non so come, ma) non funziona... nel
senso che non riesco a registrarlo...
grazie
Mario

non puo farlo...
Il combo no, ma il listbox si' (Style = 1 - checked).
Btw, non mi sembra che abbiano molto senso le checkbox sui combo.
Mi sembra un' interfaccia utente di dubbia efficacia :-(
-- 
ciao, hal


lo so, ma a me serve un qualcosa che in certi casi se ne stia buona buona,
come il combobox, e, quando ne ho bisogno, che si espanda mostrabdomi una
serie di dati, alcuni checkati e altri no...
con il list, non ho questa possibilita. i dati checkati e non me li devo
passare uno a uno, u due a due, a seconda della altezza del listbox.
Mario

passare uno a uno, u due a due, a seconda della altezza del listbox.
Basta un po' di fantasia:
in un form metti un textbox, un command button ed una listbox (con stile = checked).
E' un esempio grezzo, sviluppato in cinque minuti, ma spero dia l' idea:
Option Explicit
Private Sub Command1_Click()
    ShowList
End Sub
Private Sub Form_Load()
    Dim d As Long, w As Long
    d = 30
    w = 250
    Text1.Move 100, 100, 3200, 290
    Command1.TabStop = False
    Command1.Caption = "+"
    Command1.Move Text1.Left + Text1.Width - w - d, Text1.Top + d, w, Text1.Height - (d * 2)
    Command1.ZOrder 0
    List1.Move Text1.Left, Text1.Top + Text1.Height, Text1.Width
    List1.Visible = False
End Sub
Private Sub List1_KeyUp(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case vbKeyReturn
        If (Shift = 0) Then
            SetValue
        End If
    Case vbKeyEscape
        List1.Visible = False
    End Select
End Sub
Private Sub List1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    SetValue
End Sub
Private Sub SetValue()
    Text1.Text = List1.Text
    List1.Visible = False
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
    If (KeyCode = vbKeyDown) Then
        If (Shift = 0) Then
            ShowList
        End If
    End If
End Sub
Private Sub ShowList()
    List1.Visible = True
    List1.SetFocus
End Sub
-- 
hth, hal

 wrote in message
9vj57s$fns7k$1...@ID-56381.news.dfncis.de...
uhm... interessante... grazie mille per l'idea...
Mario
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] BMP -> ICO

Ciao a tutti!
Sapete forse come si potrebbe fare per convertire una bitmap (ovviamente di dimensioni adatte) in un'icona?
Perché il semplice SavePicture crea Bitmap con estensione Ico (io ho provato a mettere nella proprietà .Icon di una form
un'icona così generata di 1280x1024 24 bit, ma non so perché non ha funzionato... ^____^ )
Ciao a tutti e grazie,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

un'icona così generata di 1280x1024 24 bit, ma non so perché non ha
funzionato... ^____^ )
Il metodo savepicture salva un'immagine nel formato in cui viene inserita
nel controllo.
Se ad esempio fai:
Private Sub Command1_Click()
    Picture1.Picture = Icon
    SavePicture Picture1.Picture, "C:\pippo.ico"
End Sub
Questo ti salverà un'icona 32*32*16 colori
Ma se disegni sulla picture e poi salvi ti viene salvata una bitmap 24bit.
Perchè? Perchè M$ non ha messo la possibilità di scegliere.
Se vuoi però ti posso inviare il formato in cui sono salvate le icone, così
ti diverti un po' con i files binari :)
Ciao.

 (togliete "#" dall'indirizzo)
Le icone sono file bitmap, codificazione RGB, che hanno estensione .ICO,
e fin qui non ci piove.
Quel che non tutti sanno è che la bitmap in questione deve avere le
seguenti caratteristiche:
Risoluzione:             Colori:
8x8                      8
16x16                    16
32x32                    256
Una qualsiasi combinazione è valida e l'icona viene riconosciuta da
Windows e da VB. Le icone dei form (e tutte quelle piccole) sono di 8x8.
In ogni caso esistono parecchi convertitori e editor (anche Freeware)
che fanno al caso tuo, reperibili tranquillamente in in Rete.

Newsgroup: it.comp.lang.visual-basic
Titolo: Esiste un BEL tutorial su ADO 2

Ciao, 
Esiste qualche Sito in questa immensa rete che tratta in modo
approfondito il nuovo ADO 2.
Grazie
fabi...@hotmail.com

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal Report non stampa (solo dal cliente !!!)

Spero che qualcuno di voi possa e voglia aiutarmi.
Ho un problema con le stampe in orizzontale da VB
Utilizzo Crystal Report, il file .rpt č stato salvato con formato LANDSCAPE
e con le prove fatte in ufficio fila tutto come l'olio
mentre dal cliente  la stampa va in coda, il led della stampante
lampeggia ma poi scompare la stampa .
Altre report verticali vengono stampati quindi le stampanti del cliente
sembrano
a posto.
Aiuto !!!
Io le ho provate un po' tutte ma accetto volentieri suggerimenti

 Utilizzo Crystal Report, il file .rpt è stato salvato con formato


Spero di essere stato chiaro. Ciao!
per niente !, nel menu file - imposta posso sceglere una stampante tra
quelle disponibili, come faccio a digli usa quella di default ?
Ciao 

a posto.
Ho lo stesso problema, se la stamoa non coincide con il formato di
carta non viene eseguita. Hai gia risolto  ?
Io ho notato che se non metti nessun parametro i stampa gestosce bene
l'orientamento ma non puoi piu cambiare stampante. 
Fammi una repli anche in email 
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: atroce problema

salve a tutti,
ho un gran problema...nel mio programma ho una matrice contenti quindici
numero da 1 a 15. il problema sorge quando devo eliminare per esempio quello
nella decima posizione..come possso fare?
c'è una qualche funzione in visual basic?
grazie

Newsgroup: it.comp.lang.visual-basic
Titolo: Database su Web

Ciao a tutti
Dopo un po' di prove sono riuscito a creare con RDS un componente DLL
ActiveX da utilizzare in locale o in remoto per l' accesso ad un DB.
Se istanzio l'oggetto sul client utilizzando DCOM (in un server in LAN) o in
locale (in-process) tutto funziona a meraviglia.
Se invece cerco di usare HTTP (sia in intranet che in internet) per
istanziare il componente da un server Web mi trovo questi problemi :
il componente si avvia e riesco ad utilizzare i suoi metodi, ma se cerco di
impostare qualche proprieta' mi viene restituito un errore di "proprieta
dell' oggetto non supportata o non esistente". Inoltre le variabili
dichiarate a livello di componente non funzionano piu' e non mantengono i
valori.
Ho provato sia su server WEB IIS-4 su winNT server con MTS, sia sul IIS-5 di
win2000 server, ma il risultato e' lo stesso.
Il componente sul server e' regolarmente registrato anche nella chiave
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W3SVC\Parameters\ADCLau
nch   (...infatti si avvia )
Ho provato a cercare documentazione sia su MSDN che nell'help di IIS ma non
sono riuscito a trovare risposta.
Qualcuno sa aiutarmi ?
Ciao a tutti.

 ha scritto nel messaggio
news:u0p_7.42481$s04.1...@news.infostrada.it...

Prova a vedere sul sito comune l'articolo di Moreno Sirri:
http://www.it-lang-vb.net/download.asp?file=Documentazione/Articoli/DBRemoto
.htm&ID=405
Ciao
--
Timothy Redaelli

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

Salve a tutto il NG!
    Vorrei sapere se ci sono, in giro per il web, programmi in grado di
scattare foto ogni tot secondi e successivamente salvarle con la WebCam.
Tempo fa ho chiesto al newsgroup se sapesse indicarmi come creare
un'applicazione che sia in grado di acquisire immagini con la Cam, ma
nessuno mi ha saputo rispondere...quindi se non posso fare l'applicazione
tanto vale cercarla (se esiste!).
Ruben Elmo
--------------------------------------------------------------------
Un hobby, una professione: l'astronomia
In chat    starinthe
HP:        
http://digilander.iol.it/starinthesky84
Email:     
starint...@libero.it
                 C  R  A  B  nebula
Centro Ricerche Astronomiche di Brindisi
HP:         
www.crabnebula.net
Email:      
in...@crabnebula.net
--------------------------------------------------------------------

 ha scritto nel messaggio
news:Pfc97.26981$0Z1.1...@news.infostrada.it...


 tanto vale cercarla (se esiste!).
ruben, scusa, non avevo visto il post.
http://www.gbcweb.com
 ---> files
ciao, a.
Newsgroup: it.comp.lang.visual-basic
Titolo: funzionamento dll

Buongiorno a tutti,
supponiamo di avere il programma visual-basic A che fa uso della dll X nella
directory di sistema. Supponiamo che venga poi installato un altro programma
visual-basic B in c:\progB. In c:\progB vengono installati anche tutti i
componenti (dll, ocx,...) che servono per il funzionamento di B, fra cui anche
la dll X.
Supponiamo che l'utente lanci sia A che B. Quale dll X verrà usata dai due
programmi, quella nella directory di sistema o quella in c:\progB?
Cambia qualcosa nel caso in cui X sia una dll registrata?
Cosa succede se la dll X installata in c:\progB, è una versione differente di
quella installata nella directory di sistema (A potrebbe non funzionare più)?
Grazie,
Nicola.
-- 
Posted from  [213.45.101.230] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 quella installata nella directory di sistema (A potrebbe non funzionare
più)?
Se non sbaglio .. non puoi registrare 2 dll con lo stesso nome nella stessa
macchina.
Se fosse possibile, immagino che solo l'ultima registrata verrà utilizzata.
Mi viene però il dubbio .. 2 programmi creano 2 dll diverse ma con lo stesso
nome .. che succede ?
Bah ..
Saluti

 nome .. che succede ?
č valido solo un identificativo interno (non il nome del file) che ,tramite
un apposito algoritmo , č diverso da tutti gli altri
( se guardi nelle pagine html che fanno uso di activex vedrai la forma di
questo identificativo).
ciao
--
-------
sito: 
www.dadev.it
ultime: Ocx per irc testi freeware
-------

 ha scritto nel messaggio
news:558ac4af547ba11f76e...@mygate.mailgate.org...



Non esattamente...
Se le DLL espongono gli stessi 'nomi' e il collegamento all'oggetto e'
tardivo (late binding) allora il programma meno recentemente installato
funzionera' solo se le due DLL sono compatibili (il che non significa
necessariamente compilate in proprieta' binaria, basta che espongano metodi
e proprieta' con gli stessi nomi e gli stessi parametri), altrimenti avrai
un errore da parte del programma che cerca di utilizzare un'interfaccia che
non esiste.
Se le due DLL non sono state compilate in compatibilita' binaria, i
programmi in early binding che usano la prima faranno ancora riferimento
alla prima, dato che le CLSID degli oggetti saranno diverse, creando
opportunamente gli oggetti ed utilizzandoli, dato che non si basano sui nomi
delle funzioni ma direttamente sulla 'memoria' delle vtable, ma preparati a
un colossale casino su eventuali programmi misti, che potrebbero funzionare
a meta' o avere comportamenti del tutto anomali.
Benvenuto nel DLL Hell...
Ciaotutti,
*

 non esiste.
...
-- 
Posted from  [194.243.32.20] 


 Nicola.
Netiquette: si risponde SOTTO.
Direi che l'MSDN dovrebbe essere un buon punto di partenza... Studiati i
principi di OLE e COM, che sono quanto ti serve a capire cosa sia (secondo
MS negli anni 90) una classe, un'interfaccia, un oggetto ed in generale come
funziona VB (che e' interamente COM-based).
Se hai una vecchia MSDN dovrebbe esserci HardCore VB che non fa mai male
(non ricordo quanto tratti specificamente questo problema ma nel calderone
c'e' di tutto).
Ciaotutti,
*
Newsgroup: it.comp.lang.visual-basic
Titolo: PROBLEMI CON MULTITHREAD

Ho scritto una applicazione basata sull'esempio di Philipp Weidmann
per la gestione del multithread in visual basic.
Purtroppo uno dei thread usa la porta seriale, e quando è attivo insieme
agli altri
non invia correttamente il pacchetto (verso un microprocessore esterno)
Come posso risolvere il mio problema ?
Grazie a chi mi aiuterà

 wrote in message
9s45ep$vec$1...@pegasus.tiscalinet.it...

Dubito che il problema risieda nel MultiThread.
Se quella seriale viene aperta e gestita SOLO da un thread non devono
esserci problemi.
Assicurati che solo 1 thread gestisca in toto la seriale, Solo 1 thread deve
leggere e scrivere su di essa.
Ciao
Ettore Maronese
il Mes
Newsgroup: it.comp.lang.visual-basic
Titolo: File audio!

come faccio senza utilizzare nessun ocx a far emettere un file audio?
Grazie a chiunque abbia la pazienza di rispondermi ^___^

 come faccio senza utilizzare nessun ocx a far emettere un file audio?
Usa l'API sndPlaySound
ciao
---------------------------------------------------------
             ASSA
http://assatarram.yohoo.it
Bookmark download:
http://www.redangel.it/beta_zone/Click_p.asp?ID_P=19
Napster: Assatarram3
---------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Misteri del dbgrid

Sto sviluppando un gestionale.  Sono alle prese con le fatture e le
rispettive righe.
Ho 2 tabelle ( Dati relativi alla testa della fattura,  Dati relativi alle
singole righe ) in un file .mdb collegate tra loro tramite l'id della
fattura.
Nel mio form ho visualizzate le righe in una DBGrid con recordsource una
query, aggiornata dal
repository della testa cosi' scritta.
"select * from righefattura where rigaNfatt = " & Testa_fattura.recordset!ID
Come cambio fattura tramite il controllo data, mi viene refreshato ( voce
del verbo refresh ) il
DB Grid.
I problemi nascono quando effettuo delle modifiche nelle righe cioe' :
Inserisco il codice del prodotto nella prima riga, la descrizione e la
quantita'.
Faccio freccia in giu e inserisco i dati della seconda riga.
Mi accorgo che ho errato un dato nella prima riga, quindi faccio freccia in
su e .....
Il cursore sparisce.  Premo un tasto e lo ritrovo nel campo subito sopra a
dove mi trovavo prima.
Premo un carattere e il dbgrid fa uno scroll verso il basso.
La Prima riga diventa seconda,  la seconda terza e ho una riga completamente
vuota all'inizio.
Scrivo qualcosa nel campo,  aggiorno il database facendo un update della
testa e quindi un repository delle righe e la prima riga sparisce,  e la
seconda e terza riga diventano uguali ?????.
Ho notato che se aggiungo all' evento onaddnew del dbgrid un refresh dei
dati,  tutto cio' non succede.  Il problema e' che mi ritrovo nella 1' riga,
1' colonna del dbgrid.
Qualcuno ha mai riscontrato un problema del genere ?
Esiste un modo per riposizionarsi esattamente nella riga/colonna di prima ?
Posso risolvere il mio problema senza effettuare un refresh ?
Importante:  All' evento Righe_aftercoledit,  assegno al campo contentente
il numero di fattura, il numero di fattura preso dalla testa, per mantenere
un'abbinamento della riga con la testa della fattura.
Una cosa particolare e' che se utilizzo il controllo data per spostarmi da
una riga ad un' altra, mi posso solamente spostare tra la riga 2 e la tre
.....

Hai provato a chiamare i Ghostbusters??????? :-)))))))
A parte gli scherzi, prova a leggere qualcosina sui Bookmark nella guida in linea.
Mi spiace se ora non riesco a risponderti più dettagliatamente:ma sono indaffaratissimo se non riesci a risolvere ci
darò un'occhiata tra qualche gg; ho anch'io avuto qualche problemino simile (ripeto, simile....) qualche tempo fa:
semmai do' un'occhiata al codice...
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

...


Eureka !!!! Sembra che ho risolto. :-)
E' bastato agiungere un
  datirighe.recordset.moveprevious
  datirighe.recordset.movenext
all' evento dbgrid1_afterUpdate()
Roba da non crederci......
Newsgroup: it.comp.lang.visual-basic
Titolo: ---------PAGHI TROPPO LA BOLLETTA LEGGI

Senza togliere nulla a Lapo Tanzi, che sono certo agisca in buona fede, anche se estremamente, ma proprio estremamente
OT, se volete un consiglio, evitate tali siti e forme di guadagno "facili":
è tutto vero quello che è stato detto, ma conosco più di una persona che ha avuto seri problemi dopo aver aderito ad
iniziative del genere: non so esattamente come funziona la cosa sotto l'aspetto tecnico, ma vi posso assicurare che a
tre miei conoscenti che hanno aderito al servizio, è stata sniffata la password di accesso all'ISP, cambiata e di
conseguenza derubati dell'accesso ad internet.... un caso? oppure, dal momento che sono in comunicazione diretta con
voi, riescono a fare qualcosa di più che non inviare un semplice banner?
In ogni caso, giusto per la cronaca, una telefonata all'ISP, con successivo invio di documento d'identità e fotocopia
del contratto hanno permesso a tutte e tre le persone di riavere il loro accesso.
Scusate per il post,
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

 wrote in message
37570417...@news2.tin.it...


a proposito.....
io l'avevo sottoscritto sto servizio.... perņ dopo aver accumulato appena
5000 lire mi ero gią stufato di riavviare 5 volte al giorno il PC. Gią
perchč quel banner mi si bloccava e mi bloccava altre applicazioni e quando
le cose vanno male io di solito resetto... se poi insiste formatto di brutto
;-))
ciao Davide
NB
se qualcuno mi sniffa l'ISP sono pronto a formattargli tutto !!! anche il
modem ehehehehhehe

E' veramente triste che ci sia ancora in giro gente che sogni di poter
guadagnare senza lavorare :-(
Ciao.Alberto.

...



bruttina come risposta..... soprattutto perchč nasconde una sorte di
commiserazione che non č stata richiesta. Spero non fosse diretto a me quel
messaggio :-))
Ad ogni modo ti informo che ci sono tanti modi per guadagnare senza lavorare
(vedi ad esempio i Multilivello -ma solo per i livelli piů alti-) e quel
banner poteva essere un comodo modo per risparmiare non certo per
guadagnare.
saluti
Newsgroup: it.comp.lang.visual-basic
Titolo: jet

ciao
devo allegare al pacchetto di distribuzione sia MDAC, JET
quale versione mi consigliate?
io ho trovato MDAC 2.7 sp1  e jet 4 sp3, ma ho visto che di jet ce ne sono
altre
ciao e grazie
ilario

 altre
Personalmente uso il jet (4, corrispondente a DAO 3.6) che viene
automaticamente incluso nel pacchetto, non ho idea di quale versione sia.
MDAC (2.7 refresh) lo lascio fuori e lo metto su un CD e, se uso ADO, lo
installo da solo e prima di ogni cosa.
Volendo tenere separato anche Jet, installa nell'ordine MDAC, Jet e il tuo
Setup.

 jet ce ne sono altre
Vanno benissimo.
Un link per info:
www.geocities.com/lokar78/DistribuireApplicazioniADO.htm
hth,
Lokar
-- 
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
Statuto: 
http://www.it-lang-vb.net/docs/Statuto.txt
UGIdotNET - 
http://www.ugidotnet.org

 ha scritto nel messaggio
news:bc9soh$2nr$1...@lacerta.tiscalinet.it...
grazie mille
ilairo

Newsgroup: it.comp.lang.visual-basic
Titolo: Aggiornare Winsock

Salve a tutti,
ho realizzato un'applicazione con VB 6 in cui uso WinSock per leggere il
LocalIP del computer in cui è in funzione.
Avrei la necessità di leggere questo dato ogni secondo per cui ho usato un
Timer che ogni secondo mi comunica il valore di WinSock.LocalIP
Mi sono accorto però che ripete continuamente lo stesso IP anche se in
realtà è cambiato. Mi dà l'indirizzo esatto solo quando lancio l'esecuzione
del programma.
Come posso aggiornare realmente il LocalIP.
Grazie 1000.
Andre@


Se apri una sessione Winsock per leggere i parametri correnti,
occorre che tu la chiuda per poter aggiornare i valori in una
successiva lettura. Durante una sessione, i parametri sono sempre
i medesimi. Questo vale in particolar modo se stai monitorando
connessioni RAS o DUN a Internet provider diversi.


Ok, ma come faccio a chiudere la sessione di WinSock e aprirne un'altra?
Grazie 1000.
Andre@

Newsgroup: it.comp.lang.visual-basic
Titolo: LogonUser e CreateProcessAsUser

Vorrei usare queste api per lanciare un applicazione (sotto NT) con dei 
particolari diritti di accesso. Sapete come funzionano, o fatto dei test 
ma LogonUser fallisce sempre.
Grazie!
Nephilim

 ma LogonUser fallisce sempre.
Si, ma cosa restituisce LogonUser ?
Se è ERROR_PRIVILEGE_NOT_HELD, il tuo processo
non ha provilegi sufficienti per ottenere un Token.
Tieni presente che in genere la funzione viene usata dai servizi.
Vedi se la tua chiamata assomiglia a:
[Risposta] = LogonUser(
                    [UserName], _
                    [Domain], _
                    [Password], _
                    LOGON32_LOGON_INTERACTIVE,
                    LOGON32_PROVIDER_DEFAULT,
                    hToken)
Newsgroup: it.comp.lang.visual-basic
Titolo: Estrarre Path da Common Dialog

Ciao a tutti,
mi trovo di fronte ad un problema che non riesco a risolvere:
Aprendo un file utilizzando il controllo commondialog
la proprietŕ .FileName dell'oggetto mi restituisce il nome
e il percorso del file Es: C:\MiaDir\MioFile.Txt
E' possibile estrarre da questa stringa solo il path di directory?
..e cioč C:\MiaDir\
Grazie a tutti
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ..e cioč C:\MiaDir\
Direi che Left$(.FileName, InstrRev(.FileName,"\")) dovrebbe funzionare.
Fatto salvo il caso di percorsi con la barra normale anzichč retroversa.
Ciao
Alberto
-- 
E tutto mi sembrava andasse bene... 

 Alberto
Grazie infinite...non ho provato ma ti ringrazio in anticipo!
Ciauz

Newsgroup: it.comp.lang.visual-basic
Titolo: ? DbGrid e text box

Ho realizzato un semplice programma che dati 2 database excel li confronta
l'uno con l'altro, ed appena trovato il record che gli interessa, scrive un
dato del 1° database nel secondo.
Il tutto si svolge all'interno di cun ciclo for - next
Io gli ho scritto che vorrei appena trova il primo record un messaggio in
una text box
ma lui non mi scrive nulla a meno che il programma non abbia terminato la
sua ricerca.
Sembra come se la ricerca fosse talmente veloce da non avere il tempo di
scrivere il messaggio nella text box.
Forse non sarò stato chiaro,.. ma vi prego non fucilatemi.... è la mia prima
applicazione.
Grazie in anticipo.
c.r...@isnet.it

Dopo le tue istruzioni prova a fare: text1.refresh
Se proprio non basta inserisci  anche un Doevents.
Ciao Marco.
-- 
Remove xxx from E-mail.
Newsgroup: it.comp.lang.visual-basic
Titolo: ADO, filtrare record con Filter

Ciao a tutti ragazzi.
Sto provando a filtrare alcuni record con la proprietà filter di un
recordeset ADO.
Quello che vorrei fare io è però una specie di... "filtraggio annidato" (non
conosco il termine esatto).
Cioè: ho una tabella con tre campi: Nome, Cognome, Citta. Contiene tre
record.
NOME    COGNOME    CITTA
----------------------------------
Maria                                Roma
Maura                               Milano
Giulia                                Roma
Se filtro il recordset, in base al criterio "Nome LIKE 'Ma%'", correttamente
mi restituisce i primi due record.
Ora vorrei che, effettuando un successivo "filtraggio" scegliendo come città
"Roma",  mi restituisse solo Maria, poichè deve "filtrare" all'interno del
nuovo recordset, che contiene solo due record.
Ecco il mio codice:
*****************
Public Sub FilterX(strCampo As String)
    ' Data1 è un mio controllo ADODC che uso con una TrueDBGrid
    Set Data1.Recordset = FilterField(Data1.Recordset , strCampo,
Trim(txtTestoric.Text))
End Sub
Public Function FilterField(rstTemp As ADODB.Recordset, strField As String,
strFilter As String) As ADODB.Recordset
    ' In base al su criterio di scelta costruisco il filtro...
    If optOption1.Value = True Then
        rstTemp.Filter = strField & " LIKE '" & strFilter & "%'"
    Else
        rstTemp.Filter = strField & " = '" & strFilter & "'"
    End If
    Set FilterField = rstTemp
End Function
****************
Il codice è preso dall'esempio fornito con la guida ad ADO, e l'ho adattato.
Purtroppo il secondo filtraggio, come risultato mi restituisce non un solo
record (maria), ma due, cioè anche Giulia, che ha Citta = Roma.
E come se riapplicasse il filtro non al nuovo recordset avente due record,
ma al recordset originale che ne ha 3...
Con DAO invece funzionava... potevo generare "filtraggi annidati"...
Da cosa può dipendere???
Devo usare un recordset aperto in modo speciale, e poi riassegnarlo al
controllo Data1???
Effetuare una query di selezione con i criteri mi permette di generare un
solo livello di filtraggio... se volessi filtrare ulteriormente, credo che
dovrei creare la mia stringa usata per la query in modo un pò macchinoso,
ricordandomi ogni volta i precedenti criteri di ricerca...
Grazie a tutti.
Ciao e Buon Anno :)

Ciao Guido,
Credo che dovrai ricostruire la stringa di filtro con tutti i criteri (anche
io tuttora faccio così - ma questo non vuol dire molto..:-)).
Ricorda però che i criteri precedenti ce li hai nella proprietà Filter,
quindi potresti avere .Filter = .Filter & " AND " & ...
Ciao
Franco

 ha scritto nel messaggio
news:92vf7b$af6$3...@nread1.inwind.it...
