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

Salve raga. Non sono un gran chè col VB quindi chiedo risposte a voi.
Ho fatto un count Down che conta i secondi e ne fa il conto alla rovescia.
Io vorrei però fare in modo che questi secondi si convertissero in ore
secondi e minuti, e fare in modo che il count down avvenga con questi.
Quindi:
1 h 2 m 3 s
1 h 2 m 2 s
ecc...
Spero che qualcuno abbia voglia di rispondermi.
Grazie ragazzi.
--
Ramses
http://evilzone.tsx.org
ram...@freemail.it
ICQ:39860665
"La prima volta che ho preso l'alcole ho visto Dio"
by Claudio Zanon

Dai un'occhiata alle funzioni Format e DateDiff nella guida in linea.
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
---------------------------------------------------------------------------

:

Dunque ecco una procedura fatta al momento:
Public Sub Converti(Tempo As Long)
Dim Tmp, Secondi, Minuti, Ore As Long
Tmp = Tempo
Secondi = Tmp Mod 60
Tmp = Tmp \ 60
Minuti = Tmp Mod 60
Tmp = Tmp \ 60
Ore = Tmp
MsgBox Trim(Str$(Ore)) + ":" + Trim(Str$(Minuti)) + ":" + 
Trim(Str$(Secondi))
End Sub
L'ho fatta al momento ma dovrebbe funzionare.
Andrea Fontana
E-Mail: 
fon...@ubi1k-vb.net
ICQ UIN:27799781

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Azione annullata da un oggetto associato (3426)

Piccolo pgm di dataentry. All'inizio creo un DB con alcune tabelle e indici.
Richiamo il form per l'inserimento dati (per comodità utilizzo l'oggetto
Data con i vari Text associati ai campi della tabella).
Sul controllo Data routine Reposition ho inserito alcuni controlli che
accedono ad un altro DB per la decodifica di alcune tabelle.
Ecco il listato
Private Sub Tb_Protocollo_Reposition()
    '
    ' In base al campo Text3 e Text7 inserisco
    ' la descrizione completa sulle combo
    '
    On Error GoTo GestErr
    Tb_Autorita.Recordset.FindFirst "CodAut ='" & Text3.Text & "'"
    DBCombo1.Text = Tb_Autorita.Recordset(1)
    DBCombo1.Refresh
    Tb_Esecutori.Recordset.FindFirst "CodEse ='" & Text7.Text & "'"
    DBCombo2.Text = Tb_Esecutori.Recordset(1)
    DBCombo2.Refresh
    Exit Sub
GestErr:
    If Err.Number = 3021 Then
        Risposta = MsgBox("ATTENZIONE: la tabella Autorità e/o la tabella
Esecutori è vuota.", 0 + 48)
    Else
        Risposta = MsgBox("Errore non previsto(" & Err.Number & ")!", 0 +
48)
    End If
End Sub
A questo punto faccio click sul Cmd per inserire un nuovo record e alla riga
Tb_Protocollo.Recordset.Addnew  mi viene restituito l'errore di cui in
oggetto.
Eliminando il codice nella Reposition il tutto funziona OK.
Attenzione tutto questo solo se la tabella è vuota, perchè se inserisco
anche un solo record il tutto rifunziona.
Spero che qualche anima pia mi possa dare una mano.
Ciao
Franco

...

Newsgroup: it.comp.lang.visual-basic
Titolo: MaxFileSize troppo piccolo?

Un mio amico olandese riceve sempre un messaggio di errore sinistro quando
tenta di salvare un file con una mia applicazione. Ho cercato di riprodurre
l'errore e credo di esserci riuscito. Ecco il testo del messaggio di errore.
"Errore 20476. Il buffer della proprietà Filename è troppo piccolo.
Impossibile memorizzare i nomi di file selezionati. Aumentare il valore di
MaxFileSize".
Qualcuno sa spiegarmi perchè si verifica? Eppure il Flag
cdlOFNAllowMultiselect non è impostato e quindi il valore di default 256
dovrebbe essere sufficiente. O no? Ci sono differenze tra i vari sistemi a
32 bit?
Come correggerlo? Aumentando MaxFileSize?
Grazie
Francesco

Aumenta maxfilesize.
Enjoy!


Attento anche alla versione della CommDlg32.DLL/OCX usata dal tuo amico
olandese. Purtroppo spesso versioni un pò diverse di questa
(BACATISSIMA!!!!) libreria generano dei bellissimi errori Runtime (a tua
insaputa, perchè magari sul tuo sistema - e su altri 10 - il programma
funziona benissimo).
Auguri! Massimo ;-)


Grazie della precisazione, mi spiace disturbare il mio amico per chiedergli
dei file, d'altra parte...
Se imposto un gestore di errori (oramai so tutto sui gestori di errori, vedi
un mio messaggio precedente che ha riscontrato un gran successo...) che
aumenta il MaxFileSize troppo piccolo, come posso farlo in maniera nascosta
all'utente, senza dover chiudere e riaprire la CommonDialog?
L'errore si verifica nella riga
CommonDialog.ShowSave
Grazie
Francesco

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Gif aninmata di "copia in corso", dove?

Salve
Dove posso trovare la gif animata di "Copia in corso"? Avete presente
quella di windows dove si vedono due cartellette e dei fogli che
"volano" dalla prima alla seconda? Dove si trova (probabilmente sarà
una dll...)? Come faccio a implementarla nel mio prg?
Grazie in anticipo.
ByeZ!
Alkondor
Togliere NOSPAM per rispondere in e-mail

una dll...)? Come faccio a implementarla nel mio prg?
Non è una dll, è un avi che trovi nel cd di VB

Azz! Ecco perchè non la trovavo!!! Credevo che fosse una dll. Ora la
installo subitooooooooooo :)))

Newsgroup: it.comp.lang.visual-basic
Titolo: HELP! How to trigger scrolling to MSFLEXGRID ?

I would like to know how to trigger a scrolling action to MSFLEXGRID.
Also I would like to know how to highlight/active a row in MSFLEXGRID.
I am using VB5 (SP3).
If it is not possible, please tell me any alternatives.
Please help.
Mise

 Also I would like to know how to highlight/active a row in MSFLEXGRID.
I don't fully understand what you mean with trigger here, but consider that
msflexgrid has a "scroll" event.
maybe your problem is to make visible a particular column/row:
you can check if a particular row/column is visible, check which row is the
top
visible row at the moment and then take an appropriate action, e.g:
        Do While grid1.RowIsVisible(myrow) = False
            If myrow > grid1.TopRow Then
                grid1.TopRow = grid1.TopRow + 1
            Else
                grid1.TopRow = grid1.TopRow - 1
            End If
        Loop
