mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Come stampare su modulo continuo?

ho un problema:
- uso l'oggetto printer
- ma la mia stampante non accetta l'impostazione
    papersize=vbPRTuser
- il fatto è che devo stampare su un foglio più lungo di un
    formato A4 (210X297)
- La mia altezza particolare è 303
- Ma la stampante alla creazione di una nuova pagina si
    posizione in maniera automatica all'inizio della pagina
successiva (effetto indesiderato)
- Non posso non completare con il metodo
    Printer.newPage altrimenti il testo della pagina
    successiva si posiziona sempre nella prima

 - il fatto č che devo stampare su un foglio piů lungo di un
se il programma devefunzionare solo con     quella stampante e non su altre
basta prendersi il manuale della stampante e cercare la sequenza (di solito
chr(2) e qualcos'altro) di comando che imposta la lunghezza pagina.
Altrimenti ti crei un archivio con le impostazioni delle varie stampanti su
cui doveai operare.

Newsgroup: it.comp.lang.visual-basic
Titolo: Comando per spegnere il PC

Ciao a tutti, avrei bisogno del vostro aiuto!
Vorrei sapere se esiste un comando in visualbasic (mi serve per una macro di
excel 2003) che mi spenga il computer al termine dell'esecuzione della
macro.
In pratica io mi sono costruito per motivi di lavoro una macro che però dura
parecchio tempo, quindi spesso lascio il computer dell'ufficio acceso per
trovarla pronta la mattina: vorrei inserire una semplice linea di codice
che, dopo aver salvato il lavoro al termine dell'esecuzione chiuda windows
XP. Secondo voi è possibile??
Grazie


Ciao
prova con l'istruzione Shell() e come argomento
    "cmd.exe /C shutdown -s"
Ciao
--
Lorenzo

 ha scritto nel messaggio 
news:VPZLe.55258$2U1.3...@news3.tin.it...


 ha scritto nel messaggio 
news:VPZLe.55258$2U1.3...@news3.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: problemino che non si puo neanche definire tale.

So che e' un'idiozia....
in una combobox che contiene 1 2 e 3 devo far si che in determinate
condizioni visualizzi SOLO 1 e 2 o solamente 1... mi sono incartato...
sono sicuro che qualcuno mi sa dire la soluzione al mio problemino e
magari farmi notare anche quanto sono stupido ;-)
Grazie in anticipo...
Dipa

 ha scritto nel messaggio
news:3d559528...@news.fastwebnet.it...

Vedi RemoveItem e Additem
Newsgroup: it.comp.lang.visual-basic
Titolo: tabelle collegate

Ciao a tutti, sono alle prese con una strana situazione:
Ho un database suddiviso in due files, uno di dati e uno di interfaccia
utente, devo poter eliminare con un pulsante una colonna di una tabella e di
reinserirla successivamente assumendo un campo contatore per poter numerare
in progressivo.
Ho usato il seguente codice sql su una tabella non collegata e funziona,
mentre se la tabella a cui mi riferisco è collegata ad un altro database mi
dice che non puo svolgere la query, come risolvo questo problema?
DoCmd.RunSQL ("ALTER TABLE [tabella] DROP COLUMN ColonnaDaEliminare;")
DoCmd.RunSQL ("ALTER TABLE [tabella] ADD COLUMN ColonnaDaEliminare
COUNTER;")
Vi ringrazio
Marco

 dice che non puo svolgere la query, come risolvo questo problema?
Semplice, mi sa che non puoi.
Ti faccio un esempio:
In Access se usavo un indice, impostando il database a CurrentDb (il db ha
le tabelle collegate) mi dava errore, mentre settando il database al
percorso corretto (e quindi non piů a currentDb ma a "C:\prova.mdb")
funziona correttamente.
Mi viene in mente:
1)Prova a specificare il percorso nell'istruzione Sql. Mi sembra che sia:
  Select * [Tabella] in 'TuoPercorso.mdb'  (ovviamente al posto di select
usi i tuoi comandi T-Sql)
2)Prova a vedere se l'oggetto Database ha al suo interno qualche metodo tipo
RunSql, se si setti il Db sull'archivio corretto, e poi lanci i comandi...
Spero di essere stato chiaro, se non riesci posta..
Ciao
Oz

Secondo me non è risolvibile, essendo collegata hai solo una "copia" della
struttura (prova ad entrare con access, neanche manualmente è possibile
cambiare qualcosa nella struttura di una tabella collegata).
Devi intervenire nel db "originale" e poi riallegare la tabella.

Newsgroup: it.comp.lang.visual-basic
Titolo: Vi supplico aiutatemi!

Vi ripeto la mia richiesta gia inoltrata: chi puņ farlo mi aiuti.
Ho una mia applicazione che gestisce un database Access e il cui fine ultimo
č stampare un report di crystal report. Nel mio database ho avuto bisogno di
inserire un campo di tipo 'oggetto OLE' per contenere una piccola immagine
BMP: se io inserisco manualmente da Access le immagini per ogni records il
report me le visualizza correttamente. Il problema che ho edesso č questo:
come faccio a inserire un'immagine (posso averla sia contenuta in un
controllo imagelist sia direttamente come BMP o JPG) direttamente da codice?
Grazie per l'eventuale aiuto.
    Simone

...

Newsgroup: it.comp.lang.visual-basic
Titolo: Gestione Turni Dipendenti - Esiste ? -

Esiste un progetto con sorgenti per detto problema ?
Grazie, Nick.

 Esiste un progetto con sorgenti per detto problema ?
Ho fatto qualcosa (richiesta pervenuta tramite il WM-ex- del SC/Leonardo)
per i turni dei Vigili del Fuoco (la procedura è comunque applicabile a ogni
situazione ove sia prevista disponibilità/indisponibilità in relazione,
opzionalmente, alla data/ora correnti), ovviamente free e con sorgenti.
Sono in attesa di segnalazioni/migliorie/bugs/ottimizzazioni, poi
pubblicherò (se il primo richiedente/utente è sempre dell'avviso) sul SC.
No, ora non spedisco nulla... Sorry ;-)

 ha scritto nel messaggio
news:b3dur3$1kki94$1...@ID-174464.news.dfncis.de...


 Quando e dove pubblicherai, se pubblicherai ?
SC = Sito Comune (di questo NewsGroup) = 
http://www.it-lang-vb.net/

