mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Risorse nelle DLL

Ciao a tutti,
ho un progetto VB.net che contiene delle risorse Label.resx e 
Labels.es-ES.resx per la traduzione, ho anche un progetto Dll che è nelle 
reference del progetto principale, per tradurre però, le label nella Dll ho 
dovuto creare delle risorse nella stessa perchè non riesco a vedere quelle 
del progetto principale.
Esiste un modo?
Grazie
Sandro 

 Sandro
.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

 punto le puoi usare da fuori.
Avevo  già provato a mettere tutto nella dll Resource dichiarandola Public 
a mano nel Labels....vb visto che rimane  Friends.
Tutto andava, meno le property UILabels As New Labels mi sembra, ora sono a 
casa,  per lo Xaml.
Non ricordo bene l'errore ma riproverò.
Ciao Sandro


Newsgroup: it.comp.lang.visual-basic
Titolo: stampa su file con API

se io volessi stampare su file alcune stringhe, usando le funzioni Api, come
dovrei fare? ho visto che richiedono tutte la proprieta hDC della stampante.
se io volessi sostituirla con il nome di un file output, che devo fare?
c'č qualche esempio disponibile da qualche parte?
MarioH

ah dimenticavo la domanda piu generale, mi conviene usare ilprocedimento con
OpenPrinter, oppure non ce ne è bisogno?
MarioH

ps: come non detto. c'č un esempio su MSDN, anche se non si riefrisce alla
stampa su file, ma č facilmente adattabile.
bye
MarioH

Newsgroup: it.comp.lang.visual-basic
Titolo: Interfacciare una gettoniera al computer su COM1.

Debbo creare un programma capace di gestire una gettoniera collegata alla
porta COM1 del pc.
Questa gettoniera invia alla porta COM un singolo impulso ogni volta che
viene introdotta una moneta; io debbo "leggere" questo impulso e, diciamo,
alla fine il programma deve mostrare quanti impulsi ha ricevuto la porta.
Avrei bisogno di una dritta per iniziare, la gettoniera non č accompagnata
da nessun software... come potrei documentarmi?
Grazie anticipatamente a tutti!

 ha scritto nel messaggio
news:b56tr5$n4s$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: R: client FTP in VB5

 wrote in message 8h3jqh$7hp$
1...@nslave1.tin.it
..
.

Newsgroup: it.comp.lang.visual-basic
Titolo: [vb6]   l'ultimo service patch

hello
ho scaricato con fatica (oltre 60 MB ) l'ultimo service patch di visual
basic 6 ed ho temtato di fare l'aggiornamento, ma purtroppo non l'ho potuto
fare perche il service pacht e' di visual studio 6 ed io HO SOLAMENTE il
pacchetto di Visual Basic 6 Pro,
come fare ad aggirare l'ostacolo (sena dover installare visual studio  6
naturamente)
leonello

 ha scritto

sei sicuro sia sp6 per l'intero vs ? a me sp6 risulta piu' grosso:
07/02/2001  22.00           59.948.248 vs6sp5v2-us.exe
08/02/2001  00.26           58.772.184 vs6sp5vb-ita.exe
07/04/2004  11.50           88.565.615 vs6sp6_enu.zip
07/04/2004  11.57           89.665.936 vs6sp6_ita.zip
+- 60 mb dovrebbe essere il service pack 5 del solo vb.
i sp6 interi per vs6 da me hanno comunque determinato cosa avevo sul pc e
installato quello che serviva. avevo scaricato un iso piu' grosso, mi sembra
200mb, gli zip li ho fatti a mano in seguito.
ciao, j.

 ha scritto nel messaggio
news:2omhncF...@uni-berlin.de...


 ha scritto nel messaggio
news:B9nVc.119886$G%.115711@tornado.fastwebnet.it...

Se vai sul sito dei download di Microsoft, troverai anche la patch del solo
Visual Basic 6.
Ciao
Cinzia

 ha scritto nel messaggio
news:B9nVc.119886$G%.115711@tornado.fastwebnet.it...


 ha scritto nel messaggio
news:B9nVc.119886$G%.115711@tornado.fastwebnet.it...


 scaricato JAVA?!
se qualcuno osa scaricarmi la cagnetta, lo costringo a un matrimonio di
riparazione :)
-- 
, ciao, j.
http://www.sundaysw.com


 riparazione :)
lol
ciao
ugo
p.s. come sta J?

 pacchetto di Visual Basic 6 Pro
1) Si chiama Service Pack
2) Di solito *sono* per VisualStudio, poi si arrangia lui.
3) Se non sei riuscito a installarlo forse č meglio cosě: molti hanno
denunciato problemi su codice che con SP3 o 5 funzionava perfettamente (come
dovrebbe essere).
Ciao
-- 
NeoDataType : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

prima di installarlo dai un occhiata qui:
http://www.microcosmotalk.com/images/xpsp6/
io lascerei il caro SP5 se fossi in te...
CIAO

>
note2: the vb6 sp6 does NOT crash (on win2k machine) either [n.d.j.]
in vari mesi, non ho ancora avuto un problema con sp6 su w2k, senza o con
vbnet a bordo (*).
in compenso si preparano tempi anche piu' grami per gli xp-isti:
http://support.microsoft.com/default.aspx?kbid=884130&product=windowsxpsp2
si potrebbe anche togliere quel videogioco venuto male e mettere un sistema
operativo serio, non ti sembra ? :P
ciao, j.
(*) in compenso vbnet mi si e' installato come editor di icone e non c'e'
pezza. se rimetto microangelo come default non vedo l'icona in explorer.
grande microsoft. un icon editor da 1 giga e rotti. e magari controlla pure
se la mia iconina del cazzo rispetta il drm :P
Newsgroup: it.comp.lang.visual-basic
Titolo: [.NET] Inherits DictionaryBase

Ciao a tutti!
Mi sto dilettando con 
VB.NET
 (mica troppo dilettando visto questo errore che
mi fa piangere!)...
Ho provato a costruire una mia Dictionary partendo dalla classe base
System.Collection.DictionaryBase...
Va tutto bene finché non aggiungo la seguente subroutine:
Public Class CollectionClienti
Inherits System.Collections.CollectionBase
    Public Overrides Sub Clear()
        ....
    end sub
