mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: -- DataArrival e GetData

ogni tanto, anche se di rado mi capita che quando arrivano dei dati al
winsock e viene quindi invocato l'evento DataArrival, utilizzando
l'evento GetData mi viene generato l'errore: Wrong protocol or
connection state for the requested transaction or request.
Il bello e che premendo F5 per riprendere l'esecuzione del programma
tutto funziona regolarmente.
L'unico modo per mettersi al sicuro da questo inconveniente e'
inserire preventivamente queste istruzioni
While Winsock1.State <> sckConnected
DoEvents
Wend
Pero' mi chiedo che senso ha? Come fanno ad arrivare dati prima che la
connessione venga effettivamente stabilita?
E un bug di VB?

E un bug di VB?
Forse e' proprio questo:
BUG: Winsock Control Run-Time Error 10054 in DataArrival Event for UDP
Q260018
-- 
ciao, hal

Q260018
cioe'

Newsgroup: it.comp.lang.visual-basic
Titolo: access, vb e xml

Salve a tutti,
Avrei bisogno di capire che strada seguire per poter scrivere un'
applicazione in vb o asp che mi permetta di trasformare una tabella di
access in un file xml...
Se qualcuno conosce un sito dove si possano trovare esempi o documentazioni
(...che non sia il sito di Mamma Microsoft...)....
Ringrazio anticipatamente.
Saluti.

Newsgroup: it.comp.lang.visual-basic
Titolo: messaggio e-mail

E' possibile, dopo aver cliccato su un testo che rappresenta l'e-mail,
aprire il gestore di posta elettronica (indipendentemente da quale esso sia)
e creare un nuovo msg con destinatario la suddetta e-mail?
In pratica è possibile creare in VB un codice che fa la stessa cosa del
"mailto:" dell'HTML?
grazie
hyppos

 ha scritto

usa la fx dell'api shellexecute.
help nell'apiguide free:
www.allapi.net
esempi anche in 
www.vb2themax.com

 ha scritto nel messaggio
news:983qr5$5dv5$1...@ID-51318.news.dfncis.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: [VBA] Access e la famigerata stampa unione

Buongiorno,
č dą un pņ di tempo (troppo) che qui si sbatte la testa con stampa unione. 
Praticamente non riusciamo a rendere stabile il codice ed evitare che, ad 
esempio , Word 2002 crashi in chiusura oppure che al secondo richiamo di 
Word da codice non venga fuori l'errore "Il computer remoto non č 
disponibile etc..etc.."
Qualcuno ha gentilmente uno stralcio di codice d'uso che apra un doc word da 
disco, cambi l'origine dati e visualizzi il documento?
Infinite grazie.
Davide. 

 disco, cambi l'origine dati e visualizzi il documento?
Il codice VBA generato dal registratore di macro va benissimo.
Non capisco l'errore che ti da...
Alberto
-- 
A questo punto hanno trovato un muro,
un muro duro, molto molto duro,
che siamo noi.

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

Ho una textbox multilinea in cui l'utente digita del testo, come faccio a
sapere quante linee ha digitato l'utente?
Ossia quanti "enter" ha premuto?
Grazie!

Ossia quanti "enter" ha premuto?
Semplice: te li conti!
Prova cosě:
Pos = 0
loop
    pos=instr(pos +1 ,text,vbCR, 1)
do while pos>0
Se la TextBox non ha un contenuto abnorme lo puoi fare direttamente nel
TextBox_Change
Ciao.
Newsgroup: it.comp.lang.visual-basic
Titolo: Ci riprovo per la 3a volta: problemi con DAO 3.6.

Ho un MDB con collegate delle tabelle DBF.
Ogni volta che interrogo queste tabelle
mi blocca il file DBF collegato.
Non mi permette di cancellare dati da questa
tabella con l'errore impossibile cancellare.
Non mi permette di aggiungere dati alla
tabella con l'errore query non di aggiornamento.
Se al posto della tabella DBF c'e' una tabella MDB
collegata tutto funziona correttamente.
Questo problema e' insorto con DAO 3.6 mentre con
DAO 3.51 tutto andava alla perfezione.
E' un bug o con la nuova versione devo aggiungere
qualcosa??
Grazie

Ti consiglio di non usare DAO 3.6 per link con tabelle DBF (sono di Fox Pro
?) perchè al 99 % ti connetti in ODBC.
Ritorna a DAO 3.51 ....
Prova comunque a postarci i valori TableDef("TabellaCollegata").Connect e
.SourceTableName
Ciao ...
    Davide


Newsgroup: it.comp.lang.visual-basic
Titolo: [.NET] Multithreading e OCX

