mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Tipo e nome Tabelle in database

Salve Ho un problemino!!
Vorrei implementare una specie di composizione automatica delle query a
partire da un database!
Ovviamente dovrei essere in grado di Leggere il nome delle tabelle contenute
nel DB oltre che il tipo e il nome di ogni elemento della tabella.
Alcuni anni fa trovai da qualche parte un qualcosa che riusciva a fare una
cosa del genere!!
Aiutatemi!!
Fatemi sapere almeno come leggere i nomi ed i tipi in un DB!!
Ciao
Ivan

 ha scritto nel messaggio
news:fvqc8.21355$eD3.8...@twister1.libero.it...
| Salve Ho un problemino!!
| Vorrei implementare una specie di composizione automatica delle query a
| partire da un database!
| Ovviamente dovrei essere in grado di Leggere il nome delle tabelle
contenute
| nel DB oltre che il tipo e il nome di ogni elemento della tabella.
definisci:
- 1 oggetto tabella
- 1 oggetto campo
fai un for each tabella in mioDB.tables e all'interno
un for each campo in tabella.fields.
controlli il tipo del campo con campo.type (controlla
sull'help a cosa corrisponde e risolvi con 1 case)
+ o - questo e' quanto siccome non hai detto se lo fai
in DAO o ADO o che...

 nel DB oltre che il tipo e il nome di ogni elemento della tabella.
Se usi DAO, lavora sulla collection Tabledefs del tuo database. Al suo
interno ha una collection Fields, che contiene ciascun oggetto field con
tutte le sue proprietą.
Ciao
*Roby*

 nel DB oltre che il tipo e il nome di ogni elemento della tabella.
Con ADO, anzi, con ADOX, puoi usare l'oggetto
Catalog che sostituisce il vecchio oggetto Database
di ADO. Per il resto gli insiemi e gli strumenti per
fare ciň che desideri sono pressochč gli stessi....
Ciao
 Valter

 di ADO....
ovviamnete volevo scrivere :
"che sostituisce il vecchio oggetto database di DAO".. :-))

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

Ciao
Quando salvo nel database il DTPicker.value la data mi viene convertita in
formato mm/gg/aa. Per ottenerenuovamente il formato gg7mm7aa quando la
estraggo che funzione devo usare?
Grazie



format(campo,"dd/mm/yyyy")
=======================================================================
Se mi vuoi scrivere togli le maiuscole
Sveltolampo 
ctenizaMALED...@hotmail.com
=======================================================================

 ha scritto nel
messaggio news:ogb4tvccmtaglc469...@4ax.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: Apertura e chiusura lettore CD

Dear NG
ho la necessità di aprire e chiudere il contenitore
del mio lettore CD al click di un cmdbutton.
Help per favore.
Grazie
ilpav

 del mio lettore CD al click di un cmdbutton.
'Questo tra le dichiarazioni
Declare Function mciSendString Lib "winmm.dll" Alias _
    "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
    lpstrReturnString As String, ByVal uReturnLength As Long, _
    ByVal hwndCallback As Long) As Long
'Questo nel form
Dim returnstring as String * 127
Private Sub Command1_Click()
    'open
    ret = mciSendString("set CDAudio door open", returnstring, 127, 0)
End Sub
Private Sub Command2_Click()
    'close
    ret = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End Sub
ciao
--------------------------------------------
             ASSA
http://assatarram.yohoo.it
Napster: Assatarram3
it.comp.lang.visual-basic: Assa
--------------------------------------------

 wrote in message
9bcrro$8qd8p$1...@ID-60516.news.dfncis.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: Conversione SuperBase-Access

Dovrei convertire dei dati di Super-Base in Access. Qualcuno sa dirmi come
fare ?
Grazie

 ha scritto nel messaggio
news:PsRu7.5924$p11....@news1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: compatibilità SW in VBA

Ho appena scoperto che se includo un controllo (uno di 50 in realtà...) in 
VB per excel, e poi passo il mio programma a una persona che NON ha anche 
visual basic installato, ma ha solo ecxel, beh... non gli funziona!!!
E' possibile che se includo un controllo esterno a quelli di defautl di VB 
per excel, allora non funziona piu' il programma se su un PC non è 
installato anche VB6?
Non è possibile creare un eseguibile o qualcoa del genere per permettere a 
tutti quelli che hanno installato office di poter avviare una mega macro in 
VBA?

"tempesta" ha scritto nel messaggio
news:AF7dd.14287$1q2...@tornado.fastwebnet.it...

Ciao, tempesta.
    Dunque non sei un "utente" di Office ma uno "sviluppatore", giusto? Come
per Visual Basic/Visual Studio esiste la "Creazione guidata pacchetti di
installazione" cosi` per Office esiste la "Creazione pacchetti", inclusa nel
prodotto Microsoft Office Developer ma, nel tuo caso, dovrebbe essere
sufficiente predisporre un pacchetto di installazione con Visual
Basic/Visual Studio, comprendente anche il o i file di Excel.
    (Facci sapere se ed eventualmente come hai risolto. Grazie.)
-- 
Ciao :o)
Maurizio Borrelli, Microsoft MVP - Office Systems - Access
--------
?SPQR(C)
 X
--------

    (Facci sapere se ed eventualmente come hai risolto. Grazie.)
