mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Elenco delle proprietà di una classe

Salve a tuti.
La mia esigenza è la seguente:
ne mio progetto ho diverse classi che implementano, il cliente, il
fornitore, gli automezzi, etc
in alcune parti del progetto vorrei visualizzare le proprieà di questi
oggetti sun un form stile il form delle proprietà di vb. Come posso fare un
loop sulle propriètà di una classe, ad esempio un for...each ?
in questo modo posso scrivere il codice che visualizza le porprietà in modo
tale da poterlo riutilizzare per tutte le classi.
grazie. :-)

 loop sulle propriètà di una classe, ad esempio un for...each ?
Per il loop sulle proprietà vedi mia risposta al thread "Cosa c'è dentro una
dll" del 20/07/2001
Ciao

 wrote in message
z4_67.7307$hO3....@news2.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Inizializzare variabili STATIC

Ciao a tutti,
e' possibile inizializzare una variabile static all'interno di una SUB
o FUNCTION, un po' come si farebbe in C
SUB Test
	STATIC i as integer = 100	'non funziona ...
	i=i+1
	...
END SUB
Grazie
Francesco
------------
Francesco Beccari
frankb@I_HATE_SPAM_interplanet.it


A me non risulta, ma se dimensioni i come Variant, puoi intercettarne il
valore Empty iniziale.
Private Sub Sabrutin()
    Static i As Variant
    If IsEmpty(i) Then i=100
    ...
    ...
End Sub
--
f.ronco@*NonMiServeNiente*
flashnet.it
http://www.metabrains.com
  [Under Construction]
-------------------------------------------------------------
"Che pubblico in gamba! Se ci dite dove lavorate,
domani mattina se abbiamo tempo vi veniamo a vedere"
[Paolo Rossi]


No. Le variabili vengono inizializzate al loro valore di defaul: stringa vuota per le stringhe, zero per i numeri, non lo so per le date.
I variant vengono messi a empty, se non ricordo male.
Antonio Donatiello

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] file pattern

Questo per quello che ho capito io.
Già, e se devo dire la verità la trovo un'idiozia!
Se cerco "*." VOGLIO avere SOLO i files SENZA estensione!!!!
Altrimenti avrei scritto "*.*" o "*" !!!!
E lo stesso se faccio "*.in" mi trova tutti i files .ini, e io che cercavo
l'unico .in me lo devo comunque cercare a mano tra i 2000 .ini del mio HD -
c@//o!
Ciao.

 c@//o!
appunto...
be', consolati, non so in vb6, ma in vb5 c'era un sample, filectls o qc del
genere, per spiegare la ricorsione, e lui funziona come si deve... basta
compilarselo... in piu' te lo puoi anche personalizzare...
se non ce l'hai te lo mando.
anzi, se ci metti mano e mi spieghi come sostituire il listbox in cui
vengono listati i file trovati (con limite di 32k) con una matrice, ti sarei
eternamente grato...
mi chiedo solo: la possibilita' di trovare un file senza estensione e' un
lusso riservato ai programmatori vb o c'e' anche per gli user non 'power' ?

Newsgroup: it.comp.lang.visual-basic
Titolo: design patterns

 
 
 
link interessante sui design patterns e simili:
it.groups.yahoo.com/group/Design_Patterns_it
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


repost... scusate.

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Timer più lungo

Ciao
Il timer di VB non permette intervallo superiori a circa un minuto, c'č
qualche modo per portare questo intervallo a tempi intorno 30 minuti.
La soluzione che stņ usando adesso č di usare il timer per il tempo massimo
e inserirci un contatore all'interno.
Mi piacerebbe una soluzione migliore se esiste.
Grazie a tutti
F.B.



DateDiff
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

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

Come si fa a far comparire le proprietà di explorer ovviamente in vb :)) ?
in pratica quello che viene fuori quando si preme strumenti\opzioni internet
oppure il destro sull'icona di explorer e poi proprietà ?
grazie

 oppure il destro sull'icona di explorer e poi proprietą ?
ret = Shell ("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl",
vbNormalFocus)
oppure
ret = ShellExecute (Me.hwnd, vbNullString, "inetcpl.cpl", vbNullString,
vbNullString, SW_SHOWNORMAL)
per trovare il nome del modulo sono andato sul pannello di controllo e col
tasto destro ho creato un collegamento al modulo sul desktop. Poi ho aperto
il link con notepad ed ho trovato la stringa
"C:\WINNT\System32\inetcpl.cpl".
Nella finestra Run/Esegui si puņ digitare direttamente "inetcpl.cpl" e
matemagicamente si apre la finestrozza.
Silv:o)

 matemagicamente si apre la finestrozza.
tnx :))
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Risultato di una Select in un Array

Il buon vecchio FoxPro dava la possibilita' di memorizzare il risultato di
una SELECT SQL in un Array.
Esiste la stessa cosa in VB utilizzando un database Sql-Server senza
utilizzare il metodo GetRow del Recordset?
In pratica vorrei che il risultato della mia Query SQL venga memorizzato
direttamente in un Array dove la riga rappresenta il record e la colonna il
contenuto del campo senza utilizzare un recordset.
Grazie a tutti.
Ciao
Skysurfer

 ha scritto nel messaggio
news:9qk326$816$1...@serv1.iunet.it...

Pur sfuggendomi lo scopo di trasferire una struttura ad oggetti in una
"amorfa"  (e mi piacerebbe saperlo)...
direi che l'unica altra strada oltre alla getrow sia quella di un doppio
loop for nn=0 to .recordcount -1 e for kk=0 to .fields.count -1
ciao
ugo


Sono in grado di dirtelo solo a grandi linee in quanto si tratta di
velocizzare un OCX scritto da un mio collega.
Lo scopo di questo oggetto e' quello di disegnare un DXF di Autocad.
Tutte le informazioni relative alle varie linee che costituiscono il disegno
sono memorizzate in tabelle di SqlServer.
L'array di cui parlavo non e' completamente "amorfo" in quanto e' un arrray
di UDT, quindi e' strutturato piu' o meno come un oggetto.
Comunque per velocizzare le operazioni soprattutto per l'utilizzo su
internet di questo oggetto, richiamato da codice ASP, si era pensato di
mettere tutto in memoria sfruttando questa struttura di Array.
Abbiamo gia' provato con il ciclo come suggerivi tu, ma se il numero di
record e' elevato, occorre qualche secondo e visto che mi e' tornata in
mente quell'istruzione di FoxPro che in questo caso risolverebbe
automaticamente il problema, ho pensato che ci potesse essere un'istruzione
equivalente anche per SqlServer.
Grazie e ciao.
Skysurfer
Newsgroup: it.comp.lang.visual-basic
Titolo: Visualizzare il contenuto di una variabile...





