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

Sono riuscito a associare (la stessa icona all'EXE associato) le icone, ora
dato che ho già avuto risposte del tipo vedi messaggio etc... Se vi va
aiutatemi, e vi ringraziero a dovvere, altrimenti, lasciatemi perdere....
    1) Vorrei cambiare l'icona del MIO EXE.
    2) Il mio EXE Produce dei file con estensione .EXT, come posso associare
FILE.ICO a  FILE.EXT,
        Divversa dall'icona del mio EXE?
    Grazie a tutti coloro che mi aiuteranno!, ma si'.. oggi sono buono,
anche a quelli che mi lascieranno perdere... :-))


Andrea Secci wrote:



    1) Vorrei cambiare l'icona del MIO EXE.

Per cambiare l'icona dell'eseguibile, quando dal menu file lanci il make,nella
finestra che ti compare c'e' un tasto per dargli delle altre opzioni. Li
trovi anche l'icona da usare

 

-- 
*** Rimuovere le lettere maiuscole dall'indirizzo per risponedere
*** Remove uppercase characters to reply

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB.NET] File da allegare al programma

Ciao a tutti,
mi scuso per il subject poco chiaro.
Ho fatto un applicativo che fa uso anche di un programma esterno (Report 
Manager) per il quale ho creato dei files che mi servono per stampare i 
report.
Ora questi files li ho messi nella stessa directory del progetto nella 
cartella "reports".
Come faccio a dire a 
VB.NET
 dove si trovano i files indipendentemente da 
dove l'utente andrà ad installare il programma?
Immagino che in fase di installazione devo includere questi files e 
metterli nella mia cartella report che si trova allo stesso livello di 
dove viene installato l'eseguibile ( e già questo non so come farlo) e 
poi da codice quando accedo ai files del programma devo fare riferimento 
alla posizione dell'eseguibile per cercare la cartella reports ... ma 
ancora non so come fare.
Oltre a tutto questo vorrei anche che i files siano accessibili in 
debug, quindi nella cartella bin/Debug ....
Immagino che sia un problema stra-noto e risolto ma non so cosa cercare 
.... qualche suggerimento?
grazie, ciao
Mauro

 ancora non so come fare.
Dim rp As New Reportman.Reporting.Report
rp.LoadFromFile(IO.Path.Combine(Application.StartupPath, "Report\" &
reportName))

 reportName))
Perfetto, grazie !!!
Adesso devo solo trovare come allegare i files del report nel pacchetto 
di installazione
ciao
Mauro

 di installazione
Ti basta mettere la cartella dentro al progetto e dire "Sovrascrivi se pi�
nuovo".

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

qualcuno conosce qualche tutorial sulla crittografia dei file?
grazie!  roby

www.enricozimuel.net
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Chiedo aiuto su Error 438....!!!!

Sono alle prime armi ed ho provato a fare un programma .exe con Vb 6 che mi
collega ad Excel. 
Se Excel è chiuso lo apre e aggiunge una cartella di
lavoro. 
A questa cartella vado a modificare il nome del "foglio1" e
inserisco una parola nella prima cella!! E' una cosa gnocca ma era tanto
per provare!!
Sta di fatto che se lo eseguo passo x passo con il Debug
(mi spiego?....premendo F8) il programma funziona benissimo, altrimento se
lo faccio partire come file .exe mi da questo messaggio di errore:
"438:
Object's doesn't support tihs property or this method"
Quale può essere
l'error? Quello che non capisco è perche in un modo me lo esegue e
nell'altro no!!!
Questo è il codice :
--------------------------------------
Option Explicit
Private Sub
Command1_Click()
    example
End Sub
--------------------------------------
--------------------------------------
Dim xlApp As Object
Dim wkb As
Object
Dim shs As Object
_____________________
Sub main()
Form1.Show
End Sub
_____________________
Public Sub example()
On
Error GoTo err
Set xlApp = GetObject(, "Excel.Application")
With
xlApp
     .Visible = True
     With .activeworkbook
.worksheets("foglio1").Name = "prova"
        Set shs =
.worksheets("prova")
     End With
End With
With shs
     .cells(1,
1) = "provabis"
End With
err:
 If err = 429 Then
    err.Clear
Set xlApp = CreateObject("Excel.Application")
    xlApp.workbooks.Add
Resume
 Else
    ShowErrMsg
 End If
End Sub
______________________
Public Sub ShowErrMsg()
With err
MsgBox Trim(Str(.Number)) & ":" &
vbCrLf & .Description, vbOKOnly + vbCritical, "Errore"
End With
End Sub
_______________________
Mi potete aiutare???!!!
Vi ringrazio
anticipatamente, ciao Matteo!!!!
--------------------------------
Inviato via 
http://usenet.iol.it


END SUB altrimenti ti visualizza l'ultimo errore
Ciao
Diego

> Questo è il codice :
Option Explicit
__________________________
Private Sub Command1_Click()
    example
End
Sub
_________________________
--------------------------------------------------------
_________________________
Dim xlApp As Object
Dim wkb As Object
Dim shs
As Object
_________________________
Sub main()
    Form1.Show
End Sub
Sub example()
On Error GoTo err
Set xlApp = GetObject(,
"Excel.Application")
With xlApp
     .Visible = True
     With
.activeworkbook
        .worksheets("foglio1").Name = "prova"
        Set
shs = .worksheets("prova")
     End With
End With
With shs
.cells(1, 1) = "provabis"
End With
err:
 If err = 429 Then
err.Clear
    Set xlApp = CreateObject("Excel.Application")
xlApp.workbooks.Add
    Resume
 Else
    ShowErrMsg
    Resume
 End If
End Sub
_______________________________
Public Sub ShowErrMsg()
With err
MsgBox Trim(Str(.Number)) & ":" & vbCrLf & .Description, vbOKOnly
+ vbCritical, "Errore"
End With
End Sub
______________________________
Caio Grazie Matteo

Newsgroup: it.comp.lang.visual-basic
Titolo: mdac 2.7

MDAC 2.7 :
mi serve installarlo se uso DAO con ACCESS e SQLSERVER?
(adesso uso il 2.5... mi pare)
grazie

 mi serve installarlo se uso DAO con ACCESS e SQLSERVER?
Non confondere le librerie con i provider.
MDAC aggiorna le librerie (Ado e, forse, Dao)
MDAC aggiorna anche alcuni provider, ad esempio SQLOLEDB, che è il provider
di connessione a Sql-Server/MSDE.
Il provider di connessione a Access si chiama invece Jet, e NON è più
contenuto in MDAC dalla 2.6 in poi.
In linea di massima, se si vuole stare tranquilli e far funzionare tutto, si
mette MDAC2.71 e JET40SP7, così si ha l'ultima versione di tutte le librerie
e di tutti i provider MS.
Ciao
Alberto
-- 
"Tina, ta te tòta tinta un tac!"
"Te cat tac i tac, m'tac't un tac?"
"Me ca tac un tac a tè?
Tac'tel te l tò tac, tò!"