Ciao a tutti,
ho un problemino che non riesco a comprendere del tutto (ovvio, sennò 
l'avrei risolto! :-))
Ho un windows service che istanzia un componente .net (class library) 
come singleton e lo espone tramite remoting. Questo componente in 
questione utilizza un ocx che non può venir istanziato in multithread 
apartment. Per cercar di risolvere il problema ho provato a creare un 
nuovo thread nel servizio, impostargli l'apartment model a STA, quindi 
registrare il remoting type in questo thread. Nonostante ciò, mi 
ritrovo la mia class library girare in multithreading apartment.
Ho provato anche a creare il nuovo thread in fase di istanziazione 
dell'oggetto della class library ed istanziare la form che ospita 
l'ocx in questo thread, però siccome l'ocx (e quindi la form) 
scatenano degli eventi che poi vengono propagati al client tramite la 
mia classe, mi ritroverei a scatenare l'evento (public) da un metodo 
shared (l'event handler specifico della form).
Mai una gioia.
Avete qualche idea? A parte, ovviamente, convertire il vecchio ocx in 
una class library dotnet: è previsto ma, visto il costo, scadenziato a 
più lungo termine...
Grazie in anticipo.
Ciao,
Moreno

 piů lungo termine...
Chiedendo le attenuanti generiche per l'orario :-P, la vedo dura se l'ocx 
non e` stateless.
Se solo il tuo applicativo usasse l'ocx potresti forse risolvere accodando
le istanziazioni tramite un mutex, oltre naturalmente ad andare di
PInvoke e compagnia. Nel momento pero` che una applicazione qualsiasi 
istanziasse l'ocx o si verificasse un qualsivoglia errore nel codice dello 
stesso credo salterebbe tutto.
-- 
ciao, hal

 stesso credo salterebbe tutto.
Chiaro ma oltre ad essere stateless, viene istanziato una sola volta da un
componente singleton. Quello che non capisco è:
1) perché cribbio gira in MTA quando invece il thread l'ho creato come STA
2) in alternativa (ammesso che poi funzioni, ma comunque può servirmi in
altre occasioni) come scatenare un evento pubblico da un membro shared.
Mi sa che lo riscrivo sul serio... :-(
Grazie,
Moreno
Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Pacchetto installazione VB6 con Off 2000

Il mio problema è che quando creo un pacchetto di installazione di un
progetto fatto con vb6 sp4 con il mio PC su cui è installato anche office
2000 all'avvio del programma installato mi da l'errore che il componente
active x non può creare l'oggetto.
Lo stesso progetto compilato con un PC uguale ma con office 97 non da alcun
problema.
Mi sapete dare qualche dritta per risolvere questo problema?
Grazie al NG
    /\
<I@O> Dante
    \/

 ha scritto nel messaggio
news:8lhr8n$phr$1...@pegasus.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Velocizzare la ricerca

salve a tutti
ho un database con una grande anagrafica (tutti i nuotatori agonisti di
italia), qual'è il metodo più veloce per effetuare una ricerca (serve x
l'iscrizione alle gare. le iscrizioni arrivano in piscina 1/2 ora prima
delle gare e l'utente deve andarsi a ritrovare magari 200 nominativi!).
ho pensato ad un campo composto dalle prime 3 lettere del nome + 3 del
cognome, ma x i nomi simili?
forse una combobox è più apropriata, ma x gli omonimi?
grazie
Mauro

 wrote in message
lVte6.83618$ew1.5...@news.infostrada.it...


una curiosità:
FindFirst si usa con ADO o con DAO ?

 ha scritto nel messaggio
news:95e4m2$ghjum$1...@ID-70152.news.dfncis.de...


Usare una Query SQL no?

Usare una Query SQL no?

ho un database con una grande anagrafica (tutti i nuotatori agonisti di
Ho appena fatto una prova con un database che contiene l'anagrafica di
tutte le atlete ginnaste di ginnastica ritmica di non so che area
--sono 150.000 record circa, gestiti su file di testo e niente
database-- e c'ho messo per fare una ricerca ciclando su tutti i
record qualcosa tipo neanche 10 secondi nella peggiore delle ipotesi:
e' troppo? Considera che se ti appoggi a un database --Interbase
caldamente consigliato-- fai molto prima. Ricercavo nei cognomi le
prime n lettere scritte in una textbox.
Saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 242, 152
  VBR - Vero Birro Romagnolo®, diffidate dalle imitazioni!
 Opel/ECC Calibrezio EVO-IV --- Kawasaki "Gas Gas" ZZ-R 1100
 ICQ# 36893168 - IRCNet: bugbarbeq, @ on #linux-it & #NetBSD

io per fare ricerche uso sempre query sql del tipo select * etcetc.., quale
sarebbe il metodo piu veloce???


...

Newsgroup: it.comp.lang.visual-basic
Titolo: Localization per le dropdownlist

Ciao, sto sviluppando un sito multilingua e quindi, secondo quanto ho
letto, sto creando dei file resx in cui inserire le frasi che
compaiono all'interno del sito. Il problema sorge però quando devo
inserire i valori di una dropdownlist.
Ad esempio una list in cui inserisco le categorie professionali.
Quello che vorrei fare io è mostrare le categorie professionali nella
lingua usata per inviare le pagine al client, ma probabilmente non
posso usare i file resx.
Attualmente le dropdownlist le riempio da una tabella (presa da un
database) dove c'è un campo id e un campo descrizione.
Come faccio a rendere anche i DDL multilingua?
Io avevo pensato di creare altre colonne nella tabella (ad es:
desc-it, desc-es, ecc.) ma poi la colonna giusta come faccio a
caricarla?

 caricarla?
La butto li come mi č venuta in mente....
Tabella CategorieProfessionali
- Codice
- Descrizione
- AltroCampo1
- AltroCampo2
.....
Tabella CatProfessLingua
- CodLingua
- CodiceCatProf
- DescrInLingua
Supponendo dalle tue parole (... sto sviluppando un sito multilingua ) che
stai usando ASP
Codifica le lingue usando IT, FR, DE, ES
Con:
strLingua = Mid(Request.ServerVariables("HTTP_ACCEPT_LANGUAGE"), 1, 2)
trovi la lingua impostata del tuo browser
Fai una query tra queste due tabelle del tipo:
SELECT * FROM CategorieProfessionali INNER JOIN CatProfessLingua ON
CategorieProfessionali.Codice = CatProfessLingua.CodiceCatProf WHERE
CodLingua = '" & strLingua & "'"
Ciao, Vincenzo

Avevo pensato anche io a questa soluzione, che è la più immediata ma forse
la meno elegante. Io mi chiedevo se esisteva una soluzione già esistente in
.NET a questo problema (così come esiste quella del ResourceManager per le
stringhe di testo.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/
Newsgroup: it.comp.lang.visual-basic
Titolo: Trova File in directory

Salve a tutti!
Ho la necessità di controllare saltuariamente se in una cartella sono
presenti o no dei files (non specificati); e nel caso in cui siano presenti,
a seconda della loro estensione trasferirli in altre cartelle (determinate).
C'è qualcuno che sa suggerirmi il codice per compiere queste operazioni? Ne
ho una grandissima necessità.
Vi ringrazio anticipatamente!! :)

 wrote in message 7trvi0$fqh$1...@nslave1.tin.it...



Il mio problema non è tanto la schedulazione dei controlli ma come
verificare se in una directory ci sono dei files (di cui non conosco né il
nome né l'estensione) e successivamente di selezionare ogniu singolo file e
di trasferirlo in un'altra cartella!!
Grazie!!


Comunque come suggeriva Stracca devi usare la funzione "Dir" del Visual
Basic!
Io per fare le mie ricerche nelle cartelle mi sono scritto la funzione
"ElencoFile" (che sfrutta appunto le potenzialità della funzione "Dir" del
VB) che restituisce un oggetto collection, riempito con i nomi dei file di
una determinata directory. Riporto qui sotto la funzione perchè forse può
essere utile a te o ad altri.
----------------------
Public Function ElencoFile(ByVal Path As String, ByVal FiltroFile As String,
ByVal FiltroAttributi As Integer) As Collection
   Dim Name As String
   Set ElencoFile = New Collection
   Name = Dir(Path, vbDirectory)   ' Verifica se il percorso esiste
   If Name = "" Then Exit Function
   Name = Dir(Path & "\" & FiltroFile, FiltroAttributi)
   Do While Name <> ""
      If Name <> "." And Name <> ".." Then
         ElencoFile.Add Name, Name  ' Aggiunge il file alla collection
      End If
      Name = Dir ' Legge la voce successiva.
   Loop
End Function
----------------------------
Ora magari per adattare la funzione al tuo caso potresti scrivere un codice
simile a questo:
-----------------------
  Dim colFiles As Collection
   Dim i As Integer
   Set colFiles = ElencoFile("C:\documenti", "*.*", vbHidden)
   For i = 1 To colFiles.Count
      If colFiles(i) <> "NonMiSpostare.txt" Then ' Qui inserisci il
controllo per vedere se è il caso di spostare il file
         Name "C:\documenti\" & colFiles(i) As "C:\" & colFiles(i)
      End If
   Next
----------------------
Questo codice non fa altro che spostare tutti i file (compresi quelli
nascosti ed escluso il file "NonMiSpostare.txt" ) dalla directory
"C:\documenti" a "C:".
Un'altro esempio di utilizzo potrebbe essere questo:
-----------------
    Dim conteggio as integer
    conteggio=ElencoFile("C:\documenti", "*.*", vbHidden +
vbDirectory).Count
----------------
Quest'altro codice conta quanti file (compresi quelli nascosti) e quante
directory ci sono nella cartella "C:\documenti"
Per maggiori informazioni cerca sulla guida in linea la funzione "Dir", con
la quale come vedi ci si può divertire parecchio!
 __     __
<o>  <o>
      []
  \____/   ......(Statti bene!)
Pasquale Minerva
mine...@libero.it
Newsgroup: it.comp.lang.visual-basic
Titolo: ! Essere pagati per navigare ... (leggi e valuta)

Installando un programma che visualizza alcuni banner pubblicitari puoi
guadagnare soldi contanti. (dollari/ora)
E introducendo anche i tuoi amici (o chi vuoi tu) a questo programma
puoi guadagnare sempre di piu' !
Consiglio vivamente di andare al sito :
http://www.extrasalary.com/go.asp?refid=5425494477E5
In questo sito, dopo aver selezionato la tua lingua, puoi avere tutte le
informazioni che vuoi su questo nuovo modo di guadagnare.
Se usufruirai di questo programma ti ripagherai il costo del
collegamento almeno, ma se consigliandolo ad alcuni amici, puoi
addirittura avere un'ottimo salario mensile !!
Extra$alary : 
http://www.extrasalary.com/go.asp?refid=5425494477E5

 ha scritto nel messaggio
news:3922EC9B...@tin.it...


 wrote in message 3922EC9B...@tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Cancellazione Cronologia

ciao a tutti !!!
come posso fare x cancellare tutti i siti dalla Cronologia ?
penso si debba cancellare delle chiavi di registro, ma nn so qual'è
l'indirizzo esatto all'interno del registro stesso. A tale proposito, mi
potreste fornire quello di Win 95, 98 e XP ?

 A tale proposito, mi potreste fornire quello di Win 95, 98 e XP ?
Se ti interessa ancora... vai su IE, batti 
www.blablabla.com
,
aspetta che ti risponda "sito non trovato", vai nel RegEdit
e fai una ricerca per "blablabla".
Non vorrei sbagliare, ma il percorso cambia a seconda della
versione di IE.
Bye, G.
--
Le risposte alle tue domande sono sul Sito Comune
di questo NewsGroup: 
http://it-lang-vb.net/
... e nell'help in linea !

 ha scritto nel messaggio
news:7Vkc9.133656$n04.3...@twister2.libero.it...


 se io faccio cancella cronologia a browser aperto, me la cancella eccome !!!
Certo, perché "cancella cronologia" si limita ad azzerare
i puntatori nei vari file Index.dat, e lo fa passando attraverso
le API del sistema operativo, non direttamente.
E comunque quello che tu stai facendo, non è "cancella cronologia",
ma è "elimina file". Ecco perché ti dico, spiega meglio quello
che hai in mente di fare.


nn posso sfruttare queste API ?
come faccio ad azzerare index.dat alla maniera di Windows ?


 come faccio ad azzerare index.dat alla maniera di Windows ?
Ti ho dato i link nel primo post, c'è il codice completo.
Bye, G.

 ti interessa ? se sě, bisogna perň che mi dici la tua e-mail.
Non c'č bisogno, ti ringrazio.
Bye, G.

 versione di IE.
Penso si sempre uguale:
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\
TypedURLs
--
Fosco
Newsgroup: it.comp.lang.visual-basic
Titolo: DB dizionario lingua italiana

Qulacuno sa per favore indicare dove posso scaricare un database contentete
le parole della lingua italiana con il loro significato?
Va bene qualsiasi cosa, da un file MDB ad un banale file di testo (almeno
che ci sia qualche tabulatore però)
Poi ci penso io a convertirlo come meglio mi serve ( mi servirebbe in
formato mdb, Access 2000 )
Grazie per l'interessamento
Piero

 ha scritto nel messaggio:


 wrote in message
8mhiqm$ilb$1...@fe2.cs.interbusiness.it...


   MB
Non e' che a tempo perso lo potresti spedire anche a me?
Mi faresti una cortesia enorme...
Ne avrei bisogno per testare una routine per lo spezzamento in
sillabe.    (Che poi potrei a mia volta offrire ad eventuali
interessati)
Grazie
--
Frogman
indirizzo e-mail corretto: 
be...@reboot.to

Newsgroup: it.comp.lang.visual-basic
Titolo: SOS!!Craere icona su Desktop

Devo creare un' icona sul desktop!!
C'è un api che mi permette di farlo????
GRAZIE A TUTTI

Puoi utilizzare la funzione CreateShellLink, usata dal programma di Setup, quando usi l'autocomposizione installazione.
Questa funzione si trova nel file STKIT432.DLL, distribuito con VB4.
Non so se nell'equivalente di VB5 c'è; in ogni caso, basta che tu distribuisca anche questa DLL.
Declare Function fCreateShellLink Lib "STKIT432.DLL" _
(ByVal lpstrFolderName as String ,ByVal lpstrLinkName as String _
ByVal lpstrLinkPath as String ,ByVal lpstrLinkArgs as String ) As Long
aaa = fCreateShellLink("..\..\Desktop", "Collegamento a MioProgramma", "C:\MioProgramma.Exe","")
Devi scrivere 
..\..\Desktop
poiché la dir predefinita è quella del Menù Avvio.
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)


--------------
Ciao!
Sul mio sito Internet trovi un esempio che ti mostra come creare un
collegamento (link) utilizzando le API di Visual Basic 5.0. Se utilizzi la
versione precedente 4.0, ti basta modificare il nome della DLL con
"STKIT432.DLL".
Se hai altri problemi, fatti sentire.
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260/
http://www.armaditaggia.com/marco
Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda forse banale...

Devo aprire un file che è su un server esempio:
\\mioserver\miacartella\prova.txt.
Uso:
a$="\\mioserver\miacartella\prova.txt"
open a$ for input #1
....	
....
close
ma al comando open mi da un errore di file errato.
Se invece prima di lanciare il prg sono andato con risorse di rete sul
server tutto funziona egregiamente.
Come posso fare a leggere questo dile sulla rete senza mapparmi prima
il disco o senza scegliermelo prima tramite risorse di rete?
Grazie a tutti quelli che mi risponderanno, sperando di essere stato
chiaro.
Andrea


Strano che non funzioni, ma in un caso simile io
ho usato il controllo CommonDialog e tutto ha
funzionato bene.
Ciao
Bepi

 ha scritto nel messaggio
news:79c5ut8g07ql5cqet...@4ax.com...


Devo aprire un file che è su un server esempio:
\\mioserver\miacartella\prova.txt.
Uso:
a$="\\mioserver\miacartella\prova.txt"
open a$ for input #1
....	
....
close
ma al comando open mi da un errore di file errato.
Credo che il problema sia nell'autenticazione sul server, vale a dire
devo riuscire ad inserire nel comando "open" anche username e
password, ma non so come fare.
infatti se invece prima di lanciare il prg sono andato con risorse di
rete sulserver tutto funziona egregiamente.
Come posso fare a leggere questo dile sulla rete senza mapparmi prima


Newsgroup: it.comp.lang.visual-basic
Titolo: [ADO] DataCombo a Run-Time

Ciao a tutti,
avrei la necessitą di associare recordset e campi ad un controllo DataCombo.
Se utilizzo un controllo ADO tutto OK, ma a run-time proprio non c'č verso
di utilizzare questo controllo, nessun recod elencato. Con la DataGrid (Set
DataGrid1.DataSource = rsMnu) invece un errore del tipo : impossibile
assegnare segnalibri al controllo!
Helpatemi, thanx! ;)
------
Option Explicit
Private cnnMain As ADODB.Connection
Private rsGen   As ADODB.Recordset
Private rsMnu   As ADODB.Recordset
Private Sub Command1_Click()
    With DataCombo1
        Set .DataSource = rsMnu
        .DataField = "IDGenere"
        Set .RowSource = rsGen
        .ListField = "sDescrizione"
        .BoundColumn = "ID"
    End With
End Sub
Private Sub Form_Load()
    Set cnnMain = New ADODB.Connection
    cnnMain.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
        & "Data Source=C:\WINDOWS\Desktop\dbPizzeria.mdb;" _
        & "Persist Security Info=False"
    Set rsGen = New ADODB.Recordset
    rsGen.Open "SELECT * FROM [tblGeneri]", cnnMain
    Set rsMnu = New ADODB.Recordset
    rsMnu.Open "SELECT * FROM [tblMenu]", cnnMain
End Sub

 assegnare segnalibri al controllo!
Se non ricordo male bisogna che il cursore venga aperto
client-side e supporti lo scorrimento avanti/indietro.
-- 
ciao, hal
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Verissimo! ;)
cnnMain.CursorLocation = adUseClient
THANX Hal!


Newsgroup: it.comp.lang.visual-basic
Titolo: didofavaz@inwind.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Icone nelle voci dei menu !!!!

Ciao a tutti,
mi chiedevo se esistessero degli ActiveX , gratuiti, che mi permettessero di
aggiungere delle icone (16x16 0 32x32) accanto alle voci dei menu, proprio
come fa VB, ma senza stavolgere il codice sino a qui implementato: qualche
cosa di efficiente e pratico!
Grazie
:) MOSCA

