mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Stampare caratteri di controllo

Come faccio a inviare sequenze di escape alla stampante?
Grazie
Luciano.

> Come faccio a inviare sequenze di escape alla stampante?
Li scrivi sulla porta... (vedi uso dei controlli MSComm, ecc.)
Ma scusa la domanda... a cosa servirebbero?!
                Ciao
                        Allanon

> Come faccio a inviare sequenze di escape alla stampante?
A> Li scrivi sulla porta... (vedi uso dei controlli MSComm, ecc.)
A> Ma scusa la domanda... a cosa servirebbero?!
Probabilmente per  stampare in maniera  molto piů veloce  ed efficente
che passando attraverso i driver di Windows. Ci sono stampanti ad aghi
che possono dare degli ottimi output sfruttando il loro firmware come
faceva la mia Epson LQ500.
--
Gian Uberto| main(){printf(&unix["\021%six\012\0"],(unix)["have"]+"fun"-0x60);}
Lauri      |                        David Korn, 1987 ioccc best one liner 
(aka saint)|-------------------------------------------------------------------
em@ail: 
sa...@eng.it
 ( vedere X-nospam nello header - see X-nospam in header )

 faceva la mia Epson LQ500.
Ma allora non lo fai in VB :)
            Ciao
                    Allanon

Mi serve a stampare dei documenti PDF con del testo inserito all'interno.
Li devo stampare con la laser e quindi mi serve il linguaggio PCL. Per
ottenere determinati effetti devo usare la stampante con delle sequenze di
escape. Ad esempio il carattere di form feed.
Comunque ho trovato un'articolo che spiega come fare.
http://support.microsoft.com/support/kb/articles/Q154/0/78.asp
Ciao e grazie.

 wrote in message
news:9gqa6i$267$1...@nreadA.inwind.it...

faqED :)
cIAOTUTTI,
aSTERIX

> faceva la mia Epson LQ500.
A> Ma allora non lo fai in VB :)
E che cavolo, se qualcuno fa MP3 in VB allora io posso fare uno di quei
bei tabulati che tanto fanno divertire l'amministrazione...
E farlo senza sprecare il tempo e le risorse che mi va sprecare il modo
di stampare di Windows.

Newsgroup: it.comp.lang.visual-basic
Titolo: wsock32.dll

ciao a tutti
Vorrei sapere dove potere trovare info dettagliate sulla dll wsock32
grazie a tutti
Alberto

>Vorrei sapere dove potere trovare info dettagliate sulla dll wsock32
Se ti interessa l'elenco delle funzioni delle socket io ho la guida in formato word, html e help.
Fammi sapere se ti interessa. Altrimenti su MSDN c'e' tutto (come al solito).
Antonio

Ciao
mi intereserebbe parecchio :)
lascia perdere le MSDN , me le ha mangiate il cane ...
se me le invii mi fai un grosso piacere
thx
-= bUd clUster =-


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Windows CE

Qualcuno sa dove si possono reperire informazioni su Windows CE
(programmazione in VB, VC, strumenti per lo sviluppo, pro e contro,
...)?
Grazie
Angelo

 wrote in message
3827E3BF...@yahoo.it...


...)?
www.wince.com
www.windowsce.com
sito microsoft dove si parla di Visual Basic Toolkit for Windows
----------------------------------------------------------
Paolo Hölzl
Gruppo Tekup Software developer (Bologna)
----------------------------------------------------------
ATTENTION!, antispam 
For reply, substitute xxx with gruppotekup

...)?
Usoft distribuisce ($$$) un Microsoft Windows CE Platform Builder  per
costruire un W.CE per diversi uP a 32 bit (oltre al X86 anche ARM,
MIPS, SHx, PowerPC). VB6 ha un add-on apposito, presente in MSDN, con
cui costruire applicazioni VB6 o Visual C++.
Pro e contro cosa? Non è una alternativa a Windows, è un so NON
derivato da W.95/98 nè da W.NT, che implementa un sottoinsieme di API
di W32, con i vantaggi in termini di sviluppo impliciti. E' mirato a
"embedded" (letteralmente: incassati) cioè a sistemi elettronici che
incorporano un uP, non a Pc veri e propri; ed infatti anche gli
Handheld stanno avendo un flop, schiacciati tra i tipo Psion, più
piccoli, e i subnotebook, che hanno W98 nello stesso ingombro o quasi.
E' destinato a client leggeri, chioschi e simili interfacce
uomo/macchina, controlli automatici industriali e non.
Attualmente non compete (per ammisione della stessa uSoft) con gli OS
Real Time, ma c'e' grande attesa per il 3.0.
uSoft ha iniziato ad investire anche in NT embedded, versione appunto
embedded di NT: credo che i chioschi, e in generale le interfacce
grafiche pesanti tra uomini e databases, impiegheranno queste; light
client, WCe; per il RealTime invece veri rtos.
http://www.microsoft.com/windowsce/developer
Microsoft Visual Basic 6.0 development system 
Microsoft Windows CE Toolkit for Visual Basic 6.0 
Microsoft Windows CE Platform SDK, Handheld PC Edition, version 2.0 
Both the development system and the toolkit are available through
standard retail channels; the SDK is distributed on the Windows CE Web
site.
Pietro
                  Check the address!  -->
pi...@tin.it
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB.NET] Ancora eventi in WORD

Il codice che mi hai dato, Corrado:
Private WithEvents moWd As Word.Application
 moWd = New Word.Application
 moWd.Visible = True
Private Sub moWd_Quit() Handles moWd.Quit
      Stop
End Sub
Mi dà il seguente errore:
'Quit' is ambiguous across the inherited interfaces 'Word._Application' and
'Word.ApplicationEvents4_Event'
Che devo fare?
Grazie per la mano...
Ninzo

A che cosa hai impostao il reference?, che versione di Word stai usando, il
codice che ho postato l'ho verifica quindi potrebbe essere qualcosa sul tuo
sistema...
HTH
-- 
Corrado Cavalli [Microsoft .NET MVP-MCP]
UGIdotNET - 
http://www.ugidotnet.org

 il codice che ho postato l'ho verifica quindi potrebbe essere qualcosa sul
tuo sistema...
Togliendo il reference a Word ed il pezzetto di codice il progetto gira.
Rimettendo il reference a Word ed il pezzetto di codice mi dà il famoso
errore, cioè non capisce bene se il Quit() si riferisce a
'Word._Application'
o a 'Word.ApplicationEvents4_Event' !!!!
Che cavolo è 'Word.ApplicationEvents4_Event' ???
E' una roba della beta? Posso escuderla in qualche modo? Fa parte di Word!
Grazie a chi mi saprà aiutare!

 ha scritto nel messaggio
news:bacnrj$s6nlp$1...@ID-130226.news.dfncis.de...