Newsgroup: it.comp.lang.visual-basic
Titolo: Gestione files di testo

Devo aprire e gestire files TXT piuttosto "Pesanti" (anche sopra i 3 Mb).
Devo riuscire a filtrarli tramite criteri di selezione molto semplici.
Vorrei sapere se esiste un metodo, una funzione abbastanza veloce che mi
cerchi una frase o una parola all'interno del file TXT senza doverlo
scorrere tutto con il comando "LINE INPUT #numerofile, variabile stringa".
Grazie in anticipo,
Matteo

...

Filtro o ricerca ?
Ho avuto un problema simile al tuo, ricerca in  un File txt di 20 Mb con
circa 200.000 record , e ho fatto cosě:
- lo apro in binary , decisamente piu' veloce di line input
- leggo blocchi di 10000 byte con l'istruzione Get , la dimensione del
blocco puoi studiarla e modificarla e trovare     quella piu' consona (un
blocco da 10000 andava bene al mio caso)
- cerco nel blocco la frase che mi serve. questa e' la fase piu' critica di
questa tecnica perche' la stringa che cerchi, se i record non sono a
lunghezza fissa, potrebbe essere a cavallo tra due blocchi in questo caso
devi inserire una routine di controllo sulla coda del record e sulla testa
del blocco successivo
il risultato, su un file da 15 Mb, puoi ottenerlo in 3-4 secondi
uso per comodita' d'esempio due textbox una per immettere la stringa da
cercare la seconda per il risultato
Dim numerofile as integer
numerofile = FreeFile
Open "c:\listino" For Binary As #numerofile ' Apre il file.
Dim a as long, counter as long , dimfile As Long
Dim TextLine as String
counter = 1
dimfile = LOF(numerofile)
TextLine = String(10000, " ") ' definisco il blocco di byte da leggere =
10000 byte
Do While Not EOF(numerofile) ' Ripete fino alla fine del file.
        Get #numerofile, counter, TextLine
        ' cerco text1 nel blocco
        If InStr(1, TextLine, Text1.Text) > 0 Then Exit Do ' ho trovato
text1.text nel blocco
      counter = counter + 10000
Loop
text2.text= TextLine ' ora o il blocco e lo visualizzo in text2
Close #numerofile    ' Chiude il file.
Ciao stefano
Newsgroup: it.comp.lang.visual-basic
Titolo: Libro che insegna a creare controlli





Vorrei conoscere il titolo di un libro che insegna 
a creare controlli active x.


Deve trattare la creazione di controlli utilizzando 
le api , cioe il controllo deve essere costituito in


minima parte da controlli già 
esistenti!


 


grazie per le eventuali 
risposte



 ha 
  scritto nel messaggio 
news:OE18SQEfPzFsE...@hotmail.com
...


Visual Basic 6 Creare Oggetti di Deborah Kurata, Mondadori
Informatica, ma non l'ho ancora consultato.
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!
P.S. non postare in HTML
Newsgroup: it.comp.lang.visual-basic
Titolo: Access 97 o 2000

Sono uno degli ultimi programmatori che ancora non e' passato ad access
2000 ed ho un'azienda tra i miei clienti che usufruisce di un mio pgm
vb6 / access 97. Tutto bene ma vorrei trasformare il tutto in access
2000. Ci ho provato ma vb6 non riconosce le istruzione tipo recordset
etc... Avete un consiglio per me ? Cosa devo cambiare ?
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 
http://groups.google.com/groups?hl=en&lr=&ie=ISO-8859-1&q=access+97+2000&btnG=Google+Search&meta=group%3Dit.comp.lang.visual-basic
Ma come? Solo 1010 risposte???
;-)
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 etc... Avete un consiglio per me ? Cosa devo cambiare ?
Usi DAO o ADO?
_____________________________________________
James Tiberius Kirk, matricola SC 937-076 CEC
  Nato a Riverside, nello Iowa, USA, Terra
            il 1277.1 (26/03/2233)

 etc... Avete un consiglio per me ? Cosa devo cambiare ?
Dichiara fra i riferimenti DAO 3.6 e (se presente) togli DAO 3.5x
Questo potrebbe giustificare il fatto che "vb6 non riconosce le istruzione
tipo recordset".
Se fra i riferimenti hai anche ADO, allora dichiara i vari oggetti del
database (database, tabelle, recordsets, etc.) come DAO.xxx

 recordset etc... Avete un consiglio per me ? Cosa devo cambiare ?
Come ti hanno detto....
www.microsoft.com/data
aggiorna il motore Jet...se poi ti va con l'occasione aggiorna anche
Mdac...occhio che l'aggiornamento di Jet NON è compreso in Mdac
POI
tira dentro come ti hanno detto il 3.6 e leva il 3.5qualcosa
ta dah!
Access2000 Online!
--
%%============================%%
Il Wodkino Nazionale è raggiungibile anche a :
www.martek.it
Ed ha pure il forum...
http://www.martek.it/go.asp?PortamiA=1

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

Scusate, magari è una domanda fatta mille volte: Ho un record preso da una
tabella Access, lo voglio formattare come pare a me e poi mandarlo in stampa
passando atraverso la finestra di windows dove posso scegliere la stampante
e tutte le altre cose.
Qualcuno mi dice da dove comiciare?
Grazie :)
Puzz

 wrote in message 81lk5t$iig$1...@nslave1.tin.it...


Puoi usare il CommonDialog Control, sia per la scelta dei font che delle
stampanti

Newsgroup: it.comp.lang.visual-basic
Titolo: TextBox:scorrimento e limitazione numeri

Ciao a tutti.
Avrei qualche domanda da porvi.
La prima e': come posso fare che la mia textbox multiline
scorra automaticamente quando il testo arriva all'ultima riga?
La seconda: qual e' la porta piu' alta che si possa aprire in locale in TCP?
Terzo: devo fare in modo che in una textbox vengano immessi solo numeri,
che non superino un determinano valore (la porta :P )
come posso fare?
grazie 1000 e ciao a tutti
--
"...Giacche', per quanto e' meglio agire bene piuttosto che sapere,
e' necessario sapere prima di agire [...]"

come posso fare?
FAQ: anche questa domanda e' stata posta parecchie volte.
ciao, hal

 e' necessario sapere prima di agire [...]"