Io carico le immagini in una imagelist (se si chiama cosě, il caldo di
Agosto potrebbe farmi scrivere boiate), poi con poche righe di codice quando
carichi i menů indichi: se esiste una immagine con lo stesso nome del menů
caricala (per menů dinamici esempi sul sito comune)

se vai su 
www.vbaccelerator.com
 e cerchi un progetto chiamato IconMenu,
forse hai risolto.
dico forse perche (e approfitto per chiederlo a tutti) non ho ancora ben
caito che cosa si deve installare oltre l'ocx principale.
mi sembra che si debba installare un ocx che è una specie di imagelist...
senno iconmenu non funziona. ma poi ci sono dei file strani (ssubtmr.dll e
ssubtmr6.dll)... non hoo capito a che servono, dove vanno installati e via
dicendo.
se qualcuno mi aiuta gliene sono grato...
MarioH

Nell'intestazione del Form contenente il menu io dichiaro:
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal
nPos As Long) As Long
Private Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As
Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked
As Long, ByVal hBitmapChecked As Long) As Long
Private Const MF_BYPOSITION = &H400&
'* imlMenu è un'ImageList. Nota le immagini per i Menu devono essere 13X13.
Private Sub IForm_Load()
    '* Assegna le immagini nei menu nel Form
    Dim hMenuBarra As Long          '* handle per la barra dei menu
    Dim hMenuFile As Long          '* handle del primo menu nella barra
    Dim ris As Boolean              '* risposta della funzione
    '* Ottiene l'handle della barra del menu
    hMenuBarra = GetMenu(frmMDI.hwnd)
    '* Ottiene l'handle del primo menu (indice che parte da zero)
    hMenuFile = GetSubMenu(hMenuBarra, 0)
    '* Assegnazione immagini Menu File
    ris = SetMenuItemBitmaps(hMenuFile, 0, MF_BYPOSITION, _
        imlMenu.ListImages(1).Picture.Handle, _
        imlMenu.ListImages(1).Picture.Handle)