Ciao a tutti,


 


    malgrado il problema sembri 
banale, non lo è affatto!!


 


    Dunque, io ho un'applicazione 
che in caso di errore visualizza un form con alcuni dati di debug, il mio 
problema è di dare all'utente la possibilita di visualizzare il contenuto delle 
variabili del programma. 


 


    Il nome della variabile, però, 
deve essere passato tramite una stringa. Esempio


 


 


    ...


    Dim 
A        As Integer


    A = 
123


    Ret = 
InputBox("Inserire il nome della variabile da visualizzare")


    ...


 


    ' A questo punto se l'utente 
inserisce il nome della variabile 
'A' 

vorrei visualizzarne il contenuto: 

123


 


    Ho effettuato alcune prova con 
l'istruzione 
StrPtr
, ma restituisce il puntatore 
della variabile passata, se la utilizzo con il precedente esempio 
lngPtr = StrPtr(Ret)
 ottengo, ovviamente, il 
puntatore a 
'Ret'
 
ma a me 
interessa il puntatore di 
'A' 
che è 
il contenuto di 
'Ret'


 


    Spero di essere stato abbastanza 
chiaro, in attesa di un vostro prezioso consiglio.... Salutoni a 
tutti


 


    AlbertOne 
:-))



  
Non ne sono certo, ma non credo che nel compilato la tua variabile si 
chiami ancora A!
Puoi forse inserire una select in cui elenchi tutte le variabili della 
routine e fai il confronto con l'input dell'utente, ma e' lungo e poco 
elegante ...
ciao
		maxx

... ma allora non è vero che in vb non si possono usare i puntatori?
--------------------------------
Inviato via 
http://usenet.iol.it
 

 ... ma allora non è vero che in vb non si possono usare i puntatori?
Non si possono usare come in C ...
Quando si fa uso delle API spesso e' necessario utilizzare le funzioni 
di VB che restituiscono puntatori (ad esempio per passare gli indirizzi 
delle funzioni di callback).
Se non sai per cosa servono meglio dimenticarle!
ciao
		maxx

ciao
si può sempre
imparare...;-)
ciao


 imparare...;-)
Puoi cominciare da:
http://www.allapi.net/
ciao
		maxx
Newsgroup: it.comp.lang.visual-basic
Titolo: [?][2][ADOX] importare tabella in Access

Ciao a tutti,
Il mio problema è il seguente :
Ho la necessità di Importare una tabella di un database Access 2000 in
un altro DB (sempre Access 2000) il tutto da un programma in VB6.
Con ADOX riesco a collegarla ma poichè è grossa e si trova su un
server connesso tramite una rete a 10 Mb, diventa troppo onerosa
l'interrogazione.
Qualcuno sa indicarmi il codice per 'Importarla' invece di
'collegarla' ?
N.B.
Se interessa allego il codice per collegare una tabella Access ad un
DB access:
Sub CreaTabellaAccessLinkata( strDBSource as string,strDBTarget as
string, _
                         strTabellaSource as string,strTabellaTarget
as string)
DIM CatDB asADOX.Catalog
DIM Tbl as ADOX.Table
Set CatDB = NEW ADOX.Catalog
CatDB.ActiveConnection = "Provider=Microsoft,Jet.OLEDB.4.0;Data
Source=" & strDBSource
Set Tbl = NEW ADOX.Table
WITH Tbl
  .Name = strTabellaTarget
  Set .ParentCatalog = CatDB
  .Properties("Jet OLEDB:Create Link") = True
  .Properties("Jet OLEDB:Link Datasource") = strDBTarget
  .Properties("Jet OLEDB:Remote Table Name") = strTabellaSource
END WITH
CatDB.Tables.Append Tbl
Set CatDB = Nothing
End sub
GRAZIE

 DB access:
[cut]
grazie per il codice  :)
per risolvere i problema potresti eseguire una query tipo
SELECT * INTO NuovaTabella IN '\\nomehost\cartella\Archivio.mdb'
FROM TabellaDiOrigine
dal DB di origine... NuovaTabella non deve esistere (altrimenti dovresti
usare INSERT INTO ...), cmq trovi tutto nell'help di Access -
Riferimento SQL
hth
Faber

 ha scritto nel messaggio
news:9eh4b6$33qum$1...@ID-66268.news.dfncis.de...

Speravo proprio di non dover usare questo metodo ma di utilizzare qualcosa
tipo il codice che ho postato :-).
Comunque grazie per il consiglio !!!
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: interrogazione su più tabelle

Ho un archivio .MDB
Ho fatto un progettino VB con il suo DBGrid collegato con un DATA
Quindi inserisco questo codice ed è tutto OK
miaQuery = "Select Comune From tComuni"
Data1.RecordSource = miaQuery
Data1.Refresh
Nell'archivio ci sono però due tabelle
Posso interrogarle contemporaneamente ? (sono collegate tra di loro tramite
un campo 1 a molti)
Come si fa ?
Devo inserire due DATA uno collegato ad una tabella e uno ad un altra ?
Posso richiamare una Query dell'Archivio ?
Grazie


Certo che puoi richiamarle contemporaneamente:
l'istruzione :
select campo1, campo2 from tabella1, tabella2
supponendo campo1 appartenente alla tabella 1 e campo2 alla
tabella 2 crea una tabella che č il prodotto cartesiano delle due
se ci metti una bella where leghi le due tabelle con un minimo
di senso.
                                                                    danilo
Newsgroup: it.comp.lang.visual-basic
Titolo: Accordatore chitarra (audio frequenzimetro)

Ciao ragazzi, qualcuno potrebbe aiutarmi a realizzare un programmino che si 
limiti a visualizzare su di una maschera la frequenza del segnale audio in 
ingresso sul canale "microfono" ?

 ingresso sul canale "microfono" ?
Vai giù pesante con FFT/Fast Fourier Transform

 ingresso sul canale "microfono" ?
Puoi provare ad usare il programma AudioCardDSP, reperibile sul
mio sito di "DownLoads" a: 
http://www.flanguasco.org
L' analizzatore di spettro, con ingresso da microfono,
dovrebbe fare al caso tuo.
Ciao e contattami pure, se ti servisse altro aiuto.
Franco

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Definire dove stampare