> Quando e dove pubblicherai, se pubblicherai ?
Ah, quando?
Immagino entro 15/20 gg, diciamo che il 22 porterò un floppy al meeting
(sempre se autorizzato e se il WM riterrà di pubblicare)
Lupo.che.sponsorizza.il.meeting.del.quale.non.si.parla.più ;-) ;-(

 Lupo.che.sponsorizza.il.meeting.del.quale.non.si.parla.più ;-) ;-(
che altro c'e' da dire ? ^_^
ci _VEDREMO_ il 22 marzo alle 10-11 alla stazione centrale di Bologna ^_^;;
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

 ci _VEDREMO_ il 22 marzo alle 10-11 alla stazione centrale di Bologna
^_^;;
E per quelli che (magari con la macchina satura)
si recassero direttamente al ristorante ... è prevista la frusta? ;-)

22 meeting?? Adņ???
Ciao
Andrea
P.S. Sperando che possa partecipare.

 22 meeting?? Adò???
http://makeashorterlink.com/?C5DD36593

 ha scritto nel messaggio
news:b3dv40$1kr4n5$1...@ID-174464.news.dfncis.de...


 
http://makeashorterlink.com/?C5DD36593
Ho sbagliato (quello era il precedente):
http://makeashorterlink.com/?A21E12593

 Lupo mi puoi contattare in email, ti dovrei chiedere un parere...puoi ?
Come ripeto spesso, preferisco farlo qui, nulla di personale... scusami.
Butta un sasso, poi vediamo, ok?

 ha scritto nel messaggio
news:b3e2kp$1jn0g0$1...@ID-174464.news.dfncis.de...


 intendo..;-), sempre se hai tempo.
Ehhhhh??? ;-)
Non ho mai visto Unix, non so cosa sia un telnet
Mi spiace, la mia ignoranza è veramente mostruosa, non sto scherzando.
Credo però che tu possa aprire un topic con domande adeguate e ... un minimo
di codice (se VB).
Certo qualcuno una dritta te la può dare.

 si recassero direttamente al ristorante ... è prevista la frusta? ;-)
Un posticino per me ce l'hai?
--
Salutoni
Sergio

CSSoft ha scritto:

Ti avevo già contato ;-)
Newsgroup: it.comp.lang.visual-basic
Titolo: riconoscere OS

ciao
c'e' una qualche funzione per distinguere se sto lavorando su di un
win con base nt oppure sugli altri os (9x/me)?
grazie
James Tiberius Kirk, matricola SC 937-076 CEC,
 nato a Riverside, nello Iowa, USA, Terra il 1277.1 (26/03/2233).

 win con base nt oppure sugli altri os (9x/me)?
Bastava cercare su google
Funzione GetVersionEx
Declare Function GetVersionEx Lib "kernel32.dll" Alias "GetVersionExA"
(lpVersionInformation As OSVERSIONINFO) As Long
PIATTAFORME: Win 32s, Win 95/98, Win NT
La Funzione GetVersionEx legge le informazioni relative alla versione del
sistema operativo Windows.
Queste informazioni comprendono l'esatto numero della versione e della
piattaforma (3.x with Win32s, Windows 95, Windows NT, Windows 98, etc.).
L'informazione viene messa in una variabile passata come
lpVersionInformation.
La funzione ritorna 0 in caso di errore altrimenti ritorna 1.
PARAMETRI:
lpVersionInformation
Riceve informazioni sulla versione del sistema operativo.
Esempio:
' Display the major and minor version numbers of Windows.
' For example, 4.0 could represent Windows 95.
Dim os As OSVERSIONINFO  ' riceve la versione
Dim retval As Long  ' valore di ritorno
os.dwOSVersionInfoSize = Len(os)  ' Imposta la lunghezza della struttura
retval = GetVersionEx(os)  ' legge le info sulla versione di Windows
Debug.Print "Windows version number:"; os.dwMajorVersion; ".";
os.dwMinorVersion
-- 
Le persone non sono il proprio comportamento: devi sempre andare oltre,
essere flessibile, capire il punto di vista degli altri, interpretarne i
comportamenti ed intuirne le esigenze.
Per rispondere in privato elimina
dall'indirizzo "togliquesto"
MasterDavidex
David Ruscelli

 win con base nt oppure sugli altri os (9x/me)?
'*.vbs >>fso
Const OpenAsASCII =0:Const FailIfNotExist=0:Const ForReading=1
Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
sTemp = oShell.ExpandEnvironmentStrings("%TEMP%")
sTempFile = sTemp & "\runresult.tmp"
oShell.Run "%comspec% /c ver >" & sTempFile, 0, True
Set fFile = oFSO.OpenTextFile(sTempFile, ForReading, _
                                      FailIfNotExist, OpenAsASCII)
sResults = fFile.ReadAll
fFile.Close
oFSO.DeleteFile(sTempFile)
Select Case True
  Case InStr(sResults, "Windows 95") > 1 : GetOS = "W95"
  Case InStr(sResults, "Windows 98") > 1 : GetOS = "W98"
  Case InStr(sResults, "Windows Millennium") > 1 : GetOS = "WME"
  Case InStr(sResults, "Windows NT") > 1 : GetOS = "NT4"
  Case InStr(sResults, "Windows 2000") > 1 : GetOS = "W2k"
  Case InStr(sResults, "Windows XP") > 1 : GetOS = "WXP"
 ' Case Else : sResults = "Unknown"
 Case Else : GetOS = "Unknown"
End Select
MsgBox GetOS
--
Fosco
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Ma il WM (Lord) è in vacanza?

Lord, non ho più sentito nulla sulle elezioni, senza dubbi, per carità, ma
avevi promesso un post "formale". Ti ho scritto anche recentemente (un paio
di giorni fa), ma non ho ricevuto alcun tipo di risposta. Avevi intenzione
di pubblicare sul SC il regresso una ventina di giorni or sono eppure la
bacheca è statica. Un post della serie "Ragazzi, vado in vacanza" ci poteva
stare, non pensi?
Facci sapere. Sia ben chiaro, nessuno (almeno io) ha fretta, era giusto per
capire.

 giusto per capire.
