mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Combo Box Help

Qualcuno sa perche questo commando
cbProvincie.Text = cbProvincie.List(0)
genera il seguente errore
Errore di run-time '383':
La proprietą 'Text' č in sola lettura
P.S. :P :) ;)
cb indica una combo box

Controlla la proprieta Style della combo, sicuramente e impostata a
2-DropDown List che rende il controllo a sola lettura.
ciao
PSoft

 ha scritto

(province si scrive senza i)
com'e' gestito il combo ?
questo esempio con
style=2-dropdown list
direi funzioni regolarmente.
(form load)
    With cboOrder
        .AddItem "inte, title"
        .AddItem "title, inte"
        .AddItem "cdd, title"
        .AddItem "id"
        .AddItem "bknum"
        .AddItem "publisher, year, title"
        .AddItem "publisher, coll, collnum"
        .Text = .List(0)
    End With
-- 
ciao, j.
http://www.sundaysw.com/

Newsgroup: it.comp.lang.visual-basic
Titolo: Domande niubbe

salve a tutto l'NG, sono nuovo e sto inizando a lurkare un pò.
Un pò di domande da vero newbie:
- Premettendo che sono fermo a vb4, vorrei svilupparmi qualche tool per la
rete interna (backup personalizzati, rintracciamento di mails negli archivi
ecc ecc) con vb.
Visto il retroterra secondo voi è meglio andare dritti dritti su .NET (ho il
Balena) oppure converrebbe prima aggiornarsi da vb4 a vb6?
- Esiste un modo, volendo fare un backup su rete interna, di accorgersi in
maniera furba se una macchina sia spenta od accesa? In modo da effettuare
delle copie di files soltanto se sia accesa, ad esempio.
- Esiste qualche suite di dll eccetera da usare con vb6 o .net dedicata al
networking, backup, gestione nastri eccetera?
Grazie, ciao.

 (ho il Balena) oppure converrebbe prima aggiornarsi da vb4 a vb6?
Vai col .NET
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
"Seminate Linux, che Windows si pianta da sè...." (Antico Adagio)
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it
Sinapsi Antispam. Antispam Gratuito.
http://www.nicolaottomano.it/public/SinapsiAntispam-Setup.exe
email spamtrap: 
spam...@nicolaottomano.it


Gtrazie della risposta, ho questo dubbio poichè ho letto in rete che anche
Balena nel libro su .NET fa riferimento a concetti e procedure tipiche di
vb6...che magari sarebbero un pò troppo dissimili da vb4?
O no?

 delle copie di files soltanto se sia accesa, ad esempio.
Se non riesci a copiare il file la macchine non è in rete ;)
Ciao
-- 
NeoDataType : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net


Potrei anche non avere i permessi giusti ;)

delle copie di files soltanto se sia accesa, ad esempio.
Puoi far generare un ping dal tuo programma
http://groups.google.it/groups?hl=it&lr=&q=ping&meta=group%3Dit.comp.lang.visual-basic

 Potrei anche non avere i permessi giusti ;)
E al lato pratico qual è la differenza? :)

Newsgroup: it.comp.lang.visual-basic
Titolo: HELP .DLL

ho perso una libreria!!!
qualcuno mi puo aiutare
cerco MSVBVM60.DLL
GRAZIE!

...
:ho perso una libreria!!!
:qualcuno mi puo aiutare
:cerco MSVBVM60.DLL
Sicuramente la puoi travare sul CD di VB.
Magari dentro qualche .CAB.
Ciao
By -MES-   Maronese Ettore
http:\\
ilmes.freeweb.org
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://members.xoom.com/it_lang_vb

Newsgroup: it.comp.lang.visual-basic
Titolo: Rendere path disponibile

Ciao a tutti,
ho appena fatto un programmino per modificare dei files. Il programma
rimane sempre in primo piano. Quando trascino il file da modificare
sul form, questo viene automaticamente modificato.
Però funziona solamente quando il file risiede nella cartella del
programma (infatti ho usato app.path, per testarlo).
Il problema sorge poichè il files si trovano in differenti cartelle, 
ed io vorrei che trascinando i files da qualsiasi locazione si trovino
venghino modificati e salvati nella cartella originale.
Spero essermi spiegata bene e grazie mille a tutti.
'-----------------------------------------------------
Togli +++ per rispondere
ex+++...@ticino.com
-----------------------------------------------------
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com
 - The #1 Newsgroup Service in the World!
-----==  Over 80,000 Newsgroups - 16 Different Servers! =-----

 Spero essermi spiegata bene e grazie mille a tutti.
E' probabile che per poter trascinare il file sul Form, utilizzi l'evento
OLEDragDrop del Form.
Se sì, allora l'oggetto Data.Files.Item(Data.Files.Count) contiene il nome del
file compreso di tutto il percorso. Quindi non dovresti aver problemi...
Ciao!
--
Esteban
Hosted by 
www.seber.it
(Remove nonspammare for reply)

 Spero essermi spiegata bene e grazie mille a tutti.
[SNIP]
"venghi Filini, venghi... " ;-)
Ok, scusa, non ho resistito alla citazione fantozziana; esattamente che cosa
hai usato per abilitare il trascinamento dei file sul form?
se ti sei basata su OLEDropMode e sugli eventi OLEDragDrop e affini, allora
i valori contenuti nel nell'insieme Data.Files dovrebbero gia' essere
comprensivi di percorso assoluto...
Eventualmente posta un estratto del codice.
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

Ciao!
Si č vero, cosě funziona. Grazie mille.
Un'altra piccola domandina, posso trascinarvi sopra piů files senza
avere troppi problemi?
Grazie e ciao


 avere troppi problemi?
Nessun problema:
Data.Files.Item(Data.Files.Count) indica quanti file sono stati trascinati sul
Form, quindi se fai un ciclo hai tutta la lista dei files:
Dim i As Integer
For i = 1 to Data.Files.Item(Data.Files.Count)
    Debug.Print Data.Files.Item(i)
Next

Newsgroup: it.comp.lang.visual-basic
Titolo: Quesito su DAO e le date

Nonostante la mia question sembri lunga... è proprio una piccola
cosa.. per chi la sa !
Ho una tabella con i seguenti valori inseriti con ACCESS nel campo
data:
01/01/99
01/01/99 00.00.01
01/01/99 23.59.59
31/12/99 23.59.59
01/01/00 00.00.01
01/01/2030 12.00.00
Uso il seguente codice per estrarlo:
Data1 = "01/01/1980 00.00.00"
Data2 = "01/01/2050 23.59.59"
Set dbSM = OpenDatabase("C:\prova\db")
s = "SELECT Contatore, Data, Text FROM Tabella WHERE Data Between #" +
Data1 + _
                          "# And #" + Data2 + "# ORDER BY Data  ASC "
