mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Errori su Connection.Open

    ' mandando in esecuzione il codice
    ' VB genera il seguente errore :
    ' "Errore di run time '-
2147217887
 " "Si sono verificati errori."
    ' al punto contrassegnato con (*)
    ' Qualcuno è in grado di darmi una mano?
Option Explicit
    Private SourceRS As ADODB.Recordset
    Private SourceCmd As ADODB.Command
    Private SourceCnt As ADODB.Connection
    Private Parametri As ADODB.Parameter
Sub main()
    Set SourceCmd = New ADODB.Command
    Set SourceCnt = New ADODB.Connection
    Set SourceRS = New ADODB.Recordset
    Set Parametri = New ADODB.Parameter
    Dim strConnection as string
    strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                             "Data Source=D:\Db\DbBook.mdb;"
'Db locale in Access
    SourceCnt.ConnectionString = strConnection
    SourceCnt.Mode = adModeReadWrite + adModeShareExclusive
    SourceCnt.Open       (*)
   ....
   ....


"Data Source=D:\Db\DbBook.mdb;"
Non sono sicuro se sia questo...ma prova
a togliere il ";" a data source, prova cosě:
   strConnection =
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
                            "Data
Source=D:\Db\DbBook.mdb"
fammi sapere se ho detto una boiata...
Saluti...
--------------------------------
Inviato via 
http://usenet.iol.it
 


Prova senza la riga:
 SourceCnt.Mode = adModeReadWrite + adModeShareExclusive
Ciao
Sir Jo

Salutoni.
Probabilmente ci stà sfuggendo una boiata, perchè prima dell'
istruzione open ci sono solo poche righe, una è la definizione della
connection string, una è un istruzione set...io credevo che l' errore
fosse nella connection string...
Saluti...

Newsgroup: it.comp.lang.visual-basic
Titolo: generare un evento.........

salve a tutti vorrei con l'aiuto di un timer generare un evento.... ex io
creo il timer e supponiamo che l'ora sia 18.00.00 io vorrei che alle
18.00.05 nel form comparisse un'immagine.. come si fa?????? thanks.....

 wrote in message 9011a9$pv0$1...@nslave2.tin.it...


 Debug.Print "č ora di eseguire l'evento"


Newsgroup: it.comp.lang.visual-basic
Titolo: Tante form

Ho un progetto con piu' di 20 form e stanno crescendo.
Sono relativemante semplici, ma tutte decisamente
diverse e con un po' di codice.
Temo di raggiungere presto i limiti di capacita' del VB
(5 o 6 mi pare sia uguale...).
Come mi consigliate di procedere ?
Spezzettare l'applicazione in vari EXE sarebbe possibile,
ma molto poco pratico (e in piu' mi sembrerebbe di tornare
agli anni 80).
Ciao ciao
Grazie
Beppe T.

 wrote in message
news:SU6d7.5877$2L.1...@news.infostrada.it...


 ha scritto nel messaggio
news:SU6d7.5877$2L.1...@news.infostrada.it...

Rafforzo quanto detto da kjo: progetto con più di 90 form, 30 moduli, 14
classi e nessun problema. ;)
Newsgroup: it.comp.lang.visual-basic
Titolo: Come creare finestre a tutto schermo?

Buongiorno (o buonanotte?) a tutti.
E' possibile in VB creare una form a tutto schermo, senza la barra blu con i
controlli di dimensionamento e chiusura, per creare uno screen saver o una
qualche schermata grafica?
Massimiliano

 wrote in message
news:8ucp8l$87f$2...@lacerta.tiscalinet.it...

Impostare le seguenti proprieta' del form:
    WindowState = vbMaximized
    BorderStyle = 0
Ciao
Aldo
Newsgroup: it.comp.lang.visual-basic
Titolo: Menu personalizzati

E' possibile personalizzare i menu di VB cambiando il font, il
background e magari aggiungere qualche iconcina ?
Se si, mi potreste dire come fare.....
Grazie
Pasquale

...

----------
Ciao!
Trovi qualcosa sul Sito Comune, 
http://members.xoom.com/it_lang_vb
, e, se
non ricordo male, anche sul sito di Franco Stefanelli,
http://www.geocities.com/SiliconValley/Haven/2388/
.
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260/
http://www.armaditaggia.com/marco

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

Da dove posso scaricarli?
Grazie...
Andrea Cioli
ci...@programatic.it

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo PARTITA IVA

Vi sarei grato se mi spiegaste come controllare la validità della partita
IVA.

...


Newsgroup: it.comp.lang.visual-basic
Titolo: [SETUP] Ho perso un sito.

Tempo addietro, chiedendo aiuto per la creazione del pacchetto di
distribuzione di una procedura che utilizza ADO, mi fu consigliata una
procedura che ti aiutava alla creazione di un CD con tutto il
necessario per l'installazione di ADO nelle varie piattaforme Windows,
comprese le varie patch dei sistemi operativi e IE.
Purtroppo morendomi l'hard-disk ho perso tutti i riferimenti.
Se qualcuno che ha sottomano questa informazione me la potrebbe
postare, avrebbe tutta la mia gratitudine. 
Se qualcun' altro mi vorrebbe suggerire altri sistemi per permettere
l'installazione di programmi ADO anche a delle scimmie, sono aperto a
qualsiasi suggerimento.
Vi ringrazio in anticipo.
Giorgio Silvio.

 di ADO
Leggi il nuovo post "[!][FAQ]Distribuire applicazioni ADO -
15/05/2003".
hth,
Lokar
-- 
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
UGIdotNET - 
http://www.ugidotnet.org
Newsgroup: it.comp.lang.visual-basic
Titolo: Domandina sul ciclo for Each next ...

ho bisogno di resettare tutte le textbox di un form .
provando a guardare sul manuale ho tirato giu questo codice ...ma non sembra
funzionare...
mi date una mano ?
Dim ObjTxt As TextBox
For Each ObjTxt In AggCliente
    TextBox = ""
Next
dove sbaglio ?

 mi date una mano ?
dim Obj as object
 For Each Obj In frmAnagCliente
    if mid(Obj.name,1,3)="txt" then
        obj.text=""
    end if
 Next
Nel mio esempio ho controllato il nome ma lo puoi fare anche sul tipo (a me
capita sempre di doverle svuotare tutte tranne qcuna...).
Cmq il succo è che prima fai il for ma dentro devi usare la variabile Obj
che assume le istanze di tutti gli oggetti del form
Alex


 Dim Obj As Object
 For Each Obj In Nome_Form
     If TypeOf Obj Is TextBox then
        Select case Ucase(Obj.Name)
            Case "TEXTBOX1"    'Non ci fa nulla
            Case Else
                Obj.Text=""
        End Select
    End if
 Next Obj

 (a me capita sempre di doverle svuotare tutte tranne qcuna...).