Per le prime due segui il consiglio di hal.
per il terzo:   (codice preso dal sito di diego:
http://www.biapps.it/vbprogrammer/
)
Con questo tips č possibile forzare l'utente ad inserire solo caratteri numerici
in un textbox.
Questa soluzione prevede l'utilizzo di due funzioni API:
GetWindowLong
SetWindowLong
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal
dwNewLong As Long) As Long
Const GWL_STYLE = (-16)
Const ES_NUMBER = &H2000&
Public Sub SetNumber(NumberText As TextBox, Flag As Boolean)
Dim curstyle As Long, newstyle As Long
    'Ottiene lo stile del text box
    curstyle = GetWindowLong(NumberText.hwnd, GWL_STYLE)
    If Flag Then
        curstyle = curstyle Or ES_NUMBER
    Else
        curstyle = curstyle And (Not ES_NUMBER)
    End If
    'Imposta il nuovo stile
    newstyle = SetWindowLong(NumberText.hwnd, GWL_STYLE, curstyle)
    'Aggiorna il textbox
    NumberText.Refresh
End Sub
Private Sub Form_Load()
    SetNumber Text1, True
End Sub
Forse c'č un metodo migliore che non conosco...ma oggi casdualmente ho visto questo č te l'ho incollato.
CIAO SIMO
--
__________________
www.sasim.cjb.net

 Forse c'è un metodo migliore che non conosco...ma oggi casdualmente ho
visto questo è te l'ho incollato.


Ciao,
prime due vedi Hal
per la terza parte il controllo dei tasti premuti lo effettui sull'evento
KeyPress mentre il range lo puoi ottenere con:
Private Sub Text1_Change()
    Const MioVal As Integer = 1118
    If Val(Trim(Text1)) > MioVal Then Text1 = Left(Trim(Text1),
Len(Trim(Text1)) - 1): Text1.SelStart = Len(Text1)
End Sub
beppe
-----------------------------------------------------------
Visita il sito del WWF AltoFerrarese
http://www.comune.cento.fe.it/wwfaf
-----------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT]Non installa un programma

Ho disinstallato il programma "RicettessnOnline" come mi hanno suggerito gli 
operatori della sogei perchè l'aggiornamento non funzionava.
Ora il problema è che win vista non mi fa installare la nuova versione.
Parte installshield, ma quando va a creare gli shortcut, mi da errore 1312 
"Impossibile creare la directory C:\Users\ecc...\RicettessnOnline, perché 
esiste già un file con questo nome. Rinominare o rimuovere il file, quindi 
scegliere Riprova oppure Annulla per uscire".
Ho fatto tutte le ricerche sul pc ma la cartella in questo percorso non 
esiste. La cartella RicettessnOnline la crea sotto C.
In rete dice di cercare la cartella e rinominarla o eliminarla, ma quale 
cartella, se nel percorso del messaggio di errore non esiste?
Come posso risolvere?
Carmelo 


Metodo 1: click cul tasto destro sull'eseguibile e
               scegli "esegui come amministratore"
Metodo 2: start-->esegui-->
%appdata%
(percentoAPPDATApercento) cerca la cartella da li (potrebbe trovarsi
anche --> un livello piu' alto\local ) e cancellala.

Newsgroup: it.comp.lang.visual-basic
Titolo: Programma bloccato

Salve ragazzi !!!
So che probabilmente vi state stancando delle mie continue richieste di
aiuto, ho imparato da poco il VB, sono le prime volte che programmo ed ho
bisogno di fare esperienza
Ho fatto un programma che legge un' immagine e la mette in un buffer di
bytes.
Poi con un for copio un buffer in un' altro e salvo quest' ultimo buffer.
Finchè faccio solo questo tutto va a gonfie vele.
Quello che voglio fare è però questo :
Dim a as Bytes, Binary as String
For a = 0 to end
    a = Buf1(a)
    Binary = Bin(a)
    a = BinToDec(Binary)
    Buf2(a) = a
Next
In questo secondo caso il programma si blocca (me ne accorgo schiacciando
dopo un pò di attesa ctr-alt-canc)
Ecco le funzioni Bin e BinToDec
Function Bin(ByVal x As Byte) As String
Dim strBinary As String, intResto As Integer, a As Integer
While x
    a = a + 1
    intResto = IIf(x Mod 2 > 0, 1, 0)
    strBinary = CStr(intResto) & strBinary
    x = x \ 2
Wend
For a = a To 7
    strBinary = "0" & strBinary
Next a
Bin = strBinary
End Function
Function BinToDec(ByVal Binary As String) As Byte
Dim Bytes As Byte, a As Integer, Temp As Byte
Bytes = 0
For a = 1 To 8
    Temp = Val(Mid(Binary, a, 1))
    If Temp > 0 Then Bytes = Bytes + Temp * 2 ^ (8 - a)
Next a
BinToDec = Bytes
End Function
Che ne pensate ??
Come è possibile ???
Potrebbe dipendere dalle funzioni troppo lente????
In tal caso come potrei ottimizzarle ?????
Come vedete ho ancora bisogno del vostro aiuto !

 Next
Se cambi la variabile contatore all'interno del proprio ciclo, ti sarà
difficile avere risultati corretti...
Bye, G.
--
---------------------------------------------
    Le risposte alle tue domande le trovi sul
    Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------
Real E-address: 
gaet...@hotmail.com

 > Next a



Newsgroup: it.comp.lang.visual-basic
Titolo: Dates

Can date be calculated with comparison symbols as:
Date1 > Date2
Date1 <> Date2
Date1 = Date2

 wrote in message
news:a05ee$4225b891$4117f14d$28...@COQUI.NET...

Yep.
Regards,
    Phill  W.

 wrote in message 
news:a05ee$4225b891$4117f14d$28...@COQUI.NET...


 ha scritto nel messaggio news:a05ee$4225b891$4117f14d$28...@COQUI.NET...

Yes, very yes

 ha scritto nel messaggio news:4225cfa8$1...@news.unimib.it...

Why not?


Yes, as long as they these variables are Date data types. If they are
Strings data types (received from something like a TextBox), then no.
Rick

 Strings data types (received from something like a TextBox), then no.
Could do something like
Dim Date1 As Date
If IsDate(Text1.Text) Then
Date1 = CDate(trim(Text1.Text))
Else
MsgBox Text1.Text & " is not a valid date!"
End If 

's wild thoughts were
released on Wed, 02 Mar 2005 14:58:10 GMT bearing the
following fruit:

Try typing something like
1/2
into yer textbox
Jan Hyde (VB MVP)
-- 
'I hate quotations.' -- Ralph Waldo Emerson 
[Abolish the TV Licence - 
http://www.tvlicensing.biz/
]

> Try typing something like 1/2 into yer textbox
True enough, Would have to do some other tests like Len and Instr etc.

 ha scritto nel messaggio
news:4225cfa8$
1...@news.unimib.it

ROTFL!!!
Yes very yes?
Nņio volevąn sąvuąr
:-)
-- 
Il Wodkino Nazionale č a : 
www.martek.it
Pagina Vb/Bestiario/Lamer Experience :
http://www.martek.it/go.asp?portamia=2
 Demo classe vb.NET :
