mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda sull'uso di InnoSetup

Salve a tutto il NG
Utilizzo con "soddisfazione" InnoSetup" ma avrei una domanda da farvi sul
suo utilizzo.
Com'è possibile creare delle voci nel menu di windows con le quali accedere
a pagine Internet o a file di help .chm ?
Sarebbe di estrema utilità fornute un link diretto e ben visibile verso le
pagine di assistenza.
Grazie mille.

 ha scritto nel messaggio
news:fgz48.10569$761.3...@twister1.libero.it...

metti queste righe nel file .iss
[INI]
Filename: {app}\myapp.url; Section: InternetShortcut; Key: URL; String:
http://www.mysite.com
[Icons]
Name: {group}\Manuale; Filename: {app}\manual.chm
Name: {group}\Sito internet; Filename: {app}\myapp.url
ciao. buc

 Name: {group}\Sito internet; Filename: {app}\myapp.url
Ti ringrazio, funziona tutto cotrrettamente.
Rimane un'unico cruccio.
Quando disinstallo l'applicazione rimangono nella cartella i Collegamenti
Internet e quindi la directory non viene eliminata come solito.
Non ho trovato dei flag per questo caso specifico.
Puoi aiutarmi.
Garzie


puoi creare il file .url nella cartella di windows o nella
cartella di sistema, sostituendo il suffisso {app} in {win} o {sys}.
In questo modo la procedura di disinstallazione rimuovera' tutta
la cartella dell'applicativo, ma rimarra' dov'e' il file .url
ciao. buc

Newsgroup: it.comp.lang.visual-basic
Titolo: Screen Saver qualcuno mi aiuti! ;)

Qualcuno mi puo' spedire un file sorgente per la realizzazione di uno
screensaver facile da capire?
----------------------------------------------------------
http://surf.to/ttf/
Cerchi un font? da noi lo trovi :)
----------------------------------------------------------

www.murialdo.it/it_lang_vb
E' il Sito Comune di questo NG.
Invito TUTTI quelli che non lo avessero ancora fatto, a visitarlo: si trovano un sacco di sorgenti, OCX, FAQ, articoli,
programmi completi, il manifesto di questo NG (con i consigli per il corretto uso di questo newsgroup) numeri per il
superenalotto, ...... Insomma tante cosucce utili che farebbero risparmiare tempo e domande.... (non è un rimprovero a
te in particolare, non ti preoccupare, ho solo colto l'occasione per ricordarlo...)
P.S.
Trovi anche un'articolo corredato da un esempio su quello che ti serve... ^___^
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

superenalotto, ...... Insomma tante cosucce utili che farebbero risparmiare
tempo e domande.... (non è un
[...]
Numeri per il SuperEnalott??? Dove??? ;-)))

...

Newsgroup: it.comp.lang.visual-basic
Titolo: Possibile disabilitare bottone Minimize form a RunTime con API???

Scusate se questa domanda è una sottile variante ad una precedente da me
inviata.
Ma è rivolta forse ad un'altra categoria di programmatori (ammesso che
esistano 'categorie'...)
E' possibile disabilitare il bottone Minimize in una MDIChild form a
RunTime?
Magari con qualche API??
Dato che sto lavorando con VBA e la Form MDIChild in questione è un foglio
di Excel dentro il programma EXCEL temo che l'uso di API sia inevitabile.
Aiuto!!!
pa...@citynet.re.it
 (togliere una k dall'indirizzo)
Riporto il testo della Domanda posta al NG precedentemente, magari per
chiarire il mio problema, scusate.
Sto realizzando un programmino in VBA Excel che mi apre e ne controlla gli
eventi di altri fogli excel.
Sono riuscito a prevedere e controllare direi tutte le operazioni che
l'utente può fare, inavvertitamente o volutamente.
Mi manca solo una cosa: Se l'utente minimizza il foglio sul quale lavora,
anche se con l'evento Resize lo intercetto e lo riporto immediatamente a
Maximize, ormai il foglio perde il focus che mi torna al mio foglio
principale che contiene VBA, causando una serie di piccole ma fastidiose
complicazioni.
COME POSSO DISABILITARE IL BOTTONE MINIMIZE IN UN FOGLIO???
Mi vanno bene anche funzioni API....

Magari con qualche API??
Const MF_REMOVE = &H1000&
Const SC_MINIMIZE = &HF020
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As
Long
e poi usa
Call RemoveMenu(GetSystemMenu(Me.hwnd, 0), SC_MINIMIZE, MF_REMOVE)
Ciao,
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

...


...










...


Newsgroup: it.comp.lang.visual-basic
Titolo: Stampe di database.

Ciao, vi pongo un problema.
Sto gestendo un database mdb con una maschera semplice fatta in vb.
Nella maschera si inseriscono dei dati che vanno ad aggiungere record ad
una tabella del database.
Ho fatto quindi un pulsante stampa che vorrei stampasse solamente il
record visualizzato nella maschera (che può essere selezionato con dei
pulsanti freccia e quindi non è detto che sia l'ultimo inserito). Il
problema è che non riesco a stampare con un data report solo il record
selezionato.
Ho provato a usare una query ma non so bene come specificare l'sql.
Beato chi mi può aiutare.
Max

 wrote in message 390E8BFA...@tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Stampe in vb6

sto sviluppando un programmino su un pc con un monitor che va a
1024*768;quando lo eseguo sul pc che lo dovra ospitare che ha un vecchio
monitor a 640*480 non riesco a vedere il form completamente e quando lo
stampo con printform me ne taglia una parte.....che fare?????

... usare un controllo di "resizer" (tipo quello di sheridan
activethreedplus) o ridimensionare tutto "a mano"...

o stampare a manina con PrnPrv....
free, solo codice frm e bas....
da me o nel zito comune...
--[GbC]--
http://www.chiappori.net

il mio problema e' di ridimensionare il form...con scaleheigh??????
SkyRunner ha scritto nel messaggio ...


Newsgroup: it.comp.lang.visual-basic
Titolo: Compilatore vb6 per msi

Esiste un compilatore che mi crea files msi invece che .exe? (possibilmente 
free)
Grazie! 


msi è un file di installazione per windows installer, da come hai
posto la domanda sembra che vuoi compilare un progetto come msi il che
non ha molto senso.
Se invece volevi chiedere se esiste un tool che permette di comporre un
programma di installazione per il tuo exe basato su windows installer
allora ti posso consigliare microsoft visual studio installer il quale
dovrebbe essere free se hai gia una licenza di vs6
http://msdn.microsoft.com/vstudio/downloads/tools/vsi11/default.aspx
Newsgroup: it.comp.lang.visual-basic
Titolo: visualizzare dati in 3 dimensioni...(opengl?)

salve...
per visualizzare dei dati in 3dimensioni ?
cosa poteri inventarmi ?
usare le opengl per caso ?
un salutone a tutti voi...
:-)

 ha scritto
| per visualizzare dei dati in 3dimensioni ?
| usare le opengl per caso ?
E' senz'altro una via molto semplice...


o DirectX. Sul mio sito c'è VBDirectX8.ocx che semplifica alcune operazioni.
--
Fabio Guerrazzi
http://www.sourcecode4free.com/cgt
fab...@libero.it
fab...@si.tdnet.it

Newsgroup: it.comp.lang.visual-basic
Titolo: valori nulli consiglio

volendo collegare da codice i campi di una maschera ad un database per poi
effettuare aggiornamenti -modifiche ed eliminazioni con l'oggetto command di
ado capita di avere valori nulli nei campi non obbligatori.Come si pשע
evitare che la procedura mi dia errore?

 ha scritto nel messaggio
news:t0xda.74056$pG1.1...@news1.tin.it...

Metodo veloce, assegna i valori di default direttamente sui campi del db
ciaociao


Se li metti in una casella di testo ad esempio:
txtnome.text=rs("nome") & ""
Alessandro

Newsgroup: it.comp.lang.visual-basic
Titolo: ERRORE punto di ingresso nella DLL

Perchč.

 Perchč.
Perché sě.
Un Paperino ovvio, banale & scontato.

Perché sì.
Da incorniciare :)
-- 
ciao,
hal


