mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Creazione di un index nel combo e richiamo di una voce

Allora ho una combo (dropdownlist) che popolo da un database e ad ogni 
elemento associo come indice il suo id (contatore).
Combo3.AddItem ("" & rs("desc").Value)
Combo3.ItemData(Combo3.NewIndex) = rs("id").Value
Esempio
ID                    DESC
1                       PIPPO
2                       PLUTO
5                       TOPOLINO
ora vorrei richiamare da codice l'id numero 5
ossia vorrei che nella combo venisse scritto topolino
Come posso fare
Grazie
IAK 

 Come posso fare
Credimi, un bel punto interrogativo, alla fine di una frase, puņ aiutare
moltissimo :-)
Mi sa che ti tocca fare un ciclo su tutti gli elementi del combo, quando
hai trovato quello che ti interessa lo selezioni.
-- 
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

 hai trovato quello che ti interessa lo selezioni.
Se sono ordinati si potrebbe fare una ricerca Binaria o Dicotomica (non
ricordo come si chiamava, l'ho fatta a scuola anni fa, quella che guarda la
prima metà ecc.) per dimezzare i tempi

Newsgroup: it.comp.lang.visual-basic
Titolo: Centrare picture

Non ricordo come centrare una picture usata come
sfondo per una form.
Grazie.
_____________________________________________
James Tiberius Kirk, matricola SC 937-076 CEC
  Nato a Riverside, nello Iowa, USA, Terra
            il 1277.1 (26/03/2233)

 ha scritto nel messaggio
news:8trnj3$sdh$1...@nslave2.tin.it...


 ha scritto nel messaggio
news:x8SNENN...@newsmst.mcis.galactica.it...


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

Salve a tutti, vorrei usare il sistema di VBS per la gestione dei file, 
ma in vb6 non mi riesce non risco a creare l'oggetto FileSystem, c'è dei 
riferimenti che devo aggiungere ????
e poi esiste un canale su mIRC o ICQ dove viene trattato l'argomento vb e 
il server quale è ??
Ciao a tutti e grazie....
Marco S.

, 
s_m...@usa.net
 says...

Scusate ho capito dove sbagliavo !!!!

il server quale è ??
Non saprei

Newsgroup: it.comp.lang.visual-basic
Titolo: somma di una colonna

Ciao
Scusate ho un problema e vorrei Chiedervi aiuto.
Ho una file mdb  e vorrei sommare una colonna dove ci sono importi.
( es: prodotto    costo
        latte            100
        burro            10
        totale           110
In access so come fare ma non so come fare con vb.
Ho già connesso il file database ma non so dichiarare select per ricavare il
totale della colonna costo.
Questo è il codice x la connessione:
Dim DB As Database
Dim RS As Recordset
Dim Query As String
Set DB = OpenDatabase("c:\documenti\prodotti.mdb")
Query = "SELECT ???????
label1.caption = ?


Query = "SELECT SUM(costo) AS Totale FROM nometabella"
set rs = db.openrecordset(query, dbopensnapshot)
label1.caption = rs.fields(Totale).value
...o qualcosa del genere
Marco

 ha scritto nel messaggio
news:8rar7q$l2f$1...@lacerta.tiscalinet.it...



Set RS = DB.OpenRecordset("SELECT SUM(COSTO) AS TOTALE FROM
TABELLA",adOpenDynaset)
Label1.Caption = RS!TOTALE
Ciao
Sergio

ho provato il codice qui sotto con:
- Database Access97 Prodotti.mdb con tabella Articoli
- VB6 SP3 refernziando DAO 3.5
e tutto funziona...
Dim DB As Database
Dim RS As Recordset
Dim Query As String
Set DB = OpenDatabase("c:\documenti\prodotti.mdb")
Query = "SELECT SUM(costo) AS Totale FROM Articoli"
Set RS = DB.openrecordset(Query, dbopensnapshot)
Label1.Caption = RS.fields("Totale").Value
RS.Close
DB.Close
Set RS = Nothing
Set DB = Nothing
Newsgroup: it.comp.lang.visual-basic
Titolo: Creazione DLL in C e utilizzo in VB5

Ho la necessita' di compilare come DLL una serie di funzioni scritte in C
per poi essere utilizzate da un programma VB5. Il problema e' che queste
funzioni utilizzano al loro interno un file, aperto e poi letto con
successive chiamate alle funzioni della DLL, in un modo simile all'esempio
di seguito (semplificato al massimo):
FILE *f;
int myApri()
{
	f = fopen( "nome_file", "r" );
	if (f==NULL) 
		return 0;
	else
		return 1;
}
int myLeggi()
{
	fscanf(f,"%d",&i);
	return i;
}
Tutti i miei tentativi di creare una DLL e di farla usare a VB5 si sono
trasformati in un crash dell'ambiente VB.
Ogni suggerimento e' gradito ............
Grazie

 successive chiamate alle funzioni della DLL
<snip>
Le funzioni che hai definito sono OK.
Ricorda solo che le funzioni nelle dll devono essere dichiarate WINAPI,
quindi devi trasformare la dichiarazione della funzione
int MyLeggi()
	in
int WINAPI MyLeggi()
e cosi' via anche per le altre, e definire nel file def le funzioni che
vuoi esportare.
Per migliori informazioni anche sul passaggio dei parametri puoi leggerti
il documento VB5DLL.doc che sta sul disco di VB5.
Valentino.

 Grazie
L'impressione e' che se chiami myApri da Vb e successivamente myLeggi,
come fa la
DLL a "ricordarsi" f? Se non e' troppo complicato potresti crearti un
Automation
OLE, tipo un oggetto myFileReader con metodi del tipo:
OpenFile(nomefile), Read(), GoTop()
e proprieta' tipo Eof etc. In questo modo crei l'oggetto myFileReader in
VB
e tutto, compreso f, sta li dentro, e fintanto che l'oggetto e'
instanziato
tutto funziona. Io ho fatto cosi' e va benone.
-- 
Cristiano Corsani
e-Mail: 
cris...@dsi.unifi.it
www: 
http://dsi2.dsi.unifi.it/~cristian/
Newsgroup: it.comp.lang.visual-basic
Titolo: lettore di badge in rs232

secondo voi come ascolto la seriale per il passaggio di carte magnetiche in
un lettore di badge in collegamento rs232?
Grazie a tutti, per le vostre dritte.

 magnetiche in un lettore di badge in collegamento rs232?
Controllo MSComm, imposti le caratteristiche della seriale (velocità,
parità, dati, stop, handshaking) secondo le specifiche del fornitore, poi
abbassi RThreshold a 1, apri la porta e aspetti l'evento On_Comm.
E lì appendi i caratteri ricevuti al buffer di tipo String che poi ti
gestirai a piacimento.
Ciao
Alberto
--
E non so se avrò gli amici a farmi il coro,
o se avrò soltanto volti sconosciuti,
canterò le mie canzoni a tutti loro
e alla fine della strada
potrò dire che i miei giorni li ho vissuti...

 Ciao
grandioso!

Newsgroup: it.comp.lang.visual-basic
Titolo: Estrarre variabili da una stringa

Ciao a tutti! Ho una stringa del tipo "0 ciao 20 45 90 0 192"
Vorrei estrarre una variabile per ogni numero, esempio:
nr = 0
str = ciao
time = 20
pippo = 45
e cosě via; come posso fare?
Grazie in anticipo! 

"CiSbAcK" <slo...@SPAMsupereva.it> wrote in message
news:44d8578e$0$30234$
4faf...@reader1.news.tin.it

Beh, se sai la posizione di ogni pezzett, ti basta usare la Mid$().
Altrimenti, se tra ogni coppia di valori c'e' sempre lo stesso
separatore, con la Split() ti crei un array, e poi assegni alle tue
variabili i singoli elementi dell'array.
Bye by SixaM 8-]
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 e così via; come posso fare?
Partiamo dal presupposto che non puoi "creare" a run-time della variabili 
non precedentemente definite.
Pertanto, dovrai affidarti ad un array.
Se poi devi estrarre SOLO i valori numerici, il sistema più veloce è 
quello di utilizzare una regular expression (vedi google per i dettagli), 
altrimenti, nel caso ti interessino tutti i token presenti nella stringa 
puoi utilizzare una banale Split utilizzando lo "spazio" come 
delimitatore.
Ciao
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca

Newsgroup: it.comp.lang.visual-basic
Titolo: guardare dentro una DLL

Esiste un modo per guardare "dentro" una dll per scoprire metodi, eventi, 
proprieta...  senza passare per l'object navigator di VB6? 

 eventi, proprieta...  senza passare per l'object navigator di VB6?
Ci ho messo un po' a trovarlo, ma ricordavo di averlo letto su MSDN 
Magazine :)))
"Visual Basic: Inspect COM Components Using the TypeLib Information Object 
Library"
http://msdn.microsoft.com/msdnmag/issues/1200/TypeLib/
"FILE: Tlbinf32.exe : Help Files for Tlbinf32.dll"
http://support.microsoft.com/?kbid=224331
Ciao!
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca
Newsgroup: it.comp.lang.visual-basic
Titolo: Mi rispondete, per cortesia....