ovvero, e scusate se mi intrometto:
 dim Obj as object
  For Each Obj In frmAnagCliente
    if typeof obj is Textbox then
         obj.text=""
  end if
  Next
Ciao, Pascal ;)

 dove sbaglio ?
MIk

 Ciao, Pascal ;)
Alex

ho bisogno di resettare tutte le textbox di un form .
Public Sub ResetAllTextBox(Byref frm As VB.Form)
	Dim ctl As Control
	Dim txt As TextBox
	' cicla sulla collection Controls del
	' form ricevuto come parametro
	For Each ctl in frm.Controls
		If TypeOf ctl Is TextBox Then
			' acquisisce esplicitamente
			' l'interfaccia Textbox del controllo
			Set txt = ctl
			txt.Text = vbNullString
		End If
	Next ctl
End Sub
-- 
ciao, hal

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

Come si puo fare un callback da vb5 ?
mi spiego, ho u na classe che crea una array di oggetti (form)  ed ad uno
specifico momento (pressione di un pulsante) uno o anche tutti gli
oggetti/form devono richiamare una procedura che si trova sulla classe.

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Ole Automation: Word e Distiller

Ciao a tutti, cercherň di essere piů chiaro possibile.
Tramite un app in VB leggo un documento (puň essere word, excel) e lo voglio
trasformare in PDF.
Da Vb apro Word (o excel etc) e stampo il documento usando la stampante
Acrobat Distiller. Vorrei automatizzare il tutto, ma prima di salvare in PDF
mi compare la finestra di dialogo sul nome del file da salvare (finestra di
dialogo del driver di Acrobat Distiller). Mi basterebbe un <Enter>
automatico.
Come faccio a darlo in pasto a quella finestra di dialogo? Ho provato con
sendkeys, ma non č garantito che sia attiva la finestra giusta (a volte
funziona, a volte no).
Qualcuno sa darmi una dritta? Vi ringrazio e sper di essermi spiegato

 sendkeys, ma non è garantito che sia attiva la finestra giusta (a volte

Newsgroup: it.comp.lang.visual-basic
Titolo: Sintassi For Each VB.NET senza specificare tipo

Ciao a tutti,
ho visto che con VB 2010 è equivalente se uso ad esempio:
1) For Each par As Reportman.Reporting.Param In paramsList
2) For Each par In paramsList
L'intellisense mi mostra una Dim tipizzata correttamente. Mi domandavo se
realmente tipizzava lui la variabile, o se era meglio specificare comunque
il tipo della variabile.

 il tipo della variabile.
Le tipizza lui se nel progetto è impostato Option Infer = On. Credo che 
sia una cosa molto comoda in LINQ.
Io però, per non sapere né leggere né scrivere, se lo dichiaro io sto 
più tranquillo perché sono sicuro che è quello. Se lo decide lui, boh.. :-)
-- 
news:it-alt.comp.software.openoffice : Il newsgroup dedicato a
OpenOffice.org, la suite open source di applicazioni per ufficio.
Scarica "OpenOffice.org 3: Soluzioni a raccolta", molto più di semplici 
FAQ! 
http://it.openoffice.org/doc/manuali/

 più tranquillo perché sono sicuro che è quello. Se lo decide lui, boh.. :-)
Capito, continuo a dirglielo allora, è una cosa che con i Generics farebbe
comodo, mi vengono fuori cose immonde tipo:
For Each kvp As KeyValuePair(Of Date, RigaStampa.PippoRigaStampa) In
row.ElencoPippo
:D

 row.ElencoPippo
beh, in questi casi continuo a fare la Dim vecchia maniera, a inizio
codice nella sua bella riga a parte, così mi tengo sia la tipizzazione
certa, sia la pulizia del codice.
Per inciso, per snellire la sintassi dei Generics, puoi usare
'Imports' per creare degli alias con abbreviazioni... esempio:
Imports pippo = System.Collections.Generic.KeyValuePair(Of String,
Integer)
e da li in avanti puoi usare 'Dim x as pippo'

 e da li in avanti puoi usare 'Dim x as pippo'
Boh sinceramente non vorrei si creasse più confusione (andare  a vedere
quel nome a che corrisponde), preferisco la Dim separata allora.

Newsgroup: it.comp.lang.visual-basic
Titolo: File Fox Pro

Dovrei inserire delle righe in un file Fox-Pro da un programma Visual basic.
So che i DBF si aprono tranquillamente con ADO, e l'ho anche già fatto ma i
DBF fox pro sono diversi, infatti Access non li apre.
Qualcuno mi da una dritta su come fare?
Grazie.
Daniela.

 ha scritto nel messaggio
news:a0f1vh$bf$1...@newsreader.mailgate.org...

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT]Hal is back!

Sono felice di vedere hal postare nuovamente sul ng.
Come sempre le soluzioni da lui proposte sono molto chiare ed eleganti
:)
Lokar
--
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt

 :)
Bentornato Hal!!!
:)))
Ci sei mancato...
Mi dispiace per lo stato in cui troverai il NG... :(
                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à!

 Sono felice di vedere hal postare nuovamente sul ng.
Gią, anche io sono molto felice di vedere superhal tornato all'azione
:-)

 Mi dispiace per lo stato in cui troverai il NG... :(
Anche io sono tornato a leggere (non scrivo molto) oggi, in che senso "Mi
dispiace per lo stato..."? Cos'è cambiato?
Starla

 Sono felice di vedere hal postare nuovamente sul ng.
Sniff, grazie :°-)
--
ciao, hal
che risponde qui, ma vale tutto il thread
--------------------------------
Inviato via 
http://usenet.libero.it

Nel senso che sul NG ci sono taaanttttiiiii Troll e tante domande la cui
risposta si troverebbe con F1, sito comune vecchi post... ma che cce voi fa?


 Come sempre le soluzioni da lui proposte sono molto chiare ed eleganti