Se stai utilizzando una DLL scitta in Visual C++ 6.0 probabilmente non hai
dichiarato le funzioni che vuoi esportare nel file di definizione .def.
Spero di essere stato utile.
Bye.

 Da incorniciare :)
OK.
______________________________________________________________
|    On Thu, 12 Feb 2004 20:13:01 +0100, "Paperino" wrote:   |
|    > "maurizio" ha scritto nel messaggio                   |
|    > > Perchč.                                             |
|                                                            |
|    > Perché sě.                                            |
ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ
Bye, G.

 Perchè.
Perchè cosa?
Io ancora non ho capito se la tua DLL è una DLL standard (scritta in C/C++
ad esempio) oppure una DLL ActiveX (scritta in VB).
Già da questo si potrebbe capire almeno di che morte farti morire :P
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net
Newsgroup: it.comp.lang.visual-basic
Titolo: Antreprima di Stampa: come uso PAINTPICTURE?

Ciao a tutti,
sto' scrivendo un programma che stampa dei record di un database e sono ormai a
buon punto:
'**********************************************
'*
'* Questa sub stampa il record attualmente
'* visualizzato nel FORM.
'*
'**********************************************
Public Sub StampaUno()
Printer.TrackDefault = True
Printer.PrintQuality = vbPRPQHigh
Printer.Font.Name
 = FontScelto
Printer.FontSize = FontDim
Printer.FontBold = False
Printer.Print
"-------------------------------------------------------------------------------"
Printer.FontBold = True
Printer.Print InteStampa
Printer.FontBold = False
Printer.Print
"-------------------------------------------------------------------------------"
Printer.Print vbCrLf
Printer.FontBold = True
Printer.Print "NOME"; Spc(Dist1); "DIMENSIONE"; Spc(Dist2); "DATA"; Spc(Dist3);
"DESCRIZIONE"
Printer.FontBold = False
etc.. etc..
Ora, credo di avere capito che, per realizzare l'anteprima di stampa si debba:
1) creare sul FORM una PICTUREBOX invisibile e poi:
Private Sub Command5_Click()
'FontDim = 10
Picture1.Cls
Picture1.FontName = FontScelto
Picture1.FontSize = FontDim
Picture1.FontBold = False
Picture1.Print
"-------------------------------------------------------------------------------"
Picture1.FontBold = True
Picture1.Print "QUESTO é un ESEMPIO"
Picture1.FontBold = False
Picture1.Print
"-------------------------------------------------------------------------------"
Picture1.Print vbCrLf
Picture1.FontBold = True
Picture1.Print "NOME"; Spc(Dist1); "DIMENSIONE"; Spc(Dist2); "DATA";
Spc(Dist3); "DESCRIZIONE"
Picture1.Print "PIPPO"
Cioe', uso come dispositivo di stampa la PICTUREBOX invisibile,
quindi:
come faccio per visualizzare questa PICTUREBOX come se fosse una finestra di
"anteprima di stampa" ?
Credo si usi la PAINTPICTURE, ma non ci capisco ancora niente!!! :(
Spero di essere stato chiaro e di ricevere un aiuto...
Un saluto...
--------------------------- 
 Stefano Bettocchi          
 e-mail to: 
stef...@col.it
 
---------------------------


Non ti basta mettere la PictureBox su una seconda form destinata
all'anteprima di stampa, senza renderla invisibile?
Inoltre metti il background bianco per l'effetto carta e usi il metodo Scale
per fare lo zoom.
Enrico



,Ricevo: Re: Antreprima di Stampa: come uso PAINTPICTURE?, Postato da:
it.comp.lang.visual-basic
Linee:27
:}Non ti basta mettere la PictureBox su una seconda form destinata
:}all'anteprima di stampa, senza renderla invisibile?
:}Inoltre metti il background bianco per l'effetto carta e usi il metodo Scale
:}per fare lo zoom.
:}
:}Enrico
:}
:}
Grazie, per i consigli :) ma, quello věche non capisco č questo:
come uso il metodo Scale? Io, per adesso faccio cosě:
Picture1.ScaleMode = 3
Picture1.ScaleX Picture1.ScaleWidth, 3, 2
Picture1.ScaleX Picture1.ScaleHeight, 3, 2
Picture1.Cls
---> segue il resto della routine di stampa...
Ma non funziona! 8( Sono io che sono duro di testa (mooolto probabile!) oppure
sbaglio, ma dove?

Newsgroup: it.comp.lang.visual-basic
Titolo: prblemi con matrici

Ho creato una matrice in cui l'utente puň inserire dei dati, il mio problema
č che la matrice (con i dati) viene svuotate ad ogni riavvio del programma.
Vorrei sapere se c'č un modo per salvarli cosě che al nuovo lancio del
programma trovi i dati gia immesi.
Grazie 1000

Vorrei sapere se c'è un modo per salvarli così che al nuovo lancio del


 wrote in message
hwe24.15639$Q.16...@typhoon.libero.it...


 Grazie ciao
Fai riferimento alla guida in linea o ad un qualsiasi libro su VB (i file
sono un argomento fondamentale che trovi su tutti i libri)
<<<Hanamichi>>>

 wrote in message
news:kRd24.15464$Q.15...@typhoon.libero.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Setup di VB

Salve come da oggetto, avrei bisogno di informazioni sulla personalizzazione
del setup di visual basic (setup.vbp)!
Dove posso cercare? Come si fà a personalizzare immagini,testi...etc.?
Grazie a tutti!


io uso 
www.innosetup.com
 ma okkio che non e' come il setup di VB della M$...
le librerie/ocx/etc... devi includerle tu!
--
RedFoxy
Web Master of Quantum Leap 
http://ql.programmazione.it

Dove posso cercare? Come si fà a personalizzare immagini,testi...etc.?
C'e' il codice sorgente nella sottodirectory 
....\Microsoft Visual Studio\VB98\Wizards\PDWizard\Setup1
hth, hal

 ha scritto nel messaggio
news:9mler9$313ic$1...@ID-83354.news.dfncis.de...



Tipo? io uso Inno setup + ISTool


Newsgroup: it.comp.lang.visual-basic
Titolo: [OT][ADO] - Cerco consigli sulla gestione dei lock ottimistici.

Salve a tutti, anche se so che non può fregarvene di meno, oggi compio gli
anni.
Detto questo passiamo al punto: devo partire con un progetto e tanto per
cominciare devo scegliere un database.
Diciamo che voglio usare MySQL (per ovvie ragioni, fra cui la differenza di
costo fra questo ed un SQL Server di Microsoft). Questo non prevede i
cursori server e qundi niente lock pessimistico.
Qualcuno può darmi un consiglio si come risolvere i problemi di lock
ottimistici in fase di aggiornamento con i cursori lato client?
Mi spiego meglio: dopo che un utente ha modificato 10 campi su 20, è brutto
farglieli reinserire tutti da capo; qualcuno può darmi un consiglio su come
gestire questa situazione in modo elegante? Ve ne sarei veramento grato.
Grazie a tutti.
Dario Di Marino

 anni.
:-))
Mi dispiace che di database non ci capisco un kaiser,
in compenso posso farti gli AUGURI !
:-))
Bye, G.
Newsgroup: it.comp.lang.visual-basic
Titolo: Gestire gli output di una stored procedure. Come si fa?