to selec rows by code simply: grid.row=myrow, grid.column=mycol
if grid.hihlight=1 OR grid.hihlight=2 the selected cell is hilighted.
Perhaps it is not visible but when you select cells by code, you can check
for and set its visibility with code reported above
Bye!
Marco

 撰寫於郵件
news:YbpuV8a...@news1.galactica.it...


 highlight a particular row neither....
well, in an application of mine it works...
It checks for *grid_keydown event*  and if an alphabetic char is pressed i
scan the grid for the first row starting with that char:
...
    For i = 0 To grid.Rows - 1
        grid.Row = i
        If UCase(Left(grid, 1)) = pressed_key Then
                row_found = 1
                grid.Row = i
                Exit For
        End If
    Next i
...
and this works...
the row is visually selected!
check
grid.backcolorsel    (usually blue)
grid.forecolorsel    (usually white)
although is only recommended they are different from unselected colors!
mmm, now i got! check focusrect is set to 0 (flexfocusnone)
hope this definitely helps!
Bye!
maRCo :-)

 撰寫於郵件
news:Zo25ncp...@news1.galactica.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Paramteri da riga di comando

via Mailgate.ORG Server - 
http://www.Mailgate.ORG



Questa funzione fa il pars di una riga di comando e restituisce i suoi vari
argomenti... come quella del windows scripting host....
Public Function GetParam(ByVal Count As Integer) As String
Dim i               As Long
Dim j               As Integer
Dim c               As String
Dim bInside         As Boolean
Dim bQuoted         As Boolean
j = 1
bInside = False
bQuoted = False
GetParam = ""
For i = 1 To Len(Command)
    c = Mid(Command, i, 1)
    If bInside And bQuoted Then
        If c = """" Then
            j = j + 1
            bInside = False
            bQuoted = False
        End If
    ElseIf bInside And Not bQuoted Then
        If c = " " Then
            j = j + 1
            bInside = False
            bQuoted = False
        End If
    Else
        If c = """" Then
            If j > Count Then Exit Function
            bInside = True
            bQuoted = True
        ElseIf c <> " " Then
            If j > Count Then Exit Function
            bInside = True
            bQuoted = False
        End If
    End If
    If bInside And j = Count And c <> """" Then GetParam = GetParam & c
Next i
End Function
Questa invece conta i parametri...
Public Function GetParamCount() As Integer
Dim i               As Long
Dim c               As String
Dim bInside         As Boolean
Dim bQuoted         As Boolean
GetParamCount = 0
bInside = False
bQuoted = False
For i = 1 To Len(Command)
    c = Mid(Command, i, 1)
    If bInside And bQuoted Then
        If c = """" Then
            GetParamCount = GetParamCount + 1
            bInside = False
            bQuoted = False
        End If
    ElseIf bInside And Not bQuoted Then
        If c = " " Then
            GetParamCount = GetParamCount + 1
            bInside = False
            bQuoted = False
        End If
    Else
        If c = """" Then
            bInside = True
            bQuoted = True
        ElseIf c <> " " Then
            bInside = True
            bQuoted = False
        End If
    End If
Next i
If bInside Then GetParamCount = GetParamCount + 1
End Function
Scusate la lunghezza del messaggio, ma penso che possa interesare a
qualcuno.
------------
Ciao
Sabba

Newsgroup: it.comp.lang.visual-basic
Titolo: Come passare variabili al Crystal Report????

Ho l'esigenza di inserire dei campi a run-time in un report creato col
Crystal Report della ver.5 del Visual Basic.
Come fare?
potete darmi un breve consiglio o un indirizzo web dove e' spiegato?

...

Le parole chiavi che ti possono servire sono 2 :
formulas
selectionformula
prova a cercarle nell'help di CR trovi tutte le relative spiegazioni.
Ciao.





...

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto su routine che non funziona perfettamente

Salve,
ho realizzato la seguente routine:
Private Sub Comando14_Click()
ISEE.SetFocus
If ISEE.Text <= 10329.13 Then
Bambino2.SetFocus
If Bambino2.Text = "" Then
FASCIA.SetFocus
FASCIA.Text = 1
TICKET.SetFocus
TICKET = 1.55
Else
FASCIA.SetFocus
FASCIA.Text = "2"
TICKET.SetFocus
TICKET.Text = 1.05
End If
End If
ISEE.SetFocus
If ISEE.Text >= 10329.14 Then
Bambino2.SetFocus
If Bambino2.Text = "" Then
FASCIA.SetFocus
FASCIA.Text = "3"
TICKET.SetFocus
TICKET.Text = 2.58
Else
FASCIA.SetFocus
FASCIA.Text = "4"
TICKET.SetFocus
TICKET.Text = 2.08
End If
End If
End Sub
A secondo del valore ISEE il campo FASCIA diventa 1 e TICKET 1,55 altrimenti
FASCIA 2 e TICKET 1,05 ; cosi nella seconda parte FASCIA 3 e TICKET 2,58 o
FASCIA 4 e TICKET 2,08.
La routine, quando invocata, funziona bene; solo che restituisce nei campi
TICKET i seguenti valori: 2 al posto di 1,55; 1 al posto di 1,05 ; 258 al
posto di 2,58 e 208 anzicchč 2,08 .
Il campo in access č impostato su valuta>euro>2 cifre decimali ; le
impostazioni internazionali su euro, due cifre decimali. Non riesco a capire
il motivo. Ho provato, come suggerito da altri amici, a sostituire .Text con
. Value ottenendo perň, lo stesso risultato.
Inoltre questa:
Private Sub TICKET_Change()
Select Case TICKET.Text
Case 1.55
Bambino2.SetFocus
Bambino2.BackColor = 33023
End Select
End Sub
Prevede che quando il campo TICKET sia 1,55 il fondo del campo "bambino2"
diventi arancione.
Ma non funziona, forse mi sfugge qualcosa.
Vi ringrazio per laiuto.
Ciao
giuseppe
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Il campo in access è impostato su valuta>euro>2 cifre decimali
Quale Access?
Dov'è che il codice qui sopra ha a che fare con Access?
Alberto
-- 
Max Beerbohm: Tutto ciò che è degno di essere fatto è stato fatto 
ripetutamente. Dalle cose mai fatte bisognerebbe tenersi, sospetto, 
molto alla larga.

 Alberto
Ciao, ti ringrazio innanzitutto per avermi risposto. Riguardando il tutto in
effetti sono stato frettoloso s poco preciso nelle informazioni. Questa č
una routine abbinata ad access 2003 che viene invocata premendo un pulsante.
Ho cercato aiuto su vari forum inutilmente; forse occorreba postare il tutto
in altro modo, non so.
Non capisco il mancato funzionamento, ad ogni modo ti ringrazio lo stesso
ciao


 Non capisco il mancato funzionamento, ad ogni modo ti ringrazio lo stesso
Ma hai letto ciò che ho scritto?
Alberto
-- 
Alessandro Bergonzoni: Il tempo vola e noi no. Strano sarebbe se noi 
volassimo e il tempo no, il cielo sarebbe pieno di uomini con 
l'orologio fermo.


Si, ho letto ma sinceramente non ho capito gli interventi che devo fare e
come farli.
Se tu potessi darmi delle info dettagliate, sarebbe il massimo.
Ti ringrazio
ciao
Giuseppe

Newsgroup: it.comp.lang.visual-basic
Titolo: CONNESSIONE A MDB

Non so' come ci si connette ad un db con il codice, non usando quindi il
controllo dati della barra degli strumenti.
Avrei bisogno di una percorso di base, il cosiddetto passo passo.
Grazie ad ogni benefattore che mi vorrà aiutare.
Ciao maurizio
-- 
Posted from  [212.171.147.153] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Ciao maurizio
F1 : cerca ADO!

Ciao maurizio
Se udi DAO (VB5) il gioco č fatto:
Dim DB as DataBase
Dim RS as RecordSet
Set DB = Opendatabase("C:\Percorso\TuoDB")
Set RS = DB.OpenRecordset ("Select * from TuaTabella")  ' eventual.. *
'... * from TuaTabella order by TuoCampo")
TuaVariabiel = RS!TuoCampo
spero sia utile..
Ciao
Robin

 via Mailgate.ORG Server - 
http://www.Mailgate.ORG
dim TuoRecordset as new Adodb.Recordset
dim Connessione as string
dim Query as string
Connessione ="Provider=microsoft.jet.oledb.4.0;Data Source=" & PercorsoDataBase
& _
";Jet OLEDB:Database Password=" & Password
Query = "SELECT * FROM TUATABELLA"
TuoRecordset.open Query, Connessione, adOpenDynamic, adLockOptimistic
Questo č un piccolo esempio di uno dei metodi di connessione
-- 
Posted from 
ppp-38-248.27-151.libero.it
 [151.27.248.38] 


 Grazie ad ogni benefattore che mi vorrą aiutare.

Newsgroup: it.comp.lang.visual-basic
Titolo: Uso di diverse versioni di VS2008

Ciao,
ho un dubbio e penso possiate aiutarmi a chiarirlo.
A quali problemi potrei andare incontro se su un progetto uso VB2008
Express (al lavoro) e VB2008 Standard (a casa)?
Per quello che ne so la sola differenza e' nell'IDE, nel senso che con
VB2008 Express avrei molte meno opzioni disponibili... ma per il
resto?
Grazie mille
Ciao BlackSun

 resto?
a parte funzionalitï¿œ dell'IDE nessun problema.
.m
-- 
Mauro Servienti
{C67C0157-5D98-4733-A75E-93CAEE4BADC8}
Microsoft MVP - Visual C# / MCP
http://mvp.support.microsoft.com
http://blogs.ugidotnet.org/topics
whynot [ at ] topics [ dot ] it

 a parte funzionalità dell'IDE nessun problema.
Ottimo. Cosi' posso comprare una versione Professional per casa e
usare una Express sul lavoro senza problemi.
Grazie del feed back
Ciao BlackSun


Non conosco la licenza delle ultime versioni NON Express di Visual
Basic/Visual Studio, ma quelle di VB6 diceva che potevi installarlo su
quanti PC volevi a patto che la persona che lo usava era sempre la stessa.
Quindi, se da questo punto di vista la licenza NON è cambiata, se sei tu
e SOLO TU, che lo usi sia a casa che in ufficio puoi usare la stessa
licenza :-)
-- 
Daniele Pinna  (leva oops. per rispondere)
Utente Skype: dapinna
Sito Web: 
http://www.dapinna.com
	<-- Nuovo Sito... ora in Joomla
Il Docfa in Pillole:  
http://www.ildocfainpillole.it

 licenza :-)
Uhmmm... ho parlato con uno che ci lavora in ste cose e mi ha detto
che il problema non tanto chi lo usa (come giustamente dici tu lo
posso usare su vari pc) ma l'ambiente in cui viene usato.
In pratica se lo voglio usare in ufficio devo farmi fare una
dichiarazione dove mi rilasciano il permesso di installarlo, che non
sia copiabile in nessun modo da altri e che e' ad uso ESCLUSIVAMENTE
PERSONALE e non aziendale. Qui sta l'inghippo... le aziende sono
tenute ad avere licenza dei software che usano per produrre soldi,
quindi anche il "mio" software produce grano ma non e' di loro
proprieta'... in pratica e' come se stessero usando software pirata
per lucro.
Ciao BlackSun


Secondo me se il tuo lavoro su VB produce grano all'azienda potresti 
farti comprare una licenza per l'ufficio.

 farti comprare una licenza per l'ufficio.
Lo so... sarebbe la cosa ideale ma la mia azienda ha stretto i cordoni
della borsa sugli acquisti dei software e il mio non e' prioritario in
quanto serve a creare programmi interni per i miei colleghi per
velocizzare i report da consegnare al cliente.
Poi ci sono altre persone che darmi l'ok per installare la versione
Express ci hanno messo ben 8 mesi... se chiedevo l'acquisto rischiavo
di avere l'ok per la versione 2008 quando usciva il 201X!
E ho detto tutto. :-((((((((((
Ciao BlackSun

Newsgroup: it.comp.lang.visual-basic
Titolo: Dao e MYSql?

Si può fare?
Se si come?
Ciao Enzo
www.scozzaro.it


Direi che con Dao l'unico modo sia usare Odbc.
ciao
ugo
Newsgroup: it.comp.lang.visual-basic
Titolo: HLP:Uscire da un ciclo continuo...

Ho creato con il controllo PICTUREBOX una piccola animazione dove traccio
dei punti.
Volendo inserire un opzione per mostrare il filmato in "ciclo continuo" ho
creato un piccolo CheckBox, il quale se vero non fa uscire il controllo
dalla WHILE-WEND ma la esegue all'infinito.
Il problema è che non so che trucco usare per uscire dal ciclo, volevo far
fermare l'animazione con un Pulsante tipo "STOP" o "PAUSA", ma quando il
ciclo è in esecuzione la form è come bloccata. L'unico modo per fermarla
attualmente è con "CTRL-BREAK"
Come posso fare?
grazie

 wrote in message
news:8go5pg$q5k$1...@fe2.cs.interbusiness.it...


ani.autoplay=true
Ani.Open App.Path & "\findcomp.avi"
Ani.Close

Newsgroup: it.comp.lang.visual-basic
Titolo: Access2000 Reports e VB6

Prima di tutto ciao a tutti i programmers del newsgrup.
Ho una piccola domanda da fare per un lavoro (che novità). Sto scrivendo una
applicazione al lavoro che si basa su un DB Access2000. Uso ADO (prima
esperienza) senza problemi, od almeno, il tutto funge tranquillamente, il
problema è usare i report. Purtroppo l'applicazione che sto sviluppando
verrà usata su più computer in rete, ma non tutti sono dotati di access.
L'applicazione è sviluppata per avere il DB messo in remoto su un File
server e l'applicazione muove/lavora con i dati. Il problema sono i rport.
Non tutte le macchine da cui si userà il programma hanno Access2000
installato. I report funzioneranno ugualmente dato che il db è su una
macchina con Access oppure no? Cosa si può usare al posto di Access per
creare report con sottomaschere? Ho letto su alcuni libri (VB6 Accesso ai DB
di Mc Manus) qualcosa riguardo VSReport, Cristal Report6 ed altri. Quale
usare? Quale costa meno? Chi è più semplice da usare? Chi è ADO? chi DAO?
Scusate le mille domande, ma non sono un programmatore professionista, il
mio mestiere è tutt'altro, ma passione e necessità......
Grazie mille da Spiegator.
P.S. Dimenticavo ho VB6 Professional e Office 2000Professional

Purtroppo non posso dare una risposta al tuo problema, probabilmente perchè
io sono un programmatore VB alle armi n°0.
Tu però potresti aiutarmi perchè Ho un programma di VB5 che legge e scrive
correttamente i DB di Access 97 ma non riesco ad accedere ai database di
Access 2000 (formato non riconusciuto ....).
Sicuramente e un problema moooolto OT (forse mi manca qualche componente).
Ti chiedo di inviarmi magari un pezzo di codice, o un'esempio di app., che
mi faccia vedere come usare ADO per leggere campi di record di tabelle di
access 2000 (posso usare anche VB6 Professional).
Spero in te...
Ciao Grazie, Domenico
-- 
Posted from [213.145.3.137] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.visual-basic
Titolo: consiglio

vorrei imparare a programmare in vb........sapreste consigliarmi qulche sito
dove si trova un po di materiale?
grazie

 ha scritto

da me ne trovi indicati un po'.
non molto aggiornato, ma parecchi dovrebbero esistere ancora.
segui le lampadine.
links -> vb
--
ciao, j.
www.sundaysw.com

 ha scritto nel messaggio
news:SVKU8.38503$vm5.1...@news2.tin.it...

Se lo trovi ancora in edicola comprati PC Professionale del mese scorso (mi
pare) dove in allegato c'era un libro (in versione tascabile) di Francesco
Balena "Programmare Visual Basic 6.0 .. se non lo trovi.. ordinalo.. č
davvero utile sia per chi inizia sia per chi č un pň piů esperto.
Ciao e in bocca al lupo con VB :)
Roberto
Newsgroup: it.comp.lang.visual-basic
Titolo: select complicata

Salve a tutti.
Utilizzo VB5 e DAO
Vorrei ottenere questo risultato :
tab:
riga desc .....
1    a
2    b
3    c
4    d
se cancello il record 2 vorrei che il nuovo risultato fosse :
1    a
2    c
3    d
vorrei, quindi modiifcare tutti i valori del campo codice in ordine
crescente.
E' possibile farlo con una select o come ?
Grazie

"Carmelo R." <rgg...@NOSPAMyahoo.it> ha scritto nel messaggio
news:KFcic.134113$rM4.5...@news4.tin.it...

Ciao,
prova Cosě
---------------------
UPDATE Tabella
        SET  Riga=DCOUNT(1,"Tabella","Desc<='" & Desc & "'")
---------------------
č importante che non ci siano [Desc] doppie, in altro caso hai bisogno anche
di un campo identity.
Ciao Giorgio

Guarda ORDER BY.
Ti consiglio di acquistare un libro su sql.
Oppure, per i fondamenti vai a 
http://www.html.it/
inoltre, per ogni dubbio: 
http://makeashorterlink.com/?G5CD23208
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

> Oppure, per i fondamenti vai a 
http://www.html.it/
scusa. l'indirizzo esatto č: 
http://www.html.it/sql/

Newsgroup: it.comp.lang.visual-basic
Titolo: Simboli chimici

Salve,
sto realizzando un programmino che deve permettere di memorizzare delle
analisi chimiche e poi stamparle. Il problema e che sia a video (in una
DBGRID) sia in stampa (Crystal Report 4.6) non riesco a trovare un metodo
per scrivere una formula chimica del tipo: CO2 però il 2 come pedice. e
altri caratteri come il simbolo micro (la u con la gambetta lunga..), che
dovrebbe essere 181 come codice ASCII. Qualcuno di voi si è trovato mai
davanti lo stesso problema?
Una soluzione potrebbe essere quella di memorizzare il numero in un campo a
parte e poi diminuirlo di grandezza, ma è l' ultima soluzione a cui vorrei
arrivare.
Ringrazio anticipatamente tutti.
Un saluto a tutto il newsgroup.

Msgbox Chr(181)   visualizza  "ต"
Sia a video che in stampa dovrebbero essere gestiti, se memorizzi in un
campo Chr(181) quando lo stampi dovrebbe apparire il simbolo..
Fabio

Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal Report e recordsets ADO

Salve a tutti, ho un problema e vorrei sapere se qualcuno di voi puo'
aiutarmi. Ho letto il file di hlp di CR ma finora non ho trovaro risposta...
Dovrei passare un recordset ADO (frutto di una stringa SQL) come origine
dati di un report CR.
E'possibile?
Se si', come?
Ci sono alternative?
Grazie 1000
Fiorenzo
--------------------------------
Inviato via 
http://usenet.libero.it

 Se si', come?
Ci sono almeno 3 tecniche diverse di interfacciamento
tra Crystal e Ado:
- l'ocx (imho la peggiore)
- il Crystal designer (l'ho provato solo per gioco: non mi sembra male)
- le Api di Crystal (imho la più difficile ma la più personalizzabile: vedi
sul Sc "CrySvr" )
ciao
ugo
-----------------------------------
Links:
Sito Comune: 
www.it-lang-vb.net
MSDN: 
msdn.microsoft.com

Newsgroup: it.comp.lang.visual-basic
Titolo: DXF di Autocad

Avrei bisogno di un OCX o esempi di programmi per estrarre le quote di un
disegno realizzato con autocad e che mi dia la possibilità di fare anche il
contrario cioè creare un DXF da importare in autocad.
Grazie, Giorgio.
gbla...@tin.it


Sul Sito Comune c'e' un esempio che legge un DXF.
Penso sia un buon punto di partenza.
http://www.murialdo.it/it_lang_vb
Ciao
By -MES-   Maronese Ettore
http://ilmes.freeweb.org
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://www.murialdo.it/it_lang_vb

...

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB.NET] Trovare il PID di un processo che esegue un file

Ciao a tutti.
E' possibile trovare il PID di un processo che esegue un file ?
Cioï¿œ se lancio un processo con un file word e possibile risalire, dal 
nome del file word, al Pid del processo che lo sta eseguendo ?
Grazie, Alverman

Visto che non ci sono risposte significa che non ï¿œ possibile ?
Ok 
Allora come posso trovare il pid di un processo appena lanciato ?
Cioï¿œ se faccio:
.....
startInfo.WindowStyle = ProcessWindowStyle.Maximized
startInfo.FileName = "C:\test.doc"
startInfo.UseShellExecute = True
Process.Start(startInfo)
dopo lo start come posso trovare il pid di questo processo ?
Grazie, Alverman

 ha scritto nel messaggio 
news:201002101...@mynewsgate.net...

Process.Start ritorna un'istanza della classe System.Diagnostic.Process, 
basta guardare tra i suoi membri...
Bye
Raf 

 basta guardare tra i suoi membri...
Ma Pid e Id sono la stessa cosa ?
Io uso 
ProcIdExec = Process.Start(startInfo).Id
Ma il valore che mi ritorna non lo trovo tra i pid di taskmanager.

Ok risolto
Grazie

Newsgroup: it.comp.lang.visual-basic
Titolo: Come effettuare taglio scontrino su stampante termica

Salve a tutti. Ho intenzione di realizzare una applicazione che stampa utilizzando una stampante termica, di quelle che stampano gli scontrini. Usando printer.print "informazioni da stampare" non ho problemi. Ora vorrei però eseguire un taglio, la stampante lo permette. Come faccio ad inviare i codici ascii che trovo nella guida alla stampante? Per ora vengono stampati come caratteri e non vengono eseguiti come istruzioni.
Se questo non dovesse essere il giusto newsgroup, gentilmente un consiglio come poter trovare questa soluzione sarebbe graditissima cosa. Grazie 1000

 codici ascii che trovo nella guida alla stampante?
 
printer.print "CIAO"
 
e
 
printer.print chr(67) + chr(73) + chr(65) + chr (73)
 
 
stampano entrambi la stessa cosa, solo che nel primo al comando
viene data una stringa, nel secondo una composizione di caratteri
ASCII, se per esempio, per tagliare devi "stampare" i caratteri
 
 
ESC
 
A
 
B
 
 
il comando può essere sia
 
 
printer.print chr(27) + "AB"
 
printer.print chr(27) + chr(65) + chr(66)

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Come gestire gli ocx "custom"?

Ho programmato un controllo ocx che uso in un mio programma.
Ogni volta che creo l'eseguibile finale del programma però (magari dopo
qualche modifica alla versione precedente), quando in seguito ricarico il
progetto nel VB, mi compare un messaggio d'errore che mi costringe a
ricompilare anche l'ocx, nonostante lui (l'ocx) non sia stato modificato.
Tra l'altro ad ogni nuova compliazione, l'ocx incrementa la sua versione:
sono arrivato alla versione 53.0!
Come posso fare?
Grazie per l'aiuto...
Newsgroup: it.comp.lang.visual-basic
Titolo: Cerco una soluzione per PDF ed E-mail

Devo inviare via e-mail le mie stampe, esiste una soluzione software o
qualche codice che mi permetta di creare la mia e-mail con allegato il mio
documento in formato PDF?
Grazie Mille
Max

 documento in formato PDF?
Se il problema _non_ è creare il PDF (nel senso che sai come farlo, io no),
basta usare i controlli MAPI (Session e Message)


non so se è quello che cerchi, comunque esistono dei software che funzionano
come stampanti virtuali che ti permettono di trasformare qualsiasi documento
in pdf, uno in particolare di nome win2pdf ha anche l'opzione di creare un
nuovo messaggio di outlook con il pdf in allegato.
Prova a cercare su 
http://volftp.mondadori.com/
 o 
http.downloads.com
ciao.
--------------------------------
Inviato via 
http://usenet.libero.it

 ha scritto nel messaggio
news:213Z26Z221Z98Y1...@usenet.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: FOCUS FINESTRE

Ho questo problema da sottoporvi, son grato in partenza a chiunque possa
darmi una soluzione
Ho una finestra MDI di base, all'interno di questa ho una finestra figlia.
La mia necessità è di aprire una ulteriore finestra che rimanga sempre in
primo piano anche quando non ha il Focus, invece quello che mi accade è che
quando sposto il Focus su una delle due finestre precedenti la piccola
finestra aperta per ultima và in secondo piano e scompare. Come posso
lasciarla sempre in primo piano ???
AIUTATEMI GRAZIE
Michele
Risposte a 
Mik...@tin.it
 o a 
michele.c...@plangroup.it


La tua è una delle domande più ricorrenti.
La risposta è un'ape:
iniziamo dalle costanti che potrebbero venire buone...
' SetWindowPos() Flags
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOZORDER = &H4
Public Const SWP_NOREDRAW = &H8
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_FRAMECHANGED = &H20        '  The frame changed: send
WM_NCCALCSIZE
Public Const SWP_SHOWWINDOW = &H40
Public Const SWP_HIDEWINDOW = &H80
Public Const SWP_NOCOPYBITS = &H100
Public Const SWP_NOOWNERZORDER = &H200      '  Don't do owner Z ordering
Public Const SWP_DRAWFRAME = SWP_FRAMECHANGED
Public Const SWP_NOREPOSITION = SWP_NOOWNERZORDER
' SetWindowPos() [...] hwndInsertAfter values
Public Const HWND_TOP = 0
Public Const HWND_BOTTOM = 1
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
...e poi la declare:
    Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal
hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long,
ByVal cy As Long, ByVal wFlags As Long) As Long
Usala così:
SetWindowPos FormDaTenereInPrimoPiano.hwnd, HWND_TOPMOST, 0&, 0&, 0&, 0&,
SWP_NOMOVE + SWP_NOSIZE
Ciao

 La tua è una delle domande più ricorrenti.
Solo una richiesta di conferma: l'ape funziona mantenendo come TOPMOST
il form nell'ambito dell'MDI parent? (anche se la conferma è un po'
superflua, visto che senza SetParent il form non può uscire dal MDI)
Grazie
Flavio Ronco
-- 
f.ronco@*NonMiServeNiente*
flashnet.it
http://www.metabrains.com
  [Under Construction]
-------------------------------------------------------------
"Che pubblico in gamba! Se ci dite dove lavorate,
domani mattina se abbiamo tempo vi veniamo a vedere"
[Paolo Rossi]

 Se qualcuno me lo spiega mi fa un favore!
Umorismo, semplice e salutare umorismo, credo.
Flavio Ronco
-- 
f.ronco@*NonMiServeNiente*
flashnet.it
http://www.metabrains.com
  [Under Construction]
-------------------------------------------------------------
"..." [CENSURA]

Umorismo, semplice e salutare umorismo, credo.
Per fortuna qualcuno ci crede ancora (nell'umorismo intendo...).
Siate meno razionali, siate interi... o meglio come diceva il detto <God is
real, unless declared integer>
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Numero serie HardDisk

Come faccio a ricavare il numero di serie degli HardDisk installati e del
Lettore CD?
Grazie

 Lettore CD?
Metti un pulsante command1 in un form e copia il seguente codice:
Private Declare Function GetVolumeInformation Lib "kernel32" _
 Alias "GetVolumeInformationA" _
 (ByVal lpRootPathName As String, _
 ByVal lpVolumeNameBuffer As String, _
 ByVal nVolumeNameSize As Long, _
 lpVolumeSerialNumber As Long, _
 lpMaximumComponentLength As Long, _
 lpFileSystemFlags As Long, _
 ByVal lpFileSystemNameBuffer As String, _
 ByVal nFileSystemNameSize As Long) As Long
Private Sub Command1_Click()
MsgBox fnLeggiMatricola$
End Sub
Private Function fnLeggiMatricola() As String
Dim RootPathName As String
Dim VolumeNameBuffer As String
Dim VolumeNameSize As Long
Dim VolumeSerialNumber As Long
Dim MaximumComponentLength As Long
Dim FileSystemFlags As Long
Dim FileSystemNameBuffer As String
Dim FileSystemNameSize As Long
RootPathName$ = "C:\"
VolumeNameBuffer = Space$(255)
VolumeNameSize = 255
FileSystemNameBuffer = Space$(255)
FileSystemNameSize = 255
MsgRtn = GetVolumeInformation(RootPathName, _
 VolumeNameBuffer, VolumeNameSize, VolumeSerialNumber, _
 MaximumComponentLength, FileSystemFlags, _
 FileSystemNameBuffer, FileSystemNameSize)
fnLeggiMatricola$ = Left$(Trim$(Format$(VolumeSerialNumber)), 15)
End Function

 Grazie
prego
p.s: evita di postare un messaggio su come si usa una API, č una FAQ, che
trovi sul sito comune di questo NG (leggiti il manifesto postato...;)); o
meglio ancora sfoglia l'help di VB dalle parti della voce Declare...;)))
ciaoz

In vb6 è stata introdotta la libreria Microsoft Scripting runtime che
contiene un oggetto drive:
Devi aggiungere al progetto tra i riferimenti questa libreria e poi
dim fso as new filesystemobject
dim dr as drive
for each dr in fso.drives
        if dr.isready then
                msgbox dr.driveletter & ": " & dr.serialnumber
        end if
next
e così visualizza i seriali di tutte le unità installate.
Funziona così com'è scritto. Se ti interessano le proprietà delle unità dà
una occhiata a questa libreria che elimina la difficoltà di utilizzo delle
API
Ciao Valy

Newsgroup: it.comp.lang.visual-basic
Titolo: Rendere una FORM di VB5 una finestra MODAL

Ho necessità di sapere come fare per rendere una finestra (form) di VB5 una
finestra MODAL, in pratica una di quelle che stanno sempre in primo piano e
detengono sempre il focus !!! C'è un sistema direttamente da VB oppure devo
ricorrere alle API ???
Se in VB non c'è modo quali sono le API per fare ciò ???
Grazie anticipate Francesco...

Razional Informatica S.r.l. ha scritto nel messaggio
<01bdb58c$203476c0$740a0ac0@francesco>...

tuaForm.Show vbModal
o stai chiedendo qualcos'altro?
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Help conversione codice

Salve ragazzi, devo trasformare questo codice VB in Java.
Alcune cose credo i averle capite.... ma ci sono alcun righe (5) che non
capisco, quelle seguite da : "//cosa vuol dire?..
Chi mi aiuta ?...
Grazie
Oxy
void EncryptINI(String Strg, String Password) //Function EncryptINI$(Strg$,
Password$)
 //  Dim b$, S$, i As Long, j As Long
 //   Dim A1 As Long, A2 As Long, A3 As Long, P$
 // j = 1
 long  j=1 , i, A1 , A2,A3;
 String S="",b="",P="";
 for(i=1;i<Password.length();i++){ //For i = 1 To Len(Password$)
     P$ = P$ & Asc(Mid$(Password$, i, 1)); //cosa vuol dire?
 }// Next
 for(i=1;i<Strg.length();i++){  // For i = 1 To Len(Strg$)
     A1 = Asc(Mid$(P$, j, 1)) //cosa vuol dire?
     j+=1; if(j>P.length())j=1; //j = j + 1: If j > Len(P$) Then j = 1
    A2$ = Asc(Mid$(Strg$, i, 1)) //cosa vuol dire?
     A3$ = A1$ Xor A2$   //cosa vuol dire?
     b$ = Hex$(A3$)   //cosa vuol dire?
     if(b.length()<2) b="0"+b; //If Len(b$) < 2 Then b$ = "0" + b$
     S += b; // S$ = S$ + b$;
    }   // Next
   return  S;  // EncryptINI$ = S$
} //End Function

 Salve ragazzi, devo trasformare questo codice VB in Java.
Non conosco Java, ma questo codice non è VB. Mi ricorda il Fortran.

 è VB. Mi ricorda il Fortran.
Caro Lupo, devi essere un po' fuori fase :)
Il codice postato e' java seguito da un commento (//) che contiene il codice
vb tradotto.
In pratica e' la traduzione on-going del povero Oxy!
Lokar
--
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
UGIdotNET - 
http://www.ugidotnet.org

 Caro Lupo, devi essere un po' fuori fase :)
Ah, ecco, l'hai detto! Mi fermavo alle parti iniziali.


Il codice è una criptatura reversibile  con Xor dal nome cripta file Ini
sembra!

ragazzi mi serve solo questo:
///
 For i = 1 To Len(Password$)
      P$ = P$ & Asc(Mid$(Password$, i, 1))
Next
///
tutto il resto dovrebbe essere fatto (grazie a contributi sul NG java:)
P.s mi dicono che sembra inutile?
Grazie

      b$ = Hex$(A3$)   //cosa vuol dire?
Restituisce la rappresentazione esadecimale di un numero. Da MSDN:
MyHex = Hex(5)   ' Returns 5.
MyHex = Hex(10)   ' Returns A.
MyHex = Hex(459)   ' Returns 1CB.
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

      b$ = Hex$(A3$)   //cosa vuol dire?
B = ToString(ValoreEsadecimale(A3))
hth,


Sinnceri ringraziamenti a tutti voi  per le vostre immediate risposte.
Se a qualcuno interessa in java  eccolo: (funziona)
String decrypt(String Strg, String Password) {
   String b, S = "";
   int i, j = 0, A1, A2, A3;
   for (i = 0; i < Strg.length(); i += 2) {
      A1 = (int)Password.charAt(j);
      j = ++j % Password.length();
      b = Strg.substring(i, i + 2);
      A3 = Integer.parseInt(b, 16);
      A2 = A1 ^ A3;
      S += (char)A2;
   }
   return S;
}
 Oxy
Newsgroup: it.comp.lang.visual-basic
Titolo: Connessione ad un foglio di lavoro Excel

Per realizzare un progetto, devo estrapolare dei dati da un foglio di lavoro
creato con Excel XP. Ho aggiornato quindi il controllo data che sfruttavo
per connettermi a database access e, come previsto, vi è il supporto per
questi fogli di lavoro. Il problema sorge quando tento di aprire il file:
una volta impostata la proprietà connect a "Excel 8.0" e databasename al
nome del file che vorrei leggere, quando eseguo il primo refresh (oppure
appena lancio il programma, se ho impostato il tutto in fase di
progettazione tramite la finestra proprietà), ottengo un errore di questo
tipo:
codice errore 3170
Couldn't find installable ISAM
Non so come muovermi, anche perchè non capisco proprio cosa significa questo
errore. Premetto che sul PC è installato anche Office XP con excel.


[CUT]
Ho avuto un errore simile con i driver Paradox.
L'ho risolto inserendo il cd di VisualStudio6 e installando i "Jet ISAM
Driver" (voce sotto l'opzione DataAccess).
Questi driver vengono anche installati con qualche versione dell'MDAC, ma
non so quale, o a parte scaicando il pacchetto dal sito microsoft.

 ha scritto nel messaggio
news:KfPyBiKh...@DNS2.edpsistem.it...

Grazie, provo subito
PS. Probabilmente per errore ho spedito 2 volte il solito messaggio, mi
scuso con il NG
Newsgroup: it.comp.lang.visual-basic
Titolo: connessione a sql server express 2008

Premesso che sono un neofita del vb 2008.(solo esperienze su vba di
access)
Il Sistema operativo utilizzato: Vista ;
sqlserver 2008 express;
VB express 2008;
Il problema è che quando provo ad usare una stringa di connessione
per
utilizzare un sqldatareader inizialmente funziona ma non appena
chiudo
l'applicazione o riprovo la classe sqldatareader allora il database
diventa corrotto o bloccato (aperto da altre applicazioni)
la sub è la seguente:
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''­'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 Dim con As New SqlClient.SqlConnection( _
         "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Program Files
\Microsoft SQL Server\MSSQL10.SQLEXPRESS\MSSQL\DATA
\Umbertina_Data.mdf;Integrated Security=True;Connect Timeout=30;User
Instance=False")
        Dim Com As New SqlClient.SqlCommand( _
            "SELECT * FROM dbo.Tbl_Anagrafica where Cognome LIKE
'%atk
%'", con)
        Dim CategoryNome As String = ""
        Dim CategoryID As Integer = 0
        Dim CategoryCognome As String = ""
        Dim dr As SqlClient.SqlDataReader
        Try
            con.Open()
            dr = Com.ExecuteReader 'attenzione COM e non con
            Do While dr.Read
                CategoryCognome = dr(1).ToString
                CategoryNome = dr(2).ToString
                MsgBox(String.Format("{1}-:-{2}", CategoryCognome,
CategoryNome))
            Loop
            dr.Close()
            con.Close()
        Catch ex As Exception
            MsgBox("Connection Failed")
        End Try
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''­'''''''''''''''''''''''''''''''''''''''''''''''
Qualcuno mi sa dire dove sbaglio?
Vi ringrazio anticipatamente.

 Vi ringrazio anticipatamente.
Non c'è bisogno che tu specifichi totalmente la fonte file da
utilizzare, è più corretto se indichi il nome del database e non la
sua fonte file, cosi :
User ID=sa;password=sa;Initial Catalog=umbertina;Data Source=.
\SQLEXPRESS
in oltre una volta chiusa la connessione, prova a fare anche il
dispose dell'oggetto.
-----------------------------------------------------
www.prioregroup.com

Newsgroup: it.comp.lang.visual-basic
Titolo: Come posso ottenere la data?

Prima di tutto grazie per i consigli che mi state dando. Devo dire che
questo è veramente un NewsGroup attivo.
Sono sempre alle prese con la mia DLL e volevo chiedere se esiste una
funzione che mi restituisce la data nel formato che voglio, ad esempio :
creazione=nome_funzione("Y-m-d H:i:s")
Grazie

 wrote in message
Q2Fu6.68224$yl2.6...@news1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: pacchetto installazione

Ho sviluppato un'applicazione  in vb6 e poi con l'add-in Package and
deployment
wizard ho cercato di
creare il cd di installazione appunto. Il risultato e' un cd di
installazione
(ossia setup.exe e file .cab )
che registra tutte le dll e il file ocx che ho creato ma che alla fine
da'
questo messaggio di errore:
 Impossibile trovare e quindi registrare il file
c:\windows\temp\msftqws.pdw\$(DLLSelfRegisterEx)  e
poi parte la disinstallazione dell'applicativo. Dove sbaglio?
Grazie in anticipo.
Ciao a tutti.

 ha scritto nel messaggio
news:3BD7F559...@auselda.it...

mi pare che sia un bug risolto col SP5
Faber

 ha scritto nel messaggio
news:3BD7F559...@auselda.it...

Ciao, mi è successo la stessa cosa proprio 2 giorni fa:
è un bag del calendar. Io ho risolto modificando nel file setup.lst
(lo apri col notepad) la riga:
..... Register=$(DLLSelfRegisterEX)....
con
..... Register=$(DLLSelfRegister)....
Quindi togli la "EX" Finale
Buon lavoro
Federico

 č un bag del calendar. Io ho risolto modificando nel file setup.lst


Newsgroup: it.comp.lang.visual-basic
Titolo: installazione applicazione

Salve
Ho realizzato un programma utilizzando ole db per sql server.
Dopo averlo installato su un p.c., quando lo eseguo mi dice ole db non
trovato.
Evidentemente il programma di installazione non installa ole db utilizzato.
Qualcuno mi puo' dire come posso fare per risolvere questo problema?
grazie

 trovato.
Qual è il messaggio preciso?
Se per caso hai inserito il nome del Data Source all'interno del codice, il
programma eseguito da un altro PC non sarà in grado di identificarlo.
In questo caso ti consiglierei di memorizzare la stringa di connessione in
un file udl e poi recuperarla a runtime prima di aprire la connessione.
HTH,
--
Lorenzo Benaglia
24 Ore Personal Finance S.p.A.
Milano
Italy
Newsgroup: it.comp.lang.visual-basic
Titolo: tempo di elaborazione

Ho una perplessità
Da una sub in un form chiamo una funzione:
    if ART_FIND(codice) then
dove è ART_FIND esegue la ricerca in un database.
Visto che questa funzione fa parte di un modulo che utilizzo in vari
programmi ho notato che ci sono differenze notevoli di tempi di
elaborazione. La cosa strana che ho aggiunto un controllo timer alla fine
della funzione e uno nella riga successiva alla chiamata della funzione in
questo modo
Private Sub ...
    ...
    tempo = timer
    debug.print tempo-timer                               (1)
    if ART_FIND(codice) then
        debug.print tempo-timer                            (4)
    ...
end sub
Public Function ART_FIND(codice as string) as boolean
debug.print tempo - timer                                 (2)
...
debug.print tempo - timer                                 (3)
end function
Quello che ho scoperto è che il temp che trascorre tra 1 e 3 è sempre lo
stesso in tutti i miei progetti mentre il tempo che trascorre tra 3 e 4 è
quasi immediato in tutti progetti ma in alcuni il tempo che trascorre arriva
ad un secondo. Siccome tra 3 e 4 non ci sono righe di codice, quale può
essere il problema?
Spero di essermi spiegato bene.

 ad un secondo.
Tra 3 e 4 ?
Stento a crederlo.
Comunque: č ripetibile e sistematico?
Se sě prova a entrare in debug con F8. Ti accorgi subito dove tra un F8 e
l'altro perdi tempo.
Se il problema ce l'hai solo sul compilanto in native-code, beh... qui č
tutto un altro discorso :(
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT?] manuale database

ciao a tutti
sto cercando un manuale che mi permetta di imparare a progettare e
realizzare seriamente i database.
Qualcuno può consigliarmi qualche buon libro o qualche buon sito?
grazie!

 ha scritto

From: 
davide...@davidebianchi.net
Newsgroups: it.comp.software.database,microsoft.public.it.sql
Subject: Re: buon libro sul disegno dei database e sul linguaggio sql?
Date: 4 Jun 2002 11:32:46 GMT
Per la progettazione io consiglio sempre "Database Design for
mere mortals", per quanto riguarda l'SQL, lo standard SQL 92 lo
trovi in rete, come manualistica e' sempre (o quasi sempre)
orientata verso un particolare database.

 > Qualcuno puņ consigliarmi qualche buon libro o qualche buon sito?


 grazie
mi sa di no, vedo che dello stesso autore in italiano c'e' solo un
Hernandez, Michael J. - SQL query : a partire da zero
(che comunque male non dovrebbe fare).
pero' se posti su i.c.s.d. prob avrai anche altri consigli.
davide bianchi e molti altri sono davvero disponibili.
d.b. ha anche pubblicato una faq:
http://www.soft-land.org/faq/icsdfaq.html
prova un po' a guardare anche qui, prob trovi cose online
http://makeashorterlink.com/?P55C32261
(grazie hpl :)
ciao, j.
Newsgroup: it.comp.lang.visual-basic
Titolo: md5

ciao a tutti,
una informazione da neofita: esiste una API, modulo o funzone "zio Bill" o
comunque "Free" che fornisca questo algoritmo?
grazie e scusate l'eventuale ignoranza a riguardo
saluti Stefano

 comunque "Free" che fornisca questo algoritmo?
Una volta su 
http://www.di-mgt.com.au/crypto.html
 c'era l'implementazione in
ASP (VBScript), bastava copiarla in un modulo e funzionava, magari
tipizzando le variabili.
Adesso vedo solo una DLL per l'MD5, ma se ti basta...
Io non ho mai inviato la mia "conversione" al sito comune perchč non volevo
spacciare per mia una cosa che non č, perň adesso chiedo l'autorizzazione
all'autore :)
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 ASP (VBScript)
eccolo qui 
http://www.frez.co.uk/freecode.htm


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] PictureBox e metodo Cls

Ciao a tutti....
utilizzo VB6 + SP3 e sto sviluppando un piccolo programmino di grafica, 
niente di speciale è in pratica una brutta copia di Paint che sfrutta come 
spazio per disegnare una picturebox.
Per mantenere intatti i disegni (per es. quando ridimensiono la finestra o 
mi sposto con le scrollbar) imposto AutoRedraw della picbox a True.... e fin 
qui tutto ok.
Se ci molti disegni (line, circle, testo, ecc...) però il richiamo del 
metodo Cls della picbox diventa molto lento (anche 5 secondi), ovvero: ho 
notato che l'attesa per la cancellazione aumenta all'aumentare della grafica 
presente sulla pic.
Cosa posso fare??? Esiste qualche API per una cancellazione rapida???
Si puo fare qualcosa con la CopyMemory magari spostando qualche valore su 
pic.Picture.Handle ????
Qualunque idea è la benvenuta. Grazie!
________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at 
http://www.hotmail.com
--
Posted from [195.103.149.2] by way of 
f92.law8.hotmail.com
 [216.33.241.92] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

presente sulla pic.
Guarda che c'è qualcosa che non va!
La Cls è pressochè immediata.
D'altra parte non fa altro che riversare il colore di sfondo sulla
picturebox, e non importa che cosa ci sia sopra.
Ciao