Grazie davvero!!!!
Ti faccio sapere di sicuro, domani o dopo provo con VB... anche perchè non 
ho la versione developer di office! :-(((
Grazie, bel suggerimento! ;-)

Newsgroup: it.comp.lang.visual-basic
Titolo: Dare il focus al primo controllo di un frame

Ciao.
E' possibile impostare il focus al primo controllo contenuto in un frame
senza conoscere il nome del Frame?
Per adesso ho fatto un ciclo su tutti i controlli contenuti nel frame ed ho
chiamato il metodo SetFocus se il TabIndex del controllo considerato è
minore di quello già impostato.
Esiste una soluzione migliore e più efficace?
Grazie.
Questo comunque è il mio codice:
Dim x As Control
Dim iTabIndexTmp As Integer
iTabIndexTmp = 1000
For Each x In Form1.Controls
    If x.Container Is Frame1 Then
        If x.TabIndex < iTabIndexTmp Then
            x.SetFocus
            iTabIndexTmp = x.TabIndex
        End If
    End If
Next

 Esiste una soluzione migliore e più efficace?
Incuriosito dal tuo problema ho provato a fare questa Sub:
Public Sub SetFrameCtrlFocus(ByRef fraFrame As Frame)
    Dim lngFrameIndex As Long
    lngFrameIndex = GetDlgCtrlID(fraFrame.hWnd) - 1
    If lngFrameIndex < fraFrame.Parent.Controls.Count Then
        fraFrame.Parent.Controls(lngFrameIndex + 1).SetFocus
    End If
End Sub
Riceve come parametro un oggetto Frame, e chiama il metodo SetFocus()
del controllo successivo. Nota che non viene effettuata nessuna verifica
sull'esistenza del metodo SetFocus(); la proprietà TabIndex non c'entra
granché  :)  (conta l'ordine di creazione)
Per funzionare correttamente bisogna inserire la dichiarazione della
funzione dell'API GetDlgCtrlID()
Ciao
--
Faber

Grazie per il consiglio.
Oggi sono fuori ufficio, ma appena rientro lo provo.
Ciao.
Skysurfer
Newsgroup: it.comp.lang.visual-basic
Titolo: Data control

Come si connette un Data control ad un databse dbf?

...


Newsgroup: it.comp.lang.visual-basic
Titolo: modificare il registry

qualcuno sa dirmi come si fa a modificare il registry di win95 con un
programma VB ?
grazie dell'aiuto

Trovi la soluzione visitando il mio sito:
http://www.geocities.com/SiliconValley/Vista/8323/
Ciao,
            Nicola
Gilberto Pertile ha scritto nel messaggio
<01bcf98f$b9418650$0100a8c0@g-pertile>...


le funzioni sono queste
GetAllSettings(appname, section)
SaveSetting(appname, section, key, setting)
DeleteSetting(appname, section[, key])
GetSetting(appname, section, key[, default])
non le ho usate, quindi ti rimando all'help
--
Enrico
enr...@spin.it


programma VB ?
	Puoi utilizzare la classe che metto a disposizione 'free' sul
mio sito ...
	Utilizza le Api relative al Regsitry.
	Bye.
Enzo Marinacci- Roma   (Italy)=20
http://www.pulsar.it/windows95
 Il Club dedicato a Win95!
http://www.bns.it/EMware
       Freeware & VisualBasic Utilities
*** Rimuovere NO-SPAM per rispondermi in E-Mail! ***
Newsgroup: it.comp.lang.visual-basic
Titolo: Vbscript x outlook

Devo copiare gli attachment dal corrente elemento (post type) in un'altro
elemento simile.
Pensavo di fare cosě:
Set Attachments1 = AssignedItem.Attachments
Set Attachments2 = Item.Attachments
for i =1 to attachments2.count
    Attachments1.Add Attachments2(i), 4
next
Ma non funziona!!!
Come si puň fare?

Guarda che fra qualche mese uscirà Internet Explorer 5.0, il quale NON
supporterà più nessun interprete VBscript. Netscape non lo supporta e
nemmeno le future versioni di Outlook.
Ciao

...



Io ho IE5 versione beta e lo supporta benissimo....
Senza VB come fai a utilizzare gli ActiveX che si stanno molto diffondendo?
Ciao


La morte di un linguaggio per nulla promettente.
Amen.
--
Roal Zanazzi
z...@iol.it

Senza VB come fai a utilizzare gli ActiveX che si stanno molto diffondendo?
Con C/C++, Delphi, ...
Certo, non sono linguaggi di scripting...
JavaScript e' CORBA, quindi non dovrebbe essere possibile usare gli ActiveX
(che sono COM).
--
Roal Zanazzi
z...@iol.it


Appunto.. a me servono gli activeX per internet.... il delphi è un brutto
linguaggio.... se devo usare qualcosa di diverso dal VB, che è il pù
semplice, preferisco passare a qualche linguaggio che abbia come base il c++
(cioè visual c o c++ builder), ma ne vale la pena imparare tutte queste cose
solo per hobby? A me basta un linguaggio semplice e immediato, m allo stesso
tempo potente.. come il VB ^_^
Inoltre mi posso fare gli ocx per le pagine...
Ciao

Inoltre mi posso fare gli ocx per le pagine...
Che si portano dietro 1.3MB di DLL di runtime... ma questo e' un altro
discorso ;-)
Comunque, io rispondevo alla tua frase: "Senza VB come fai a utilizzare gli
ActiveX che si stanno molto diffondendo?", nella quale sembrava che tu
dicessi che gli ActiveX li puoi usare SOLO con VB, dato che cio' non
corrisponde a verita', mi e' sembrato giusto fartelo notare.
--
Roal Zanazzi
z...@iol.it


Una domanda... posso usare i controlli di delphi4 con builder 3? Intendo i
controlli interni.. tipo il contenitore per le toolbar, etc.. non quelli che
si possono aggiungere... opppure esiste un modo per convertire da builder a
delphi?
Perché il delphi 4 ha tutti i controlli moderni (icone nei menu, coolbar
dockabili, etc), mentre il builder 3 no ;_;
Ciao

dockabili, etc), mentre il builder 3 no ;_;
Se hai i sorgenti della VCL (non so se sono distribuiti con tutte le
versioni di Delphi, io ho la C/S) potresti ricompilare quelli di Delphi4 nel
Builder (ogni volta che ci penso mi si apre il cuore dalla gioia).
--
Roal Zanazzi
z...@iol.it


Si credo di averli... nell'istallazione c'è anche l'opzione VCL Souce...
Sono tutti file in formato pas.... c'è qualche file help che spiega come
metterli nel builder?


il C++Builder compila ANCHE i .pas di Delphi (infatti la VCL del Builder E'
quella di Delphi ;-)
Credo che tu debba rifare i packages, includendo i file .PAS della VCL
relativi...
Di piu' non ti posso aiutare, prova a chiedere su it.comp.delphi, di sicuro
qualcuno ci ha gia' provato.
--
Roal Zanazzi
z...@iol.it


Ok, grazie.. proverň ^_^
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Nome Computer, Nome Utente..

Come si ricava il nome utente e nome computer da codice?
Ho cercato nella guida ma non ho trovato nulla (con vb6 avevo unsato le Api
ma non ricordo il metodo)
Con vb.net...invece?

 ha scritto nel messaggio
news:52Mma.14809$LB6.4...@news1.tin.it...



Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal
lpBuffer As String, nSize As Long) As Long (VB6)
System.Security.Principal.WindowsIdentity.GetCurrent.Name
 (.NET Framework)
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA"
(ByVal lpBuffer As String, nSize As Long) As Long (VB6)
System.Windows.Forms.SystemInformation.ComputerName (.NET Framework)
Ciao

GRAZIE!

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] per MSQL7 Data Transformation Services

deV<

 ha scritto nel messaggio
news:99svgg$rud$1...@fe1.cs.interbusiness.it...