A me si presenta la seguente eccezione:
"Quit" è ambiguo nelle interfacce ereditate "Word._Application" e
"Word.ApplicationEvents2_Event"
Infatti quel "Word.ApplicationEvents2_Event" è strano.
In reference ho aggiunto:
Microsoft Word 9.0 Object Library  ; versione libreria dei tipi 8.1
(office 2000)
Se si utilizza l'istruzione AddHandler:
AddHandler btnAutomationWord, AddressOf
ApplicationEvents2_WindowActivateEventHandler
si notano dopo l'operatore AddressOf  i delegati per la gestione di eventi
ApplicationEvents2
-------------
a me si presenta anche un'altro problema,
dopo l' installazione su macchine di produzione, all'attivazione di Word
ottengo:
"Chiamata respinta dal chiamato"
e il tutto si blocca.
giuseppeD
Newsgroup: it.comp.lang.visual-basic
Titolo: Help: problema con CmdDlg32.ocx - URGENTE!

Ciao ragazzi,
quando avvio Visual Basic 6.0, mi dà un messaggio del tipo
"Failed to load control Common Dialog from CmdDlg32.OCX. Your version of
CmdDlg32.OCX may be outdated. ..."
E poi seguono altri mesaggi del tipo:
"Object variable or With block variable not set".
Inoltre, non riesco più a lanciare un mio progetto, mi dà errori simili
al secondo.
Cosa posso fare?
Dove posso prendere le ocx adatte a VB6?
Grazie.

 wrote in message
37B011C1...@hotmail.com...

Che ne diresti di fare a meno dell'OCX ComDlg32?
Sul Sito Comune (
www.murialdo.it/it_lang_vb/
) trovi un modulo di classe
scritto in VB6 che sostituisce (quasi totalmente) l'OCX di Microsoft.
Cerca ComDlg32.zip
--
Roal Zanazzi
z...@iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: [Meeting][15novembre 2003] Sono Aperte le Iscrizioni

Le votazioni si sono concluse, ora siamo passati alla fase di iscrizione che
terminera' il 5 novembre
Per iscriversi potete consultare il sito :
http://www.it-lang-vb.net/meeting/index.html
NB: TUTTI (lurker,poster,visitatori) Sono invitati e possono partecipare al
meeting a patto di iscriversi per tempo cosi da agevolare le prenotazioni al
ristorante.
Iscrivetevi numerosi, non vedo l'ora di abbuffarmi in compagnia !
-- 
-Gigio@Work(?)-

 
http://www.it-lang-vb.net/meeting/index.html
ehm...
meeting *primaverile*?
mi pare un po' troppo ottimistico ;-)
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 mi pare un po' troppo ottimistico ;-)
Cerca di imbrogliare quelli che hanno deciso loro malgrado di saltare il
meeting autunnale e hanno scritto "ci vediamo a quello primaverile"! :P

 primaverile"! :P
se serve per farvi venire allora lo lascio ! ^_^
-- 
-Gigio@Work(?)-

Newsgroup: it.comp.lang.visual-basic
Titolo: WP7 RAPI

esiste qualcosa di simile alle RAPI per win mobile da usare per pilotare 
Windows Phone 7?
Ho la necessità di comandare uno smartphone WP7 ad esempio per madare 
messaggi.
grazie

Ciao elmariachi,

puoi spiegare meglio lo scenario?
.m
-- 
Mauro Servienti
{C67C0157-5D98-4733-A75E-93CAEE4BADC8}
Microsoft MVP - Visual C# / MCTS
http://mvp.support.microsoft.com
blog @ 
http://milestone.topics.it
whynot [ at ] topics [ dot ] it

Avevo fatto un programmino semplice semplice, per pocketpc, comandabile 
via RAPI (remote api desktop). In pratica il programma sul pc mandava in 
esecuzione (a palmare connesso via ActiveSync), un programma che poi 
veniva pilotato mediante scambio di file xml. Fra le varie funzioni 
svolte c'era anche quella di madare degli SMS. Il palmare ovviamente 
aveva una sim.

Ciao elmariachi,

no, non c'è nulla di tutto ciò.


sig. :-(
Newsgroup: it.comp.lang.visual-basic
Titolo: visualizzare pagine html con VB5?

Esiste un sistema per visualizzare pagine html con VB5?
garzie per l'aiuto.

...


' ========== dichiarazioni
Public Function LanciaBrowser(Handle As Long, Indirizzo As String)
RetValue = ShellExecute(Handle, vbNullString, _
  Indirizzo, vbNullString, "c:\", _
  SW_SHOWNORMAL)
End Function
' ========== per lanciare il browser
LanciaBrowser Me.hwnd, "
http://www.paginaweb.it
"
spero tu intenda questo


Marco mille grazie per il tuo consiglio, ho aggiunto il Microsoft
Internet Control, ma come si usa? ho cercato di caricare un documento
di html come si fa per le immagini (con il picture o image box) ma
sento di essere un po' fuori strada senza un manuale.
Ho provato ad aggiungere il controllo WebBrowser ma non riesco a
trovare il modo di associarlo a nessun documento web, ho provato ad
aggiungere il FrmBrowser ad un nuovo documento Standard.exe,
ActiveX.exe ActiveXDocument.exe, ma non riesco a visualizzare nemeno
il form con F5, resta bloccato sul codice, tu hai già fatto qualcosa
di analogo?



Maurix, grazie mille anche a te, ma non volevo spingermi così avanti
anche perchè sono alle prime armi :), mi bastava visualizzare un
documento html esistente sul mio disco - ma penso che il sistema sia
lo stesso.
Ma dove devo mettere il tutto, su un nuovo progetto standard.exe,
ActiveX.exe, ActiveXdoc.exe, e in che oggetto verrà visulizzata la
pagina? 

...



Grandioso Marco, grazie mille, ci sono riuscito. ho però ancora un
piccolo problema con il setup wizard e magari sai darmi qualche altra
dritta: mi dice che il wizard non riesce a trovare le informazioni
dipendenti per il file c:\windows\system \shdocvw.dll, e se ignoro il
messaggio continuando il setup, poi installando mi appare il messaggio
"component shdocvw.dll not correctly registred, file is missing or
invalid. E' una libreria che centra col browser, nei sai niente?
E sempre con il wizard di VB5 ho un problema analogo che con il 4 non
avevo, è un programmino di visualizzazione immagini bmp che non ha
niente a che fare col browser  e da quando l'ho modificato col 5, dopo
aver ricreato il setup col wizard (durante il quale non mi da
problemi), installandolo il messaggio di errore è il seguente:
"Run-time error 713. Class not registerd. Looking for object CLISID
{0000100......}"
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] PopUp Menu & Barra del Titolo della Form

