mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda interessante

Ciao
Qualcuno sa come ordinare numeri dal più grande al più piccolo o viceversa
in una listbox io ci sono riuscito ma con cinquanta operazioni!!!



Sorted=true
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

 ha scritto nel messaggio
news:MjBMb.35406$Jw2....@tornado.fastwebnet.it...


[*Luca* = 
lucky19...@virgilio.it
 in
news:yaBMb.78827$
VW.32...@news3.tin.it
] ha scritto:

Se non hai problemi "estetici", prevedi una listbox ordinata e carica i
numeri come stringhe anteponendo tanti "0" quanti ne servono per raggiungere
la lunghezza massima pari al numero dei digits del numero più grande. In
alternativa, cerca <bubble quick e_altri>sort.

allora prova col bubble sort


 ha scritto nel messaggio
news:PODMb.35763$Jw2....@tornado.fastwebnet.it...


 Che cos'è questo Quick Sort
http://www.google.it/search?hl=it&ie=UTF-8&oe=UTF-8&q=visual+basic+%22quick+sort%22&btnG=Cerca+con+Google&lr=lang_it
termoPilucco

Lupo ha scritto:



Copi i numeri in una tabella Access e li estrai nell'ordine che preferisci.
Ciao.
F.C.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Lupo ha scritto:





 preferisci.
Ovviamente su un database SQL Server... Suvvia

Newsgroup: it.comp.lang.visual-basic
Titolo: BIG Problem!

Suppose i´ve got 2 forms. Form1 and Form2.
Suppose also,  i´ve got a commandbutton in Form1.
When i click on this commandbutton some lines and circles are drawing
up in Form2.
My question is:
1/
How can i print the Form2 including lines and circles on my HP ?
Code under “Command1” in Form1
Private Sub Command1_Click()
Form2.Show
Form2.Line (0, 0)-(1000, 1000)
Form2.Circle (2500, 1000), 500
End Sub
2/
When i draw Form1 quickly over Form2, the lines and circles disappeard.
I want them to be stable.
// Stefan
Sent via Deja.com 
http://www.deja.com/
Share what you know. Learn what you don't.

1/
you have to use the "PrintForm" function ---> see the Guide On Line
2/
you have to set the AutoRedraw" property of form on TRUE
--------------------------------------------------
 Melbour ---> 17464161
PicRaf ----> 
pica...@labnet.it


Newsgroup: it.comp.lang.visual-basic
Titolo: Non ci ho mai capito

devo aggiornare 2 campi testo a condizione che un campo integer sia ugale a 
una variabile integer
ma non mi va mai al primo colpo, ma manco al secondo, e manco al terzo. 
Provo finche non va e non ho maic capito il come e il perche
vb6+acc
q = "update ditte set ditta = '" & Text1.Text & "', lavoro = '" & Text2.Text 
& "' where iditta = " & IdDit
e manca 1 parametro
q = "update ditte set ditta = '" & Text1.Text & "', lavoro = '" & Text2.Text 
& "' where iditta = '" & IdDit & "'"
e manca 1 parametro
q = "update ditte set ditta = '" & Text1.Text & "', lavoro = '" & Text2.Text 
& "' where iditta = " & val(IdDit)
e manca 1 parametro
e via dicendo, togliendo e mettendo apicett1 anche a text 2 text2
poi a furia di abbinare all'improvviso funziona e non si capisce perche.
Stasera non vuol funzionare, mezz'ora che cambio in tutti i modi 3 fottute 3 
variabili  e manca sempre un paramentro!!
Quale è la regola? Ho sempre sorvolato ma stavolta voglio scolpirla nella 
pietra, mi sono stufato di andar per prove ogni santa volta!
-- 
Greg 


La regola è: campi numerici nessun delimitatore, campi testo
delimitati da apice singolo, eventuale apice singolo interno al testo,
va raddoppiato.
Definisciti una funzione del genere, e non ci pensi più:
Function DBText(ByVal s As String) As String
If Instr(1, s, "'")>0 Then
   s = Replace(s, "'", "''")
End If
DBText = "'" & s & "'"
End Function
Tutte le tue stringhe SQL saranno quindi sempre senza separatori,
simili a questa:
q = "update ditte set ditta = '" & DBText(Text1.Text) _
 & "', lavoro = '" & DBText(Text2.Text) _
 & "' where iditta = " & IdDit
Eventualmente, per i campi memo, puoi definire una seconda versione
della funzione DBText che prenda il parametro ByRef, per migliorare le
prestazioni in caso di stringhe molto grandi.

 va raddoppiato.
Tu sei stato troppo veloce a rispondere ad un post che io ho cancellato dopo 
2 minuti :(
Ma te ne rigngrazio, sempre meglio cosi.
Effettimanete in questo caso io sbagliavo a scrivere il nome di un campo e 
quindi sfido che mancava sempre un parametro!
-- 
Greg 

 > La regola è: campi numerici nessun delimitatore, campi testo

Fammi indovinare: una D mancante? ;-)

> Fammi indovinare: una D mancante? ;-)
Indovinato;  Idit  al posto di IdDit.
greg
Newsgroup: it.comp.lang.visual-basic
Titolo: A capo

Ciao a tutti i frequentatori del newsgroup, sono Marco. Io voglio
individuare in un testo quante
volte si è andati a capo. Che carattere è quello? Ho guardato
sull'help, ma non ho capito se sia 
il CHR(13) o CHR(10) o tutti e due assieme.
Grazie

Io di solito uso la costante "vbCrLf".

...



CR = CHR(13) = Carriage Return
LF = CHR(10) = Line Feed
In DOS (e Windows), CR e LF (entrambi)
In Unix solo CR
In Mac e qualche altro sistema (mi pare, ma non sono sicuro), solo LF
--
Roal Zanazzi
z...@iol.it

Non mi avete capito. Se io voglio contare quante volte si è andati a
capo, cosa devo contare?
Per favore...
Marco



Il carattere ASCII 13
chr$(13)
Ciao, Pipol!
Piero

il CHR(13) o CHR(10) o tutti e due assieme.
Il carattere di "a capo" e' la somma di due caratteri:
CHR(13)+CHR(10)
cioe' Carriage Return + Line Feed.
~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~
Gabriele Bertolucci - NT4WKSITA+SP3 - VB5PROITA+SP3
pbe...@vi.ats.it
pbe...@freemail.it
 (alias)
pbe...@bigfoot.com
 (alias)
http://members.spree.com/sip/pberto/
http://userspace.ats.it/free/pberto/
 (alias)