Già, pare tornato giusto in tempo per il meeting :)
Ciao
--
' // Initialize the expression evaluator
Engines.Evaluator = CreateObject("
http://www.neodatatype.net
")
' // you can find resources for and from the NG here!
Me.SitoComune = "
http://www.it-lang-vb.net
"

Mi dispiace per lo stato in cui troverai il NG... :(
Tze! Non lamentiamoci/tevi: č molto, molto meglio di qualche tempo fa...
evidentemente dai labrador ai lupi c'č gente che non gli si puň proprio
dire di programmare come cani... speriamo che continuino ad avere gli
stimoli, sennň siam fritti!
Ciao,
Moreno
-- 
sirri at morenosoft dot com
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

Tze! Non lamentiamoci/tevi: č molto, molto meglio di qualche tempo fa...
Altro che! L'anno scorso di questi tempi il ng era un campo di battaglia.
Non preoccupiamoci di quanto durera' questo stato e gustiamoci il presente ;-)
-- 
ciao, hal



Carpe Diem, Trote Gnam! ;-)


Carpe Diem, Trote Gnam! ;-)
LOL, questa mi mancava :-D
-- 
ciao, hal

Piano con l'inglese... qualcuno puņ interpretare male il tuo "back" :-):D:-)
-- 
Antonio Cangiano
Webmaster di 
www.visualcsharp.it
free.it.comp.lang.csharp - free.it.comp.lang.vbnet
free.it.comp.lang.aspnet - free.it.comp.lang.delphi
Newsgroup: it.comp.lang.visual-basic
Titolo: [?2] Browser predefinito

Come posso conoscere il percorso e il nome del browser predefinito da usare
per aprire un file di aiuto?
Grazie, Stefano

Non fai prima a fare shell <nome.html> ?
Esegue il programma associato all'estensione html
Più difficile ma più carina è la API ShellExecute
--
;) G. Chiappori (ICQ 30904878)
webm...@chiappori.net
http://www.chiappori.net

Newsgroup: it.comp.lang.visual-basic
Titolo: [.net] il programma è già avviato?

Ciao a tutti,
rieccomi qui, ho cercato un po' in giro ma ho trovato solo per vb6.
Qual'è il modo in vb .net per sapere se l'applicazione che si sta
lanciando è già in esecuzione?
Grazie

 ha scritto nel messaggio 
news:1150919908.6...@b68g2000cwa.googlegroups.com...

System.Threading.Mutex
Ave
giuseppeD
---
CCR 

 ha scritto nel messaggio 
news:1150919908.6...@b68g2000cwa.googlegroups.com...


 -----------------------------------------------------------------
grazie a tutti

Newsgroup: it.comp.lang.visual-basic
Titolo: E-MAIL con le API di Windows

Vorrei sapere se esiste un sistema per inviare (TESTO) via e-mail con
l'aiuto delle API di windows.
GRAZIE

 GRAZIE
se intendi usando il client predefinito, esempio in
www.vb2themax.com
con i controlli mapi, direi sul sito comune

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema Urgente! SetupWizard ha fuso!

Quali file, o impostazioni di file INI, devo controllare?
Io proverei a controllare il file SWDEPEND.INI.
Una volta e' successo anche a me e poi ho scoperto che quel file era
stato modificato, non so da chi o da cosa.
Ciao
       _  _______________________________  _     
      / )|                               |( \    
     / / |      FERDINANDO CECCHINI      | \ \   
   _( (_ |  
fdnce...@mail.asianet.it
  | _) )_ 
  (((\ \>|_/->_______________________<-\_|</ /)))
  (\\\\ \_/ /                         \ \_/ ////)
   \       /                           \       / 
    \    _/                             \_    /  
    /   /                                 \   \  
   /___/                                   \___\ 

Ho cancellato il file SWDEPEND.INI e SetupWizard alla
prima esecuzione lo ha ricreato completamente! Ora tutto sembra
girare al meglio!
Un grazie a Ferdinando per l'utile soluzione!
Saluti da Patrick


Newsgroup: it.comp.lang.visual-basic
Titolo: VB e Excel

Due quesiti:
1) E' possibile mascherare (compliare?) il codice sorgente VB delle macro in
Excel? se si, come?
2) IF "file non trovato" THEN chiudi il programma Excel ELSE continua con la
macro. Chi me lo traduce in VB for application?
Grazie a tutti
Paolo
-- 
Posted from  [194.175.243.107] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG




if dir("c:\pippo\pluto.txt")="" then
    excel.application.quit
else
    ...
endif

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] - Drag&Drop

Salve!
Come posso fare il D&D da Esplora Risorse ad un controllo TreeView?

 Come posso fare il D&D da Esplora Risorse ad un controllo TreeView?
Ciao,
Non l'ho mai fatto, ma visto  che nessuno ha ancora risposto, ti
orienterei verso gli eventi con prefisso OLE. Credo che riconoscano un
Drag&Drop di un file. Ovviamente devi gestire la parte di highliting dei
nodi su cui ti muovi, con le apposite proprietà.
Un po' di fretta, mi spiace.
Flavio Ronco
f.ronco@*NonMiServeNiente*
flashnet.it
http:\\
www.geocities.com
\Paris\3461\
-------------------------------------------------------------
"Dio ha uno screensaver. Speriamo che non tocchi il mouse..."

Newsgroup: it.comp.lang.visual-basic
Titolo: Tabella di Excel su form

Ho difficoltà a manipolare una tabella di Excel incorporata con OLE 
automation su un form (la tabella è linkata ad un file di Excel già 
esistente). Preciso che la tabella deve essere visibile sul form.
Non riesco a raggiungerne proprietà e metodi per poterla modificare.
Mi potete suggerire come fare? 

www@www ha scritto:

Perchè hai voluto usare questa tecnica...?
Non era più semplice aprire Excel via Automazione ed accedere in
questo modo al suo modello oggetti...?
Magari mi sbaglio, ma la tecnica OLE non è proprio una delle cose che
suggeriscono di usare in casa MS....!
Altrimenti popola una FlexGrid con i dati rilevati da Excel(sempre via
Automazione)
@Alex

Perchè hai voluto usare questa tecnica...?
Perchè ho necessità di vedere i dati sul form 

 esistente).....
Sono andato oltre:
la modifica di una cella può essere fatta con
MyOLE.object.Application.Workbooks(1).Worksheets(1).Range("C4") = "prova"
ma se uso la seguente istruzione per salvare il nuovo contenuto della 
tabella,
pur accettandola senza alcun errore, non mi salva nulla
MyOLE.object.Application.Workbooks(1).Save
...chiedo ancora aiuto a chi ne sapesse di più.
Newsgroup: it.comp.lang.visual-basic
Titolo: che differenza c'è?

Salve che differenza c'è tra visual studio net e visual studio net
enterpraise?
Grazie



probabilmente quell "enterpraise"

 Grazie
Ciao,
Andrea

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

Sono un appassionato di elettronica  con il vecchio basic riuscivo ad
interfacciare il PC con l'esterno tramite la porta parallela con i comandi
OUT (888,n) e n=ino(889).
Come si fa con VB???
Ringrazio anticipatamente e prego rspondere via E-mail...
--
Santo ( 
santo...@tiscalinet.it
 )

 Come si fa con VB???