End Sub
Ciao, spero ti sia di aiuto.
Newsgroup: it.comp.lang.visual-basic
Titolo: dimansioni form

salve a tutti..
vorrei fare una domanda : come posso fare a bloccare le dimensioni di
un form in visual basic ? c'e` qualche comando particolare.
Grazie

 ha scritto nel messaggio
news:7b2e112b.03052...@posting.google.com...

guarda la proprietà border style
MIk

 ha scritto nel messaggio
news:7b2e112b.03052...@posting.google.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: INVIO SMS

Salve, vorrei scrivere un programmino per l'invio di sms da VB,
attraverso un normale modem 56K ed una linea analogica. Ho visto i
vari post e sinceramente ho le idee più confuse di prima: se piloto il
modem con mscomm ed effettuo una telefonata al smsc di tim quello mi
risponde e mi dice che il numero non esiste.
Cercando in giro mi è sembrato di capire che ci sono dei comando AT
particolari per gli sms (ma che dovrebbero funzionare solo per i modem
GSM?), inoltre qualcuno si collega in vt100 al smsc.
Morale non ci sto capendo niente. Qualcuno potrebbe essere così
gentile da chiarirmi le idee, e se possibile mi saprebbe indicare un
esempio di codice, tutti quelli scaricati in realtà non funzionano.
Grazie
Bob

 ha scritto nel messaggio