......
Appena aggiungo questa subroutine non riesco più a creare alcuna istanza di
CollectionClienti... L'eccezione é:
Eccezione non gestita di tipo "System.TypeLoadException" in
system.windows.forms.dll
Informazioni aggiuntive: La dichiarazione alla quale si fa riferimento
nell'implementazione di un metodo non può essere un metodo Final. Tipo:
WindowsApplication6.CollectionClienti, assembly: Clear.
(scopro ora che si può selezionare il testo della messagebox di errore!!!!!
:))) Vero pregio!!!)
Cosa sbaglio? (Sbaglio io vero?)
                    Ciao & grazie
                                Michele

 ......
Semplicissimo, Clear è dichiarata NotOverridable in
CollectionBase.
Ciao.
--
BSD is for UNIX-lovers -- linux is for Windows-haters.

Confermo.
Francamente per delle keyed collection preferisco utilizzare una Hashtable
(ma è questione di gusti) mentre per le indexed collection ti consiglio di
ereditare una collectionbase personalizzandola (cast) a seconda del tipo di
oggetto che stai implementando
Ciao
Corrado


Mhmhmhmh... ovvero? mi potresti postare un esempio?
Io vorrei rendere invisibile il clear all' esterno della mia classe, giusto
per poter filtrare i permessi di cerca di svuotarmi la collection. Si può
fare? Non ho alcun sistema di eliminarlo o almeno di intercettarne la
richiesta e poterla annullare?
                    Ciao & grazie
                                        Allanon

Un esempio veloce di keyed collection, considera la possibilita' di
ereditare da
collectionbase (che pero non e' keyed)
Public Class myOwnCollection : Inherits Hashtable
 Public Overrides Sub Clear()
  Throw New ApplicationException("invalid command")
 End Sub
 Public Shadows Function Item(ByVal key As String) As MyCustomObj1
  If MyBase.ContainsKey(key) Then
   Return DirectCast(MyBase.Item(key), MyCustomObj1)
  End If
 End Function
End Class
Uso:
Dim oCol As New myOwnCollection()
oCol.Clear()
Se vuoi esporre solo le proprieta' che ti interessano puoi utilizzare
la HashTable all'interno della classe (private) crearti i metodi 'classici"
Add-remove-item-count e implementare l'interfaccia IEnumerator per gestire
il for-each.
HTH
Corrado

Mille grazie!!!
Appena ho un po' di tempo mi metto al lavoro!
            Ciaooo
                                Allanon
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] combobox dropdown

Ho un progetto che era stato scritto in VB3 e dopo varie peripezie l'ho
portato in VB5 SP3 (e per ora mi fermo).
Ho un problema con dei combobox che non mi restano aperti dopo un click (si
aprono e si chiudono velocemente) ma solo se tengo cliccato con il mouse.
Per altri combobox sparsi nell'applicazione il problema non sussiste, ma ,
confrontando le proprieta' di quelli che vanno con quelli che non vanno non
ho notato differenze.
 Qualcuno ha idea di quale possa essere il problema?
Thanx e ciao a tutti.



...

Forse che nell'evento DropDown fai un SetFocus su un'altro controllo?
Ciao
By -MES-   Maronese Ettore
http://www.maronese.com/mes
(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: AIUTO SQL SERVER

Cari colleghi,
la mia applicazione fa uso della Microsoft SQLDMO Object Library per la
creazione di database Microsoft SQLSERVER.
dopo esser riuscito nell'ordine a creare :
database
login
user
role per user
mi chiedevo prima di perdere settimane a scrivere codice, se non esistesse
qualche tools (magari gratuito) che mi restituisca il codice SQL-DMO per vb
da riusare per popolare il mio database di tabelle,indici,relazioni,
ecc.....
in parole povere un programma che dato un database sqlserver mi restituisce
il codice per l'eventuale ricostruzione.
ovviamente non script sql ma proprio codice vb
vi ringrazio per qualsiasi vostra risposta
ciao
ale

 da riusare per popolare il mio database di tabelle,indici,relazioni,
In un progetto di Andrea Montanari, nella nuova versione, c'è un tool che
genera gli insert into per le tabelle. Se non mi sbaglio (ma sinceramente
adesso ho l'ADSL troppo in crisi per andare a scaricare il progetto.
Credo, una volta, di aver generato del codice VB in automatico, e mi sembra
di averlo fatto con questo tool.
Prova un po'....
http://utenti.lycos.it/asql/index.html
Ciao
Alberto

 ovviamente non script sql ma proprio codice vb
salve,
se con questo intendi un tool che ti restituisca, dato il tuo DB, ad
esempio, tante procedure quante sono le tue tabelle tipo
private function ErrCreaTabellaPippo(parametri...)as long
print #iFile,"dim oTb as new sqldmo.table"
print #iFile,"oTb.name = "pippo""
....
print #iFile,"oggettoDatabase.Tables.Add oTb"
eccetera
end function
che io sappia no, ne' gratuito, ne' commerciale,... ci posso pero'
pensare......
non ne vedo una grandissima utilita' in quanto preferisco la generazione via
script DDL, per un'applicazione normale, in quanto sarebbe troppo hard-coded
e necessiterebbe una ricompilazione ogni qualvolta tu modificassi la base
dati... modificando il DDL e spedendolo agli utenti, basta far girare anche
un'applicazione di manutenzione per eseguire tutti gli eventuali "ALTER
TABLE" ed i nuovi "CREATE TABLE"
scusa l'intrusione, ma per che tipo di applicativo lo stavi pensando??
personalmente, in DbaMgr e DbaMgr2k, sto modificando la generazione degli
Script DDL in modo da non usare piu' l'oggetto Transfer ma i singoli metodi
.Script di ogni oggetto per avere un DDL dei check/indici/FK eccetera
separato dallo script dell'oggetto primario in modo da non creare problemi
per l'accavallamento degli oggetti nella generazione delle relazioni... e'
in beta.. se c'e' qualcuno che lo vuole provare puo' mandarmi una mail...
saluti
Andrea Montanari
montanar...@virgilio.it
http://utenti.lycos.it/asql/index.html
DbaMgr2k ver 0.1.0  -  DbaMgr ver 0.47.0
(my vb6+sql-dmo little try to provide MS MSDE 1.0 and MSDE 2000 a visual
interface)
--------- remove DMO to reply

 ha scritto nel
messaggio news:6KGH9.31612$fa.10...@news1.tin.it...


 ha scritto nel messaggio
news:d1%I9.63993$qF1.2...@news2.tin.it...
risposta in privato

Newsgroup: it.comp.lang.visual-basic
Titolo: Database

ciao,
perchè con questo codice:
    On Error Resume Next
    Dim rs As New ADODB.Recordset
    rs.Open "inuscita", CurrentProject.Connection, , adLockOptimistic
    rs.MoveFirst
    Do
        If rs!Cliente = intCliente And rs!Numero = intNumero Then
            rs.Delete
            MsgBox "L'ordine era già in uscita. E' stata eliminata la copia
più vecchia", vbOKOnly
        End If
        rs.MoveNext
    Loop While Not rs.EOF
    rs.AddNew
    rs!Cliente = intCliente
    rs!Numero = intNumero
    rs!allegato = txtNomeFile
    rs.Update
    rs.Close
se la tabella "inuscita" è vuota e le variabili intCliente e intNumero hanno
valori diversi da zero (per es. 85 e 2) il programma entra nel blocco If??
Il tutto gira in Access.
grazie
ciao

     rs.MoveFirst
eccetera eccetera...
-- 
Rivolterò il mondo per trovarlo, e anche se andasse in Indocina uno dei 
nostri starà nascosto in una ciotola di riso pronto a sparargli nel culo.
(Pulp Fiction)

 ha scritto nel
messaggio news:40a4...@x-privat.org...


 valori diversi da zero (per es. 85 e 2) il programma entra nel blocco If??
Prova ad indovinare? :-D

 ha scritto nel messaggio
news:vr7pc.258885$rM4.10...@news4.tin.it...


 funziona più la ricerca! no?
Quando fai rs.open, rs.eof sarà sempre falso se la query ti restituisce 
*almeno* un elemento.
rs.eof risulta vero solo se:
1) il recordset aperto non contiene record
2) hai "superato" l'ultimo record del recordset, ovviamente in un 
recordset con almeno un elemento.