devi scaricarti la winio95.dll ed usarla.
-- 
News2000 1.5ß Version 
http://socket2000.8m.com

 devi scaricarti la winio95.dll ed usarla.
per w9x.
per nt paperino aveva postato un paio di messaggi non molto tempo fa.

 ha scritto nel messaggio
news:9382gn$afd$1...@lacerta.tiscalinet.it...


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

p

p
q, anzi, z
ho vinto.
Ricordati di it-test...
Ciao,
Moreno
#sirri#@#
morenosoft.com#
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

Io di Z ne ho tre, come la mettiamo? :-)
 :-((( Ho perso... vabbé, almeno la soddisfazione di tirarti in questo OT... :-PPP (Ok, chiudiamolo
qui...)
Ciao,
Moreno
#sirri#@#morenosoft#.com

Newsgroup: it.comp.lang.visual-basic
Titolo: Dichiarazione Funzione API

Mi servirebbe la dichiarazione completa della funzione API CopyMemory
Grazie



The CopyMemory function copies a block of memory from one location to
another. 
VOID CopyMemory (
    PVOID Destination,	// address of copy destination 
    CONST VOID *Source,	// address of block to copy 
    DWORD Length 	// size, in bytes, of block to copy  
   );	
 
Parameters
Destination
Points to the starting address of the copied block's destination. 
Source
Points to the starting address of the block of memory to copy. 
Length
Specifies the size, in bytes, of the block of memory to copy. 
 
Return Values
This function has no return value. 
Remarks
If the source and destination blocks overlap, the results are
undefined. For overlapped blocks, use the MoveMemory function.
Ciao
Marco Frazzoli
 

 Per la versione 16bit
Declare Sub CopyMemory Lib "KERNEL" Alias "hmemcpy" (lpvDest As Any,
lpvSource as Any, ByVal cbCopy as Long)
32 bit
Declare Sub CopyMemory Lib "KERNEL32" Alias "RtlMoveMemory" (lpvDest As Any,
lpvSource as Any, ByVal cbCopy as Long)

Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO PER VB6 E OFFICE 2000

IL DATA CONTROLL DI VB6 NON LEGGE GLI MDB DI OFFICE 2000
COME POSSO FARE?
AIUTATEMI
HO UN BISOGNO MATTO

 wrote in message
7mfv70$1hjq$1...@stargate1.inet.it...

Hai provato ad usare ADODC , il datacontrol basato su ADO?
PS=non c'e micca bisogno di urlare =)
Newsgroup: it.comp.lang.visual-basic
Titolo: Festivi e Feriali

Ciao a tutti,
mettiamo che io ho questa data: 12/04/2003
Avrei bisogno di sapere se tale data è una data festiva o feriale (rosso di
calendario  oppure no).
Mettiamo anche che ho un elenco di tutte le date festive italiane... come
faccio a farmi restituire un true se la data è festiva da una funzione
apposita?
Forse si dovrebbe utilizzare un array...ma non so come si fa!!!!
Vi prego aiutatemi con qualche semplice riga di codice!
Grazie mille miliardi di milioni!

 ha scritto nel messaggio
news:xq2Fa.73957$lK4.2...@twister1.libero.it...

Forse ti potrebbe essere utile questa funzione:
Public Function IsWorkday(dtmTemp As Date, Nomeday As Integer) As Boolean
    ' If your weekends aren't Saturday (day 7)
    ' and Sunday (day 1), change this routine
    ' to return True for whatever days
    ' you DO treat as weekend days.
    Nomeday = Weekday(dtmTemp)
    Select Case Nomeday
        Case vbSaturday, vbSunday
            IsWorkday = False
           'Per i festivi diversi da sabato/domenica potresti fare una
ricerca nel tuo array (che presumo essere molto corto)
        Case Else
            IsWorkday = True
    End Select
End Function
Ciao
Hubert

SotterratoVivo ha scritto:

Io uso queste funzioni
Public Function Festivo(Giorno As Date) As Boolean
 
   Festivo = False
   If Weekday(Giorno) = vbSunday Then Festivo = True
   If Day(Giorno) = 1 And Month(Giorno) = 1 Then Festivo = True
   If Day(Giorno) = 6 And Month(Giorno) = 1 Then Festivo = True
   If Day(Giorno) = 25 And Month(Giorno) = 4 Then Festivo = True
   If Day(Giorno) = 1 And Month(Giorno) = 5 Then Festivo = True
   If Day(Giorno) = 2 And Month(Giorno) = 6 Then Festivo = True 'Nuovo
   If Day(Giorno) = 15 And Month(Giorno) = 8 Then Festivo = True
   If Day(Giorno) = 1 And Month(Giorno) = 11 Then Festivo = True
   If Day(Giorno) = 8 And Month(Giorno) = 12 Then Festivo = True
   If Day(Giorno) = 25 And Month(Giorno) = 12 Then Festivo = True
   If Day(Giorno) = 26 And Month(Giorno) = 12 Then Festivo = True
   If Giorno = Pasqua(Year(Giorno)) + 1 Then Festivo = True
 
End Function
Public Function Pasqua(ByVal Anno As Integer) As Date
 
   Dim A As Integer, B As Integer, C As Integer
   Dim P As Integer, Q As Integer, R As Integer
 
   A = Anno Mod 19
   B = Anno \ 100
   C = Anno Mod 100
   P = (19 * A + B - (B \ 4) - ((B - ((B + 8) \ 25) + 1) \ 3) + 15) Mod 30
   Q = (32 + 2 * ((B Mod 4) + (C \ 4)) - P - (C Mod 4)) Mod 7
   R = (P + Q - 7 * ((A + 11 * P + 22 * Q) \ 451) + 114)
   Pasqua = DateSerial(Anno, R \ 31, (R Mod 31) + 1)
 
End Function
-- 
Samuele Battarra
prova il mio newsreader:
http://space.virgilio.it/batt...@tin.it/programmi/news/


O_O
dove çé*é^?^ hai trovato questo MAGNIFICO codice per calcolare la
pasqua?!?!? (non sapevo nemmeno si potesse calcolare...)
Questa è manna ragazzi, mettiamola tutti al sicuro, anche a chi non
serve...non si sa mai... :-)
Saluti!

 
Si tratta di un algoritmo ben conosciuto, anche qui' sul gruppo se ne e'
parlato piu' volte. Mi pare che ci sia anche sul sito comune.

Newsgroup: it.comp.lang.visual-basic
Titolo: eliminare gli spazi vuoti alla fine di una stringa

salve, vorrei sapere come fare per eliminare gli spazi vuoti,alla fine di
una stringa contenuta in una textbox, sull'evento lost focus.
grazie
--
**** Giuseppe Ciccolella ******
-------- Smanetton Web ---------
° 
http://digilander.libero.it/ciccoweb
 °

 una stringa contenuta in una textbox, sull'evento lost focus.
Trim$ --> F1
Bye, G.

 ha scritto nel messaggio
news:3e3d6...@news.dada.it...

Trim(textbox.text) '<=== Questo toglie gli spazi sia all'inizio che alla
fine                                         'del testo
LTrim(textbox.text) '<=== Questo toglie gli spazi solo a sinistra
RTrim(textbox.text) '<=== Questo toglie gli spazi  solo a destra
CIAO
Newsgroup: it.comp.lang.visual-basic
Titolo: Programma modulare

Ciao,
devo fare un progetto con altri miei amici e vorrei che ognuno creasse una
parte del programma contemporaneamente. Cioè ognuno fa un certo mini
programma e poi con una specie di programma centrale gestisco i valori
restituiti da questi mini programmi. Quello che non so, ed è sicuramente
molto, è come passare parametri ai mini programmi. Come restituire valore da
questi mini programmi al prog
Come restituire valore da
questi mini programmi al programma principale. E soprattutto se è possibile
tramite la gestione degli eventi del programma principale invocare funzioni
o eventi dei mini programmi già in esecuzione. Un'ultima nozione, se esiste
come in C sotto linux [comando fork()], la possibilità di avviare in
contemporanea più istanze dello stesso programma e mantenerne il controllo.
Beh, immagino che abbiate capito che voglio creare un software molto
modulare. Non so come iniziare e esattamente cosa cercare nelle guide.
Grazie a chiunque si dedichi al mio problema.
Ciao.
Luce,

 Luce,
In Windows programmazione modulare significa utilizzare componenti ActiveX.
I tuoi collaboratori, una volta definita un'interfaccia, programmano il
proprio componente che a te risulta una black box. Le funzionalità del
componente vengono cosi' richiamate da metodi e proprietà.
In VB è -semplice- realizzare -semplici- componenti ActiveX, e in molti casi
risulta la scelta opportuna.
Per progetti grossi evita il VB e affidati a Delphi o a C++.

 restituiti da questi mini programmi.
Crea un activex-exe che faccia da bridge.
Se ti interessa ne ho fatto uno generico per l'interfacciamento di varie
applicazioni, anche con la gestione di eventi.
Perň, no source :)
Ciao

 Per progetti grossi evita il VB e affidati a Delphi o a C++.
ohi!
Perchč?

 Perchè?
Brevemente il mio parere; nei progetti "grossi":
1) Performance: il Vb è nettamente piu' lento di Delphi e C++, questa
differenza è + evidente nei progetti + grossi. Inoltre ottimizzare parti di
codice in C o i Delphi risulta possibile, in VB spesso no.
2) Stabilità: con progetti grossi, ho notato una certa instabilità sia
nell'ide sia nel codice prodotto.
3) Linguaggio: il VB non essendo OO, non ha ereditarietà e ciò è molto
penalizzante. Implementare classi non risulta comodo e le classi prodotto
sono lente. Non c'e' nessuna gestione seria ed utilizzabile delle liste.
4) Distribuzione del codice prodotto: in VB è un processo straziante, negli
altri casi il tutto si risolve nella distribuzione dell'eseguibile e poco
altro (questo ovviamente anche in progetti piccoli)
detto questo, per progetti gestionali medio piccoli, il VB è la scelta
migliore in virtu' del suo debugger, della possibilità di modificare il
codice "al volo" e della presenza di ActiveX di terze parti veramente buoni.

 Perchè?