news:920ab23d.04100...@posting.google.com...

Ma ci prendi per il culo o che?!
Ti hanno già risposto nell'altro post. Non continuare a fare sempre le
stesse domande
Ciao, Vincenzo
Newsgroup: it.comp.lang.visual-basic
Titolo: PROBLEMI D'INSTALLAZIONE PROGRAMMA

Ho fatto un'eseguibile usando il Dao, e collegandomi al Dtabase Access. Il
problema sta nel fatto che il cliente non ha Access nel suo computer. Mi
hanno detto che anche senza access il programma può girare ma devo mettere
delle ocx e delle librerie? Se si mi potreste dire cosa devo fare di
preciso?
Grazie mille.
--------------------------------
Inviato via 
http://usenet.libero.it

 mi potreste dire cosa devo fare di preciso?
Dovrebbe bastare installare MDAC_TYP.EXE (le ultime sono le
MDAC 2.71) sulla macchina di destinazione prima di
installare il tuo programma.
Link diretto (da ricomporre su una riga):
http://www.microsoft.com/downloads/details.aspx?displaylang=it&FamilyID=9ad000f2-cae7-493d-b0f3-ae36c570ade8
Link generico alla pagina Microsoft di accesso ai dati:
http://www.microsoft.com/data
hth,
Lokar
-- 
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
UGIdotNET - 
http://www.ugidotnet.org

Occhio che, mi pare, le ultime versioni di mdac_type (dalla 2.7 in poi) non
hanno più i comonenti per dao, ma solo per ado.
Nel sito ms mi sembra che ci sia l'eseguibile che installa solo il supporto
per dao, dovrebbe essere Jet40Sp3_Comp.exe.
con voi,
Sarago

 ha scritto nel messaggio
news:97Kwa.3072$B8.1...@news.edisontel.com...

...dovresti cercare MDAC_TYP.EXE  versione 2.6, che ha tutto quanto...

 ...dovresti cercare MDAC_TYP.EXE  versione 2.6, che ha tutto quanto...
Sicuro?
Salutoni
Sergio
(se non ricordo male... da mdac 2.5 compreso il jet non c'è)

 (se non ricordo male... da mdac 2.5 compreso il jet non c'è)
mmmmm mi pare PROPRIO che la 2.6 lo contenga.

 mmmmm mi pare PROPRIO che la 2.6 lo contenga.
Lokar, pur smentendomi parzialmente, afferma che il jet non è presente dalla
2.6 compresa
Che facciamo?
Un giro sui sacri testi?
Salutoni
Sergio

 mmm, 90%.
Infatti. _Dalla_ 2.6 Jet non è più incluso.

 versione 2.6, che ha tutto quanto...
Errato, solo fino alla 2.5 Jet era incluso.
In ogni caso consiglio una lettura del post
"[!][FAQ]Distribuire applicazioni ADO - 15/05/2003"
Happy Coding =)


 Errato, solo fino alla 2.5 Jet era incluso.
Concordo:
http://msdn.microsoft.com/library/default.asp?url=/nhp/Default.asp?contentid
=28001860&frame=true
Newsgroup: it.comp.lang.visual-basic
Titolo: MSFlexGrid con esempi

Risalve a tutti.
Utilizzo molto le listview, ma con esse è possibile modificare solo il primo
valore delle tante colonne che possono essere create.
Ora ho la necessità di valore di una qualsiasi colonno creata e penso che
l'MSFlexGrid potrebbe essere la soluzione più adatta, ma non so come si usa.
Qualcuno può darmi delle dritte, indicarmi un sito dove ci sono degli esempi
anche in Ing.
Grazie a tutti
P.S. Accetto anche consiglio per utilizzare non l'MSFlexGrid ma altri OCX se
sono più semplici e/o completi

anche in Ing.
MSDN
Ciao,
Moreno
#sirri#@#
morenosoft.com#
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

 ha scritto nel messaggio
news:9kbai3$3in$1...@fe2.cs.interbusiness.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Componenti free per programmi VB

Ciao a tutti,
volevo solo rovinarvi la domenica (tanto qui piove!) con questa domandina:
avete una lista di componenti free "interessanti" (tipo che fanno cose
particolarmente carine/eleganti) da inserire in un sistema di supervisione
di impianti idroelettrici?
Il software di sviluppo contiene MS VBA quindi tutti gli OCX sono
inseribili...
Ahn... se non vi va di rispondere... vi capisco. :-)
Mauro

 supervisione di impianti idroelettrici?
Emm emm, sei trooooooppo generico, cosa ti serve di preciso ? di OCX ce ne
sono tantissimi, cose particolari ne fanno e alcune sono solo carine ecc..
-- 
<Gigio2K>
--- 
www.g2kweb.it
 ---
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/


Bye
Gio

 dovra' sviluppare in questo campo e mi piacerebbe avere uno scambio di idee.
E' un'ambiente di sviluppo proprietario ad hoc per la supervisione di
impianti.
la ditta produttrice č USDATA (
www.usdata.com
)
Sappi che i costi sono esorbitanti (si parla di 4000euro per le versioni
piů piccole!)
Ciao
Mauro
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 più piccole!)
:-( purtroppo lo so e lo sa anche il cliente... l'applicazione necessita di
molti I/O quindi le versioni Lite non sono l'ottimo e quindi mi devo
obbligatoriamente spostare sulla versione full (la mia 10.000 eurozzi)
Visto il ng troppo adatto se vuoi possiamo continuare il privato:
mark (underscore) antit (da) yahoo (punto) it
Bye
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT~] Flowchart

A chi interessasse, manterrò aggiornato il tutto a questo indirizzo
http://www.neodatatype.net/dump/flowchart/dir.asp
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 
http://www.neodatatype.net/dump/flowchart/dir.asp
Aggiunto ai Preferiti di IE.
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

Rilevato errore 438 quando si caricano i file flw di esempio.
L'errore avviene sulla riga:
Call objItem.NextItems.Add(m_Items.Item(SaveBlob(i).NextItems(0)))