Comunque io eviterei quell'utilizzo di On error...
Semmai riscriverei il codice così:
     Dim rs As New ADODB.Recordset
     rs.Open "inuscita", CurrentProject.Connection, , adLockOptimistic
     while not rs.eof
         If rs!Cliente = intCliente And rs!Numero = intNumero Then
             rs.Delete
             MsgBox "L'ordine era già in uscita. E' stata eliminata la copia
più vecchia", vbOKOnly
         End If
         rs.MoveNext
     wend
     rs.AddNew
     rs!Cliente = intCliente
     rs!Numero = intNumero
     rs!allegato = txtNomeFile
     rs.Update
     rs.Close


 ha scritto
nel messaggio news:2o8pc.2740$Wc.8...@twister2.libero.it...


 grazie e ciao
Di niente e ciao a te :)

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Convertire Forms da VB3 A VB5

Volevo sapere se era possibile convertire un form da VB3 A VB5, senza
riscrivere tutto da capo.
Ciao.
--
Per rispondermi privatamente usa questo indirizzo
E-Mail: 
pom...@geocities.com
HomePage:       "Esperimenti in Elettronica"
http://www.geocities.com/SiliconValley/Lab/4183/


Codice e controlli standtard si, ma se il tuo form ha dentro diverse VBX,
allora diventa dura.
L'importante e' salvare sia i Forms che i moduli in formato ASCII. per fare
questo vai su Salva con nome e clicca su "Save in ASCII" o qualcosa del
genere.
Ciao
By -MES-   Maronese Ettore
http://ilmes.freeweb.org
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://members.xoom.com/it_lang_vb


Una volta ho provato e ho fatto cosi':
1) apri il file .FRM con Notepad (o qualsiasi editor di testo)
2) modifica la prima riga (c'e' la versione di VB con cui e' stata fatta la
form, basta che sostituisci con 5.00)
3) eventualmente, se nella form ci sono controlli VBX, dovresti aggiustare
anche i loro nomi (es. SSCommand -> Threed.SSCommand) e aggiungi all'inizio,
dopo la prima riga (VERSION X.00), i riferimenti Object = ".........."
(magari fai una form in VB5 con OCX relativi ai VBX presenti, poi copia il
testo iniziale del file .FRM).
4) salva il file .FRM
5) aprilo con VB5, se hai fatto tutte le modifiche necessarie dovrebbe
aprirsi senza errori, altrimenti leggi il file .LOG e correggi di
conseguenza.
Se nella form VB3 sono usati VBX proprietari che non hanno il corrispondente
OCX a 32bit.... ti perdi il controllo relativo (diventa una PictureBox).
--
Roal Zanazzi
z...@iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] ricercare siti

ciao a tutti,
scusate l'OT ma non ho proprio idea a chi chiedere questo.
Se dovessi stilare una classifica dei siti con il maggior numero di
visitatori come fareste?
E' possibile?
Esiste un qualche ente che tiene le statistiche dei siti e le rende
pubbliche?
O un qualche sito che ha già fatto qualcosa del genere?
Grazie

 pubbliche?
Queste informazioni sono importanti per le aziende che vendono pubblicita'.
Mi pare che la Nielsen, azeinda di rilevazioni di mercato, abbia fatto
qualcosa, anche se, le rilevazioni aggiornate saranno ovviamente a
pagamento.
Ciao
Aldo

 wrote in message 8vrg8r$dbg$1...@nslave2.tin.it...
| ciao a tutti,
|
| scusate l'OT ma non ho proprio idea a chi chiedere questo.
|
| Se dovessi stilare una classifica dei siti con il maggior numero di
| visitatori come fareste?
|
| E' possibile?
| Esiste un qualche ente che tiene le statistiche dei siti e le rende
| pubbliche?

Newsgroup: it.comp.lang.visual-basic
Titolo: Anagramma di una stringa x crittografia (trasposizione)

Ciao, sto realizzando un programma didattico per crittografare co la
crittografia a trasposizione, ma per fare la crittoanalisi mi serve
anagrammare la stringa (che poi sarebbe la chiave).
Il programma riesce a crittare e a decrittare, ma mi serve l'anagramma per
la crittoanalisi, grazie.
Francesco

 wrote in message news:HVfvc.87123

Non ho capito una mazza di quello che ti serve :)
Se cerchi un modo per fare anagrammi cerca "combinazioni" sul sito comune.
Ciao
--
Math Parser : 
http://www.neodatatype.net
FlowChart   : 
http://www.neodatatype.net/downloads/dir.asp
Sito Comune : 
http://www.it-lang-vb.net

Newsgroup: it.comp.lang.visual-basic
Titolo: [Forse OT] Domande varie

Passo subito al sodo:
1) e' cosa buona che un ocx salvi da qualche parte i dati a lui
correlati o deve essere l'applicazione container che fa questo lavoro?
Ho cercato in giro per il sito Microsoft, ma non ho trovato molto sul
caso...
2) sto sviluppando alcuni ocx che trattano delle collection... Il
problema è che, visto il tipo di applicazione, non avrò la
possibilita' di usare un db... cosa mi consigliate per salvare i dati?
Grazie anticipatamente...
Bye Attilio.

 Grazie anticipatamente...