http://www.fortunecity.com/skyscraper/spiff/523/
 (alias)
http://www.bigfoot.com/~pberto/
 (alias)
ICQ #: 9732192
~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~

Private Sub Command1_Click()
Dim ritorni As Integer
For i = 1 To Len(Text1)
tmp = Mid(Text1, i, 2)
If tmp = vbCrLf Then ritorni = ritorni + 1
Next
MsgBox ritorni
End Sub
Prodigy2

    End if


...


Newsgroup: it.comp.lang.visual-basic
Titolo: molto interessante AIUTO

Ho bisogno di prelevare il numero di serie dal bios in vb.
Come faccio, esiste un active x?
Offro collaborazione

 Offro collaborazione
Non so se ti puo' servire, ma so come ottenere il Nr di serie dell'HD (vedi Sito Comune).
-- 
Hi, Ciao
Ettore                 By -MES-
http://www.aspide.it/freeweb/ilmes
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb

Newsgroup: it.comp.lang.visual-basic
Titolo: form in primo piano rispetto ad un altro

All'evento load di un form voglio che un altro form venga messo in primo
piano.
Ho provato con form1.zorder ma non funziona
Perchč?
--
Antonello Cordella
ant...@libero.it
http://www.supereva.it

Ho provato con form1.zorder ma non funziona
Potrebbe bastare chiamare cosi' il form da mettere in primo piano:

Newsgroup: it.comp.lang.visual-basic
Titolo: [vb.net] Creare un file .PDF

Scusate la domanda forse ingenua, ma è possibile creare un file .PDF con 
vb.net
 (2005 express)?
Christian

 
vb.net
 (2005 express)?
Sě, il metodo piů facile č usare una stampante PDF virtuale come PDFCreator.
Ciao
-- 
Free .Net Reporting Tool - 
http://www.neodatatype.net
 

 con 
vb.net
 (2005 express)?
Certo...
Non direttamente, ma ci sono molte librerie atte allo scopo.
Ne trovi molte, mi sembra alcune anche freeware.
Prova a fare una ricerca nei vecchi post di questo ng.
Bye,
-- 
Carmine ( 
pikachu...@gmail.com
 (Togli la scritta NOSPAM) )
Webmaster di The Total Site 4 : 
http://www.thetotalsite.it
My Blog: 
http://blog.thetotalsite.it
MariokartDS Codice Amico: 532639027909 - CarmineC in MarioKartDS
Se un circuito funziona al primo tentativo è perchè il problema è molto
più nascosto e subdolo di quanto tu possa pensare...
E apparirà nel momento in cui farà il massimo danno 

Ho scaricato ed installato PDF Creator e mi crea correttamente i file 
.pdf, anche dalle mie applicazioni vb.
Il problema è che vorrei creare i pdf dall'interno dell'applicazione, 
ovvero quando installo il mio programma su un pc che non abbia pdf 
creator vorrei che, una volta installato il programma, si potesse creare 
un pdf senza problemi.
Spero d'essere stato chiaro.
Christian

 Spero d'essere stato chiaro.
Lo indichi come prerequisito e lo includi nel setup.
Altrimenti ti cerchi una libreria per scriverti PDF (ce ne sono almeno un 
paio opensource) e impazzisci per un paio di settimane ad impararle e 
usarle.
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Tabelle e VB5

Salve, come faccio per verificare che esistano delle Tabelle ( es.: TabX e
TabY) in un MDB per poi cancellarle e ricrearle altrimenti se non ci sono
ignorare il comando Db.Tabledefs.Delete "Nometabella" e ricrearle solamente?
--
_________________________
          MAURO  BONELLI
boma...@tin.it
  -  
mbon...@tin.it
 
euros...@mail.arcadiatel.it
_________________________

...

Newsgroup: it.comp.lang.visual-basic
Titolo: salva file e apri file aiuto

Ciao a tutti,
Ho un problema!Cercherň di spiegarmi......Per salvare in un file delle
informazioni che scrivo nel form principale faccio cosi:
Function Salvafile()
'Funzione salva file
    Dim i As Integer
    Dim nome1 As String
    Dim percorso As String
    nome1 = TxtNominativo.Text + "." + Left(Date, 2) + "." + Mid(Date, 4, 2)
+ "." + Right(Date, 4) & ".txt"
    percorso = App.Path + "\" + nome1 ' assegna il percorso
    i = FreeFile
    Open percorso For Output As #i
' scrive nel file
    Write #i, LblData
    Write #i, TxtNominativo.Text
    Write #i, DtCCantiere.Text
    Write #i, DtCColleghi.Text
    Write #i, TxtArrivoMagazzino
    Write #i, TxtPartenzaMagazzino
    Write #i, TxtArrivoCantiere
    Write #i, TxtPartenzaCantiere
    Write #i, TxtRientroMagazzino
    Write #i, TxtLavorosvolto
    Close #i
        MsgBox "Salvataggio effettuato!", vbInformation + vbOKOnly, "Salva"
E fino a quě tutto funziona.Ora devo poter riaprire il file precedentemente
creato e reinserire negli stessi campi tutto cio' che si trova all'interno
del file!???
esempio,se nella txtnominativo avevo salvato il mio nome FABRIZIO quando
riapro il file voglio leggere nella txtnominativo il mio nome,e cosě via x
tutti gli altri campi.
E' troppo complesso x chi come me ha cominciato da poco a programmare?
grazie a tutti!Fabrizio

 del file!???
Usa la funzione Get.
Se ti può servire dammi l'email che ti spedisco un programmino che ho fatto
a scuola.
bye
PS non è molto difficile. Devi solo sbatterci un pò la testa e poi sai che
soddisfazioni.... :)
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Domanda del .......

Sto provando a fare un mail reader, il quale legge le e-mail.
Volevo sapere, senza essere sparato, se esiste un metodo per sapere se il
testo contenuto nella mail č italiano o inglese.
Se la mia domanda non ha senso fate finta di non averla letta....... OK ;-)
Grazie, Alberto

 wrote in message
nj8O6.19045$iC1.7...@news6.giganews.com...


 ha senso fate finta di non averla letta....... OK ;-)
Dagli header no: devi analizzare il testo, magari controllando se ci sono
accentate o apostrofate, se ci sono parole sillabate e come, etc etc. Dopo
averlo ovviamente dequoted-printablizzato o deunicodato :-), se
necessario...
-- 
 Pastrano

 necessario...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Ancora problemi col sito comune ?

Non riesco di nuovo a collegarmi al sito comune o a downloadare ....

 wrote in message