Io avrei fretta... ;)

 ... problemi più gravi incombono sulla mia persona in questo periodo! :(
Lord, mi spiace, spero non sia nulla di grave.

 Lord, mi spiace, spero non sia nulla di grave.
mi aggrego e prendo spunto per porvi una "probabile" soluzione per il SC :
ero un wb di 
www.ithn.it
 e di altri siti comuni , ho avuto molto a che fare
con la multigestione di siti e analizzando il sito comune avrei da proporvi
un piccolo aiuto/consiglio :
visto che molto aggiornamento gira sull'upload di testo o di file , perche'
non fare una semplice paginetta di upload che punti a una dir tipo
.../uptemp poi  da questa cartella si possono creare pagine del tipo
...new.htm che contengono la lista dei nuovi arrivi , almeno e' una specie
di aggiornamento temporaneo prima che passi il WM ufficiale e sposti i file
( articoli , binari , sorgenti ) nelle rispettive cartelle !
PS: logicamente l'upload si limiterebbe a una decina o meno di
aiutowebmaster o propriamente detti "uploaders"
scusate l'intrusione !

Newsgroup: it.comp.lang.visual-basic
Titolo: SQL group by primo record

SAlve,
ho scritto una query ed ora devo raggruppare i risultati in base a
tutti i campi restituiti. Uno di questi mi servirebbe raggrupparli in
base al PRIMO numero trovato. E' per caso la funzione FIRST da usare?
Se si qual'è la sintassi? Io non ci sono riuscito.
GRazie

 E' per caso la funzione FIRST da usare? > Se si qual'è la sintassi? Io non
ci sono riuscito.
non conosco la funzione FIRST, quale sql la supporta?
Penso che in quel caso ci vorreppe una bella stored procedure
Newsgroup: it.comp.lang.visual-basic
Titolo: Mi controllereste questa instruzione SQL?

 Devo fare una selezione da una tabella utilizzando un parametro scelto di
volta in volta e stampato in una label
Questa istruzione mi da un errore
RSClienti.Open "SELECT *  FROM clienti where compagnia=" &
ScegliCompagnia.Label2.Caption & " ", Connessione
Precisamente: Nessun valore specificato per alcuni parametri necessari!!

 ha scritto nel messaggio
news:9nkok5$e5s$1...@nreada.inwind.it...


 ha scritto nel messaggio
news:9nkok5$e5s$1...@nreada.inwind.it...


 ScegliCompagnia.Label2.Caption & chr(34)
Non è detto che risolva. Se uno dei clienti è la: Pizzeria "La Giara"
è al punto di prima. L'unica (IMHO) è scegliere uno dei due (' o ") a
caso (e/o gusto personale) e scansionare la stringa raddoppiando tutte
le (eventuali) occorrenze di quella scelta.
Ciao.
Mauro

Newsgroup: it.comp.lang.visual-basic
Titolo: Minimizzare una form

Tanto per cambiare, un aiutino...
è possibile (e se si, come) minimizzare una form? Intendo non minimizzare
come con
NomeForm.WindowState = 1
ma nascondere la form come con
NomeForm.hide
e avere l'icona in basso a destra vicina all'orologio, come fanno programmi
tipo antivirus, connessioni internet e compagnia cantante
Grazzzzzzie!
D
================================
LEGGE DI BOOKER: Un grammo di applicazione vale piu' di una tonnellata di
astrazione.
================================

 č possibile (e se si, come) minimizzare una form? Intendo non minimizzare


 
http://support.microsoft.com/support/kb/articles/q162/6/13.asp
Grazie mille... mi sto sbattendo un po' perchè è in inglese, comunque
dovrebbe essere quello che mi serve
D
================================
PRIMA LEGGE DI SCOTT: Qualsiasi cosa vada male, avra' probabilmente l'aria
di andare benissimo.
================================

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Ordinare le directory

Salve a tutti!
Come faccio ad ordinare le directory e file? Voglio dire, come con il
tasto destro del menu avvio, "Ordina per nome"...
--
Dos
minic...@cheerful.com

 wrote in message
news:43tllscomo808qm1s...@4ax.com...


Nessun controllo, proprio nel file sytem.. se provi il sw di tweaking
IweakU, quello lo fa... volevo farlo anch'io!!!


--
Dos
minic...@cheerful.com

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] esempi con DataGrid

Salve a tutti,
qualcuno sa darmi qualche indicazione su dove trovare degli esempi di codice
per utilizzare un DataGrid?
N.B. non so assolutamente niente su qst controllo.
Grazie.
Ciao.
Paolo.

 N.B. non so assolutamente niente su qst controllo.
Msdn
cia
ugo
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto!!! devo fare un cronometro con VB...vi prego aiutatemi

Ho bisogno di sapere se è possibile scrivere con visual basic un programma
che emuli le funzioni di un cronometro. A me servirebbe un cronometro che
riuscisse a memorizzare i tempi ( tipo le funzioni di "split" o "lap time"
dei normalissimi cronometri degli orologi Casio)...ad esempio: mentre il
cronometro sta andando pigio spazio e lui mi memoriza il tempo in quel dato
momento continuando ad andare avanti, poi ripigio spazio un altra volta e
lui mi memorizza un nuovo tempo
in quel momento e via dicendo...alla fine come output finale vorrei avere un
.txt con tutti i tempi memorizzati come ad esempio : 07/03/2000  12:00pm
00:15:54 (ore:min:sec), poi una riga sotto il tempo successivo ecc ecc. Si
puo' fare una cosa del genere?????? Vi prego sono nuovo nel mondo di Visual
Basic...mi fareste un grosso favore.
 Saluti e grazie.

 ha scritto nel messaggio
news:8cvmi4$2eh$1...@nslave2.tin.it...


beh se ho capito bene e se laprecisione che ti serve non è nell'ordine dei
ms puoi usare un form+un controllo timer + un paio di common button.
con i common button abilioti disabiliti il timer e ad ogni pressione del
command button aggiungi ad una matrice la stringa che ti interessa.
allo stop salvi la matrice su di un file
ciauz!

a parte la parte grafica..
sub Su_Premuta_Barra(m() as doble)
    redim preserve m(0 to ubound(m)+1) as long
    'aumenti la matrice di una posizione!... ma puoi anche prevedere un
massimo di tempi intermedi e passare l'indice di volta in volta
    m(ubound(m)=timer
end sub
dopo di che:
dim c as integer
c=freefile
i=freefile
dim a as string
open "quellochevuoi" for output as #c
for i= 0 to ubound(m)
    a= format(date, formato) & "    "  & format(m(i), "formato)
    ?#c,a
next
--
Saluti da Barovia
Strahd von Zarovich

Newsgroup: it.comp.lang.visual-basic
Titolo: Play file

Scusate la mia ignoranza ma come si fa a suonare un Wave
con VB6 ?
Alex
--
Posted from 
net128-007.mclink.it
 [195.110.128.7]
via Mailgate.ORG Server - 
http://www.mailgate.org


Usa le chiamate al sistema operatico (API)
Ci sono ottime spiegazioni sul Sito Comune di questo NG in "Piccole Perle"
FAQ e ci sono anche esempi di progetti nella sezione Sorgenti. In generale
c'e' davvero tanta roba su tante cose.
URL: 
http://www.murialdo.it/it_lang_vb
Ciao
By -MES-   Maronese Ettore
http://ilmes.freeweb.org
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://www.murialdo.it/it_lang_vb
Newsgroup: it.comp.lang.visual-basic
Titolo: Esempio di Sub

Private Sub nuoto()
 dim pinne as string
 dim maschera as string
 dim muta as string
 pinne="pinne nere marca x"
 maschera="maschera col boccaglio incorporato marca y"
 muta="..."
 msgbox "Questa è una sub normale"
End Sub
-- 
SCIRIO - 100% COMMERCIALE
http://scirio.altervista.org
http://cinemaz.altervista.org
http://freddure.altervista.org
http://ihu.altervista.org
http://rime.altervista.org
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


E adesso cosa aspetti che ti diciamo bravo?! ;-)
Ciao, Vincenzo

 E adesso cosa aspetti che ti diciamo bravo?! ;-)