Correggetemi se sbaglio:
Se creo un PopUp Menu attraverso il Menu Editor, non posso eliminare la
barra del titolo della form anche settando BorderStyle=0 - No Border;
Se creo un PopUp Menu con le funzioni API, allora posso avere una form senza
barra del titolo.
    Grazie.
    Silvio.
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                Visita il Sito Comune
 
http://www.murialdo.it/it_lang_vb
~~~~~~~~~~~~~~~~~~~~~~~~~~~~

barra del titolo.
Prova!
per togliere la barra borderstyle non c'entra devi mettere la prop caption
=""
e controlbox a false
crei un menu invisibile e poi all'evento desiderato
PupUpMenu nomemenu
ciao stefano

 wrote in message
8jfa4f$vql$2...@pegasus.tiscalinet.it...

Ho provato e funziona benissimo!!
Grazie, non sapevo nemmeno che esistesse la ControlBox (se ho ben capito
dovrebbe essere quella parte della barra in cui appare l'icona della form e
che contiene il menų popup standard
Ripristina-Sposta-Ridimensiona-Riduci-ecc.)
    Ciao, Silvio.

Newsgroup: it.comp.lang.visual-basic
Titolo: [?]compatibilità ADO (MDAC2.7) e NT

Salve,
ho sviluppato un semplice applicativo che apre un DB (mdb) con ADO2.6,
usando MSjet4 come provider.
Sul mio PC (win2k sp2 pro ita)nessun problema.
Ho fatto il kit di installazione (installshield) e installato su un "winnt
wks eng sp6" funziona tutto ma quando uso la funzione che apre il DB
l'applicativo va in errore (overflow).
Oltre al mio applicativo ho installato il MDAC per ADO2.7  (il programma usa
il 2.6 ma sono compatibili o sbaglio?).
Può essere il fatto che uso il MSjet4?
per poter usare ADO cosa devo installare sul PC dove girerà l'applicativo?
Grazie
Davide

 Puň essere il fatto che uso il MSjet4?
No...
Non mi risulta siano compatibili, anzi sono piuttosto tanto differenti...
Installa anche la 2.6 cosě dovrebbe andare a posto un eventuale errore di
questo genere...
Perň...
Comunque non dovresti avere errori di overflow... :(
                Ciao
                                    Allanon
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Ricerca nei report

ciao a tutti
volevo chiedervi perchè la sub che ho scritto per effettuare una ricerca
all'interno del recordset aperto tramite dataenvironment non funziona
questa la sub
la scrivo nell'evento Activate perchè almeno ho tutti i recordset aperti
direttamente dal DE(almeno penso)
perchè non visualizza il report che ricerco? la mia ricerca serve per
ritrovare il numero di un ddt e poi visualizzarlo, dove c@@@o sbaglio
ciao e grazie a tutti
Private Sub DataReport_Activate()
Riprova:
    strMessaggio = InputBox("Digitare nella casella di testo sottostante" &
vbCrLf & "il numero del D.D.T. che si desidera stampare" & vbCrLf & "e
cliccare sul pulsante OK per averne l'anteprima", " Ricerca Documento Di
Trasporto...")
    If strMessaggio <> "" Then
       DE.rsDDT.Find "IDDocTra = '" & strMessaggio & "'"
    Else
        strAnswer = MsgBox("I parametri di ricerca inseriti non sono validi"
& vbCrLf & "cliccare sul pulsante ok per riprovare, su annulla per uscire",
vbInformation + vbOKCancel, " Errore in fase di ricerca")
        If strAnswer = vbOK Then
            GoTo Riprova
        Else: Exit Sub
        End If
    End If
End Sub
P.S. Perchè non organizziamo un bel cenone con tutti i partecipanti del
newsgroup ?

Ciao, prova a guardare la sintassi del metodo find,
comunque dovrebbe essere del tipo:
DE.rsDDT.Find ("IDDocTra = " & strMessaggio &, altri parametri che non
ricordo )
Comunque il dataenvironment e' un oggetto un po' particolare,
io ti consiglio di guardare gli oggetti ADODB.Connection e ADODB.Recordset
compatibili con il Datareport
Ciao
Davide

 wrote in message
8emj6j$g8h$1...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: VbYesNo sto impazzendo

Ciao raga ho un problemino stupido ke mi sta facendo impazzire:
allora ho un msgbox con vbYesno se la risposta č si deve fare una
determinata cosa se no ne fa un'altra, solo che con l'IF non riesco a
gestirlo mi sapreste aiutare???
vi invio un pezzo di codice per essere piů chiaro:
MsgBox ("scegli si o no?"), vbYesNo, ("prova")
            If vbYesNo = vbYes Then
                    MsgBox "hai scelto si"
            Else
                MsgBox "Hai SCELTO NO"
            End If
io mi aspetto che se all'msgbox clicco "si" allora entra nell'if altrimenti
fa l'else!!!!
Sbaglio qualcosa????

 Sbaglio qualcosa????
tutto
if msgbox("pippo", vbyesno) = vbyes then
    'faccio
else
    'faccio altro
end if
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo


Sě!
Se non assegni il valore di ritorno del Msgbox a nulla.....
tu stai facendo un confronto fra 2 costanti diverse di vb
ciaociao


Ok grazie Risolto.....
Newsgroup: it.comp.lang.visual-basic
Titolo: Random

Ho scritto del codice per generare numeri casuali da 1 a 10, però una volta
uscito un numero vorrei che quel numero non uscisse più.Come si può fare?

 uscito un numero vorrei che quel numero non uscisse più.Come si può fare?
Crei una matrice da 1 a 10 di tipo booleano: DIM NUMERI(1 TO 10) AS BOOLEAN
quindi all'uscita del numero random cekki il valore della matrice: NUMERI
(valore uscito) = TRUE
a quel punto all'uscita del numero random fai un ciclo sulla matrice e
verifiche se è TRUE o FALSE
se è TRUE richiedi un'altro numero altrimenti ok...
Ciao
Pixel
p.i....@katamail.com
http://vbios.cjb.net

 uscito un numero vorrei che quel numero non uscisse più.Come si può fare?
Anni fa feci un programma per la tombola. Creai un metodo che, adattato al
tuo caso, diventa (piu' prolisso del necessario per evidenziarti meglio i
passaggi):
   Dim i As Integer
   Dim v(9) As Integer
   Dim n As Integer
   Dim ne As Integer
   Dim r As Integer
   For i = 0 To 9
      v(i) = i + 1
   Next
   n = 9
   Randomize Timer
   Do Until n < 0
      r = Int(n * Rnd)
      ne = v(r)
      Debug.Print ne;
      v(r) = v(n)
      n = n - 1
   Loop
   Debug.Print
Ciao.


Dim Arr(0 to 9) as integer
Dim NumElementi as integer
Private Sub InizializzaArr 
	Dim I as integer
	For I =0 to 9
		Arr(I) = I+1
	next I
	NumElementi = 9
end sub 
Private Sub TogliElementi(byval Elem as integer)
	Dim I as integer
	Dim Trovato as boolean
	Trovato = False
	For I = 0 To (NumElementi -1)
		if not Trovato then 
			if Arr(I) = Elem
				Trovato  = true
				Arr(I) = Arr(I+1)
			end if
		else
			Arr(I) = Arr(I+1)
		end if
	next I
	NumElementi = Numelementi -1
end sub	
Dopo di che fai il random tra 0 e numElementi e utilizzi il valore
ritornato come indice dell'array!
Ciao
Fabio

"Puntino ."  ha scritto:

Se poi non ti piace usare gli array, prova pure questa:
   Dim v As String
   Dim ne As Integer
   Dim r As Integer
   Dim l As Integer
   v = "01020304050607080910"
   Randomize Timer
   l = Len(v)
   Do While l
      r = Int(l / 2 * Rnd + 1)
      ne = CInt(Mid(v, r * 2 - 1, 2))
      Debug.Print ne;
      Mid(v, r * 2 - 1, 2) = Right(v, 2)
      v = Left(v, Len(v) - 2)
      l = Len(v)
   Loop
   Debug.Print
Ciao.

       v = Left(v, Len(v) - 2)
Naturalmente qui poteva anche essere :
v = Left(v, l - 2).
 Accidenti., queste L minuscole sembrano delle cifre 1. La prossima volta
userò sempre le maiuscole!!:)

 ha scritto nel messaggio
news:3d16e4c6...@news.fastwebnet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] Inet sempre StillExecuting