's = "SELECT Contatore, Data, Text FROM Tabella  ORDER BY Data  ASC "
Set rsSM = dbSM.OpenRecordset(s)
If rsSM.RecordCount = 0 Then goto fine
rsSM.MoveFirst
Do
    rsSM.MoveNext
    If rsSM.EOF = True Then goto fine
    s1 = rsSM.Fields("Text").Value
    debug.print s1
Loop
fine:
Set rsSM = Nothing
Set dbSM = Nothing
perchè 01/01/99 non viene mai restituito ??
Grazie e ciao !
Marco Grignoli      >>>  
EMAIL:   
sinfosofNO...@tin.it
    senza <NOSPAZZATURA>  !

Mi rispondo da solo:
rileggendo la question scritta mi sono accorto che...
   "o mi alzo più tardi o vado a letto prima !"
(moveNext  subito dopo moveFirst mi fa passare subito sul secondo!!)
Ciao e scusate!

...


 (moveNext  subito dopo moveFirst mi fa passare subito sul secondo!!)
La tua autocritica merita un premio!
Compatta il codice e, soprattutto, leva i Goto.
Set rsSM = dbSM.OpenRecordset(s)
While not rsSM.eof
    s1 = rsSM!Text
    debug.print s1
    rsSM.MoveNext
Wend


Uao ! Troppa grazia !   Così mi viene la voglia di scrivere cazzate
tutte le volte che ho un problema e aspettare che gente di buona
volontà, divertita, me lo risolva !
Cercherò comunque di essere onesto !
Ciao  e Grazie.  Marco Grignoli

Newsgroup: it.comp.lang.visual-basic
Titolo: parametri a funzione

E' possibile creare in visual basic una funzione che prenda in pasto un
parametro passato dall'utente in fase di esecuzione?
Mi spiego meglio, ad esempio la funzione si chiama esegui(testo) e il
parametro 'testo' è, ovviamente, una stringa. Una volta compilato il
programma (programma.exe), l'utente carica il programma in questo modo:
programma.exe "parametro della funzione".
Si può fare?
Grazie. Stefano.

 Grazie. Stefano.
Prego,
Mattia

Che significa Command + F1
Mattia ha scritto nel messaggio ...


 Che significa Command + F1
Allora, nel codice scrivi "Command" poi posizioni il cursore nel mezzo della
parola e premi il tasto F1. E vedi cosa succede...

Ok ora provo, grazie.
Mattia ha scritto nel messaggio ...

Newsgroup: it.comp.lang.visual-basic
Titolo: Utilizzo dei file indice ndx con dao

Ciao a tutti
Il mio problemino è il seguente:
utilizzando dao 3.51 devo leggere dei files di formato dBASEIII o dBASEIV
ed aggiungere nonchè aggiornare dei record, per l'aggiornamento non ci sono
particolari problemi, ma quando devo aggiungere nuovi record incasino perchè
dovrei nello stesso tempo tenere aggiornati gli indici .ndx dei files. La
domanda nasce spontanea (come direbbe qualcuno): si possono gestire gli
indici ndx con dao 3.51 o dao 3.6 o ado 4.0 e se si in che modo???
Sono solamente riuscito a trovare informazioni a proposito del metodo
createindex di dao ma io non devo crearli sti benedetti indici
a tutte le anime pie di questo forum che vorranno rispondermi
un grazie di quore (con la q anzi la Q maiuscola) :-)))
Patrick

 indici ndx con dao 3.51 o dao 3.6 o ado 4.0 e se si in che modo???
Se non erro gli indici ndx sono indici con lo stesso nome del DBF (o no ??)
Se si, DAO gli apre in automatico (cone il file CDX di FoxPro), se no non
saprei
come far a specificare tutti gli indici da usare.
Ciao
Sergio

Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto programma

c'e' qualcuno che sa usare gli ocx
--
Posted from [212.216.176.55] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

> c'e' qualcuno che sa usare gli ocx
si, un casino di persone. qual è il problema? (e, soprattutto, con che OCX?
:))
Faber

Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal Report + errore 20999

ciao
devo inviare dei report via mail ma ricevo l'errore 20999: operation
not yet implemented, qualcuno ha idea di come si possa risolvere?
grazie

in parte ho risolto il problema perchè ho trovato che non mi converte
il report  in formato rtf, in altri formati, come word si, avete idea
perchè non accetti la conversione in rtf?

 perchè non accetti la conversione in rtf?
Dalla descrizione dell'errore che hai riportato sembra che non lo faccia
perchè non_vuole_farlo, per lo meno la versione che hai tu, non so se altre
versioni possono risolvere il tuo problema....
Salutoni
Sergio
Newsgroup: it.comp.lang.visual-basic
Titolo: Dataenvironment: perchè disponibile su un pc e non su l'altro?

Ho realizzato un progetto che utilizza Dataenvirnment, lotrasporto su
un'altro pc dove è sempre installato VB6 ma mi compare il messaggio d'errore
che il metodo o libraria oggetto non registarta.
Riprovo ad installare Vb6 , niente, controllo i componenti montati sul I°
pc, mi sembra sia tutto uguale
Dove sbaglio? cosa devo selezionare per aver a disposizione nel menu
Inserisci Dataenvironment anche nel II° pc
Grazie

 Ho realizzato un progetto che utilizza Dataenvirnment, lotrasporto su
CUT
Ci son librerie diverse...o dell'oledb...o dell'odbc...dipende con che cosa
lo connetti il datenv...ma sicuramente saranno versioni diverse...avrai
installato un mdac su uno e su un altro no!

I due pc hanno tutti e due Win2000, Office, Vb6 ecc..
Comunque è tutta la mattina che provo dal menu componenti - finestre di
progettazione ho selezionato Dataenvironment ,avevo così a disposizione dal
menù progetto inserisci l'opzione Dataenvironment.
Cliccando su quest'ultima ....Messaggio di errore (in inglese) errore
inaspettato...
poi dopo varie prove al caricamento "la classe non è registrata"
hoprovado almeno una decina di volte a disinstallare-installate tutto
....NIENTE!!!
Non è che sono costretto a formattare ed a reinstallare Sistema operaivo e
software???
AIUTO!! chiunque abbia una soluzione è pregato di darmi l'input per
reinstallare questa dannata libreria-componente
Ringrazio anticipatamente per la collaborazione
"Wodka4U" <marco_123_TOGLIQUI@mar_456_ANCHEQUI_tek.it> ha scritto nel
messaggio news:jKHh8.44555$Ns4.1...@news2.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Lanciare un'applicazione