Newsgroup: it.comp.lang.visual-basic
Titolo: listview e icone

ho un dubbio amletico... ma se ho un listview in visualizzazione report,
posso aggiungere delle icone? se sì, dove vanno a finire? in quale colonna,
intendo ????
MarioH


nella prima; naturalmente la ListView dev'essere associata ad una
ImageList, che contiene le icone
Faber

 Faber
ahhhhhhhhhhh devo associarlo!!!!! ecco perche non funzionava... ::))))))
MarioH


eh già!  :PP
Faber

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Dimensionamento form

Salve a tutti , avrei da poporvi un quesito :
ho creato un form di tipo sizeable ,non moveable impostato in modo che all'apertura sia 
massimizzato ho poi disabilitato l'opzione maxbutton solo che facendo quest'ultima modifica 
ho notato che mi nasconde la barra delle applicazioni , in pratica io vorrei che il mio form si 
possa  trovare solo in due stati :
    -  ridotto ad icona nella barra delle applicazioni
    -  massimizzato 
non voglio che possa ridursi ad una finestra + piccola neanche facendo doppio click 
sulla barra del titolo cosa che invece mi accade , come posso fare ?
Ciao e Grazie per qualsiasi suggerimento .

Prova con la proprietą del form Borderstyle settata su 3 (fixed dialog)
e con la Clipcontrols settata a False,  ciao

 Prova con la proprietà del form Borderstyle settata su 3 (fixed dialog)


 wrote in message 7n6mrm$30g$1...@nslave1.tin.it...

Utilizza il controllo Sysinfo (vedi help in linea). Ti mette a disposizione,
tra l'altro, le proprietà workarea.height e workarea.width, che non sono
altro che le dimensione dello schemo, meno la barra delle applicazioni: solo
lo spazio realmente utilizzabile, quindi. Metti l'altezza e la larghezza del
tuo form uguali alle proprietà sopracitate (nel form load), imposta
maxbutton=false, movable=false, windowstate=normal e dovresti riuscirci.
Ciao
Cesare Nicola
http://digilander.iol.it/cesare
L'indirizzo del sito comune è:
http://www.murialdo.it/it_lang_vb
Newsgroup: it.comp.lang.visual-basic
Titolo: Visual Basic Programmers Journa On CD

Oltre 4 anni di rivista su CD, una vera manna !!!
Lire 30.000 + s.s.
ciao
Ferrux Palmer
fer...@hotmail.com

 Lire 30.000 + s.s.[...]
Ciao Ferruccio,
è la versione americana quella che citi?
E' possibile trovarla in edicola?
Ciao
---
--
-
Maurizio Santaniello
MIX
170 links a siti VB
http://space.tin.it/computer/gaais/
http://web.tiscalinet.it/VBLINKS/
-
--
---
Curatore della "zona links" de:
Il sito comune di it.comp.lang.visual-basic
http://www.murialdo.it/it_lang_vb/

Newsgroup: it.comp.lang.visual-basic
Titolo: ComboBox, Database ed Errore Null

Lo script che vedete qui sotto mi permette di caricare come Items di
ComboBox  i record presenti nei diversi campi di una tabella di un Database
Access, e fin qui tutto OK, ma mi restituisce l'errore 94 - "Utilizzo non
valido di Null" se i record del campo Nome sono di meno del campo Cognome o
viceversa, in pratica perchč tutto funzioni regolarmente ogni campo deve
avere lo stesso numero di record.
Dove' č l'errore?
Private Sub Form_Load()
rstDati.Open "SELECT * FROM Dati", cnn, adOpenDynamic, adLockOptimistic
Do Until rstDati.EOF = True
Combo(4).AddItem rstDati![Nome]
Combo(5).AddItem rstDati![Cognome]
rstDati.MoveNext
Loop
End Sub
Spero di essere riuscito a spiegarmi chiaramente
Grazie :-)

esatto, le due combo devono avere lo stesso numero di elementi, dato che il
source delle due combo č lo stesso.
Il problema č che evidentemente alcuni record della tabella Dati sono
valorizzati a Null, ed č impossibile aggiungere un valore Null ad una
combo......
dovresti fare una cosa tipo:
Private Sub Form_Load()
rstDati.Open "SELECT * FROM Dati", cnn, adOpenDynamic, adLockOptimistic
Do Until rstDati.EOF = True
If IsNull(rstDati![Nome])=False Then
    Combo(4).AddItem rstDati![Nome]
End If
If IsNull(rstDati![Cognome])=False Then
    Combo(5).AddItem rstDati![Cognome]
End If
rstDati.MoveNext
Loop
End Sub
cosě facendo eviti di caricare gli elementi messi a Null. Occhio, cosě
potresti avere le combo con contenuti diversi.
Le due If sono separate, ovviamente, per cui, le combo potrebbero non essere
allineate.....
good coding!!!
-- 
Damiani Liborio Igor
ig...@igordamiani.it
 - 
soft...@igordamiani.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262

 Loop
la butto lě senza provarla, non basterebbe scrivere:
 Do Until rstDati.EOF = True
     Combo(4).AddItem rstDati![Nome] & ""
     Combo(5).AddItem rstDati![Cognome] & ""
 rstDati.MoveNext
 Loop
un silente beppe
Newsgroup: it.comp.lang.visual-basic
Titolo: Caricare e scaricare form

Ciao a Tutti !!
Ho un grossissimo problema che non riesco a risolvere: dalla mia form
principale vorrei caricarne un'altra sopra la prima; il mio problema è
che non ho capito come si fa in modo a disabilitare l'accesso alla
prima form fino a quando non viene chiusa la seconda.
Grazie e Ciao
         /// 
          / ^ \                                                  
         ( o-o )                                                
-----oOOO--(_)--OOOo-----------------------------------------------------
                           Denis Carraro       
      .oooO                Giavera del M.llo (Tv) - Italy                            
      (   )   Oooo.        