(Ambiente: ASP.Net)


Ciao ragazzi,


ammesso di scrivere correttamente una stored 
procedure.


Come gestisco, da codice VB.Net, i parametri che la 
SP mi restituisce in uscita?


Ad esempio, se io volessi fare una cosa del 
tipo:


IF @RETURN_VALUE = 0 THEN "Saluti a tutti" ELSE 
"PRRR....",


come devo prenderlo il valore 
@RETURN_VALUE?


 


Grazie mille!


 



 ha scritto nel messaggio
news:Ww%ia.53280$Jg1.1...@news1.tin.it...

Grazie mille!
Non conosco il Ado.net ma con ADO, che non credo cambi molto, devi
utilizzare l'oggetto command
Questo è il codice che generalmente utilizzo
    Dim cn As ADODB.Connection
    Dim cm As ADODB.Command
    Dim Prs As ADODB.Parameters, P As ADODB.Parameter
    Const strReturnValue As String = "@RETURN_VALUE"
    Const strCon As String = "Provider=MSDataShape.1;" & _
                                            "Persist Security Info=True;" &
_
                                            "Data Source=*****;;" & _
                                            "User ID=******;" & _
                                            "Password=*******;" & _
                                            "Initial Catalog=******;" & _
                                            "Data Provider=SQLOLEDB.1"
    On Error GoTo ERRORE
    Set cm = New ADODB.Command
    cm.CommandType = adCmdStoredProc
    cm.CommandText = "NomeSP"
    'Inserisco i parametri di input
    Set Prs = cm.Parameters
    Set P = cm.CreateParameter("@Nome1", adVarChar, adParamInput, 50,
"Valore1")
    Prs.Append P
    Set P = cm.CreateParameter("@Nome2", adVarChar, adParamInput, 50,
"Valore2")
    Prs.Append P
    'Inserisco i parametri di output
    Set P = cm.CreateParameter("@Nome3", adVarChar, adParamOutput)
    'Inserisco il parametro return value
    Set P = cm.CreateParameter(strReturnValue, adInteger,
adParamReturnValue)
    Prs.Append P
    Set P = Nothing
    Set Prs = Nothing
    Set Cn = New ADODB.Connection
    Cn.Open strCon
    Set cm.ActiveConnection = Cn
    cm.Execute
    Cn.Close
    Set Cn = Nothing
    Set Prs = cm.Parameters
    debug.Print Prs("@Nome3").value
    debug.Print Prs(strReturnValue).value
    Set Prs = Nothing
Ciao omnitow

 Non conosco il Ado.net ma con ADO, che non credo cambi molto
sbagliato, cambia quasi tutto.
La vita e il marcheting sono fatti così: se nulla cambia, bisogna cambiare il
nome, per far sembrare che ci sia qualcosa di nuovo; se cambia tutto, bisogna
lasciare il vecchio nome, per non spaventare con le troppe novità.
--
Salutoni
Sergio

 adParamReturnValue)
Ahhh...
Ecco la riga che mi mancava. Grazie mille, buon weekend!
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.visual-basic
Titolo: Stampa da Crystal report...

Salve a tutti,
spero che qualcuno di voi riesca a risolvere questo mio dubbio.
In pratica devo stampare delle fatture con Crystal Report...e fin qui
tutto bene.
Il problema sorge quando il numero degli articoli da stampare in
fattura diventa alto. Ad esempio se la fattura č lunga tre pagine,
io vorrei far comparire sul report la scritta "segue..." nelle prime
due pagine.
Come posso fare?
Un grazie a tutti anticipato!
Ciao

Crea una nuova formula nel report txtSegue assegnandole il valore stringa:
"Segue...".
Una volta inserita nella posizione che a te risulta piů congeniale,
selezionala e dalla voce di menu Formato>Formato campo, personalizza
l'omissione del campo con il seguente codice:
If TotalPageCount > 1 And PageNumber <> TotalPageCount Then
    False
Else
    True
Ciao.
P.S.: Tutto ciň funziona per Seagate Crystal Report ver.6.0 o 7.0
Newsgroup: it.comp.lang.visual-basic
Titolo: Property Let ???