Pensa che io non riesco neanche a fare il backup tramite il Maintenance
planing ...
tu sei fortunato rispetto a me !
Saluti

 ha scritto nel messaggio
news:99t3g8$4a9$1...@fe1.cs.interbusiness.it...



Passiamo a SQLS2000 ?


[...]

 wrote in message
99svgg$rud$1...@fe1.cs.interbusiness.it...

Quando esegui il DTS lanciandolo manualmente lo esegui dalla tua postazione
o lo lanci dalla macchina server sui cui è installato SQL ?
A volte le autorizzazioni degli User Account bloccano il funzionamento dei
DTS.
Se poi nel tuo DTS hai usato DNS per le connessioni ai server può essere che
anche li passando dall'esecuzione sul server a quella su un client le cose
non siano equivalenti e ti funzioni su uno e non sull'altro.
Non saprei darti altri consigli...

Newsgroup: it.comp.lang.visual-basic
Titolo: Help- licenza non disponibile, che fare?

Riga 26: impossibile caricare il controllo foglio; licenza non disponibile.
Questo è il messaggio che mi appare nel file log quando carica alcuni
controlli.
Che devo fare?
Sebastiano Floridia
Siracusa

...

Devi comprare il controllo e farti dare il numero di licenza.
Ciao Neo
http://surf.to/emanuele









Ma tu sei un regolare possessore di licenza ?
Stefano









Devi comprare il controllo e farti dare il numero di licenza.
Ciao Neo
http://surf.to/emanuele

Ma tu sei un regolare possessore di licenza ?
Stefano


Newsgroup: it.comp.lang.visual-basic
Titolo: Date su variabile d'ambiente.

Ho la necessità di creare da ms-dos un file che comprenda nel nome anche la
data del sistema.
Su windows 2000 faccio "set variabile= %date%" e funziona (variabile
contiene la data corrente) ma su NT con va (variabile contiene la stringa
%date%).
Qualcuno ha qualche idea ?
Ciao, Checco.
n.b.: non posso usare codice vb.

n.b.: non posso usare codice vb.
Peccato: questo newsgroup e' su visual basic :-(
-- 
ciao, hal

 ha scritto nel messaggio
news:a9ehnf$2enpj$1...@ID-56381.news.dfncis.de...

Grazie hal, ma in vb so farlo già, il problema è che devo installarlo sul
server il quale non si può riavviare.
Ciao, Checco

 server il quale non si può riavviare.
Hai prvato a copiare semplicemente l'eseguibile e vedere se gira
ugualmente???

 ugualmente???
Fico, grazie. Funziona tutto ok.
Ciao, Checco.
Newsgroup: it.comp.lang.visual-basic
Titolo: Structured storage e/o Compound file

Ciao a tutti, qualcuno di voi è in grado di darmi qualche dritta in merito
all'oggetto di cui sopra?
Ho cercato con tutti i motori di ricerca ma sono proche le informazioni
disponibili (solo Desaware, e_DB e qualche altro).
Meglio ancora, a me interessa memorizzare diversi documenti html e immaggini
in un unico file. Per m$ sarebbe un compound file.
Dimenticavo uso per sviluppare Vb 5-6, sarebbe utile una dll o meglio ancora
un ocx.
Ancora Grazie




Ringrazio tutti per la risposta.
Comunque in merito ai file .chm non li ritengo così eccezionali se non altro
per la lentezza cronica con cui m$ aggiorna il motore e soprattutto per il
fatto che m$ non dice mai cosa c'è di nuovo e devo sempre scoprirlo da
qualche suo file di help.

 wrote in message 7u402v$qbr$1...@nslave1.tin.it...


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

Se qualcuno sa come creare un database di dati e collegarlo ad un grafico
(di Excel) in un'appl. VBA please mi scriva !!
Igor (
igor...@libero.it
)

 (di Excel) in un'appl. VBA please mi scriva !!