WodkaThumb 
www.villaceleste.it
  click su "spippolando e
Programmando"

 into yer textbox
Or even 1.2 or 1.2.3 <g>
Rick

's wild thoughts were
| released on Wed, 02 Mar 2005 14:58:10 GMT bearing the
| following fruit:
|
| >
| >Dim Date1 As Date
| >If IsDate(Text1.Text) Then
| >Date1 = CDate(trim(Text1.Text))
| >Else
| >MsgBox Text1.Text & " is not a valid date!"
| >End If
| >
|
| Try typing something like
|
| 1/2
|
| into yer textbox
|
With small change for testing purposes:
Private Sub Command1_Click()
    Dim Date1 As Date
    If IsDate(Text1.Text) Then
        Date1 = CDate(Trim(Text1.Text))
        MsgBox "Date/Time is " & Date1
    Else
        MsgBox Text1.Text & " is not a valid date!"
    End If
End Sub
Test results:
    1/2        Date/Time is 1/2/2005
    1.2.3     Date/Time is 1:02:03 AM
What's wrong with that? :)

 What's wrong with that? :)
You are trusting on the implicit data type conversion performed
by visual basic, but, as you can easily see, it's *the evil* !
-- 
bye, hal

's wild thoughts
were released on Wed, 2 Mar 2005 17:55:07 -0800 bearing the
following fruit:

Your kidding, right?
Jan Hyde (VB MVP)
-- 
People are like tea bags. 
You have to put them in hot water before you know how strong they are. (Bill Rayburn) 



Mostly yes, although I like typing just the month and day in Access or Quicken, 
and having the program assume that I am referring to the current year, so the 
1/2 result is actually okay with me. The double-decimal point conversion is just 
plain wacky, though.


Jan Hyde (VB MVP)
-- 
For insomnia move to the edge of the bed and you'll soon drop off. 
(Pun of the Day) 

Newsgroup: it.comp.lang.visual-basic
Titolo: Programma tsr

Salve a tutti,
ho un programma che una volta chiuso rimane indesideratamente fra i task
attivi(lo vedo con Ctrl-Alt-Canc). Ho provato a fare l'unload di tutti i
vari form e oggetti , ma il problema permane.
Da cosa può dipendere?Può essere un ocx bacato?

 vari form e oggetti , ma il problema permane.
prova a:
- mettere Enabled = False a tutti i Timer
- chiudere tutti i RecordSet
- chiudere tutte le Connection (o i Database)
- chiudere le connessioni via WinSock
- in generale, (chiudere e) settare a Nothing tutte le variabili oggetto
- fare un ciclo del tipo
Dim frmForm As Form
For Each frmForm In Forms
    Unload frmForm
    Set frmForm = Nothing
Next
Faber

 vari form e oggetti , ma il problema permane.
Sono abbastanza sicuro che e' comunque un qualche form che per qualche
motivo e' ancora
caricato in memoria e che ti e' sfuggito, oppure hai eseguito un metodo di
un controllo (quali controlli usi in questo programma?) e tale metodo non e'
terminato o e' in attesa di qualche altro evento o input.
Nella form principale del programma, nella Form_Unload mettici anche
l'istruzione End per essere certo che venga scaricato tutto:
Sub Form_Unload
    End
End Sub
Se con questo non risolvi, il problema e' da ricercare nell'uso dei
controlli, quindi verifica bene la cascata di eventi.
--
   Dotto
--- Per scrivermi togli lo spam dall'indirizzo ---
Sei anche tu stanco dei messaggi spam? Usa Terminator, il programma
anti-spam italiano FREEWARE! 
http://www.sertel.net/terminator/

 controlli, quindi verifica bene la cascata di eventi.
dovrebbe essere, invece, l'esatto opposto: non usare End, e verificare
bene lo scaricamento degli oggetti e form
Faber

Newsgroup: it.comp.lang.visual-basic
Titolo: estrarre testo da celle excells

Con Visual Basic m'arrangio, ma ho questo piccolo problema con VBA:
dovrei estrarre testo da celle di excell per cui uso
Range("X15:Y15").Text
ma il punto è come faccio a far scandire le varie celle per esempio
AA15:Y15 ecc.?
Grazie! 


Dim rng As Range
Dim c As Range
Set rng=NomeFoglio.Range("A1:F14")
For Each c in rng
    NonSoDoveVuoiMetttereIlValore = c.Value
next
-- 
----------------------------
Mauro Gamberini
Newsgroup: it.comp.lang.visual-basic
Titolo: Controlli VB6

Vorrei sapere quale è il controllo usato in Napster (la finestra nella quale
si visualizzano i risultati di ogni ricerca) per realizzare la finestra
principale.
E' un controllo standard o è realizzato combinandone di diversi ???
Mi serve perchè nella stessa forma voglio mandare a video i risultati delle
interrogazioni ad un database...
Grazie anticipatamente......

 ha scritto nel messaggio
news:Mp1t6.47554$6W.45...@news.infostrada.it...

:-)
Cosma "Yo{T}a

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

come richiedere  una matrice (n X n) all'utente?
--
Automatic posted from 
mail.pelagus.it
 [194.184.19.5]
via Mailgate Server - 
http://www.mailgate.org

...


Newsgroup: it.comp.lang.visual-basic
Titolo: [RISOLTO]MSXBSE35.DLL

Ho risolto i miei problemi con questa DLL.
Non era la DLL ad avere problemi sono riuscito
tramite il CLSID a trovare la soluzione sul
sito della M$.
Per risolvere il problema è bastato mettere fra i
riferimenti DAO 3.51 Object Library invece
di DAO 3.6.
Un grazie particolare a Wodka4U per l'aiuto prezioso
                                                    danilo

 ha scritto nel messaggio
news:9pufrd$jptne$1...@ID-111402.news.dfncis.de...
Cut

Newsgroup: it.comp.lang.visual-basic
Titolo: Sfondo zoomato da applicare ad una listview

Ciao a tutti,
vorrei applicare uno sfondo ad una listview. Nella versione 6.0 ciò è molto
semplice poiché esiste una proprietà .Picture. Ma come fare per
ridimensionare
l'immagine (anche deformandola) in modo da occupare tutta l'area a
disposizione
del controllo?
Immagino si debba usare la funzione StretchBlt ma non ne sono sicuro e non
ne
sono capace.
Grazie in anticipo.

 ha scritto
nel messaggio
news:oVKf9.13824$6O4.2...@twister1.libero.i
t...

Prova a dare un'occhiata qui
http://vbsimple.virtualave.net/index.htm?http
://
vbsimple.virtualave.net/howto/036.htm

 ://