Ciao ragazzi!
Ho un problema nell'utilizzo dell'oggetto "Printer" di VB6. Con i metodi
"CurrentX" e "CurrentY" posso stabilire dove deve essere stampato il testo,
ma essi, a quanto pare, devono essere impostati per ogni singola riga. Mi
spiego meglio. Ho sviluppato una piccola applicazione che riceve due
parametri, una stringa e il nome di un file di testo; essa deve costruire
una pagina da inviare alla stampante. Il primo parametro costituisce il
titolo; con queste istruzioni:
With Printer
            'Imposta le coordinate di stampa.
            .CurrentX = 600
            .CurrentY = 600
            'Imposta il carattere.
            .Font.Name = "Arial"
            .Font.Size = 12
            .Font.Bold = True
            'Stampa il titolo dell'argomento.
            Printer.Print Title
End With
il testo viene posizionato nella pagina nella posizione voluta. I problemi
nascono quando devo stabilire la posizione del contenuto del file di testo.
Infatti, i metodi "CurrentX" e "CurrentY" hanno effetto solo sulla prima
riga del testo, mentre le altre vengono tutte stampante all'estremità
sinistra del foglio.
Sono io che sbaglio qualcosa? C'è un metodo per risolvere il problema?
Ringrazio anticipatamente quanto mi aiuteranno.
--
Marco Minerva, 
marco....@libero.it
http://www2.armaditaggia.com/marco

Marco Minerva ha scritto:

    Sono mesi che non uso l'oggetto printer fra non molto dovrei riminciare.
Comunque per quel che mi ricordo impostando con currency l'altezza da dove deve
partire l'output sono sicuro che la mantiene per currencx non ricordo, comunque
tieni presente che li dai solo la partenza quindi una volta che va a capo
dovrebbe ricominciare tutto da capo in particolare se vuoi che la stampa del
file sia stampata ad un certo margine dal titolo allora devi darli la nuova
coordinata verticale.
Per il margine sinistro io comunque per non uscire pazzo con i twip solitamente
aggiungo una tabulazione es "printer.print tab(2); variabile.
Spero di esserti stato di aiuto.
ciao Minerva
Newsgroup: it.comp.lang.visual-basic
Titolo: Funzione per vedere se un url e' valido

Esiste una API oppure qualcuno ha una routine che testa la validita'
di un URL?
Esempio: io passo alla funzione l'indirizzo
http://www.microsoft.it/sex/index.html
 e lei mi risponde 404 che e' il
codice di errore riportato del server. Ambrebbe bene anche una
risposta tipo boolean che dice TRUE se l'url e' valido.
Qualche idea?

 wrote in message
news:39ffbe5e...@news.inwind.it...

Una possibile soluzione potrebbe essere:
''''''''''''''''''''''''''' all' interno di un .bas o .cls
'''''''''''''''''''''
Option Explicit
Private Declare Function InternetOpen Lib "wininet.dll" Alias
"InternetOpenA" _
                        (ByVal sAgent As String, ByVal lAccessType As Long,
_
                        ByVal sProxyName As String, _
                        ByVal sProxyBypass As String, ByVal lFlags As Long)
As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" _
          Alias "InternetOpenUrlA" _
        (ByVal hInternet As Long, _
        ByVal lpszUrl As String, _
        ByVal lpszHeaders As String, _
        ByVal dwHeadersLength As Long, _
        ByVal dwFlags As Long, _
        ByVal dwContext As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet.dll" _
        (ByVal hInet As Long) As Long
Private Const INTERNET_OPEN_TYPE_DIRECT = 1
Private Const INTERNET_NO_CALLBACK = 0
'////////////////////////////////////////////////////
Public Function IsValidUrl(ByVal sUrl As String) As Boolean
  Dim hInternet As Long
  Dim hUrl As Long
  hInternet = InternetOpen("vb wininet", INTERNET_OPEN_TYPE_DIRECT,
vbNullString, vbNullString, 0)
  If hInternet Then
    hUrl = InternetOpenUrl(hInternet, sUrl, vbNullString, 0&,
INTERNET_NO_CALLBACK, 0&)
    If hUrl Then
      IsValidUrl = True
      Call InternetCloseHandle(hUrl)
    End If
    Call InternetCloseHandle(hInternet)
  End If
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
L' esempio e' volutamente limitato a non considerare proxy, connessioni LAN,
ecc.
Ciao
Aldo

Una possibile soluzione potrebbe essere:
Ho provato ma mi pare che funzioni solo nel caso in cui non sia
trovato l'host mentre da ok se la pagina non esiste (errore 404)...
A proposito, sai dove posso trovare la documentazione della
wininet.dll ?


msdn potrebbe essere gia' un buon punto di partenza.
Ciao
Aldo


Non so se lo hai visitato anche tu, ma in un link fornito poco fa da pal ho
visto un WinICMP (ocx freeware) per fare il ping. Magari ti vien bene ...
http://winfiles.cnet.com/apps/98/vb-comp-q.html
Ciao
Aldo


Non c' e' dubbio !
In bocca al lupo e buon lavoro.
Ciao
Aldo


http://winfiles.cnet.com/apps/98/vb-comp-q.html
Sono due strade possibili... 

Newsgroup: it.comp.lang.visual-basic
Titolo: Descrizione della funzione

 Come si ottiene/modifica la descrizione della funzione che compare nel
riquadro in basso
del Visualizzatore di oggetti?
E' possibile fare in modo di ottenere questa descrizione mentre si sta
lavorando su codice, senza aprire il Visualizzatore di oggetti? Più o meno
come avviene per i valori delle variabili richiesti dalla funzione ?
Grazie
--
Gulp ! Forse mi sono perso qualcosa !

Strumenti / Attributi routine
Ciao Maurik

 Ciao Maurik
Grazie


Newsgroup: it.comp.lang.visual-basic
Titolo: Drag and Drop .net

Mi serve qualcosa che mi spieghi come fare per permettere all'utente di
portare a spasso una picturebox all'interno del form e memorizzarmi le
coordinate di dove l'ha spostata (questo lo so fare).
Grazie per le risposte e ciao a tutti :)

PS: io avevo provato una cosa del genere, ma non mi piace come funziona:
Dim trascinamento as boolean
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
trascinamento = True
End Sub
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
If trascinamento Then
PictureBox1.Left = Cursor.Position.X
PictureBox1.Top = Cursor.Position.Y
End If
End Sub
Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
trascinamento = False
End Sub

> CUT
A I U T O !
Newsgroup: it.comp.lang.visual-basic
Titolo: Urgente !!! - Ordinare una ListView

Come da oggetto.
l'ordinamento via codice funziona con il testo, ma ad esempio con gli
importi succede questo
(ordinamento crescente)
       9.000
9.100.000
     90.000
Quendi lui considera tutto testo.
Come si risolve questo problema ?