Devo sistemare un vecchio giocattolino che avevo in VB6.
Il software deve in sostanza collegarsi a un server FTP e cancellare un 
determinato file (beh, in realtï¿œ deve fare mille altre cose, ma 
rendiamo il problema circoscritto).
Per farla breve, usando Inet (MSInet.Ocx 6.1.98.16), il controllo si 
connette, riesce a fare la dir della cartella, ma se provo a eseguire 
il Delete del file, non scatta MAI l'evento Statechanged, e 
StillExecuting resta sempre vero...
Per semplicitï¿œ, ho messo un commandbutton nella form:
Private Sub Command1_Click()
Inet1.Execute , "DELETE TEST.TXT"
Do While Inet1.StillExecuting
    DoEvents
Loop
End Sub
Una cosa banale banale, non c'ï¿œ nessun on error quindi tutto esegue, 
lato VB6, senza errori.
Perï¿œ il loop va avanti all'infinito.
Ho anche messo un breakpoint nell'evento statechanged di Inet1. Il sw 
si arresta a tale breakpoint durante la fase di connessione e di Dir, 
ma non ci entra mai per il Delete.
Ho anche modificato lo statemente DELETE con DELE o DEL, e ho anche 
provato a indicare un nome file non esistente, ma il risultato ï¿œ lo 
stesso.
Dopo lungo giro di google, non mi resta che chiedere se qualcuno ï¿œ a 
conoscenza di bug noti.
Sistema operativo XP-SP3, sviluppo VB6-SP6 + Cumulative Update 2009.
Ciao
Alberto

 End Sub
A me questo funziona:
    Inet1.Protocol = icFTP
    Inet1.URL = mpFtpUrl
    Inet1.UserName = mpFtpUsername
    Inet1.Password = mpFtpPassword
    AttendiInet1
    Inet1.Execute "", "DELETE " & mElencoImpFile(i)
    AttendiInet1
    Inet1.Execute "", "Close"
Sub AttendiInet1()
    While Inet1.StillExecuting: DoEvents: Wend
End Sub
Mi ricordo che senza le prime righe di codice avevo avuto qualche
problemino qualche volta. E non vorrei dire stupidaggini ma anche con
qualche host ho avuto qualche differenza di comportamento.

Il 03/06/2010, Andrea [Work] ha detto :

Sostanzialmente il mio codice è identico.
Anzi, a scanso di fraintendimenti, ho copiaincollato il tuo codice nel 
mio software.
Però AttendiInet1 non termina mai...
Alberto
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Crystal Report - Modifica formato campi

Salve,
ho scritto con VB5 una utility che stampa un report realizzato con il
Crystal Report fornito in dotazione (4.6.1.0)
Mi piacerebbe trovare il modo per modificare in fase di esecuzione il
formato di alcuni campi del report, in particolare devo impostare il
numero di cifre decimali stampabili.
Nell'help in linea non ho trovato nulla. Si può fare?
-- 
Letizia

 wrote in message
news:39c0566d....@news.tin.it...

Non credo si possa fare da VB, lo puoi fare dall'interno del report (pero'
non so se la versione 4.6.10 lo permette...)
Nella scheda di formato del campo, a fianco del campo dove si specificano i
decimali, c'e' un bottone che permette di inserire una formula, tramite la
quale si puo' condizionare il n.di decimali stampabili, 
ad.es
. a seconda
della valuta del documento...
Ciao.
Lorenzo

della valuta del documento...
Ciao, grazie per la risposta. Purtroppo dovrei proprio modificare
quella proprietà in fase di esecuzione in quanto potrei avere valute
diverse (Lira, Euro, FF, eccetera) volta per volta indipendentemente
dal settaggio della valuta di sistema. Però l'idea della formula non è
malvagia, potrei portarmi sul report una variabile con il numero delle
cifre decimali e usare quella. Adesso ci provo.
Grazie ancora,
-- 
Letizia
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con MDAC_TYP

Ho completato un programma che si interfaccia ad un db tramite tecnologia
ADO.
Ho cercato di installarlo su dei computer di prova ma accadono cose strane!!
Installo prima MDAC_TYP, se alla fine mi chiede di riavviare il computer
allora posso installare il mio programma e tutto funziona
correttamente,altrimenti il mio programma non girerà mai,anche se faccio
3000 installazioni.
Sapete come posso uscire da questa situazione?
Spero di essere stato chiaro...
Aiutatemi
FormW@re

 ha scritto nel messaggio
news:DbZw6.3966$Oz4....@news2.tin.it...