denis....@usa.net
-------\ (----(   )------------------------------------------------------
        \_)    ) /           
              (_/
Denis....@USA.Net

 Grazie e Ciao
Questo č un sistema semplice:
Sul tuo form principale metti l'istruzione "NomeFormSecondario.Show 1"
(Stile 1=form principale disabilitato, stile 0=form principale abilitato).
Ciao Arianna

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto gli oggetti DAO non funzionano in windows98

Ciao a tutti.
Ho bisogno di aiuto, vi spiego il mio problema.
Da quando ho installato windows98, quando lancio del codice che contiene
oggetti DAO, mi compare un messaggio che mi dice che il componente ActiveX
non è in grado di creare l'oggetto.
Posso assicurare che la classe DAO e tutti i suoi oggetti sono regolarmente
registrati nel registro di configurazione di windows.
Ringrazio anticipatamente.
Roberto.
--
Posted from 
mail.dex-net.com
 [194.184.44.19]
via Mailgate.ORG Server - 
http://www.mailgate.org

Succede pure a me, ma mi sono accorto che accade solo quando appena partito
il sistema operativo, prima di far partire il VB uso Internet.

Non quanto sia vero ma ho sentito parlare di incompatibilità degli OCX di
win95 in win98. BOOOOO !!!!!!!!!!!
CIAO !!!

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Selezionare run-time riga di DBGrid

Come selezionare run-time una intera riga di una DBGrid cliccando su
un qualsiasi record?
Grazie,
Marco


1) Selecziona a design time la DbGrid
2) Premi F1
3) Cerca tra le proprietà della DbGrid
ciao
ugo

 un qualsiasi record?
Questo codice funziona con la TrueDBGrid50
Private Sub tdbg_MouseUp(Button As Integer, Shift As Integer, x As Single, y
As Single)
    Dim RowSel  As Boolean
    Dim i       As Integer
    Dim bmk     As Variant
    If tdbg.RowContaining(y) > -1 Then
        bmk = tdbg.RowBookmark(tdbg.RowContaining(y))
        With tdbg.SelBookmarks
            For i = 0 To .Count - 1
                If .Item(i) = bmk Then
                    RowSel = True
                    Exit For
                End If
            Next
        End With
        If RowSel Then
            tdbgAnag.SelBookmarks.Remove i
          Else
            tdbgAnag.SelBookmarks.Add bmk
        End If
    End If
End Sub
Private Sub tdbg_SelChange(Cancel As Integer)
    Cancel = True
End Sub
Newsgroup: it.comp.lang.visual-basic
Titolo: xara, zara, ... ??

salve, una volta non ricordo chi mi consiglio un controllo, un OCX che
seerviva ad "abbellire i form, e che creava etxtbox 3D tutti colorati e
roteanti... ::)))) ricordo nel nome c'era la parola "xara", "zara",... ma
forse mi sto confondendo con il nome di un'automobile... ::))))
qualcuno conosce un OCX simile?
MarioH

 forse mi sto confondendo con il nome di un'automobile... ::))))
Io cercavo invece l'OCX "Porsche Carrera 4 coupč" č molto piů bella piů
potente ma consuma piů di 1MB di RAM al Kilometro!!!!
^___^


Zara è il nome del mio cane... pero' gira solo sotto OSS 2
ciao
Enrico

forse mi sto confondendo con il nome di un'automobile... ::))))
http://www.xara.com/products/xara3d/
io ricordo che ti avevano detto di lasciar stare gli OCX e semplicemente
aggiungere un po' di grafica ad effetto, e xara serve a questo...
-- 
Posted from 
mx1.aruba.it
 [62.149.128.130] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG


ma perche, xara non è esso stesso un ocx ?
MarioH

 Zara è il nome del mio cane... pero' gira solo sotto OSS 2
bella eheheh  :)
Faber

Newsgroup: it.comp.lang.visual-basic
Titolo: Cerco parser per funzione matematiche

Cerco una funzione parser per elaborazione
matematiche con sorgene, sapete dove la
posso trovare?
Ciao

 ha scritto nel messaggio
news:7OqT6.27358$Uo3.9...@news6.giganews.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: [help] DbCombo e Check ridondanti

Ho un noioso problema sull'interazione tra un Dbcombo (collegato ad un
DataControl) e una Check.
la routine che riporto ha sempre funzionato mentre da quando ho installato
il Servicepack 3 da errore (credo SP3 perche tra l'ultima volta che l'ho
usata ad oggi l'unica modifica e' stata quella)
e' evidentemente un problema di ridondanza (l'errore e spazio nello stack
esaurito)
ma perche' prima non dava errore ?
qualcuno ha altre soluzioni ?
la routine serve a svuotare il text del DBcombo dopo aver fatto click sul
chek
e serve anche  a lascire il chek su value 1 se il dbcombo e' gia vuoto
Private Sub Check1_Click()
' se chck =1 svuoto dbcombo
If Check1.Value = 1 Then
     DBCombo1.Text = ""
    Else
    ' se check=0 e combo vuoto lascio chek a 1
    If DBCombo1.Text = "" Then Check1.Value = 1
End If
End Sub
Private Sub DBCombo1_Click(Area As Integer)
' se faccio click sulla lista metto il check su Unchecked
If Area = 2 Then
    Check1.Value = 0
End If
End Sub
Grazie stefano

 End Sub
stefano, io uso vb5sp3, quindi magari i controlli si comportano
diversamente. cmq:
lo stack esaurito dovrebbe indicare che entra in loop.
c'e' un occasione particolare in cui lo fa ?
cioe', con clic sul chk s/o sul cbo ?
io ho provato come sotto, con un cbo normale per sveltire, e non mi entra
mai in loop.
direi che il chek si mette a 0
-- se uno fa clic su chk e il cbo non e' vuoto
-- se nel combo si sceglie 2
che mi sembra fosse quello che ti serviva ?
Private Sub Form_Load()
    ' il chek = 0
    Dim j
    For j = 1 To 5
        Combo1.AddItem CStr(j)
    Next
End Sub
Private Sub Check1_Click()
    If Check1 = 1 Then
        Combo1 = ""
    Else
        If Combo1 = "" Then Check1 = 1
    End If
End Sub
Private Sub Combo1_Click()
    If Combo1 = 2 Then Check1 = 0
End Sub

mai in loop.
infatti entra in loop solo con il DbCombo del SP3
ho provato con altri controlli (combo e text) e non succede
il mio problema e' questo :
nel dbcombo viene inserito un elenco di clienti
se seleziono un nome una stampa filtra le operazioni di quel cliente
il check serve per ripristinare la deselezione del filtro svuotando il
contenuto della casella del DB. e' solo un effetto visivo solo che ora non
riesco a risolvere nel modo precedente lineare (salvo caricare un combo e
non un dbcombo ma con 4000 nomi diventa lunga)
Intanto grazie Stefano

 non un dbcombo ma con 4000 nomi diventa lunga)
non dovrebbe essere lentissimo, in compenso e' molto piu' flessibile. forse
con qualche api riesci anche a sveltire il tutto.
ciao, a.

Grazie, penso faro cosě
Ciao stefano
Newsgroup: it.comp.lang.visual-basic
Titolo: Come far aprire un file txt facendo doppio clic, con il mio nuovo editor