Come faccio a lanciare un'applicazione dal mio programma? Vorrei ad esempio
far aprire Internet Explorer.
Grazie in anticipo
Luca
-- 

 Come faccio a lanciare un'applicazione dal mio programma?
shell
--
Salutoni
Sergio

Per aprire una qualsiasi applicazione fai:
Sub ..............
  Shell "percorso applicazione"
End sub
Arbitro Michele

Dipende da che applicazione si tratta, e da che controllo vuoi ottenere
dall'applicazione stessa....
Esempio: notepad, calc e programmi simili possono essere lanciati solo
tramite Shell, ma poi non hai alcun controllo su di loro (non è proprio
vero, tramite sendkeys o API puoi interagire anche se è molto complesso)....
se invece l'app è un po' più seria (IE, word o altri pacchetti
automatizzabili da vb), puoi andare nei riferimenti e abilitare il checkbox
relativo (mi pare ad esempio che Corel, AutoCAD, MapPoint sia app del
genere). A questo punto da visual basic puoi fare la Dim di variabili
oggetto e fare tutto quello che vuoi......
Le potenzialità ovviamente dipendono dall'app che intendi pilotare: con
excel fai cose veramente interessanti, con internet explorer navighi e così
via.....
good coding!!!
-- 
Damiani Liborio Igor
ig...@igordamiani.it
 - 
soft...@igordamiani.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262
Newsgroup: it.comp.lang.visual-basic
Titolo: matrici di controlli ed evento LostFocus

Quando creo una matrice di controlli (tipo PictureBox) non posso gestire
l'evento LostFocus.
Come faccio a gestire questo evento se non disponibile?

 l'evento LostFocus.
A me risulta che l'evento LostFocus sia gestibile anche in una matrice di
controlli.
Prova a inserire questo codice nell'evento LostFocus
Private Sub Picture1_LostFocus(Index As Integer)
MsgBox "Evento LostFocus della PictureBox " & Index
End Sub
Ciao
Daniele
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        Le risposte alle tue domande le puoi trovare su:
 
http://www.murialdo.it/it_lang_vb
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Newsgroup: it.comp.lang.visual-basic
Titolo: dialog box printer

vorrei capire come gestire il numero di copie da stampare anche quando il
driver della stampante non le gestisce in automatico, grazie
ottavio

driver della stampante non le gestisce in automatico, grazie
Ripetere la stampa tante volte quante sono le copie da fare.
ciao, hal

 ha scritto nel messaggio
news:998lbh$7268$1...@ID-56381.news.dfncis.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: schema.ini

Salve a tutti
ho la necessità di accedere ad un file di testo e vi kiedo alcune
delucidazioni sull'utilizzo del file schema.ini

 delucidazioni sull'utilizzo del file schema.ini
La struttura standard di un file *.ini  dovrebbe essere simile a questa
[SESSIONE1]
Chiave1=stringa
Chiave2=stringa
Chiave3=stringa
Chiave4=stringa
[SESSIONE2]
Chiave1=stringa
Chiave2=stringa
Chiave3=stringa
Chiave4=stringa
Per leggere i valori delle varie stringhe o chiavi puoi cercare nei vecchi
post ,
in qualcuno dovrebbe esserci postato un modulino per leggerci e scriverci
dentro!
MIk

Mik ebbe il coraggio di dire:
(CUT)
Mi sa che ho sparato una minchiata,
forse si intende un'altra cosa col schema.ini!
Mah...
MIk

Esiste anche Xini (OCX freeware), che consente lettura/scrittura di
sezioni, chiavi e valori.
Io uso sempre quello e funzia come un 'pupetto'
^____^
ciao
Mirko Parisi
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 delucidazioni sull'utilizzo del file schema.ini
Prova ad usare questa funzione.... e' banale leggere/scrivere, dato che ci
sono le unzioni di sistema per farlo  :D
Public Function ReadINI(ByVal INIsection As String, ByVal INIkey As String,
ByVal INIdefault As String, ByRef inivalue As String, Optional ByVal INIname
As String = "") As Long
    On Local Error Resume Next
    Dim retini As Long
    If Len(Trim(INIname)) = 0 Then INIname = INIGENERALE
    If IsNull(INIdefault) Then
        INIdefault = ""
    ElseIf IsEmpty(INIdefault) Then
        INIdefault = ""
    Else
        INIdefault = Trim("" & INIdefault)
    End If
    inivalue = Space(255)
    retini = GetPrivateProfileString(INIsection, INIkey, INIdefault,
inivalue, Len(inivalue) + 1, INIname)
    inivalue = LeftNull(inivalue)
    ReadINI = retini
End Function
La stessa cosa per scrivere, basta usare la WritePrivateProfileSetting
invece della Get...
hope it helps
rIO

 sono le unzioni di sistema per farlo  :D
Forse sono scemo, ma mi aiuti. Non ho capito.
Mi dite il codice ad esempio per leggere nel file id.ini la chiava [Dati] e
stringa Nome.
E per scrivere sempre li?
E se volessi mettere che quando clicco su un pulsante si eseguono piů di
questi?
Grazie
--
[ Imperator ]
Comitato Gestione Free.It.* - CGFI
Web: 
www.infofreeit.tk
 - E-Mail: 
infof...@email.it
 - IRC: #infofreeit
Gruppo ANTISPAM: 
http://it.groups.yahoo.com/group/contro_spam/
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] STAMPAre un form su A4 V o O ??

Ciao.. vorrei stampare un FORM su un foglio A4, ma il form č piů grande...
me.print.... ma come potrei intervenire almeno dicendogli di GIRARE il
foglio A4 orizzontalmente o magari zoomarne il contenuto e poterlo far stare
graficamente su un A4 o chiedo troppo al VB6?
CIAO grazie dei consigli!
Anto
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com
 - The #1 Newsgroup Service in the World!
-----==  Over 80,000 Newsgroups - 16 Different Servers! =-----

graficamente su un A4 o chiedo troppo al VB6?
Potrei dire una "minchiata":
setti la proprietà Orientation dell'oggetto Printer.
Ciao
Aran Banjo
<math> 2 + 2 = 5 for sufficiently large values of 2</math>

Stai in designmode o a runtime mode?
Ciao
Andrea

> Stai in designmode o a runtime mode?
Uhmmmm a parte che essendo piuttosto na mazza, ho un tabella di textbox su
un form e qualche tasto...
Già non vorrei che stampa i colori ma solo i contorni e le scritte...
comunque... è un form che ha esattamente il formato 600x800 a pieno schermo
e se lo stampo evidentemente mi taglia lateralmente...
E' per evitare il ALT-PRTscr e copia incolla e stampa... ma farlo al volo...
ciao


 setti la proprietà Orientation dell'oggetto Printer.