vbsimple.virtualave.net/howto/036.htm
In quell'esempio c'è solo la spiegazione di come usare una StretchBlt su una
Picturebox. La cosa non è molto difficile poiché non c'è da fare nessun
subclass.
Il problema è usare StretchBlt sullo sfondo di una listview. Qui ci sono da
disegnare anche le icone, gestire lo spostamento delle stesse, le label.
Non posso fare tutto io, io devo solo disegnare lo sfondo quando necessario,
cioé agli eventi WM_PAINT o WM_ERASEBKGND. Ma come si fa? Qualcuno mi può
postare del codice relativo?
Sono riuscito a fare un subclass dei messaggi inviati alla listview ma non
so di preciso quali messaggi devo gestire e cosa farci! Mi sono incasinato
tra bitmap, palette, brush, DC, ecc. ecc. E quando provo a fare qualcosa
lo sfondo della listview si sporca soltanto :(((
Spero vivamente che qualcuno mi aiuti!!!!
Newsgroup: it.comp.lang.visual-basic
Titolo: Filtrare una tabella

Cosa bisogna fare per applicare un filtro ad una tabella
di Access mediante Visual Basic e vederne il risultato in
una DBGrid?
                                                                Grazie!

 wrote in message 819381$gla$1...@nslave2.tin.it...

E' semplice :
    allora .....
    Dim oRs as Recordset
        Set oRs = MioMdb.Openrecordset("Select Campo1,Campo2,Campo n .......
From NomeTabella Where Campo1>10 Order By Campo2;)
    Set Me.Data1.Recordset = oRs
Supponendo che il DbGrid sia collegato tramite la proprietą DataSource ad un
Data, visualizzerai il risultato della Query, dove ....
  Campo1 2,3, etc ... siano i nomi dei campo della tabella definita nel tuo
Database che io ho chiamato 'MioMdb' e che scriverai dopo il From.   La
parola chiave Where ti permette di definire tutti i criteri di ricerca che
vuoi.
    Spero di essere stato abbastanza chiaro ....... ..    CIAO !!!
Newsgroup: it.comp.lang.visual-basic
Titolo: VB, ASP; ASP, VB... E fra le altre cose il FileSystemObject

Ciao a tutti!
Dopo un lunghissimo periodo di silenzio, mi rifaccio vivo...
Ho uno strano problema in ASP (se vi domandate perche' posto qui leggete e
vedrete...), praticamente da ASP utilizzo il FSO per verificare l'esistenza
di file & cartelle ed eventualmente leggerli o crearli...
Fino adesso ha sempre funzionato egreggiamente...
Oggi monto un nuovo server, dove devo lavorarci, purtroppo il vecchio server
non esiste piu' e questo e' il sostituto...
In fin dei conti le differenze sono sono abbissali, entrambi montano w2k
server, una caterva di ram e qualche HD...
Qual'e' il mio problema?
Semplice, da ASP non riesco piu' ad usare il FSO!
Quando lo uso PIANTO totalmente IIS! Tanto che devo riavviare il servizio!
Questo e' il codice "incriminato", che fino ad oggi ha nfunzionato:
<%
Dim File_Interno, FSO_Interno, F1_Interno, Testo_Interno
File_Interno = "C:\Inetpub\Red\it\articoli\aw004\26\26"
Set FSO_Interno = CreateObject("Scripting.FileSystemObject")
if FSO_Interno.FileExists(File_Interno) Then
 Set F1_Interno = FSO_Interno.OpenTextFile(File_Interno)
 Testo_Interno =  F1_Interno.Readall
END IF
 Response.Write Testo_Interno
%>
naturalmente questo e' un estratto per fare delle prove...
Pensando che la libreria di scripting fosse mezza partita e percio' il FSO
non funzionasse di se, prendo il fido VB ed incollo il codice su mostrato
per vedere se funziona...
Meraviglia! Funziona senza alcun problema!
E allora cosa caspita c'e' che non va' su questo BEEEEP di server o di
codice???
Spero che qualcuno di voi riesca ad aiutarmi :|
Ciao ;^)=
--
Red Foxy
Web Master of Quantum Leap: 
http://ql.programmazione.it

 Dopo un lunghissimo periodo di silenzio, mi rifaccio vivo...
bentornato  :)

prova a:
- sostituire
File_Interno = "C:\Inetpub\Red\it\articoli\aw004\26\26"
con la relativa chiamata a Server.MapPath
(a proposito, quel 26 finale è un file o una cartella? semmai prova a
mettergli un'estensione...)
- sostituire
Set FSO_Interno = CreateObject("Scripting.FileSystemObject")
con
Set FSO_Interno = Server.CreateObject("Scripting.FileSystemObject")
- inserire dei Response.Write qui e là per vedere in che riga s'impalla,
di preciso..
facci sapere  :)
Faber


Niente da fare continua a non andare sul server locale, mentre in remoto
(server che ospita) va'...
whooops...


ARGHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH!!!!!!!!!!!!!!!!!!!!!!!!!!
ERA proprio il norton antivirus a rompere le
scatole!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
ARGH!!!!!!!!!!!!!!!!!!!!

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Come leggere i file font....

Ciao a tutti, la domanda di oggi č:
Come posso leggere i file font non installati nel sistema?
Grazie anticipatamente a tutti!
Sakuragi
h.sak...@tiscalinet.it

Sakuragi
Se intendi poterli usare sul sito comune c'è un esempio, se invece intendi
leggere il fontname (typaface) questo è un mistero anche per me.
L'msdn dice che per i font ttf bisogna creare il file *.fot in cui sta
scritto il nome del font ( e questo si riesce a fare) ma poi non dice come
fare per leggere 'sto benedetto typaface.
Ciao Marco

Newsgroup: it.comp.lang.visual-basic
Titolo: ANNUNCIO CON FINALITA' PROMOZIONALE

Broker One Finanziamenti
filiale di erogazione prestiti in Napoli operante in TUTTA ITALIA
eroga
Prestiti a TUTTI i PENSIONATI fino a 80 ANNI d'età
Prestiti a DIPEDENTI (Pubblici o Privati)
Lavoratori AUTONOMI
Cessione Quinto dello stipendio
Leasing.
Erogazione fino a 75.000?
ANCHE se PROTESTATI
ed ai CATTIVI PAGATORI.

<cut per decenza>
Ma dai, sei quello che voleva *vendere* CD con
programmi e sorgenti!!!
Ti credevo gią in galera....
-- 
---------------------------
Mauro Gamberini
http://www.riolab.org/

Newsgroup: it.comp.lang.visual-basic
Titolo: convertire db e rinominare tabelle e campi

ciao a tutti,
sto aggiornando un sw fatto in access 2.0 di qualche anno fa in vb.
Premesso che il front-end lo rifaccio in vb, vorrei sapere se è possibile da
codice effettuare alcune operazioni:
    - esportare le tabelle da un db a un altro
    - rinominare il nome di alcune tabelle
    - rinominare i campi di aclune tabelle
    - togliere le autorizzazioni
tutto questo dovrei farlo da codice in modo trasparente all'utente. qualcuno
sa darmi qualche dritta?
grazie
ciao


E' un po' il problema che ho anche io!
Io mi sto studiando riga per riga l'esempio di visdata (fornito con msdn)
e sto realizzando, sulla falsa riga di visdata, un programma piů aggiornato
(ado3.6 invece di 3.51).
Sono dell'idea che il modo migliore sia guardare cosa fanno gli altri
se invece tu ritieni meglio studiare le guide e i manuali non c'č che una
risposta: MSDN
--
Mauro
www.cerretosoft.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Errore di Update

Ho un problema con l'update di una serie di record da impostare su True o
False
Il database è composto da una tabella Utenti, Diritti,Uffici,Movimenti.
Apro il DB con Visual Basic tramite un ADOdc, e imposto la query del
RecordSource così: SELECT * FROM Diritti INNER JOIN Uffici ON
Uffici.idUff=Diritti.codUff WHERE Utenti.idU=" + l'IDutente preso da una
casella di testo
Poi inserisco quello che risulta in una Listview con checkbox attivati.
Il problema è quando devo fare l'update del recordset,con un ciclo simile a
questo:
lstuffici è la listview, adouffici è il controllo ADOdc di cui sopra:
For i=1 to lstuffici.listitems.count
    <Uso il metodo Find per cercare il record che riguarda l'ufficio
all'indice i che è nella listview>
    adouffici.recordset.find("Uffici.nome='" + lstuffici.listitems(i).text +
"'")
    <un record viene sempre trovato,perchè gli uffici sono sempre 7>
    if lstuffici.listitems(i).checked=true then
        adouffici.recordset.fields("accesso")=true
    else
        adouffici.recordset.fields("accesso")=False
    end if
Next i
[cut]
Dopo questo dovrei fare l'update del recordset, ma viene sempre fuori
l'errore "Insufficient Key column information for updating or refreshing"
Ho controllato mille volte la query di selezione del controllo ADO, anche
creandola con Access, e i campi sono giusti. Ho provato a cambiare il ciclo
for in altri modi, ma ogni volta che vado a inserire un dato nel recordset
mi salta fuori sto errore!!
Nessuno sa niente in proposito?
Grazie
Fabrizio
__________________________________________________________________ Straniero
ICQ#: 75037271 Current ICQ status: + More ways to contact me
__________________________________________________________________

 Fabrizio
Enrico
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con text box

Ciao a tutti.Domanda stupida:
Un utente ha a disposizione un textbox per inserire delle cifre. Come faccio
a controllare che l'utente digiti dei numeri e tuttalpiù una virgola e non
delle lettere?
Grazie per le risposte!

 ha scritto nel messaggio
news:iwdNc.46021$OR2.2...@news3.tin.it...

Usando l'evento KeyPress
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
 Case 48 To 57
  ' qui filtra tutto tranne numerico
 Case 8
 Case Else
  KeyAscii = 0
End Select
End Sub
Ciao.
______________________________________
James Tiberius Kirk, matricola SC 937-076 CEC
  Nato a Riverside, nello Iowa, USA, Terra
            il 1277.1 (26/03/2233)

James T. Kirk ha scritto:

gestisci l'errore:
OnError GoTo GestioneErrori
....[qui il resto del tuo codice]
GestioneErrori:
If Not IsNumeric(txtNumber1) Or txtNumber1 = "" Then
    MsgBox ("Devi immettere un numero!")
    txtNumber1 = ""
    End If
    If Not IsNumeric(txtNumber2) Or txtNumber2 = "" Then
    MsgBox ("Devi immettere un numero!")
    txtNumber2 = ""
    End If
Okay. Questo lo so.
Ciao

 gestisci l'errore:
Gli errori si gestiscono se sono errori, non mi pare sia il modo migliore
per
affrontare i problemi, no?


 ha scritto nel messaggio
news:iwdNc.46021$OR2.2...@news3.tin.it...

Metti questa Sub in un modulo:
Sub ValidazioneNumeri(KeyAscii As Integer)
    If (48 <= KeyAscii And KeyAscii <= 57) Or (KeyAscii <= 32) Then
        KeyAscii = KeyAscii
    Else
        'Beep
        KeyAscii = 0
    End If
End Sub
Nell'evento KeyPress dei controlli testo dove vuoi avere solo numeri, scrivi
questa riga:
ValidazioneNumeri Keyascii
Ciao, Vincenzo

 ha scritto nel messaggio
news:ce850q$19n$1...@newsreader.mailgate.org...

Newsgroup: it.comp.lang.visual-basic
Titolo: Utenti connessi

Buongiorno vorrei un aiuto, ho realizzato un semplice programma in VB e
l'ho installato su un server.
Possiedo una rete lan con 5 pc e il server descritto precedentemente dove
risiede il programmino, e vorrei sapere se esiste un metodo per sapere
quali utenti si sono connessi al programmino sul server.
Es: utente connesso : pc1 - pc4
Ringrazion anticipatamente.
Buona giornata a tutti
saluti
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Es: utente connesso : pc1 - pc4
Potresti chiedere al dbms chi ha una connessione aperta (sempre che il 
software non chiuda la connessione quando non la usa).
Ad esempio per Sql-Server c'è sp_who2
Ciao
Alberto
-- 
Il tempo e la pazienza possono più della forza o della rabbia

 saluti
non specifichi che db.
con l'ldb di access e ado puoi usare JET_SCHEMA_USERROSTER
http://msdn.microsoft.com/en-us/library/aa155436.aspx
che se non sbaglio restituisce doppia la connessione della macchina su cui 
si lancia, cfr KNIGHTRIDER nella figura della pagina ms.
ciao

scusami ma io non uso nessuno mdb e un programma che lavora con semplice
file.
aiutatemiiiiiiiii


 saluti
"Installato su un server" significa che l'hai pubblicato con (ad es.) 
Terminal Services?
Oppure significa che l'hai copiato in una cartella condivisa del server a 
cui i vari PC client si connettono e avviano il programma aprendolo da tale 
cartella?
VB, quale versione?
Bye
Raf 

esattamente la versione di VB è la 6


 esattamente la versione di VB è la 6
OK.
E le altre cose che ti avevo chiesto? Le ripeto:
"Installato su un server" significa che l'hai pubblicato con (ad es.) 
Terminal Services?
Oppure significa che l'hai copiato in una cartella condivisa del server a 
cui i vari PC client si connettono e avviano il programma aprendolo da tale 
cartella?
Ciao
Raf
Newsgroup: it.comp.lang.visual-basic
Titolo: Informazioni su InputBox

C'e' un sistema di intercettare se l'utente, in risposta ad una
InputBox, ha premuto ESC (premetto che la InputBox mi ritorna comunque
il valore di default?
Grazie
Massimo 8-]

 il valore di default?
Premesso che una inputbox ritorna stringa nulla quando la si chiude in uno
di questi modi:
. col tasto Invio e la casella di immissione vuota;
. col tasto Esc;
. col pulsante Ok e la casella di immissione vuota;
. col pulsante Annulla;
. con la combinazione di tasti Alt+F4;
. col pulsante [X], (Chiudi);
. con la sequenza di tasti Alt, Spazio, C(hiudi);
. qualcos'altro che forse ho dimenticato...
tu vuoi intercettare in maniera particolare la chiusura con Esc? Ho capito
bene? E cos'e' quel discorso sul valore di default? Aiutami a capire, che
sono curioso.
--
Ciao.
Maurizio




 per le mie esigenze il valore di default potrebbe anche essere nullo.
Ho come l'impressione che quando tu ed io parliamo di InputBox non
intendiamo la stessa cosa. Io mi riferisco alla funzione InputBox cosi'
definita nella guida:
"Visualizza un messaggio in una finestra di dialogo, attendendo che l'utente
immetta del testo o scelga un pulsante, quindi restituisce il contenuto
della finestra.
Sintassi
InputBox(prompt [,title][,default][,xpos][,ypos][,helpfile,context])
[...]
Se l'utente sceglie OK o preme INVIO, la funzione InputBox restituirą il
contenuto della casella di testo. Se l'utente sceglie il pulsante Annulla,
la funzione restituirą una stringa di lunghezza zero.("").
[...]"
Mi confermi che entrambi parliamo di tale funzione?
--
Ciao.
Maurizio

Confermo.
Massimo 8-]