news:\\WXML9.40908$
lV4.1...@news2.tin.it
Ciao.
-- 
BSD is for UNIX lovers -- linux is for Windows haters.
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB 2008] Datagrid con array di oggetti

ciao,
Ho popolato una datagrid mettendogli passandogli come datasource un 
array di oggetti.
c'e' il modo di recuperare un "oggetto riga" passandogli l'indice della 
riga da recuperare senza doversi passare a mano tutte le colonne?
Esempio.
Oggetto persona con proprieta:
- id
- cognome
- nome
Mi creo una lista di persone e popolo la datagrid
datagrid.datasource = array_list_of_persona
Adesso quando l'utente seleziona una riga vorrei recuperare l'oggetto 
persona ovvero
dim p as persona
p = DataGridView1.CurrentRow
senza dovermi recuperare l'indice della riga selezionata e poi per ogni 
colonna leggere il valore ed assegnarlo alla proprietï¿œ corrispondente 
per riottenere l'oggetto riga.
E' possibile?
ciao
Mauro

 E' possibile?
http://msdn.microsoft.com/it-it/library/system.windows.forms.datagridviewrow.databounditem.aspx
Newsgroup: it.comp.lang.visual-basic
Titolo: ? MSCOMM attendere le risposte

Cari amici,
la mia applicazione manda delle stringhe sulla via seriale.
Prima di mandarne altre, devo attendere che la seriale mi ritorni la
risposta al comando precedente.
In pratica, la routine deve attendere il classico OK di ritorno prima di
procedere.
Mi date una dritta ???
Grazie
Ciao

 wrote in message
8r2tjl$jen$1...@serv1.albacom.net...

Se sfrutti MSCOMM dopo aver mandato la stringa metti OFF una variabile che
impedisce la TX
seguente, e nell'evento OnComm, a secondo del dato ricevuto, la rimetti ON.
Se NON usi MSCOMM........non ricordo, ma una volta si usava If Loc(x)
then....
ciao.

 Mi date una dritta ???
Processa l'ingresso di dati dalla seriale, o in modalità event-driven
(mscomm_commevent) o andando a testare direttamente la presenza di dati nel
buffer di input. Puoi prelevare l'input sia in forma di String che di array
di byte. Consulta l'help di MSCOMM, c'e' anche un esempio.
-vibino
Newsgroup: it.comp.lang.visual-basic
Titolo: tlb Net e vb6