Ciao... not problem... ho trovato che il printform fa stato sulle proprietà
della stampante definita da windows.
Sarebbe bello poter scegliere con il comando PRINTFORM le proprietà con
quale stampante andare direttamente in stampa e il formato della stampante.
A meno che si usi il default, ma si possa anticipare "il cambio"
orientamento e riportarlo originale dopo l'uso!
Come si potrebbe fare? Non en ho idea!
ciao


Newsgroup: it.comp.lang.visual-basic
Titolo: Stampa Si No

La macro sottoriportata viene utilizzata in excel con visual editor e stampa
una riga.
Volevo sapere le modifiche da apportare per dare la possibilità di stampare
o meno la riga premento il tasto Si o NO.
Private Sub Stampa()
Dim Riga As String
Riga = "STAMPA DI UNA RIGA"
For n = 1 To 10
      Cells(n, 2).Value = Riga
       MsgBox "STAMPA SI   NO"
      ActiveWindow.SelectedSheets.PrintOut Copies:=1
      Range("D8").Select
Next n
End Sub

 stampare o meno la riga premento il tasto Si o NO.
[...]
risposta = MsgBox("STAMPA SI   NO", vbYesNo)
if risposta =vbyes then
  ActiveWindow.SelectedSheets.PrintOut Copies:=1
end if
Ciao 
-- 
  ...saoche[at]despammed[dot]com...
Newsgroup: it.comp.lang.visual-basic
Titolo: Perchè no xxx.hWnd

Vorrei capire perchè negli articoli della microsoft quando devono ricavare
hwnd da un controllo fanno un giochetto come questo:
Combo1.SetFocus       ' Set the focus to the list box.
cbhWnd% = GetFocus()  ' Get the handle to the list box.
che poi non è la stessa cosa che:
cbhWnd%=Combo1.hWnd
Può darsi che come facciano loro sia più veloce ma il focus passa a Combo1 e
è una rottura di balle!!!!
Qualcuno ha qualche idea?????
--
Ciao Rango
http://utenti.tripod.it/RangO72/

č una rottura di balle!!!!
Continua pure come hai fatto finora, ch tra l'altro č senz'altro piů veloce.
Ciao

 dove lo hai letto?
C'è in un casino di articoli delle Knowledge Base prova a guardare:
Q84474, Q72677 e altri ma adesso non li ho sottomano

Perche' sono esempi vecchissimi che probabilmente si riferivano a VB1
che aveva i controlli senza la proprieta' hWnd,quindi, se volevi ottenere l'
hWnd
dovevi fare questo giochetto.
GL

 ha scritto nel messaggio
news:10r4s94$rlu$1...@fe2.cs.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Suonare un File Wav

Qual'è il modo più semplice per riprodurre un file audio wav senza
ricorrerre a librerie di terzi in visual basic 6 ?
Grazie mille a chi mi risponde

 ricorrerre a librerie di terzi in visual basic 6 ?
Usa le API! :)
Nella sezione delle dichiarazioni imposta la chiamata a winmm.dll e le
costanti:
Private Declare Function sndPlaySound Lib "WINMM.DLL" Alias "sndPlaySoundA"
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_LOOP = &H8
Const SND_NOSTOP = &H10
Il codice per riprodurre il file .wav e' del tipo
Suono$ = App.Path & "\MioWav.wav"
wFlags% = SND_ASYNC Or SND_NODEFAULT
X% = sndPlaySound(Suono$, wFlags%)
mentre quello per interrompere la riproduzione e':
wFlags% = SND_ASYNC Or SND_NODEFAULT
X% = sndPlaySound(0&, wFlags%)
Spero che vada tutto bene! :)
Ciao!
SonicBoom


Un altro metodo che preferisco (anche se non č il modo piů semplice) č
quello di incorporarmi nell'eseguibile i files wav, come descritto in questo
sito:
http://david90.freeservers.com/tutorial/RS21980.htm
(anche se mi pare che ci sia un limite massimo di dimensioni per il file .rc
generato...)
Ciao,
Välërďö

> Un altro metodo che preferisco...
Veramente bello ed interessante... grazie per la dritta! :)
SonicBoom

Con le API č meglio per me ma non riesco a gestire lo stop!!!!!
Mi spiego meglio
Il file wav parte ma quando faccio stop non mi si ferma !!!
Come devo fare?

 Il file wav parte ma quando faccio stop non mi si ferma !!!
Devi aprirlo come SYNC
Ciao
--
Timothy Redaelli
timothy(dot)redaelli(at)email(dot)it
-----------------------------------
Links:
Sito Comune: 
www.it-lang-vb.net
MSDN: 
msdn.microsoft.com

Devi aprirlo come SYNC
Ma l' hai provato?
SND_SYNC 
The sound is played synchronously and the function does not return until the sound ends. 
Invece:
To terminate the playback of a asynchronous wave initiated by sndPlaySound(), 
call sndPlaySound() with the lpszSoundName parameter set to NULL. 
This should be done only when an application is playing an asynchronous sound from memory 
and it is necessary to stop playing the sound.
-- 
hth, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] trace delle chiamate di un progetto

Ciao a tutti,
esiste un qualche programma che, dato un progetto/modulo/sub mi 
costruisca un albero delle chiamate contenute al suo interno? (e magari 
per ognuna di queste faccia lo stesso per le chiamate al suo interno)
Ciao, grazie

 interno)
cavolo se sarebbe utile, una cosa grezza con un search potrebbe essere :
1)search di "function" e "sub" e creazione dell'array dei nomi di func
2) seconda scansione dei file di progetto alla ricerca delle occorrenze
dell'array
3) output
-- 
-Gigio@Work(?)-

 3) output
1° problema , come fai ad intercettare gli eventi che si scatenano senza un
cast esplicito ?
Es: text1.text = "Ciccio" scatena l'evento text1_change ... bho !
-- 
-Gigio@Work(?)-

 Es: text1.text = "Ciccio" scatena l'evento text1_change ... bho !
Non mi interessa questo.
Io intendevo dire, se ho
Sub Sub1
    Call Sub2
    x = Func1(Func2, y)
End Sub
Sub Sub2
End sub
Function Func1(x, y)
    Call Sub2
End Function
Function Func2
End Function
Voglio che, dato "Sub1", analizzando il codice, non mi interessa il
compilato, mi dica
Sub1
+--Sub2
+--Func1
   +--Sub2