Private my_DatadiNascita As Date
------------------------------------------------------------------------
Public Property Let DatadiNascita(ByVal vData As Date)
Dim G As Date
G = Format(Now, "dd,mm,yyyy")
If vData > G Then
MsgBox "Forse dovresti aspettare ancora un pò !!"
ElseIf vData = G Then
MsgBox "Auguri al neonato 80)  !!"
ElseIf vData < G Then
my_DatadiNascita = vData
Else
MsgBox "Data non valida !", 16, App.Title
End If
End Property
Nella Form1 :
Private Sub Command1_Click ( )
Dim X as New Mia_Classe
X.DatadiNascita = txtData
Set X = Nothing
Se nella txtData inserisco caratteri o nulla mi dà il seguente errore:
Err 13 Tipo non corrispondente....
Perchè non lo individua la Property Let ?
Sono un principiante in fatto di Classi...
Grazie a tutti
Ciao 8)


Be'... l'errore sta nel fatto che  il parametro che si aspetta la proprietà
è di tipo Date, e tu gli assegni il valore di una textbox,
che, nel momento in cui gli assegni un carattere è un variant contenente una
stringa, e quindi non compatibile con il tipo Date,
mentre qualsiasi numero può essere trasformato in una data...
Ciao
Enrico

Perchè non lo individua la Property Let ?
No.
La property accetta un valore di tipo Data, giusto? quindi gli devi passare un valore di tipo Data:
X.DatadiNascita = Cdate(txtData)
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

 Err 13 Tipo non corrispondente....
sarebbe meglio fare:
Private Sub Command1_Click()
    If Not IsDate(txtData) Then
        MsgBox "Data non valida", vbExclamation
        txtData.SetFocus
        Exit Sub
    End If
    Dim X As Mia_Classe
    Set X = New Mia_Classe
    X.DatadiNascita = txtData
    Set X = Nothing
End Sub
Ciao
Faber

Newsgroup: it.comp.lang.visual-basic
Titolo: Metodo Find - Principiante

Mi potreste fare un esempio semplice semplice sul metodo Find di ADODB.
Devo cercare su un campo di una tabella una stringa
Se la ricerca fallisce si usa EOF o esiste anche qualcosa tipo NO MATCH?
Scusate la stupidità della domanda, ma la guida non mi sembrava così
chiara...

 ha scritto nel messaggio
news:3fd98.48248$nI1.1...@twister1.libero.it...


 ha scritto nel messaggio
news:Wie98.52670$3J1.1...@news2.tin.it...




Se Nella Tua Tabella ci Sono Molti Record Aggiungi Questa Riga:
TuoRecord!CampoDaRicercare.Properties("Optimize") = True
poi esegui la Ricerca......
By Utente Win2k
Newsgroup: it.comp.lang.visual-basic
Titolo: [.NET] Inviare un'email si può?

Vorrei inviare un'email da form,
è possibile?
Ho provato con del materiale che ho trovato in giro ma
non mi funziona.
Imports System
' il primo errore è qui System.Web.Mail  non viene riconosciuto:
Imports System.Web.Mail
'Il seguente è giusto?
Dim oMsg As System.Web.Mail.Mailmessage = New System.Web.mail.mailmessage()
oMsg.from = TMittente
oMsg.subjet = TOggetto
smtpmail.send(oMsg)
Grazie per le risposte
ciao
P.

 P.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

...........
Avrò ben da provare!
Grazie molte
Ciao
P.

 P.
-- 
.A
UGIdotNET - User Group Italiano .NET
http://www.ugidotnet.org
Read my blog at: 
http://www.ugidotnet.org/4.blog

 Ciao Fil
Ho inserito il codice sopra all'interno di un mio pulsante
pInviaposta_Click()
solo che mi segnala un errore nell'ultima riga: "sendmail" non č un membro
di "Windows.application1.email"
ho provato e riprovato senza riuscire a risolvere il problema.
Dove sbaglio?
Grazie ciao
P.
Private Sub pInviaPosta_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles pInviaPosta.Click
Dim m As New email("
out.virgilio.it
", "
pi...@pluto.it
", "
mi...@pluto.it
",
"Oggetto della mail", "testo della mail")
m.Server = "
out.virgilio.it
"
m.Mittente = "
pi...@pluto.it
"
m.Destinatario = "
mi...@pluto.it
"
m.Oggetto = "Oggetto della mail"
m.Testo = "testo della mail"
m.sendmail()
End Sub

Imports System.Web.Mail
...
   MailMessage msg = new MailMessage()
   msg.From = 
bill...@microsoft.com
   msg.To = 
y...@you.com
   msg.Subject = "Job"
   msg.Body = "blabla bla bla"
   SmtpMail.SmtpServer = 
myse...@myserver.com
   SmtpMail.Send(msg)

 ha scritto nel messaggio
news:8vaAc.483243$rM4.19...@news4.tin.it...

OK grazie.
Ho fatto delle prove con altri sistemi,
ma i messaggi non vanno a finire in Outlook express
come devo fare per far si che mi rimanga traccia?
Grazie ancora ciao
P.

 ha scritto nel
messaggio news:cas3em$mqm$1...@carabinieri.cs.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Vb.net

E' possibile installare Visual studio net e continuare ad utilizzare anche
vb 6 sullo stesso computer?


Secondo Microsoft sì, non c'è nessun problema.
Secondo i miei clienti, che non riescono più ad installare gli OCX fatti da
me a causa di misteriosi conflitti di lingua, di versione, ecc.. con
RichText, DataGrid, ecc...., proprio no.
Alberto


E tu a chi credi?
A quattro incompetenti o ai super dottoroni laterali della M$? :)
Ciao


Ovviamente ai clienti, perché:
1) Mi pagano
2) Il cliente ha sempre ragione
3) Ho verificato che hanno ragione loro. Alcuni OCX non si installano piů.
Il problema si verifica creando il pacchetto con qualunque macchina che
abbia .Net assieme a VB6.0 sia SP4 che SP5.
Prima i pacchetti erano a prova di bomba.
Alberto

3) Ho verificato che hanno ragione loro. Alcuni OCX non si installano piů.
Sottoscrivo tutto.
Mi sembra che l' unico caso in cui si _potrebbe_, al momento,
proporre .net all' utente sia per codice server side di pagine web 
(anche se proporre java risolverebbe
a priori l' eventuale esigenza di portabilita').
-- 
ciao, hal

 proporre .net all' utente sia per codice server side di pagine web
Però non ho capito se il problema è VS.net o il .net Framework.
Spero solo lo prima.
Ciao

 Spero solo lo prima.