Salve, ho un grosso problema:
 ho una maschera con dei dati ed una picture box contenente una bmp; devo
salvare tutti i dati in una tabella di access, in cui è presente un campo
OLE che dovrebbe contenere l'immagine della picture box. Qualcuno sa dirmi
come fare??
Sono Disperato!!!!!
Max...@libero.it

 come fare??
1) Non mi sembra il caso di postare la stessa cosa a distanza di neanche due
ore
2) GoTo 1
3)
- Controllo Data che apre la tabella dove c'è il campo OLE
- PictureBox collegata al DataControl, in riferimento al campo OLE
- metodo Edit di Data1.RecordSet
- LoadPicture nella PictureBox
- metodo Update di Data1.RecordSet
- GoTo 1
Ciao
Faber

Newsgroup: it.comp.lang.visual-basic
Titolo: URGENTE!!

Applicativo con connessione a database ACCESS tramite ADODB. Come si fa a
gestire la concorrenza in modo efficiente?

Forse dovresti spiegare meglio cosa intendi tu per "concorrenza".
Ciao Gaetano.
-- 
Posted from 
mta13-acc.tin.it
 [212.216.176.44] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.visual-basic
Titolo: [addnew-ADO] - Giusto metodo

Secondo voi il metodo seguente è giusto concettualmente per aggiungere un
nuovo record, oppure potrebbe creare problemi?
Il database è su un server
SQL
Utilizzo per la connessione e altre operazioni il riferimento
MSActivex data object 2.6
VB 6.0 Enterprise 
In un modulo standard
Public cn As ADODB.Connection
Public adors As ADODB.Recordset
Public
strCnn As String
Public strID As String
Nell'evento form_load
Set cn =
New ADODB.Connection
strCnn = "driver={sql
server};server=prova;database=LOCALITA'"
cn.Open strCnn
Dim strsql As
String
strsql = "select * from prova"
Set rs = New ADODB.Recordset
rs.CursorType = adOpenKeyset
    rs.LockType = adLockOptimistic
rs.Source = strsql
    rs.Open "Prova", cn, , , adCmdTable
 
Nel
pulsante cmd_addnew
text1.text = ""
Nel pulsante cmd_ok
strID =
Text1.Text
rs.AddNew
rs!prova = strID
rs.Update
MsgBox "New record: " &
adors!prova
--------------------------------
Inviato via 
http://usenet.iol.it

 nuovo record, oppure potrebbe creare problemi?
[cut]
In un modulo standard :
Public cn As ADODB.Connection        (uno dei pochi casi in cui uso public)
Sub DataInit
    Private strCnn As String
    strCnn= "driver={sql server};server=prova;database=LOCALITA'"
    Set cn =  New ADODB.Connection
    cn.Open strCnn
End Sub
Nel Form:
Private adors As ADODB.Recordset
sub form_load
    Dim strsql As String
    strsql = "select * from prova"
    Set adors = New ADODB.Recordset
    with adors
        ' ??? source = stringa Sql e poi apri una "table" ???
        ' .Source = strsql
        ' rs.Open "Prova", cn, , , adCmdTable
        .Cursorlocation =  dipendedacosadevifarci
        .Open strSql, cn, adOpenKeyset, adLockOptimistic
    end with
end sub
 Nel pulsante cmd_ok
    Dim strID as string
    strID =  Text1.Text
    with  rs
        .AddNew
        .fields!prova = strID
        .Update
        MsgBox "New record: " &  .fields!prova
    end with
ciao
ugo
Newsgroup: it.comp.lang.visual-basic
Titolo: curiosità e due domande