+--Func2
Capito?
Ho gią in mente come farlo (iniziando dal project-analizer che il WM non
vuole pubblicare :P e dal mio math parser per le call annidate, es
Func1(Func2)) ma se c'č gią in giro qualcosa č meglio.
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

Il 20/11/2003 12.35, Zanna scrisse:

http://www.codebytes.com/content/vbpinfo.htm
Non sono sicuro che sia cio' che ti serve ...
ciao
	maxx
P.S. Ti consiglio prima di fare domande al NG di consultare 
groups.google.com
!
http://groups.google.com/groups?hl=en&lr=&ie=UTF-8&oe=utf-8&threadm=aufrh9%2470rqk%241%40ID-97197.news.dfncis.de&rnum=2&prev=/groups%3Fhl%3Den%26lr%3D%26ie%3DUTF-8%26oe%3Dutf-8%26q%3Dvbpinfo%26btnG%3DGoogle%2BSearch
;-)
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 
Acc... mi hanno copiato l'idea!
Questo l'avevo fatto anch'io (č quello che č in attesa di pubblicazione 
da un mese :P), ma non č quello che cerco io.
Io non voglio l'elenco delle procedure di un progetto, ma l'albero delle 
chiamate delle procedure.
Ciao


Scusate se mi intrometto ma mi sembra un proggramino molto interessante..
una domanda:
Sbaglio o considera esclusivamente le chiamate all'interno dello
stesso modulo nel quale è definita la procedura stessa??
MIk

 
http://www.codebytes.com/content/vbpinfo.htm
Credo di averlo provato un annetto fa.
Credo anche di poter dire che non va, lascia fuori qualcosa...

 Credo anche di poter dire che non va, lascia fuori qualcosa...
Da una mia nota interna:
"...non riporta fra i "Called From" le chiamate di funzioni. Che me ne
faccio?"

Il 20/11/2003 18.11, Lupo scrisse:

Ci sono i sorgenti ... ;-)
ciao
	maxx


 
Anche se parziale e' presente. Per (quasi) ogni routine e' presente 
anche l'elenco delle chiamanti. Visto che sono disponibili i sorgenti 
non credo sia difficile ottenere quel che ti serve ...
ciao
	maxx

Newsgroup: it.comp.lang.visual-basic
Titolo: formato valuta nel campo di testo

Salve
come posso far comparire autamaticamente all'evento lost focus di un
campo di testo la dicitura delle lire con i separatori di migliaia?
ad esempio se uno inserisce la cifra 2000000 quando perde il focus il
campo di testo deve essere cosi L. 2.000.000  ho provato con la
proprieta'  DataFormat (ho messo valuta) ma non cambia nulla !!!
grazie

 wrote in message 3a9980f4...@news.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: 2 domande (screen saver e apllicazioni)

1 - esiste una proprietà che determina se una applicazione o un programma e
stato lanciato o se è in esecuzione? se si, quale?
2 - come fare per sapere se windows ha attivo lo screen saver?
GRAZIE

 e stato lanciato o se è in esecuzione? se si, quale?
CUT
Che io sappia no, cmq conosco un metodo per sapere la lista dei programmi in
esecuzione (lo ho letto sul numero di IoProgrammo di questo mese). Se ti
serve fammi un fischio.
BelthaZor

Newsgroup: it.comp.lang.visual-basic
Titolo: PERCHE'??? Humm...problemino con ciclo :)

Salve,
questa volta non devo popolare niente :)) Non ci sono listview di
mezzo ma...accade una cosa altrettanto...inspiegabile :))
Ho questo codice in un mio progetto, e prima di arrivare ad eseguire
la prima riga (qua sotto) strFile č valorizzato correttamente
    Do While strFile <> ""
        intCont = intCont + 1
 
        If LeggiID3(strFile, mp3) = False Then
	xxxxxxx
        Else
            'RTim elimina gli spazi da una stringa
            mp3.Titolo = RTrim$(mp3.Titolo)
            mp3.Autore = RTrim$(mp3.Autore)
            mp3.Album = RTrim$(mp3.Album)
            mp3.Anno = RTrim$(mp3.Anno)
            If mp3.Genere < 128 Then
                mp3.Genere = mp3.Genere
            Else
                mp3.Genere = ("Nessun genere")
            End If
        End If
 
        'legge il file successivo
        strFile = Dir
    Loop
Per quale motivo, se nel ciclo Do lascio la IF, quando
"LeggiID3(strFile, mp3) = False" č vero, il programma muore su 
"strFile = Dir" e se invece levo la if va bene? Il problema non č
nella funzione LeggiID3 (che tra le altre cose mi sono tirato giů dal
sito comune e e funzionante perfettamente, dovutamente modificata), da
li mi esce bene, infatti quando mi ritorna false mi stŕ bene, č quello
che accde dopo che non si capisce piů.
Con la IF muore al primo giro, senza if va bene.
Con quel "strFile = Dir" metto dentro quella variabile il nome del
file successivo, infatti questo clico mi legge tutti gli mp3 all'
interno di una dorectory e utilizzando la funzione Dir senza passare
nessun valore mi legge il file successivo.
Saluti.

Risolto...c' era un errore nella funzione...
Newsgroup: it.comp.lang.visual-basic
Titolo: Cerco OCX calendario

Salve,
volevo sapere se qualcuno sa dove posso trovare un OCX che abbia la funzione
di calendario con la possibilità di scegliere il giorno e poterne
registrare il valore da qualche parte (textbox o variabile che sia). Ce ne
sono un infinità di questi controlli ma quello che cerco deve avere due
caratteristiche fondamentali. Deve funzionare a 16 bit ed essere FREEWAY.
Lo so...  lo so , è pura fantascenza pensare che ci sia qualcosa del genere
ma non si sa mai.
Se avete qualcosa potete spedirlo a
GLAR...@tin.it
            GRAZIE !!!!!

dove posso trovare un OCX che abbia la funzione di calendario con la
possibilità di >deve avere due



Veramente gli OCX esistono anche a 16 bit. Dai un'occhiata a VB4 16.
Ciao
--------------------------------------------------------------------
Fulvio Senore
Eliminate "zz" dall'indirizzo e-mail per scrivermi (spammers...)
Remove "zz" from e-mail address to write me (spammers...)
--------------------------------------------------------------------

fa.
  Che strano, VB4 era una gran ciofeca, eppure riuscivo a fargli
leggere sia i VBX che degli strani OCX a 16 bit e funzionava pure: che
il mio computer riesca ad arrivare la' dove nessuno e' mai giunto
prima? :-)
  Ciao :-)
  Massimo
  Nell'indirizzo, sostituire DIESPAMMERS con MC1258
  In the address, replace DIESPAMMERS with MC1258