I miei clienti non hanno il .Net framework.
I miei problemi nascono dall'avere installato 
VS.NET
 su alcune macchine di
sviluppo.
Alberto


Si, ma il supporto di Microsoft che dice?
Mi sembra strano ...
Anche perchè per quanto ho visto, OCX non ce ne stanno (a parte la DB grid)
nei cd di VS .NET.
Che VS 6.0 hai? Ita o eng?
E che versione hai di VS .NET?
RTM english o beta ita/beta english?
ciao
MiK

Sulla mi a macchina (XP pro ITA) ho installato VB3,VB4 16bit,VB6Sp5 e VSNet
Final Eng e non ho nessun problema con VB6 e ocx (VS.Net non ne fa uso), i
miei programmi continuano a funzionare correttamente sia sulla mia macchina
sia su quelle dei clienti.
HTH
Corrado

 ciao
Gli OCX sono quelli che sviluppo io, e che distribuisco via Intranet.
Li sviluppo con VS6.0 SP4 ITA, o con VS6.0 SP5 ITA.
Non uso 
VS.NET
, ma l'ho installato per migrare alcuni sw e verificare la
compatibilità del codice (NB: ottima, grazie al modo in cui sviluppo :-))
Dopo l'installazione di 
VS.NET
, i pacchetti CAB che supportano l'OCX da
distribuire, si decomprimono ma alcuni componenti non si registrano, quindi
l'OCX non si installa più su alcune macchine (tipicamente W2000Pro), dove
prima lo stesso progetto andava perfettamente.
Secondo MS, ciò non può essere colpa di 
VS.NET
, ma di SP5. Peccato che lo
stesso problema sia nato in una macchina di sviluppo con SP4, subito dopo
aver messo 
VS.NET
.
Alberto

Newsgroup: it.comp.lang.visual-basic
Titolo: help x modulo outlook

Scusatemi subito, sò che questo non è il ng azzeccato, ma ho un problema con
outlook 2000, cioè personalizzo i moduli di messaggi, li mando e li ricevo
correttamente, ma quando li stampo non ho la formattazione che ho a video.
Aiuto
Ciao e grazie

 wrote in message
news:bW8P6.3219$Uo3....@news6.giganews.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: ? Stampa su bitmap

Ho l'esigenza di stampare un'immagine e nel contempo inserirvi sopra del
testo (in posizioni specifiche).
Chiaramente effettuando un'unica stampata.
Se possibile mi piacerebbe farlo utilizzando semplicemente l'oggetto
printer.
Se qualcuno ha già realizzato qualcosa del genere mi consigli in merito,
gliene sarò grato.
Ciao.
tommy


' stampa una riga a vuoto, che male non fa
Printer.Print
' stampa lo sfondo
Printer.PaintPicture MiaImmagine, ecc. ecc.
' scrive il testo
Printer.CurrentX = miaAscissa
Printer.CurrentY = miaOrdinata
' ''' eventualmente imposta il font, il colore, ecc.
' quindi stampa
Printer.Print "Ho rovinato la foto"
' chiude
Printer.EndDoc
' andare dalla stampante al piano di sopra a ritirare il foglio :)
ciao, hal

^_^
Grazie mille.
Ciao
Tommy.

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

Ho scaricato di tutto da internet, codice di esempi e programmi, per quanto 
riguarda la creazione e il salvataggio da bmp a icone.
Il codice è uguale in tutti gli esempi. salvano le icone 32x32 ma non 16x16.
Sto vagliando tutte le possibilità di modifica ma niente.
Su msdn ho letto questo:
6B29FC40-CA47-1067-B31D-00DD010662DA
.
typedef struct _GUID {          // size is 16
    DWORD Data1;
    WORD   Data2;
    WORD   Data3;
    BYTE  Data4[8];
} GUID;
Volevo sapere quel // size is 16 cosa vuol dire nel contesto delle icone.
Oltretutto la maggior parte degli esempi che ho scaricato, il Data4[8] è 
dimensionato a 7.
Può dipendere da questo?
Carmelo 

 Carmelo
Ciao
Raf

 dimensionato a 7.
In VB sarà 7 perchè così gli array per default sono dimensionati da 0 a 7.
In C-like si indica il numero di elementi, non il limite superiore.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: OpenReport & Parametri