Piccolo trucco: creati una colonna di larghezza minima (1 pixel), a cui
assegni come valore il tuo numero formattato in una stringa di, poniamo,
15 zeri.
Nel tuo caso, la colonna conterrebbe i valori 
000000000009000
000000009100000
000000000090000
, ed ordinala per questa colonna.
Bye by Massimo 8-]

 , ed ordinala per questa colonna.
si'. magari con degli spazi anziche' zero, giusto per la leggibilita'.
qui un lv tipo gestione risorse ordina un elenco di file filtrati dal
pattern di un filebox nascosto. per le date ci sarebbero altri sistemi, ma
il formato ansi e' prob il piu' rapido.
e' da mettere a punto. con molti file, oltre che abbastanza lento, da
qualche parte da' un overflow, ma in genere va.
Private Sub RefreshFile()
    On Error GoTo errman
    Screen.MousePointer = 11
    Caption = MainPath
    File1.Path = MainPath
    File1.Refresh
    Dim j As Integer, k As Integer
    Dim MyFile As String, MyExt As String, itmX As ListItem
    Dim lSize As Long, totSize As Double
    LV.ListItems.Clear
    If File1.ListCount > 0 Then
        k = File1.ListCount - 1
        For j = 0 To k
            Set itmX = LV.ListItems.Add()
            File1.ListIndex = j
            MyFile = File1.FileName
            MyExt = ParseFExt(MyFile)
'qui va rivisto: se l'est. e' "jpeg"... :
            itmX.Text = Left(MyFile, Len(MyFile) - 4)
            itmX.SubItems(1) = MyExt
            lSize = Len(Format(FileLen(MainPath & MyFile),
"###,###,###,###"))
            itmX.SubItems(2) = Space(15 - lSize) & _
                Format(FileLen(MainPath & MyFile), "###,###,###,###")
            itmX.SubItems(3) = Format(FileDateTime(MainPath & MyFile),
"yyyy/mm/dd")
            totSize = totSize + FileLen(MainPath & MyFile)
        Next
        Set LV.SelectedItem = LV.ListItems(1)
    End If
    Screen.MousePointer = 0
    Exit Sub
errman:
    Screen.MousePointer = 0
    If Err <> 76 Then MsgBox Err & " -- " & Error
End Sub

 ha scritto nel messaggio
news:8traa8$nssb0$4...@ID-51318.news.dfncis.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO!! Programmatore VB con contropalle CERCASI DISPERATAMENTE!

Ho bisogno di una persona capace di programmare bene in VB 4.0 per
consiglio professionale: prima applicazione seria in ballo con intoppo
megagalattico! Argomento troppo vasto per discussione via News, Trattasi
di come convertire una variabile stringa in un oggetto in modo che possa
caricare una form partendo dal suo nome contenuto in una stringa.
PER FAVORE CHI LO SAPESSE ME LO COMUNICHI VIA MAIL! E' URGENTE! GRAZIE!
a...@nevib.it

...

Newsgroup: it.comp.lang.visual-basic
Titolo: !!!!!!!!Aiuto per installazione!!!!!!!!

Vi prego aiutatemi,sto diventando matto!Ho perso un mucchio di tempo a
realizzare uno dei miei primi programmi ed ora che l'ho concluso non riesco
a realizzare il pacchetto di distribuzione!
Il mio programma utilizza le DAO 3.51,il controllo msflexgrid,naturalmente
il controllo data e mi collego con un database.
Ho aggiunto nel pacchetto standard solo il database e l'ho realizzato.Quando
cerco di installarlo in un altro pc,ad un certo punto mi dice che non è in
grado di registrare il file "expsvr.dll"situato in C:\windows\system e
successivamente mi da lo stesso errore per il file "DAO350.dll"situato in
C:\file comuni\microsoft shared\Dao.
Cosa posso fare?Aiutatemi,grazie

Segui i consigli della creazione guidata di Vb e ingloba i file che vengono richiesti!
Al max..se nell'altro pc..son già installate le Runtime di Vb....non includere quelle che sono un mattoncino!
Ciao SImo
--
__________________
www.sasim.cjb.net


 ha scritto nel messaggio
news:phj97.1513$y_3....@news.infostrada.it...

mi pare che fosse un problema risolto col SP4 o 5... tu quale hai? (o
non hai? :P)
Ciao
Faber

 wrote in message
phj97.1513$y_3....@news.infostrada.it...


 > cerco di installarlo in un altro pc,ad un certo punto mi dice che non č


 tutti o basta l'ultimo?(se non sbaglio il 5) Grazie e scusate ancora
basta l'ultimo, è il 5
Ciao
Faber

Io ho avuto un problema identico
Considerando che si è presentato solo da un certo momento in poi,
ho fatto mente locale sulle installazioni effettuate di recente
e ho raggiunto la conclusione che è tutta colpa di SP4
Ho reinstallato tutto lasciando SP3 e tutto a ripreso a funzionare
Ora è uscita SP5: non l'ho ancora installata ... chi mi sa dire come va???
Mauro

 > cerco di installarlo in un altro pc,ad un certo punto mi dice che non č


 ha scritto

di sp4 avevo letto brutte cose sul ng e ho fatto il salto da 3 a 5,
apparentemente senza controindicazioni.
ora che l'ho detto, chiaro che domattina dovro' reinstallare vb...
ciao, a.

 ha scritto nel messaggio
news:mUF97.1417$_07....@news.infostrada.it...

a me va bene, però non uso la Creazione guidata Pacchetti di
Installazione.
cmq sia, dipende da PC a PC: da cosa hai installato, da cosa *non* hai
installato <g> ...
generalmente cmq ne parlano bene
Ciao
Faber

Newsgroup: it.comp.lang.visual-basic
Titolo: millisecondi in visual basic 5

Salve,
ma in vb5 è possibile gestire i millisecondi?
Ovvero avere un timestamp del tipo hh24:mi:ss.sss dove sss
rappresentano i millisecondi?


ha scritto:

Si, con le API
Qui c'è anche il codice per VB5:
http://www.vbaccelerator.com/home/vb/code/Libraries/HiResTimer/article.asp
--
ciao
  Stefano
Newsgroup: it.comp.lang.visual-basic
Titolo: Reperire info su HW del sistema con VB6

Come da oggetto avrei bisogno di reperire delle info generiche
riguardo l'HW installato sui pc dove gira il mio SW, ed in particolar
modo mi servirebbe sapere se è installata una scheda audio ed
eventualmente di quale tipo. Ho provato con il controllo SysInfo, ma
non ha alcuna informazione legata alla scheda audio.
Grazie per l'attenzione

Salvatore wrote:

Devi usare le api , come ad esempio la GetSystemInfo .
Oppure vai a spulciare direttamente nel registry in
\HKEY_LOCAL_MACHINE\Hardware\...
ovviamente sempre usando le API !!!

 non ha alcuna informazione legata alla scheda audio.
La presenza di una scheda audio viene riportata dalla funzione:
    Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
che restituisce il numero di periferiche abilitate all'output del formato
wave (in genere, se c'è la scheda,  restituisce 1).
Per ottenere i dettagli sulla periferica si usa la funzione
Declare Function waveOutGetDevCaps Lib "winmm.dll" _
    Alias "waveOutGetDevCapsA" ( _
    ByVal uDeviceID As Long, _
    lpCaps As WAVEOUTCAPS, _
    ByVal uSize As Long) As Long
La struttura WAVEOUTCAPS riporta anche il nome del prodotto
e l'ID del costruttore. L'elenco degli ID costruttore è contenuto nel
file MMREG.H - viene distribuito con i compilatori C/C++, con
MSDN, Visual Studio ecc.
Se non hai una distribuzione aggiornata, puoi richiedere l'elenco al
supporto Microsoft, per posta (
mm...@microsoft.com
)

Volevo solo ringraziare per le risposte che mi avete dato.
Ho provato la funzione che mi ha dato Jimi e sembra fare proprio al
caso mio. Cmq grazie tante anche a Filippo
Ciao a tutti
sfr...@hotmail.com
fre...@tiscalinet.it
ICQ: Parsifal #41945202
Rimuovi NS per l'email
Newsgroup: it.comp.lang.visual-basic
Titolo: Import Crystal reports da VB5 a VB6

E' possibile importare Cystal Reports da VB5 a VB6, visto che non vergono
più fornite?
Io ho copiato l'.ocx ed ho provato a registrarlo con il regsvr32.exe ma il
tentativo è fallito....
Grazie













E io che pensavo che l'eco ci fosse solo in montagna....
boh..
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

lo devi reinstallare!!!

Newsgroup: it.comp.lang.visual-basic
Titolo: evento ENTER.....

Come posso collegare del codice all'evento click ENTER di una casella
di testo ?
Grazie 
Bye, Red
red...@tin.it
==============


In che senso evento click enter ???
Se intendi alla pressione del tasto enter, allora nella KeyPress della
textbox metti:
sub TextBox_KeyPress(KeyAscii as integer)
    if KeyAscii = 13 then
        <tuo codice associato>
    end if
end sub
Spero fosse quello che cercavi...
--
--
Don't let your Fears stand in the way of your Dreams
--
Elena *DElyMyth* Franco
ICQ# 8761263
dely...@delymyth.it
http://www.delymyth.it/
 
http://www.delymyth.it/rioshell/
--




Newsgroup: it.comp.lang.visual-basic
Titolo: vb + crystal report Helppppp

ho creato un report con crystal report 8 che lavora su una banca dati
oracle....alcuni campi contengono decimali.....se eseguo il report da
crystal report i dati mi vengono visualizzati correttamente mentre se lancio
il report da vb6 i campi contenete decimali vengono tagliati ....ad esempio
123,13 mi viene presentato come 123,00
Ho controllato tutte le impostazioni....ma nulla....arrotondamenti non  ne
esegue....
Ho oracle 8 versione inglese.....ho provato ad installare la versione
italiana e il problema scompare....
il fatto è che a me serve oracle in vesrione inglese...da cosa puo'
dipendere???

 123,13 mi viene presentato come 123,00
[...]
Mi associo alla richiesta !!
Anche io ho lo stesso identico problema e non ho ancora trovato la risposta
!!!
Se può essere utile : su Windows 98 SE sussiste il prolema, ma su una
macchina NT 4 sp 6 lo stesso programma che 'chiama' lo stesso report ...
funziona correttamente (mostra i decimali)
Grazie
--
                  \/
                 -   -
                 (.) (.)
----o0O0o--(_)--o0O0o----
<<Oh Grande Spirito,
Concedimi la serenità
Di accettare le cose
Che non posso cambiare,
Il coraggio di cambiare le cose
Che posso cambiare,
E la Saggezza di capirne la differenza.>>
               (Preghiera Cherokee)
Ciao
Franco

 wrote in message
a1kdj4$r396u$1...@ID-104779.news.dfncis.de...


 controllo
Le ho confrontate con la macchina NT e sono identiche.
In più, come già detto da Alessandro, nell'ambiente di sviluppo i decimali
ci sono.
Grazie comunque. :-)



[cut]
prova a fare un salto su 
www.crystaldecisions.com
 e consultare la kb
HTH
--
Stefano Zamboni 
sz...@libero.it
Legge di Biondi:
Se il tuo progetto non funziona, controlla la parte che non ti pareva
importante.
Newsgroup: it.comp.lang.visual-basic
Titolo: MSOUTLOOK

Potresti usare gli oggetti di Outlook, ti serve la DLL Microsoft CDO 1.2
Library.
Ciao Luciano.


Grazie Luciano, ma dove li trovo? (Sto parlando di MSOutlook fornito con
Office). Ciao Marco

Allora, se non la trovi già nella reference col nome già detto nella
precedente mail, sicuro la puoi trovare su qualche computer su cui è
installato NT o M. Exchange col nome CDO.dll, fai trova e portatela sul
computer che ti serve e vedi se VB la rileva (va messa sotto la cartella
system), se non la rileva fallo tu a mano.
Fammi sapere se sei riuscito a trovarla.
Ciao Luciano.

...

Ciao Luciano, grazie per i consigli, la DLL che mi hai consigliato la sto
cercando ma fino adesso senza tanto successo, appena la trova ti faro'
sapere. Ciao Marco

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

Avrei la necessità di ottenere in una stringa, il valore in formato ASCII
del campo TimeStamp di una tabella SQL Server.
Il campo, interrogato tramite ADO, riporta sempre un valore binario non
visualizzabile mentre a me interessa che il risultato sia identico a quello
che restituisce SQL Query analyzer.
Grazie per l'aiuto


Che altro non e' che la sua rappresentazione esadecimale.
Ciao
Aldo
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB5] Problema apostrofo stringhe SQL

Ho già posto la questione e gentilmente qualcuno (mi sembra si chiamasse
Fabio) mi aveva risposto, ma ho cambiato PC e ho perso tutti i messaggi del
NG, quindi prego chi mi aveva risposto di essere così gentile da mandarmi
nuovamente la Function da inserire con i relativi comandi.
Il problema era che utilizzando una ricerca SQL con i parametri WHERE e AND
(questo ripetuto anche più volte) seguiti da stringhe l'apostrofo (o apice)
viene interpretato come il termine di una stringa e pianta tutto.
Grazie a tutti, specilamente a Fabio (se è il nome giusto)
LuPo
lupo...@freemail.it