409Z3.72093$s17.7...@typhoon.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: questo insolito silenzio....

...IMHO ha un solo significato inequivocabile :  "risparmiatevi la 
fatica di scrivere perchè siamo tutti in vacanza...."

 fatica di scrivere perchè siamo tutti in vacanza...."
aho' eBBasta da fa tutto sto casino ...
-- 
-> GbC|
www.gbcweb.com
www.chiappori.com
 


http://www.google.it/#hl=it&rlz=1W1ADRA_it&q=come+e+dove+crearsi+un+blog&aq
=f&aqi=&aql=&oq=come+e+dove+crearsi+un+blog&gs_rfai=&fp=c983b098b3d3613c
-- 
---------------------------
Mauro Gamberini
Microsoft MVP - Excel
http://www.riolab.org/
http://www.maurogsc.eu/
http://social.answers.microsoft.com/Forums/it-IT/officeexcelit/threads
 

 
grazie del suggerimento. ma io se mi faccio un blog lo faccio solo a 
pagamento.
Cioè chi vuol scriverci deve pagare.

 ha scritto nel messaggio 
news:i3rf2g$gj2$2...@nnrp.linuxfan.it...

E chi sarebbe disposto a pagare   per le cavolate che scrivi ???
:-))) 


non per leggere le mie, quello è gratis, ma per scrivere *le loro* cavolate 
:-)


Ok  allora   creiamo   CAVOLBOOK    cosi' magari  facciamo i soldi
e posso mettere i cinesi a fare la converss....Ops PORTING dei miei 
programmi.
p.s.   se a qualcuno interesa  il porting viaggia bene su due binari
(sto diventando bravino )   uno con l'utilizzo delle DLL   per i sistemi
in 32 bit   e il secondo con tutto .NET  senza accrocchi vari per i sistemi
(futuri) 64 bit..........
Newsgroup: it.comp.lang.visual-basic
Titolo: Setup Wizard

Ciao a tutti,
io ho creato un programma che richiede una subdirecoty che contiene dei
files txt. Faccio setup wizard, ma quando vado a installare il programma
esso mi copia tutti i file txt sotto la stessa directory: come faccio a
dirglielo?
                                      Grazie dell'aiuto, Andrea

...

Nell'autocomposizione dell' installazione aggiungi manualmente i file TXT,
una volta fatto li devi selezionare uno alla volta e premere "Dettagli File"
nella casella del percorso scrivi $(AppPath)\NuovaCartella, dove
NuovaCartella č il nome della sottodirectory che deve contenere il file.
Oppure se non vuoi ricompilare l'installazione puoi modificare manualmente
il file Setup.lst creato durante l'autocomposizione
basta che ti porti sulla linea che contiene il file TXT e cambi il percorso.
Un saluto...
Maurizio Coffinardi
coffi...@secoges.com
SE.CO.GES. Informatica
sec...@secoges.com
www.secoges.com

Ho usato Setup Wizard in dotazione con vb4 per costruirmi i file di
installazione di una applicazione. Testando il programma su altri PC, nel
40% dei casi la procedura di installazione si interrompeva con il seguente
messaggio: Unexpected error.
Il programma fa uso dei seguenti controlli: comctrl32, Dbgrid32, Comdlg32,
viene inoltre fatto riferimento alla dao 3.0.
Chi può darmi una spiegazione su dove nasce l'errore?
Altro quesito. Con alcuni programmi se li mando in esecuzione mi appare il
seguente messaggio: Exception EReadError in modulo nomeprogramma.exe at
00012D41.
Error Reading Image1.Picture.Data: External exception C000001D. Il
programma non viene eseguito.
Da notare che il messaggio che compare differisce solo nel nomeprogramma.
Un aiuto è ben gradito.
Ciao da Rodry.
Togliere le x dall'e-mail.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] MSComm cercasi Super Esperto

Devo inviare, usando l' MSComm su  COM1, un byte composto da 8 bit, verso
una scheda
che interpretera' il singoli bit per pilotare otto rele'.
Piccola parentesi questa scheda e' in scatula di montaggio ed e' fornita
anche di un piccolo
software scritto in VB, il quale tramite un piccolo pannellino a pulsanti
pilota gli 8 rele', inoltre
ha la possibilita' di acquisire 8 stati (aperto/chiuso), tutto questo
tramite seriale.
Volendo ampliare l'utilizzo della scheda devo per forza lasciare perdere il
software fornito.
L'artico spiega che la scheda scorpora il byte, inviato tramite COM1, nella
forma binaria
con i relativi 8 bit, quindi inviando 8 scomposto sara'  00001000  eccitando
cosi' il 4° rele' .
PROBLEMA: ho provato ad inviare mediante l' MSComm il famoso 8
(utilizzando: MSComm1.Output="8" & Chr(13)  ) ma purtroppo il 4° rele' non
si ecceta ma
al contrario si eccitano il 1° 3° 4°, supponendo quindi che la scheda arrivi
un numero binario
tipo 00001101.
Purtroppo non ci sono molti esempi su MSComm in ciro, e quindi mi rivolgo
umilmente a voi
per un aiuto.
Ringrazio in anticipo e porgo i saluti
Corrado Chezzi
N.B. : di seguito riporto la rutine scritta in QBasic (fornita in
alternativa all'altro software)
che pilota la scheda.
------------------------------Listato in
QBasic----------------------------------
Dim b As String * 1
Open "COM1:9600,N,8,1" For Random As #10
Do
indietro:
         a$ = ""
         Do While a$ = "" Or Val(a$) < 0 Or Val(a$) > 255
         Cls
               Print "Digita valore di OUTPUT da 0 a 255 (A=abbandona)";
               INPUT a$
         Loop
         If a$ = "a" Or a$ = "A" Then
                   Close #10
                   End
         End If
       Print #10, Chr$(Val(a$));       <===Invia
       Get #10, 1, b
         Print "Ingressi="; Asc(b)
         SLEEP 5
Loop
----------------------------------------------------------------------------
--------------

...




 Ora pero' ho il problema con MSComm1.Imput
Prova ad usare la funzione Asc()!!!
Ciaps
Stracca
--
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
- - - - - - -
Cerca le risposte alle tue domande sul Sito Comune del
newsgroup it.comp.lang.visual-basic: 
http://www.murialdo.it/it_lang_vb
- - - - - - - - - - - - Magari prima leggi l'Help in
linea!  - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
- - - - - - -

 wrote in message
2AdE3.5266$E3.2...@typhoon.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: SET e/o REFRESH... ?!?!?

Terzo tentativo..... speriamo bene... !   :-)
Ho gia' posto il quesito in precedenza ma non ho ricevuto risposta.
Ci riprovo.... :
Ha senso utilizzare il metodo 'Refresh' su di un controllo data ADO dopo
avergli assegnato un recordset con l'istruzione 'Set' ?
Esempio :
      rs.Open ado.Recordset.Source, cn, adOpenStatic
      Set ado.Recordset = rs
      ado.refresh