Ciao a tutti.
Ho realizzato un db con access 97.
Ho il seguente problema. Ho realizzato una maschera che richiama un report
che si basa su una query a parametri (1 o 2, dipende dai filtri)
Ora vorrei interfacciare il db con VB.
Apro l'applicazione e richiamo il metodo OpenReport, ma come faccio a dirgli
che il parametro che si aspetta non  lo deve chiedere Access da deve
prendere una variabile che gli passo io ????
OpenReport ha 4 parametri
Non capisco cosa intende per filtro e per WHERE ????
Ancora una domanda è possibile salvare la preview del report  e poi
richiamando WOrd visualizzarlo ??? ((LA seconda parte la so fare... ;) )))
Vi ringrazio anticipatamente per l`aiuto! :):)
Cinzia

 richiamando WOrd visualizzarlo ??? ((LA seconda parte la so fare... ;) )))
Menu File
        --> Salva con nome/Esporta
               --> File o database esterno
                      --> (Formato .RTF)
L'equivalente VBA è:
DoCmd.OutputTo acOutputReport, [NomeReport], _
                             acFormatRTF, [NomePercorso], False
es:
    DoCmd.OutputTo acOutputReport, "Mio_Report", _
                             acFormatRTF, "c:\mioreport.rtf", False
  Call ShellExecute(...)

Newsgroup: it.comp.lang.visual-basic
Titolo: leggere il numero di hd o floppy

Sto cercando del codice in VB per leggere il numero di serie delle
periferiche (hd, floppy, etc.).
Qualcuno puň aiutarmi.
Grazie
  Andrea alias Archer Lampo
--
Andrea Nardon
Web     http:\\
andreanardon.thesociety.net

 Guarda in ottenere informazioni sull'hard disk (Vale anche per "A:\")
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] calcolo delle probabilità

Sono rimasto coinvolto in una discussione in merito
alla probabile distribuzione delle carte nel gioco
del tresette.
Ho cercato parecchio su google senza trovare una
formula adeguata per fare questo calcolo e quindi
lo propongo a voi sperando di trovare uno specialista
in merito.
 
Condizioni di partenza:
Ogni giocatore ha 10 carte in mano.
Il giocatore che deve iniziare il gioco ha in mano,
oltre alle altre 6 carte, 4 carte dello stesso seme
che comprendono il 3 ed il 2 ma non l'asso.
 
Il questito è il seguente:
Quante probabilità ci sono che l'asso sia nelle mani
di uno degli avversari e che il medesimo abbia anche
almeno altre 2 carte dello stesso seme?
 
Grazie e saluti.
Sauro
 
 

L'asso č almeno terzo 30 volte su 63 combinazioni
possibili.
Di cui 10 volte in mano al compagno.
 
Ho ottenuto questo risultato provando tutte le
combinazioni possibili e non con una formula come
avrei voluto e che potrebbe essere utilizzata
anche per altri calcoli.
 
Saluti a tutti
Sauro 
 
 


Ricordati però che secondo Gumperson:
 
«La probabilità che qualcosa accada è inversamente proporzionale alla 
sua desiderabilità.»
 
Quindi l'asso lo perderai sempre.
 
:D
 
-- 
GbC
www.gbc.uno

 Sauro
 
Sul probabilità che l'asso sia in mano al compagno è molto semplice: 1 
possibilità su 3. Sul fatto che sia 3° o 2° (in gergo si dice così) è 
molto piu complicato, non ci provo neanche.
 
-- 
Greg

Ma se Renzi dice che bisogna pensare positivo.
Non sarai mica un gufo anche tu?
 
A parte gli scherzi, devi ammettere che č un bel
problemino da risolvere.
Ragionando poi sulla soluzione che ho proposto
mi sono accorto che non tiene conto di alcuni
fattori ed č quindi sbagliata.
 
Ciao e grazie di avermi fatto ridere.
Sauro
Newsgroup: it.comp.lang.visual-basic
Titolo: VB2005 e invio file via FTP

vorrei realizzare una piccola applicazione windows che mi invia
un file via ftp su uno spazio web di mia proprieta'
ho provato cosi' ma non funziona:
My.Computer.Network.UploadFile("c:\prova.text", 
"
ftp://xxxxx.altervista.org/prova.text
", "UserID", "Password")
mi restituisce il seguente errore:
Connessione sottostante chiusa: Il server ha commesso una violazione del 
protocollo..
Qualcuno puo' aiutarmi ?
Grazie. :) 


Stranissimo, a me funziona... e anche su altervista.
Ho visto il tuo messaggio su dotNetHell, e se non ti funziona neppure
il metodo che ti è stato suggerito, è un problema tuo. Guarda i
permessi del file, oppure il firewall, non saprei...
Ciao


ehm... ho riletto il mio messaggio e la frase "è un problema tuo"
potrebbe essere interpretata male.
Può essere interpretata come:
- Sono cavoli tuoi, che me ne frega a me?
- E' un problema del tuo computer
Io volevo dire la seconda... :)

Newsgroup: it.comp.lang.visual-basic
Titolo: ADO e LIKE

Salve,
Qualcuno saprebbe spiegarmi perchè se cerco di aprire un recorset ado in
questo modo:
rsADO.open "SELECT * FROM Tabella WHERE Campo1 LIKE 'v*'", conADO
Mi restituisce un recordset vuoto anche se ci sono un sacco di
ricorrenze che iniziano per 'v'?
Vi ringrazio
Fiorenzo
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

ricorrenze che iniziano per 'v'?
Prova a sostituire v* con v%
-- 
hth, hal

e prova anche a dire con quale DBMS ti colleghi, quando chiedi qualcosa
sulla sintassi SQL (ogni DB ha il suo SQL...)
Alberto

 sulla sintassi SQL (ogni DB ha il suo SQL...)
sì ma ado la maschera, e se necessario è lui a convertire il carattere
ciao
Alfonso

 wrote in message
news:a5fvm3$73a$1...@newsreader.mailgate.org...

E' andata! Grazie 1000 :-)


Newsgroup: it.comp.lang.visual-basic
Titolo: vb.net rivcavare risoluzione del monitor

Come posso ricavare la risoluzione impostata?
Grazie in anticipo

 Grazie in anticipo
Screen.PrimaryScreen.Bounds.Size.ToString
ciao
Alessandro
-- 
Morfeus®
Free Joint
:PII
Newsgroup: it.comp.lang.visual-basic
Titolo: textbox

Premettendo che sono nuovo di Visual Basic , qualcuno mi sa dire perchè il
codice seguente mi da errore di overflow?
Grazie
text1.text = 9*8*7*6*5*4/720

 text1.text = 9*8*7*6*5*4/720
Se non dichiari le variabili, i calcoli di questo genere devono
venir effettuati utilizzando una variabile temporanea che per default
viene creata come integer, durante i calcoli il valore della variabile
nascosta temporaneamente supera il valore massimo possibile per
l'integer e crea l'overflow.
Per forzare un calcolo ad usare valori long, è necessario dichiarare
almeno una delle variabili utilizzate come long.
Prova così:
_____
Dim lngTemporanea As Long
lngTemporanea = 4
Text1.Text = 9 * 8 * 7 * 6 * 5 * lngTemporanea / 720
_____
Un altro sistema per dichiarare un calcolo long senza una variabile
temporanea è di tipizzare uno dei valori del calcolo con uno dei
caratteri di dichiarazione di tipo. Ad esempio:
_____
Text1.Text = 9 * 8 * 7 * 6 * 5 * 4& / 720
_____
Nota la & dopo il quattro, che dichiara quel numero come long e
costringe quindi VB ad utilizzare per tutto il calcolo variabili long.
Comunque, per essere più preciso, ti consiglio di utilizzare sempre
Option Explicit, in modo da dichiarare sempre le variabili che utilizzi,
e, anche se può sembrare inutile, utilizzare per l'assegnazione a
proprietà una variabile temporanea.
Bye, G.
--
---------------------------------------------
    Le risposte alle tue domande le trovi
    sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
       ... e nell'help in linea !
---------------------------------------------
Real E-address: 
gaet...@hotmail.com
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] browser

Scusate l'ot ma il ng apprpriato, moderato, � alqualnto lento e poco 
bazzicato.
Mi sono abituato a usare Firefox, la versione 2,  ma da qualche giorno se 
faccio un dowload uppure apro un sito sove parte automatico un filamato,  FF 
cresce e si ingrossa anche di diverse centinaia di Mega tanto da esaurire la 
memoria virtuale.
Ho fatto il restore da Ghost per tornare indietro ma nn cambia nulla;
l'ho tolto proprio e messo la versione 3.5 ma non cambia nulla.
Con IE e Crhome nessun problema, ma io ormai sono abituato con FF, maledette 
abitudini, quindi sono a hciedere se qualcuno sa qualche dritta pe impedire 
a FF di crescere in dimensioni, qualche settaggio, qualche 
pug.in
  da 
scaricre....
grazie
-- 
Greg 

 scaricre....
Non so darti la soluzione...
però posso indirizzarti sul forum di Mozilla:
http://forum.mozillaitalia.org/
Sicuramente troverai qualcuno che ha postato il problema e a cui hanno
dato la risposta... (usa la funzione cerca).
-- 
Daniele Pinna  (leva oops. per rispondere)
Utente Skype: dapinna
Sito Web: 
http://www.dapinna.com
	<-- Nuovo Sito... ora in Joomla
Il Docfa in Pillole:  
http://www.ildocfainpillole.it
-----
Now Powered by Linux KUbuntu 9.04 "Jaunty Jackalope"

Newsgroup: it.comp.lang.visual-basic
Titolo: Refresh con Adodc collegato ad un db Access

Ho un problemino... ho un dbgrid collegato ad un adodc che fa riferimento ad
una tabella in un db access, il problema sorge quando faccio un inserimento
o una cancellazione su questa tabella con una execute, e subito dopo il
refresh dell'adodc... praticamente il refresh viene eseguito prima che la
execute esegua l'istruzione fisicamente sulla tabella, e quindi i dati
rappresentati non sono aggiornati...
Qualcuno ha qualche idea di come si può fare ??? (Refresh manuale escluso
naturalmente...)
Grazie.
Roberto
-- 
Posted from 
tn1-533.dialup.tiscalinet.it
 [62.11.172.21] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Dal basso della mia poca conoscenza, prova ad inserire una Do Events fra la
2
istruzioni, forse cosě dovrebbe andare.
Ciao, Daniele.
-- 
Posted from  [217.57.245.140] 


 via Mailgate.ORG Server - 
http://www.Mailgate.ORG
già provato ma non serve a nulla !!!
Infatti il do events non è in grado di verificare che access abbia
completato il comando di execute...
-- 
Posted from 
tn1-476.dialup.tiscalinet.it
 [62.11.171.220] 

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT]Swen continua a bussare!

Vorrei che qualcuno mi rassicurasse: sono l'unico che continua a ricevere
una quarantina di mail infette al giorno o come per tutte le cose si fa una
gran caciara all'nizio e poi vanno a finire nel dimenticatoio? Boun Windows
Update a tutti ;-P
Ciao, SK

non sei l'unico... :-/

SpecialKeta ebbe il coraggio di dire:
 (è solo quoting automatico)

Tranquillo non sei solo...penso che siamo un bel gruppetto!
MIk

 Vorrei che qualcuno mi rassicurasse: (snip)
la situazione (knock on wood) pare migliorata, ma non è ancora risolta del
tutto...
--
Salutoni
Sergio

io sono rimasto off-line tutto il giorno, sono appena rientrato.....
105 e-mail di spamming, opportunamente filtrate al 95% da Spam
Terminator.....
ne sono passate solo 4, cancellate a manina....
cmq sia, no, non credo che tu sia l'unico.....
consiglio a tutti, comunque, di cifrare in qualche modo la firma e l'e-mail,
come ho fatto io.....
good coding!!!
-- 
Damiani Liborio Igor
http://www.igordamiani.it
Nella finestra Debug di VB:
Nome="igor":? Nome & Chr$(64) & Nome & "damiani" & Chr$(46) & "it"
Che tu sia maledetto, SWEN...

Newsgroup: it.comp.lang.visual-basic
Titolo: cvw.exe

Ciao a tutti,
qualcuno di Voi ha il file in oggetto oppure sa da dove posso scaricarlo, in 
quanto mi servirebbe per debaggare un programma.
Grazie per gli eventuali suggerimenti. 

 in quanto mi servirebbe per debaggare un programma.
Se può aiutarti
http://support.microsoft.com/kb/75612/EN-US/
Ave
giuseppeD
---
CCR
Newsgroup: it.comp.lang.visual-basic
Titolo: Icone

Salve,
mi rivolgo a tutti i cervelloni del NG.
Innanzitutto chiedo scusa se la domanda e' gia stata posta ma prima di
formularla ho sfogliato tutto il NG e non mi pare di averla vista in altri
messaggi.
Vengo al dunque.
Come si fa, sempre se e' possibile, a far comparire un'icona (di mia scelta
ovviamente) accanto a determinate voci di menù ?
Es. Accanto a nuovo, taglia, copia, incolla, ecc. ecc.
Spero di essere stato chiaro.
Ciao a tutti e grazie a tutti coloro che mi risponderanno.
petitMax
maxc...@tiscalinet.it

Xchč anche rispettando tutto (32 x 32 [ ho provato anche 16 x 16], ico in
bianco e nero ecc.) non riesco a mettere un'icona che ho fatto io come icona
del prog.?
--
Ciaoz
NobsydeŽ
"Le regole esistono... ma c'č chi le cambia"
http://members.xoom.it/nobsyde/index.htm

ovviamente) accanto a determinate voci di menų ?
ti propongo un esempio che ho trovato non so piu' dove
in un modulo metti le seguenti dichiarazioni
Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As
Long) As Long
Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal
nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long,
ByVal hBitmapChecked As Long) As Long
Public Const MF_BYPOSITION = &H400&
Apri un form di nome frmmenu (altrimenti cambia le istruzioni di
conseguenza)
dentro metti due picture picimg1 e picimg2 contenenti due diverse bitmap 13
per 13
crei un menu di 3 - 4 voci sub  per provare
Private Sub Form_Load()
    Dim hMenuBarra As Long          'handle per la bartra dei menu
    Dim hMenuPrimo As Long          'handle del primo menu nella barra
    Dim ris As Boolean              'risposta della funzione
    'Ottiene l'handle della barra del menu
    hMenuBarra = GetMenu(frmMenu.hwnd)
    'Ottiene l'handle del primo menu (indice che parte da zero)
    hMenuPrimo = GetSubMenu(hMenuBarra, 0)
    'Ottenuto l'handle della voce del menu desiderata si puō passare
all'impostazione
    'vera e propria delle immagini, che devono essere di 13x13 pixel.
    ris = SetMenuItemBitmaps( hMenuPrimo, 0, MF_BYPOSITION,
picImg1.Picture.Handle, picImg1.Picture.Handle)
    ris = SetMenuItemBitmaps(hMenuPrimo, 1, MF_BYPOSITION,
picImg2.Picture.Handle, picImg2.Picture.Handle)
End Sub
Ciao stefano

Se vuoi dei risultati abbastanza accettabili (diciamo che con questa tecnica
puoi fare quello che vuoi) devi sublassare il menu e renderlo ownerdraw, in
questo modo puoi disegnare direttamente dentro al menù e ovviamente farlo
come tu lo vuoi...la tecnica ovviamente non è molto semplice e non priva di
rischi (quando si lavora con la memoria si gioca col fuoco con winnoz poi...
8-((
-------
Ciao
Sabba

 ovviamente) accanto a determinate voci di menù ?
Con ActiveBar di Data Dynamics fai quello e molte altre cose,
però.....purtroppo non è un ActiveX gratuito.
http://www.datadynamics.com
Newsgroup: it.comp.lang.visual-basic
Titolo: TabControl - Verticale

Ciao a tutti,
Cerco qualcosa di concreto che mi permetta di usare TabControl in
verticale, ho visto che la possibilità di spostare l'indice delle
tabPage in verticale c'è ma non riesco a scrivere sulla ,lista i
titoli delle pagine stesse,
ho cercato un po' su san. Google  
http://msdn2.microsoft.com/it-it/library/ms404305.aspx
ed ho trovato questo articolo che mi sconsiglia dirittura di
utilizzare i metodi del componente e di gestire il tutto in maniera
grafica, con il drawString insomma.
Sapete dove posso trovare materiale, articoli o qualcosa di utile al
problema? Sempre su google e su diversi post del gruppo (alcuni
ripetuti) ho trovato MOOOLTE opinioni contro questa classe, sapete
dirmi se c'è qualcosa di meglio?
Intendo ringrazio per l'attenzione e sperando di ricevere qualche
risposta.
Ciao a tutti,
BabboMarci

 grafica, con il drawString insomma.
Mai provato, anche perchè avere le tab a sinistra non è il massimo per 
l'utente.
Comunque per curiosità stavo provando l'esempio indicato nel link: se tu 
segu le istruzioni iniziali la cosa funziona, tranne per TabControl.ItemSize 
che devi invertire i valori di Width e Height.
Nell'evento DrawItem scrivi quello che ti interessa con la 
e.Graphics.DrawString() (quello che manca nell'esempio è che per TUTTE le 
classi di Sstem.Drawing di cui fai una new devi fare poi una Dispose()).
Quello che manca nell'esempio è il fatto che le scritte devono essere 
ruotate per scriverle in verticale.
Aggiungi questo prima di scrivere e ruoterà quanto disegnato al centro dei 
vari tab:
Dim t As New Drawing2D.Matrix()
t.RotateAt(-90, New PointF(CSng(e.Bounds.X + e.Bounds.Width / 2), 
CSng(e.Bounds.Y + e.Bounds.Height / 2.0#)))
e.Graphics.Transform = t
t.Dispose()
Ciao

 che devi invertire i valori di Width e Height.
Ho provato anch'io ed ho visto che funziona però mi è sorto un
problema con il pezzo di codice che mi hai scritto,
Infatti è esatto in quanto mi gira la stringa corettamente però non la
modifica, cerco di spiegarmi:
mi gira la stringa di 90° solo che non scrive per esteso, scrive due
caratteri e va a capo come se fosse scritta
in orizzontale insomma, spero di essere stato chiaro semmai ti
rispondo cercando di esserlo uteriormente
Ciao, BabboMarci

 caratteri e va a capo come se fosse scritta
Non so, che stringa scrivi?
Poi ci sono tutte le configurazioni della DrawString da impostare: passagli 
un StringFormat che gli forza la stringa come la vuoi.
Ciao

 un StringFormat che gli forza la stringa come la vuoi.
Dovevo solo impostare i parametri della strinFormat giusti,
Grazie mille e alla prossima,
Babbomarci
Newsgroup: it.comp.lang.visual-basic
Titolo: 65000 record, ed è lentoooooo

Ciao!
Uso ADO per gestire un DB Access e devo caricare una tabella che ha + di
65.000 record... E' molto lento, l'apertura del recordset e le operazioni di
update risultano veramente ingestibili.
Uso un DataEnvironment per la connessione generale al DB (tramite DSN), e su
questa connessione apro un Recordset, dandogli queste info:
With rec
    .ActiveConnection = Conn
    .Source = strSQL
    .CursorType = adOpenDynamic
    .CursorLocation = adUseClient
    .LockType = adLockPessimistic
    .Open
End With
Una volta aperto il recordset, lo associo come clone ad un DataControl, che
è bindato ad una griglia, faccio un refresh generale e... posso andarmi a
prendere un caffè e chiaccherare anche un po' con il barista. Insomma, la
tabella effettivamente è un po' pesantuccia, però visto che con DAO il
problema di lentezza non esiste, immagino di non aver settato bene qualcosa.
Help!
Luisa

 problema di lentezza non esiste, immagino di non aver settato bene
qualcosa.
A qualc1 però la cosa sta bene : al barista !
mi spieghi per quale motivo visualizzi 65.000 righe in una griglia ?
cerca di impostare qualche filtro da mettere nella SELECT in mdo tale da
ridurre l'insieme di record.
Usa magari le query parametriche on quelle 'on the fly' perchè sono
leggermente + veloci
Il tempo maggiore viene perso nel visualizzare i dati e non nel richiederli
al provider.
Comunque ... se dici che DAO è molto più veloce perchè non lo usi ?
Facci sapere ...
   Saluti

 Uso ADO per gestire un DB Access e devo caricare una tabella che ha + di
65.000 record... E' molto lento [...]
Penso che la lentezza sia da imputare più alla griglia che al motore di
database.
Che griglia usi? Non sarà mica la FlexGrid, vero?...


Aggiungo alle esatte considerazioni di Fox un'altra osservazione:
- usi un Dataenvironment per avere un recordset    :-((
- che poi _cloni_            :-(((
- bindi il clone su un Datacontrol     :-((((
... fare che scrivere tutti i dati su un file di testo e poi rileggerli al
contrario già che c'eri no?    :-P
Butta la dataenv, il datacontrol e fai una cosa tipo:
dim con as new adodb.connection
dim rs as new adodb.recordset
con.open  "tuastringadiconnessioneado"
with rs
    .CursorLocation = adUseClient
    .Open strSQL, con, adOpenStatic, adLockPessimistic
End With
set dgMiaDatagrid.recordsource= rs
e vedrai che:
- sarà sempre lento a causa della cursorlocatin client-side
- ma almeno 2 volte più veloce del giro dell'oca che fai fare ai dati...
ciao
ugo