E di cosa vuoi che parliamo?
Mi sembra estremamente complesso ed articolato il discorso che proponi in
due righe (grazie per la brevita', ma talvolta...)
Tu chiedi:
1. Come creare un database (di dati!): non precisi se con Access, per
esempio, o che altro. Ma anche se lo precisassi: quali dati? in che ambito
stiamo ragionando: gestionale, statistico, che altro?;
2. Come collegare (il database!) ad un grafico di Excel: semmai e' il
grafico che si collega (ai dati!) per rappresentarli. Penso che il modo piu'
comune e pratico sia quello di far leggere i dati necessari al grafico ad un
foglio di lavoro di excel ed ottenere da quest'ultimo il grafico;
3. In un'applicazione VBA: e qui non hai problemi, giusto?
--
Ciao.
Maurizio

 wrote in message
8b5c1d$540$4...@nslave1.tin.it...


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

Ciao Questo è il mio problema:
Seleziono del Testo da una casella di edit con sendmessage ma ci sono dei
caratteri come *, / , \ , " che non mi interessano come faccio ad escluderli
dalla selezione , oppure esiste un metodo che dopo la selezione me li
escluda??
Grazie per la collaborazione

Un metodo che te li escluda mi sa proprio che non esiste,
Non puoi farlo tu da codice assegnando quello che hai selezionato ad una
stringa,
poi la manipoli come vuoi con tutte le funz. che vb ti mette a disposizione
sulle stringhe.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: File bloccato su macchina...

Ho sviluppato degli applicativi in Vb5 che vorrei far girare in rete, in
multiutenza.
Purtroppo quando due utenti tentano di scrivere anche record diversi il
secondo utente trova tutto il file bloccato, generando un errore di runtime
che termina l'applicazione.
Quali accorgimenti occorrono per consentire la multiutenza ?
Gli archivi di Access 2.0 supportano questa modalità ?
Grazie

Gli archivi di Access 2.0 supportano questa modalità ?
Dipende da quanto e' multi questa multiutenza, comunque
basta aprire il database in modalita' condivisa.
E quando vai sul record puoi verificare se e' bloccato leggendone
la proprieta' Locked (mi pare, comunque verifica sull' help perche'
non ho nessuna versione di msaccess sottomano.
hth, hal

Gli archivi di Access 2.0 supportano questa modalità ?
Dipende da quanto e' multi questa multiutenza, comunque

Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con GetCursorPos

Chiamando la funzione API GetCursorPos mi viene restituito il solo
valore x del mio puntatore mouse. Come mai? Questo e' il mio modulo
Type POINTAPI
    x As Integer ' coordinata x rispetto allo schermo
    y As Integer ' coordinata y rispetto allo schermo
End Type
Dim lpPoint As POINTAPI
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As
POINTAPI
all'interno del form ho creato un evento timer che richiama la
funzione con un semplice:
Private Sub Timer1_Timer()
Dim p As POINTAPI
Call GetCursorPos(p)
Print p.x
Print p.y
End Sub
Come mai il valore di p.y e' sempre zero?
Vi prego aiutatemi sono ore che impazzisco.

...


devi mettere:
Type POINTAPI
    x As Long ' coordinata x rispetto allo schermo
    y As Long ' coordinata y rispetto allo schermo
End Type
io ho cambiato Integer con Long e funziona...

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

Come convertire i Twips in Centimetri.
Quale č il rapporto ?
Grazie,
-- 
Riccardo Guirrini
Web :          
http://space.tin.it/computer/rguirrin
E-Mail:         
del...@tin.it

Un cm dovrebbe corrispondere a 524 twip, però non sono sicuro; comunque lo
trovi sull'help di VB (fai la ricerca su ScaleHeight )

Quale è il rapporto ?
Devi usare i metodi ScaleX e ScaleY (cerca nell'help di VB)
Es.: Me.ScaleX(10, vbTwips, vbCentimeters)

Quale è il rapporto ?


Newsgroup: it.comp.lang.visual-basic
Titolo: Come accedere a dischi remoti con password?

Ciao a tutti,
ho realizzato un programma che sincronizza due cartelle su due computer
collegati in rete utilizzando l'api copyfile, ultimamente hanno messo la
password su un computer per evitare che altri accedano al disco ma cosi
facendo non funziona piu' il mio programma se prima non aprono una cartella
dal primo computer al secondo.
Come posso accedere con la password direttamente dal mio programma?
Grazie a tutti
Marco Rossi

 wrote in message
news:8vt9l6$h2d$1...@lacerta.tiscalinet.it...

Potresti mapparti temporaneamente la risorsa come disco di rete con l' api
WNetAddConnection, eseguire la copia, quindi rimuovere la mappatura con
WNetCancelConnection.
Private Declare Function WNetAddConnection Lib "mpr.dll" Alias
"WNetAddConnectionA" (ByVal lpszNetPath As String, ByVal lpszPassword As
String, ByVal lpszLocalName As String) As Long
Private Declare Function WNetCancelConnection Lib "mpr.dll" Alias
"WNetCancelConnectionA" (ByVal lpszName As String, ByVal bForce As Long) As
Long
Ciao
Aldo

 ha scritto nel messaggio
news:8vuq49$5pvqf$1...@ID-56381.news.dfncis.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB.Net] formattare il testo in una list box

Ho un form con una text box multiline nel quale l'utente inserisce del
testo.
Utilizzo una list box per visualizzare una anteprima del testo inserito.
Il problema e' che se nel testo sono presenti degli "a capo" al loro posto
appaiono degli altri caratteri. Come faccio a formattare il testo presente
nel db prima di visualizzarlo nella list box in modo che mi vada a capo
correttamente? Ho il sospetto che con la list box non si possa andare a capo
sulla stessa riga... spero di sbagliarmi.
Saluti
Riccardo

Impostando come segue:
 Dim str As String = "AAAAA" & Chr(10) & "BBBB"
        it = ListView1.Items.Add(str)
ottengo:
AAAAA|BBBB
con:
 str = str.Replace(Chr(10), " ")
ottengo:
AAAAA BBBB
----
Non mi pare esista per la ListView una proprietą che permette di andare a
capo per la riga o Items.
giuseppeD

grazie, e' proprio quello di cui avevo bisogno.

Newsgroup: it.comp.lang.visual-basic
Titolo: aggiornamento label da 2 thread diversi

Ciao a tutti,
come da oggetto, avrei bisogno di aggiornare una label da 2 thread diversi.
Un metodo è quello di usare una funzione delegata .
Esistono altri modi?
Potrei ad esempio dichiarare all'interno della mia classe x, una variabile 
shared di tipo x che viene inizializzata all'interno del costruttore?
Grazie

Aggiornamento
ho creato una windows form contenente un pulsante e una label(label2)
Mi aspetterei che non vi fosse la visualizzazione della data visto che 
label1 � su un thread diverso.....dove sta l'errore?
Public Class Form1
Friend label1 As String = ""
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button1.Click
Dim a As New Threading.Thread(AddressOf aggiorna_label)
a.Start()
While True
Application.DoEvents()
Me.Label2.Text = label1
End While
End Sub
Public Sub aggiorna_label()
While True
label1 = Now.ToString
End While
End Sub
End Class

Newsgroup: it.comp.lang.visual-basic
Titolo: come si impostano i margini di un data report

Si può cambiare i margini di stampa della pagina di un data report? Se si,
come? vi prego è urgente grazie
--------------------------------
Inviato via 
http://usenet.libero.it

Proprietą
bottonmargin - leftmargin - topmargin - rightmargin
Ciao
Andrea

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

Come posso creare un file che contenga altri files?
In definitiva, se io ho tre bmp voglio un file .xyz che
con la dovuta istruzione torni ad essere tre bmp durante
l'esecuzione del programma.

mi sembra ci sia qualcosa sul sito comune....
--
jdm
Newsgroup: it.comp.lang.visual-basic
Titolo: Invio allegato con MAPI

Salve a tutti, qualcuno sa dirmi al volo perché mi va in errore ? Mi
restituisce "errore non specificato". Eppure mi pare di aver messo
tutto l'occorrente...
Private Sub mnuInviaMail_Click()
    frmMain.MAPISession1.SignOn
    frmMain.MAPISession1.LogonUI = False
    frmMain.MAPISession1.NewSession = True
    frmMain.MAPIMsg.SessionID = frmMain.MAPISession1.SessionID
    frmMain.MAPIMsg.Compose
    frmMain.MAPIMsg.MsgIndex = -1
    frmMain.MAPIMsg.AttachmentPathName = App.Path +
"\archivio\prova4.pdf"
    frmMain.MAPIMsg.Send True
End Sub
Metto .Send true perché voglio che appaia il messaggio di outlook per
farlo completare all'utente con l'indirizzo del destinatario, ecc
(insomma vorrei in automatico solo l'allegato).
Grazie
Stefano

Senza Allegato Funziona?
Tempo fa ebbi un problema simile.
Risolto: l'errore stava nella mancanza di indicazione
della posizione dell'allegato (index e position).
Ecco il codice che uso:
If numrec < 15 Then
MAPImsg.AttachmentIndex = numall
MAPImsg.AttachmentPathName = fileallegato
MAPImsg.AttachmentName = fileallegato
MAPImsg.AttachmentPosition = numall
numall = numall + 1
End If
dove:
numall parte da 0
fileallegato è il file completo di path
numrec è il nr massimo di file allegati
spero possa essere utile

Si senza allegato funziona perfettamente. Ho provato ad incollare il
tuo codice modificandolo però con valori fissi perché a me serve
inviare solo un allegato unico alla volta:
frmMain.MAPISession1.SignOn
    frmMain.MAPISession1.LogonUI = False
    frmMain.MAPISession1.NewSession = True
    frmMain.MAPIMsg.SessionID = frmMain.MAPISession1.SessionID
    frmMain.MAPIMsg.Compose
    frmMain.MAPIMsg.MsgIndex = -1
    frmMain.MAPIMsg.AttachmentIndex = 0
    frmMain.MAPIMsg.AttachmentPathName = App.Path +
"\archivio\prova4.pdf"
    frmMain.MAPIMsg.AttachmentName = "prova4.pdf"
    frmMain.MAPIMsg.AttachmentPosition = 0
    frmMain.MAPIMsg.Send True
Mi restituisce sempre quell'errore 30002 - si è verificato un errore
non specificato !
Stefano

Ho riprovato subito dopo variando i valori in index e position
dell'allegato ma stavolta mi restituisce un altro errore ("non riesce a
trovare l'allegato !!!"):
frmMain.MAPISession1.SignOn
    frmMain.MAPISession1.LogonUI = False
    frmMain.MAPISession1.NewSession = True
    frmMain.MAPIMsg.SessionID = frmMain.MAPISession1.SessionID
    frmMain.MAPIMsg.Compose
    frmMain.MAPIMsg.MsgIndex = -1
    frmMain.MAPIMsg.AttachmentIndex = 1
    frmMain.MAPIMsg.AttachmentPathName = App.Path +
"\archivio\prova4.pdf"
    frmMain.MAPIMsg.AttachmentName = "prova4.pdf"
    frmMain.MAPIMsg.AttachmentPosition = 0
    frmMain.MAPIMsg.Send True
Sono tentato di usare la libreria di Outlook (ho già il codice che fa
la stessa cosa e con meno righe...)
Stefano
Newsgroup: it.comp.lang.visual-basic
Titolo: -- Aiuto Codici --

Salve a tutti,
so che esistono dei siti in cui possiamo trovare i codici per programmi, c'è
qualcuno che può inviarmi in posta elettronica (non nel News) uno di questi
indirizzi.
Grazie.

 indirizzi.
Te li portiamo a Empoli ?
--
---------------------------------------------
    Le risposte alle tue domande le trovi sul
    Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------
Real E-address: 
gaet...@hotmail.com

 Te li portiamo a Empoli ?
Magari anche il caffè... Quanto zucchero?
--
f.ronco@*NonMiServeNiente*
flashnet.it
http://www.metabrains.com
  [Under Construction]
-------------------------------------------------------------
"Che pubblico in gamba! Se ci dite dove lavorate,
domani mattina se abbiamo tempo vi veniamo a vedere"
[Paolo Rossi]




Newsgroup: it.comp.lang.visual-basic
Titolo: perchè ado è piu' lento di DAO

devo portare la mia applicazione da DAO in ADO perchè tutti dicono che ADO è
il futuro!!
Ho creato un recordset ADO (select * from tabella (tabella mdb con 200.000
record)) in codice ADO e ho VISTO CHE é LENTISSIMO!!!!!!!!!!!!!
Possibile?????!!!!
Vale la pena migrare da DAO in ADO?????
Non riesco a capire,,,   qualcuno mi può spiegare qualcosa....
GRAZIE!!!!!!!!!!!!

ADO e' piu' lento di DAO sul caricamento di grandi insiemi di
record, e non c'e' nulla da fare, e' un problema strutturale. 
ADO e' piu lento di DAO anche in tutte le op. che coinvolgono
il DDL (creazione di tabelle, foreign key e accesso al dizionario
in genere). Un articolo su MSDN riporta che in queste ultime
operazioni ADO e' piu' lento di DAO anche 6-8 volte.
Questo non viene percepito come un problema da Microsoft, credo
che le idee di base siano queste:
* le applicazioni client devono accedere ad un numero limitato di
dati alla volta, di norma si tratta di query molto selettive, e
qui ADO va meglio (ma solo se usato con provider nativi);
* le elaborazioni di quantita' massicce di dati devono essere
eseguite sul server mediante delle stored procedure, la velocita'
qui e' superiore, non c'e' DAO che tenga.
Se devi gestire grosse moli di dati forse ti conviene passare a
MSDE, che ha il supporto per le stored procedures per elaborazioni
massicce con bouni tempi di calcolo (i dati non devono essere
trasferiti avanti e indietro) e provider OLE-DB nativi, oltre ad un 
supporto migliore per la multiutenza.
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: istruzione particolare

esiste in vb la funzione "NON FARE NULLA"
Vi spiego, devo intercettare la pressione di un bottone del mouse per non
fare visualizzare il menů contestuale.
Cioč:
Private Sub oggetto_onMouseDown()
        funzioneNonFareNulla
End Sub
Al posto di funzioneNonFareNulla ho messo un msgbox (e tutto funziona
correttamente, cioč non mostra il menů contestuale, ma io non voglio far
visualizzare proprio nulla, č possibile?)
Grazie



Sě, disattivando il menů contestuale: un esempio lo trovi sul Sito COmune o sul mio sito.
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
---------------------------------------------------------------------------

se metti exit sub?

Newsgroup: it.comp.lang.visual-basic
Titolo: Programma che faccia eseguire altri file exe !

Avrei un piccolo problema da risolvere:
ho bisogno di un programma che una volta attivato apra alcuni exe, la
connessione a internet e fatto ciň si chiuda.
Qualcuno saprebbe dirmi come? Almeno come fare ad aprire altri exe.
Grazie 1000!!!
--
Ciao,
       Spinus.
Icq#: 29149421

 ha scritto nel messaggio
news:98175287...@frodo.bmm.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Avvio del browser di default

Ciao a tutti,
avrei bisogno di attivare il browser installato sulla macchina (che sia
Explorer o Netscape)
da una procedura che sto scrivendo.....tipo come avviene dall'opzione
"Microsoft on the Web" ......se poi sapete pure come passargli il
parametro per puntare
ad una specifica directory di uno specifico sito
(es. 
http://www.stephensoftware.it/stephen2/index.htm
) siete proprio
bravi. Grazie
Ciao a presto
Stefano
--
Contact     : Stefano Piersigilli
Company     : StephenSoftware(R)
Address     : Via Ettore Paladini, 45-47-49
Zip         : 00149
City        : ROME
State       : ITALY
Tel.        : +39-6-5571648
Fax         : +39-6-5560638
Internet    : 
http://www.stephensoftware.it
Compuserve  : 106165,2472
Fingerprint : 08 C6 63 BC 79 93 C1 98  46 20 45 11 30 77 5F C9

Ecco qua:
Dichiarazione:
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA"
(ByVal hwnd As Long, ByVal lpOperation As Long, ByVal lpFile As String,
ByVal lpParameters As String, ByVal lpDirectory As Long, ByVal nShowCmd
As Long) As Long
Chiamata:
aa& = ShellExecute(hwnd, 0,
"
http://www.stephensoftware.it/stephen2/index.htm
", "", 0, 5)
Ciao
--------------Messaggio originale----------------------


Bella secco !!!
Grazie ho gia' provato, e' perfetto!!!
Stefano Piersigilli
Ciao
Roberto Negro ha scritto:

--

Newsgroup: it.comp.lang.visual-basic
Titolo: Informazioni per un aspirante

Ciao a tutti e scusate la scarsa competenza.
Mi piacerebbe iscrivermi ad un corso professionale di Visual Basic di Scuola
radio elettra.
Il corso è tra i pochi legalmente riconosciuti e costa circa 2000 euro.
Avrei comunque la possibilità di studiare in treno (sono un pendolare) ed
esercitarmi un pò a casa. Me lo consigliate? Quali sono gli sbocchi
professionali con un corso del genere? (attualmente sono progettista CAD).
E' una figura ricercata dalle aziende e di che tipo? (es. aziende di
servizi).
Conviene esercitare in proprio con partita IVA?
Ringrazio molto chi mi volesse consigliare. Saluti

 Conviene esercitare in proprio con partita IVA?
Se hai un'attività fissa è indispensabile, se invece fai delle cose
una-tantum al di fuori dell'orario di lavoro non ne hai bisogno

 Il corso è tra i pochi legalmente riconosciuti e costa circa 2000 euro.
Sti ca...!
Opinione personale: questi corsi, di qualunque società, sono delle truffe.
Alla fine, ammesso che ti insegnino qualcosa, non possono rilasciarti 
nessun certificato riconosciuto e tu potevi sicuramente investire meglio 
i tuoi soldi.
Tempo fa feci un corso europeo di specializzazione (ENAIP).
La preparazione finale si avvicinava a quella ottenuta leggendosi "VB 
for dummies" se non ti sbattevi comunque in modo autonomo ad 
approfondire gli argomenti, ma era gratuito (in quanto finanziato dalla 
CE) e l'attestato riconosciuto, anche se di poco valore.
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Oggetti ed interfacce

Salve,
Mi trovo in un grande imbarazzo.
Dovrei sapere come fare a riconoscere se una
certa interfaccia è implementata da un certo oggetto.
Nota bene: non sto chiedendo se un certo oggetto
implementa  una certa interfaccia( QueryInterface )
bensì chi è il "contenitore reale" dell'interfaccia che sto
passando come parametro.
Qualche idea?
Ciao
Andrea

passando come parametro.
Non so funzioni sempre, pero' questo esempietto
con Typename risponde alla tua esigenza:
<codice>
Public Sub Main()
    Dim c As Class1
    Dim i As IClass
 
    Set c = New Class1
    Set i = c
 
    MsgBox TypeName(i)
'  mi dice "Class1"
End Sub
</codice>
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Porta Com Aperta.

Un vecchio programma dos purtroppo al momento indispensabile
mi lascia 'bloccata' la porta com1 dove č collegato un modem us
robotics.. Vorrei scrivere una procedura in vb da lanciare prima
di utilizzare quel maledetto programma che mi "sblocchi la porta"..
Per intenderci se entro in pannello di controllo e richiedo la diagnostica
del modem installato windows mi ritorna "porta gia aperta"..
Se usando MScomm accedo alla porta con MSCOM1.portopen = false
mi ritorna l'errore .. di porta non aperta..
Chi mi puů aiutare.. finora l'unico modo di risolvere il problema č quello
di riavviare il PC.. dopo aver fatto uscire tutti coloro che itilizzando il
gestionale che si trova sulla mia postazione.. :-(
Grazie a tutti.

 mi ritorna l'errore .. di porta non aperta..
Beh, potresti provare a fare
if MSComm1.portopen then
    MSComm1.portopen = false
end if


 ha scritto nel messaggio
news:4Qrd5.5229$sE5....@news.infostrada.it...


 wrote in message 8l7esh$iln$1...@pluto.sm.dsi.unimi.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: informazioni

Ehila, c'è qualcuno che conosce la toscodati ?
Se si, fammi sapere come è tale società e cosa fa con visual basic.

Se si, fammi sapere come è tale società e cosa fa con visual basic.
Scrivimi in mail privata e qualcosina posso dirti
--------------------------------------------------
giov...@aspide.it
 
http://www.aspide.it/freeweb/africa

Newsgroup: it.comp.lang.visual-basic
Titolo: vb6 e common controls

dunque, sto usando vb6sp5, office2000 (non ricordo l'sp) e w2000sp4.
quando creo un exe che usa i normali common controls, quelli con statusbar,
toolbar, imagelist, al primo lancio (anche se e' un nuovo utente sulla
stessa macchina) spesso win fa partire il setup di office.
l'ultima volta e' stato problematico. su un pc non dei miei, che aveva
office premium, abbiamo dovuto togliere quello, pulire il registro, e
mettere il nostro pro, seno' il mio prog non andava, e ci dovevano lavorare
pesantemente.
sulle mie macchine installiamo office dal server, quindi normalmente windows
sa dove trovarlo. pero' se ne metto uno sulla rete, che succede ?
si riesce a risolvere in qualche modo sensato ?
grazie, j.

 office.
e cosa succede se gli dici di annullare l'installazione?
a me succedeva (e credo succedera' :-( ) quando su una macchina xp viene
eseguito per la prima volta (prima per quell'utente), un prog che usa jet e
ado (e forse anche i common control). siccome hanno un office taroccato e
non hanno i cd, abbiamo sempre "rifiutato" l'installazione, dopo un po'
smette di chiederla :-)
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 smette di chiederla :-)
provero'...
grazie, a.

 office.
J, non so rispondere al tuo problema, ma non mi pare che i controlli che hai
elencato siano "normali", nel senso che vengono gestiti dal solo runtime di
VB o, comunque, devono essere esplicitamente aggiunti ai componenti
standard. Non è che sia questo?

[*Lupo* = 
LupoOrmaiR...@libero.it
 in
news:bo7sii$1a0jqi$
1...@ID-174464.news.uni-berlin.de
] ha scritto:
C'entra poco, ma vedi anche qui:
http://support.microsoft.com/default.aspx?scid=kb;en-us;249843

 standard. Non è che sia questo?
sto guardando anche il link dell'altro tuo post.
di norma non includo _mai_ riferimenti a office.
parto dal presupposto che un mio exe debba girare su un pc con solo windows.
pero' uno che ha fatto quel casino e' il browserino, che usa il motore di
ie. gli altri sono un file renamer e un db dao/ado. ricontrollero' tutti i
riferimenti.
grazie, j.
Newsgroup: it.comp.lang.visual-basic
Titolo: scrivere un file con winsock

Sono ancora alle prese con winsock....
per leggere un file e spedirlo via lan con winsock ho utilizzato questa 
procedura......
open file For Binary As #1   ' Apre il file appena creato.
Do While MyLocation < LOF(1)   ' Ripete fino alla fine del file.
MyLine = MyLine & Input(1, #1)   ' Assegna la riga ad una variabile.
MyLocation = Loc(1)   ' Legge la posizione corrente nel file.
Loop
Close #1
Winsock1(1).SendData MyLine
per scrivere invece il file sul disco (dal lato del winsock che riceve 
questo file) come devo fare? Preciso che il file NON č un file di testo.
Grazie a tutti 

Tutto risolto...... (teoria a parte).... semplicemente impostando la 
posizione all'ultimo byte, poi questo veniva sovracritto con il put 
successivo. Ho risolto mandando
seek # ,, (lof(1)+1)
Poi ho fatto qualche prova con la rete locale
Nel caricare file compressi (jpg, mpg zip) è lento, mentre con exe e file 
non compressi direi che decentemente veloce.... oggi con un poì + di tempo 
provo in rete.
Se a qualcuno interessa, sto realizzando un programmino di aggiornamento 
automatico degli applicativi.
Grazie a tutti

 MyLocation = Loc(1)   ' Legge la posizione corrente nel file.
Scusa, ma perche' fai queste cose complicate con "LOF", "Loc(1)"?....:-)))
Per leggere in una variabile tutto un file binario, in un colpo solo 
(quindi molto piu' velocemente, visto che lo si fa senza alcun loop!):
     Dim Buf As String
     Open "c:\RouterConfig.zip" For Binary As #1   ' Apre il file.
     Buf = StrConv(InputB(LOF(1), 1), vbUnicode)
     Close #1   ' Chiude il file.
Per scrivere il contenuto di una stringa (sempre "Buf") in un file:
     Open "c:\RouterConfig1.zip" For Binary As #1
     Put #1, , Buf
     Close #1
-- 
Ciao!
    -DocDoc-
--- Per scrivermi: docdoc()
sertel.net
Sei anche tu stanco dei messaggi spam? Usa Terminator, il programma
anti-spam italiano FREEWARE!     
http://www.spamterminator.it/

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB.NET] backcolor gradient in panel

Vorrei colorare in maniera GRADIENTE lo sfondo di un panel.
Ho cercato in giro qualche esempietto ma ne ho trovati solo di complessi...
chi mi aiuta ?
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 chi mi aiuta ?
Esempio: nella OnPaint del pannello ci metti
Dim c As Control = sender
Dim b As New LinearGradientBrush(c.ClientRectangle, Color.Yellow, 
Color.Blue, LinearGradientMode.ForwardDiagonal)
e.Graphics.FillRectangle(b, c.ClientRectangle)
b.Dispose()
Ciao

 Dim c As Control = sender
Ovviamente questo è un
Dim c As Control = DirectCast(sender, Control)
;)
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: errore 35602

Ho 2 cd di installazione di un programma di fatturazione scritto in VB6,
stessa versione.
Se installo da uno dei 2  cd , il programma poi si apre regolarmente quando
ci clicco sull'icona sul desktop.
Se reinstallo usando il secondo cd , quando poi tento di aprire il prg
ottengo l'errore "errore nel caricam.dati, la chiave non è univoca
nell'insieme , err. 35602", e il prg non si apre.
Allora reinstallo dal  primo cd, e il programma di nuovo si apre
correttamente.
Lo strano è che i 2 cd sono identici, infatti nelle operazioni di
reinstallazione che ho appena descritto
i files non vengono aggiornati nè sovrascritti , perchè appunto già presenti
e aggiornati.
Eppure cambiando cd qualcosa succede , sennò come spiegare il msg che
ottengo???
saluti!!

ottengo???
La domanda nasce spontanea: perche' non ti sei rivolto agli autori?
-- 
ciao, hal

non mi hanno spiegato nulla, mi han detto solo di prendere un altro cd e
reinstallare .
Il bello che non ho reinstallato apparentemente nulla.
cmq grazie.

Alla faccia dell'incompetenza ...
-- 
Saluti
Andrea Moro

Alla faccia dell'incompetenza ...
...degli autori ;-)
-- 
ciao, hal
con questo caldo, vorrei mai che enzo fraintendesse...



Ipotizzo... chiave nel registro?

 Ipotizzo... chiave nel registro?
Se si risolve con l'altro CD probabilmente uno dei due è stato masterizzato
con un programma "sbagliato" (prova a farci sopra un C:>FC /b dei due exe).
E non "hanno saputo dirti niente" per non confermare che hanno toppato nella
masterizzazione.
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 masterizzazione.
Lo strano è il msg di VB comunque, non capisco cosa centri la chiave di un
indice quando clicchi
per lanciare l'apertura di un programma sul desktop.
ciao e grazie

 per lanciare l'apertura di un programma sul desktop.
E' lo stesso msg che danno ad es. Collection, TreeView o ListView quando
tenti di inserire 2 elementi con la stessa chiave.


Newsgroup: it.comp.lang.visual-basic
Titolo: kodak image

Ciao.
Visto che i controlli kodak imaging NON sono presenti in winXP, conoscete
una buona alternativa a imgedit.ocx e imgscan.ocx?
buona=economica e funzionale
grazie.

 conoscete una buona alternativa a imgedit.ocx e imgscan.ocx?
Cerca nei post precedenti su google... mi pare se ne era parlato in più
occasioni ;)

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

Come si fa ad individuare il numero IP di un computer (naturalmente per
mezzo di Visual Basic!)?
Grazie

Tramite il controllo Winsock:
Winsock1.LocalIP
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

...

--------
E senza il controllo Winsock (leggi: utilizzando le API)?
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260/
http://www.armaditaggia.com/marco

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiutatemi o mi suicido! Rec Wave 44 KHz

Passano i mesi ma io non ho trovato qualcuno o qualcosa per poter registrare
un file wave da VB in formato stereo 16 bit 44.1 Khz!
Aiutatemi!
angelo...@libero.it
aga...@tiscalinet.it

...

Newsgroup: it.comp.lang.visual-basic
Titolo: Smart Card

Qualcuno mi saprebbe indicare un sito dove potrei trovare info su come
utilizzare un lettore di Smart Card in VB?
Grazie!
--
     _______   __
    /_ /_|__|||  |
   /  /  |__|||__|

 wrote in message
9u50so$ugq$1...@lisa.galactica.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Libri su ADO

Salve,
vorrei acquistare un libro su ADO. Ho trovato questo :
"Universal Data Access con Visual Basic e ADO" di Rob Macdonald
ed.Mondadori Informatica.
Che ne dite?
Potete consigliarmi qualcosa di meglio?
Grazie
Donatella :)

Io ho preso "Programmare ADO" di David Sceppa ed. Mondadori (Microsoft
press)
Ti garantisco che rende... :)
                    Ciao
                                            Allanon