Grazie

non ha senso se il recordset lo apri prima dell'istruzione di
assegnamento... però non ha neanche senso utilizzare un "controllo data ADO"
se utilizzi già il recordset???
L2K

 se utilizzi già il recordset???
mmhhhh....  non ho capito.... cosa vuoi dire....
Io utilizzo il controllo data perche' ho una griglia alla quale assegno come
fonte dati il controllo.
A quella griglia, sono agganciate altre griglie sempre con i controlli data.
Forse non si fa cosi' ?
Grazie
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Proble Crystal Report

Utilizzo la versione di Crystal report inclusa in VB5 purtroppo dopo aver
fatto diverse prove ho identiuficato un problema che non so come risolvere.
Quando stampo da una tabbela che contiene molti record ( 40- 50 mila ess.
righe ordine) tutto gira correttamente e velocemente, se al report aggiungo
i dati di testata ordini e cliente il report rallenta in maniera paurosa.
Per stampare un ordine occoro circa 3-4 minuti su un P200 64 mb ram disco
locale.
Ho controllato più volte se esistano tutte le relazioni del caso, ma sembra
tutto a posto.
Quindi ho costruito una querri su database Access che mi da in un solo recor
tutti i dati necessari alla stampa, ma anche in qusto caso se apro la queri
con un datacontro e una grid è veloce se stampo è lentissimo.
Vorrei sapere se qualcuno ha già incontrato questo problema e come lo ha
risolto.
Esiste un  versione superiore che risolva questo problema.
fau...@mbox.dinamica.it



fausto wrote:

Io ho riscontrato che facendo lavorare crystal reports con i dati "puliti" si
hanno migliori prestazioni e meno problemi quindi in genere creo un database
temporaneo in cui metto i dati da stampare e lo passo a crystal report che lo
stampa tutto e poi lo distruggo.
La differenza è che il recupero dei dati anzichè demandarlo a crystal reports lo
faccio da programma il che garantisce migliori prestazioni e permette di creare
dei reports più leggeri e generici. Ciao.
Newsgroup: it.comp.lang.visual-basic
Titolo: Output in un prompt MS-DOS

Salve a tutti ho un problema con un ocx in VB6 SP5. Questo OCX esegue dei
controlli e una volta terminati tali controlli da in output un codice.
Purtroppo mi hanno chiesto di redirigire tale codice in una finestra DOS
perché gli disturba usare un vbs. Qualcuno di voi sa come si fa???
Grazie a tutti

 ha scritto nel messaggio
news:lqbla.24296$DT4.7...@twister1.libero.it...

Potresti provare a virare sull'utilizzo di una variabile d'ambiente, oppure
hai provato la soluzione proposta da hal?
Private Declare Sub ExitProcess Lib "kernel32" Alias "ExitProcess"
(ByVal uExitCode As Long)
dal PSDK:
void ExitProcess(
  UINT uExitCode
);
Parameters
uExitCode
[in] Exit code for the process and all threads terminated as a result
of this call. Use the GetExitCodeProcess function to retrieve the
process's exit value. Use the GetExitCodeThread function to retrieve a
thread's exit value.


 Public Declare Function GetStdHandle Lib "kernel32" (...)
 Private Declare Function WriteFile Lib "kernel32" (...)
 Private Declare Function GetConsoleScreenBufferInfo Lib "kernel32" (...)
 Private Declare Function SetConsoleTextAttribute Lib "kernel32" (...)
 
 Con queste funzioni dell' A.P.I. è possibile creare un'applicazione VB che
scriva su console, guarda se possono esserti utili.
Ciao
--------------------------------
Inviato via 
http://usenet.libero.it
Newsgroup: it.comp.lang.visual-basic
Titolo: MIDI - Game

Ciao a tutti.
Qualcuno saprebbe spiegarmi come fare a visualizzare i dati inviati da una
tastiera elettronica alla porta MIDI?
Lo stesso discorso credo che possa essere fatto per i joystick o le console
alla GamePort.
    Grazie.
========================
           Antonio Scarpelli
AntonioS...@hotmail.com
========================

     Grazie.
Mentre per l'invio di messaggi MIDI non ci sono problemi in VB (ho realizzato
una classe in puro VB + API che invia messaggi e System Exclusive), con la
ricezione c'č una marea di scogli da superare, e, in genere, occorrono DLL in C
o C++ per riuscire a combinare qualcosa. Per lo meno qualcosa di serio. Io sono
riuscito a prototipare una classe che riceve sě i messaggi, ma lo fa con modi e
(soprattutto) tempi mica troppo sotto controllo... C'č di mezzo il fatto che le
routine callback vengono richiamate ad interrupt-time, senza tener conto di
eventuali operazioni di paging o riallocazione della memoria. Non c'č garanzia
che in quel momento il codice risieda nelle locazioni di memoria puntate dal
codice chiamante. E arriva il crash. Per avere un collegamento sicuro occorre
avere una dll compilata come FIXED, cioč non rilocabile. Per di piů, in Win95
(e, credo, in Win98) la Dll deve essere a 16 bit, se si vuole evitare problemi
di timing.
Cerca su Altavista "MAXIMUM MIDI", č un libro che offre gratis tutto
l'occorrente (in DLL) per lo sviluppo di applicazioni MIDI. Oppure, vai su
www.mabry.com
 e cerca il MIDI control. Sappi perň che funziona male in
ricezione su Windows NT.
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: Convertire 0 in Null con variant

Ciao a tutti,
devo fare una funzione che mi converta variabili: 
I numerici = 0 in Null, e magari le stringhe "" in Null.
In ingresso può avere una variabile Long, Currency, Double, e se posso
anche string (da considerare testo e non numeri tipo Nome ecc.)
rs("CAMPOLONG").Value = Num2DB(myLong)
rs("CAMPODECIMAL").Value = Num2DB(myCurrency)
rs("CAMPODECIMAL").Value = Num2DB(myDouble)
rs("CAMPOCHAR").Value = Num2DB(myString)
Ho pensato quindi di essere obbligato ai Variant, una cosa del genere può
andar bene?
Private Function Var2DB(vntValue) As Variant
  If vntValue = 0 or vntValue = "" Then
    Var2DB = Null
  Else
    Var2DB = vntValue
  End If
