mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Programma tipo chat

Ciao Raga,
visto che in questo periodo non sto facendo nulla mi č venuta in mente
un'ideuzza stupida ma giusto per perder tempo....
Volevo realizzare un programma tipo "chat".
Avevo pensato a una cosa del genere.
Due client sono installati su due computer diversi collegati ad internet.
Quando ci si collega il client invia ad un database presente su un serve in
internet il suo indirizzo ip e il "nick" dell'utente.
In questo modo l'altro client potrebbe verificare ogni tot secondi (ad
esempio 30) quali nick sono collegati.
Se il client 1 vuole mandare un messaggio tipo "ciao" al client 2 come posso
gestirlo?
E' meglio memorizzare il messaggio nel database e poi farlo leggere oppure
esiste un modo per "inviarlo" direttamente all'altro client?
Penso forse che si tratta di sfruttare TCP/IP ma come posso fare?
Non ne so assolutamente nulla.
Qualcuno di voi ha avuto esperienze simili o sa consigliarmi qualche sito
dove poter "sbirciare"???
Grazie mille!


ma che vuoi fare un programma tipo ICQ o MSN Messanger?
quelli fanno esattamente questo.

 quelli fanno esattamente questo.
Si sarebbe questa la mia intenzione... naturalmente una cosa da distribuire
solo ad un gruppo ristretto di amici...

 Volevo realizzare un programma tipo "chat".
Winsock. In locale e in remoto (con IP noto). E basta.

Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO . Ho problemi di stampa

Devo stampare in VB5 degli importi i quali devono essere incolonnati, ma la
stampa
invece di essere cosi:
        10.000
      100.000
          2.000
viene stampata cosi
        10.000
        100.000
         2.000
Io ho provato svariati tentativo ma con scarso successo.
In ultimo ho provato anche questo ortodossa routine:
Dim stamp as string *14
Stampa = Format$(File("IMPORTO"), "##,###,###,###")
    RSet StampaX = Stampa
    Printer.Print Tab(5);  StampaX;
ma il risultato č
       100.000
        10.000
         1.000
C'č qualcuno che saprebbe indicarmi il sistema per stampare gli importi
incolonnati, senza usare cristal report.
grazie

C'è qualcuno che saprebbe indicarmi il sistema per stampare gli importi


         2.000
per questo problema (dovevo stampare numeri ma anche parole allineate
a destra) mi sono scritto una sub  :
Sub DecPrint(Margine As Integer, Stringa As String)
  Printer.CurrentX = Margine - Printer.TextWidth(Stringa)
  Printer.Print Stringa;
End Sub
in margine metto il punto dove voglio FINISCA la stringa, che quindi
viene allineata a destra; in stringa il testo da stampare
poi la richiamo cosi 
      DecPrint 60, Format(Giacenza, "###,###")
      DecPrint 60, Format("prova")
l'importante e' passare una stringa
Antonio
Togliere CIAO dall'indirizzo

l'importante e' passare una stringa
scusa, il secondo esempio e' sbagliato, era :
	DecPrint 60, "prova"
non e' una vera e propria tabulazione decimale (bisognerebbe trovare
la width della parte intera a destra della virgola), comunque allinea
a destra testi e/o numeri. si puo' ottimizzare con il "with printer"


 C'č qualcuno che saprebbe indicarmi il sistema per stampare gli importi

Newsgroup: it.comp.lang.visual-basic
Titolo: coolbar di vb6

salve a tutti
vorrei sapere come si utilizza la coolbar di vb6

 vorrei sapere come si utilizza la coolbar di vb6
Cerca coolbar nelle MSDN

Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal Report