... in effetti leggendo i vecchi post su google, sembra essere il piu'
usato.
Grazie
Ciao
Donatella :)


 ha scritto nel messaggio
news:3C6CFF4D...@cmns.mnegri.it...


 ha scritto nel messaggio
news:3C6CFF4D...@cmns.mnegri.it...

Visual Basic 6 - Guida per lo sviluppatore di database. Autore: Roger
Jennings
E' un bel mattoncino ma c'e' tutto, non solo ADO. Spenderai un po' di piu',
ma avrai un libro che ti apre piu' orizzonti.
Ciao
Michele

Newsgroup: it.comp.lang.visual-basic
Titolo: URGENTE Anteprima di Stampa e Stampa con VB4

URGENTE Anteprima di Stampa e Stampa con VB4
Ringrazio innanzitutto Ivano Modenin per avermi chiarito degli aspetti su
Crystal Report.
Ho la necessità di realizzare un'anteprima di stampa (e quindi una stampa)
con immagini e testo.
Non riesco a visualizzare "correttamente" la mia anteprima di stampa,
vorrei riuscire a recuperare le informazioni inviate alla stampante e
visualizzarle a video; ho provato con degli artifizi (cioè scrivendo le
stesse cose che invio alla stampa in una Picture ma non riesco a far
corrispondere la dimensione del testo, scritto dalla stampante, con quella
della picture che utilizzo per la visualizzazione dell'anteprima).
Chi già ha realizzato anteprime di stampa elo pregherei di mettersi in
contatto per dei chiarimenti.
Ringraziandolo fin da ora.
art...@edisons.it

Newsgroup: it.comp.lang.visual-basic
Titolo: R: Sapere il nome dell' hd del server in rete

faresti una cortesia.
NetShareEnum
http://msdn.microsoft.com/library/psdk/network/ntlmapi2_4l2l.htm
WNetEnumResource
http://msdn.microsoft.com/library/psdk/network/networks_03ad.htm
NetShareEnum Sample (Windows 95/98)
http://msdn.microsoft.com/library/psdk/network/ntlmapi_2g67.htm
UncName
http://www.mvps.org/vb/code/UncName.zip
ciao, hal

Ciao,
ti ringrazio, ma vorrei sapere come fare praticamente in quanto non conosco
l'uso delle API, quindi se potresti farmi un semplice esempio pratico mi
faresti una cortesia.
Grazie in anticipo.
--
Ciao
Roberto
Email:
robert...@tiscalinet.it

Ciao Hal,
Grazie 1000.

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] ComctlLib.ListView e ForeColor