Faccio prima l'installazione di MDAC_TYP,se mi chiede di riavviare il
computer posso anche installare il mio software sapendo che funziona,
altrimenti( se alla fine dell'installazione di MDAC_TYP) non mi dice di
riavviare il PC anche se installo il mio programma quest'ultimo non
funzionerą.
Aiutami ti prego sto impazzendo
FormW@re

 ha scritto nel messaggio
news:XlZw6.3991$Oz4....@news2.tin.it...


 Su che SO hai problemi?
su windows 98 SE

 su windows 98 SE
Cosa usi? ADO, DAO, sui pc è installato access?
Incomincio ad essere a corto di idee.......
fgmac

 Incomincio ad essere a corto di idee.......
Uso ADO
Preferisco non usare le ultime cose di Mamma Microsoft non si sa mai

 ha scritto nel messaggio
news:jGZw6.4050$Oz4....@news2.tin.it...


Ho installato Office 2000 Access è installato.
Visto che DAO non è supportato nella versione 2.6 della MDAC_TYP preferisco
non installlarlo.

Ho visto che sulla mia macchiana ( cioè quella di sviluoppo ) è installata
MDAC_TYP 2.5 RTM.
Sul Pc sul quale sto cercando di installare la mia applicazione è invece
installata la Versione in Italiano.
Forse è un problema di versione di  file.
La cosa bella è che una volta installata una versione di MDAC_TYP non posso
piu disinstallarla.
FormWare

Ho installato il mio programma su una macchina che aveva la stessa versione
di MSDAC_TYP ma mi da il seguente errore:
Errore di run-time 
2147217843
 {80040e4d}
Autenticazione non riuscita
AIUTATEMI VI PREGO

 Come faccio a sapere che versione di MDAC_TYP č installato sul PC?

Newsgroup: it.comp.lang.visual-basic
Titolo: Come compilare a 64 bit

In attesa della soluzione al problema del primo post, ho provato ad 
installare Visual Basic 2010 Express.
 
Ho provato a fare una piccolissima applicazione con questo codice:
 
Public Class Form1
 
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button1.Click
         Dim readValue = 
My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\NOMEAPP", 
"TEST", Nothing)
         MsgBox("The value is " & readValue)
     End Sub
End Class
 
 
 
 
Purtroppo restituisce una stringa vuota.
Io immagino che questo avvenga perchï¿œ l'applicazione non ï¿œ compilata a 
64 bit.
Come posso fare per compilarla a 64 bit?
 
Grazie in anticipo.

 Purtroppo restituisce una stringa vuota.
 
readValue ï¿œ un tipo Object, non una stringa. Prova readValue.ToString 
quando devi visualizzare.
 
-- 
Saluti
VITRIOL

 Come posso fare per compilarla a 64 bit?
 
Prova da Compila > Gestione configurazione... a creare una nuova 
piattaforma x64
 
-- 
Saluti
VITRIOL


 
 
Mi sa che la versione Express di VB2010 non abbia questo menu.
Nei menu in alto non c'ï¿œ nessun "Compila"....
 
Puoi spiegarmi meglio dove trovarlo?

 Nei menu in alto non c'è nessun "Compila"....
 
Sono impostazioni relative al progetto, quindi devi aprire un progetto 
per vederle.
 
-- 
Saluti
VITRIOL

 per vederle.
 
PS
Oltre a questo c'ï¿œ la spunta in Strumenti > Opzioni... > Mostra tutte le 
impostazioni e poi in Progetti e soluzioni > Generale > Mostra 
configurazioni della build avanzate?
 
-- 
Saluti
VITRIOL


Ho installato la trial di Visual Studio Ultimate ed ho trovato 
esattamente il percorso da te descritto.
Ora sembra funzionare e riesco leggere il registro senza problemi.
 
Spero solo di riuscire a famigliare presto con VB STUDIO che per quanto 
simile non ï¿œ identico a VB....
 
Grazie per l'aiuto!

 esattamente il percorso da te descritto.
 
Veramente anch'io ho la Express...
 
-- 
Saluti
VITRIOL


 
Ti ringrazio per la risposta, ma ti devo chiedere di essere un po' piï¿œ 
preciso in quanto non riesco trova il modo per compilare a 64 bit con VB 
Express.
 
Ho trovato e quindi abilitato l'opzione "Mostra
configurazioni della build avanzate"
 
Non ho invece trovato "Mostra tutte le
impostazioni"....
 
Potresti aiutarmi a trovarla? dov'ï¿œ esattamente?

 Express.
 
Guarda, io qui ho VS 2012 Express. Guarda gli screenshot:
 
http://i.imgur.com/Pdnb5F1.png
 
http://i.imgur.com/xaAE6Vl.png
 
http://i.imgur.com/AjCCjev.png
 
 
-- 
Saluti
VITRIOL


 
Ok sono le stesse che vedo in VB2012 Ultimate.
 
Io ho VB2010 Express che ha dei menu molto diversi.
Ora scarico VB2012 Express e riprovo...
Newsgroup: it.comp.lang.visual-basic
Titolo: Come si usa l'API "AddPrinter"?

Qualcuno lo sa? Se mi postate il codice per utilizzarlo è ancora meglio
Grazie
Marco

Qualcuno lo sa? Se mi postate il codice per utilizzarlo č ancora meglio
Anch'io dovrei installare una stampante da codice, ma mi sono
arenato.. ti mando il codice a cui ero giunto, se riesci ad ottenere
qualcosa fammi sapere!
Oltre ad AddPrinter devi usare anche AddPrinterDriver; qualcosa come:
Declare Function AddPrinter Lib "winspool.drv" Alias "AddPrinterA"
(ByVal pName As Long, ByVal Level As Long, pPrinter As Any) As Long
Declare Function AddPrinterDriver Lib "winspool.drv" Alias
"AddPrinterDriverA" (ByVal pName As String, ByVal Level As Long,
pDriverInfo As Any) As Long
Private Type PRINTER_INFO_2
        pServerName As Long 'String
        pPrinterName As Long 'String
        pShareName As Long 'String
        pPortName As Long 'String
        pDriverName As Long 'String
        pComment As Long 'String
        pLocation As Long 'String
        pDevMode As Long ' DEVMODE
        pSepFile As Long 'String
        pPrintProcessor As Long 'String
        pDatatype As Long 'String
        pParameters As Long 'String
        pSecurityDescriptor As Long 'SECURITY_DESCRIPTOR
        Attributes As Long
        Priority As Long
        DefaultPriority As Long
        StartTime As Long
        UntilTime As Long
        Status As Long
        cJobs As Long
        AveragePPM As Long
End Type
Private Type DRIVER_INFO_2
        cVersion As Long
        pName As String
        pEnvironment As String
        pDriverPath As String
        pDataFile As String
        pConfigFile As String
End Type
Function AddString(strString As String, ByRef bBuffer() As Byte) As
Long
    Dim lngEnd As Long
    lngEnd = UBound(bBuffer) + 1
    Do
        lngEnd = lngEnd - 1
    Loop While (bBuffer(lngEnd) = 0 And lngEnd > 0)
    lngEnd = lngEnd + 2
    lstrcpy VarPtr(bBuffer(0)) + lngEnd, strString
    AddString = VarPtr(bBuffer(0)) + lngEnd