Newsgroup: it.comp.lang.visual-basic
Titolo: suoni...

Ciao a tutti,
ho un semplice "quesito da porvi":
e' possibile in vb associare un suono ad un evento ?
Se si', come?
Chiedo questo perche' ho visto che e' possibile eseguire un comando
(.exe) ma non so se c'entra qualcosa...
Grazie, a presto
N.

dimenticavo....
non usa MCI ...
--[GbC]--

prova a vedere NmVolOCX...
è da me o nel sito comune...
consente di suonare files wav e di impostare/leggere il volume...
è free... e c'è un esempio di uso...
--
--[GbC]--
http://www.chiappori.net

Grazie!
N.
-- 
Ognuno di noi ha i suoi inferni, si sa, ma io ero in testa di 
tre lunghezze sugli inseguitori... (Charles Bukowski)
---
Nerone is Alfredo Navarra

Newsgroup: it.comp.lang.visual-basic
Titolo: finestra file list

è possibile fare una finestra tipo file list ma personalizzata???
grazie ciao





 grazie ciao
intendi una CommonDialog?

avete presente le colonnine "file,dimensione,tipo" che si vedono quando
scegli dettagli nell' explorer???
io vorreri avere quelle "colonnine" in una listbox o qualcosa del
genere....
è possibile??
grazie x qualsiasi risp 
ciao