ciao a tutti.
io sono abbastanza nuovo del VB e avrei una curiosità e due domande da porre
ai "più esperti"
c) come mai il VB viene un po' maltrattato (quasi deriso)dai programmatori
più bravi e la gente esperta?
d1)vorrei sapere se inserisco un numero in un textbox e voglio abbinare
qualcosa in base al fatto se il numero è pari o dispari, come devo fare?
(l'ho detta un po' incasinata? :-)
d2)ma gli ocx sono liberamente scaricabili da internet o si deve possedere
qualche licenza?
grazie
--
R@f'84


Sul sito comune ce ne sono centinaia, free, idem per il resto della rete,
esistono aziende che producono particolari OCX atti a semplificare la vita
ai programmatori, però a pagamento, tu stesso ti puoi ovviamente creare i
tuoi ocx personali, fatti su misura per te, fidati, prendendoti grosse
soddisfazioni  .

 qualche licenza?
ce n'e' di tutti e due i tipi, free e a pagamento, e in tutti e due i casi
di utili e inutili. sul mio sito (links -> vb) trovi un po' di links. quelli
che davano controlli free li avevo segnati.
in linea di massima, prima di usare un controllo, chiediti se ne vale
davvero la pena. es.:
serve mettere un ocx solo per visualizzare un gif animato nello splash ?
pensaci bene, conta fino a 100, e sappi che la risposta e' "no",
tutto quello che puoi fare a codice, fallo a codice. stai lontano dagli ocx
inutili e avrai una vita relativamente poco incasinata.
--
ciao, j.
www.sundaysw.com

 più bravi e la gente esperta?
[...]
    Anche i Cacciavite dicono che i Martello hanno la testa dura mentre loro
ce l'han sottile ma quando c'e' da piantar chiodi indovina un po' a chi si
rivolgono...
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 rivolgono...
Bellissima... questa me la conservo per il
prossimo "espertone" o "consulentone" spocchioso...   :-)
ciao
ugo

 prossimo "espertone" o "consulentone" spocchioso...   :-)
Trad: dottorone laterale
Ciao

 rivolgono...
Quando però ci son delle viti da svitare, a chi si rivolgono i martelli?

> "Vegeta" [...]:

    Grazie. Non m'ero accorto che la frase fosse mal costruita. Infatti non
si coglie che chi interpella i Cacciavite o i Martello e' una terza entita'.
La riscrivo:
    Anche i Cacciavite dicono che i Martello hanno la testa dura mentre loro
ce l'han sottile, ma quando c'e' da piantar chiodi indovina un po' a chi ci
si rivolge...
    Come tutti i motti e frasi proverbiali c'e' del vero ma girando la frase
al contrario poi si scopre che puo' funzionar bene lo stesso. E' come la
satira politica: ridono solo quelli che sono della stessa fazione.
    Torniamo alle viti da svitare:
    Se in una stanza ermeticamente chiusa si trovano un Cacciavite, un
Martello ed una Vite le probabilita' che la testa del Cacciavite sia
sufficientemente adatta al tipo di Vite sono molto basse mentre sono molto
elevate le probabilita' che il Martello riesca in qualche modo a conficcare
la Vite.


 la Vite.
bi-LOL
ciao
ugo

 indovina un po' a chi si rivolgono...
La incornicio! :)
Newsgroup: it.comp.lang.visual-basic
Titolo: Formattare campi per l'Euro

salve a tutti, la mia domanda č questa : come si fa a formattare una 
TextBox in modo che
- accetti solo caratteri numerici e una sola virgola
- il suo risultato sia un numero formattato con 2 cifre decimali
(vedi Euro)
Esempio:  12,23
Per la formattazione dei campi valuta senza decimali (lire) io uso
private sub txtLire_KeyPress(Keyascii as integer)
	if (keyascii< asc("0")) or (keyascii> asc("9")) then keyascii=0
end sub
private sub txtLire_Change()
	txtLire.text=format(txtLire.text,"###,###")
	txtLire.selStart=len(txtLire.text)
end sub

 end sub
Dovrebbe andare a logica, NN L'HO MAI FATTO
Ciao
--
Timothy Redaelli
timothy.redae...@email.it
------------------------------------------------------------------
Togliere NONSPAMMARE per rispondere

Dovrebbe esserci un'API che fa questo lavoro un po' più *saggiamente*
<doléance>
Timothy, e' da un po' che posti messaggi sul tono di quello precedente.
E' inutile e innervosisce.
</doléance>
Per Gambero:
secondo me ci sei andato vicino, invece.
ipotizza di avere due variabili che memorizzano il carattere separatore dei decimali
ed il suo codice ascii (per ragioni di prestazioni), che chiameremo
DecSep e DecSepCode.
Prova quindi il seguente codice:
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If (KeyAscii = DecSepCode) Then
        If (InStr(1, Text1.Text, DecSep, vbTextCompare)) Then
            KeyAscii = 0
        End If
        Exit Sub
    End If
    If ((KeyAscii < &H30) Or (KeyAscii > &H39)) Then
        KeyAscii = 0
    End If
End Sub
hth, hal

Per questo tipo di formattazione esiste un OCX free, lo puoi downloadare dal
sito regione 
http://www.redangel.it/Click_file.asp?m=222

Newsgroup: it.comp.lang.visual-basic
Titolo: Visual BasicHelp Please

Hi,
Im completey new to this programming so if this sounds ridiculous dont
laugh!!! Im using visual 
basic.net
 2003 and im writing a little
application that runs a simple batch file. Is there any way of getting
the results from the batch file to popup in a message box?
Any Help would be greatly appreciated
Jason

 ha scritto nel messaggio news:1126773033....@g47g2000cwa.googlegroups.com...

Sorry, Italian is welcome here.
it.comp.lang....
it  DOESN'T mean ---> Information Technology but
it  MEANS ----------> ITALY!
You can post to uk.comp.lang.visual-basic or us.comp.lang.visual-basic
Thank you

 
Credo di aver già visto questo avviso, eppure non ricordo dove...
-- 
Emanuele Torrenti
http://torrenti.altervista.org
Newsgroup: it.comp.lang.visual-basic
Titolo: ADO: come riportare sul database (in background) le modifiche fatte su un recordset disconnesso