ciao Attilio!!!
good coding!!!
-- 
Alletun
Sorry, ask me if you want to get my e-mail!
Newsgroup: it.comp.lang.visual-basic
Titolo: mio dio... sempre su playsound

che rabbia...!!!!!!! c'ho messo un pomeriggio a far suonare una musichetta
presa da un file risorse... e mi accorgo che playsound supporta solo i file
WAV... santo cielo nel programma che sto facendo volevo metterci un MDI, che
è molto piu bellino,... e invece nisba!!!! playsound non va... come cavolo
si fa a far suonare i MDI? e i RA ?? ma è davvero possibile che ci vuole una
funzione per ogni cavolo di formato???????
MarioH

Caro MarioH... a te la differenza sembrerà solo di nome, in realtà tra
MIDI e Wav corre un vero abisso: MIDI è uno standard, risalente a metà
anni '80, proposto dalla Roland per lo scambio di musica digitale (la
Roland son quelli delle tastiere, hai presente?), musica per
CAMPIONATORI, ossia macchine in grado di imitare tutta la scala dei
suoni usando la "voce" di uno strumento. Wav è uno standard Microsoft.
Si tratta di un meta-formato, ossia non un formato vero e proprio, ma
un contenitore di formati: un Wav non compresso contiene i dati da
inviare direttamente all'hardware, un Wav compresso con PCM contiene i
dati da inviare ad una periferica di decompressione PCM (raramente
hardware, più spesso software, e se software, tale periferica è detta
codec). Due cose:
- è molto più difficile trovare una scheda audio con supporto Wav +
  MIDI, piuttosto che una scheda Wav e basta (pensa all'infimo hardware
  on-board e a certi pezzi d'antiquariato che girano tuttora)
- MIDI in un programma? che diavolo te ne fai?
ok, chiariti (a proposito, chiariti sul serio? io non posso garantire,
vista l'ora, sulla lucidità di ciò che scrivo. Se qualcosa non è chiaro
te lo rispiego meglio) i dubbi in materia di formati audio, passiamo
alla realizzazione pratica: allora, i MIDI sono una gran brutta bestia.
Gestirli a livello di periferica è un suicidio. Grazie al cielo c'è chi
si sacrifica per noi: la MCI. Su MSDN è trattata in modo esauriente e
non eccessivamente astruso (ti consiglio di non guardare MAI la
reference dell'API per periferiche MIDI...). Permette di trattare con
estrema facilità con le periferiche standard (CD Audio, Wav, MIDI
mapper, ecc), senza usare strane costanti dai nomi pittoreschi, ma
semplicemente inviando comandi sotto forma di stringhe (i più famosi in
questo NG sono senza dubbio "set cdaudio door open" e "set cdaudio door
closed")
-- 
Posted from 62.149.155.30 by way of 
smtp3.libero.it
 [193.70.192.53] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

forse avrņ fatto il passo piu lungo della gamba... ::)))))))
no č che i file WAV li dovrei mettere all'interno di un file risorse per
rendere un po piu carino il programma, fargli fare un paio di suonerelli
ogni tanto... e pensavo di metterci anche dei midi, ma se č cosi
complicato... lasciamo stare...
MarioH
Newsgroup: it.comp.lang.visual-basic
Titolo: Help!-Recrsive Binary Search Algorithm