...


Ecco un esempio:
strSQL = "SELECT * FROM NomeTabella WHERE ((NomeTabella.CodiceAlfanumerico =
'" & strCodiceAlfanumerico & "') AND (NomeTabella.CodiceNumerico = " &
Str(intCodiceNmerico) & "));"
Spero che si capisca la differenza fra i due casi
Altrimenti scrivimi, ti mandero' qualcos'altro
Saluti
Gianluca Ortolani


...


'" & DblApos(strCodiceAlfanumerico) & "');"
Ciao,
   <--< Nik >-->
Per rispondermi in E-Mail togliere "deleteme" dall'indirizzo.
To reply me by E-Mail remove "deleteme" from my address.





singolo, non il doppio apice.
Se devi cercare una strunga contenente l'apostrofo SQL s'INCACCOLA!
Devi usare questa sintassi
strSQL="SELECT * FROM tabella WHERE campo="+Chr(AP)+stringa+Chr(AP)
dove AP è il codice ascii delle virgolette DOPPIE che ora non ricordo.
FUNZIONA!!!
Ciao a tutti.


Io ho risolto il problema dell'apostrofo in questo modo.
In ogni form che deve interrogare o gestire dei dati da inserire nel
database, ho modoficato la proprietà della from KEYPREVIEW in true, e
nell'evento KeyPress della from ho inserito il seguente codice:
Dim Char
Char = Chr(KeyAscii)
If Char = "'" Then
    KeyAscii = Asc("´")
End If
In pratica quando si preme il tasto con l'accento ('), il codice lo
trasforma nell'accento circonflesso (´). Le query puoi quindi digitarle
normalmente.
Xabaras
P.S. Funziona

viene interpretato come il termine di una stringa e pianta tutto.
Facile, radoppi l'apostrofo  da ' a '' piu o meno la stessa cosa che
si fa per le virgolette dentro le stringhe in VB
SW.

di ogni query SQL 
concordo... uso una funzione simile ala tua per la ricerca dei
caratteri speciali e li traduceva automaticamente in escape SQL come
', % e altri...
SW.
Newsgroup: it.comp.lang.visual-basic
Titolo: Recupero floppy

Ho fatto un software che riceve dati dall'esterno tramite floppy disk.
Essi a volte risultano non leggibili, come posso fare per recuperarli?
Pensavo allo scandisk (Ho visto che alcune volte li ripara), ma come
integrarlo a VB ?

integrarlo a VB ?
Io lascerei perdere e mi farei rifare il floppy.
-- 
ciao, hal

Come ha già detto hal1961 ti consiglio anch'io di lasciare stare i
dischetti... comunque se cerci sul sito di MSDn dovresti trovare che si può
chiamare lo SCANDISK a linea di comando... Prova magari anche digitando
scandisk /? dal prompt dei comandi...
                    Ciao
                                        Allanon
-- 
- SPAMKILLER
 L'indirizzo delle risposte é 
itlangv...@michele.sytes.net
 LASCIATE il NOSPAM fa parte dell'indirizzo :-)
  Per superare le impostazioni di protezione antispam scrivete
  nel testo del messaggio la scritta "SPAMKILLER"
Scusate il disturbo, ma non posso più di pubblicità

Newsgroup: it.comp.lang.visual-basic
Titolo: sapere se una pagina web esiste

salve,
il mio programma scarica delle pagine web dal mio sito con l'inet,
vorrei sapere come sia possibile fare una sorta di dir prima per sapere se
la pagina esiste perché se la pagina non esiste, non da errori, ma no
scarica nulla e non dice nulla, uso la funzione:
---
Public Sub Scarica(URL As String, File As String)
On Error GoTo Errore
 Dim b() As Byte
 b() = Inet.OpenURL(URL, icByteArray)
 Open File For Binary Access Write As #1
  Put #1, , b()
 Close #1
Exit Sub
Errore:
 MsgBox Error, vbCritical, Err.Source
End Sub
---
--
Gick
gi...@gick.cjb.net
www.gick.cjb.net

 ha scritto nel messaggio
news:k3pCb.185955$e6.69...@twister2.libero.it...


 Daniele
no, non credo, stai attento. Non vorrei dire una stupidaggine, ma se io
richiamo una pagina web che non esiste, il server web (IIS, Apache, etc.),
restituisce comunque qualcosa, una pagina di errore che nel migliore dei
dati è una bella pagina web con immagini, colori. E' stata riscritta
rispetto a quella di default del server web.
Quindi, non credo che ti viene ritornato un errore 11, dato che comunque il
server web qualcosa ti restituisce.
Secondo me la strada da percorrere è cercare di leggere l'header dallo
stream http ritornato: indipendentemente dal contenuto html, infatti,
nell'header dovrebbe (dico dovrebbe) esserci un n° di errore (404, pagina
non trovata, oppure 500, etc.....)
se ho sbagliato, correggetemi.....
good coding!!!
-- 
Alletun
Sorry, ask me if you want to get my e-mail!

 ha scritto nel messaggio
news:k3pCb.185955$e6.69...@twister2.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Inno Setup -Quando inserire nel paccheto installazione VB_DCOM_MDAC_JET_AutoSetup.exe??

Ciao a tutti, stò creando un pacchetto di installazione per una mi
applicazione per la gestione di un database.
Il pacchetto di installazione lo creo con Inno Setup
Volevo sapere quando c'è la necessità di inserire e quindi fare installare
il file: "VB_DCOM_MDAC_JET_AutoSetup.exe"?
La mia applicazione pesa 2Mb mentre il file "VB_DCOM_MDAC_JET_AutoSetup.exe"
ne pesa ben 32, se posso non inserirlo sarebbe meglio... anche perché vorrei
distribuire l'applicazione nel web.
Ringrazio tutti in anticipo.
Ciao
Emiliano

 Emiliano
ciaociao


Allora vediamo se riesco spiegarmi:
1. Utilizzo solo ADO e Microsoft.Jet.OLEDB.4.0
2. Non devo installare su Win95
3. Devo installare però su Win98/ME/NT4.0/2000/XP
Domanda1: In questo caso specifico serve installare runtime di vb, dcom,
mdac e jet?
Domanda2: Quando serve installare i runtime di vb, dcom, mdac e jet?
Ciao e grazie in anticipo.
Emiliano

 Emiliano
ciaociao

 about DCOM.