Salve,
vorremmo eseguire le seguenti operazioni:
-aprie un recordset disconnesso
-modificare il recordset
-riconnettere il recordset al db per riportare le modifiche sul database IN
BACKGROUND (ovvero in modo asincrono!)
Abbiamo fatto cosě:
RsDis.CursorLocation = adUseClient 'tipo client
RsDis.Open "TabCivici", cn, adOpenKeyset, adLockBatchOptimistic, adcmdTable
Set RsDis.ActiveConnection = Nothing 'disconnette il recordset
'qui le modifiche a rsDis
'...
Per l'aggiornamento sincrono abbiamo fatto cosě (funziona!):
'si apre un recordset vuoto, lo si connette,
'poi lo si collega al recordset disconnesso
'e infine si fa un UpdateBatch
Dim rsCon As new recordset
Set RsCon.ActiveConnection = cn
RsCon.Open RsDis, cn
RsCon.UpdateBatch 'l'aggiornamento viene fatto, ma non in background (il
programma si blocca fine al termine dell'operazione)
Per l'aggiornamento ASINCRONO abbiamo cercato di farlo cosě MA NON FUNZIONA
(l'open ci da errore!):
Dim WithEvents rsCon As recordset
Set rsCon = new Recordset
Set RsCon.ActiveConnection = cn
RsCon.Open RsDis, cn, adOpenDynamic, adLockOptimistic, adAsyncExecute
RsCon.UpdateBatch
Ma come si fa? Ma č possibile riportare sul database le modifiche fatte su
un recorset disconnesso in modo asincrono?


    io di solito faccio cosi:
    Apro un record set client
    Dim rst As New ADODB.Recordset
    rst.CursorLocation = adUseClient
    rst.Open "...", conn, adOpenStatic, adLockBatchOptimistic
    Set rst.ActiveConnection = Nothing
    '.-........
    'modifiche ........
    '.................
   rst.ActiveConnection = conn
   rst.UpdateBatch

 Set rsCon = new Recordset
mi pare che WithEvents non sia ammesso come dichiarazione in una routine,
dev'essere fatta a livello di modulo; prova facendo
Dim RSCon As RecordSet
Set RSCon = New RecordSet
Ciao
Faber

Newsgroup: it.comp.lang.visual-basic
Titolo: Come si va a capo nel ToolTipText ?

Salve, non sono riuscito a capire come si va a capo nei tooltiptext.
Qualcuno lo sa ?
Grazie

Hai provato a mettere " ... & chr(10) & chr(13) .. " per adare a capo?

 Hai provato a mettere " ... & chr(10) & chr(13) .. " per adare a capo?
avete
provato
a
guardare
i
post
di
ieri
?
:)
j.13+10

Forse volevi scrivere
avete +chr(13)+chr(10)+ provato+chr(13)+chr(10)+ a+chr(13)+chr(10)+
guardare+chr(13)+chr(10)+ i +chr(13)+chr(10)+post +chr(13)+chr(10)+di
+chr(13)+chr(10)+ieri+chr(13)+chr(10)+?+chr(13)+chr(10)+ :+chr(13)+chr(10)+)
+chr(13)+chr(10)+j.+chr(13)+chr(10)+13+10

 ha scritto

non lo faccio mai.
avrei usato
avete & vbcrlf & provato & vbcrlf ecc.
ciao, j.vbcrlf

java ha scritto:

io preferisco
avete & vbNewLine & provato & vbNewLine &tc
ciao, hal

 avete & vbNewLine & provato & vbNewLine &tc
crlf = 4
newline = 7
sprecone ex-genovese ! :)
j+pal
    alias
j.pal.anche

sprecone ex-genovese ! :)
:PPP

 j.pal.anche
Dohhh ...
ma sei tu Pal ?
l'ho capito adesso ...
stavo già preparando un post con subject "Missing" ..
Saluti
Newsgroup: it.comp.lang.visual-basic
Titolo: [MDI e Eventi]

Salve.
Per realizzare un comodo metodo di comunicazione tra il form Container
MDI e i suoi Childs, ho deciso di avvalermi degli eventi; in questo
modo una notifica generata dal form principale MDI 'giunge' al child
tramite un RaiseEvent (es. la selezione di una voce di menu).
Pur avendo confrontato il codice con uno analogo in un progetto SDI e
funzionante, il codice nel progetto MDI, pur non generando errori, non
genera neppure l'evento sul form Child!
Ne sapete qualcosa?
Grazie in anticipo.
Sent via Deja.com 
http://www.deja.com/
Before you buy.

 wrote in message 8gptf1$qtt$1...@nnrp1.deja.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: Evidenziare i campi testo

Salve,
esiste un modo per far si che il cursore evidenzi il testo della textbox
quando ci si sposta sul controllo? in modo che digitanto una parola venga
cancellata subito quella precedente. come in access....
ciao!

 ha scritto nel messaggio
news:%fWW7.373179$sq5.18...@news.infostrada.it...


 ha scritto nel messaggio
news:%fWW7.373179$sq5.18...@news.infostrada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: un aiuto, grazie...

...per risolvere il seguente problema: ogni volta che premo un pulsante, una
variabile contatore deve incrementarsi fino ad esempio a 100...e poi quando
arriva a quel numero scatta una determinata operazione...ma siccome poi
quando chiudo e riapro il programma non deve ricominciare a contare da zero
ma continuare da dove era arrivato a contare la volta precedente, penso che
dovrei creare un file, scriverci ogni volta dentro il numero cui il
contatore č arrivato, e quando giunge a 100 fargli fare la determinata
operazione....giusto?...peccato che io sia un principiante e coi files abbia
sempre avuto problemi, anche con altri linguaggi e altri sistemi operativi
in passato...grazie a chi mi potrŕ fornire un esempio di listato per
eseguire le suddette operazioni...un ciao e un grazie a tutti...

 eseguire le suddette operazioni...un ciao e un grazie a tutti...
Scrivi OPEN in VB e premi il tasto F1.
In alternativa, se č solo poca roba che devi scrivere, magari ti conviene
scrivere il dato in un valore del registro di sistema.
Bye, G.

 in passato...grazie a chi mi potrà fornire un esempio di listato per


 in passato...grazie a chi mi potrà fornire un esempio di listato per


Questo é un messaggio di risposta standard e quindi impreciso, viene inviato
in genere a chi si é da poco affacciato al NG e potrebbe non contenere le
risposte in maniera diretta...
1)  Controlla il subject! Subject tipo: "Aiutooooo", "!!!", "Non ci sto più
dentro", "Sto impazzendo" sono subject che vengono filtrati da quasi
tutti... (Escluso il sottoscritto ancora per un po') e quindi non vengono
nemmeno letti dal 90% dei partecipanti (forse meno, ma comunque tanti)
2) Prima di postare sul NG sarebbe bene seguire un certo iter:
    a) Cercare nell' Help (alias MSDN ove possibile)
    b) Cercare nei vecchi post... Se ne hai pochi... non c'é problema, qui