End Function
Function AddMyPrinter(PrinterName As String, DriverName as String) As
Boolean
Dim bBuffer(1000) As Byte, i As Long
Dim pi2 As PRINTER_INFO_2, pH As Long
Dim pdi2 As DRIVER_INFO_2
With pdi2 
  .pName = DriverName
  .cVersion = 3  ' per windows 2000
  .pEnvironment = "Windows NT x86"  ' per windows 2000
  .pDriverPath = "TTY.DLL"
  .pDataFile = "TTY.DLL"
  .pConfigFile = "TTY.DLL"
End With
i = AddPrinterDriver("", 2, pdi2)
With pi2
  .pPrinterName = AddString(PrinterName, bBuffer)
  .pPortName = AddString("LPT1:", bBuffer)
  .pDriverName = AddString(DriverName, bBuffer)
  .pPrintProcessor = AddString("WinPrint", bBuffer)
End With
pH = AddPrinter(0, 2, pi2)
If pH <> 0 Then
  ClosePrinter pH
  AddMyPrinter = True
Else
  AddMyPrinter = False
End If
End Function
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con prg. in VB ed Access 2000

Salve,
ho fatto un programma che esegue alcune operazioni leggendo e scrivendo in
un database access 2000 piuttosto intensamente; ebbene ho notato la seguente
cosa: si verificano delle anomalie casuali! mi spiego meglio: cliccando su
un pulsante in un form vengono scritte un bel pò di righe in una tabella del
db e subito dopo vengono lette per essere elaborate; ebbene il risultato
ottenuto, a partità di codice, mi da un cert risultato il 90% delle volte ed
un risultato diverso il restante 10%!!! come mai questa casualità? è dovuta
al fatto che quando scrivo in una tabella il file access non viene
immediatamente elaborato?
Utilizzo ADO, jet 4.0.
Grazie.

 bel pò di righe in una tabella
come le scrivi le righe? agendo direttamente su un recordset o tramite
istruzioni sql?

 istruzioni sql?
Le scrivo e le leggo direttamente con istruzioni sql dirette.
Grazie.
Ciao.

 Ciao.
ciaociao

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Un NG su XML

Ciao,
ho scoperto un NG su XML.
Per adesso è l'unico in italiano.
Se alcuni di voi sono interessati...
free.it.lang.xml

 Per adesso č l'unico in italiano.


Newsgroup: it.comp.lang.visual-basic
Titolo: consiglio a neofita.

Buongiorno.
Sto tentando di apprendere i rudimenti di visual basic partendo dalla suite
visual 6.0.
Ho il problema di come riuscire a gestire i miei database access 2000 e XP
con la suddetta versione visual basic.
Credo ci sia un problema legato al fatto che visual basic 6.0 non riesce a
riconoscere i miei database in quanto creati con un sw successivo.
Non so come fare per l'aggiornamento.
Grazie in anticipo per i consigli.
Ivan.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


Ciao ivan,
hai scaricato tutte le ultime service pack di VB?
Prova qui:
http://www.microsoft.com/downloads/details.aspx?FamilyID=9ef9bf70-dfe1-42a1-
a4c8-39718c7e381d&displaylang=en
Cinzia

 con la suddetta versione visual basic.
esattamente, che cosa intendi con "ho il problema di come riuscire a
gestire"?
ci hai provato e non ci sei riuscito?
che cosa ti ha detto il tuo computer quando ci hai provato?
come hai fatto a provare?
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Ciao. Il problema l'ho avuto anche io. Esistono due, diverse soluzioni.
1) Eviti MsAccess per appoggiarti a qualche altra sorgente di dati. Ciò 
ovviamente implica uno sforzo notevole di programmazione
2) Se utilizzi MS Access 2003 dopo aver creato il DB lo converti in un 
formato precedente e tutto funziona.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Toolbar

Come di norma:
1. creo una imagelist con una serie di icone .ico a 256 colori
2. creo una toolbar con una serie di bottoni agganciata alla imagelist
risultato:
dopo un certo numero di bottoni le icone subiscono una perdita di
definizione nel colore, come se ci fosse una palette limitata a disposizione
e dovesse adattarsi a tutte le icone presenti.
Grazie per eventuali aiuti, ciao
Francesco

 e dovesse adattarsi a tutte le icone presenti.
Stai usando VB5? Se sě, sappi che anche a me succedeva la stessa cosa, con il
treeview. Aggiornando a VB6 il bug č scomparso.
Flavio Ronco
--
f.ronco@*NonMiServeNiente*
flashnet.it
http://www.metabrains.com
  [Under Construction]
-------------------------------------------------------------
"Che pubblico in gamba! Se ci dite dove lavorate,
domani mattina se abbiamo tempo vi veniamo a vedere"
[Paolo Rossi]
Newsgroup: it.comp.lang.visual-basic
Titolo: Combobox: problema stupido ma sto impazzendo

Scusate la domanda credo stupida: ho un valore di default, carico un tot di
valori in un combobox e devo rendere selezionato il valore di default (che
cambia volta per volta perchè varia a seconda dell'utente).
Come posso fare?
Ho provato a giocare con le varie proprietà .count, .list, listindex etc ma
niente da fare, all'inizio è sempre selezionata la stringa vuota.
Grazie a tutti in anticipo.

Risolto, 'ste ferie mi hanno un po' arrugginito.
Grazie comunque.
For X = 0 To Principale.professione.ListCount
   If UCase(Trim(Principale.professione.List(X))) = UCase(Trim(valore_def))
Then Principale.professione.ListIndex = X
  Next X

Veramente,a me impostando la proprieta' ListIndex a 0 funziona perfettamente.Mi
posiziona la combo alla prima opzione.Occhio pero' che se la combo e' vuota ti
da' errore!




meglio se fai 
For X=0 to Principale.professione.listcount-1

Newsgroup: it.comp.lang.visual-basic
Titolo: Help salvataggio progetto e variabili...

Ciao a tutti,
mi kiamo Antonio e sono un novellino del VB...
Ho avuto qualche esperienza di programmazione ad oggetti utilizzando però
l'approccio alla gui del Matlab...
Ora xò voglio fare il salto di qualità e passare al VB, aspettatevi quindi
da me domande stupide (per voi naturalmente...) e, presumibilmente, di
semplice soluzione.
Ecco i primi quesiti che vi pongo:
1. Sto mettendo a punto una gui costituita da 5 form, al fine di salvare il
tutto come un unico progetto devo creare un progetto MDI necessariamente?
Fino ad ora ho creato solo progetti SDI aggiungendo via via che mi servivano
i form vari, quindi al momento del salvataggio sono costretto a salvare i
form singolarmente (o almeno credo che questa sia la procedura corretta dat
che salvando solo il progetto non ho risultati);
2. Avendo necessità di passare delle variabili da un form all'altro, come
posso implementare la procedura di dichiarazione e successivamente storing
di variabili globali? Intendo dire qual'è la sintassi corretta?
Grazie sin d'ora per le risposte,
Ntonjfi

 di variabili globali? Intendo dire qual'è la sintassi corretta?
Anche se ci saranno sonore critiche, la via più comoda è quella di
dichiarare le variabili come Public in un modulo (BAS). Saranno visibili
all'intero progetto. In alternativa puoi dichiarare variabili nella sezione
dichiarazioni di un form e riferirti alle stesse con
Nome_form.Nome_variabile

dichiarare le variabili come Public in un modulo (BAS). 
Eccone una ;-)
Che succede se si vogliono aprire piu' istanze dello stesso form?
-- 
ciao, hal

 Che succede se si vogliono aprire piu' istanze dello stesso form?