Emh... ovviamente è un copia-incolla, lascia perdere l'ultima frase... ;-)
ciaociao

 Domanda2: Quando serve installare i runtime di vb, dcom, mdac e jet?
i runtime e' bene farli sempre istallare.
dcom oramai e' raro che si installi o aggiorni
mdac io lo appendo sempre che si sta' piu' tranquilli
JetSp4 lo metto quando utilizzo Dao (Sempre :p)
-- 
<Gigio2K>
--- 
http://www.g2kweb.it/gigio2k
 ---
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/
Newsgroup: it.comp.lang.visual-basic
Titolo: [Ot] sto diventando un "caso" o sbaglio ? ( anche per Ugo Mangini )

OK...
questa è la frase che mi ha fatto postare questo msg :
Vedi, è questo che intendevo dire...
Ti rendi conto che alterni domande di base-base-base e domande su argomenti
che, umanamente, NON PUOI seguire se non hai almeno le basi-basi-basi?
Cerca di seguire un minimo di logica nell'apprendimento o non arriverai da
nessuna parte.
---
Vediamo di capire qualcosa.
Per imparare , sto facendo un programma che crea un file di testo stile
scheda di Dungeons and dragons ..
In pratica , l'utente riempie dei campi (destrezza, intelligenza , forza
...) e al click di un bottone il programma si assicura che TUTTI i campi
siano stati riempiti correttamente e poi ( previa accettazione di una msgbox
di conferma ) scrive tutto in un file .doc.
Detto file, veràà scritto nella stessa directory dove risiede l'eseguibile e
si presenterà in questa forma :
"Nome Personaggio:Allanon"
"Intelligenza:9"
"Carisma:12"
"Destrezza:13"
"Armatura:5"
"Forza:10"
"Fortuna:4"
"Denaro:140"
"Razza:NetGeek"
"Allineamento:Caotico"
------------
Ok , tutto qua .
Dicevo, il mio obiettivo è di terminare questo programma ( che NON mi sembra
sia della stessa difficoltà di un SW che faccia decollare uno shuttle )
in modo di imparare passo passo , andando a sbattere e capendo tutti i vari
problemi che mano mano mi si presentano .
é sbagliato ?
Ugo, alla luce di quello che mi hai scritto , cosa mi consiglieresti di fare
?
che percorso dovrei seguire secondo te ?
e gli altri che ne pensano ?
Ps.: domanda immancabile :P
Vedete...nel file di testo appaiono quelle bruttissime virgolette ... come
fare per toglierle ?
Sperando che abbiate capito che voglio solo imparare ,
vi saluto
Un akuma eternamente newbie .

 wrote in message
news:9f7nmp$nls$1...@diesel.cu.mi.it...


 wrote in message
9f7nmp$nls$1...@diesel.cu.mi.it...


 (leggere post sopra per i motivi)
sarebbero stati sbagliati comunque.
su questo ng NON si inviano allegati binari.
NON.
fallo un'altra volta e ti scordi qualunque risposta.
magri leggiti per benino il manifesto settimanalmente postato (con
assolutamente alpestre-lombardo.mitteleuropeo spirito utopistico, almeno
in questo levantino ng) da roalgram zanazzi.


ciao
ugo
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] la parità dei sessi

Finalmente, dopo tante e-mail che mi informavano del fatto che avrei potuto
ottenere un "attrezzo" di maggiori dimensioni, qualcuno mi ha proposto di
"maggiorare" il seno.
Una nuova tappa nella parità dei sessi è stata raggiunta.
Peccato che l'uguaglianza sia sempre verso il basso
--
Salutoni
Sergio

 Peccato che l'uguaglianza sia sempre verso il basso
ROTFLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL :D
Non arrivano solo a me allora ;-)

 proposto di "maggiorare" il seno.
C'è da far soldi anche con quello. Guarda ad esempio questa tizia (
http://www.giveboobs.com
 ) quanti soldi ha tirato su con la scusa che: "il
mio seno è nelle vostre mani" 
http://www.giveboobs.com/progress.html
Comunque le e-mail sull'aumento delle dimensioni arrivano anche a me. Una
volta su hotmail mi è arrivata quella che dice "aumenta le dimensioni del
tuo *beep*" e subito dopo quella di hotmail che diceva "hai raggiunto le
dimensioni massime".
Insomma, che si mettessero almeno d'accordo. ;-)
Ciao
*Roby*

 > Una nuova tappa nella parità dei sessi è stata raggiunta.


Insomma, che si mettessero almeno d'accordo. ;-)
 :-)
Io una volta gli ho risposto con una foto e da quella volta non ne ho
ricevute piů... Han capito che non ne ho bisogno... oppure che i
miracoli non riescono a farli... ;-PPPPP
Ciao,
Moreno
-- 
sirri at morenosoft dot com
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
---------------------------------------------------------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: Inviare dati in POST al browser