Nella ListView del MSComCtlLib si può cambiare il forecolor di un item 
specifico usando il ListSubItem.ForeColor.
Nella ListView del ComCtlLib questo non è possibile.
Con SendMessageLong(ListView1.hWnd, LVM_SETTEXTCOLOR, 0, vbRed) si modifica 
il forecolor dell'intero item.
Ho provato a modificare il colore di un solo item ma non ci sono riuscito, 
come dovrei fare?
Grazie Carmelo 


Penso proprio che tu debba ricorrere al subclassing (= intercettare e 
gestire il window message loop per il listview).
Qui c'è un esempio:
http://btmtz.mvps.org/listview/lvcustomdraw.zip
Brevemente descritto qui:
http://btmtz.mvps.org/listview/
Bye
Raf

Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 - listini in griglie Excel o su tabelle nel Db?

Salve, ho la necessit� di gestire parecchi listini (griglie con prezzi) sui 
quali poi andare a ricercare un prezzo giusto.
Il tutto x la creazione di preventivi.
Volevo sapere, visto che il db � Access ed il linguaggio vb6, se secondo voi 
� megli registrare tutti i vari listini all'interno di tabelle in access, 
quindi con tutti  i prezzi a seconda delle colonne e delle righe, oppure 
gestirli tramite i grigliati di excel sapendo che poi vi dovr� lavorare 
sopra cercando i prezzi giusti?
Spero di essere stato abbastanza chiaro, in caso faccio un esempio..
Grazie cmq,
SC

 ha scritto nel messaggio 