Non lo farò mai, comunque quanto mi hai segato ( ;-PPP) non può risolvere?


Nome_form.Nome_variabile"
Purtroppo no: servirebbe 
Istanza_form.Proprieta' 
;-)
-- 
ciao, hal

 Istanza_form.Proprieta'
Ecco, non lo farò mai. ;-))

Ecco, non lo farò mai. ;-))
Mai dire mai ;-)
Anch'io avevo detto cosi' a proposito di Lotus Notes.
Seppur turandomi il naso, un centinaio di righe
di lotus script le ho scritte anch' io :-PPP
-- 
ciao, hal

 [cut]

Newsgroup: it.comp.lang.visual-basic
Titolo: Tasti funzione

Come utilizzare i tasti funzione?
Nel senso che vorrei lanciare una routine alla pressione
di un tasto funzione es. F8
ma non riesco a catturarlo.
Con gli altri tasti non ho problemi, usando il codice ASCI.
Grazie per l'aiuto 

 ha scritto nel messaggio
news:V17ld.5935$n%2.5...@tornado.fastwebnet.it...


 ha scritto nel messaggio 
news:cn3035$jpg$1...@atlantis.cu.mi.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Re: Nuovo di visual basic

 trovarla mi faresti il favore di dirmi come?
Gia' in VB6 una lista del genere sarebbe stata poco pratica, ora a maggior 
ragione e' improponibile, perche' tutte le classi del framework contengono 
migliaia di metodi e proprieta'; la guida in linea ti da la possibilita' di 
navigare in maniera strutturata (dato uno spazio di nomi puoi vedere i tipi 
contenuti, per ciascuno vedi tutti i membri, i quali a loro volta hanno un 
loro tipo di cui puoi vedere i dettagli e cosi' via) oppure di cercare 
direttamente quello che ti interessa...
Ciao
-- 
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown 

 Andrea 

 Grazie a chi mi risponde.
Hai già guardato sulla guida in linea?
Non dire che non l'hai perchè stavolta l'anno inclusa nell'sdk e non solo 
nel 3° CD che non viene mai copiato ;)
Ciao 

 utilizzo?(una specie di vocabolario,insomma)
Rotfl.
N+1.
Andrea

 ha scritto nel messaggio 
news:3aapnjF...@individual.net...


Salve,
Visto che sto cercando di imparare il visual 
basic.net
 esiste una lista di 
tutte le variabili e di istruzioni con le relative spiegazioni di 
utilizzo?(una specie di vocabolario,insomma)
Grazie a chi mi risponde.
-- 

 E CIOE'?
Cioč non č possibile che ogni 2x3 esca fuori qualcuno che
chiede cose come quella, ampiamente dibattute e per le quali
esiste una larga base di riferimenti su Google e/o nei manuali,
libri di programmazione, ecc.
E' esasperante vedere post di quel tipo, perché veramente c'č da
chiedersi se vale la pena continuare a frequentare i gruppi ed
aiutare chi *davvero* abbisogna di aiuto.
Non si puň continuare cosě, perché č deprimente.
Ciao,
Andrea
Newsgroup: it.comp.lang.visual-basic
Titolo: UserDocument su intranet:Come fare?

Ciao sono Massimiliano da Roma, ho scritto un'applicazione per l'utilizzo in
rete, ora, desideravo utilizzarla anche in intranet. Seguendo le istruzioni
dei manuali ho convertito i forms, in UserDocument. Mandandola in esecuzione,
con Explorer3 l'applicazione è funzionante senza nessun problema. Utilizzando
l'autocomposizione installazione, creo "installazione scaricamento Internet,
finita l'operazione, se lancio l'applicazione e chiamo il file HTML generato,
sulla mia macchina funziona regolarmente, mentre se eseguo la stessa
operazione su un'altra macchina collegata in rete non funziona.
Sulla macchina collegata in rete va fatta un'installazione?
Il problema è sul file delle dipendenze?
La mia intenzione era quella di poter utilizzare quest'applicazione in
intranet evitando, in caso di modifica del programma, di dover rifare le
installazioni. Tutto ciò è possibile?
Ringrazio vivamente
COL...@XPLORE.IT
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/
       Search, Read, Discuss, or Start Your Own    

Massimiliano,
Nel' autocomposizione installazione c'e' un'opzione dove indica se scaricare
o meno i runtime dal sito microsoft.
Probabilmente hai scelto di scaricare i files da M$ (e' il default). per cui
non ti funzia dove i runtime non ci sono.
Se e' cosi' rifai il setup cambiando questa opzione...
ciao,
Alessandro Scardova
scar...@tin.it
http://space.tin.it/computer/ascardov/

Newsgroup: it.comp.lang.visual-basic
Titolo: problemi con datareport

ciao
ho una funzione che crea una tabella temporanea e poi attiva un datareport

 ho una funzione che crea una tabella temporanea e poi attiva un datareport
Bene. E allora?
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Come applicare a piu' oggetti lo stesso evento - con Sorgente

SALVE!
sto sviluppando un programma per l'introduzione dei dati: es. rubrica
telefonica.
Vorrei fare in modo che alcuni TextBox relativi convertissero in
automatico il testo in maiuscolo. come fare? Non mi piace la soluzione
di creare tante righe di codice (tutte uguali) una per ogni evento
legato alla TextBox del tipo (vedi sotto)
ATTENZIONE! non e' detto che tutti i TextBox del form debbano
soddisfare questo controllo!
Private Sub txtCitta_KeyPress(KeyAscii As Integer) OR _
                        txtIndi_KeyPress(KeyAscii As Integer)
Pensavo di creare un array contenente il nome dei TextBox che mi
interessano, ma come posso sostiutire l'informazione txtCitta con
fieldText(j)_keyPress(....)
Grazie anticipatamente
PFM
Private Sub txtIndi_KeyPress(KeyAscii As Integer)
  'PER FAR SCRIVERE TUTTO MAIUSCOLO NEL MOMENTO IN CUI SI DIGITA
  Char = Chr(KeyAscii)
  KeyAscii = Asc(UCase(Char))
End Sub
lo stesso va bene anche per txtCitta, txtNominativo, ecc.
--
To reply please remove from e-mail 'xyz'- Per rispondere togliere 'xyz' dall'indirizzo e-mail.


poni un controllo sulle textbox che vuoi
If index = 1 or index = 3 ecc. then
        ' e fanno ciò che vuoi
      Char = Chr(KeyAscii)
      KeyAscii = Asc(UCase(Char))
end if
-----------------------------------
Paolo Spellani
TecnoGraphica s.r.l.
FOLIGNO (Pg) - ITALY
-----------------------------------

  KeyAscii = Asc(UCase(Char))


Ciao.
Corrado ha quasi ragione: non esiste un messaggio EM_xxxxx, ma esiste uno
stile di finestra ES_UPPERCASE. Il tuo problema si risolve con le seguenti
linee di codice:
Dichiarazioni:
Option Explicit
Private Const GWL_STYLE& = (-16)
Private Const ES_UPPERCASE& = &H8&
Private Declare Function SetWindowLong& Lib "user32" Alias "SetWindowLongA"
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)
Private Declare Function GetWindowLong& Lib "user32" Alias "GetWindowLongA"
(ByVal hwnd As Long, ByVal nIndex As Long)
Dim oldStyle As Long
'// qual è lo stile corrente?
oldStyle = GetWindowLong(text1.hwnd, GWL_STYLE)
'// aggiungiamo lo stile ES_UPPERCASE
SetWindowLong text1.hwnd, GWL_STYLE, oldStyle Or ES_UPPERCASE
Da questo momento tutto quelli che scrivi nella textbox text1 sarà in
maiuscolo.
Quando hai finito, se hai bisogno di riportare le cose come stavano prima,
questa è la linea che ti serve:
SetWindowLong text1.hwnd, GWL_STYLE, oldStyle
Beninteso, avrai avuto cura di salvare oldStyle in una variabile globale o
in qualche altro modo.
Saluti,
Domenico