End Function
Grazie a tutti
-- 
DBMS Firebird
VB6 + Ado


Ciao,
Si credo che sia l'unica cosa che puoi fare dato che le variabili
intere di suo una volta dichiarate vengono inizializzate a 0
automaticamente. se la imposti come variant il discorso cambia. e puoi
settare la variabile appunto a tuo piacimento.
Saluti.

 settare la variabile appunto a tuo piacimento.
A me servono con il loro tipo nell'elaborazione. Poi voglio che se è un
numero, al momento in cui lo metto su un RecSet deve diventare Null, stessa
cosa per le stringe "".
Probabilmente potrei usare la VarType per fare una cosa fatta meglio...


 I numerici = 0 in Null, e magari le stringhe "" in Null.
Ho paura di chiedertelo...senza offesa, ma a che caspita serve? ;-)

 Ho paura di chiedertelo...senza offesa, ma a che caspita serve? ;-)
Allora nelle tabelle, salvo rari casi ho i numeri=0 -> Null, e le stringhe
""->Null.
Nella routine che ho messo a punto (la movimentazione del magazzino per una
bolla), se sto modificando una bolla già fatta faccio questo:
1) Mi prendo un Rs dei movimenti di magaz esistenti
2) Faccio la nuova elaborazione di movimentazione su RecSet temporaneo
3) Se i Rs sono diversi, tolgo il vecchio e metto il nuovo (recuperando gli
idtabella)
Nella 2) quando assegno i valori al recordset li assegno tramite variabile
del tipo giusto:
Rs("IMPORTO").Value= myCurrency
Rs("CONTATORE").Value= myLong
Quindi non avrò mai Null, cosa che invece ho nel recordset dei movimenti
esistenti.
Quindi ho fatto una funzione per fare:
Rs("IMPORTO").Value= Valore2DB(myCurrency)
Rs("CONTATORE").Value= Valore2DB(myLong)
Questa function ha in ingresso un variant, ed è di tipo Variant.
In tal modo se è 0 (numerico) o "" (per forza stringa), ritorno Null.
Questo è il motivo ^_^


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Chi mi spiega i parametri di CreateRoundRectRgn; Reply-to: copernico@tuttocitta.it

Come da Subject: mi spiegate cosa significano i vari parametri
dell'api CreateRoundRectRgn?
Grazie.
Antonino




Newsgroup: it.comp.lang.visual-basic
Titolo: vb.net distribuzione e installazione

Sapete indicarmi una procedura per creare il setup che includa il
framework
Grazie a tutti
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 framework
Con il visual studio (.net, ça va sans dire) è automatico o quasi:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnnetdep/ht
ml/dotnetframedepguid.asp
(link preso da un post di Corrado Cavalli trovato con google)

Scusa ma proprio non riesco.....
Mi piacerebbe fare un installazione che si accorga della mancanza 
del framework e del mdac e gli installi senza fare troppe domande.
per adesso sono riuscito solo ad non installare il programma se il
framework
non č installato e se mdac non č installato......
Se avete un esempio..... 
VI ringrazio


Newsgroup: it.comp.lang.visual-basic
Titolo: Form Child da usare in VbModal

Salve...
...se una form l'ho dichiarata "child" c'e' un modo per poterla richiamare
poi in vbmodal?
grazie
Cap.

 ha scritto nel messaggio
news:b69gqd$880$1...@newsreader.mailgate.org...


 Modal, cioè alla form MDI
dubito..... fortissimamente dubito....
che io sappia, una form dichiarata mdichild non può essere aperta in modalità
"modale"
--
Salutoni
Sergio

Si scusate.
Mi sono confuso.
Non è possibile.
Ma è possibile farlo con form normali e renderli modali al MDI


 è possibile farlo con form normali e renderli modali al MDI
questo mi suona già più familiare :-)
--
Salutoni
Sergio


Ok, questo mi aiuta lo stesso.
Il fatto e' che se la dichiaro Child, ed ho un codice del genere (x es.):
Public sub procedure()
    istruzione 1
    form2.show
    istruzione 3
    istruzione 4
end sub
quando visualizzo il form2 le istruzioni 3 e 4 non aspettano che io lo
chiuda, ma vengono eseguito fino alla fine della procedura,
mentre nel caso form2.show vbmodal, il programma attende che io chiuda
questo from per continuare l'esecuzione del codice.
Non so se mi sono spiegato, ma con il tuo consiglio dovrei aver risolto.
grazzzie
CapellvbModal

Se puoi fare la form2 invece che child normale, hai risolto il problema.
Che deve fare la form2??
Naturalmente non essendo child non sta dentro il MDI, quindi potrebbe essere
possibile spostarla anche fuori dal MDI.
Ma io ho tagliato la testa al toro ed ho reso addirittura le form non
movibili e non sizabili.
Puoi fare cosě anche tu e risolvi il problema.
Ciao


 Puoi fare cosě anche tu e risolvi il problema.
Si la posso gestire normalmente pero' siccome ho tutte le form child
(tutte...2/3), mi sembra brutto che questo form mi venga fuori come un'altra
finestra.
E poi perche' la richiamo sia da menu (del form MDI) e la vorrei in
modalita' CHILD, sia all'interno di un form(child) e la vorrei vedere in
vbmodal.
ciao
Cap.


mi sembra di capire che è una dialog, e magari piccola.
Dammi retta, mettila centrata, in modo che sembri dentro il MDI, mettila non
sizible e non movibile. ;-))
 Ciao

  Ciao
..mmh... dici?In effetti e' piccolina visto che e' nata come dialog, boh
faro' un po di prove poi decido.
Cmq grazie per i consigli.
ciao
Cap.
Newsgroup: it.comp.lang.visual-basic
Titolo: Da .mdb a .doc

Ho necessità di esportare il contenuto di un file .mdb in un file
"tabellare"  .doc  tramite pulsante di comando, generando quindi una tabella
che si adattasse automaticamente al testo contenuto.
Avrei bisogno di qualche riga di "buon" codice ....
Grazie
Angelo

 scrive:

Ci sono varie soluzioni:
1) prova a cercare sul web dei componenti in grado di scrivere in RTF o
addirittura in DOC. Ce ne saranno a iosa.
2) puoi uscire in formato RTF sfruttando i filtri di office (come faresti da
access per capirci)
3) se hai crystal report puoi usare le sue funzioni di esportazione
4) puoi pilotare word da vb per creare un doc partendo da zero.
L'ultima secondo me e' la soluzione migliore. Ti basta simulare i comandi
che ti serve lanciare registrando una macro all'interno di word.
Vedrai che dovrai semplicemente copiarli e incollarli nel tuo sorgente con
piccolissime modifiche.
Ti incollo un esempio di creazione di una tabella, inserimento dei dati e
modifica delle dimensioni:
   ' Apro una nuova istanza di Word
   Dim WordApp As New Word.Application
   ' rendo Word visibile
   WordApp.Visible = True
   WordApp.Documents.Add
   WordApp.ActiveDocument.Tables.Add WordApp.Selection.Range, 1, 2
   WordApp.ActiveDocument.Tables.Item(1).Cell(1, 1).Select
   WordApp.Selection.InsertAfter ("Colonna 1")
   WordApp.ActiveDocument.Tables.Item(1).Cell(1, 2).Select
   WordApp.Selection.InsertAfter ("Colonna 2")
   WordApp.Selection.Tables.Item(1).Rows.Item(1).Select
   WordApp.Selection.Tables.Item(1).Rows.Item(1).HeadingFormat = True
   WordApp.Selection.Font.Bold = True
   For iCounter = 0 To 5
      WordApp.Selection.Tables.Item(1).Rows.Add
      WordApp.Selection.Tables.Item(1).Rows.Item(iCounter + 2).Select
      WordApp.Selection.Tables.Item(1).Rows.Item(iCounter + 2).HeadingFormat
= False
      WordApp.Selection.Font.Bold = False
      WordApp.ActiveDocument.Tables.Item(1).Cell(iCounter + 2, 1).Select
      WordApp.Selection.InsertAfter ("DATOCOLONNA1")
   Next
   WordApp.ActiveDocument.Tables.Item(1).Select
   WordApp.Selection.Cells.SetHeight 15, 2
   WordApp.Selection.Columns(1).SetWidth 120, wdAdjustSameWidth
   WordApp.Selection.Columns(2).SetWidth 120, wdAdjustSameWidth
   WordApp.Selection.Tables(1).Rows.SetLeftIndent 118.5, wdAdjustNone
   WordApp.ActiveDocument.Paragraphs.Item(1).Borders.Shadow = True
   WordApp.ActiveDocument.Paragraphs.Item(1).Borders.DistanceFromBottom = 2
   WordApp.ActiveDocument.Paragraphs.Item(1).Borders.DistanceFromTop = 2
   WordApp.ActiveDocument.Paragraphs.Item(1).Borders.DistanceFromLeft = 2
   WordApp.ActiveDocument.Paragraphs.Item(1).Borders.DistanceFromRight = 2
   'WordApp.ActiveDocument.SaveAs sFileName
   WordApp.ActiveDocument.Close
   WordApp.Quit
--
Starman
Newsgroup: it.comp.lang.visual-basic
Titolo: OFFERTA DI COLLABORAZIONE DI LAVORO!!!

Con la presente siamo a richiedere una collaborazione per lo sviluppo in
visual basic 5 o 6 di programmi legati al lotto, totocalcio, enalotto,
superenalotto.
Chiunque fosse interessanto, è gentilmente pregato di contattare la società
Mystique s.r.l. di Castelfranco Veneto in provincia di Treviso ( il Sig.
David Lorenzin 
da...@seven.it
 ) per concordare tutti gli aspetti tecnici ed
economici.
Una volta valutata la validità del programma saranno richiesti i sorgenti.
Mystique s.r.l.
Piazza della Serenissim, 20
31033 Castelfranco Veneto ( TV )
Tel. 0423/720116
Fax. 0423/722206

ahi ahi ahi.....
la concorrenza è al lavoro
bye
NB
sono interessato (se non lo sono io...) prego contattarmi

Newsgroup: it.comp.lang.visual-basic
Titolo: problemi nel creare file xls