Ragazzi, sono nuovo di VB6 ho da poco creato un editor di testo tutto mio,
ma cambiando il programma che apre automaticamente i file txt (notepad) con
il mio, non riewsco a farglieli aprire. QUlacuno mi da una mano. Sono sicuro
che č una stupidaggine.
Grazie.
--
________________________________
BIG 
big...@tin.it
UIN 45561492
The Big HomeRpage 
http://www.freeweb.org/computer/big
"Two beer or not two beer,
that's the question !"
(Shakesbeer)
_______________________________

 (Shakesbeer)
Non scuoterla troppo, si rovina ! ;-))
Bye, G.
--
---------------------------------------------
    Le risposte alle tue domande le trovi
    sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
       ... e nell'help in linea !
---------------------------------------------
Real E-address: 
gaet...@hotmail.com


Se vuoi ti posso dire la risposta, ma mi devi pagare 500.000 lire
anticipate.
Vedi tuo messaggio "Re: vorrei acquistare VB6" del 10/10/1999, ore 13:55.
Ladro!
--
Roal Zanazzi
z...@iol.it

 > che è una stupidaggine.



Guarda che non hai capito: saresti un LADRO anche se glielo regalassi!
--
----------------------------------------------
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)
Newsgroup: it.comp.lang.visual-basic
Titolo: Visulizzazione di un database in datagrid

Salve a tutti, cerchero' di esporvi il piu' chiaramente possibile il mio
piccolo problema, che a causa della mie minime conoscenze non riesco a
risolvere.
Nel  progamma  in questione effettuo una ricerca in un database acces.
Apro la connessione con il database
___________________________________
Set Conn = New ADODB.Connection
    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database;Data
Source=" & Str & ";Persist Security Info=False"
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
Eseguo la ricerca.
e i risultati li visualizzo in un datagrid:
______________________________________
Set DataGrid1.DataSource = rs
Label_Num_1 = rs("Nome")
Label_Num_2 = rs("Cognome")
Label_Num_3 = rs("telefono")
Mi vengono visualizzati a schermo tutti i risultati trovati
Ovvero il database è costituito da tre colonne ad esempio (nome, cognome,
telefono).
E con le tre righe successive mi vado a visualizzare in delle label i valori
della prima riga che automaticamente è selezionata.
Domande?
1) Se seleziono con il mouse una riga diversa dalla prima nel datagrid, come
si fa a prendere quei valori e a farli visualizzare altrove??  cosi' come
faccio automaticamente con la prima riga
2) In effetti vorrei che nella finestra del datagrid in cui sono
visualizzati i risultati della ricerca mi compaia solo il campo "Nome".
Quindi selezionando con il mouse uno degli n campi visualizzati a schermo,
vorrei poter visualizzare il resto delle informazioni corrispondenti a quel
nome, in altra posizione.
Ringrazio tutti coloro che mi risponderanno anticipatamente!!
Saluti
Sde

 visualizzati i risultati della ricerca mi compaia solo il campo "Nome".
Riduci a zero la larghezza delle colonne della datagrid che non vuoi
visualizzare (dopo aver assegnato la sorgente dei dati)
-- 
Salutoni
Sergio
C'č il giorno in cui nasci e quello in cui scegli di vivere
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Ti ringrazio per le dritte...
Il problema è che non conosco i comandi per ridurre a zero delle specifiche 
colonne.
Ho cercato  alcuni esempi scaricati dal web, ma non sono riuscito a trovare 
proprio cio' che mi serve.
In effetti sto realizzando un programmino per diletto, quindi non conosco i 
comandi a memoria, per ogni piccola cosa devo andarmi a studiare l'help 
Msdn, e non sempre riesco a trovare cio' che mi serve.
Per quanto riguarda l'evento con
cui la datagrid segnala che è stata selezionata una riga, vedro' meglio in 
un esempio che ho trovato che so che fa questa cosa, anche se a prima vista 
è molto complesso .
Magari se qualcuno mi sa dire i comandi da usare. Poi li vado ad 
approfondire leggendo l'help.
Ciaoo 

 è molto complesso .
Sarà o l'evento Change o Click. Altrimenti valuta di usare la
MSHFlexGrid, ha il difetto però di non essere editabile nativamente
(quindi non puoi scriverci dentro che io sappia), almeno di usare una
scappatoia.
-- 
Freccia@Bulldozer63 :D

Grazie mille
Newsgroup: it.comp.lang.visual-basic
Titolo: Manuali

Quali sono i migliori manuali online e su supporto cartaceo disponibili???

 wrote


Newsgroup: it.comp.lang.visual-basic
Titolo: Intestazione report CR con variabile VB....

Vorrei fare in modo di creare l'intestazione di un report utilizzando una
variabile assegnata mediante del codice VB.
Ho tentato di passare la variabile al controllo OCX di CR mediante la
proprieta' : "BoundReportHeading", ma non mi funziona.
Vi posto un esempio del codice che ho scritto :
dim nome as string
nome = inputbox ("Come ti chiami ?")
CrystalReport1.BoundReportHeading = "IL REPORT DI  : " & nome
CrystalReport1.Action1
Il report mi appare ma senza alcuna intestazione.
Potete aiutarmi ?
Grazie
Aldo

 ha scritto nel messaggio
news:u8YP6.12898$WT5.4...@news.infostrada.it...


 Ciao!
Grazie per le dritte.
Volevo chiederti ancora un chiarimento....
Non ho capito a che serve l'indice di matrice nella proprieta'.
Se inserisco tre formule sul report, come faccio a sapere quale indice devo
assegnare ad ognuna ?
In altre parole, esiste una relazione tra l'indice di matrice e la sequenza
di inserimento delle formule ?
Ciao
Aldo


| Newsgroups: it.comp.lang.visual-basic
| Sent: Sunday, May 27, 2001 4:18 PM
| Subject: Re: Intestazione report CR con variabile VB....
|
|
| > Caro Aldo,
| >
| > crea in CR due formule vuote con nome TITOLO e SOTTOTITOLO (@TITOLO,
| > @SOTTOTITOLO) e piazzale dove vuoi.
| >
| > Poi, da VB le puoi "riempire" con la seguente istruzione:
| >
| > REPORT.Formulas(0) = " TITOLO=' " & Z1$ & "'"
| > REPORT.Formulas(1) = "SOTTOTITOLO='" & Z2$ & "'"
| >
| > ove REPORT č il nome del controllo CR, Z1$ e Z2$ sono la stringhe che