ci sono quelli degli ultimi 6 anni (circa):
 
http://groups.google.com/advanced_group_search
    c) Cercare sul sito comune 
http://www.it_lang_vb.net
...Comunque almeno i post vecchi, MSDN e il subject sono vitali...
                        Ciao
                                Allanon

Newsgroup: it.comp.lang.visual-basic
Titolo: Come si fà?

Come si fà per inserire un file testo dentro la vbtree?
Grazie


wrote:

-Da menu Progetto\Inserisci file... oppure Ctrl+D.
-Spuntare "Aggioungi come documento correlato".
-Selezionare il file.
Ciao!
Newsgroup: it.comp.lang.visual-basic
Titolo: Determinare stato visualizzazione di una finestra.

Salve, ho il seguente problema:
avrei la necessità di sapere se una finestra di un altro programma sullo
schermo è visualizzata ridotta a icona, ingrandita o modalità normale.
Ho provato l' Api EnumWindows che mi restituisce tutti i processi, riesco ad
intercettare la finestra, quindi a confrontare la Caption, ma non riesco a
capire in che modalità è visualizzata.
C'è un modo per farlo ?
Grazie, Silvio.

 C'è un modo per farlo ?
Azz bella domanda , chissa' se esiste qualcosa che dall'esterno possa
restituire l'equivalente di .WindowState ... non so proprio come aiutarti ma
mi incuriosisce la richiesta, a che ti serve ?
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

Beh, in effetti mi serve a questo:
c'e' un programma dos che deve stare in esecuzione ed ha la sua finestrella
nera sullo schermo. Siccome questo programma viene lanciato da un altro
programma che a sua volta ignora un eventuale file pif dove magari posso
inserire l' esecuzione ridotta a icona. Mi trovo quindi nella circostanza di
dover fare un programmino che intercetti questa finestrella e se si trova in
modalità normale o ingrandita la devo mettere ridotta a icona.
""Gigio2K"" <baronefa...@M-YOURSELF-SONOlibero.it> ha scritto nel
messaggio news:z4Asa.86196$DT4.2...@twister1.libero.it...


 C'è un modo per farlo ?
dall'api la funzione GetWindowPlacement dovrebbe andare
--
------------------------
http://members.xoom.virgilio.it/visualwx/
VisualWx rad per wxwindows,c++ e python

 wrote in message
news:jYAsa.47278$%p6.27...@news.edisontel.com...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] consiglio!

Ragazzi ho un problema o meglio un dubbio!
Come sapete sicuramente tutti i messaggi di questo NG vengono cancellati
prima o poi da server, ma è come se noi, in una biblioteca, prendessimo uno
ad uno i libri e poi li gettassimo in un bel falò!
Ogni singolo messaggio (soprattutto le risposte) sono dei veri e propri
versi di un ipotetica 'Divina Commedia' (lasciatemelo dire)del VB!
Certo sapete anche che conservare tutti i messaggi significa investire molto
spazio sul proprio HD.
Insomma, quello che voglio sapere è come fate voi a custodire questo immenso
libro occupando poco spazio (praticamente avere la botte piena e la moglie
ubriaca!)
Grazie per la vostra attenzione!
Andrea

...


Io ho creato un database di Access 97 contenente le tips migliori.[..]
Credo che ci sia gente "al lavoro" che raccoglie le FAQ del NG per portarle
sul sito comune.
Diamogli tempo e avremo un database online!
Ciao
--
-
MIX (VB5SP3)
110 links ai siti VB
http://www.tempolibero.com/user/mix/
 (consigliato)
http://space.tin.it/computer/gaais
  (alternativo)
( TEMPORANEAMENTE ACCESSIBILI SOLO CON IE )
-
Newsgroup: it.comp.lang.visual-basic
Titolo: TABELLA

Ho creato una tabella in ACCESS con un'istruzione SQL (CREATE TABLE .....)
Come faccio a testare che la tabella è già presente nel DB per non avere il
messaggio che la tabella è già stata creata?
Ringrazio anticipatamente LAURA

Potresti creare un recordset che legge i dati della tabella, se restituisce
errore significa che non esiste.
Oppure semplicemente creala con on error resume next, se esiste dovrebbe
ignorare la creazione e non visualizzare l'errore.

 wrote in message
BW_94.5013$1W4....@news.infostrada.it...

Function CreaTabella() As Boolean
On Error GoTo TabellaEsistente
    Set Td = Db.CreateTableDef(NomeTabella) ', dbHiddenObject)
    With Td
        ' Crea campi e li accoda al nuovo oggetto
        ' TableDef. Questa operazione deve essere
        ' eseguita prima di accodare l'oggetto
        ' TableDef all'insieme TableDefs
        .Fields.Append .CreateField("ID", dbLong)
        .Fields.Append .CreateField("Date", dbText, 15)
        .Fields.Append .CreateField("Time", dbText, 15)
        .Fields.Append .CreateField("Band", dbText, 4)
        .Fields.Append .CreateField("Mode", dbText, 5)
        .Fields.Append .CreateField("Call", dbText, 20)
        .Fields.Append .CreateField("RSTt", dbInteger)
        .Fields.Append .CreateField("RSTr", dbInteger)
        .Fields.Append .CreateField("Change", dbText, 18)
        .Fields.Append .CreateField("QTH", dbText, 7)
        .Fields("QTH").AllowZeroLength = True
        .Fields.Append .CreateField("Mult", dbText, 15)
        .Fields("Mult").AllowZeroLength = True
        .Fields.Append .CreateField("Points", dbText, 10)
        .Fields("Points").AllowZeroLength = True
        If Right(NomeTabella, 4) = "CQWW" _
        Or Right(NomeTabella, 3) = "WAE" Then
            If Right(NomeTabella, 4) = "CQWW" Then
                .Fields.Append .CreateField("Zone", dbText, 15)
                .Fields("Zone").AllowZeroLength = True
                .Fields.Append .CreateField("State", dbText, 40)
                .Fields("State").AllowZeroLength = True
            Else
                .Fields.Append .CreateField("ID2", dbText, 15)
                .Fields("ID2").AllowZeroLength = True
                .Fields.Append .CreateField("Mult2", dbText, 15)
                .Fields("Mult2").AllowZeroLength = True
                .Fields.Append .CreateField("State", dbText, 40)
                .Fields("State").AllowZeroLength = True
            End If
        Else
            .Fields.Append .CreateField("State", dbText, 40)
            .Fields("State").AllowZeroLength = True
        End If
    End With
    Db.TableDefs.Append Td
    With Td
        Set idxNuovo = .CreateIndex("IndiceID")
        With idxNuovo
            .Fields.Append .CreateField("ID")
            .Primary = True
        End With
        .Indexes.Append idxNuovo
        .Indexes.Refresh
    End With
    Exit Function