news:4b965e65$0$1114$4faf...@reader2.news.tin.it...

io avendo la possibilit� di scelta andrei su un db... cosi' per estrarre un 
prezzo ti � sufficiente una query, diversamente su excel ti devi guardare 
tutte le righe...
ciao,
A. 

 tutte le righe...
Ni, le oledb si aggancia anche a tabelle excel:
  mySQL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & myPathXLS & _
          ";Extended Properties=""Excel 8.0; HDR=Yes;"""
  Set CnXLS = New ADODB.Connection
  CnXLS.ConnectionString = mySQL
  CnXLS.Mode = adModeRead
  CnXLS.Open
 
  Set RsXLS = New ADODB.Recordset
  Set RsXLS.ActiveConnection = CnXLS
  RsXLS.CursorLocation = adUseClient
  mySQL = "SELECT * FROM [Sheet 1$];"
  RsXLS.Open mySQL, CnXLS, adOpenStatic, adLockReadOnly
  Set RsXLS.ActiveConnection = Nothing  'rec.set disconnesso
Per filtrare da ADO (se non si vogliono usare query precise)
  RsXLS.Filter = "CAMPO LIKE 'abc'"
Io l'ho usato per dei "listini" esterni che mi vengono forniti in quel
formato fisso, cos� il cliente sostituisce il file, senza dover importare
nel programma le tabelle.