On Thu, 05 Feb 1998 19:10:31 GMT, 
DIESP...@mclink.it
 (Massimo
Luciani) wrote:
Giusto per rimanere nell'argomento...
Se a qualcuno interessa ( no fini commerciali ) testare il mio OCX
freeware di calendario, ( 32 bit ),può spedirmi una mail o rispondermi
su questo NG 
Genesio

Scuuuuuuuuusa questa è soltanto un'altra scuuuuuuusa.....
Chiedo formalmente venia a tutti quanti abbiano letto il mio precedente
messaggio.
Effettivamente è possibile avere degli OCX a 16 bit ma essendo passato io da
vb3 a vb5 non mi sono mai imbattuto in alcuno di questi.
Quindi scusatemi tutti specialmente Gianluca Larentis autore del primo
messaggio.
--BGies smiles--
Boss: I see you've been coming to work late every day.
Jack: Yes, but I go home early!
BGies at 
bg...@mercurio.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con componente Web Browser

Salve a tutti,
sto utilizzando il componente Web Browser per un programma. Avrei però
bisogno di ottenere il sorgente di una pagina e memorizzarlo in una
variabile come stringa. E' possibile farlo con tale componente?
Ciao
Giuseppe Di Natale
gdin...@tin.it

 variabile come stringa. E' possibile farlo con tale componente?
sorgente = WebBrowser1.document.body.innerhtml (o innertext)
Newsgroup: it.comp.lang.visual-basic
Titolo: Aprire una pagina internet

Francesco


puoi aprire pagine web in vari modi :
1) webbrowser (ocx microsoft)
2) aggiungendo reference a internet explorer poi con:
  dim web as new internetexplorer
  web.visible=true
  web.Navigate "
www.google.it
"
  puoi gestirlo come ti pare (anche gli eventi se proprio ci tieni) :))
3) puoi gestire tutte le istanze di explorer "gia aperti" in questo modo:
   aggiungi reference a microsoft internet control e poi..
   Dim IE As SHDocVw.InternetExplorer
   Private ShellObj As SHDocVw.ShellWindows
   Set ShellObj = New SHDocVw.ShellWindows
   For Each IE In ShellObj
         IE.Navigate "
www.google.it
"
   Next
ciao

Francesco

Newsgroup: it.comp.lang.visual-basic
Titolo: Cerco file avi

Qualcuno ha per caso un file avi che faccia vedere tipo una connessione ad
un server.
Grazie

 wrote in message 8f6rme$393$1...@nslave1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Spedire email

In un programma ho inserito un controllo OLE per mandare email con Outlook.
Cosa succede se un utente esegue il programma e prova a mandare un'email
senza avere Outlook? Probabilmente il programma dà errore.
Come posso fare a creare una procedura che spedisca email (con allegato e in
cui posso inserire il testo tramite codice) anche se non c'è l'Outlook ma un
altro programma di gestione Email?
Grazie in anticipo!
Ghigo    :)
ICQ# 50376812

altro programma di gestione Email?
E senza un mail client predefinito? Che ne dici? Sito comune.
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: Velocità di accesso a database !

Quando il gioco si fa duro e i duri cominciano a giocare.....
Come si comporta JET, usando un database tipo ACCESS, quando
il numero di record supera la soglia 50.000 e ogni record potrebbe essere
composto da un centinaio di byte con due chiavi di ricerca alfanumeriche da
12 
caratteri ???
Sarà  il database di una ferramenta " di paese" (magazzino con 1 collo per
ogni
prodotto esistente al mondo !).
I miei dubbi sono relativi ai tempi di accesso ai dati:
1. cercare un articolo per BARCODE, 12 digit, sicuramente associato ad un
index
2. cercare un articolo per DESCRIZIONE, 20 digit associato ad un index
3. cercare un articolo per una parte del campo descrizione, da 1 a 20 digit
4. cercare tutti gli articoli associati ad un campo BOOL (0-1)
5. inserire un articolo nuovo, aggiornando gli index.
la domanda: in che ordine di grandezza sono i tempi per le operazioni di
cui sopra ??
millisecondi, centinaia di millisecondi, secondi ???
Grazie in anticipo!
Marco.
 
-- 
s.info.@tread.it
-- 
s.info.@tread.it

 
s.info.@tread.it
Saluti.
Newsgroup: it.comp.lang.visual-basic
Titolo: Anteprima di stampa

Ciao a tutti!
Secondo voi qual'è il miglior modo per creare un'anteprima di stampa?
La mia idea è quella di creare una porta di visualizzazione grafica a
scorrimento tramite due picturebox e le barre. Il testo verrà stampato con
il metodo print ogni qual volta sarà necessario un aggiornamento (cioè
quando l'utente vorrà cambiare pagina oppure scorrerà all'interno della
pagina stessa).
Con questo sistema però si hanno degli svantaggi:
1- l'aggiornamento è sempre necessario quando ci si sposta all'interno del
documento (cioè quando la pagina da vedere è più grande in dimensioni
rispetto alla finestra). Perchè direte voi?
Beh perchè la picturebox cancella ogni carattere che esce al di fuori dei
suoi bordi, così è necessario ogni volta ristampare tutto con print.
2- Per effettuare lo zoom occorre cambiare le dimensioni dei caratteri,
effetto casino totale.
Un'alternativa a tutto ciò potrebbe essere quella di salvare tutto il
documento o le singole pagine come immagine bitmap in modo da evitare il
primo problema...per quanto riguarda lo zoom voi avete qualche idea?
Esiste un metodo "standard" per fare un anteprima di stampa?
Grazie!
--
Damiano Vitulli
!!!Date un occhiata al mio parapendio in cellophane e scotch!!!
www.clubhomosapiens.itgo.com

 ha scritto nel messaggio
news:tJJq5.153597$dF5.2...@news.infostrada.it...

Per l'anteprima penso proprio si possa far si che la picture non 'si
dimentichi' la grafica non visualizzata: hai provato con autoredraw = true ?
Per lo zoom ritengo che lo strumento che ti serve sia l'API BITBLT che fa
esattamente ciò di cui hai bisogno.


C'e' un bell'articolo: "Un'anteprima di stampa in Visual Basic" di
Stefano Castelli...
Sottotitolo: "Fare un'anteprima di stampa con zoom usando solo
Visual Basic e le API di Windows puo' suonare terribilmente
complicato, ma in realta' e' fattibilissimo. E soprattutto funziona!"
E' apparso su 'Professional Developer's Journal" di Novembre/
Dicembre 1997 (n.7).
Se riesci a procurartelo penso che tu possa risolvere il tuo
problema.
Ciao
--
Frogman
indirizzo e-mail corretto: 
be...@reboot.to
--------------------------------------------------------
Non fate i bambini in provetta.
Fateli nella zuppiera che ce ne stanno di piu'.
--------------------------------------------------------