TabellaEsistente:
    CreaTabella = True
End Function
Questo è un codice utilizzato da me per creare una tabella se la tabella
esiste
nel momento in cui Db.TableDefs.Append Td e la tabella esiste si genera un
errore dove lo puoi gestire come vuoi
ciao Enzo
Newsgroup: it.comp.lang.visual-basic
Titolo: ADO HELP CHM sparito!

 Una domanda...
avete un link diretto per scaricare SOLO l'help di ADO (possibilmente
l'ultima ver....)
non ho voglia di scaricarmi tutto il mattone dell'SDK!
Stamani nel mio pc č sparito un bel po di Help CHM!
Non ci intendo piů nulla nel sito M$!...ma non vi pare caotico???
avevo una pagina dei link a ste robe ma non funge +...han cambiato quasi
tutto!
Thanks
--
Il Wodkino Nazionale č a : 
www.martek.it
Pagina Vb/Bestiario/Lamer Experience :
http://www.martek.it/go.asp?portamia=2
Quotefix e altro: 
http://www.martek.it/go.asp?portamia=4
Usr: ICLVB Pw: amici

 tutto!
Qui si ferma al 2.6 (che poi č l'ultimo che anch'io ho)
http://ftp.gentoo.skynet.be/pub/ftp.microsoft.com/platformsdk/oct2000/common
/Help/

 [*Wodka40°* : 
pi...@pallino.it
] ha scritto:
THANKS!


Newsgroup: it.comp.lang.visual-basic
Titolo: [R] parallela da VB6

Qualcuno mi puo dare una dritta per reperire informazione
sulla gestione della PORTA parallela da VB6 ?
Grazie al NG
Dante

Sul sito comune (
www.murialdo.it/it_lang_vb
)
trovi una DLL (Win95IO.DLL) che permette di 
interagire da vb con la porta parallela!!!
Ciaps
Stracca
http://www.stracca.net
-- 
Posted from 
smsirmj0-5.customer.nettuno.it
 [130.186.251.229] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

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

Ho messo nel mio programma un Form opzioni con TabStrip, ho completato
il primo Tab e scusate l'ignoranza ma come si fa a passare a lavorare
sul secondo ?
Grazie per la vostra immensa pazienza.
--



...

Le TabStrip non sono dei container come potevano essere le tab di Sheridan
(SSTab).
Per cui quando disegni una pagina in realtà hai solamente aggiunto contolli
al form, e non alla pagina stessa. Prova ne è che se clicchi un controllo
col tasto destro e schegli "porta in secondo piano" questo ti finisce dietro
la stessa tabstrip.
Il segreto sta nell'usare dei container, come i frames o le pictureBox e
nasconderli/visualizzarli a seconda del tab selezionato, più o meno così:
    ' ts è la tabstrip, i vari fra* sono frames.
    fraDisk.Visible = (ts.SelectedItem.Index = 1)
    fraFiles.Visible = (ts.SelectedItem.Index < 3)
    fraDiskProps.Visible = (ts.SelectedItem.Index < 3)
    fraFileProps.Visible = (ts.SelectedItem.Index < 3)
    fraOptions.Visible = (ts.SelectedItem.Index = 3)
Ciao.

     fraOptions.Visible = (ts.SelectedItem.Index = 3)
Magari però è più semplice usare il metodo Zorder...
 __     __
<o>  <o>
      []
  \____/   ......(Potere ai piccoli!)
Pasquale Minerva
mine...@libero.it


Vero.
Il mio esempio sottointendeva che i frames non fossero tutti della stessa
dimensione e posizione.
Ciao

 wrote in message 80jjes$i7v$1...@nslave2.tin.it...

In questo caso sono d'accordo con te, anche se non vedo l'esigenza di creare
frames con dimensione e posizione diversa.
Comunque la mia è solo una piccola precisazione (non rilevante ai fini del
funzionamento), il succo rimane quello bisogna usare più frames! :)
 __     __
<o>  <o>
      []
  \____/   ......(CIAO!)
Pasquale Minerva
mine...@libero.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Grossi problemi con i pacchetti di installazione.

Quando cerco di installare nella macchina del mio primo cliente un programma
di statistiche da me realizzato, utilizzando DAO il programma mi va in
errore:
<< Impossibile trovare e quindi registrare il file
'c:\windows\TEMP\msftqws.pdw\$(DLLSelfRegisterEx)' >>
e non riesco a capire la natura di questo errore.
Se l'installazione la faccio "a mano" funziona tutto
Nella macchina ho installato tutto. Premesso che l'azienda del cliente aveva
gia' provveduto all'istallazione di Office2k (access incluso). Ho messo
(istallato o copiato):
- Tutti i componenti ocx che il programma necessita
- Tutte le dll che contengono la stinga dao e jet
- L' ADT con l'istallazione del MsJet 3.5
- Il mdac_typxit.exe (Ms Data Access 2.0)
- Il mdac_typxit.exe (Ms Data Access 2.1, scaricato stasera)
- DCOM98.EXE
Presa dalla disperazione non so piu' che fare. Vorrei fare di questo coso
un'applicazione, istallabile, senza perderci un giorno.
Grazie a tutti coloro che mi risponderanno, sulla natura dell'errore e sui
pacchetti sporaelencati inutili.
Ciao
Manuela

Ma il pacchetto lo crei te o utilizzi quello del Vb?
Se utilizzi quello del Vb a volte da problemi (qcuno mi smentisca se non è
vero)!
Le DLL che includi sono tutte quelle che contengono la stringa Dao e Jet, e
le altre?
Sei sicura che non usi altre Dll?
Ciao


Sostituisci in Setup.lst DLLSelfRegisterEx con DLLSelfRegister.
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!

Ciao..
--
===================================
Andrea Sistarelli
Per un sms: 
sis...@mail.omnitel.it
ICQ: 11598516
===================================

Ciao..
Ciao



Newsgroup: it.comp.lang.visual-basic
Titolo: 'Like' nel controllo ADO Data non funziona!

Utilizzo un controllo ADO Data collegato ad un database Access.
Io scrivo:
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT * FROM Tabella WHERE Nome Like " & Chr(34) &
text1.Text & "*" & Chr(34) & ";"
Adodc1.Refresh
Ma il controllo non restituisce alcun record! Funziona solo se in text1
scrivo l'intero nome al posto delle iniziali.
Come posso fare?
Grazie a tutti.
Andrea