Ciao a tutti,
eccomi qui con un'altra domandina.... facile facile :-)
In VB2008 ho scritto una dll visibile a com.
Questa dll, si appoggia a delle altre dll NON visibili a com.
In VB6 ho referenziato la libreria com, l'ho usata e non ho avuto problemi.
Di questo applicativo scritto in vb6, ho creato un pacchetto di setup, e
all'interno di questo pacchetto c'e' anche il file .tlb della dll visibile a
com.
Lancio il setup dell'applicativo, la mia tlb viene messa in
c:\windows\system32,   ma non riesco a usare le funzioni esportate in com
della mia libreria.
Riepilogando....
PrimaDll, visibile solo in Net.
SecondaDLL, si appoggia a PrimaDLL, ma esporta anche delle funzioni in Com
Applicazione, referenzia SecondaDLL
di SecondaDLL, nel pacchetto di installazione, ho la .tlb
Nel pacchetto, non ho nulla riguardo PrimaDLL
Le funzioni esportate in Com da SecondaDLL, non vanno.
Che mi dimentico?
Ciao e grazie... Maurizio

 Questa dll, si appoggia a delle altre dll NON visibili a com.
...
dimenticavo di dire che la dll NON visibile a com, nell'esempio indicata 
come PrimaDLL, e' una dll privata (cioe' non condivisa) e quindi non 
registrata nella GAC. Potrebbe essere un problema? Ciao e grazie... Maurizio

Piccolo aggioramento..
Sono riuscito, tramite RegAsm /tlb a registrare l'assembly,  a riesportare
il type library e a registrare le componenti com.
A questo punto, l'unico problema che mi resta e' che il RegAsm non e'
distribuibile; dovrei fare un pacchetto di installazione di questo
applicativo, anche usando InnoSetup eventualmente (mi sa che PDW di vb6 e'
meglio lasciarlo stare), ma come faccio a installare l'assembly e le type
libraries se non posso distribuire il RegAsm?
Qualche idea?
Grazie... Maurizio

 wrote in message 
news:4a2f5a1d$0$1116$4faf...@reader4.news.tin.it...

Fai un setup per la DLL .NET/COM con il setup di Visual Studio 2008
Newsgroup: it.comp.lang.visual-basic
Titolo: Info su ListView

Ho bisogno di chiedere alcune informazioni. ListView1.MultiSelect e
impostato su True. Come posso fare in modo che quando premo un tasto tutti i
record all'interno della list vengano selezionati in automatico. Ho provato
con For next e select = true, ma i campi non vengono colorati .
Ancora come posso scorrere una listview per sapere quale record e
selezionato.
Grazie claudio

 selezionato.
MsgBox ListView1.SelectedItem
----------
Ciao
Sabba

Newsgroup: it.comp.lang.visual-basic
Titolo: Comprimere i file con VB4

Ciao a tutti,
ho trovato un OCX freware (Active Zipper) per eseguire una compressione
dei file, il tutto funziona bene con un solo problema: il file zippato
che ottengo è circa 3 volte maggiore dell'equivalente fatto con Winzip,
inoltre tale file non è compatibile con lo stesso Winzip.
Qualcuno ha qualche suggerimento o qulche cosa di alternativo?
Franco
--
Automatic posted from 
ro...@edy.ivg.it
 [194.184.152.232]
via Mailgate Server - 
http://www.mailgate.org

inoltre tale file non è compatibile con lo stesso Winzip.
Putroppo non tutti gli algoritmi di compressione sono identici e questo
significa che ce ne sono di più o meno performanti. Quello in cui ti sei
imbattuto pare lo sia meno. Per quanto riguarda la compatibilità con winZip
dipende sempre dall'algoritmo utilizzato per la compressione e la struttura
ad albero utilizzata per la rappresentazione dei dati.

>inoltre tale file non è compatibile con lo stesso Winzip.
Cacchio ! Ecco perche' non riuscivo a leggere gli ZIP... Questo OCX fa
davvero pena...
Ciao.
""""""""""""""""""""""""""""""""""""""""""""""
 -----------Federico Emanuele Galli----------
 ----------Visual Basic's Programmer---------
 
 Sideralis Programs (Visual-Basic and Delphi)
 
http://www.geocities.com/colosseum/loge/2151
""""""""""""""""""""""""""""""""""""""""""""""
                 Trust no ONE.

Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda forse OT

ciao! pensavo di sapere tutto o quasi su window!!! e invece....
dnq, i fonts generalmente son nella cartella windows\fonts pero' quando mi sono messo a cercare il
font terminal non l'ho trovato!! come del resto un tipo di font che un'altro programma usava...
quello che non capisco e' come mai visaul basic mi vede tutti i tipi di fonts??????
Il bello pero' e':
se lancio il mio clone del notepad e seleziono il font winhex (che viene utilizzato dal programma
installato) il programma va in error perche' non trova il font!!! se invece lancio il programma
installato "WinHex" allora il mio clone funziona regolarmente!!!
un mistero!!!!
cosa sbaglio??? perche' non riesco a trovarli???
grazie
Antonio.

 wrote in message
3B700A14...@yahoo.com...


 
Oppure via codice chiamano l'API AddFontResource.
-- 
Samuele Battarra
prova il mio newsreader:
http://digilander.iol.it/battarsa/programmi/leggiminews.html
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] - Funzione Seek in ADO

Sto traducendo dei programmi da 16 a 32 Bit.
Da alcuni esempi non sembra funzionare il vecchio metodo seek.
ho provato in questo modo ma la proprietà rs.supports(adIndex) mi
restituisce sempre false:
Sub SeekRecord() 
  Dim cnn As New ADODB.Connection
  Dim rst As New ADODB.Recordset 
  ' Open the connection
  cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\pippo.mdb;" 
  ' Select the index used to order the data in the recordset
  rst.Index = "PrimaryKey" 
  ' Open the recordset
  rst.Open "TabellaProva", cnn, adOpenKeyset, adLockOptimistic,
dCmdTableDirect 
  rst.Seek "P", adSeekFirstEQ 
  ' If a match is found print the quantity of the order
  If Not rst.EOF Then
  Debug.Print rst.Fields("Descrizione").Value
  End If 
  ' Close the recordset
  rst.Close 
End Sub 
La tabella prova è di due campi (Codice definito come chiave primaria
e Descrizione)
 
al momento della seek da errore di funzione non supportata

 La tabella prova č di due campi (Codice definito come chiave primaria


avevo dimenticato di presentarmi
Usa SQL
bye Roberto


Newsgroup: it.comp.lang.visual-basic
Titolo: differenza tra stringa sql da visual basic e access

salve
mi sono accorto che c'e' una certa differenza
tra un comando sql interno di access e un comando
sql fatto dal visual basic
per esempio, in vb uso una query di questo tipo
comando = "SELECT * FROM miatab WHERE miatab.nome LIKE '%cazz%' "
e fino a qui tutto normale, mi sembra normalissimo sql, per
quel poco che so
mentre per fare la stessa cosa con una query interna ad access
devo fare cosi':
SELECT * FROM miatab WHERE nome LIKE "*cazz*";
quindi al posto del percento devo usare l'asterisco!!!!!
qualcuno mi sa dire perche' ?
grazie
cd

 qualcuno mi sa dire perche' ?
Perchč Mamma Microsoft, al solito, cerca di stravolgere gli standard e 
di comportarsi come meglio crede.
Continua ad usare la percentuale che fai meglio :)
-- 
Quando noi ignoranti eravamo di piů, tutto era piů bello (A. Celentano).
  ___   _   ___ _  _______   _______ ___