Gegge766 ha scritto:

si... la listbox dovrebbe supportare piu colonne (almeno in 
vb.net
). Se
funziona anche in vb6, cerca qualche proprietà come column...
altrimenti ci sarà qualche api

 ciao
si... la listbox dovrebbe supportare piu colonne (almeno in 
vb.net
). Se
funziona anche in vb6, cerca qualche proprietą come column...
altrimenti ci sarą qualche api
la listbox di vb6 puo' avere le colonne, ma in explorer e' usata la 
listview.
ms windows common controls -> listview
esempi ecc: 
http://vbnet.mvps.org/
 -> search
ciao, a.

Newsgroup: it.comp.lang.visual-basic
Titolo: Posso usare VB per gestire dei dispositivi collegati alla seriale?

Salve,
 conviene usare VB 5 per gestire flussi di dati da e verso le seriali?
Grazie per le risposte.
Tzaluti da Simone Janin: janin....@SPAMMANObigfoot.com
Remove SPAMMANO from address.
http://aspide.it/freeweb/homjamin
http://www.aostanet.com/privati/janinsim/home.html

...

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Smau 99

Salve a tutti ragazzi (e non) ;-)))
Scusatemi l'off-topic...ma come di consueto volevo sapere chi di questo NG
sarà presente a SMAU99...
Vi ricordo che l'appuntamento e' domenica 3 ottobre alle 11:30 davanti allo
stand Microsoft. Ci saremo io e Marco Minerva ad aspettarvi...
Saluti...
Alfonso Di Stasio.

 wrote in message
7su6jm$bs5$2...@nslave1.tin.it...

Io ci saro' sabato 2
Ciao
Ven

 Alfonso Di Stasio.
--
!------------------------------------------------!
!ICQ     : 8281944
!E-Mail  : 
Dan...@levon.it
!
!"Il Paradiso e' pieno di santi che NON
! hanno avuto abbastanza occasioni di peccare."
!
!HomePage : 
http://www.levon.it/daniele
!
!------------------------------------------------!


Vedro' di esserci, ma come facciamo a riconoscerci?
Ettore Maronese

Ragazzi, io ci sono stato Giovedi' e non mi sono mai divertito tanto...alla
Microsoft dovrebbero farsi pagare un supplemento per poter assistere alle
loro esilaranti dimostrazioni. Sono giunto nel bel mezzo di una
dimostrazione dell'Office 2000 Resource Kit (o una cosa del genere)...in
dieci minuti di dimostrazione una quindicina di "L'applicazione ha generato
un errore irreversibile...". Il povero omino si giustificava dando la colpa
alla scarsa stabilita' del Windows 2000 installato sulla macchina...davvero
divertente!
Vi consiglio proprio di assistere ad una di queste dimostrazioni...non ve ne
pentirete!
Meditate gente, meditate!
Ciao
--
----------------------------------------------
Se la tua donna ti chiede un parere in realtą
vuole solo sentire il SUO parere detto con la TUA voce
----------------------------------------------
Andrea
in...@xxxrcmcastelli.it
(xxx=NOSPAM)


Ciao Alfonso,
io vado domani (ven 1/10/1999) tutto il giorno.
Se poi mi rimane qualche stand da visitare, forse andro' anche sabato 2.
Domenica, mi spiace, ma vado a fare castagne nei boschi :-)
P.S. se andate allo stand Adobe (Pad.11, stand E17), magari mi trovate da
quelle parti (se e' mattino, io sono quello con gli occhi semi-chiusi che
sonnecchia).
--
Roal Zanazzi
z...@iol.it