ma, no
basta anche un lolz :)



Io avrei fatto un Type Accessoridamare.............

 End Sub
Mi spiace, ma qui sono ammesse solo storielle e battute 'a tema'. Ti
consiglio di riguardarti l'archivio del Dr.Zap.
Bye by SixaM 8-]
-- 


 basta anche un lolz :)
MsgBox StrReverse(Mid(maschera, 11, 2)) & _
       Mid(maschera, 12, 1) & Chr(Asc(Right(pinne, 1)) + 2)
termoPilucco
-- 


 Bye by SixaM 8-]
zap, zap, aspč
dov'č che l'ho giŕ sentitoz?
ah...
http://www.drzap.it/O_Scirio.htm
;)
-- 
Indovina il film:
Sulla Terra nel 3955 č in corso una guerra tra le scimmie e gli uomini
mutanti superstiti della guerra atomica.
In questo contesto gli astronauti venuti dalla terra di un altro periodo,
cercano di fuggire da questo assurdo mondo.
Il seguito de 'il pianeta delle scimmie'.
Soluzione: 
http://cinemaz.altervista.org/?id=3478

 
sintax errorz :)
-- 
Indovina il film:
Un virus molto potente ha colpito la terra, trasformando i contagiati in
una specie di zombie cannibali.
Soluzione: 
http://cinemaz.altervista.org/?id=1862

sintax errorz :)
psss... 
devi inserirlo nel contesto della tua sub ;)
termoPilucco

) mi hai interrotto dicendo:

ops, lolz :)
ma quanto c'hai messo a elaborarla? :)
-- 
Indovina il film:
Jack è un agente specializzato nel disinnescare esplosivi.
Un giorno un pazzo criminale mette una bomba su un pullman e sfida Jack a
disinnescarla.
La bomba però, esploderà se il pullman andrà al di sotto di una certa
velocità
Soluzione: 
http://cinemaz.altervista.org/?id=2620

  msgbox "Questa è una sub normale"
Non è l'unica ad essere una "sub normale" ;)
Ciao
--
Reporting tool: 
http://www.neodatatype.net

End Sub
Mah, a me questo sa tanto di un apneista.... dove sono la bombola, il
jacket, l'erogatore ridondato, la strumentazione... ;-)
--
Ciao!
Luca Menegotto
Newsgroup: it.comp.lang.visual-basic
Titolo: Perche' non va ?

Salve,
ho dei problemini utilizzando una chiamata API a 16 bit. Infatti
WindowFromPoint non mi funziona, o meglio non funziona a 16 bit. Infatti a
32 va tutto bene pero' quando utilizzo l'api  a 16 bit mi arrivano risultati
anomali. Infatti con il seguente codice mi dovrebbe ritornare l'handle della
finestra dove c'e' il mouse :
GetCursorPos(p)
hwnd=WindowFromPoint(p)
ed invece mi ritorna degli handle errati, come se i controlli contenuti sul
form fossero spostati.
Qualcuno sa il perche' ????????????
        GRAZIE !!!!!!!!
GIANLUCA LARENTIS

 
io faccio la chiamata cosě:
    Call GetCursorPos(t_Point)
    n_curhWnd = WindowFromPoint(t_Point.Y, t_Point.X)
e funziona benissimo (la uso per i tooltips in vb4-16).
Saluti
Silvio Sorrentino
Newsgroup: it.comp.lang.visual-basic
Titolo: Fax, come si inviano?

Tento già da un pò di inviare fax dirattemente dal mio programma VB. Non
riesco a trovare da nessuna parte della documentazione in merito. Qualche
tempo fa ho letto sul newgroup che installando winfax si potevano utilizzare
le sue librerie per poter inviare i fax da VB.
Ora io mi chiedo:
1) Le librerie da utilizzare sono quelle che mi installa winfax?
2) Qualcuno sa dove posso trovare documentazione su queste librerie?
3) Non esiste qualche altro modo per inviare i fax da VB?
Grazie anticipatamente,
Ciao Gaetano
-- 
Posted from 
pop09-acc.tin.it
 [212.216.176.72] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Grazie anticipatamente,
prego posticipatamente

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

Salve a tutti,
Il problema è il seguente:
Dal  frammento di codice si dovrebbe creare prima la tabella e a
seguire la chiave, la tabella si crea senza problemi  ma la chiave no.
qualcuno ha suggerimenti da darmi??
    Dim tdfNuovo    As TableDef
    Dim fldTemp     As Field
    Dim idxKey      As Index
    Set dbTabe = DBEngine.Workspaces(0).OpenDatabase(Txt_Path)
    Set tdfNuovo = dbTabe.CreateTableDef("PIANOC")
    With tdfNuovo
        .Fields.Append .CreateField("CONTO", dbText, 10)
        .Fields.Append .CreateField("DESCONTO", dbText, 128)
        .Fields.Append .CreateField("CAPOC", dbText, 10)
        .Fields("Capoc").AllowZeroLength = True
        dbTabe.TableDefs.Append tdfNuovo
        Set idxKey = .CreateIndex("Prima Key")
        With idxKey
            .Primary = True
            .Fields.Append.CreateField ("CONTO")
        End With
        .Indexes.Append idxKey
     End With

             .Primary = True
               .Fields.Append tdfNuovo.CreateField("CONTO")

Newsgroup: it.comp.lang.visual-basic
Titolo: Software istallatore

Mi trovo nella necessità di distruibuire un programma a chi ha poca
confidenza con il computer.
Devo fare in modo che l'istallazione, oltre a rendere funzionante il
programma, lo inserisca nella barra dell'avvio o crei un collegamento sul
desktop.
La procedura di installazione fornita dal Visual Basic 4.0 risolve
egregiamente il primo problema ma non il secondo.
Esiste in circolazione del software che riesce a fare entrambe le cose?
Grazie
---------------------------**-------------------------
F.Martinelli
Viareggio (LU)
Franc...@mail.dex-net.com
http://www.dex-net.com/ei886
oppure
in...@nauticoartiglio.lu.it
http://www.nauticoartiglio.lu.it
--------------------------**----------------------------