I have an (I'm sure) easy problem I can't seem to get working.  I am
trying to search an array with 5000 numbers (2-10000)using a recursive
binary search function.  I have a pseudocode example, but obviuosly it
is missing a lot of detail. The number to be searched for is just
entered into a textbox by the user.  If anyone could help a programming
newbie it would be GREATLY apprecited!
Sent via Deja.com 
http://www.deja.com/
Before you buy.

Try this. It is NOT recursive. Why do you need that ?
Public Sub Nearest(Vec() As Single, _
                   NV As Integer, _
                   Key As Single, _
                   IndexOfFound As Integer)
' looks within array Vec of NV elements
' which one is nearest to Key
' returns index in IndexOfFound
' Vec(1,..., NV): Input only: array to be searched
' NV:             Input only: dimension of Vec
' Key:            Input only: key to be searched
' IndexOfFound    Output only: 
' if Key <= Vec(1) returns IndexOfFound = 1
' if Key >= Vec(NV) returns IndexOfFound = NV
  Dim Kh As Integer, Kl As Integer, Kw As Integer
 
  If Key <= Vec(1) Then
    IndexOfFound = 1
    Exit Sub
  End If
  If Key >= Vec(NV) Then
    IndexOfFound = NV
    Exit Sub
  End If
 
  Kl = 1: Kh = NV: IndexOfFound = -1
  While IndexOfFound < 0
    Kw = (Kl + Kh) / 2
    If Vec(Kw) > Key Then
      If Kw = Kl + 1 Then
        If (Key - Vec(Kl)) > (Vec(Kw) - Key) Then
          IndexOfFound = Kw
        Else
          IndexOfFound = Kl
        End If
      Else
        Kh = Kw
      End If
    ElseIf Vec(Kw) < Key Then
      If Kw = Kh - 1 Then
        If (Key - Vec(Kw)) > (Vec(Kh) - Key) Then
          IndexOfFound = Kh
        Else
          IndexOfFound = Kw
        End If
      Else
        Kl = Kw
      End If
    ElseIf Vec(Kw) = Key Then
      IndexOfFound = Kw
    End If
  Wend
End Sub

Newsgroup: it.comp.lang.visual-basic
Titolo: Non so cosa fare

Sto effettuando una between tra due date ma non funziona:
qry = "SELECT [T],[A],[anno],[des_gio],[dt_telefonata],[codice_giornale]
FROM dettaglio_telapp"
qry = qry + " where ([dt_telefonata] >= #" & App & "# And "
qry = qry + "[dt_telefonata] <= #" & App1 & "#)order by [des_gio]"
data1.recordsource=qry
data1.refresh
le variabili app e app1 sono dichiarate date.
perche non funziona sempre?
saluti
Jag

Formatta le variabili con il formato data americano:
qry = qry + " where ([dt_telefonata] >= #" & format(App,"mm/dd/yyyy") & "#
And "
bye
Newsgroup: it.comp.lang.visual-basic
Titolo: Ci riprovo: odbc + sql

sperando di non essere troppo invadente riposto
Ciao a tutti,
    avrei bisogno di eseguire una insert su un db (per la precisione as400)
tramite odbc. L'odbc e' configurato come lettura e scrittura e infatti da
access tutto funzia bene ma da vb ho utilizzato un codice cosi':
    Dim db As Database
    DBEngine.DefaultType = dbUseODBC
    Set db = Workspaces(0).OpenDatabase("PIPPO", dbDriverNoPrompt, False,
"ODBC;DSN=pluto;UID=;PWD=;")
    db.Execute ("insert into PIPPO (A, B, C) values ('1','2',3')")
ma non funzia
( 
ho fatto varie prove, tipo usare openconnection invece di opendatabase impostando db come connection e usando querydef per la query ma niente.
Cosa sto sbagliando???
AIUTOO :)
Ciao e grazie in anticipo
ps: oltre ai driver di client access sapete di altri magari piu' performanti per odbc?

Prova cosě:
Set db = OpenDatabase("", dbDriverNoPrompt, False,


 wrote in message
9gG97.1589$_07....@news.infostrada.it...


se ti apre la connessione prova cosě:
dim Rs as Recordset
Set rs = db.openrecordset("Insert ...")
rs. ...
...
...
Per quanto riguarda i driver per As400 ti consiglio l' HitOleDb č un tipo di
driver specifico per as400, solo che č privato, si paga :( :(, molto :( :(
:( :(
Ciao, Luciano.

 a te funzia?
Ma la connessione c'è o non c'è ?
Prova a leggere almeno un valore!

 wrote in message
oN_97.1972$te7....@news.infostrada.it...


Mi č venuto un dubbio ORRENDO:
lo sai che per scrivere su SQL Server con ODBC devi avere per forza una
chiave primaria nella relativa tabella?

 Mi è venuto un dubbio ORRENDO:


> ma tu ti sei mai connesso ad as400? hai qualke spezzone di codice?
Ops, non avevo letto bene e pensavo ti connettessi a SQL Server!
No, non mi sono mai connesso direttamente ad AS400, ma nel NG credo ci sia
qualcuno che potrebbe aiutarti... sarą in vacanza!!!
Newsgroup: it.comp.lang.visual-basic
Titolo: Eseguire il contenuto di una variabile

Ciao a tutti.
In una caasella di testo, il cui contenuto č varibile, scrivo di volta in
volta il nome di un form diverso. Come faccio ad aprire questo form?
Esempio: nel form "Configurazione" c'č la casella di testo "Maschera" con il
valore "Clienti".
Come posso fare ad aprire il form "Clienti"?
Ovviamente la stringa Configurazione.Maschera.Show non funziona, e nemmeno
Configurazione.Maschera.Text.Show
Mi potete aiutare?
Ciao
Pete
--
Stop the war

 volta il nome di un form diverso. Come faccio ad aprire questo form?
Semplice: cerca l'Item della collezione Forms che ha la proprietą Name
uguale al contenuto della casella.
Attenzione: la collezione contiene tutti i Form APERTI del progetto, per cui
per far funzionare questo metodo devi preventivamente invocare il LOAD di
tutti i Form interessati.
E' ovvio che se questi sono troppi o non č opportuno che restino caricati in
memoria č opportuno inventare qualcos'altro.
Ciao,
Carlo.

 memoria è opportuno inventare qualcos'altro.
Giusto.
Grazie e ciao


Potresti dimensionare un form generico
Dim comForm As Form
e poi, testando il valore della text, 'trasformare' il form generico in uno
dei form che ti interessa e visualizzarlo
Select Case Text1.Text
          Case "CLIENTI"
               Set comForm = New Clienti
               comForm.Show
          Case "FORNITORI"
               Set comForm = New Fornitori
               comForm.Show
          Case "ALBERGHI"
               Set comForm = New Alberghi
               comForm.Show
          Case Else
               MsgBox "Form inesistente"
End Select
Ciao
Graziella

Graziella, sei un angelo!!
Funziona!
Grazie e un bacio.
Tuo Pete.
--
Stop the war

Ciao,
perche' non piu' semplicemente:
 Select Case Text1.Text
           Case "CLIENTI"
                Clienti.Show
           Case "FORNITORI"
                Fornitori.Show
           Case "ALBERGHI"
                Alberghi.Show
           Case Else
                MsgBox "Form inesistente"
 End Select
beppe
-----------------------------------------------------------
Visita il sito del WWF AltoFerrarese
http://www.comune.cento.fe.it/wwfaf
-----------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: text

salve ragazzi, 
ho vari text che devo svuotare e non so come fare
l'idea sarebbe la seguente: text & cont = ""
ma non posso farlo perche' mi viene dato un errore.
dovrei utilizzare lo stesso comando per controllare il contenuto di 50
text il cui valore deve essere minore di 90.
grazie per l'aiuto


Nel caso tu non abbia fatto un array di textboxes suggerisco:
dim txtOneTextBox as Control
    for each txtOneTextBox in Controls
        if TypeOf txtOneTextBox is Textbox then
            txtOneTextBox.Text=""
        end if
    next txtOneTextBox
Altrimenti è meglio:
posto che il nome del tuo Array sia txtMyTextBox
dim txtOneTextBox as Textbox
    for each txtOneTextBox in txtMyTextBox
            txtOneTextBox.Text=""
    next txtOneTextBox
Stessa cosa per il controllo sui valori.
Saluti,
 Alfredo.

 grazie per l'aiuto
Basta fare:
Me.Controls("Text" & cont).Text = ""
e l'altro:
if val(Me.Controls("Text" & cont).Text) < 90 then
   'tutto quello che vuoi
end if
Ciao
Riccardo

Newsgroup: it.comp.lang.visual-basic
Titolo: apertura recordset

cosa succede ad un oggetto recordset quando alla sua apertura mediante
l'istruzione:
rs.Open sql, conn, adOpenStatic, adLockReadOnly, adCmdText
si verifica un errore in quanto la stringa SQL è sbagliata?
C'è un modo per verificare la correttezza di uno statement SQL prima di
eseguirlo?
Grazie

 ha scritto nel messaggio
news:9vqhci$dfb$1...@fe2.cs.interbusiness.it...


infatti, la query è composta dinamicamente, però mi interessava un modo per
verificarne l'esattezza in fase di esecuzione del programma.


 ha scritto nel messaggio
news:9vqhci$dfb$1...@fe2.cs.interbusiness.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: visualizzare buffer HTML

ciao,
come faccio a convertire un buffer HTML in una pagina Web..un pò quello che
fà explorer , ho provato ad usare il controlllo WebBrowser ma sono solo
riuscito a visualizzare un  file .html...io non vorrei passargli un file ma
una stringa stile "<HTML><BODY>CIAO</BODY></HTML>"
grazie ;DD
Fabio


potresti salvare la stringa in un file e poi farglielo caricare  :)
Faber
Newsgroup: it.comp.lang.visual-basic
Titolo: inserimento da tastiera

Partendo dalla calcolatrice presente negli esempi di visual basic ho
costruito un piccolo programma, ho un problema:
come posso evitare di dover cliccare sui vari pulsanti per comporre il
numero o effettuare delle operazioni e utilizzare in alternativa la
tastiera come avviene con la calcolatrice di windows?
In altre parole invece di cliccare sul pulsante che aggiunge il numero 1
al campo testo vorrei poterlo fare anche premendo il tasto 1 della
tastiera.
Mi scuso se la domanda è banale, ma sono un principiante e comunque
conto sulla vostra cortese collaborazione.
Grazie ciao.
 
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 tastiera.
Vedi eventi KeyPress, KeyDown

tastiera come avviene con la calcolatrice di windows?
Imposti la proprieta' KeyPreview del form a True, quindi, come giustamente
suggerito da Lupo, gestisci i tasti premuti nell' evento KeyDown (che ti permette
di intercettare anche Ctrl, Alt e Shift oltre ai vari tasti funzione e tutti gli altri).
-- 
ciao, hal

 wrote in message
news:a3pjdb$19ogbv$1...@ID-56381.news.dfncis.de...

Perdonate la mia ignoranza, sono riuscito a far funzionare l'esempio 
proposto da visual basic per keydown (con tasti MAIUSC CTRL etc.)
ma come viene indicato il tasto "1", "2" o "+" etc? 
devo inserire il loro n° ANSI?
Grazie

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Toolbar Flat - Esempio sul sito comune

Ho scaricato l'esempio sul sito comune per rendere una toolbar flat usando
solo le api. Dei due esempi attualmente utilizzo quello di Roal. Purtroppo
ho constato però che la cosa non funziona più se sulla toolbar si pongono
altri controlli (tipo picture o combo Box). Sapete percaso come rendere flat
la toolbar anche in questo caso? (sempre attraverso le Api, no ocx).
Grazie, Rick

...

Finalmente qualcuno ha scoperto il mio baco!!!!! :-0
La correzione e' semplicissima, ed e' contemplata nell'altra routine...
in pratica, il problema e' che la mia routine prende l'hWnd della PRIMA
figlia dell'OCX, mentre e' piu' preciso prendere l'hWnd della figlia di
classe "ToolbarWindow32".
Intanto usa questo codice, invece del mio vecchio:
' API constants.
Private Const GWL_STYLE = (-16)
' API functions.
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA"
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA"
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal
lpsz2 As String) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA"
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Sub SetFlatToolbar(aToolbar As Toolbar)
    ' Constant for the toolbar's "flat" style.
    Const TB_STYLE_FLAT = &H848
    ' Toolbar window handle.
    Dim hwnd As Long
    ' Deferencing to the child window of class "ToolbarWindows32" is
    ' necessary because VB5 Toolbar common control is really a container
    ' for the Windows Toolbar control.
    hwnd = FindWindowEx(aToolbar.hwnd, 0&, "ToolbarWindow32", vbNullString)
    ' Modify the window style of the toolbar control, to add the "flat"
style flag.
    Call SetWindowLong(hwnd, GWL_STYLE, GetWindowLong(hwnd, GWL_STYLE) Or
TB_STYLE_FLAT)
End Sub
Poi, appena possibile, mandero' il file aggiornato e corretto sul Sito
Comune.
--
Roal Zanazzi
z...@iol.it


z...@iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Domandina??

Premetto che ho ancora molto da imparare sul VB!!  Altrimenti non avrei
scritto questo messaggio... ;)
Volevo chiedervi: è possibile fare un prog. in VB che muova il puntatore del
mouse continuamente , in random, possibilmente con un pulsante "START" e
fermandolo premedo un tasto??
Se si, come??
Vi ringrazio per l'aiuto!!
--
^PgReKo^
http://pgreko.tsx.org

...

Newsgroup: it.comp.lang.visual-basic
Titolo: help: can't register shdocvw.dll

I cant install a program ive made on other computers because it won't 
register the internet control shdocvw.dll on their computer. it keeps 
returning runtime error 339
can anyone help please.

 Spam is irrelevant.
WARNING: I cannot be held responsible for the above        They're   coming  to
because  my cats have  apparently  learned to type.        take me away, ha ha!

can anyone help please.
You may not distribute this OCX without distributing the
complete Microsoft Internet Explorer.
As you have experienced, not only may you not do so but it
also won't work technically.
Mathias Schiffer, Germany
-- 
ActiveX: 
http://www.comports.com/Schiffer
VB-FAQ:  
http://home.sol.no/jansh/vb/default.htm

...


 your program is run.
we had to do the same thing.  
on a related note - anyone know how ie4.0 rates in terms of
compatibility with the ie3.0 version of shdocvb.dll?  the beta version
wasn't compatible at all...

...


The problem could be in the SETUP.LST file.  It might not have the
correct code to register the DLL.  Have VB generate the SETUP.LST and
if that fails, send me e-mail.


...


Newsgroup: it.comp.lang.visual-basic
Titolo: la virgola e l'input

Salve a tutto il ng
ho creato un'applicazione che prima scrive in un file dei valori con il
formato
##,##.00
poi preleva quei dati e li riscrive in un textbox con proprietą multiline =
true
per ogni riga ho scritto il codice
Form2.Text1.Text = Form2.Text1.Text & bo & vbCrLf
solo che vb interpreta la virgola di alcuni valori portandomi a capo il
tutto....
per esempio: la riga scritta
Costo auto 64.900.000,00
me la scrive nella textbox come
Costo auto 64.900.000
0
Suggerimenti?

 0
Non è che il textbox è solo un peletto ... stretto?

 ha scritto nel messaggio
news:q_qE8.61750$US3.1...@twister1.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Inno Setup e dir di sistema di origine

Dovendo usare due PC per lo sviluppo, uno fisso con W2K e uno portatile con
W98 ho il problema che la dir di sistema per W98 è C:\Windows\System e in
W2K è C:\WinNT\System32 e Inno Setup non accetta come origine la macro {

Dovendo usare due PC per lo sviluppo, uno fisso con W2K e uno portatile con
W98 ho il problema che la dir di sistema per W98 è C:\Windows\System e in
W2K è C:\WinNT\System32 e Inno Setup non accetta come origine la macro {sys}
esempio:
    Source: {sys}\pippo.ocx ...
ma bidogna sempre scrivere per esteso:
    Source: C:\Windows\System\pippo.ocx ...
Oltre al cerca e sostituisci ci sono altri metodi?
Grazie e un augurio di buone feste a tutti.

 
Prova a vedere se questa soluzione ti puo' andare bene:
http://news.jrsoftware.org/news/innosetup/msg39073.html
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

Newsgroup: it.comp.lang.visual-basic
Titolo: [?]: Problemi di report con il Datareport

Salve salvino!
Sto facendo dei report con il datareport di VB6 Enterprise :
tranquillo tranquillo avevo fatto un comando dataenvironment con una
struttura di 7 sottocomandi gerarchici(cioé il comando padre aveva un figlio
che aveva un filgio che aveva un figlio...) cosi, in fase di reporting, a
seconda del tipo di stampa voluta, alcune sezioni del datareport venivano
visualizzate o meno.
Questa possibilità era fatta da una funzione  pubblica "Configura_report"
del datareport che settava le varie sezioni visible o invisible.
E ci ero riuscito. Però poi ho installato il SP3 e sono andato in ferie...
e al ritorno...SORPRESA!
Non riesco più a visualizzare le 5 ultime sezioni:
io ho provato:
1) a togliere la funzione che settava l'attributo visible( impostato su true
per tutte) ma nisba, allora2) ho fatto stampare in debug lo stato ma tutte
le sezioni mi davano visible (e nel report ci sono degli shape, che sono
visibili ma anche loronon si vedono nel report in run time!) allora 3)
copiare il report in un altro ma idem e allora 4) risettare gli attributi
(si sammai, un cortocircuito...) ma nisba uguale.
Qualcuno di Voi ha un'idea in merito?
Grazie un casino a tutti quanti
Marco
mde...@stardust.it
PS= Chi volesse scrivere cose del tipo "basta , non usare il datareport usa
il cristal" si astenga, grazie






Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Query di accodamento con numerazione