|   \ /_\ | _ \ |/ / _ ) \ / /_   _| __|
| |) / _ \|   / ' <| _ \\ V /  | | | _|
|___/_/ \_\_|_\_|\_\___/ |_|   |_| |___|

 
ok
grazie
Newsgroup: it.comp.lang.visual-basic
Titolo: Richiesta di suggerimento

Avrei il seguente problemino da sottoporvi....ametto (tanto poi magari si
capiva) che non sono molto esperto di vb...ma me la cavo con access.
Devo con una procedura in access modificare un campo in una tabella di un
file mdb (Access97) questo e' quello che ho scritto ma alla prima riga si
blocca....e purtroppo in questo caso non posso usare access!!!!
 Sub prova()
  Dim dbNew As Database  ' qui si blocca segnalando il seguente errore DIPO
DEFINITO DALL'UTENTE NON
DEFINITO!!!
  Dim tdNew As TableDef
  Dim rsnew As Recordset
  Dim idxNew As Index
  Dim fldNew As Field
  Dim relNew As Relation
  Dim wsNew As Workspace
  Dim sqSQL As String
  DatabaseName = "c:\prova\prova.mdb"
  Set wsNew = CreateWorkspace("", "Admin", "")
  Set dbNew = wrkJet.OpenDatabase(DatabaseName)
  Set rsnew = dbNew.OpenRecordset("tabellaprova", dbOpenTable)
  With rstnew
        'imposta indice
        .Index = "Primarykey"
        .MoveFirst
        .Edit
        !Nome = ""
        .Update
  End With
  dbNew.Close
  wsNew.Close
End Sub
Che devo verificare....magari mi son perso qualche libreria o collegamento
esterno??? bhaaaaaaa
Tks
--
* David *

 DEFINITO!!!
Finestra Vba
strumenti
riferimenti
Microsoft data access objects
ciao
ugo

 wrote in message
9ejqc4$f27$1...@lacerta.tiscalinet.it...

Grazie, in access c'e'  in vb non lo trovo!!!!
c'e' :
inserisci routine
attributi routine
opzioni
pubblica
Bhooooooooo
Grazie lo stesso


Project / References
(penso = Progetto / Riferimenti)
hth, hal

 pubblica
Progetto
riferimenti
Microsoft data access objects
ciao
ugo
p.s. avevo capito che parlavi di Access...

 wrote in message
9ejuqc$hah$1...@lacerta.tiscalinet.it...

YESSSSSSSSSSSSSSS  grazie ad hal ed Ugo!
Ciao
--
* David *
Newsgroup: it.comp.lang.visual-basic
Titolo: Service Pack 5 per Visual Basic 6

Ho scaricato il SP5 per VB6 da VolFTP... 56Mb e passa.
Mi da però un problema quando tento di estrarlo...
infatti a circa metà dell'installazione mi dice che
c'è spazio insufficiente su disco o che il file .CAB
è corrotto. (risultato 58 file su 70)
La spazio certamente non è insfufficiente (ho diversi
giga a disposizione).
Ho provato ad aprire il file con Winzip (8.0) e alcuni
file li estrae altri no.
Su un CD avevo una versione scaricata (se non ricordo male)
dal sito della Microsoft... ma anche quello mi da problemi...
(67 file su 70).
I due file, li ho confrontati con il comando DOS FC e sono
risultati diversi ... anche se hanno la stessa dimensione.
Ora cerco di scaricarlo da un altro sito (
www.dowsnloads.com
)
sperando che vada meglio...
Qualcuno mi può indicare un altro sito dove c'è una versione
sicuramente "buona"?
Ringrazio anticipatamente per le risposte. :-))
--
Daniele Pinna  (leva oops. per rispondere) * ICQ 24567484
Sito Web: Il DoCFa in Pillole: 
www.dapinna.too.it

 sicuramente "buona"?
Nel sito 
www.dowsnloads.com
 non l'ho trovato ma ho cmq risolto.
Il problema me lo dava sia sotto Win2000 che sotto WinMe.
Dopo un riavvio però non mi ha dato altri problemi sotto
WinMe (sotto Win2000 devo ancora provare) e sono riuscito
ad estrarre i file... spero che non ci siano altri problemi.


 ad estrarre i file... spero che non ci siano altri problemi.
Uhm... ti era venuto fuori qualche messaggio di errore tipo schermata blu
prima del download... se si allora potrebbe essere una cosa normale...
altrimenti potrebbero esserci dei problemi con la tua ram (oppure con la
connessione di rete se usavi un disco di rete)
Ciao

"Lord Rayden" <ray...@hardwaretips.com.rimuovimi> ha scritto nel messaggio
news:9s5l19$29o5$1...@half.spin.it...

No nessuna schermata blu...
E poi dopo un riavvio non ho piùavuto problemi ed infatti l'ho
installato (inoltre ho provato a scompattare il file in un altro
PC, copiato tramite la LAN e non mi ha dato problemi).
Ho notato qualche altro problemino di lettura si Disco, sia
sul nuovo HD Quantum AS40 che nel Vecchio Quantum CR8.4A, da
quando ho spostato i due dischi sul controller Promise ATA 100
(non RAID) della A7V.
Ad esempio ogni tanto mi diche che le definizioni dell'antivirus
sono danneggiate, ma lanciando il Norton Disk Doctor non rileva
danni nella superifice e riavviando non da più problemi (solo
a volte devo fare due riavii).
Non ho altri problemi però... e anche con file molto grossi
come filmati AVI e/o MPEG (oltre 400Mb) o file ISO di CD
scaricati da internet (ad esempio Mandrake 8.1) non ho
avuto problemi...
Sto pensando di aggiornare il BIOS... all'ultimo che è
uscita (1.009 ora ho la 1.007) se mi aggorna anche
qualcosa del Promise.
Chiederò su it.comp.hardware.motherboard che qui sono
fortemente OT ^___^;;;;;;;

Newsgroup: it.comp.lang.visual-basic
Titolo: Distribuzione OCX Media player