Se fai una query SQL, usa l'SQL, non il dialetto schifoso di Access!
I caratteri jolly previsti dallo standard ANSI SQL sono % e _, non * e ?.

 Ma il controllo non restituisce alcun record! Funziona solo
se in text1 scrivo l'intero nome al posto delle iniziali.
Scusa, toglimi un dubbio. Cosa intendi per "iniziali"? Le
lettere (o caratteri) iniziali del nome, nel senso di "le
prime lettere" oppure una cosa tipo "mb" per Maurizio
Borrelli?
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
Newsgroup: it.comp.lang.visual-basic
Titolo: Datagrid e modifica

Salve a tutti,
vengo subito al punto ....
Ho un datagrid in cui mi carico i dati di una tabellla (descrizionefattura) 
con questa Rs4
Rs4.Open "SELECT descrizionefattura.quantita, descrizionefattura.descrizione 
AS DESCRIZIONE, aliquota.aliquota, descrizionefattura.prezzounitario FROM 
fattura, descrizionefattura, aliquota WHERE fattura.idfattura = 
descrizionefattura.idfattura AND descrizionefattura.idaliquota = 
aliquota.idaliquota AND fattura.idfattura = " & lista, cn, adOpenStatic, 
adLockOptimistic
I dati mi vengono scritti in modo corretto ... ma se clicco su un record del 
datagrid per modificarlo mi da i seguenti errori
1) Driver ODCB Microsoft Access. Impossibile aggiornare. Database o oggetto 
di sola lettura.
    Facendo OK sul messaggio la finestra si chiude
2) Se riclicco su un record mi da un altro errore:
    Posizione del cursore non valida. Nessun keyset definito.
Grazie a tutti

 ha scritto nel messaggio 
news:PTEQd.35820$QG6.6...@twister2.libero.it...


 >    Posizione del cursore non valida. Nessun keyset definito.
così a orecchio, potrebbe mancare quel qualcosa che consente al sistema di
identificare il record soggetto a variazione, e che di solito si chiama
chiave primaria.
comunque non ho capito molto bene come hai strutturato i dati, avresti
voglia di parlarne?
-- 
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
Newsgroup: it.comp.lang.visual-basic
Titolo: Database: recordset.seek con indice composto

Non so se ho trovato un "bug" in Vbasic 5, o sbaglio qualcosa...
Devo posizionarmi su un record, ed ho un indice composto.
Codice:
rs.index= "ID"
rs.seek "=", Valore1, Valore2, Valore3
Se la terna corrisponde ad un record con tali campi, lo trova.
Ho provato a costruirmi una funzione generale, alla quale passare le chiavi per
la seek, per poterla usare in caso di indici composti da 2, 3 o più campi:
Function LookupIndiceComposto(strTable As String, strIndice As String, ParamArray Ricerca1() As Variant) as Boolean
Dim rs As Recordset
Set rs = db.OpenRecordset(strTable)
If rs.RecordCount > 0 Then
  rs.Index = strIndice
'  rs.Seek "=", Ricerca1, Ricerca2, Ricerca3
  rs.Seek "=", Ricerca1()
  DatabaseLookupIndiceComposto = Not rs.NoMatch
End If
rs.Close
End Function
Utilizzando la seek con ParamArray, non funziona, torna sempre record non trovato.
Qualche idea?
P.S.: fra l'altro accetta anche se scrivo
  rs.Seek "=", Ricerca1
Massimo
---
 
-- 
Posted from 
mail-4.tiscalinet.it
 [195.130.225.150] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel
messaggio news:01C0B79A.1733EF20@massimo...
Non so se ho trovato un "bug" in Vbasic 5, o sbaglio qualcosa...
Function LookupIndiceComposto(strTable As String, strIndice As String,
ParamArray Ricerca1() As Variant) as Boolean
Dim rs As Recordset
Set rs = db.OpenRecordset(strTable)
If rs.RecordCount > 0 Then
  rs.Index = strIndice
'  rs.Seek "=", Ricerca1, Ricerca2, Ricerca3
  rs.Seek "=", Ricerca1()
  DatabaseLookupIndiceComposto = Not rs.NoMatch
End If
rs.Close
End Function
---------------------------------------------------------------
Fai questo tentativo :
al posto di "ParamArray Ricerca1() As Variant" metti solo "Ricerca1 as
Variant"
nella chiamata fai
LookupIndiceComposto <Tabella>,<Indice>, Array(<Valore1>, <Valore2>,
<Valore3>)
Non ne sono sicuro però ....
Se proprio non funziona ... l'ultima spiaggia è la funzione Eval di
MSScriptControl.ScriptControl
Saluti

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Cè un sito che parla (e risolve spero) dei problemi di installazione con vb ?

salve,
conoscete un sito che parla (e risolve spero) dei problemi di installazione
con vb ?
ho appena installato un programma che usa ado .... installazione liscia ...
vado a lanciare .... mi da errore "la classe non supporta l'automazione ...
ecc... eccc..", installo vb sulla macchina ..... niente da fare ...
vi sarei grato se mi rimandaste ad un sito che tratta di questi problemi.
Grazie

 ha scritto

http://msdn.microsoft.com
Newsgroup: it.comp.lang.visual-basic
Titolo: Consigli su SharpDevelop

Salve ragazzi sto provando Vb Net nella versione gratuita di SharpDevelop, 
che ne pensate, posso fare le stesse cose che faccio con Vb Net della 
Microsoft? Soprattutto considerando che tra poco uscirà la nuova versione 
2005 della Visual Studio, avranno intenzione anche stavolta di stravolgere 
tutto quanto, così come è stato dal passaggio dalla versione 6 a quella Net?
-- 
# ICQ 84624356
# MSN 
lello...@katamail.com
 

 quanto, così come è stato dal passaggio dalla versione 6 a quella Net?
Niente di cosi' traumatico...
Ciao
-- 
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Come posso fare (Crystal Rep)