sono li..
:-( non siamo riusciti ad incontrarci :-((
Ho incontrato Marco Frazzoli e Davide Greco, e per incontrare te contavo sul
fatto che Marco aveva il tuo Nr di cellulare, ma ad un certo punto io de
Davide ci siamo separati da Marco e non sono piu' riuscito a rintracciarlo,
e senza di lui, niente nr di cellulare :-(
Questa si chiama e' sfiga.
Vebbe', sara' per la prossima occasione.
PS: Scusate l'OT
Ciao
By -MES-   Maronese Ettore
http://www.maronese.com/mes
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://www.murialdo.it/it_lang_vb

non sposatevi ad abbiategrasso
ahahahahha
ciao
Davide
NB1
maronese sei grande
frazzoli un latitante
Microsoft boh...
specchietto rubato alla Jordan :-))
busta con depliant.. peso 2,7 kilogrammi
video plasma, video lcd, video ma non video bene
un' ora di coda per panino scialbo
NB2
ma non era meglio organizzare un meeting ?

sonnecchia).

ahahahahha
[...]>ma non era meglio organizzare un meeting ?

a rubato lo specchietto ;-)))
§§§§§§§
Scusate l'errore grammaticale... ;-))) stavo collassando... ;-)))
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] popup di un rich text box

al clic dx su un controllo rtb (su un form child) faccio popup di un menu'
(dell'mdi).
solo che appena sparisce il mio menu' compare quello standard del controllo,
e avendo io vb5 usa, per giunta e' undo/cut/copy/paste.
qualcuno per favore sa come zittirlo ?
grazie, andrea

 wrote in message 2ac54.27132$Bg7.2...@typhoon.libero.it...

A me non succede con le RTB, ma solo con le TB (VB5 SP3 ITA),
e non capisco perché a te succeda. Io risolvo cosě per le textbox:
________
Text1.Enabled = False ' senza nessun doevents, cosě sopprime
Text1.Enabled = True ' il popmenu standard e non si vede
If Button = 2 Then
PopupMenu MDIForm1.mnuPopp1 ' fa apparire quello giusto
End If
________
Anche la M$ conosce il problema, e suggerisce questa soluzione,
piů complicata IMHO:
______________________________
     Private Declare Function LockWindowUpdate Lib "user32" _
         (ByVal hwndLock As Long) As Long
      Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, _
         X As Single, Y As Single)
         If Button = vbRightButton Then
         ' Avoid the 'disabled' gray text by locking updates
            LockWindowUpdate Text1.hWnd
            ' A disabled TextBox will not display a context menu
            Text1.Enabled = False
            ' Give the previous line time to complete
            DoEvents
            ' Display our own context menu
            PopupMenu mnuPopup
            ' Enable the control again
            Text1.Enabled = True
            ' Unlock updates
            LockWindowUpdate 0&
         End If
      End Sub
______________________________
A me funzia l'altra, provala...
C U, G.
--
---------------------------------------------
    Le risposte alle tue domande le trovi
    sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
       ... e nell'help in linea !
---------------------------------------------
Real E-address: 
gaet...@hotmail.com

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

problemino.
ho la guida del VB6, ma se cerco varptr o strptr, la guida non me li
trova... come mai?
misapete dire qual č la differenza tra i due comandi? a che cavolo serve
strptr?
grazie
Mario





 strptr?
Non mi ricordo mai quale dei due fa cosa, ma uno dei due ti restituisce un
puntatore ad un buffer unicode (16bit) della tua stringa, l'altro alla sua
rappresentazione ansi (8bit).
Fra l'altro, ho letto da poco e non sapevo che l'idea che Unicode sia
composto da due byte è assolutamente sbagliata. L'unicode di due byte è
l'implementazione di Microsoft; in realtà, Unicode prevede larghezze
maggiori.
-vibino


Ciaotutti,
Alessandro
Newsgroup: it.comp.lang.visual-basic
Titolo: Conoscere la versione di un DBF

Ciao.
Ho alcuni files DBF che non riesco ad aprire con ADO.
Dovrebbero essere files di DBase perchè alcuni hanno un DBT associato e
hanno indici MDX.
Perche' ADO non riconosce il formato?
Ho installato ADO 2.7, anche se l'ultima versione dei driver per Visual
FoxPro è stata inserita nella 2.5.
Grazie a tutti.
Skysurfer

Contrordine!
Non riesco ancora ad aprire i DBF con DBT associati, anche dopo aver
cancellato l'indice.
Qualche suggerimento?
Grazie.
Skysurfer.

Risolto.
Ho cancellato gli indici MDX e adesso funziona.
Mah.
Ciao.
Skysurfer.

 ha scritto nel messaggio
news:9u7pga$87r$1...@serv1.iunet.it...


 lo supporta ancora...
eeeeh, la M$ č avanti :)
Si stava meglio quando si stava peggio.
Ciao

 Alfonso
E dove lo specifico che sono db4?
Skysurfer

 ha scritto nel messaggio
news:9u7vsd$bug$1...@serv1.iunet.it...

Nella stringa di connessione, anche se, per l'appunto non so se sono
supportati.
Workaround: creati una fonte dati odbc e usa il provider ole db per odbc
hth
Alfonso

Newsgroup: it.comp.lang.visual-basic
Titolo: form senza il pulsante di chiusura e caps lock

In VB6
Come posso togliere da un Form il pulsante di chiusura???
e come posso attivare il caps lock in modo che il programma scriva
direttamente in maiuscolo?
Grazie

Per togliere la X metti questo codice dentro un modulo.
Option Explicit
Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal
nPosition As Long, ByVal wFlags As Long) As Long
Public Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long,
ByVal bRevert As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As
Long
Public Const MF_REMOVE = &H1000&
Public Const MF_ENABLED = &H0&
Public Const MF_INSERT = &H0&
Public Const SC_CLOSE = &HF060&
Public Const SC_MINIMIZE = &HF020&
Public Const SC_MAXIMIZE = &HF030&
Public Const SC_RESTORE = &HF120&
Public Enum MenuTypes
    mnuClose = SC_CLOSE
    mnuMinimize = SC_MINIMIZE
    mnuMaximize = SC_MAXIMIZE
    mnuRestore = SC_RESTORE
End Enum
Public Sub RemoveFormMenu(myForm As Form, TarghetMnu As MenuTypes)
    ' Disabilito il menu desiderato!
    Call RemoveMenu(GetSystemMenu(myForm.hWnd, 0), TarghetMnu, MF_REMOVE)
    ' Ridisegno i menu!
    DrawMenuBar myForm.hWnd
End Sub
'-----------------------
Per quanto riguarda le lettere maiuscole potresti intercettare i tasti
premuti nel controllo che ti interessa (penso sia un TextBox) e convertirli
da minuscolo a maiuscolo se sono lettere.
CiaoZ
SebaMix

 ha scritto nel messaggio
news:tgIw6.93180$yl2.6...@news1.tin.it...

Nel tasto keypress della textbox converti tutti i caratteri in maiuscolo con
UCase