Esiste in circolazione del software che riesce a fare entrambe le cose?
Installshield Express 2
Ho provato una trial (30gg) è molto facile da usare ed efficace.
Lo puoi acquistare da Programmer's Paradise 
www.pparadise.it
Ciao
--
-
MIX (VB5SP3)
post...@yahoo.com
90 links ai siti VB
http://space.tin.it/computer/gaais
http://www.tempolibero.com/user/mix/
 (alternativo)
-

Mi trovo nella necessità di distruibuire un programma a chi ha poca
confidenza con il computer.
Devo fare in modo che l'istallazione, oltre a rendere funzionante il
programma, lo inserisca nella barra dell'avvio o crei un collegamento sul
desktop.
La procedura di installazione fornita dal Visual Basic 4.0 risolve
egregiamente il primo problema ma non il secondo.
Esiste in circolazione del software che riesce a fare entrambe le cose?
Grazie


Newsgroup: it.comp.lang.visual-basic
Titolo: Posso scrivere un Client Chat con VB?

Posso scrivere un Chat Client con VB?
Se sě come?
Potete consigliarmi qualche esempio o tutorial?
Grazie.
Ciao.

 ha scritto

http://members.xoom.it/vbindex

 
http://members.xoom.it/vbindex
Non ho trovato granchè al sito date indicatomi...
Potreste darmi una mano?
Grazie.
Ciao.

 Potreste darmi una mano?
io conto 7 cose a "cms_chat".
se volevi cominciare, magari ti servono.
seno' prova via motori.

 seno' prova via motori.
Grazie lo stesso comunuqe.
Ciao.

> io conto 7 cose a "cms_chat".
Sono broken link.
Ho provato alla pagina dei fornitori.
Acky fornisce tutorial per versioni precedenti alla 6.0
E l'altro fornitore ha chiuso il sito.

 ha scritto

al solito, xoom fa le bizze.
via browser non arrivano, ma ho guardato con wsftp e ci sono.
cmq te li mando mail, facciamo prima :)
ciao, a.

 cmq te li mando mail, facciamo prima :)