Ciao a tutti!
Avrei una curiosità da soddisfare e forse qualcuno di voi mi saprà
aiutare (spero).
Ho realizzato un programma per la visualizzazione e modifica di
tabelle di un database SQL e, se l'utente è interessato, ha la
possibilità di scaricare i dati visualizzati in un file xls per poi
studiarseli con calma.
Realizzo il file come un semplice file di testo separando le colonne
con un tab
e a fine riga vado a capo e poi lo salvo con l'estensione ".xls".
La curiosità è che facendo in questo modo quando tento di aprire il
file, Excel mi dà l'errore "Formato di file SYLK non corretto", dopo
vari tentativi, sono arrivato (per errore) ad inserire prima del primo
dato del database un apice ('), con estremo stupore il file si è
aperto senza errore!
Ho provato poi ad inserire uno spazio e il file si è nuovamente aperto
senza errore, adesso il programma scrive uno spazio prima del primo
carattere effettivo, che era una "I" se può servire.
Spero che qualcuno mi riesca a spiegare in cosa sbagliavo, se
sbagliavo.
Ciao
- PsyMax -

 aperto senza errore!
    L'hai fregato! ;-))
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------
Newsgroup: it.comp.lang.visual-basic
Titolo: Creazione di una DLL!!!

Salve,
sto creandop una DLL da utilizzare all'interno del mio script ASP, in cui
dovrei eseguire una query all'interno del mio database. Il problema è che se
io definisco il mio recordset nella seguente maniera:
Private rs As New ADODB.Recordset
ho un errore in compilazione, che mi dice tipo sconosciuto. Quele
riferimento devo aggiungere al  mio progetto in VB per non avere quel tipo
di errore.
Grazie

 wrote in message
news:GMDu6.67965$yl2.6...@news1.tin.it...


 wrote in message
GMDu6.67965$yl2.6...@news1.tin.it...


 dovrei eseguire una query all'interno del mio database. Il problema č che


Newsgroup: it.comp.lang.visual-basic
Titolo: caricamento file all'interno di un campo

Ciao a tutti, io ho inventato un modo per inserire un file all'interno di un
campo in SQL 2000 (sfruttņ le proprietą del campo Image)
Vorrei sapere se in Access esiste un campo che sostituisca il campo image di
SQL oppure se č possibile inserire i byte di un file all'interno di questo
DBASE
Grazie a tutti.

 Grazie a tutti.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Overclock da VB

Vorrei creare un programma per l'overclock
del processore, in VB. Naturalmente sarà FREEWARE !
Qualcuno può darmi una mano, per favore ?
Vi ringrazio
Lorenzo


ma.... stai parlando seriamente ?

 E poi, siamo onesti, certe cose non si fanno!!  :-|
Il processore è suo, se lo preferisce fritto, facesse pure.
P.S.: Io li mangio solo alla brace, con qualche foglia di alloro; sai, si accorda bene
con quel sapore di MMX... Attenzione agli AMD, che sono pesanti, ci vuole un
vino più tosto.
Bye, G.

Vai sul sito di H.oda e cerca softfsb ti permette di cambiare la frequenza
del bus in modo software , (e funziona) e il pazzo (Oda) ha anche fatto un
prog per cambiare il divisore della cache del k7.
Comunque credo che sia scritto in codice ASM , perciò.... Vb
addiiiiiiiiiiiiiiiiiiioooooooooooo!

 fatto dell'OT estremo...
chiedeva se farlo *da vb*. quindi, possibile o no, non mi sembra fosse
proprio ot.


Pienamente d'accordo... ho svariati PC UltraOverclockati che vanno più che
bene.
Ciao
Ven.

 addiiiiiiiiiiiiiiiiiiioooooooooooo!
A chi interessasse il sito in oggetto č 
www.h-oda.com
avresti potuto segnalarlo pero' !!!!
Ciaps
Stracca

Bye, G.
Ciao, buona digestione

 del processore, in VB. Naturalmente sarà FREEWARE !


Vai sul sito di H.oda e cerca softfsb ti permette di cambiare la frequenza
del bus in modo software , (e funziona) e il pazzo (Oda) ha anche fatto un
prog per cambiare il divisore della cache del k7.
Comunque credo che sia scritto in codice ASM , perciò.... Vb
addiiiiiiiiiiiiiiiiiiioooooooooooo!
Ehm, io SoftFSB ce l'ho, ma una app volevo realizzarla
io, per capire un po' come andava fatta. Di ASM non capisco
una virgola (no, neppure mobile !), allora......
Grazie lo stesso
Ciao

 addiiiiiiiiiiiiiiiiiiioooooooooooo!
A chi interessasse il sito in oggetto č 
www.h-oda.com
avresti potuto segnalarlo pero' !!!!
Ciaps
Stracca
Grazie ad entrambi
Lorenzo

proprio ot.
Ah, almeno qua qualcuno ha capito la mia filosofia.....non mi
sembra davvero OT ! Ma se lo dite voi.......
Ho visto un prog simile in VB6 e ho pensato di cercare di capire
come funzia la faccenda. Fatto male ? Se sě, scusatemi !
La prossima volta il prog lo scriverň in linguaggio macchina !!!  :-))))
Eh, eh !


ma.... stai parlando seriamente ?
Naturalmente sì.
Ti sembra così strano ?

del genere, ma molto semplice.
Personalmente ho trovato un programma simile in una rivista per ottimizzare
la scheda madre.
Ho voluto provarlo sul mio vecchio PC e dopo averlo fatto ho dovuto
comprarmene uno nuovo... :(
Ora sto alla larga di soluzioni SW per problemi HW.
Ciao





Ciao
Ti ringrazio per la dritta, però a me interessa, in particolare,
sapere COME funziona un'eventuale overclock. Cioè, in VB,
come si gestisce ?????????
Newsgroup: it.comp.lang.visual-basic
Titolo: ListView

Qualche post fa mi è stato consigliato per un certo
lavoro di utilizzare il controllo listview
(controllo simile a quello che utlizza outlook per gli header dei
messaggi).
Mi hanno detto che era proprio il controllo usato da outlook,
solo che io sul mio pc (e non solo) non sono riuscito a trovarlo.
Mi date una dritta?
                                            danilo

nei componenti devi abilitare Microsoft Windows Common Controls (6.0)......
non mi ricordo esattamente quale........sorry!!!!!
--
Damiani Liborio Igor
idam...@hotmail.com
 - 
igor.d...@light.it
http://www.igordamiani.it
ICQ : 11847262

Prendi il 6 (se hai fatto aggiornamento con Sp4 prendi quello Sp4..naturalmente)
Il file si chiama: MSCOMCTL.ocx
--
__________________
www.sasim.cjb.net

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Interagire con programma esterno

VB6
Questa e' l' esigenza, anche se e' ampliabile:
Utilizzando un software di terze parti ( gestionale) del quale non si hanno
i sorgenti, devo alla scatenarsi di un evento ( di quel programma ) lanciare
il mio!
Spiego .
Dal gestionale  ad un certo punto inserisco un DDT, per esigenze del cliente
devo "tracciare" il numero di cedolino TRACO di quella bolla.
Io volevo fare in modo che quando il gestionale apre la maschera di
inserimento bolla ( e' questo l'evento) mi compaia ( si autoesegua, si renda
visibile, mi bussi alla porta.....qualcosa) il mio programma, quando esco
dalla bolla mi sparisce.
Questo mio programma dovra' creare una ( n ) textbox ( controlli) e
posizionarla in una determinata posizione.
Quindi riassumendo in breve le domande sono:
Posso "controllare cosa fa un' applicazione esterna ( il mio gestionale)??"
Posso " controllare lo stato/presenza di una form MDI child ( bolla )di
questa applicazione esterna?"
E se si come? cosa guardare ? cosa studiare ?
In piu':
Posso ottenere informazioni (campo nr bolla, o id ) dalla form MDI child ?
( dato che devo salvare in qualche modo questo cedolino se ho un riferimento
incrociato e' Moooooolto meglio)
Grazie e spero di essere stato chiaro
--
Friciu

 ha scritto nel messaggio
news:aMxnb.59276$e5.21...@news1.tin.it...


 entrare in un seminario..... :)
La regola è sempre quella, valida da 0 a 100 anni: sbagliando s'impara.

 s'impara.
Napoleone (forse memore di qualche antica ascendenza barese,
o forse no) diceva: "Sbagliando s'impera". Non ho mai capito se
aveva ragione o torto... la citazione era sbagliata, quindi sbagliava,
ma se sbagliava ed in effetti imperava, allora non sbagliava; ma
se non sbagliava come mai imperava ?
Allora aveva torto... ma se...
Un Paperino in loop. :-)

 settimane fa...
Quando si parla di "rugna"
--
Friciu

 settimane fa...
beh, se hai l'eseguibile puoi sempre cercare un decompilatore.
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo
ahia... basta pietre... stavo scherzando... aiuto...