Ok, mi era sfuggita la proprietà autoredraw! Adesso almeno uno dei problemi
è stato risolto! Vado di corsa a vedere come funziona l'API BITBLT...
Ciao e grazie!
--
Damiano Vitulli
www.zetadeck.iwarp.com
www.clubhomosapiens.itgo.com


Ho appena visto che l'API BITBLIT copia l'immagine nelle dimensioni
originali, non č possibile impostare differentemente le misure tra source e
destination.
Ho notato perň che esiste anche l'api STRETCHBIT (l 'ho appena provata e
funziona a meraviglia) dal funzionamento analogo solo che permette di
impostare altre due variabili in aggiunta: la dimensione dell'immagine
source, in questo modo č possibile anche zoomare!
Ciao!



Ok grazie, cercerň di procurarmelo...
Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda da novizio

So che saro' oggetto di dileggioda parte di tutta la lista, ma mi
faccio forza e vado avanti:
Come faccio ad associare a un pulsante di comando l'apertura di un
file???
Insomma, vorrei creare una finestrella che associ ad ogni pulsante
l'apertura di un file, mi aiutate.
Sono gradite risposte in E-Mail (non avrò il news server).
Ciao

Sono gradite risposte in E-Mail (non avrò il news server).
Je regrette ma le risposte devono servire a tutti.
Ciao.
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
 -----------Federico Emanuele Galli----------
 ----------Visual Basic's Programmer---------
 
 Sideralis Programs (Visual-Basic and Delphi)
 
http://www.geocities.com/colosseum/loge/2151
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
                 Trust no ONE.
Per rispondermi via E-Mail togli STOPSPAMMERS.
Guarda la RFD per it.comp.prog.collaborazione !

Newsgroup: it.comp.lang.visual-basic
Titolo: Printer: Ritorno con lo stesso problema

Come posso fare per stampare una tabella con l'oggetto printer e fare in
modo che a righe alternate una riga venga stampata con un colore di fondo
grigio (cioč testo selezionato) senza mettere delle linee separatrici?
Non voglio usare crystal report e nemmeno data report.
Ho provato a disegnare un rettangolo pieno su una riga e scriverci dei
caratteri dentro, ma mi fa il fondo bianco intorno ai caratteri.
Vi prego aiutatemi.
Grazie.

è un bel problema...
l'oggetto printer non ha una proprietà FontTrasparent?
prova nagari ad usare PrnPrv3...
è nel sito comne o da me...
per le stampe e l'anteprima di stampa
solo codice, free...
--[GbC]--
http://www.chiappori.net

Newsgroup: it.comp.lang.visual-basic
Titolo: mshflexgrid misto

Vorrei realizzare una tabella con MSHFLEXGRID contenente alcuni record di un
database
stampando solo 3 campi (3 colonne) e poi , qui arriva il "difficile" ,
aggiungere una quarta
colonna dove figuri una X o una Y(ad esempio) a secondo del contenuto del
campo z di quel
record (campo che non figura nella tabella)
Dato che utilizzo una istruzione Select per interrogare il DB come posso
record x record
aggiungere quel campo e soprattutto inserirgli il risultato appropriato ?
______
Flex


Dipende come carichi la griglia.
Se la carichi via codice riga per riga, aggiungere una colonna e' veramente banale.
ciao, hal

 ha scritto nel messaggio
news:9ds33m$jkbfu$1...@ID-56381.news.dfncis.de...



Beh, se usi un controllo bounded, ti conviene modificare la tua query: Se, ad
esempio, selezioni 4 campi di cui l'ultimo ha valori tipo 'PIPPO', che vuoi
rappresentare con 'Y', e 'PLUTO', che vuoi rappresentare con 'N', puoi fare
cosi':
SELECT Campo1, Campo2, Campo3, DECODE(Campo4, 'PIPPO', 'Y', 'PLUTO', 'N',
'DEFAULT')
FROM Tabella
Bye by Massimo 8-]
P.S. Funziona con Oracle, non con Access. Non so se con SQL Server gira...ci
dovrebbe essere anche una sintassi del tipo CASE ...END CASE, ma non ricordo
come si usa.

 ha scritto nel messaggio
news:3B022FD5...@macinform.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: DataGrid selezione riga

Ciao,
vorrei che al cliccare all'interno della griglia, non fosse selezionato il
testo interno alla singola casella, ma che si selezionasse l'intera riga
(come quando si clicca al lato della stessa).
Credo che l'evento da utilizzare sia ButtonClick, ma poi non so come andare
avanti, ho provato con setCurrentRow, ma niente...
Grazie
bye bye

 ha scritto nel messaggio
news:9u3bgb$5rsg9$1...@ID-93031.news.dfncis.de...

Se non ricordo male è una proprietà del datagrid, che dice che tipo di
selezione usare, se tutta la riga o solo la cella... prova a spulciare le
varie proprietà...

 bye bye
prova a vedere le Propietą MarqueeStyle

Grazie!!
DataGrid1.MarqueeStyle = dbgHighlightRow
bye bye

Newsgroup: it.comp.lang.visual-basic
Titolo: Displaying a message box before printing

Hi,
   I would like to be able to display a yes/no msgbox when a user
selects print (in any application) using VB or VBS but I am unsure of
where to start.
Any Ideas?
TIA
Tim

 ha scritto nel messaggio
news:7acd069a.03031...@posting.google.com...

If MsgBox("Print?", vbYesNo + vbQuestion) = vbYes Then
   'print
End If
bye

...


 
I don't know if it can be useful, but try this API:
FindFirstPrinterChangeNotification
bye
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

Newsgroup: it.comp.lang.visual-basic
Titolo: Errore imprevisto n. 50003...

A qualcuno è mai capitato di vedere questo errore all'avvio di applicazioni
scritte in vb5?
A cosa è dovuto? Perché la stessa applicazione su alcuni pc gira e su altri
no?


Ho postato un messegio simile giusto l'altro giorno e mi hanno risposto cosě
(la risposta č di mauro):
E' un errore dovuto ad un controllo. L' ho incontrato installando le mie
applicazioni su macchine con controlli con versioni diverse da quelli
presenti sulla macchina su cui č stato generato l'eseguibile.
In effetti aveva ragione. A me č successo questo: ho istallato su una
macchina un programma utilizzando setup wizard e il prg funzionava. Poi gli
ho fatto delle modifiche, ho ricompilato l'eseguibile e ho copiato solo
quello. A quel punto non fuzionava piů. Il problema č stato che nel
frattempo ho installato il SP3 il quale ha modificato molti controlli e da
lě il crasch.
Spero di esserti stato utile, ciao Rick
Newsgroup: it.comp.lang.visual-basic
Titolo: Proprietà Backcolor