Sto creando un'applicazione ( o almeno ci sto provando ) che utilizzi
l'OCX di window media player, se a applicazione finita la volessi
distribuire per internet ( comunque freeware ), ci sarebbero
problemi di legalitą, o mi conviene fare una distribuzione senza il
suddetto OCX dato che il window media player ormai e' compreso
in quasi tutti i sistemi win32. grazie anticipatamente per le risposte.
-End Mail ----------------------------------------------------------
Canzonetti Giuliano
Saritel S.p.A.
Innovazione e Sviluppo Prodotti
Servizi Interattivi Voce/Dati
S.S.148 Pontina Km 29.100, 00040 Pomezia (Roma) - ITALY
e-mail: 
ivr...@saritel.it

 ha scritto nel messaggio
news:8m3t4e$dig$1...@nmaster.tin.it...


 wrote in message Jw$ByJv#$GA...@news1.galactica.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Winsock listen su LAN. Ricerca PC accesi.

Come posso fare per verificare se una determinata macchina è in ascolto
su una certa porta TCP senza effettuare la connessione?
Mi spiego:
Devo realizzare un semplice programmino in VB da caricare su un certo
numero di macchine di una LAN.
Il programma si avvia in automatico all'accenzione dei PC ed effettua una
ricerca delle altre macchine in quel momento disponibili sulla LAN.
Naturalmente dovrà rilevare solo le macchine che sono in ascolto su una
determinata porta  Il programma poi si mette in ascolto sulla stessa porta
per rispondere a sua volta alle richieste di altre macchine che vengono
avviate.
Poichè mi basta rilevare che il servizio sia disponibile, vorrei evitare di
effettuare CONNESSIONE e DISCONNESSIONE solo per sapere che
un determinato PC è acceso.
Grazie infinite
                                               Franco


per testare se una macchina e' accesa basta il ping, di cui trovi in
rete una montagna ri implementazioni in VB, per essere sicuri che una
macchina sia effettivamente ascoltando una portsa devi per forza tentare
la connessione alla macchina e a quella specifica porta
Newsgroup: it.comp.lang.visual-basic
Titolo: Eventi e Datarepeater

Ho un datarepeater che contiene il mio controllo activeX
Come faccio a rilevare un evento definito nel mio controllo
dall'applicazione client?
Grazie
CHicco

...

Nello stesso progetto in cui hai il controllo, devi creare un modulo di
classe pubblico da usare come interfaccia (puoi chiamarlo IEvents) che
contenga le signature degli eventi (cioè dichiarazioni di Sub o Function
lasciate vuote)
Ad Es. :
Moudulo di classe IEvents
Public sub Click()
end sub
al tuo controllo aggiungi una proprietà di questo tipo:
Public frmContainer as IEvents
nel progetto che usa il DataRepeater, devi aggiungere un riferimento all'ocx
del controllo (il datarepeater non lo richiede).
a questo punto nel modulo che deve catturare gli eventi (generalmente il
form che contiene il datarepeater) aggiungi (ti consiglio nelle prime righe
per chiarezza)
Implements nomecontrollo.IEvents (stesso nome dell'interfaccia)
Se ora guardi nel combo delle proprietà vedrai apparire i tuoi eventi.
Quando inizializzi il form devi "dire" al controllo chi è che cattura gli
eventi (cioè chi implementa l'interfaccia IEvents) e per fare ciò si usa la
property frmContainer che abbiamo aggiunto sopra:
set drDataRepeater.repeatedcontrol.frmcontainer = ME
Per killare gli eventi dal controllo dovrai chiamare i metodi
dell'interfaccia:
frmContainer.Click
ecc.
Spero di essere stato chiaro, scusa eventuali imprecisioni ma ho scritto
tutto in 20 sec.
Newsgroup: it.comp.lang.visual-basic
Titolo: Rubrica Outlook

Ciao a tutti.
Qualcuno sa se è possibile estrarre i dati (tramite VB4) dalla rubrica di
Outlook?
Grazie Franco

...

Ciao
Il modo piu' semplice e' quello di esportare la rubrica in txt con i vari
campi suddivisi e poi con vb te lo leggi e ci fai quello che vuoi
Saluti

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto SetFocus

Salve a tutti,
Problema del giorno.
Premessa:
Ho una serie di Textbox e Combobox
in base a quanto inserito in txt1 (valutato al txt1_Validate) decido se
all'uscita (txt1_LostFocus), richiamata da tab o invio, devo attivare e
posizionare il focus (SetFocus) in txt2 piutosto che in cmb3 o txt4 ecc.
Problema:
Ho riscontrato che al LostFocus di un controllo (txt o cmb) il focus non
viene dato immediatamente al controllo da me indicato ma prima passa per il
GotFocus e poi per il LostFocus del controllo con TabIndex sucessivo a
quello da cui sto uscendo e che è attivo con tutto quello che ne consegue.
Sembra che al KeyDown del Tab o dell'Invio si memorizzi già qual'è il
controllo che deve prendere il focus e pure forzando con un SetFocus prima
passa per il controllo che si è memorizzato e poi per quello da me forzato.
Richiesta:
E' possibile forzare il controllo di destinazione del focus senza passare
per quello che si è memorizzato al momento del tab?
Avete qualche suggerimento per per poter, all'uscita di un controllo,
passare a un controllo specifico senza passare per forza al controllo con
tabindex successivo a quello originario?
Spero di essere stato chiaro nell'essporre il mio problema.
Grazie a tutti

 con tabindex successivo a quello originario?
Se gestisci te, tutti gli spostamenti col tab ed eventualmente con l'Invio,
potresti settare un bel tabStop=false su tutte le text/combo che gestisci.
In questo modo quando viene premuto il tasto tab
non succede niente automaticamente!
MIk


non mi sembra una buona soluzione visto che nel form ho circa una quarantina
di controlli
dovrei in questo caso gestire il focus all'uscita di ogni controllo anche
quando non serve.
fiducioso in soluzioni migliori


 anche quando non serve.
Infatti setti il tabstop solo su quelli che gestisci te!
Quando non serve gli lasci usare il tab settando
inteligentemente il tabindex!
MIk

Newsgroup: it.comp.lang.visual-basic
Titolo: [?][Novell] Recuperare la lista utenti

Salve.
C'e' qualche buonanima che sa come recuperare la lista COMPLETA degli
Utenti abilitati alla rete (Collegati o no) di Novell Netware 4 oppure
5 ?
Ho cercato tutto il giorno senza trovare niente.
Ma si puo' fare? (Credo di si, ma non so come)
Piero Giorgi

Da prompt di dos nlist utente ti elenca gli utente; reindirizzalo in un file
e poi leggilo