ciao a tutti.
ho questo problema: devo aprire il browser di default (e utilizzo 
shellexecute passandogli l'URL da aprire) e passargli dei parametri in 
POST (e quindi non direttamente nell'URL).
Secondo voi è possibile)?
grazie
Daniele

 Daniele
io creerei un file temporaneo a runtime del tipo da lanciare con 
shellexecute
<body>
<form method=post action=urldaaprire>
.
.
.
ciao! 

 
potrebbe essere un'idea...
ma per eseguire il post devo aggiungere dello script che lo scatena in 
automatico..
cmq proverò, grazie



Un altro sistema è il seguente:
How To Submit Form Data by Using XMLHTTP or ServerXMLHTTP Object
http://support.microsoft.com/default.aspx?scid=kb;en-us;290591
Ciao!
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca
Newsgroup: it.comp.lang.visual-basic
Titolo: Ho disperato bisogno di una mano!!!

Salve a tutti i programmatori  e sviluppatori.
Da qualche giorno mi diletto in visual basic dopo aver abbandonato tanti
anni fa il caro Basic.
Sto facendo una applicazione che deve interagire con un database e con dei
file e ho due problemi che non riesco a risolvere:
1- Aprendo un database con una istruzione Sql del tipo
  Dim db As Connection
  Set db = New Connection
  db.CursorLocation = adUseClient
  db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" + App.Path &
"\magazzino.mdb;"
  Set DBGriglia = New Recordset
  DBGriglia.Open "select Codice,Descrizione,Quantità from Giacenze order by
Codice", db, adOpenStatic, adLockOptimistic
  Set DataGrid1.DataSource = DBGriglia
lo metto in una griglia fatta da diverse righe e 3 colonne (Codice ,
Descrizione e quantità)
Come posso fare a leggere, ad esempio il campo della 1a riga, 3 colonna e
quindi fare copiare il contenuto ad esempio in un campo di testo?
Come posso SCRIVERE ad esempio nella 1riga, 3 colonna... cioè nella cella
che io voglio? e alla fine salvare il tutto?
2- Cerco all'interno di una Sub chiamata dalla pressione di un pulsante, di
aprire un file ma mi viene restituito un'errore :
Errore di runtime 5
Chiamata di Routine o argomento non valido.
E il Debug mi visualizza un'errore nell'espressione Open. Ecco il listato:
Open "articolotmp.dat" For Input As #1 Len = Len(Articolo)
Put #1, 1, "abcd"
Close #1
3a Domanda... e ultima....
Posso inserire i campi di un database (che per esempio contiene una lista di
nomi di città) per popolare una Pick-List (Combo-box)?
Come si Fa?
Spero che qualche anima pia di voi possa aiutarmi perchè non saprei proprio
dove andare a pescare queste informazioni.
Grazie.

 ha scritto nel messaggio
news:9rkmmn$50j$1...@nreada.inwind.it...


Cos'e' la JanusGrid ????
--------------------------------
Inviato via 
http://usenet.iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: [quasi OT] Massimi e minimi di una funzione (Excel & VBA)

Salve a tutti,
  ho una distribuzione di valori che se graficati su EXCEL mi rappresentano  
una funzione lineare.
Ho definito delle macro VBA per calcolare i massimi assoluti.... ma mi  
viene il dubbio se qualcosa del genere esista già.
Voi che dite?
Grazie
-- 
Creato con il rivoluzionario client e-mail di Opera:  
http://www.opera.com/m2/

 viene il dubbio se qualcosa del genere esista già.
mi par di ricordare che excel abbia già una funzione che estrae il minimo
ed il massimo da una serie di dati... hai provato a guardare sulla guida
in linea?
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 in linea?
Trovare un massimo/minimo non è difficile, altro discorso è trovare i  
punti di massimo/minimo di una funzione.
Sapreste aiutarmi?


 punti di massimo/minimo di una funzione.
avevi parlato di una funzione già "graficata" e quindi pensavo che i
valori tu li avessi già.

Newsgroup: it.comp.lang.visual-basic
Titolo: VB.NET Main Menu

Ciao a tutti, scrivo perchè ho un problemino con un menu, e non capisco dove 
sbaglio.
Premessa:
Ho la finestra principale (main) a cui ho assegnato un menu.
Ho un altro form, di configurazione, dove i valori vengono salvati nel 
registro di configurazione.
Cosa dovrebbe succedere:
In pratica io ho una lista di menu 1,2,3,4....
e vorrei che si attivassero solo se il rispettivo controllo nel registro di 
configurazione è impostato su true.
Problema:
Ovviamente non funziona correttamente, dimentico qualcosa o sbaglio 
qualcosa....
In pratica la situazione è la seguente
Dim checktest1 As String = GetSetting("IFS", "A", "Test1")
MsgBox(checktest1)
If checktest1 = "True" Then
mnu_slot1.Enabled = True
Else
mnu_slot1.Enabled = False
End If
Ora, se metto tutto in form_load ovviamente il controllo è solo all'avvio, 
se lo inserisco invece nel menu_click non funziona correttamente, rimane 
sempre enabled se lo stato di defautl è impostato su true o viceversa.....
Dove sbaglio?
Grazie, jo. 

Phobos ha scritto:

ma scusa metti i controlli al click del checkbox

> ma scusa metti i controlli al click del checkbox
Spe, forse mi so spiegato male io.
Il checkbox č in un form separato, a cui si accede solo in fase di 
configurazione, per scrivere i valori nel registro, quindi quando il 
programma č configurato uno non accede piů a tale form.
Mentre sul mai risiede il menu. 

 se lo inserisco invece nel menu_click non funziona correttamente
Hai provato ad utilizzare l'evento Popup?
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel 
messaggio news:dfjjlo$tnb$1...@news.newsland.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Controllare che in un form si inseriscano NUMERI!

Salve...ho un form in cui l'utente deve inserire alcuni dati nelle
TextBox apposite! Vorrei fare in modo che qualora dovesse inserire una
lettera, o un numero con il . (punto) e non con la , (virgola) esca una
finestra di errore!
Come faccio?
Io ho pensato di prelevare il Type del valore immesso...se è diverso
da 1 allora esce l'errore! Eh, ma una cosa è dirlo e una cosa è
farlo..
Aiutatemi please!!



Mi rispondo da solo; ho usato questo codice:
Private Sub Corsie_Change()
Cor = Corsie.Value
Ctrl = IsNumeric(Cor)
If Ctrl = False Then MsgBox "Devi Inserire un Numero!", , "ERRORE!"
End Sub
Dove Ctrl è definito come Boolean

farlo..
--
ciao
  Stefano

 finestra di errore!
Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = mySoloNUMERI(KeyAscii)
End Sub
Function mySoloNUMERI(taSTO As Integer) As Integer
    '
    ' Questa routine controlla che in una textbox siano inseriti
    ' solo valori numerici (0..9 e il punto)
    ' Lascia passare anche il BackSpace, ovviamente
    '
    ' 48=0 > 57=9
    ' 08=BackSpace
    ' 46=Punto
    ' 44=virgola
    '
    ' Questa routine non controlla che il numero sia coerente
    ' perché non controlla che si astato premuto due volte
    ' il punto (10.2.3, che non è un numero :P )
    mySoloNUMERI = 0
    If (taSTO >= 48 And taSTO <= 57) Or taSTO = 8 Or taSTO = 46 Then
        mySoloNUMERI = taSTO
    ElseIf taSTO = 44 Then ' se inserisci virgola la sostituisce con un 
punto
        mySoloNUMERI = Asc(".")
    End If
End Function
-- 
-> GbC
www.gbcweb.com

    ' 44=virgola
Tu che sei sempre attento alla leggibilità, perchè non hai usato un
If (InStr("0123456789,", Chr(tasto)) > 0)
    ' Ok
Else
    'Errore
End If
?
Ciao

 Ctrl = IsNumeric(Cor)
Occhio che questo NON ti mette per niente al riparo da punti o virgole usate 
a sproposito, in particolare perchč č una funzione localizzata.
Ciao 

 ha scritto nel messaggio 
news:ensuss$iog$1...@aioe.org...


 Ciao Fabio :) Auguri!
A te!
Ciao 

Fabio ha scritto:

Bella.
@Alex

 End If
più elegante:
    If Chr(tasto) Like "[0-9]" Then
Ciao.
Mauro 


Dovrebbe funzionare anche Like "#".
Bye, G.