purtroppo il tuo xoom rompe alla grande
di pomeriggio funziona ma di mattina non c'e' quasi mai :(
--
Fibia "Sakamoto" FBI
E-mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Sito Personale: 
http://www.geocities.com/fibiafbi
VB Simple: 
http://vbsimple.virtualave.net
Membro #25 delle Mitiche Brigate Takahashi sezione Sud

 di pomeriggio funziona ma di mattina non c'e' quasi mai :(
lo so. se conosci altri siti che regalano 500 mb per volta...
ciao, a.

 lo so. se conosci altri siti che regalano 500 mb per volta...
passa a Virtual Avenue
ti da fino a 9999 MB gratuiti
(basta piazzare la pubblicita' nei punti giusti)

Newsgroup: it.comp.lang.visual-basic
Titolo: problema con soap toolkit e vb6

Ciao a tutti.
Ho un webservices scritto in 
vb.net
 che ritorna dei file sotto forma di
una semplice struttura:
un array di byte con il file serializzato e il suo nome.
Dim fileReader As New BinaryReader(File.Open(downloadFilePath,
FileMode.Open))
returnValue.resultContent =
fileReader.ReadBytes(Convert.ToInt32(fInfo.Length))
fileReader.Close()
returnValue.resultString = myeBDFile.Name
return returnValue
in un client 
vb.net
 tutto funge, il problema è quando utilizzo vb6 con
il soap toolkit
Dim result As Object
Dim myArrayByte() As Byte
myService.ConnectorProperty("SoapAction") = "WebServices/Copyout"
Set result = myService.copyOut(BusinessDataId,BusinessDataFileId)
myArrayByte = StrConv(result.Item(1).childNodes(0).Data,vbFromUnicode)
    Dim fNum As Integer
        fNum = FreeFile
      Open "c:\pippo\pippo.jpg" For Binary As fNum
          Put fNum, , myArrayByte
       Close fNum
Il problema è che una jpg di 640kb con la conversione che fo diventa
di 960kb e naturalmente non si apre.
Da notare che result.Item(1).childNodes(0).Data
mi ritorna il valore come una String.
In cosa sbaglio ?

tutto ok,
semplicemente gli array di byte arrivano codificati in base64...
e naturalmente il soap toolkit si guarda bene di decodificarli^_^
vincen...@gmail.com
 ha scritto:

Newsgroup: it.comp.lang.visual-basic
Titolo: Non so che titolo dare

Mi chiedevo se fosse possibile creare un command button alla cui pressione
venga creato un altro command button. Non intendo visibilizzare un pulsante
invisibile ma proprio farglielo creare al programma, è possibile?

 wrote in message
smRj6.33180$7U4.9...@news.infostrada.it...


 ha scritto nel messaggio
news:smRj6.33180$7U4.9...@news.infostrada.it...

Prima metti la proprietà index a 0, poi:
Private Sub Command1(Index).Click ()
    If Index = 0 Then
        Load Command1(i)
        i = i + 1
    End If
End Sub

Newsgroup: it.comp.lang.visual-basic
Titolo: Visual Basic e linux

Ciao a tutti vorrei sapere se c'e un compilatore in commercio anche free 
per visual basic che giri su linux?
grazie mille per le eventuali risposte
..::LORDMASTER::..

per visual basic che giri su linux?
prova questo
http://sourceforge.net/projects/gambas/
Ciao Roberto
Caminamo muru muru e attenti e cannalati

 grazie mille per le eventuali risposte
Io ho provato Gambas e ti assicuro che non c'è male.
Molte espressioni sono praticamente uguali a quelle di vb (qualche volta
vb.net
), esiste anche un convertitore / importatore di progetti vb6
L'integrazione con Postgresql e MySql è buona.
Gli oggetti che ci sono sono più che dignitosi.
http://gambas.sourceforge.net/
Se non ti piace gambas a questo link puoi trovare altri compilatori basic
/ like.
http://basic.mindteq.com/
-- 
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: Aggiungere progressivo in select

Ciao a tutti,
sto cercando di fare una stampa senza dover fare una tabella temporanea.
Ho la mia SELECT principale
SELECT * FROM TABELLA ORDER BY CODTIPO
Mi tira fuori
IDRIGO	CODTIPO	DESCRIZIONE
1	1	'a'
2	1	'b'
3	2	'c'
4	9	'd'
5	9	'e'
Mi devo tirar fuori una cosa del genere
IDRIGO	CODTIPO	DESCRIZIONE	CONT
1	1	'a'		1
2	1	'b'		1
3	2	'c'		2
4	9	'd'		3
5	9	'e'		3
In pratica un campo che mi parta da un valore (1 o altro) e si incrementi
di uno ad ogni cambio di cod tipo.
Avete idea di come si possa far via sql?
Uso firebird
Grazie
-- 
DBMS Firebird
VB6 + Ado

 di uno ad ogni cambio di cod tipo.
Vediamo un po'...
Innanzitutto, devi estrarre e numerare i gruppi, poi basta un banale 
inner join. Metti tutto in una SP, adeguando la sintassi al tuo dbms:
SET NOCOUNT ON
CREATE TABLE DBO.#GRUPPI
(
CONT NUMERIC(18,0) IDENTITY,
COD_TIPO NUMERIC(18,0)
)
INSERT DBO.#GRUPPI (COD_TIPO)
SELECT DISTINCT COD_TIPO
FROM TABELLA
ORDER BY COD_TIPO ASC
SELECT A.ID_RIGO, A.COD_TIPO
       A.DESCRIZIONE, B.CONT
FROM TABELLA AS A
INNER JOIN DBO.#GRUPPI AS B
ON A.COD_TIPO=B.COD_TIPO
ORDER BY A.ID_RIGO ASC
DROP TABLE DBO.#GRUPPI
Ciao
Alberto
-- 
Friedrich Nietzsche: Un po' di salute ogni tanto è il miglior rimedio 
per l'ammalato.

 inner join. Metti tutto in una SP, adeguando la sintassi al tuo dbms:
Ti ringrazio me la segno.
Per ora (per urgenza) ho dovuto fare una tabella temporanea che non fa
altro che fare una distinct sul filtro di stampa e usare un contatore.
Appena ho un minuto provo a farla funzionare.
Tnx

Newsgroup: it.comp.lang.visual-basic
Titolo: Applicazione VB6 da sql 2000 a sql 2005.

Buongiorno a tutti,
ho un' applicazione implementata in VB6 che utilizza DTS con Sql Server
2000.
Qualcuno di voi saprebbe dirmi se e' a conoscenza di possibili
controindicazioni e/o incompatibilita' di qualche elemento passando a
sql server 2005 ?
Sul sito Microsoft si parla di riscrittura della gestione dei DTS, ma
non ho trovato, almeno per ora modifiche sulel chiamate da codice....
Grazie.
Lucilla.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Nessuno ha o avra' la necessita' di passare a Sql 2005?


Newsgroup: it.comp.lang.visual-basic
Titolo: ODBC E ACCESS

mi connetto ad un database access attraverso odbc in fase di aggiornamento
record se utilizzo chr(34) per identificare le stringe mi ritorna un errore
se invece utilizzo ' mi funziona.
esempio:
1 .  update tabella set nome='ciro' where id=2               (funziona)
2.   update tabella set nome="ciro" where id=2               (non funziona)
qualcuno saprebbe dirmi come posso fare per utilizzare la seconda sintassi.
grazie
ciao a tutti

 wrote in message
news:91nenp$55n$1...@serv1.iunet.it...



Perchč usi ODBC ?
Non puoi usare OLE DB ?
Con OLE DB funziona benissimo e la differenza č solo la stringa di
connessione.
Ciao
Sir Jo

Newsgroup: it.comp.lang.visual-basic
Titolo: Vi prego aiutatemi!!!

Sono un programmatore dilettante.
Sto realizzando una rubrica
Ho creato un file in access con i seguenti campi:
- Cognome
- n.telefono
Ho inserito nel mio form l'oggetto data1 e collegato al file .mdb
precedentemente creato, impostando le seguenti
proprietà: recordsource e DatabaseName
Ho inserito due caselle di testo
text1.text (Cognome)corretamente collegata al campo cognome
text2.text (N.telefono)correttamente collegata al campo n.telefono
(attraverso le proprietà DataSource e DataField)
Ho aggiunto i vari pulsanti Aggiungi, Cancella...
Fin qui nessun problema il programma funziona!!!
Il problema nasce quando voglio inserire un flitro.
mi spiego:
Vorrei inserire una terza casella di testo attraverso la quale l'utente
inserisce un cognome da cercare (naturalmente deve già essere inserito nel
database), premendo un apposito pulsante  dovrà essere visualizzato il
cognome nella casella di testo Cognome e il relativo n.telefono nella
casella di testo N.Telefono.
Questo è il mio problema
Spero che qualcuno di Voi mi possa aiutare
Grazie
Potete rispondermi al seguente indirizzo posta elettronica:
cub...@libero.it


Ti ho già risposto il 29/07/01.
Faccio un copia-incolla:
Supponendo che rsRubrica sia il tuo recordset contenente la rubrica...
With rsRubrica
    If .RecordCount > 0 Then
        .MoveFirst
    End If
    .Find "COGNOME >= '" & text3.text  & "'", 0, adSearchForward, .Bookmark
End With
ciao
ugo

With rsRubrica
    .MoveLast
    If Not .RecordCount = 0 Then
         .MoveFirst
         .Find "COGNOME >= '" & text3.text  & "'", 0, adSearchForward,
.Bookmark
    End If
End With
Newsgroup: it.comp.lang.visual-basic
Titolo: gif animate

come faccio ad inserire delle gif animate in un programme VB?

 come faccio ad inserire delle gif animate in un programme VB?
--
http://www.murialdo.it/it_lang_vb/

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

Magari la mia domanda potra' sembrare stupida ma, vorrei sapere se è
possibile creare dei grafici con VB6 senza utilizzare excel. Qualcuno di voi
potrebbe anche chiedersi il perchè di una domanda magari così "sciocca",
ebbene:
1° ho iniziato da poco a "smanettare con VB
2° il mio manuale di VB non parla affatto della costruzione di grafici (per
costruzione intendo istruzioni tali che...)
3° ho sottomano la versione di VB studio in inglese.
Spero di aver reso l'idea
Ciao a tutti ed un ringraziamento anticipato a chi possa aiutarmi
Nicola

 wrote in message
7pv2ph$mln$1...@fe2.cs.interbusiness.it...


 potrebbe anche chiedersi il perchč di una domanda magari cosě "sciocca",
Mmmh, la domanda non č sciocca... Il subject, accidenti: se scrivi un libro come
lo intitoli, "Libro!"? ;-)
Ti serve un controllo ActiveX aggiuntivo, tipo Microsoft Chart Control, che perň
č disponibile nell'edizione Professional, non nell'edizione Learning.
Puoi cercare su Internet qualche controllo free, se esiste. Forse sul sito
comune?
Ciao
Flavio Ronco
--
f.ronco@*NonMiServeNiente*
flashnet.it
http://www.metabrains.com
  [Under Construction]
-------------------------------------------------------------
"Che pubblico in gamba! Se ci dite dove lavorate,
domani mattina se abbiamo tempo vi veniamo a vedere"
[Paolo Rossi]
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Discussione filosofica/tecnica: meglio .CTL o .CLS?

Buongiorno a tutti.
Vorrei iniziare una discussione ad alto livello sulle opportunita' di
utilizzo di moduli di classe (.CLS) contrapposti a controlli utente (.CTL),
in Visual Basic, dalla versione 5 in poi.
In particolare, vorrei
- le vostre impressioni/preferenze sull'uso di entrambi
- approfondire le differenze tra i due a livello tecnico
- approfondire le differenze tra i due a livello pratico (casi di utilizzo)
Faccio un esempio concreto:
immagino tutti voi sappiate cos'e' il controllo Microsoft Common Dialog OCX.
Se qualcuno (uno a caso ;-) vi dicesse: vi do un componente software scritto
in VB che fa (quasi) le stesse cose di Common Dialog ocx, e con la
possibilita' di farne altre, voi preferireste:
- che sia un .CTL, cosi' potete compilarlo come OCX, e farci altro (cosa?)
- oppure che sia una classe .CLS (perche'?)
(Nota: in entrambi i casi non si puo' fare a meno di un piccolissimo modulo
BAS aggiuntivo, ma per questo indirizzate i vostri insulti verso il caro
vecchio avv.dott.ing.granfigldiputt Bill Gates)
A voi la parola (gradirei i commenti di tutti, anche di chi non si considera
esperto)
--
Roal Zanazzi
z...@iol.it

...

In generale credo che un .CTL sia comodo quando effettivamente il tuo componente
ha anche un'interfaccia e vuoi includerlo in qualche form senza dover compilare
per forza un OCX, nel caso di un Common Dialog o simili preferirei un CLS (lo
istanzio dove e quando voglio, non ho bisogno di form di appoggio ecc.); una
piccola comoditą in piu' del .CTL e' la gestione di eventuali eventi del tuo
componente, diciamo piu' "naturale" rispetto ad un "With Events" fatto con un
.CLS, ma in questo caso e' solo una questione di gusti, in sostanza direi che
cambia poco.
Ciao
P.S. Il "piccolissimo modulo BAS aggiuntivo" e' proprio necessario?
--
Luca Dormio
l...@sig-la.com
ldo...@tin.it


Se qualcuno mi trova il modo di far digerire ad AddressOf un metodo della
classe (che e' praticamente una window procedure e che ho gia' fnzionante),
no...
[OT] E gia' che ci sono provo anche 'sto Internet Explorer 5 che ho appena
installato...
speriamo bene...
--
Roal Zanazzi
z...@iol.it




no...
Gia,dimenticavo.... AddressOf... bella fregatura! ;)
Ciao.

Newsgroup: it.comp.lang.visual-basic
Titolo: Visualizzare un planning

Ciao a tutti, č la prima volta che visito questo NG perchč  č da qualche
giorno che mi trovo a studiare VB6.
Stň costruendo una piccola applicazione che mi gestisce gli appuntamenti
della giornata.
Piů precisamente vorrei avere all'istante la situazione del giorno (o della
settimana o mensile) magari tramite una griglia che mi dica solamente se ad
una determinata ora del giorno sono occupato oppure no. Andrebbe bene una
griglia, dove una cella mi rappresenta 30 min, che mi indica con lo sfondo
rosso che sono occupato, con lo sfondo bianco se sono libero.
Esiste un componente che mi faccia avere questo risultato?
Grazie

 Grazie
Per queste cose io mi trovo molto bene con flexgrid
-- 
Greg 

> Per queste cose io mi trovo molto bene con flexgrid
Posso utilizzare FlexGrid come un calendario di appuntamenti? Se si, mi 
daresti qualche dritta?
Ciao 


Devi mettere una griglia di 48 colonne se vuoi avere la copertura  su tutte 
le 24 ore del giorno
Oppure 24 colonne per 12 ore. E questo per avere il tutto scandito ai 30 
minuti.
Poi bisognerà trovare un sistema per associare la cella al record.
Quando vai a leggere il recordset per colorare la griglia, dovresti avere un 
campo che ti dice quale colonna devi trattare.
E qui potresti usare l'orario. Per esempio, il caffè delle 14 dovrebbe 
andare in colonna 28 (14x2)
-- 
Greg
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Sicurezza database Access

Ciao a tutti,
Ho un grosso problema che affligge la sicurezza di un
mio database Access, in quanto dopo averlo protetto
con l'autocomposizione Sicurezza a livello utente,
scopro con estremo stupore che per aggirare le protezioni
è sufficiente inserire il system.mdw di access al posto
di quello protetto e tutto funziona a meraviglia :-((
Dopo molti combattimenti sono arrivato alla conclusione
che tutto dipende dal fatto che non riesco ad eliminare
l'account Amministratore dal mio mdw e quindi, quando
gli viene inserito l'mdw standard riprende le autorizzazioni
di quell'utente e lo fa entrare tranquillamente.
Io ho creato il mio utente amministratore MyAdmin con tutti
i diritti necessari ma non riesco assolutamente a rimuovere 
quello predefinito (dovrebbe bastare quello!)
Grazie a tutti per l'interessamento... 
Ciao
Riccardo

quello predefinito (dovrebbe bastare quello!)
L'Amministratore non può essere eliminato. Devi però toglierlo dal
gruppo Amministratori e lasciarlo solo nel gruppo utenti. Naturalmente
dovrai anche creare un nuovo account da inserire nel gruppo
Amministratori, altrimenti non potrai apportare modifiche al database.
Attento poi al fatto che le autorizzazioni nn si estendono
automaticamente agli oggetti già creati. Vale a dire, se implementi un
sistema di sicurezza su un db già esistente, con le sue query, tabelle
ecc,dovrai concedere le varie autorizzazioni su ogni oggetto già
creato.
Spero di esserti stato utile.
Ciao. Giorgio
---------------------------
Togli NOSPAM dal mio e-mail
---------------------------

 creato.
Il problema è che anche l'help dice che devo eliminare l'account 
amministratore dopo averne creato uno nuovo. Infatti se non lo 
rimuovo, posso togliergli tutti i diritti che voglio ma quando
inserisco il system.mdw di access si riprende tutti i diritti 
dell'amministratore di default perché ha lo stesso PID :-(( 
AIUTATEMI!!
Ciao a tutti e grazie per l'interessamento
Riccardo

dell'amministratore di default perché ha lo stesso PID
( 


 ...
Funziona perfettamente!!!
Il mio errore era solamente quello di eliminare l'account 
Amministratore dal gruppo Amministratori DOPO aver protetto 
il database e non prima (maledetto help di Access).
Grazie 1000 per il prezioso aiuto.
Ciao
Riccardo
Newsgroup: it.comp.lang.visual-basic
Titolo: programma completo......

Salve a tutti due domandine semplici semplici.............
1° - In access c'^è un comando Button per cercare è visualizzare i record in
una maschera con origini dati da una tabella...in vb questo è possibile.??
2° è possibile reperire il programma completo di vb 6.0 senza spendere un
mucchio di soldini...?!
Sono un apprendista in questo mondo è siccome i soldini non sono mai
abbastanza non ne vorrei spenderne inutilmente.......
grazie.
--
Gianni

 mucchio di soldini...?!
Su questo ho parecchi dubbi.
O, meglio: sicuramente lo si trova (basta farselo prestare da un amico ed
installarlo), ma non si è del tutto in regola....
Ciao
Alberto

 (Ergo: non sono un ipocrita...)
Non sei un ipocrita, te lo riconosco.
Nemmeno io: appena incontro un tuo cliente gli racconto la faccenda.

 (Ergo: non sono un ipocrita...)
Se ti mando la GDF vedi come te ne frega...
-- 
Best Regards,
Antonio Cangiano
Webmaster di 
www.visualcsharp.it
Fondatore di free.it.comp.lang.csharp
free.it.comp.lang.vbnet e free.it.comp.lang.aspnet
--

 installarlo), ma non si è del tutto in regola....
Tanto non te lo vendono nemmeno più VB6... :)
Se vuoi puoi chiedere la trial di 
VS.NET
                Ciao
                    Allanon
--
- SPAMKILLER
 L'indirizzo delle risposte é 
itlangv...@michele.sytes.net
 LASCIATE il NOSPAM fa parte dell'indirizzo :-)
  Per superare le impostazioni di protezione antispam scrivete
  nel testo del messaggio la scritta "SPAMKILLER"
Scusate il disturbo, ma non posso più di pubblicità!
Newsgroup: it.comp.lang.visual-basic
Titolo: Ricerca su celle di Excel

 Grazie in anticipo a chi sapr=E0 rispondere.
Se ho inteso bene il senso del tuo quesito farei cosi':
Supponiamo di avere la Cartella di lavoro "Cartel1.Xls" nella Cartella
"C:\Progetti\Excel\Prove" e che in "Foglio1" vi siano i seguenti dati:
_ ... _____ C _____ ...
1 ... Pippo
2 ... Pluto
3 ... Paperino
4 ... Topolino
5 ... Gambadilegno
Vogliamo verificare se nella colonna C e' presente "Paperino".
Apriamo un nuovo progetto VB, in Form1 poniamo un CommandButton "Command1"
nel cui evento clic scriviamo il seguente codice:
Private Sub Command1_Click()
Dim oWbk    As Object
Dim oRng    As Object
Dim sCerca  As String
  Let sCerca = "Paperino"
  Let Screen.MousePointer = vbHourglass
  Let Command1.Enabled = False
  Set oWbk = GetObject("C:\Progetti\Excel\Prove\Cartel1.Xls")
  For Each oRng In oWbk.Sheets("Foglio1").Range("C:C")
    If IsEmpty(oRng) = True Then
      Call MsgBox("'" & sCerca & "' non trovato.")
      Exit For
    Else
      If oRng.Value = sCerca Then
          Call MsgBox( _
              "Trovato" _
            & " '" & sCerca & "' " _
            & "nella cella " _
            & "R" & oRng.Row & "C" & oRng.Column _
            & ".")
          Exit For
      Else
      End If
    End If
  Next
  Set oRng = Nothing
  Set oWbk = Nothing
  Let Command1.Enabled = True
  Let Screen.MousePointer = vbDefault
End Sub
--
Ciao.
Maurizio


<snip>
Invece di fare la ricerca "a mano", suggerisco di sfruttare le funzioni che
sono proprie di Excel. L'oggetto Range ha il metodo Find, che serve proprio
per cercare un contenuto (dato, formula, ...), e che restituisce (se non
ricordo male) un oggetto Range... e' tutto scritto nell'help VBA di Excel.
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: API ... queste sconosciute!

Da parecchio tempo programmo il VB4, creando programmi che possano
girare sia a 16 che a 32 bit.
Però non ho mai usato le API; in particolare avrei la necessità di
usare quelle di tipo grafico. Dove posso trovare un elenco delle API a
16 e a 32 bit e, soprattutto, della sintassi per un loro corretto
utilizzo?
Avrei un'altra domanda: dovrei collegare una applicazione ad un file
DBF (scorrerlo, modificarlo, ecc.), creato con un'applicazione scritta
in Clipper, sotto DOS. Qualcuno non ha qualche listato elementare dal
quale partire?
Grazie! Roberto Bava

Il libro Visual Basic Programmer's Guide Win32 API di Daniel Appleman
contiene un'elenco completo delle API utilizzabili con VB ed è completo di
un CD Rom di esempi( costa 100.000 lire circa).
Lo stesso libro dovrebbe essere stato tradotto in Italiano dalla
Mondadori(dico dovrebbe perche' ho visto un paio di volte la pubblicita' nei
giornali specializzati ma non l'ho trovato in libreria;forse ora e'
disponibile).
Ciao.

Newsgroup: it.comp.lang.visual-basic
Titolo: Shell di Win95...

Ho aggiunto nel menu contestuale di win (di gestione risorse) un
riferimento ad una mia applicazione (es. Critta file)
A questo punto viene il difficile (per me), come posso fare per far
capire alla mia applicazione su quale file l'utente ha azionato il
right click??
Grazie e ciao a tutti. :-)
               --Please reply via E-Mail--
                 41 69 52 20 43 48 52 53


Sta nella variabile d'ambiante (di VB) Command$
Ciao
By -MES-   Maronese Ettore
http://ilmes.freeweb.org
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://www.murialdo.it/it_lang_vb
Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Con che coraggio (o conoscenza) distribuite OCX e DLL ??

Al fine di distribuire (e quindi utilizzare per sviluppare programmi
commerciali) solo DLL/OCX e controlli per i quali ho la licenza,
vorrei sapere quali di questi sono per me distribuibili insieme alla
mia applicazione.
Qualcuno ha la lista delle DLL e degli OCX distribuiti  con VStudio5,
WIN95/98/NT, ridistribuibili ?? (basterebbe scorrere tutti i CD di
installazione di V95 e di VS ?)
Non mi è per niente chiara la questione delle licenze dei controlli.
Come per le leggi Italiane: non sempre si riesce, anche volendo, ad
essere nella legalità !
Come essere certi di non andare in gatabuia per un "tasto OK" più
bello  di quello standard (ma senza licenza !),  del quale  potrei,
sapendolo, farne a meno  ?
Ciao 
Marco Grignoli

 mia applicazione.
Sono di norma elencati nel manuale del prodotto.
Saluti.