Visto che ho letto che non sono stato chiaro vi chiedo se potete dirmi
come faccio a fare un report che stampi i dati aggiornati di un db.
Vi ringrazio e scusate se precedentemente non sono stato chiaro.
	- Michele -
                                    '''
                                   (0 0)
 +---------------------------oOO----(_)---------------------------------+
 |                            Michele Mammini                           |
 |                             Via Induno, 9                            |
 |                                 56010                                |
 |                     Agnano - S. Giuliano T. - PISA                   |
 |       Home Page 
http://www.cli.di.unipi.it/~mamminim/intro.html
      |
 +-----------------------------------------oOO--------------------------+
                                  |__|__|
                                   || ||
                                  ooO Ooo 

Devi disabilitare l'opzione "Salva dati con report" nel menu File prima di
salvare il report.
Spero di esserti stato di aiuto.
Ciao
Andrea
Andrea
@mail: 
in...@rcmcastelli.it
Michele Mammini ha scritto nel messaggio ...



Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] JavaScript per stampare

Ciao all!
Come va? ^^
Sto' cercando di fare una cosa mezza-decente, dove da una pagina posso sia
stampare che mandare via fax dei documenti quasi automaticamente, il tutto
premendo dei tasti.
Ora l'invio del fax, anche se problematico, sta' funzionando, mentre la
stampa mi da qualche problemuccio...
E dovrebbe essere piu' semplice!
In pratica ho una pagina con un iframe che contiene la preview, pagina che
passandogli dei parametri cambia, dentro questa pagina ci sono una serie di
controlli che servono a decidere se inviare il fax o mandare il documento in
stampa, quello per il fax va (per modo di dire...), ora devo vedere quello
per la stampa.
In pratica dentro la pagina della preview c'e' questo scriptino che viene
messo nel caso in cui si e' richiesto di stampare:
<script language=javascript>
if (confirm('Vuoi stampare il documento?')) {
window.print()
}</script>
Secondo me e' giusto... Ma nell'iframe non mi stampa una mazza... secondo
voi cosa dovrei fare per dirgli di stampare il contenuto dell'iframe?
Grazie e Ciao ;^)=
--
RedFoxy
A fox around web
Power at fox for a yiffing world!

voi cosa dovrei fare per dirgli di stampare il contenuto dell'iframe?
Probabilmente l' IFrame ha bisogno del focus.
Prova mettere un nell'IFrame un controllo che possa ricevere il focus
e poi chiama la print:
function stampaFrame(){
	if (confirm('Vuoi stampare il documento?')) {
		controlloCivetta.focus();
		window.print();
	}
}
Fammi sapere come e' andata...
-- 
hth, hal

 }
emmm che controllo civetta??


 emmm che controllo civetta??
Non saprei, non so cosa hai messo nell' IFrame, l'importante
e' che sia un controllo che possa prendere il focus, ad esempio
una textarea.
--
ciao, hal
--------------------------------
Inviato via 
http://usenet.libero.it

 una textarea.
Non c'e' nessun controllo solo immagini, tabelle e testo testo testo... (css
JS sono presenti, se metto il focus nel body?)


Newsgroup: it.comp.lang.visual-basic
Titolo: Prog: Software in VB [[[ oNLy HAck - roba tosta ]]]

Buongiorno a tutti,
c'č bisogno di gente per sviluppare software
apparentemente innocuo in VB.
Insieme per creare una cosa di grande.
Per info
bart
q2w...@hotmail.com

...

Newsgroup: it.comp.lang.visual-basic
Titolo: [Vb.NET Compact Framework] Finestra non massimizzata, come fare?

ciao a tutti
utilizzando Vb.Net per sviluppare applicazioni per smartdevice
come posso fare una finestra che non sia a tutto schermo?
In qualunque modo imposto l'altezza o la larghezza me la ritrovo sempre a
tutto schermo (ma allora cosa la chiedono a fare).
Vi spiego anche a cosa mi serve. Nella schermata principale c'č un pulsante
per accedere ad un'altro form, il quale viene visualizzato in modo modale,
finchč l'utente non da Ok.
Essendo modale, non so per quale motivo, il pulsantino in basso a destra per
far apparire la tastiera non viene piů fuori?! neanche se metto un controllo
di tipo InputPanel.
Allora pensavo di ridimensionare la finestra lasciando visibile la parte
inferiore, e quindi il pulsante per gestire la tastiera.
ciao e grazie

 ciao e grazie
Ciao
P.S.: te ne anticipo subito un'altra, visto che sembra che tu stia
ripercorrendo le mie prime esperienze: la X in alto a destra non chiude il
form, ma lo minimizza (ecco perchè il programma non si ferma!).
Per renderlo chiudibile devi disabilitare il minimizebutton.
-- 
NeoDataType : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 Per renderlo chiudibile devi disabilitare il minimizebutton.
grazie per la dritta in effetti mi chiedevo perchè non si chiude il
programma...pensavo ad un baco del sistema operativo
PS
Scusa se approfitto per la tua gentilezza, ed eventualmente chiedo anche
agli altri.
Ho il problema di creare una applicazione mobile, che prelevi dati da un DB
sul server, e li salvi in locale, e viceversa al rientro in azienda.
Cercando su Google ho visto che si usa SQLCE, e infatti la sto provando. Mi
sembra di aver capito che però serva SQL Server 2000 per creare la replica e
la snapfolder!? Io pensavo di potermi connettere direttamente al mio misero
db access e in vence a quanto pare no, anche se sulla documentazione
Microsoft dicono che ci si può connettere anche a qualsiasi OLEDB!
Allora io ho adottato una strada diversa che butto li:
Creo una applicazione sul PC in cui viene connesso il palmare. Tale
applicazione ha il compito di salvare le tabelle che servono in XML.
All'atto dell'inserimento del palmare sulla sua basetta, ActiveSync
riporterà i file XML sul palmare stesso, e l'applicazione che gira su esso,
pescherà i dati dagli XML e li riporta sul DB sdf.
Al rientro in azienda avviene la stessa cosa al contrario, ovvero il palmare
riporta gli XML che servono, e l'applicazione sul PC li inserisce sul db
server.
(Ho notato notevole lentezza di SQLCE con tabelle corpose (tipo 10000
records))
ciao

 records))
Come prima: il palmare non è un PC.
Io ho abbandonato l'uso di SQL CE perchè importando con delle INSERT INTO
parecchi record mi faceva crashare l'app (provato su più dispositivi con SO
diversi) anche se nessuno sembra aver mai avuto questo problema.
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Quando chiudo il mio programma rimane il processo

Da cosa può essere dovuto il fatto che quando chiudo la mia app nel
task manager vedo il processo ancora attivo.
Quando esco chiudo tutte le connessioni e recordset.
grazie, alcau

 ha scritto nel messaggio
news:2689d58a.04022...@posting.google.com...

sicuramente qualcosa rimane in memoria. Guarda anche Forms.Count, dovrebbe
valere 1 appena prima di scaricare l'ultimo form. in teoria tutte le
connessioni si dovrebbero chiudere comunque, ma hai fatto bene lo stesso a
controllare.
good coding!!!
-- 
Alletun
"Io lo so che accadrà. La voce sussurra nei miei pensieri
di Jair, Rone, Allanon e soprattutto nelle Mortombre.
Sussurra segreti che mi sono tenuti nascosti, nella grigia
oppressione di questo giorno e nell'oscurità caliginosa
di quello che mi aspetta.
Saremo distrutti. Tutti."
Brin Ohmsford - La Canzone di Shannara - T. Brooks

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema facile, ma sono un idiota !

Allora, uso il comando shell per far partire un programma DOS, ma devo
passare dei parametri che contengono le virgolette ". Il mio problema è che
creo una variabile con tutta la riga di comando ma non so come scrivere le "
senza che VB pensi che inizi o finisca una stringa...
Grazie anticipatamente.

 wrote in message
waZw3.18778$M%1.5...@typhoon.libero.it...


...

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto! Devo agguingere un record ad un database

Tramite i comandi Visual Basic ho creato un database (DAO) che contiene diverse
tabella con più campi.
Naturalmente, essendo appena creato, il database non contiene alcun record.
Tramite un form che contiene un controllo DATA (data1), un TEXTBOX (txt1) ed un
pulsante (CmdAggiungi) volevo inserire i vari record in una tabella del database
inserendo il testo del record nel textbox utilizzando il pulsante di comando. A
tal proposito ho utilizzato, nell'evento cmdAggiungi_click, il comando
Data1.Recordset.Addnew, ma questo comando ha generato questo errore:
"Errore di runtime 3426- Azione eliminata da un oggetto associato."
Qualcuno sa spiegarmi dove ho sbagliato? Come devo fare ad aggiungere dei record
in una tabella?
Un grazie anticipato a chi mi darà un suggerimento.
Carlo

...


record in una tabella?
Anche io ho avuto lo stesso problema,generato non tanto da un errore di
programmazione bensì da un bug del controllo Data (parere personale).
Personalmente l'ho risolto aggiungendo la stessa istruzione nell'evento Form
Activate.
Se però non devi memorizzare immagini nel Db ti conviene utilizzare
direttamente gli oggetti Dao escludendo il controllo Data.
Ciao

ti conviene utilizzare direttamente gli oggetti Dao escludendo il controllo Data.
 a quali oggetti Dao ti riferisci?
Ancora molte grazie e auguri di buona Pasqua.
Carlo.
 

...


:
sono completamente d'accordo con quello che hai scritto ma l'uso, nel mio
caso, del controllo data era stato dovuto dalla necessità di registrare in
un db Access direttamente delle immagini Jpeg (non i percorsi) .
Purtroppo attualmente non sono a conoscenza del modo di salvare le immagini
utilizzando gli oggetti Dao in quanto non riesco a collegare i campi
LongBinary alla foto da salvare.
Se qualcuno lo dovesse postare sul NG sarei ben lieto di non utilizzare il
controllo Data ...  ;-)
Ciao e Buona Pasqua anche a voi.
Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con il select case

Qualcuno mi sa spiegare perchè la porzione di codice relativa alla
condizione "List1.ListIndex = (intCount - 1) " viene eseguita solo se
controllata con una IF, e non con il select case? Non funziona nemmeno
con il "case else" (list1 è una listbox)
Grazie
VERSIONE FUNZIONANTE
 intCount = List1.ListCount
    If List1.ListIndex = 0 Then    'se è la prima lista
        Navigazione False, False, True, True
    End If
    If List1.ListIndex> 0 And List1.ListIndex < (intCount - 1) Then 'se
non è nè la prima nè l'ultima
        Navigazione True, True, True, True
    End If
    If List1.ListIndex = (intCount - 1) Then     'se è l'ultima
        Navigazione True, True, False, False
    End If
 
VERSIONE NON FUNZIONANTE    
'    intCount = List1.ListCount
'    Select Case List1.ListIndex
'    Case Is = 0        'se è la prima
'        Navigazione False, False, True, True
'    Case Is> 0 And List1.ListIndex < (intCount - 1)    ' se non è
prima o ultima
'        Navigazione True, True, True, True
'    'Case List1.Index = (intCount - 1)     ' se è l'ultima
'    Case Is = (intCount - 1) ' se è l'ultima
'        Navigazione True, True, False, False
'    End Select
'
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 controllata con una IF, e non con il select case?
Sbagli la sintassi del select case
un esempio:
Dim Number
Number = 8   ' Initialize variable.
Select Case Number   ' Evaluate Number.
Case 1 To 5   ' Number between 1 and 5, inclusive.
   Debug.Print "Between 1 and 5"
' The following is the only Case clause that evaluates to True.
Case 6, 7, 8   ' Number between 6 and 8.
   Debug.Print "Between 6 and 8"
Case 9 To 10   ' Number is 9 or 10.
Debug.Print "Greater than 8"
Case Else   ' Other values.
   Debug.Print "Not between 1 and 10"
End Select
ciao
Valerio

Ti abbiamo già risposto in due! Le leggi le risposte vero?

 '    End Select
Io tenderei, il piu' delle volte, a operare cosi':
Option Explicit
Private Sub Command1_Click()
  Dim lCount  As Long
  Dim lIndex  As Long
  Dim sText   As String
  With Me.List1
    lIndex = .ListIndex
    lCount = .ListCount - 1
  End With
  Select Case True
  Case lIndex = 0
    sText = "1"
  Case (0 < lIndex) And (lIndex < lCount)
    sText = "2"
  Case lIndex = lCount
    sText = "3"
  End Select
  Me.Text1.Text = sText
End Sub
Private Sub Form_Load()
  Const c_Count = 9
  Dim lIndex As Long
  With Me
    With .List1
      For lIndex = 0 To c_Count
        .AddItem "Riga " & Format$(lIndex, "0")
      Next
      .ListIndex = 0
    End With
    .Text1.Text = ""
    .Text2.Text = ""
  End With
End Sub
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------
Newsgroup: it.comp.lang.visual-basic
Titolo: VB.net THREADING questo sconosciuto: posso usarlo per visualizzare l'ora?

Francamente tutto il namespace per la gestione dei thread mi rimane
parecchio ostico...sopratutto dal punto di vista pratico.
Facciamo un esempio:
devo mostrare data e ora in una statusStrip: metto un timer ed ogni x
secondi aggiorno la visualizzazione.Finita lì!
Però mi sono detto: i pc nuovi sono quasi tutti ALMENO dual core.
Inutile interrompere ogni x secondi l'elaborazione principale per fare
una cosa stupida come visualizzare data e ora.
Perchè non utilizzare un thread solo per visualizzare l'ora? Cosa più
svincolata di questa dal flusso dell'elaborazione non mi riesce
pensarla!
Mi chiedo....se impostassi una classe che nella new (o in un metodo)
va in loop continuo con l'unico scopo di fare un refresh della label
con la data e l'ora...e la lancio all'apertura della form come thread
separato che termino al close della finestra....sto sognando? Non c'ho
capito una mazza del threading? Mi sfarfallera tutto?
....o è fattibile???
Lo faccio per imparare ... è un esempio "didattico"...quindi astenersi
commenti del tipo...usa un timer!
Grazie!

 ....o è fattibile???
usa un timer :-P
Scherzi a parte si è l'approccio giusto, crei una classe, wrappi un 
thread, esponi un evento. Okkio la marshaling, perchè da un thread 
secondario non puoi accedere ai controlli della UI.
.m
-- 
Mauro Servienti
{C67C0157-5D98-4733-A75E-93CAEE4BADC8}
Microsoft MVP - Visual C# / MCTS
http://mvp.support.microsoft.com
blog @ 
http://milestone.topics.it
whynot [ at ] topics [ dot ] it

 secondario non puoi accedere ai controlli della UI.
argh lo sapevo che era troppo semplice!
e allora come lo "punto" sto benedetto controllo dal 3ad esterno?
non posso spippolare alla "C" andando a leggere il puntatore...che mi
rimane? il timer davvero? che schifo!
in realtà la mia domanda allora diventa......
http://msdn.microsoft.com/it-it/magazine/cc300429(en-us).aspx
devo studiarmi questo vero?
....temo il si come risposta!!!!!!!!

 ....temo il si come risposta!!!!!!!!
ovvio :-P


e allora come lo "punto" sto benedetto controllo dal 3ad esterno?
....
Non lo fai :-)
Di solito usi il 3ad principale per aggiornare la UI, mentre i secondari per 
le varie elaborazioni "pesanti".
Nell'esempio da te fatto, la classe che si occupa di contare il tempo, puo' 
alzare un evento verso la form principale per notificargli che deve eseguire 
qualche cosa, ad esempio aggiornare la label che mostra l'orario.
Tieni conto che la sub che gestisce l'evento, sta "girando" sul thread 
secondario, quindi non puoi accedere al controllo da qui; avrai bisogno di 
qualche cosa che si occupa di sincronizzare l'accesso al controllo stesso, 
come ad esempio un  WindowsFormsSynchronizationContext.
In ogni caso, l'aggiornamento della label sara' compito del thread 
principale.

 il timer un thread quindi perch che schifo?
zac
OT
...ma perch� google gruppi si perde le accentate?
Anche a cambiar codifica non le vedo!....o con che strana codifica
scrivete?
Newsgroup: it.comp.lang.visual-basic
Titolo: A proposito di tabelle...

Devo adottare un controllo per la gestione di tabelle.
Io conosco solamente la TrueDBGrid e mi chiedevo se qualcuno ha mai usato
qualcosa che sia migliore.
Grazie.
Marco Guglielmi.

 ha scritto nel messaggio
news:a2feae$grs$1...@pegasus.tiscalinet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: "always on top" ma solo entro l'applicazione vb

Ciao,
ho scaricato dal sito comune il codice per mandare una form in "always on
top" e devo dire che funziona benissimo, anche troppo. Il mio prob. infatti
è che ho tre form aperte contemporaneamente (non MDI) di cui due devono
sempre essere davanti alla terza (che è anche la principale).
Vorrei però che, selezionando un'altra applicazione (ad es. esplora risorse)
le due form in primo piano scomparissero.
In pratica, l'always on top dovrebbe funzionare solo all'interno della mia
applicazione, e non valere per tute le altre finestre di Windows.
Avevo trovato del codice atto a questo scopo, ma non funzionava e io non ho
abbastanza conoscenze per scrivermelo.
Potete darmi una mano?
Grazie sin da ora.
Iper.
p.s..: è OT, ma qualcuno sa dove trovare un elenco dei codici restituiti dal
protocollo http (ad es 404 not found, 200 OK ecc.) ?

Il codice che potresti utilizzare è questo!
Public Declare Function SetWindowPos Lib "user32" _
    (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
    ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
    ByVal cy As Long, ByVal wFlags As Long) As Long
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_SHOWWINDOW = &H40
Public Const SWP_NOACTIVATE = &H10
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Sub FormOnTop(Handle As Long, OnTop As Boolean)
    Dim wFlags As Long, PosFlag As Long
    wFlags = SWP_NOMOVE Or SWP_NOSIZE Or _
        SWP_SHOWWINDOW Or SWP_NOACTIVATE
    Select Case OnTop
        Case True
            PosFlag = HWND_TOPMOST
        Case False
            PosFlag = HWND_NOTOPMOST
    End Select
    SetWindowPos Handle, PosFlag, 0, 0, 0, 0, wFlags
End Sub
e devi usarlo così:
se hai un form chiamato "Form1" devi fare:
FormOnTop Form1.hwnd, true 'true o false a seconda se è in 1° piano o meno
E' Chiaro??
Spero che ti possa aiutare!!!
Mandami quello vechio che usavi tu, se puoi. Quello che mandava in 1° piano
tutte le finestre!

Scusa... ma un semplice   form.show vbModal   non va bene ?...
Iper ha scritto nel messaggio ...


> Scusa... ma un semplice   form.show vbModal   non va bene ?...
probabilmente vuole un form sempre in primo piano rispèetto ad un altro, ma
dare all'utente la possibilità di usare anche quello dietro

 sempre essere davanti alla terza (che è anche la principale).
[SNIP]
Diciamo che "Form1" sia il nome della principale; quando fai lo show delle 2
form "secondarie" usa:
Form2.Show vbModeless, Form1
Form3.Show vbModeless, Form1
Ciao
--
Luca Dormio
luca....@tin.it
luca....@sig-la.com

 abbastanza conoscenze per scrivermelo.
Nell'evento form_load della finestra "child" inserisci:
Call SetWindowLong(Me.hwnd, _
            GWW_HWNDPARENT, _
            [FormPrincipale].hwnd)
Nell'evento form_unload inserisci:
    Call SetWindowLong(Me.hwnd, _
             GWW_HWNDPARENT, &H0)
Se la finestra "parent" č minimizzabile, quando questo succede
anche le finestre "child" vengono minimizzate.
Newsgroup: it.comp.lang.visual-basic
Titolo: Help, dove sta Windows?? e altro.

Ben due problemi:
1- Vorrei che il mio programma andasse a scrivere qualcosa nella cartella
system di windows, senza dovergli dire io dove si trova, ed
indipendentemente da dove si trova windows. (a me e' venuta solo l'idea di
fare una procedura con dir che cerchi la cartella system..spero che esista
un metodo piu pulito)
2-come inserire in una tabella2 un record appartenente alla tabella1(stessa
struttura), individuato da:
data1.recordset
(e' un record individuato tramite bookmark, data1 e' il solito controllo
linkato alla tabella1)
Qui mi e' venuto in mente di usare l'SQL: INSERT INTO....VALUES, ma di nuovo
e' parecchio macchinoso
Grazie in anticipo
Sandro

 e' parecchio macchinoso
in dao, qc tipo:
dim rs as recordset, j
set rs = [tuodb].openrecordset("tabella2")
with rs
    .addnew
    for j= 0 to .fieldscount -1
' a occhio e croce dovrebbe beccare il rec
' corrente di data1:
        !fields(j) = data1.recordset.fields(j)
    next
    .update
end with
scusa i molto probabili errori di sintassi, ma ti prego di guardare l'ora
del mio post.
ciao, a.

 un metodo piu pulito)
Environ("winbootdir")
ti restituisce il percorso della cartella di Windows
oppure puoi usare un'API che mi pare si chiami GetWindowDirectory
Ciao!
Faber

Copiato dalla guida di Appleman.
GetWindowsDirectory
VB Declaration:
    Declare Function GetWindowsDirectory& Lib "kernel32" Alias _
    "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long)
Description:
    This function retrieves the full path name of the Windows directory.
This is the directory that contains most Windows application     files and
initialization files.
Use with VB:
    No problem.
Parameter Type/Description:
    lpBuffer String-A string buffer to load with the Windows directory name.
The directory will not have a terminating "\" character     unless it is the
root directory.
    nSize Long-The maximum length of the lpBuffer string.
Return Value:
    Long-The length of the string copied into lpBuffer. If lpBuffer is not
large enough to hold the string, this will be the required size     of
lpBuffer. Zero on error. Sets GetLastError.
Platform:
    Windows 95, Windows NT, Win16
Ciao a tutti
Cesare Nicola
http://digilander.iol.it/cesare

 un metodo piu pulito)
La funzione dell'API che restituisce la directory di sistema è
chiaramente GetSystemDirectory, non GetWindowsDirectory
La ottieni in questo modo:
Private Declare Function GetSystemDirectory Lib "kernel32" _
    Alias "GetSystemDirectoryA" ( _
    ByVal lpBuffer As String, _
    ByVal nSize As Long) As Long
    Public Function GetSysDir() As String
    Dim lpszBuff As String
    Dim lngRet As Long
       lpszBuff = Space(255)
       lngRet = GetSystemDirectory(lpszBuff, Len(lpszBuff))
       GetSystemDir = Left$(lpszBuff, lngRet)
    End Function
Per l'altra questione ha già risposto pal.

 ti restituisce il percorso della cartella di Windows
mi scuso, ero di fretta e ho letto male la domanda
Faber

 chiaramente GetSystemDirectory, non GetWindowsDirectory
Ooops! Ho cappellato. Scusate.
Ciao
Cesare Nicola
http://digilander.iol.it/cesare
Newsgroup: it.comp.lang.visual-basic
Titolo: Programmare in EXCEL...Aiuto!!

Ciao a tutti...
Questo č il mio problema.
Ho una colonna di Excel che contiene solo numeri, una solo testo, una
alfanumerica(testo + numeri)..(in realta' ne avrei molto di piů ma
semplifico l'esempio..)
Bene, ho la necessita' di stampare tutte le mie righe del foglio di lavoro
in un file di testo, rispettando pero' una larghezza fissata da un
"tracciato record".
Per esempio, ; la mia colonna chiamata "anagrafica" nel file di testo deve
essere larga 30 caratteri a partire dal carattere 90...; la mia colonna
"via" nel file di testo deve essere larga 30 caratteri a partire dal
carattere 154...ecc. ecc.
Ciao a tutti, grazie per eventuali risposte.
Potete rispondere anche in privato
dgr...@hotmail.com

 ha scritto nel messaggio
news:944tjd$cge4a$1...@ID-59243.news.dfncis.de...

Puoi provare a fare tutto in EXCELL in questa maniera:
Ammettiamo che nel Foglio1 hai i tuoi dati per semplificare 2 colonne e 1
riga, nella cella A1 tu hai 'Super Pippo' e in B2 tu hai 'via da qua n.4 '
per ottenere quello che vuoi metti nel Foglio2 le seguenti formule:
A1==Foglio1!A2 & RIPETI(" ";90-LUNGHEZZA(Foglio1!A2))
B2==Foglio1!B2 & RIPETI(" ";30-LUNGHEZZA(Foglio1!B2))
Poi salvi tutto in formato csv, lo apri con notepad e vedrai che la prima
colonna č larga 90 caratteri la seconda 30.
Ciao BV

 B2==Foglio1!B1& RIPETI(" ";30-LUNGHEZZA(Foglio1!B1))
NB il formato csv separa i campi con un ;
Ciao VB

 ha scritto nel messaggio
news:945bt9$2e9$1...@serv1.albacom.net...


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

Salve a tutti. Qualcuno sa dirmi come fare per sapere se un RichTextBox sta
visualizzando le sbarre di scorrimento (in particolare quella verticale)
oppure no? Grazie
V


A me viene in mente così ma credo che si possa fare in un modo più semplice
If rtf.Height < TextHeight(rt.Text) then   'La proprietà  ScrollBars deve
essere 2 - rtfVertical
    'la scrollbar verticale è usata
else
    'non è usata
end if

Newsgroup: it.comp.lang.visual-basic
Titolo: Proprietà Z-Order

Ciao a tutti.
Il mio problema è questo: sto realizzando un applicazione in cui è presente
un form MDI ed un form figlio. Siccome nel form MDI ho bisogno di inserire
controlli del tipo Tabelle, combo e TextBox e visual basic non me ne da la
possibilità, ho pensato di inserirle in un altro form fissato al form MDI.
Però, vorrei anche che il primo form, quando viene spostato, appaia sotto di
quest'ultimo form, in quanto l'ultimo form inserito deve dare l'impressione
di essere un estensione del form MDI.
Ho pensato alla proprietà z-order, ma non ha funzionato. Qualcuno ha qualche
idea?
Grazie, ciao
Alex

 di essere un estensione del form MDI.
probabilmente i controlli tipo ToolBar sono adatti al tuo caso, 
dato che si mantengono in primo piano e sono automaticamente 
"scorporati" dal computo della client area del MDI form (per cui 
muovendo i figli li sposti nella sola porzione utile già 
clippata, a meno di non impostare top e left da codice, intendo 
solo col trascinamento)
ciao
CCCP++Mario

Newsgroup: it.comp.lang.visual-basic
Titolo: Cambiare risoluzione

Ciao ragazzi come faccio a cambiare la risoluzione di un programma
sviluppato in VB6 in base al computer che utilizza il programma?
se è 800*600 no problem perchè il programma è sviluppato in quella
risoluzione ma quando lo faccio girare con risoluzione 1024*768 aiuto..... è
piu' piccolo!!!!!!!!
Aiutatemi grazie
Wallace

 ha scritto nel messaggio
news:tXoa8.10748$tv6.2...@twister1.libero.it...

'1. Code for the basic-module
Declare Function EnumDisplaySettings Lib "user32" _
Alias "EnumDisplaySettingsA" _
(ByVal lpszDeviceName As Long, _
ByVal iModeNum As Long, lpDevMode As Any) As Boolean
Declare Function ChangeDisplaySettings Lib "user32" _
Alias "ChangeDisplaySettingsA" (lpDevMode As Any, _
ByVal dwFlags As Long) As Long
Declare Function ExitWindowsEx Lib "user32" _
(ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4
Public Const CCDEVICENAME = 32
Public Const CCFORMNAME = 32
Public Const DM_BITSPERPEL = &H40000
Public Const DM_PELSWIDTH = &H80000
Public Const DM_PELSHEIGHT = &H100000
Public Const CDS_UPDATEREGISTRY = &H1
Public Const CDS_TEST = &H4
Public Const DISP_CHANGE_SUCCESSFUL = 0
Public Const DISP_CHANGE_RESTART = 1
Type DEVMODE
dmDeviceName As String * CCDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * CCFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type
'Example
'Changes the resolution to 640x480 with the current colordepth.
Dim DevM As DEVMODE
'Get the info into DevM
erg& = EnumDisplaySettings(0&, 0&, DevM)
'We don't change the colordepth, because a
'rebot will be necessary
DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT 'Or DM_BITSPERPEL
DevM.dmPelsWidth = 640 'ScreenWidth
DevM.dmPelsHeight = 480 'ScreenHeight
'DevM.dmBitsPerPel = 32 (could be 8, 16, 32 or even 4)
'Now change the display and check if possible
erg& = ChangeDisplaySettings(DevM, CDS_TEST)
'Check if succesfull
Select Case erg&
Case DISP_CHANGE_RESTART
an = MsgBox("You've to reboot", vbYesNo + vbSystemModal, "Info")
If an = vbYes Then
erg& = ExitWindowsEx(EWX_REBOOT, 0&)
End If
Case DISP_CHANGE_SUCCESSFUL
erg& = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY)
MsgBox "Everything's ok", vbOKOnly + vbSystemModal, "It worked!"
Case Else
MsgBox "Mode not supported", vbOKOnly + vbSystemModal, "Error"
End Select
End Sub
Ciao
--
Timothy Redaelli
Newsgroup: it.comp.lang.visual-basic
Titolo: Cerco esempio di comunicazione su seriale

Questo gestice l'input. Per l'output è molto simile, Basta usare il metodo
MSComm1.OutPut "stringa"
Ciao, Fabio Guerrazzi
' ========= CODICE =============0
Sub Form_Load()
    Com$="COM1"
    Comm$ = Mid$(Com$, 4, 1)
    Sett$ = speed$ & "," & Parity$ & "," & DataBit$ & "," & BitStop$
    MSComm1.CommPort = Comm$
    MSComm1.Settings = Sett$ ' "9600,N,8,1"
    MSComm1.InputLen = 0
    MSComm1.PortOpen = True
    Do
        'Intercetta gli eventi
         DoEvents
         'è stato ricevuto qalcosa?
         If MSComm1.InBufferCount Then
             Inp$ = MSComm1.Input
             BCount = BCount + Len(Inp$)
             Label1 = "Byte ricevuti: " & CStr(BCount)
'            ProcessStringRecived Inp$ ' Sub di elaborazione stringa
ricevuta
         End If
    Loop
End Sub
' Evento OnComm per intercettare eventuali errori
Private Static Sub MSComm1_OnComm()
    Dim EVMsg$
    Dim ERMsg$
    Select Case MSComm1.CommEvent
        ' Messaggi degli eventi.
        Case comEvReceive
        Case comEvSend
        Case comEvCTS
            EVMsg$ = "Rilevata modifica in CTS"
        Case comEvDSR
            EVMsg$ = "Rilevata modifica in DSR"
        Case comEvCD
            EVMsg$ = "Carrier Detect"
        Case comEvRing
            EVMsg$ = "Connessione in corso, attesa risposta.."  ' "Il
telefono sta squillando"
        Case comEvEOF
            EVMsg$ = "Raggiunta la fine del file"
        ' Messaggi di errore.
        Case comBreak
            ERMsg$ = "Ricevuta interruzione"
        Case comCDTO
            ERMsg$ = "Timeout Carrier Detect"
        Case comCTSTO
            ERMsg$ = "Timeout CTS"
        Case comDCB
            ERMsg$ = "Errore durante il recupero di DCB"
        Case comDSRTO
            ERMsg$ = "Timeout DSR"
        Case comFrame
            ERMsg$ = "Errore di frame"
        Case comOverrun
            ERMsg$ = "Errore di overrun"
        Case comRxOver
            ERMsg$ = "Overflow del buffer di ricezione"
        Case comRxParity
            ERMsg$ = "Errore di parità"
        Case comTxFull
            ERMsg$ = "Buffer di trasmissione pieno"
        Case Else
            ERMsg$ = "Errore o evento sconosciuto"
    End Select
    If Len(EVMsg$) Then
        ' Visualizza i messaggi degli eventi sulla barra di stato.
        Label1 = "Stato: " & EVMsg$
    ElseIf Len(ERMsg$) Then
        ' Visualizza i messaggi di errore sulla barra di stato.
        Label1 = "*Errore*: " & ERMsg$
        ' Visualizza i messaggi di errore in una finestra di messaggio.
        Beep
        Ret = MsgBox(ERMsg$, 1, "Fare clic su Annulla per uscire o su OK per
ignorare il messaggio.")
        ' Se l'utente fa clic su Annulla (2)...
        If Ret = 2 Then
            MSComm1.PortOpen = False    ' Chiude la porta ed esce.
        End If
    End If
End Sub

 
E' un protocollo particolare ho te lo devi inventare tu.
Se e' quest'ultimo caso, forse posso darti una mano.
-- 
Hi, Ciao
Ettore                 By -MES-
http://www.aspide.it/freeweb/ilmes
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb
Newsgroup: it.comp.lang.visual-basic
Titolo: VB e Internet

Ciao a tutti.. mi rivolgo ai piu' esperti. Forse questa domanda sara' stata
fatta tante volte.. ma e' possibile condividere in rete un collegamento
internet? Per esempio io ho realizzato un prg ke usa WINSOCK, e riesco a
far aprire il browser su un computer remoto, ma ancora non ho trovato il
modo per "condividere" quel collegamento ke apro in remoto. Qualcun mi sa
aiutare? Esistono SW gia' fatti ke usano API particolari, protocolli o
altre "diavolerie"..(non parlo di Wingate, ma di applicazioni di cui si
dispone del sorgente :)  ).
Vi ringrazio e buon pomeriggio a tutti!!
Ciccio-hk
--------------------------------
Inviato via 
http://usenet.iol.it

Ciao,
non ho ben capito che vuoi fare...hai un pc remoto che chiamiamo A e
il tuo che chiamiamo B. Tramite B lanci il browser di A e poi vorresti
usare il suo accesso remoto?? Facci capire meglio...io almeno non ho mica
capito...
Saluti...


 modo per "condividere" quel collegamento ke apro in remoto.
Se ti basta condividere la navigazione dei browser è "sufficiente" scrivere
un http proxy e metterlo in ascolto sul pc dotato di connessione.
Gli altri Pc dovranno avere i browser con il proxy settato all'ip del pc che
ha la connessione (e alla porta su cui è in ascolto). In questo caso non
dimenticare di rifiutare connessioni provenienti dall'esterno della tua
intranet.
Se intendi invece utilizzare in toto la connessione internet del PC
connesso, non credo che sia possibile tramite le Winsock
Saluti,
Luca Barbetta kck/skd

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Comandi nel pacchetto installazione

Salve a tutti
Qundo creo un pacchetto di installazione, come faccio ad aggiungere comandi
aggiuntivi che vengono eseguiti al momento dell' installazione, del tipo:
crea un folder nella x posizione.
Ciao
Fabio


Grazie
Fabio
Newsgroup: it.comp.lang.visual-basic
Titolo: Filtrare una query

Ciao a tutti, ho creato una query nel mio database Access chimandola ad
esempio miaQuery
Poi ho creato la connessione a questa query in un form vb:
rs.Open "SELECT CodComm, Prof, TempiXComm From miaQuery ORDER BY CodComm;",
_
cnAnagrafiche, adOpenStatic, adLockReadOnly, adCmdText
Questa query è la seguente :
SELECT CodComm, Associato, SUM(Tempo) AS TempiXComm
FROM TR
WHERE (((TR.Giorno)>=#1/1/2002# And (TR.Giorno)<=#31/12/2002#))
GROUP BY Associato, CodComm
HAVING (Associato = -1)
ORDER BY CodComm;
questa non fa altro che sommare i tempi impiegati da ogni professionista per
svolgere un lavoro (o commessa) prendendo i dati da una tabella con i tempi
giornalieri impiegati da ogni professionista per ogni commessa.
Il mio problema è che dovrei prendere i valori riguardanti soltanto uno
specifico periodo.
Nella query di access risolvo il problema inserendo la proposizione WHERE
(((TR.Giorno)>=#1/1/2002# And (TR.Giorno)<=#31/12/2002#)), però questo non
va bene perchè limiterei la query a calcolare sempre quella fascia di tempo.
Io vorrei invece che dal form, selezionando tramite una combo una fascia di
tempo, possa agire sulla query salvata nel db access filtrando solo il
periodo scelto da me.
C'è un modo per farlo?
Vi ringrazio
Ciao
Marco
--
----|----|----|----|----|----|----|----|----|----|----|----|----|----|--
www.360net.it


dato che usi un recordset puoi usare il metodo filter....
es.
rs.filter =  <condizioni>
per rimuover il filtro
rs.filter = adFilterNone
oppure scriviti direttamente una query parametrica....
--
bye BlackMagic
ICQ#:85485468


Non è possibile filtrare il recordset perchè la query non deve visualizzre
il campo data (e quindi non posso mettere il group al campo data) altrimenti
non farebbe più la somma dei tempi per lavoro.
Per quanto riguarda invece la query parametrica, mi potresti spiegare come
farla?
Ti ringrazio Ciao
Marco

 ha scritto nel messaggio
news:PCIG9.19112$fa.6...@news1.tin.it...

c'è un punto che non mi torna, perchè da codice fai una select su una query
memorizzata nel db?
No puoi fare direttamente tutto da codice e usare due variabili per i campi
data?



 Ho dovuto creare la query nel db perchè ci sono altre query che prendono
valori da questa query... è lungo da spiegare ma ho dovuto fare così,
infatti da 2 tabelle ho ricavato 5 query perchè ognuna di queste raggruppa i
valori in un certo modo. Sicuramente non avrai capito niente di quello che
ho detto ma sono da poco tornato dal lavoro e non connetto +.
Mi sa che fai prima a spiegarmi come si può fare una query parametrica nel
mio caso, partendo dalla query salvata nel db.
Scusami ancora ciao
Marco

 Marco
se č cosě non credo tu possa usare una query parametrica, č sufficiente che
il tuo recordset lo popoli con:
dim mySql as string
mySql = "SELECT CodComm, Associato, SUM(Tempo) AS TempiXComm
FROM TR WHERE (((TR.Giorno)>=#" & <TUAVAR1> & "# And
(TR.Giorno)<=#" & <TUAVAR2> & "#))
GROUP BY Associato, CodComm
HAVING (Associato = -1)
ORDER BY CodComm"
e lasci invariato il DB

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT][?] PER IL WEBMASTER DEL SC

Volevo fare una richiesta (se mi e' consentito).
Aggiugnere la categoria "Windows-GUI" a quelle già presenti.
Molti progetti riportano essenzialmente soluzioni a problemi con la gestione dei
*controlli* e gestione dei *form*. Progetti che secondo me non rientrano nella (troppo)
generica categoria "Windows", ne' hanno niente a che vedere con la "Grafica".
Mi sono "allargato" troppo? Mi sono preso un confidenza che non dovevo? :)

COMUNE], 
OK, OK, mi prendo per il c... da solo, almeno limito i danni..... ;-PPP
E non azzardatevi a rispondere a questo messaggio o a segnalare quell'errore!!!!! ^__^
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------



Quando si è deciso di indicizzare tutto il contenuto, il Sito Comune conteneva circa 300 progetti,
senza contare gli articoli, reconsioni di libri, FAQ (in fase di rifacimento), links e FTP. Ora
siamo arrivati oltre 400, senza contare FAQ, FTP e links.
Le proposte di nomi di categorie erano molte e diverse, ma si è optato per sceglierne poche e
piuttosto generiche per evitare di ritrovarci con decine di categorie, ciascuna con magari solo un
paio di progetti, che avrebbero portato più confuzione che altro.
Ora che è stata fatta una prima suddivisione, ci siamo fatti più o meno un'idea di quelle che
potrebbero essere possibili nuove categorie oppure sotto categorie (ad esempio c'era la proposta, da
vagliare, di raggruppare Grafica e Multimedia in un unica categoria Multimedia e suddividerla in
Multimedia/Grafica, Multimedia/Audio, Multimedia/Video)
Quindi osservazioni come questa sono gradite e ben accette, poiché ci consentono di sapere come
rendere il Sito COmune più facilmente navigabile, quali migliorie apportare, in che direzione
moverci.
Se avete proposte simili a questa vi invito, anziché proporre qui sul NG (ah, tra l'altro per
comunicazioni riguardanti il Sito Comune, sarebbe meglio utilizzare un topic con prefisso [DITO
COMUNE], come suggerito dal menifesto, altrimenti potrei farmi sfuggire il messaggio...), ad
utilizzare l'apposito modulo per le comunicazioni con il WebMaster che trovate sul Sito Comune (la
bustina con la lettera nella "toolbar").
Ciao e grazie,
Moreno
Sirri Moreno
WebMaster del Sito Comune di questo newsgroup:
http://www.it-lang-vb.net
webm...@it-lang-vb.net

 ha scritto nel messaggio
news:d178dtgcf0q1slq2h...@4ax.com...


E non azzardatevi a rispondere a questo messaggio o a segnalare quell'errore!!!!! ^__^
Spiacente.
Impossibile resistere :)))))))))))))))))))))
ciao, hal

 wrote in message
9b2k2t$7j3od$1...@ID-56381.news.dfncis.de...


:)))))))) (ok ok sto zitto...)
Ragazzi, vi voglio un bene, ma un bene che non avete idea.... ;-)))))))
Eh, ma riderò anch'io quando sbaglierete voi... sbaglierete qualche volta, vero? :-)))))

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] VB X Excel: come copiare automaticamente una cella in un altro foglio excel?

Salve a tutti, ho bisogno di fare in modo che se in una o piu' colonne la
quantita' sia maggiore di 0, tutte quelle righe, vengano copiate pari pari
su un altro foglio excel. Siccome  e' la prima volta che mi avvicino al VB
per excel, non so proprio da che parte iniziare. potete darmi qualche
"dritta"?
Grazie

Io trovo tuttora molto utile il registratore di macro:
Sub Macro1()
' Macro registrata il 17/01/2004 da
    'Selezioni il folgio che ti interessa (es. Sheets("Dati").Select )
    Sheets("Foglio2").Select
    'Selezioni la cella "B2"
    Range("B2").Select
    'Copi
    Selection.Copy
    'Selezioni il folgio che ti interessa (es. Sheets("AltriDati").Select )
    Sheets("Foglio2").Select
    'Selezioni la cella di destinazione "C3"
    Range("C3").Select
    'Incolli
    ActiveSheet.Paste
End Sub

Grazie 1000 della risposta... Ho proceduto in effetti scrivendo una macro,
ma ho ancora qualche problemino:
Praticamente,  la prima riga dell'ordine parte dalla cella "A16", ed il
prezzo totale dell articolo si trova in "E16".
Vorrei sapere, come posso fare perche' possa scrivere il totale della
fattura in una cella (ipoteticamente "C9")?
Vorrei cioe' che in C9 comparisse il totale di "E16"+ eventuali altre righe
dell'ordine (E17, E18, ecc. ecc..)
Io ho fatto in questo modo:
indice = indice + 1
             x = indice
             Miavar = 16
             miavar2 = Miavar + x - 1
            For b = 16 To miavar2
            Somma = Range("Ordine!E" & b).Value
            Range("Ordine!C9") = Range("Ordine!E16") + Range("Ordine!E" & b)
            Next b
ma cosi facendo, mi calcola soltanto il valore del primo e dell'ultimo
articolo, tralasciando tutti gli altri...
Sicuramente e' una cavolata, ma al momento mi sta facendo dannare, grazie x
l'aiuto.
Ciao
Roberto

Newsgroup: it.comp.lang.visual-basic
Titolo: Formule di MS Word

Forse non è il newsgroup giusto ma non so come fare altrimenti.
Sto inserendo una formula in una tabella di word ma  mi restituisce un
sintax error
La formula è la seguente
=IF(1>0,(ROUND((g2-100)/2000;0)*1000),0)
sapreste dirmi che cosa c'e di sbagliato perchè io non so piu dove
sbattere la testa.
Grazie.

 sbattere la testa.
Ci sono degli errori nell'uso delle virgole e delle parentesi.
La formula corretta è questa:
=IF(1>0; ROUND((((1000-100)/2000)*1000);2); 0)

Newsgroup: it.comp.lang.visual-basic
Titolo: FILE MSVBVM60.DLL

C'e' qualche anima buona che possa inviarmi il File MSVBVM60.DLL
all'indirizzo 
da...@intercam.it
 all'attenzione di Cristian ?
Vi ringrazio per l'interessamento.
Cristian.

*****All'attenzione di Cristian******
Se nessuno te lo spedisce puoi scaricarlo da qui:
http://www.xoom.it/airchris/msvbvm60.zip
Ciao. :-)
               --Please also reply via E-Mail--
                      4169522043485253


Newsgroup: it.comp.lang.visual-basic
Titolo: dbgrid e colori ?

Posso colorare un intera riga di una dbgrid in base al valore di uno dei
dati di una cella
Non so se mi son spiegato comunque grazie a tutti per l 'aiuto che mi state
dando !
Ciao cek

 wrote in message
97bk8u$ojj9g$1...@ID-47601.news.dfncis.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: DB Access 2000

C'è un modo per utilizzare i DB in versione Access 2000 o superiore con VB
6.0?
Grazie in anticipo
Luca

 ha scritto

devi installare il sp6 di vb.
--
ciao, j.
http://www.sundaysw.com/google.gif

 ha scritto nel messaggio
news:bvc1c9$qkhco$1...@ID-51318.news.uni-berlin.de...


 mi sai dire dove posso trovarlo?? Sul sito della Microsoft c'è solo il
SP5.
Non sapevo dell'esistenza del SP6, ma ci sono tante cose che non so. Ora
vado a cercarlo.
Comunque io con il SP5 ci lavoro sulle banche dati Access 2000!
-- 
Esteban
www.seber.it

 ha scritto


Newsgroup: it.comp.lang.visual-basic
Titolo: come chiudere tutte le applicazioni?

Come posso chiudere forzatamente tutte le applicazioni e tenere apera
solo la mia?
Fa...@net-service.it


Fa...@net-service.it
begin 666 toolhelp32.txt
<encoded_portion_removed>
end

Newsgroup: it.comp.lang.visual-basic
Titolo: listbox.style =1 (cheched)

hello
con listibox ed attivando il metodo style=1 accanto agli item inseriti
compare il quadratino di checked
e selezionando gli item nel quadratino compare il segno di spunto o scompare
se si riclicca.
vorrei sapere come fare a far comparire il segno di spinta di uno o piu item
da codice e come fare a sapere
quali itm della lisybox l'utente gli ha "spuntati,oppure con deselezionare
tutto o deselezionare il tutto
leonello

[leonello = 
circa_leonell...@fastwebnet.it
 in
Qyzac.17675$
jY1....@tornado.fastwebnet.it
] ha scritto:

Esattamente come prima. Il check corrisponde alla proprietà Selected.

 Esattamente come prima. Il check corrisponde alla proprietą Selected.
 grazie lupo........ma sei piu svelto del fulmine
leonello