beh, se hai l'eseguibile puoi sempre cercare un decompilatore.
esatto. prova a cercare sul sito:
www.decompilando.tatr.com



www.decompilando.tatr.com
CORREGGO:
www.decompilando.tart.com


 
www.decompilando.tart.com
provaci ancora, sam...
:-)
(traduzione: neanche la correzione funziona granchè)


:-)
Azz... una volta quell'indirizzo era valido!!!
Passo.  :-)
Andrea.
Newsgroup: it.comp.lang.visual-basic
Titolo: Public Property Set

Salve oggi facendo manutenzione su un progetto ho notato che nel passare
come puntatori degli oggetti è stata usata la seguente forma
Public Property Set [Nome] ( ByVal Oggetto)
mi chiedo che senso abbia passare l'oggetto byval visto che si tratta di un
puntatore, mi confermate che passanto l'oggetto per rifermento non sarebbe
cambiato nulla?
grazie.

 ha scritto nel messaggio
news:2sldggF...@uni-berlin.de...

Nel caso specifico di una routine Property Set non cambia nulla, perche'
viene trattata in maniera particolare, ma relativamente ai parametri di
funzione in genere, qualcosa cambia:
Quello che viene passato per valore/riferimento e', come dici tu, un
puntatore; questo vuol dire che, usando ByRef, qualsiasi modifica fatta *al
puntatore* si propaga al puntatore originale passato alla funzione, usando
ByVal no.
In altre parole, se all'interno della tua routine accedi semplicemente ai
membri dell'oggetto, con i soliti Oggetto.ProprietaOMetodo, la cosa e'
ininfuente, viceversa se provi a fare un 'Set Oggetto = xxx' noti come ByVal
e ByRef si comportano in maniera differente (e coerente con i tipi di dato
semplici)
Ripeto, questo vale per le procedure in generale, definite come
Sub/Function; in caso di Property Set o Let la modifica non viene comunque
propagata al chiamante.
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown


questo lo sapevo già ;)
ciao e grazie.

Newsgroup: it.comp.lang.visual-basic
Titolo: ? ricerche u campo data

Il mio problema č selezionare una serie di record con un campo data compreso
fra due valori.
adoPrimaryRS.Open "SELECT * FROM Schede WHERE ProxContatto >= #" &
Format$(DTPicker1.Value) & "#  and  ProxContatto <= #" &
Format$(DTPicker2.Valuer) & "#  ORDER BY proxcontatto", db, adOpenStatic,
adLockBatchOptimistic
Cosě facendo ottengo una ricerca sul formato data americano, mese e giorno
invertito rispetto al nostro e le ricerche vengono sballate.
Ho provato il seguente stratagemma:
Chiave=DTPicker1.Value
Dim giorno, mese, anno
giorno = Mid(Chiave, 1, 2)
mese = Mid(Chiave, 4, 2)
anno = Mid(Chiave, 7, 2)
trova = mese + "/" + giorno + "/" + anno
Utilizzando la variabile trova al posto del  DTPicker1.Value dopo aver
invertito giorno e mese ed aver ricostruito la mia data in formato
invertito.
Che bello funziona ..... fino a che il valore del giorno non supera il 12,
in quel caso mi sballa tutto.
Forse non ho capito una mazza, di fatto mi son dato da fare
ma.......risultati tendenti a zero.
Qualcuno potrebbe essere cosě gentile da darmi una mano?
Grazie in anticipo a quanti vorranno dedicarmi un po' del loro tempo e della
loro pazienza.
Un saluto Paolo

Format$(DTPicker1.Value) & "#  and  ProxContatto <= #" &
Usa Format(varData,"m/d/yyyy")

 ha scritto nel messaggio
news:r94h6tco11m50hs8r...@4ax.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: Impostare un'immagine _dato il path su disco_ come sfondo del Desktop da VB

Tempo fa era già stata postata l'API in oggetto ... ma non mi riesce di
trovarla!
Mi aiutate?
Ciao a tutti, Max

 ha scritto

da vb3themax. vedi tu come usarla.
Public Function SetWallPaper(Optional ByVal sFile As String) As Boolean
' Change the system's desktop wallpaper to a given bitmap file
' If you omit the argument the desktop wallpaper is cleared
' Returns True if successful, False otherwise
'^^^^^-Author: The VB2TheMax Team-----------
    SetWallPaper = (SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, sFile, _
        0) <> 0)
End Function
--
ciao, j.
www.sundaysw.com

 ha scritto

Grazie :-)

 da vb3themax.
Azz, oggi upgradano di tutto...
Bye, G.

 Azz, oggi upgradano di tutto...
liberalizzano...

Newsgroup: it.comp.lang.visual-basic
Titolo: scusate sbaglio

questo non va:
Private Sub Command1_Click()
    Image1.Visible = False         ' nascondi monete
    Label1.Caption = Int(Rnd * 10) ' seleziona numeri
    Label2.Caption = Int(Rnd * 10)
    Label3.Caption = Int(Rnd * 10)
    Spins = Spins + 1
    'se appare 7 visualizza monete e suona
    If (Label1.Caption = 7) Or (Label2.Caption = 7) _
      Or (Label3.Caption = 7) Then
        Image1.Visible = True
        Beep
        Wins = Wins + 1
        lblWins.Caption = "Vittorie" & Wins
    End If
    lblRate.Caption = Rate(Wins, Spins)
End Sub
questo va perche?
Private Sub Command1_Click()
    Image1.Visible = False         ' nascondi monete
    Label1.Caption = Int(Rnd * 10) ' seleziona numeri
    Label2.Caption = Int(Rnd * 10)
    Label3.Caption = Int(Rnd * 10)
    Spins = Spins + 1
    'se appare 7 visualizza monete e suona
    If (Label1.Caption = 7) Or (Label2.Caption = 7) _
      Or (Label3.Caption = 7) Then
        Image1.Visible = True
        Beep
        Wins = Wins + 1
        lblWins.Caption = "Vittorie: " & Wins
    End If
    lblRate.Caption = Rate(Wins, Spins)
End Sub
grazie ancora a chi mi può dare una mano
saluti lobax

 wrote in message
pEyo5.115217$dF5.1...@news.infostrada.it...


 cut
perche' non va? che errore ti da ?
sii piu' preciso...
ciao
Enrico

 required> : Variant/Integer : Form1.Command1_Click
dunque... la riga in questione va ad impostare una proprietą (caption)
di un controllo (lblRate) di tipo label...
evidentemente il form dove hai incluso il codice che "non va" non contiene
una label di nome lblRate...
ciao
Enrico