A parte il fatto che non so come creare una query salvata con ADO, di fatti
per le prove uso una query creata in access, comunque il problema +
imminente è il seguente:
Ho un programma che gestisce delle commesse le quali hanno un committente e
un'azienda. Sia il committente che l'azienda hanno gli stessi campi (ID,
Nome, ind. ecc).
Nella fase di preparazione di una commessa assegno il Committente e
l'impresa inoltre ho altri due campi dove scelgo a chi dovranno essere
intestate le stampe (Certificato e Fattura). Per motivi che non sto a
spiegare le stampe possono essere intestate sia al committente che
all'impresa (in base alla scelta di prima) quindi se intesto al committente
dovrò stampare sotto l'impresa e viceversa. (solo per i certificati)
Quind, ricapitolando,i mi trovo con una query che mi estrae tutti i dati che
mi servono + il codice committe il codice impresa + il codice
dell'intestatario (uguale a 1 dei 2 precedenti) del certificatoma da qui in
poi non so come risolvere con crystal report.
Qualche consiglio ??
--
Grazie, Alberto (alias ALCAU)

 ha scritto nel messaggio
news:TC5s7.2002$_42....@news.infostrada.it...

Non ci ho capito un beeep...
Cmq (se ho capito qualcosa...) perchè non usi un nome di campo neutro nella
query origine dati per crystal report?
Ovvero, se devi stampare al committente
SELECT IDCOMMITTENTE AS IDCODICE ...
se devi stampare all'azienda
SELECT IDAZIENDA AS IDCODICE...
e nel report di cry usi IDCODICE
Ripeto... - se - ho capito qualcosa...
ciao
ugo

 query origine dati per crystal report?
MIIIIIIIIIIINNNCCCCHIAAAA ........ non ci avevo pensato !!!
Comunque ho risolto popolando le tre tabelle che uso per la stampa.
Una per l'intestatario del certificato CERTINT
Una per il committente                   CERTCOM
Una per la ditta                              CERTDITTA
Purtroppo così facendo ho una tabella in +, è sì perche l'intestatario è
sempre uno dei 2 (Committente o Ditta).
Va bè fa nulla, sarà per la prossima
Grazie comunque :-)
Alberto
Newsgroup: it.comp.lang.visual-basic
Titolo: directory problems

Hi,
Ihave 2 small questions:
1. Is the only way to deltet a directory including the files in that
directory to first chdir to directory, then remove all the files and at last
rmdir the directory? Or is there something lijke the UNIX-command rm -r *
2. How can I determine the size of a directory? Like in the prperties of a
directory where the size is diplayed in MB.
Thanks.

 directory where the size is diplayed in MB.
I think that "Directory's properties" panel shows the dir-size adding 
file-by-file's occupied bytes... so you have to find any file of a given 
dir to know how many bytes every file takes.
-- 
Rivolterò il mondo per trovarlo, e anche se andasse in Indocina uno dei 
nostri starà nascosto in una ciotola di riso pronto a sparargli nel culo.
(Pulp Fiction)

> You sould use the dos command deltree for Win9x/ME or rmdir for 
Ahem.. you COULD... not sould...


 rmdir the directory? Or is there something lijke the UNIX-command rm -r *
There is no API to remove a populated directory, at least none that I'm
aware of.
However, you can simply use the SHFileOperation API to remove all the
contained files without the needing for a Dir cycle.

Newsgroup: it.comp.lang.visual-basic
Titolo: Kill di un processo da VB

Come faccio a terminare un processo da un programma scritto in VB ?
Il processo da eliminare viene avviato dal sistema operativo all'avvio
della macchina e ne conosco quindi solo il nome.
Ho dato un occhiata alle API ma le funzioni che ho trovato richiedono
sempre un  handle o un PID che pero' non so come ricavare.
Grazie per l'aiuto!!
N.A.T.

 wrote in message news:398731f4...@news.mclink.it...


 wrote in message
8m8kan$49da$1...@stargate1.inet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Chiudi sessione da vbasic

Ciao ng, vorrei mettere in una macro di excel il comando per disconnettere
l'utente, per capirco come cliccare su start->Disconnetti pippo->si
Questo lo vorrei fare come comando di chiusura di una macro, che deve
stampare migliaia di etichette, in modo da poter lanciare in stampa tutte le
etichette ed alla fine fare il disconnetti utente.
mi potete dire come fare?
grazie Nao
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 mi potete dire come fare?
Se può essere utile:
http://groups.google.it/groups?hl=it&lr=&q=Disconnetti+utente&meta=group%3Dit.comp.lang.visual-basic
Ave
giuseppeD
---
CCR
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

"Nao" <XnXaXoXa...@XiXoXlX.XiXtX> ha scritto nel messaggio news:195Z33Z137Z29Y...@usenet.libero.it...

Const EWX_LOGOFF As Long = 0
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Call ExitWindowsEx(EWX_LOGOFF, &HFFFF)
spero di essere stato esauriente!

usa l'api ExitWindowsEx
'In general section
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, 
ByVal dwReserved As Long) As Long
Private Sub Form_Load()
'KPD-Team 1998
'URL: 
http://www.allapi.net/
'E-Mail: KPD...@Allapi.net
msg = MsgBox("This program is going to reboot your computer. Press OK to 
continue or Cancel to stop.", vbCritical + vbOKCancel + 256, App.Title)
If msg = vbCancel Then End
'reboot the computer
ret& = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
End Sub
"Nao" <XnXaXoXa...@XiXoXlX.XiXtX> ha scritto nel messaggio 
news:195Z33Z137Z29Y...@usenet.libero.it...


Ragazzi scusate la mia ignoranza in materia, ma ho provato i vostri codici,
ho consultato le pag internet da voi consigliate, ma niente da fare.
Forse non vi ho detto che è una macro di excel, non sono un programmatore,
faccio solo delle macro per facilitarmi il lavoro e sono a livello hobbista.
Potreste per favore darmi indicazioni piu precise su come fare?
grazie ancora Nao
Office 2000 e win2000


Newsgroup: it.comp.lang.visual-basic
Titolo: Stampare il contenuto di un DataBase...

Come da oggetto, vorrei sapere come devo fare a stampare i record del mio
DB(di tipo Access)
Il database č connesso al programma tramite un controllo DATA,
ma non ho la piů vaga idea di come si possa fare per inviare i dati alla
stampante!!!
Grazie a tutti


Ci sono due possibilità:
La prima è usare Crystal Report per creare un Report collegato al tuo
database.
La seconda è leggere tutti i campi dei record e stamparli utilizzando l'
oggetto Print. Il mio consiglio è quello di investire un po di tempo a
studiarti il Crystal Report.
Buon lavoro!
G.C.

 ha scritto nel messaggio
news:Tq%d6.45027$Up.4...@twister1.tin.it...


 wrote in message
CU%d6.42367$L94.4...@twister2.tin.it...


 wrote in message
X40e6.73094$ew1.4...@news.infostrada.it...