Button e Form hanno la proprietà backcolor uguale a &H8000000F& ?
Non ci avebo mai badato, è normale?
 
VB6
 
-- 
Greg

 Non ci avebo mai badato, è normale?
 
Certamente: se lasci quel colore "impossibile" stai semplicemente
lasciando a windows la possibilità di usare il colore dettato dal
tema / personalizzazione: corrisponde a "vbButtonFace" se non
ricordo male.

Il 05/04/18 21:27:25 Franz_aRTiglio ha scritto:

Per evitare quel colore impossibile, e sceglierne un altro, devo impostare lo Style a "Graphical" ma cosi facendo il 
pulsante sparisce o diventa trasparente, non sempre ma spesso. C'è un modo per evitare questo comportamento?
 
-- 
Greg

 comportamento?
 
Pulsante che diventa trasparente ???? avrò i ricordi ofuscati ma...
mai vista una roba del genere, a meno che non ci sia qualche cagata
relativa ad aero o similari o "strane" API che sfruttano la "novità"
che fu introdotta con XP delle trasparenze e che VB6 mal digeriva...
 
Stai usando qualche controllo custom/ocx per pulsanti personalizzati ?

Il 06/04/18 14:07:19 Franz_aRTiglio ha scritto:

Assolutamente no.
La cosa anche strana è che non lo fa sempre. E quando lo fa basta chiudere e riaprire il form e alla seconda volta 
appare il pulsante.
 
Ma forse usando Style=1 bisogna usare la Maskcolor, ma temo di non capire bene:
 
"Restituisce o imposta un colore dell'immagine del pulsante come 'maschera' (ovvero traspsrente) se la proprietà Style 
è impostata a 1"
 
-- 
Greg

 (ovvero traspsrente) se la proprietà Style è impostata a 1"
 
cazzo sono _davvero_ arrugginito... sempre a memoria... si: maskcolor 
e'
proprio il colore che definisce quale porzione del bottone dev'essere
trasparente ed e' rilevante sopratutto se anzichè del testo metti
una bitmap, poniamo il caso che tu metta un'icona/disegno di un
tondo verde in campo rosso, se maskcolor e' rosso, vedrai solo il
tondo verde, viceversa con maskcolor verde vedrai un "buco" rosso.
 
Ovviamente questa cosa si riflette su/anche con sugli altri colori, ma
se usi come maskcolor un colore "improbabile" tipo il viola brillante
o il "verde neon" che si usa per i greenscreen dovresti aggirare anche
il "problema" di un'utente con gustio cromatici di merda :D

Il 06/04/18 15:36:07 Franz_aRTiglio ha scritto:

Ma io ho solo testo nel button, che può essere solo nero.
 
Lo sfondo del button è grigio, ma può diventare rosso in una determinata condizione.
Quindi la Maskcolor, dovrebbe essere impostata a grigio o a rosso?
 
-- 
Greg

 Quindi la Maskcolor, dovrebbe essere impostata a grigio o a rosso?
 
VERDE, così nessuna parte sarà mai trasparente.

Il 06/04/18 16:02:59 Franz_aRTiglio ha scritto:

Ok, provo col verde, sperando che questo risolva entrambi i problemi, trasparenza e sparizione. Intanto grazie :)
 
-- 
Greg
Newsgroup: it.comp.lang.visual-basic
Titolo: Stato di avanzamento della compattazione

Ciao a tutti,
mi servirebbe sapere se si può conoscere lo stato di avanzamento della
compattazione quando richiamo la function "ZpArchive" della Zip32.dll.
Grazie.
-- 
Posted from 158.102.162.5 by way of 
smtp3.libero.it
 [193.70.192.53] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Ciao a tutti,
mi servirebbe sapere se si può conoscere lo stato di avanzamento della
compattazione quando richiamo la function "ZpArchive" della Zip32.dll.
Grazie.
-- 
Posted from 158.102.162.5 by way of 
smtp1.libero.it
 [193.70.192.51] 


 wrote in message
news:G577QY$IccS7rFWd703dBcsFX0XnK...@libero.it...
Ciao a tutti,
mi servirebbe sapere se si può conoscere lo stato di avanzamento della
compattazione quando richiamo la function "ZpArchive" della Zip32.dll.
---------------- END QUOTE --------------------
Alla funzione ZpInit passi una struttura ZIPUSERFUNCTIONS.
Fra i campi di questa struttura, il primo (DLLPrnt) riceve con AddressOf l'
indirizzo della funzione che la ZpArchive chiamera' quando sara' in
esecuzione.
La funzione di callback che verra' chiamata da ZpArchive, avra' il seguente
prototipo:
Function DLLPrnt(ByRef fname() As Byte, ByVal nLen As Long) As Long
e potrebbe essere implementata piu' o meno cosi' (usando il solo vb, poi
volendo ci si puo' sbizzarrire con l' api per la copia dei buffer)
Function DLLPrnt(ByRef fname() As Byte, ByVal nLen As Long) As Long
    Dim strOut As String
    ' always put this in callback routines!
    On Local Error Resume Next
    strOut = String(nLen + 1, &H20)
    memcpy ByVal strOut, 
fname.ch
(0), nLen
    Debug.Print Trim$(strOut)
    DoEvents    'sembra che non guasti
    DLLPrnt = 0
End Function
Note:
1) memcpy e' un alias per la solita api:
Declare Sub memcpy Lib "KERNEL32" Alias "RtlMoveMemory" ( _
    lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
2) CBChar serve ad avere il buffer (array di byte) gia' dimensionato a 4K
Private Type CBChar
    ch(4096) As Byte
End Type
Ciao
Aldo

Newsgroup: it.comp.lang.visual-basic
Titolo: A proposito di contarighe..

Ho visto un post giorni fa in cui si parlava di una funzione api per contare
le righe all'interno di una textbox :
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
 (ByVal hwnd As Long, ByVal wMsg As Long, _
 ByVal wParam As Long, lParam As Any) As Long
Const EM_GETLINECOUNT = &HBA
Dim NumLines As Long
NumLines = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0&, 0&)
esiste un modo per visualizzare il testo di ogni riga utilizzando un ciclo
for?

 esiste un modo per visualizzare il testo di ogni riga utilizzando un ciclo for?
.... vabbe'...
http://groups.google.com/groups?hl=it&selm=9k7lbo%245342%241%40stargate1.inet.it
Bye, G.