Era quello che intendevo,solo che non avevo la bibbia (Appleman) sottomano.
Complimeti Domenico!
Ciao
Corrado


 E le il testo lo incollo dagli appunti???
a questo punto l'evento keypress non e' invocato.
sarebbe meglio gestire l'evento change per sicurezza.
ES nell'evento change
Text1 = UCase(Text1)
Text1.SelStart = Len(Text1)
e cosi' si elimina il problema della clipboarb
ciao
prodigy2
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] text-boh? vers1.1

Innanzitutto grazie per le spiegazioni relative alla domanda versione 1.0.
La variante di questa volta e:
se io non avessi intenzione di aprire outlook et similia ma volessi spedire
messaggi dal mio prog. (senza che questa sia la sua f(x) principale), potrei
farlo? e come??
Inoltre ho provato a dichiarare la var Address e poi:
mailto:
Address
?body="testo di default"
ma...nulla: errore di sintassi.
Come posso fare allora a mandare 'sta benedetta email con testo predefinito?
ciao
           Andrea

 Come posso fare allora a mandare 'sta benedetta email con testo
predefinito?
se posti il codice si può vedere dove genera errore (magari indica la
riga..). spinto dalla curiosità, ho fatto questa funzioncina:
Public Sub SendMail(ByVal strAddress As String, _
    Optional ByVal strCC As String = "", _
    Optional ByVal strSubject As String = "", _
    Optional ByVal strBody As String = "")
    Dim strComando As String
    strComando = "start mailto:" & strAddress & _
        "?SUBJECT=" & Chr$(34) & strSubject & Chr$(34) & _
        "&BODY=" & Chr$(34) & strBody & Chr$(34) & _
        "&CC=" & strCC
    Debug.Print strComando
    Shell strComando, vbHide
End Sub
basta che la chiami così:
SendMail "
primodes...@yahoo.it
", _
    "
inc...@miao.com
", _
    "Oggetto della Mail", _
    "Corpo del Messaggio"
gli ultimi tre parametri non sono obbligatori
Ciao    :-)
Faber

trovi un'esempio di come si fa, sennň non ho capito    :)
Newsgroup: it.comp.lang.visual-basic
Titolo: interruzione di un ciclo

ho affrontato questo problema con alcuni amici programmatori e pare che la
cosa migliore da fare quando si vuole interrompere un ciclo For..Next sia il
DoEvents..
però mi chiedo... non era più semplice permettere che a qualunque livello di
codice e sotto qualsiasi routine con una semplice istruzione come quella del
caro vecchio QB.... IF Inkey$=chr$(27) Then Exit For si potesse interrompere
il ciclo ??
anche attivando l'istruzione KeyPreview del form non si ottiene il risultato
desiderato. Per cui si utilizza il DoEvents ... ecc ecc
a presto
Davide Greco    
dav...@tin.it


Se ci pensi sono esattamente la stessa cosa 
1) IF Inkey$=chr$(27) Then ..... -> interrompi la tua elaborazione e
controlla se qualcuno ha premuto un tasto e se il tasto e' 'ESC' allora
esci dal ciclo
2) DoEvents    (con annessi controlli) -> interrompi la tua elaborazione
e controlla se qualcuno ha in qualche modo generato un evento ( come la
pressione di un Button 'Stop' ) che indichi al programma di terminare
l'elaborazione del ciclo
Marco Colandrea

si che sono la stessa cosa.... ma con il VB quell'istruzione non viene
accettata!!!
è questo il grosso limite.. per riconoscere la pressione di un tasto e
quindi eventualmente interrompere un ciclo quell'istruzione in VB non va
bene....
ciao Davide


accettata!!!
E' vero che non esiste l'istruzione inkey$, ma puoi riuscire a simularla
usando la key preview di un form....
Ciao
Daniele


neanche cosě funzionerebbe... infatti il ciclo For Next viene portato a
termine anche se prendi la tastiera a martellate :-))
invece bisognerebbe poter interrompere il ciclo.. e qui pare che la
soluzione migliore sia quella di ricorrere al DoEvents
ciao Davide

soluzione migliore sia quella di ricorrere al DoEvents
Infatti... Io dicevo solamente che volendo l'istruzione Inkey$ si puň
simulare, certo comporta anche l'inserimento di un doevents nella routine
for next
Esempio:
Dim inkey$
Private Sub Command1_Click()
inkey$ = ""
Dim f As Long
For f = 1 To 10000
Me.Caption = f
DoEvents
If inkey$ = "s" Then Exit For
Next f
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
inkey$ = Chr(KeyAscii)
End Sub
Ciao
Daniele

Newsgroup: it.comp.lang.visual-basic
Titolo: Invio di info al web

Vorrei aprire il browser internet ed inviare ad una pagina prestabilita
(
www.freemail.it
) il mio user name e la mia pwd da programma. Sapete come
devo fare ?


Questa e' una super FAQ.
Cerca "ShellExecute" fra i messaggi recenti.
Ciao
Aldo