Salve
ho la necessità di esportare dei dati da una tabella ad un'altra, e fin qui
tutto facile ma il problema è che dovrei numerare questi dati, con un
progressivo che do io, senza farlo prima o dopo l'esportazione ma
durante......
Mi spiego meglio
ho la tabella ORIGINE e quella DESTINAZIONE
dalla ORIGINE devo prendere dei dati secondo dei criteri e portarli alla
DESTINAZIONE.
I criteri di selezione usati per recuperare i dati dalla ORIGINE nella
DESTINAZIONE non porterebbero agli stessi risultati (sono migliaia di
records).
Quindi come faccio a numerare sti dati senza farlo preventivamente nella
tabella ORIGINE?
Qualche suggerimento?
Grazie
max

 Mi spiego meglio
[...]

> V.V.:

Poniamo tu voglia numerare a partire da 101:
SELECT Tabella1.*, 101 + DCount("[Id]","Tabella1","[Id] < " & [Id]) AS
Progressivo
FROM Tabella1;
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 > V.V.:
[...]


 > V.V.:
[...]


Grazie! non ci avevo proprio pensato
ciao
max

 Piccola domandina: però mi sembra che funzioni solo con un campo
contatore, o progressivo che dir si voglia, giusto?
Si`, un campo indice univoco. Non necessariamente contatore ne' numerico.
Potrebbe essere un classico codice alfanumerico e bisognerebbe tenerne conto
cosi`:
SELECT *, 101 + DCount("[Id]","Tabella1","[Id] < '" & [Id] & "'") AS
[Progressivo]
FROM [Tabella1];
La cosa si complica appena un po' se l'indice e` su due campi:
SELECT *, 101 + DCount("[Id1]","Tabella1","[Id1] < " & [Id1]) +
DCount("[Id2]","Tabella1","[Id1] = " & [Id1] & " AND [Id2] < " & [Id2]) AS
[Progressivo]
FROM [Tabella1];
Oltre l'indice su due campi non voglio neanche pensarci. :-)
Tieni conto che in questi casi nel giro di poco si presenta sempre uno che
dice: che sono queste schifezze! Ma se basta fare... E si resta come tanti
citrulli.


Newsgroup: it.comp.lang.visual-basic
Titolo: Impostare lo sfondo in un controllo DHTMLEdit

Salve a tutti,
devo impostare come sfondo di un DHTMLedit una immagine, solo che non
riesco.
Avevo trovato da qualche parte che l'istruzione corretta poteva essere
questa:
DHTML.DOM.body.Style.backgroundImage = "C:\prova.jpg"
ma non sembra funzionare.
Qualcuno di voi l'ha gia fatto? Qualche idea?

 Qualcuno di voi l'ha gia fatto?
No, e non so neppure se si possa, almeno con procedure 'normali'.
Ciao
Alberto
-- 
A questo punto hanno trovato un muro,
un muro duro, molto molto duro,
che siamo noi.
Newsgroup: it.comp.lang.visual-basic
Titolo: Leggere celle Excel

*** post for FREE via your newsreader at 
post.newsfeeds.com
 ***
Come posso fare per leggere il contenuto delle celle di un foglio Excel?
Pensavo di usare ODBC ma i dati non sono in forma tabellare.
Ho provato a cercare documentazione sull'automazione OLE ma pare essere piu'
nascosta del previsto.
Voglio solo aprire il documento e leggere il contenuto delle celle che mi
interessano dell'unico foglio, senza creare ne modificare niente.
C'e' qualcuno che mi puo' postare le poche righe di codice necessarie?
Ciao e grazie 1000 anticipate
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com
 - The #1 Newsgroup Service in the World!
-----==  Over 90,000 Newsgroups - 16 Different Servers! =-----

istanzi un oggetto Excel
Dim xLApp As Excel.Application
xLApp.Application.Cells(j, i) è il contenuto della cella (j,i)
ovviamente del foglio attivo...
Marcello
Mela <melani...@tiscalinet.COM> wrote in message
3b1c...@post.newsfeeds.com...



Non è difficile !!
Includi nei riferimenti Microsoft Excel Object Library 8.0 o Superiori.
Aggiungi in un form una ListBox
private sub form_load()
Dim i As Long
Dim Excel_File As Workbook
Dim Foglio As Worksheet
Dim Cella As Range
Set Excel_File = Excel.Workbooks.Open( Percorso + Nomefile.xls")
Set Foglio = Excel_file.Worksheets("NomeTuoFoglio")
For i = 1 To N°TueCelle
Set Cella = Foglio.Cells( i, 1)
List1.AddItem Cella.Value
Next i
Set Cella = Nothing
Set Foglio = Nothing
Set Excel_File = Nothing '
end sub
By Utente Win2k

 Includi nei riferimenti Microsoft Excel Object Library 8.0 o Superiori.
Funziona, grazie! (anche a Marcello che mi ha risposto)
Sapete dove trovare lo schema del modello degli oggetti di Excel? Un po' di
documentazione a riguardo? Ho frullato a lungo su MSDN ma non ho trovato
niente...
Ciao


 Sapete dove trovare lo schema del modello degli oggetti di Excel? Un po'
di
"Office2000 Visual Basic for application" edito da mondadori L 120.000 e ti
passa la paura!
Newsgroup: it.comp.lang.visual-basic
Titolo: creare matrice di controlli con vb200 express?

Ciao a tutti.
Non riesco a creare una matrice di controlli come si fa molto semplicemente
con vb6.
Sapete come si fa con vb2005 espress?
Grazie e ciao.
Ivan.
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

ciao Ivan
se cerchi con google troverai tantissimi esempi
http://www.google.it/search?hl=it&q=matrici+controlli+vb+net&meta=
http://msdn.microsoft.com/library/ita/default.asp?url=/library/ITA/vbcon/html/vbconcontrolarraychangesinvisualbasicnet.asp
ciao
Ilario 


Grazie mille Ilario.
Scusami se lo faccio solo ora ma non sono riuscito prima a leggere il tuoi
post di risposta.
Grazie ancora.

Newsgroup: it.comp.lang.visual-basic
Titolo: Spendete un attimo?...

Ho visto che nel NG ci sono solo persone esperte e non vorrei dare troppa
noia, ma se qualcuno avesse un minuto, gli sarei veramente grato.
Allora :
Public Function Copia()
Clipboard.Clear
Clipboard.SetText camposelezionato.SelText
end function
Come posso farmi dare (esiste una funzione che lo fa?) il nome del "campo
selezionato" in un dato momento.
Chiedo, andrebbe bene poi:
Dim camposelez as String
camposelez= funzione che restituisce il nome
Scusate,ma sono agli inizi.
Grazie.
--
Gulp ! Forse mi sono perso qualcosa !
Per rispondere via E-mail togli la x da 
xd...@cyberjunkie.com

Grazie.
Se ho ben capito, vorresti ottenere dalla clipboard il nome del campo
da cui e' stata copiata la stringa?
Ciao

 ha scritto nel messaggio
news:3bc8a677...@news.libero.it...


 wrote:
Form1.ActiveControl.Name

 wrote:
ControlName(Nome_della_form_da_qui_chiami_la_funzione)
Function ControlName(obj as Object)
	ControName=
obj.ActiveControl.Name
End Function

 collocato.
Hai provato 
Me.ActiveControl.Name
 ?
Bye, G.

Provero'
Spero di trovare sempre persone cosi' disponibili.
Grazie di cuore ad entrambi.


 ControlName(Nome_della_form_da_qui_chiami_la_funzione)
"da qui"???
Aaaaaahhhh! mi sento male :)
Ciao



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

Mi servirebbero un paio di OCX (se fossero
shareware sarebbe meglio ... ;) ) da usare in un
mio progetto VB6:
1) per creare dei documenti in PDF
2) per zippare files in multifile autoestraenti
ne usate qualcuno o sapete dove posso trovarli?
saluti
sauron

 1) per creare dei documenti in PDF
mi pare che il link fosse 
http://www.pdflib.com
Ciao
Faber
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con chiusura processi (windows xp)

Salve,
sono un niubbo di VB e purtroppo per motivi di lavoro mi tocca iniziare con
una roba abbastanza tosta... Ovvero listing di processi attivi sotto windows
XP e terminazione di quelli "inutili"
io ho trovato questo esempio online
http://www.marcominerva.com/vbcorner/download/api/TaskList.zip
che è proprio quello che mi serve... nè più ne meno... ma questo fa solo il
listing degli exe attivi, cioè non termina nulla...
La domanda è la seguente: posso io, sapendo solo il nome del processo,
terminarlo? Se voglio terminare word, posso creare una funzione alla quale
gli dico TerminaProcesso('winword.exe') e poi fa tutto lui?
da quello ke ho capito ogni processo ha un processID che lo identifica
univocamente (per ovvie ragioni, potrebbero esserci infatti processi con lo
stesso nome), ma non essendo il mio caso, non voglio complicarmi la vita.
Mi basta fare una cosa semplicissima.
Come posso aggirare l'ostacolo, oppure come posso ottenere sto benedetto
processID avendo a disposizione il nome?
A me serve uno schema del tipo:
ID - Nome
Faccio un controllo se Nome è nella lista di quelli da terminare, allora
killo il suo id...
Avete idee in merito ke non siano troppo laboriose? Se avessi la necessità
cambiare qualcosa nel codice, mi risulterebbe parecchio complicato metterci
le mani, visto ke di VB ne capisco pochissimo.
Se avete qualche idea in merito, vi prego aiutatemi!
Grazie
Carlo

 processID avendo a disposizione il nome?
Indipendentemente dal process ID ho pensato ke a me basterebbe poter
terminare tutti i processi ke si chiamano "giovannino.exe" indipendentemente
dal loro processID e dal loro reale contenuto.
C'č un modo sbrigativo e semplice per far ciň?
Grazie

 ....
Se non ti sei già aggiustato ti posso postare un esempio di codice che
usa WMI per fare quello che ti serve, è una funzione che puoi mettere
in uno script di VB o in un programma VB compilato. Oltretutto, usando
WMI è indipendente dalla piattaforma, lo puoi usare dal Win95 funo a
Windows 2003...
Fammi sapere se ti interessa ancora

Newsgroup: it.comp.lang.visual-basic
Titolo: librerie per smartcard

Salve a tutti,
 qualcuno sa dove potrei trovare librerie (DLL o OCX) che mi
permettano di creare applicazioni che lavorano con smartcard ?
Qualcuno ha gia' sviluppato software del genere ?
A chi si e' rivolto per le librerie ?
Grazie.

Ciao!
Non mi sembra esista uno standard nel settore smart card.
Per questo motivo esistono diversi lettori e diverse librerie per il loro
utilizzo.
Io ti consiglio: 
www.towitoko.com
Economici, piccoli, facili da usare e corredati di software, esempi,
librerie per l'utilizzo.
Ciao,
Alfonso.
"Workobbit" <mimmo....@NOSPAMlibero.it> ha scritto nel messaggio
news:3e0d949...@powernews.libero.it...
