mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: No cache tramite WebBrowser

Salve a tutti!
    Qualcuno sa se è possibile impedire di memorizzare nella cache e nella
cronologia i siti visitati tramite un WebBrowser? Ho provato con le opzioni
del WebBrowser ma non ho trovato nulla che fa al caso mio... esiste magari
qualche api?
ciao e a presto,
    michele

Webbrowser1.Navigate2 "mioUrl", navNoHistory or navNoReadFromCache or
navNoWriteToCache
dovrebbe fungere prova
L2K

 ha scritto nel messaggio
news:g%o_7.7786$2R2.2...@news1.tin.it...


Aggiungi un module e inserisci questo se non vuoi aggiungere il modulo
copialo semplicemente nel form dove hai il webbrowser e cambia public in
private
public Type BrowserNavConstants
    navOpenInNewWindow = &h1
    navNoHistory = &h2
    navNoReadFromCache = &h4
    navNoWriteToCache = &h8
    navAllowAutosearch = &h10
    navBrowserBar = &h20
    navHyperlink = &h40
end Type
L2K

 ha scritto nel messaggio
news:hfp_7.42609$s04.1...@news.infostrada.it...


 ha scritto nel messaggio
news:oGp_7.7929$2R2.2...@news1.tin.it...


scusami la fretta... sostituisci type con enum
L2K

 L2K
Ciao! ho fatto come mi hai detto tu e non mi viene dato errore...
però non funziona!!
Infatti viene tutto scritto nella cache e nei file temporanei come se nulla
fosse... :-((
non esisterebbe qualche altro metodo, magari via api?
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

ritorno adesso da una nottata di bagordi....
No... via api no di certo visto che Intenet explorer è un oggetto COM.
L'unica che mi viene in mente potrebbe essere cancellare la cache una volta
terminata la navigazione....
ma sei sicuro che la cache rimanga anche quando temini il proggy???
ciao
L2K... un po brillo

 wrote in message
news:oGp_7.7929$2R2.2...@news1.tin.it...

ciao! ho provato e riprovato ma la cache e i file temporanei vengono scritti lo
stesso...
eppure ci sarà un modo efficace per farlo, magari esiste qualche funzione API
che
permette di gestire la cosa in modo migliore?


ho provato ed in effetti hai ragione....
quindi sono andato a vedere l'MSDN sull'argomento e dice chiaramente
"NOT IMPLEMENTED".... e allora che c@%...spita lo scrivi a fare?!?!?!?
ripeto che l'unica secondo me è cancellare la cache...
non esiste un API che si interfacci con IE perchè IE è un oggetto COM...
puoi sbatterti ad implementarlo come se fossi in C++ e da questo punto di
vista guadagneresti un casino di altre possibilità... però è difficilissimo
L2K

 ha scritto nel messaggio
news:CcZ_7.1219$G02....@news1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: o.t

Qualcuno puo' aiutarmi, postando alla mia mailbox?
Outlook mi mette l'estensione .dat (inopportuna) se spedisco un file senza
estensione. Virus pare non ce ne stanno.
Uso Outlook Express 5
Ringrazio il gentile.

 estensione. Virus pare non ce ne stanno.
Normale.
"by design"
ciao
ugo
Newsgroup: it.comp.lang.visual-basic
Titolo: Utilizzo di Inno setup...

Ho una applicazione che utilizza Ocx di terze parti.
Usando Inno Setup
come faccio a registrare questi Ocx ?
e poi..se il setup viene fatto su una macchina che non ha
mai nemmeno visto VB,
quali sono i file obbligatori che devo installare affinche'
la mia applicazione giri correttamente ?
Avete qualcosa da farmi leggere ?
qalche file che usate voi ?
[Se vi va anche di rispondermi al post sotto, quello su CR,
mi fate un grandissimo piacere :)]
--
X.Gregorio Responsabile Tecnico Sviluppo Software
It Consulting SRL : 
Http://www.xaziende.com
Limbo59  %1 Hotmail %2
(Manca una chiocciola e un ".com" )

Puoi, dentro allo scipt di copiare e registrare il componente.
C'è un help in linea - almeno nelle versioni che usavo io c'era -
sche spieca bene come fare ... è roba di un flag - se non
ricordo male -r
--
Saluti
Andrea Moro

 la mia applicazione giri correttamente ?
se hai VB6, ti consiglio di creare un pacchetto di installazione con gli
strumenti di creazione guidata
offerti da Visual Studio e poi specificare nel file di Inno Setup tutti i
componenti che trovi nella cartella
Support creata.
                Ciao
                                    Zephiross

 
Tempo fa avevo adottato anch'io un sistema simile, ma ho sempre avuto 
l'impressione che il setup di VB si tirasse dentro roba inutile... nella 
precedente azienda avevamo una macchina con NortonGhost, e per vedere 
cosa mettere nell'installer (usavamo il Wise) caricavamo una 
configurazione stile 'Windows appena installato', lanciavamo 
l'eseguibile e vedevamo cosa chiedeva (ovviamente nel prg limitavamo al 
minimo il numero di ocx/dll usate, preferendo chiamate alle API).
Procedura pallosa, ma l'abbiamo fatto una sola volta, giusto per 
ottenere (come hai detto te) l'insieme minimo di dll extra-S.O. che 
servono a VB per girare.
-- 
Bye by SixaM 8-]
---------------------
Sito comune  : 
www.it-lang-vb.net
Aiuto on line: premi F1
P.S. Puo' sembrare una cretinata, ma se in un prg uso la FlexGrid 
comprata da VideoSoft (ora ComponentOne), il SetupWizard mi tira dentro 
una carriolata di DLL, che non becca se uso la MsFlexGrid. Ho qualche 
funzionalita' in meno, ma le dimensioni del file di SetUp decrescono 
sensibilmente...
Newsgroup: it.comp.lang.visual-basic
Titolo: dove sbaglio? Acess 2000 ti odio..

salve,
ho creato un DB con access 2000 poi l'ho aperto all'avvio di una form:
Private Sub Form_Load()
percdatabase = App.Path + "\fa5.mdb"
Set db = OpenDatabase(percdatabase)
End Sub
VB5 e VB6 mi dicono all'apertura della form: "Impossibile riconoscere
il formato del Database"
il bello e' che quando lo creavo con access 97 tutto filava liscio..
mi sapete dare un spiegazione?
grazie
ciao
Lino

č inutile bisogna metterci un pietrone sopra..
finchč qualcuno non trova un upgrade o qlcs di simile per la gestione
dell'accesso ai db creati con access 2000 l'unica soluzione č ricrearti i
campi con il vecchio e caro access 97 :-)
--
 
we...@tiscalinet.it

 wrote


Ottimo, forse abbiamo trovato la soluzione
qlc1 sa dove sia possibile trovare la tecnologia Dao 3.6 che dovrebbe essere
compatibile con access 2000 ?
--
 
we...@tiscalinet.it

 wrote in message
85q371$iqf$1...@pegasus.tiscalinet.it...


 Lino
--
!------------------------------------------------!
!ICQ     : 8281944
!E-Mail  : 
Dan...@levon.it
!
! " M'accorgo del cielo infinito solo se
!   una rondine ne percorre un tratto. "
!
!HomePage : 
http://www.levon.it/daniele
!
!------------------------------------------------!

 motivi.
grazie del consiglio. qualche domanda p.f.:
-- si puo' usare con vb5 e/o access97 ?
-- si puo' scaricare ?
-- nel caso, ha un help in linea ?
grazie, pal

Sito Ms, ho trovato il service pack 3 composto da un bel pò di file dalle
dimensioni considerevoli...
qlc1 di voi sa quale file contenga la libreria DAO 3.6 oppure dove sia
possibile avere il SP 3 su cd
--
 
we...@tiscalinet.it

 wrote in message 388060c...@news.tin.it...


 Infatti hai sbagliato. prova con


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] ADO con Oracle8

Ciao,
ho il seguente problema:
Connettendomi con ADO attravero ODBC Oracle 7.3 ad un DB Orable 8i non
riesco ad accedere ad un campo long (l'equivalente alla definizione di text
su SQLServer).
Il recordset viene effettivamente istanziato ma non si riesce ad accedere al
campo definito come long; l'errore č
"errore sconosciuto"
Testando la SELECT su ODBC Tester su Oracle viene restituito nel contenuto
del campo definito come long la seguente stringa:
<<errore>>
gli altri campi invece vengono correttamente restituiti.
Cosa devo fare ?!
Grazie, ciao
    Aldo

 "errore sconosciuto"
Guarda un po' se puo' servire:
http://support.microsoft.com/default.aspx?scid=KB;en-us;q185958
HOWTO: Use ADO GetChunk/AppendChunk with Oracle for BLOB Data
--
hth, hal
non faccio gli shorter link, io ;-)
--------------------------------
Inviato via 
http://usenet.libero.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Cerco manuale

Cerco manuale rapido per Visual Basic, magari in formato word o simile...
Grazie















 wrote:
Cerca in questo sito
http://www.developer.com/reference/r_library.html
bye


Newsgroup: it.comp.lang.visual-basic
Titolo: VBA e muovere il puntatore del mouse...

Salve a tutti,
per rendere piu' facile la creazione di una rivista, sto scrivendo un
piccolo modulo per Publisher 2002, con il VBA. Sono ad un punto in cui ho la
necessita' che venga selezionata una certa text box, per poterci scrivere
dentro. Per chi non conoscesse Publisher, per ottenere questo, basta andarci
con il mouse sopra e fare click (e' lo stesso meccanismo che avvienene per
le celle di Excell). Il problema e' che le text box di Publisher non hanno
un identificativo unico, e credo non esista una funzione apposita che
consenta di selezionarne una, tramite VBA. Allora ho pensato che , per
aggirare il problema, potevo usare la soluzione, meno elegante, ma efficace,
di portare il puntatore del mouse alle coordinate della text box e fargli
fare "click". Purtroppo, leggendo la documentazione del VBA, non ho trovato
nulla a riguardo.
Si puo' fare?
Grazie in anticipo!

 ha scritto nel messaggio
news:bjp41c$o66$1...@nntp.weblinea.it...

Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As
Long) As Long
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As
Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = &H2 '  pulsante sinistro premuto
Public Const MOUSEEVENTF_LEFTUP = &H4 '  pulsante sinistro rilasciato
Public Const MOUSEEVENTF_RIGHTDOWN = &H8 '  pulsante destro premuto
Public Const MOUSEEVENTF_RIGHTUP = &H10 '  pulsante destro rilasciato
Public Type POINTAPI
        x As Long
        y As Long
End Type
Public PosCurs As POINTAPI
----------- x muovere il mouse:
  ris = SetCursorPos(600, 170) ' posizione
  mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 '  pulsante sinistro premuto
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '  pulsante sinistro rilasciato
Newsgroup: it.comp.lang.visual-basic
Titolo: String Match

Ciao a tutti...
cercavo su google ma apparentemente non trovo quello che cerco...
vorrei sviluppare una funzione che date 2 stringhe ne calcoli il match dando
uno score... ad esempio:
stringa1=pippo
stringa2=pippo
score=100
stringa1=pippo
stringa2=pippa
score=80
Tutto questo non mi sembra molto difficile, anzi, così scrivendo m'è già
venuta in mente una possibile soluzione ma... 
secondo voi, utilizzando un db access, sarà possibile poi cercare tramite
istruzione sql i record che data una stringa1 hanno score superiore a n???
il provider jet supporterà la chiamata a moduli definiti nel file mdb?

 il provider jet supporterà la chiamata a moduli definiti nel file mdb?
Credo di sì.
Ciao
Alberto
-- 
Autore di
"Petting for Dummies"

Mi rispondo da solo all prima domanda...
girovagando (
http://www.merriampark.com/ld.htm
) ho trovato questo bellissimo
algoritmo:
Distanza di Levenshtein
'*******************************
'*** Get minimum of three values
'*******************************
Private Function Minimum(ByVal a As Integer, _
                         ByVal b As Integer, _
                         ByVal c As Integer) As Integer
Dim mi As Integer
  mi = a
  If b < mi Then
    mi = b
  End If
  If c < mi Then
    mi = c
  End If
 
  Minimum = mi                        
End Function
'********************************
'*** Compute Levenshtein Distance
'********************************
Public Function LD(ByVal s As String, ByVal t As String) As Integer
Dim d() As Integer ' matrix
Dim m As Integer ' length of t
Dim n As Integer ' length of s
Dim i As Integer ' iterates through s
Dim j As Integer ' iterates through t
Dim s_i As String ' ith character of s
Dim t_j As String ' jth character of t
Dim cost As Integer ' cost
 
  ' Step 1
 
  n = Len(s)
  m = Len(t)
  If n = 0 Then
    LD = m
    Exit Function
  End If 
  If m = 0 Then
    LD = n
    Exit Function
  End If 
  ReDim d(0 To n, 0 To m) As Integer
 
  ' Step 2
 
  For i = 0 To n
    d(i, 0) = i
  Next i
 
  For j = 0 To m
    d(0, j) = j
  Next j
  ' Step 3
  For i = 1 To n
 
    s_i = Mid$(s, i, 1)
    ' Step 4
 
    For j = 1 To m
 
      t_j = Mid$(t, j, 1)
 
      ' Step 5
 
      If s_i = t_j Then
        cost = 0
      Else
        cost = 1
      End If
 
      ' Step 6
 
      d(i, j) = Minimum(d(i - 1, j) + 1, d(i, j - 1) + 1, d(i - 1, j - 1) +
cost)
 
    Next j
 
  Next i
 
  ' Step 7
 
  LD = d(n, m)
  Erase d
End Function

 Con Access non so.
Ho provato...
ho creato il modulo in access e c'ho messo la funzione:
Public Function LD(ByVal s As String, ByVal t As String) As Integer
poi ho creato la query che ho chiamato LEVDIST:
SELECT ID,CAMPO1,LD(CAMPO1,'pippo') AS LD_DISTANZA FROM TABELLA;
Da access, se apro la query, funziona...
Da vb, con ADO 2.7...
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;data source=C:\pippo.mdb;"
Set rs = CN.Execute("SELECT * FROM LEVDIST")
Mi esce l' errore:
Errore N° -
2147217900
: Funzione 'LD' non definita nell'espressione.
e io mi domando... perché?
Newsgroup: it.comp.lang.visual-basic
Titolo: Contare le Parole

Salve a tutti...
ho un file di testo con dentro la parola "Pippo" che si ripete un tot di
volte....
come faccio a sapere quante volte si ripete questa parola ?
un salutone e grazie a tutti voi...
joker.

 wrote in message
84dc34$2hmg$1...@stargate1.inet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] DING quando eseguo routine personale - perche'?

Eccomi qui con la prima domandina: ho un form con una textbox dove inserisco
dei valori.
Premendo il tasto Enter (rilevato  tramite KeyPress) eseguo una sub
dove vengono eseguiti dei calcoli e quindi scritti all'interno di
due label.
Il tutto funziona correttamente ma ogni volta che premo enter e la routine
viene eseguita si sente il suono predefinito di win, il ding.wav .
Se implemento un commandButton al posto della rilevazione del tasto Enter e
quindi le funzioni da eseguire vengono messe in una
     Private Sub nomeCommandButton_click
anziche' in una
     Sub nomeRoutine()
il ding  scompare.
Perche'??  Dov'e' l'errore?
Ditemi se devo postare il codice.
Grazie, ciao.
--
__   __   __          __   __  _
|__  |__|   |    |    |  |__|  |_   |  \
__|  |    |   |    |__|  |  \_  |__ |_/

 Ditemi se devo postare il codice.
Controlla in pannello di controllo a cosa è associato il ding.wav Di solito
lo senti quando un programma non sa cosa fare dell'input di un utente. Ad
.es. se tenti di usare INVIO in una textbox che non ha la proprietà
multiline impostata a True sentirai il din, perchè la textbox non saprà che
farci del tuo INVIO.
Cmq se tutto funziona non dovrebbe essere un errore...(anche io sono un
principiante).




[megacut]
Dopo aver intercettato l'enter prova a settare il KeyAscii = 0
--
Ivan Castellaro
Mettere un punto tra nome e cognome per l'e-mail.
ivancas...@libero.it

Newsgroup: it.comp.lang.visual-basic
Titolo: qual'era il comando?

per trasformare il risultato di una divisione nell'intero piu grande??
non approssimato per difetto, ma l'intero sucessivo esempio 3/2=2
2,9/2=2    in maniera che = o inferiori di 0,5 vengano trasormati all'unita
sucessiva (1)
grazie
Paolo
non ricordo il comando e quindi non so che cercare nel help cint() non fa
cio che vorrei

 sucessiva (1)
Guarda INT e ROUND
_____________________________________________
James Tiberius Kirk, matricola SC 937-076 CEC
  Nato a Riverside, nello Iowa, USA, Terra
            il 1277.1 (26/03/2233)

 ha scritto nel messaggio
news:aro3bp$ked8j$1...@ID-128507.news.dfncis.de...

dim numero as integer
dim divisore as interger
if numero/divisore-Int(numero/divisore)<>0 then
    numero = Int(numero/divisore)+1
end if
Puň andare?
E' la prima volta che do un siggerimento in codice. Spero di non essere
stroncato.
Io faei cosě, magari non č pulitissimo ma funziona...
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Evento con suono

Salve a tutto il NG
che funzione potrei usare per poter generare un suono mp3 o wav al 
verificarsi di un msgbox?
Ringrazio tutti per le info 

non usare l'ocx MCI .
Usa l' Api   sndPlaySound 
con il parametro   SND_ASYNC    che di dà l'asincronia
sennò prima della fine del suono non ti viene processato
il codice successivo (che presumibilmente sarà quello 
che fa apparire il msgbox).


 che fa apparire il msgbox).
Ho usato appunto quest'API....ma il suono non è continuo...viene eseguito 
solo una volta :-( 

hai provato con la costante
Const SND_LOOP = &H8
che assicura il loop ?
usale così:
SND_ASYNC or SND_LOOP
qui c'è l'esempio completo:
http://gpwiki.org/index.php/VB:Tutorials:WINAPI:Playing_WAV_Sound_Files


 
http://gpwiki.org/index.php/VB:Tutorials:WINAPI:Playing_WAV_Sound_Files
Si si...l'ho utilizzato cosě ma non mi esegue sempre il suono :-( 


Ok
provo e ti faccio sapere
Grazie mille!!!

Newsgroup: it.comp.lang.visual-basic
Titolo: Database e tipi di campo

Ho aperto un database Access facendo uno di un oggetto Data
con l'istruzione
Debug.Print Data1.Recordset.Field(0).Type
Ottengo il valore 7 ... cosa vuol dire?
Sulla guida in linea non riesco a trovarlo a che tipi di variabile si
riferisce?

Dentro IDE VB premi il tasto F2, selezioni la libreria DAO, nella lista di
sinistra selezioni la voce DataTypeEnum e avrai alla destra le relative
costanti di tipo la cui decodifica numerica la leggi nell'area inferiore.
comunque 7=campo con dati di tipo Double
Bye
Newsgroup: it.comp.lang.visual-basic
Titolo: apertura file random

Salve a tutti.
Ho un problema, probabilmente da newbie :-) :
ho un file testuale, di cui devo leggere la 123esima riga, la quale è fatta
così:
name=Nome Cognome
La mia idea era quella di aprire il file in modalità random, ovvero :
Private Type record
nome As String * 30
End Type
Private Sub Form_Load()
Dim dato As record
Dim recordLength As Integer
recordLenght = LenB(dato)
FileName = "testo.txt"
Open FileName For Random Access Read Write As #1 Len = recordLength
Get #1, 123, dato
Close #1
End Sub
Tuttavia mi dice "Chiamata di routine o argomento non valido"
Come posso fare dunque per memorizzare la 123esima riga, in quel "dato"?
Grazie in anticipo.
J.

Open FileName For Random Access Read Write As #1 Len = recordLength
  Qui cerchi di aprire un file con Len=0 e chiaramente si incazza un
pochino.
-- 
  Ciao :-)
  Massimo
  Nell'indirizzo, sostituire "micio" con "mc"

 pochino.
Grazie per avermelo fatto notare :-)
Ora riesco ad accedere correttamente al file. Però non so perchè, invece che
andare alla linea 123, il programma balza alla linea 261, e mi stampa metà
di quella riga, e le due righe successive... (le ho messe in una textbox)
:-/ Non esattamente quello che mi sarei aspettato...
Idee?
Grazie,
J.

 cosě:
Non so se intendevi una cosa del genere...
Ciao,
R.
Sub leggi_123ma()
    Dim obj, file, memo, row, filename
    filename = "iltuofile"
    row = 1
    Set obj = CreateObject("Scripting.FileSystemObject")
    Set file = obj.OpenTextFile(filename, 1, True, TristateFalse)
    Do While Not row = 123
        file.readline
        row = row + 1
    Loop
    memo = file.readline 'Qui resta memorizzata la 123ma riga
End Sub
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Idee?
  Occhio che il concetto di record e' totalmente differente da quello
di linea quindi se tu hai scritto il file in record da 30 caratteri
ciascuno va bene, altrimenti e' inevitabile che tu legga qualcosa di
diverso da cio' che ti aspetti perche' lettura e scrittura non sono
coerenti tra di loro e ovviamente la soluzione consiste proprio nel
prestare attenzione alla coerenza tra cio' che viene scritto e cio'
che viene letto.


 CUT!
Grazie mille, funziona perfettamente :-)
Ciao,
J.

 J.
Prego, ciao !
R.


Ricordati di mettere un controllo sull'eof !
Se non ci fosse la 123ma riga in qualche file
ti verrebbe restituito un errore...
Ciao,
R.

Newsgroup: it.comp.lang.visual-basic
Titolo: Buffer

Posso leggere dei valori dal Buffer ?


Il buffer de che? :-)
Gianni Moretti

"Pipe Buffer" o anche "Canale Buffer"

se hai bisogno di aiuto io non darei per scontato il fatto che tutti
sappiano cos'č un buffer e/o dove si trova sul pc
tanto per chiarire un pc č stracolmo di buffers, dalla cpu al gdi, alle
porte fino a buffers software che uno si puň creare da se (z-buffers
c-buffer e affini)
di Pipe ce ne sono anche di piů.. visto che sono gli step procedurali che un
determinato processo compie.
Non me ne volere, prendilo come consiglio.. ma se hai chiesto qualcosa..
sforzati di essere il piů possibile chiaro
la tua domanda, a mio parere č l'equivalente di :
"chi mi aiuta a risolvere questa sub?"
forse manca qualcosa non credi?
Fabio Guerrazzi

 wrote in message
news:8M5r5.11112$Wi7.1...@news.infostrada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] Disegnare Griglia su form

Come da oggeto, mi serviva una chimata alle API per poter disegnare una
griglia su form stile editor di VB6.
Dovrei avere anche la possibilità di variare la grandezza della griglia
e/o eliminare a richiesta.
Grazie
Mauro

 ha scritto nel messaggio
news:KXgeb.692$NJ1....@twister2.libero.it...

Per cose semplici puoi anche farlo in VB "liscio", specie se non hai bisogno
di una griglia particolarmente fitta, che quindi richiede il disegno di
moltissimi punti.
Crea una form vuota con un checkbox e incolla questo codice:
Private Sub Check1_Click()
If Check1.Value = vbChecked Then
    Me.Refresh
Else
    Me.Cls
End If
End Sub
Private Sub Form_Paint()
Dim dotsX As Integer
Dim dotsY As Integer
Dim i As Integer, j As Integer
'Nel tuo caso ovviamente questa e' una variabile
Const size = 100
'la velocita' risulta accettabile fino ad una densita'
'di 75/50 anche perche' qui stiamo usando un metodo
'"brute force" che rigenera sempre l'intera griglia
'Per i refresh successivi si puo' ottimizzare ulteriormente
'utilizzando AutoRedraw=True e nel caso di una form ridimensionabile
'generando solo i punti che mancano quando aumentano le dimensioni
If Check1.Value = vbChecked Then
    dotsX = Me.ScaleWidth \ size
    dotsY = Me.ScaleHeight \ size
    For i = 0 To dotsX
        For j = 0 To dotsY
            PSet (i * size, j * size)
        Next
    Next
End If
End Sub
In ogni caso ottenere la versione piu' veloce che fa uso di API e'
sostanzialmente indolore, con l'uso della funzione SetPixel invece di PSet e
le solite conversioni da twips a pixel...
Ciao
-- 
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

Newsgroup: it.comp.lang.visual-basic
Titolo: frm20.hlp

qualcuno sarebbe cosě gentile da inviarmi frm20.hlp, la guida per Microsoft
Forms 2.0 ? non so perche, ho la libreria ma non la guida.
grazie
Mario (
priv...@yahoo.com
)

 qualcuno sarebbe così gentile da inviarmi frm20.hlp, la guida per


qualcuno me lo ha mandato, ho provato a ringraziarlo, ma il messaggio non è
arrivato, forse dovevo togliere qualcosa dell'e-mail... boh... in ogni caso
grazie.
Mario
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Interfacce IActiveScript

Ciao a tutti,
    Sto guardandomi le interfacce di scripting del WSH.
    M$ dice quanto riporto qui sotto.
    La mia domanda è: ma come cavolo faccio a utilizzare 'ste interfacce?
    Dove le trovo?
----------------------------------------
To implement an ActiveX™ Scripting engine, create an OLE COM object that
supports the following interfaces.
IActiveScript
    Provides the basic scripting ability. Implementation of this interface
is required.
IActiveScriptParse
    Provides the ability to add script text, evaluate expressions, and so
on. Implementation of this interface is optional; however, if it is not
implemented, the script engine must implement one of the IPersist*
interfaces in order to load a script.
IPersist*
    Provides persistence support. Implementation of at least one of the
following interfaces is required if IActiveScriptParse is not implemented.
    IPersistStorage
        Provides support for the DATA={url} attribute in the OBJECT tag.
    IPersistStreamInit
        Provides support for the same asIPersistStorage as well as the
DATA="string-encoded byte stream" attribute in the OBJECT tag.
    IPersistPropertyBag
        Provides support for the PARAM= attribute in the OBJECT tag.

     Dove le trovo?
[cut]
Non mi e' chiara una cosa. Vuoi scrivere un tuo script engine o vuoi
utilizzare WSH in una tua applicazione?
Quelle che hai postato sono le interfacce che uno script engine deve
implementare per poter essre utilizzato da WSH.
In questo caso su MSDN c'e' una descrizione completa di tutte queste
interfacce.
Comunque la vedo dura (se non impossibile) fare cio' in VB.
Ciao

Comunque la vedo dura (se non impossibile) fare cio' in VB.
Beh, sì... un po' complessa, ma non impossibile.
Ciao

 Sempre con linguaggio vbscript (e eventualmente jscript).
Mi sembra ci fosse un articolo proprio su questo (con relativo codice -
ma non mi ricordo se in VB od in C++) su MSDNMag, se lo trovo ti posto
il link.
Ciao.

il link.
Mi faresti un favore.
Ma cos'č MSDNMag?
Grazie, Ciao

 Ma cos'è MSDNMag?
http://msdn.microsoft.com/msdnmag/default.asp
Ciao.
Newsgroup: it.comp.lang.visual-basic
Titolo: Offertissime MP3 - Software Italiano - Twilight ed altro...guardare non costa niente.....

ULTIMISSIME NOVITA 23/2/99
DA 
itali...@bigfoot.com
IN ARRIVO TWILIGHTS 33!!
ARRIVATI
RHOBY MP3 #6  (litfiba - cher - gino paoli - gemelli divers - goo goo
dolls - ecc.)
in arrivo la #7
Money '99
Winfax 9.0 ITA
Superenalotto
Sig's Mir (corso di tedesco)
Adobe Illustrator 8 (2CD) ITA
Richiedete di essere inseriti nella MAILING LIST!
riceverete aggiornamenti sul software disponibile.
Oppure:
prendete la lista al: 
http://members.xoom.com/RHOBY2/
(ATTENZIONE RHOBY DEVE ESSERE MAIUSCOLO!!!)
Richiedete di essere inseriti nella Mailing List per sapere cosa e' in
arrivo
=========================CD-ROM SOFTWARE===========================
Inoltre disponibili altre raccolte e titoli vari
prendete la lista al:
http://members.xoom.com/RHOBY/
================================
ATTENZIONE!
CONSEGNE:
X MILANO
inoltre consegne in milano solo alla metro' (bisceglie o Molino Dorino)
X FUORI MILANO
L.15.000 (fino a 100.000) L.20.000 (oltre)  spedizione Raccomandata  con
contrassegno 3gg.
POSTACELERE:
fino a 4CD  L.28.000
fino a 8CD  L.34.000
fino a 18CD  L.40.000
fino a 38CD  L.46.000
Attenzione postacelere consegna entro il giorno successivo alla spedizione.
==============================
E-mail:itali...@bigfoot.com
==============================

 wrote in message
7avb3r$onr$4...@fe1.cs.interbusiness.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Versione Word

Salve a tutti,
c'è un modo in VB per sapere se Word è installato sul pc ed eventualmente la
sua versione ?
Grazie
Adriano


Leggi nel registry le chiavi relative.
ciao
ugo


cosě su due piedi, prova la seguente funzioncina:
Public Function MsWordVersion() As String
    Dim strVersion As String
    Dim objWordApp As Object
    On Local Error GoTo err_MsWordVersion
    Set objWordApp = CreateObject("Word.Application")
    strVersion = objWordApp.Version
resume_MsWordVersion:
    MsWordVersion = strVersion
    Exit Function
err_MsWordVersion:
    strVersion = ""
    Resume resume_MsWordVersion
End Function
ciao

 ha scritto nel messaggio
news:9k3ie1$2bcps$1...@ID-92828.news.dfncis.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: MARGINE SINISTRO NELLA STAMPA SU CARTA

ALED
HO GIà UTILIZZATO LA PROCEDURA CHE MI SUGGERISCI, CHE VA BENE PER LA PRIMA
RIGA DI STAMPA, MA LE SUCCESSIVE SONO TUTTE SBAGLIATE.
iL MIO PROBLEMA , SE TALE E', SAREBBE QUELLO DI NON DOVER INSERIRE PER OGNI
RIGA DI STAMPA LA FUNZIONE TAB (X), DOVE X STA PER IL NUMERO DEGLI SPAZI DA
SALTARE A SINISTRA.
GRAZIE
GIAP

 DEGLI SPAZI DA SALTARE A SINISTRA.
Con Printer dimentica il concetto di spazi, righe e colonne.
Non usare il Tab(x) (che nessuno ti ha consigliato in quel topic), ma sempre
e solo Current<X Y>.
Newsgroup: it.comp.lang.visual-basic
Titolo: mono e visual basic

Ma per scrivere un applicazione in visual basic che giri su linux
posso usare mono?
Ma se la scrivo con .net 2005 poi lo stesso codice funziona su mono?
Dovendo scrivere un applicazione visual basic che funzioni su linux, o
meglio sia su windows xp che su linux, com'è meglio procedere?
Grazie

 meglio sia su windows xp che su linux, com'è meglio procedere?
Visual Basic 6? Lascia perdere... potresti provare ad emularla con Wine, 
ma i risultati sono spesso frustranti.
Nicola


Mi riferivo a Vb.net.
Scusa ma non sono un conoscitore del framework.
Ci sono anche oggetti che accedono alle periferiche di cattura video?
(WEBCAM, BT878, SCHEDETV)? E questi oggetti sono implementati anche
dentro mono?
Adesso vado OT
Sto gia testando sotto wine un'appplicazione scritta in visual C che
fa analisi di flussi video, ma abbiamo molte difficolta a far girare
il pin preview del directshow, i 3 sviluppatori del progetto wine che
si sono interessati della parte di cattura video (e hanno fatto
funzionare msn) danno informazioni contraddittorie tra loro, l'ultimo
con cui ho parlato mi dice che il pin preview è stato implementato e
dovrebbe andare...  ma di fatto a me non funziona, ne sai niente?
Al momento ho aperto un bug su bugzilla, inizialmente l'avevo messo a
severity critical (volevo che si vedesse bene), ma poi me l'hanno
cambiato cazziandomi. ehehehe :-)
Pensa... tanto per conludere, ho un'altra applicazione (figlia di
questa) che non cattura, ma riceve i flussi in streaming dalla prima e
fa un uso spinto del rendering e non ci crederai ma sotto wine
funziona egregiamente senza errori.
Va beh...
Grazie mille.
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: DB su CD

Qualcuno ha mai provato ad utilizzare un MDb su un CD rom?
In particolare sto realizzando un catalogo multimediale basato un un MDB con
collegate delle immagini. Il tutto dovrebbe poi essere messo su un bel CD ed
essere eseguito da lì sopra senza quindi fare una installazione sul PC.
Il dubbio che mi è venuto è questo: funzionerà?
Eventuali file temporanei dove verrebbero creati?
Aspetto lumi.
Ciao Franco

...

Tieni presente che su un cd-rom i file sono di sola lettura, quindi devi
aprire il database in modo esclusivo e in sola lettura.
Ciao Bruno


Tutto qui? O bisogna prevedere qualche altra cosa?
Ciao e grazie

...


...

Newsgroup: it.comp.lang.visual-basic
Titolo: Compattare db Access

Ho la necessità di compattare un db Access da programma. Come posso fare ?
Grazie e buona giornata.

 Ho la necessità di compattare un db Access da programma. Come posso fare ?
http://groups.google.it/groups?hl=it&group=it.comp.lang.visual-basic
- nella casella di ricerca digita Compattare
- Cerca solo in it.comp.lang.visual-basic 
ed effettua la ricerca.
giuseppeD
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Database Lotus Notes .nsf

Sapete come fare ad aprirli ?
Grazie

Lo puoi aprire con lotus notes, o se vai all' url 
notes.net
 e vai nelle 
discussion lo puoi accedere tramite browser.
Guido

Scusa avevo capito che volevi vedere un db di discussion della lotus, cmq 
i file .nsf sono db apribili solo con Lotus Notes.

Newsgroup: it.comp.lang.visual-basic
Titolo: Come si passano gli array!

Salve ragazzi,
vorrei sapere se fosse possibile passare un array come  parametro di una
function o di una sub tanto kredo si uguale!
Ad esempio:
dim pippo(0 to 3) as integer
pippo(0)=12
pippo(1)=13
pippo(2)=14
e poi avendo una funzione ke deve calcolare, ad esempio, la media di questi
numeri.
funcction ( ......)
é ovvio ke non vorrei elencatli tutti se sono più di 10 inizia ad essere un
po' poco efficiente la cosa!
Un saluto michele!

 wrote in message
mFmB5.47453$3R6.1...@news.infostrada.it...


 é ovvio ke non vorrei elencatli tutti se sono piů di 10 inizia ad essere


 function o di una sub tanto kredo si uguale!
Dichiara il parametro come variant.
-vibino
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] i DB mi fanno incazzare (Query troppo complessa)

Ciao !!!
Dunque, continua la mia saga con i Database in formato MDB.
Ho usato il Wizard per creare un applicazione che contiene anche una
griglia, dove "pesco" dei dati da un database in formato Access. Il
suddetto database ha una singola tabella con 51 campi.
Quando tento di modificare un dato esistente, dal programma ottengo di
tutta risposta un bel "Query troppo complessa".
Ora...ho provato a far "pescare" i dati da un altro database, che a
differenza del primo é organizzato su piu tabelle e fa uso di indici per
le relazioni, e pare che con quest'ultimo funzioni.
La mia domanda é : Il problema dell'errore "Query troppo complessa" é
dovuto al fatto che uso un database con troppi campi in una tabella
sola, o c'e' modo di sviare a questo senza dover rifare tutto il mio
programma ?
Grazie per aver letto il mio messaggio !!
DaVe

Ciao, DaVe (sembra una saponetta) >;>)
Il problema delle query troppo complesse (con il quale ho avuto vari faccia
a faccia) può purtroppo dipendere da diversi fattori.
Innanzi tutto dipende dalla versione di access, piu è vecchia più limiti ci
sono, poi controlla di non aver superato anche uno solo dei limiti imposti
da access (qui sotto ti riporto quelli documentati per access 97).
Di solito in tabelle di quelle dimensioni (51 campi !!! ma sei sicuro di non
poter normalizzare meglio il database??) vengono facilmente violati i limiti
di 64.000 caratteri o 40 AND, in alcuni casi il problema potrebbe consistere
in nomi di campi troppo lunghi, che moltiplicati per il loro numero fanno
saltare ogni piu rosea previsione di contenimento, in questi casi ho
risolto, parzialmente, dando ai campi un nome simbolico, ma moooolto corto,
creando però contemporaneamente una legenda che provveda a esplicarne il
significato.
Il problema è sicuramente il numero di campi ma solo in quanto ti fa
superare uno dei limiti, lo dimostra il fatto che se "spezzetti" la tabella
(soluzione vivamente caldeggiata) funziona tutto
Limiti documentati X ACCESS 97
Numero di relazioni imposte ; 32 per tabella meno il numero di indici
presenti nella tabella per campi o combinazioni di campi non compresi nella
relazione
Numero di tabelle in una query ; 32
Numero di campi in un set di record ; 255
Dimensioni del set di record ; 1 gigabyte
Limite di ordinamento ; 255 caratteri in uno o più campi
Numero di livelli di query nidificate ; 50
Numero di caratteri in una cella nella griglia di struttura della query  ;
1.024
Numero di caratteri per un parametro in una query con parametri ; 255
Numero di AND in una proposizione WHERE o HAVING ; 40
Numero di caratteri in un'istruzione SQL circa ; 64.000
Ciao, AxelMet alias Axel

 wrote in message
37D2CE3B...@ticino.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: Precisione Timer

Con VB 4 su Windows 95 (200 MMX) ho la necessità di controllare in maniera
sufficientemente precisa lo scorrere del tempo per emettere un suono (tipo
metronomo) usando dei pediodi di tempo > di 250 millesimi di secondo.
Provando con il controllo TIMER però non riesco ad ottenere una uniformità
adeguata (a volte si avvertono dei considerevoli ritardi )
Usando un loop che controlla lo scorrere del tempo ottengo buoni risultati
solo se non uso il DOEVENTS. Il problema è che ho bisogno sia di
intercettare l'evento del pulsante di STOP per interrompere il loop sia di
permettere al controllo multimediale di "playare" il suono...
Grazie fin d'ora.

 ha scritto:

Con il controllo timer (che poi usa il timer di Windows) hai una precisione teorica di 1ms. Penso che per 250ms non dovresti avere problemi. Naturalmente devi essere sicuro di emettere un beep piu' corto di 250ms perche' altrimenti e' probabile che ti perdi il sucessivo evento del timer.
Per tempi piu' brevi io in genere usavo dei cicli che all'inizio del programma "calibravo" contando ad es. per 1 secondo.
Certo che con VB hai il problema dell'interfaccia utente che si blocca. Dovresti usare il C++ con piu' thread.
Antonio

Newsgroup: it.comp.lang.visual-basic
Titolo: [1/2 OT] Ordinare un listview per data: NON ci posso credere

Devo ordinare un listview per un campo data. Ho trovato l'esempio sia sul
MSDN che su
http://www.mvps.org/vbnet/index.html?code/callback/lvsortcallback.htm
 (da
ricerca su NG)
Funziona, ma non ci posso credere che ci voglia tutto questo codice per fare
un ordinamento per data.
Hubert

 Devo ordinare un listview per un campo data.
Io ho inserito una colonna di larghezza 0 con la data in formato numerico
(credo usando CDbl(datadaconvertire)), e poi ordino la listview rispetto a
quella colonna. Perņ se l'utente gioca con le colonne puņ capitare che sia
mostrata.
Ignazio


stic@@ mi sembra esagerato!!
Io solitamente uso questo piccolo stratagemma, e cioè mi creo nella listview
un campo nascosto in cui metto la data nel formato YYYYMMDD. Poi nell'evento
ColumnClick della listview gestisco i vari SortKey e SortOrder... sono poche
linee di codice e funziona, bene.
cmq, se hai già risolto ;-)

Newsgroup: it.comp.lang.visual-basic
Titolo: ~~ VB5 SOFTWARE ~~

2700 ACCESSI IN MENO DI 50 GIORNI !!!
[..]
Sito Comune:
piů di 1000 accessi a settimana ;-)))))
http://www.murialdo.it/it_lang_vb
--
WebMaster del Sito Comune del newsgroup it.comp.lang.visual-basic
( 
http://www.murialdo.it/it_lang_vb
 )
"Quando pensi ad un paese migliore, pensa che puoi costruirlo"
Carabinieri - L'arma della gente


http://www.murialdo.it/it_lang_vb
Mio Sito.....
6 decessi al secondo ............ ehehehe
bye

6 decessi al secondo ............ ehehehe
Scusate tutti per l'OT: so che non dovrei farlo, ma dovevo dirtelo....
Mi fai schiantare!!!! ^___^
A proposito... 7 decessi... ;-)))))
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)
Newsgroup: it.comp.lang.visual-basic
Titolo: [ot] winfax

qualcuno conosce un winfax free e che funzioni decentemente ?
con quello di win2k sembra che non riusciamo a capirci.
grazie, a.

 e che funzioni decentemente ?
Ah, allora no. :-(
Ne ho provati mezza dozzina, vigliacco se ne ha funzionato
uno in maniera decente. E pensare che mi serviva una cosa
proprio semplice: ricevi e stampa, punto.
Alla fine ho smanettato fino a far funzionare quello di win,
ma solo quello sotto 98. Beh, funziona _quasi_ sempre...
Magari dai un'occhiata a StupidFax, era il più affidabile:
http://www.maxmax.com/aDownloadStupidfax.htm
Bye, G.

Newsgroup: it.comp.lang.visual-basic
Titolo: Ordinare record

Come ordinare i record di una tabella dbgrid, in base al
campo desiderato?
(ho 5 campi)
Grazie.

...

Newsgroup: it.comp.lang.visual-basic
Titolo: SOAP + VB + ASP

Vorrei gestire un database remoto (Access MDB) con SOAP tramite un client
VB e pagine ASP sul server IIS 5.0.
Non sono riuscito a trovare un esempio di codice (VB6 e ASP) sul WEB: ciň
mi stupisce perchč credo che la cosa sia tecnicamente possibile e con
eccellenti prestazioni.
Qualcuno sa darmi qualche indicazione ?
Grazie anticipatamente.
Marcabru
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

eccellenti prestazioni.
Perfettamente d'accordo.
-- 
ciao, hal

 Perfettamente d'accordo.
Grazie delle informazioni (sono comuque riuscito a trovare i 2 articoli da
te segnalati).
Quanto all'acquisto di 
vb.net
 ... spero esista una vantaggiosa offerta di
upgrade da VB6 Pro.
Grazie ancora.


 </flame>
Intendi dire per chi incronizza/scarica i messaggi e legge fuori linea?

 la gente che occorre assolutamente acquistare visual studio .net?
LOL, triste ma vero.
Bye, G.

Intendi dire per chi incronizza/scarica i messaggi e legge fuori linea?
Esatto !
-- 
ciao, hal

Firulì, firulà, trollallero, trollallà... :-)
Beccati con uno SGRUNT di roaliana memoria ;-)
-- 
ciao, hal

 Esatto !
Sbaglio o sei uno dei due liguri? (l'altro ha una H come te nel nick, fonte
J o mi sbaglio clamorosamente) ;-)
Seriamente: Hai ragione, io spendo un tot (come te, con 56K e connessione a
euro/minuto) per abitudine e un po' di scelleratezza. Certamente sei meglio
abituato di me.

 nel nick, fonte J o mi sbaglio clamorosamente) ;-)
Ed anche un P ed una L....
Ciao.
--
BSD is for UNIX lovers - linux is for Windows haters

 </flame>
se, invece di ringraziare per la pena che uno si da' (clic vari,
attese, copiaincolla, tutto a favore altrui) ti azzardi anche con me,
appena torno giu' ti blocco l'aurelia per un mese con tre link di
google non compattati.
--
ciao, j.
http://tinyurl.com/2l7w
nessuno shorterlink :P

Una semplice osservazione, senza voler scatenate polemiche:
Ho fatto un post ed questo ha causato, senza mia colpa, un seguito di
altri 8 o 9 post, UNO SOLO dei quali (quello del garbato Hal) era
pertinente, gli altri erano solo .... 
Grazie ancora a chi mi ha risposto.


 Marcabru
j.arnaut.daniel

ti danno informazioni molto piu' precise ?
Si': mi insegna quali


google non compattati.
Fai pure: tanto per lo piu' e' un problema di OE :-PP
-- 
ciao, hal

Pieta', mi e' partito il click a tradimento :-(
Newsgroup: it.comp.lang.visual-basic
Titolo: Proprietà di default di un controllo custom

E' possibile impostare in un controllo custom una proprietà di default che
venga utilizzata tutte le volte che si chiama quel controllo senza ulteriori
specificazioni?
Insomma, vorrei fare quello che avviene per i controlli standard, e cioè una
cosa del tipo:
Text1 = "Stringa"
Invece che Text1.Text = "Stringa"
Si può fare?

 specificazioni?
Usa il PropertyBag del controllo...
-- 
"Mr. Worf, scan that ship."  "Aye, Captain... 300 DPI?
News 2002 [v 2.07] / StopDialer / PopDuster - 
http://www.socket2000.com
Akapulce portal: 
http://www.akapulce.net

 ha scritto nel messaggio
news:SMl3g.95888$A83.2...@twister1.libero.it...

Certo che sì.
Dal menu Tools, Procedure Attributes, seleziona la proprietà che vorresti
diventasse quella default. Premi Advanced, poi nel combo Procedure ID scegli
la voce "(Default)".
Bye
Raf

 Dal menu Tools, Procedure Attributes, seleziona la proprietà che vorresti
Tnx... funziona perfettamente.

Newsgroup: it.comp.lang.visual-basic
Titolo: Picturebox e Testo

Avrei un problema nel disegnare in una picturebox di VB4 del testo inclinato rispetto al piano orizontale. 
Qualcuno mi saprebbe aiutare? 
C'č qualche funzione che possa scrivere in modo ruotato di un certo angolo? 
Grazie per l'aiuto.... 
 
--
Automatic posted from 
ro...@sheila.vip.it
 [194.184.141.2]
via Mailgate Server - 
http://www.mailgate.org

 
Puoi sempre utilizzare un font.... ruotato.





Newsgroup: it.comp.lang.visual-basic
Titolo: meglio VB 5 o 6

come oggetto
Grazie

> come oggetto
Domanda molto discussa.
Secondo me (li ho provati entrambi) sono uguali.
Purtroppo non c'e' piu' ne' supporto ne' documentazione
per il 5.
Attualmente le runtime libraries di vb5 sono fornite con
win98, mentre quelle del 6 no.
--
Fibia "Sakamoto" FBI
URL: 
www.geocities.com/fibiafbi
E-Mail: 
fibi...@hotmail.com
ICQ UIN 63586057

 user control, meglio di vb6;
vero!
;-)))
--
ciao
xAERO

 wrote in message
news:8st6u8$lff36$1...@ID-51253.news.cis.dfn.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal report 5.0 dove ?

Avrei bisogna di una versione demo di crystal report 5.0 o superiore
qualcuno sa dirni dove trovarla ??
Grazie, Mauro.

Prova a telefonare a Questar Italia o vai sul sito della Seagate
software. L'indirizzo dovrebbe essere 
www.seagate.com


Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Rieccomi!

Ciao a tutti!
Sono di nuovo qui dopo un luuuungo periodo di ferie!

 ... un luuuungo periodo di ferie!
Vergognati! ;-)

 Sono di nuovo qui dopo un luuuungo periodo di ferie!
hai spedito le cartoline al sito comune ? ^_^
WelcomeBack
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/


E pensare che non l'ho scelto io, è solo che la variabile integer del
programma che conta le ore di ferie residue per me era andata in
overflow...... ;-)

 WelcomeBack
ThankYou
Newsgroup: it.comp.lang.visual-basic
Titolo: nome variable come valore

salve,
ho necessita di passare il nome di una variabile come valore
es :
Dim Var As Integer
Dim VarName As String
VarName = (nome variabile Var) ??
come faccio ??
grazie1000
eMOeL

 VarName = (nome variabile Var) ??
Be scusa se il codice lo scrivti tu VarName = "Var".
Se invece hai molte variabili e su queste devi fare le stesse operazioni
allora ti conviene usare una matrice (array)
Dim Var() as Integer         'Array dinamico
oppure
Dim VAr(1 to 10) as Integer  
e quindi per richiamarle
Var(1) = ...
Var(2) = ...
Var(indice) = ...
Oppure non ho capito nulla e il tuo problema  è un altro.
Ciao
:-) Hd (-:
p_di...@freemail.it
  (okkio, non è politico ^_^)
hd...@azienda.net
Sito Comune:
www.murialdo.it
\it_lang_vb
----------------------------------------------------------------------------
Quando l'ultimo pesce sarà catturato, l'ultima fiamma sarà 
spenta, l'ultimo fiume avvelenato, solo allora capirete che non 
si può mangiare solo denaro.
-----------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo ADODC

In una form inserisco un controllo dati ADODC, genero la stringa di
connessione, testandola, ecc.
Cerco di creare, usando l'autocomposizione il seguente codice:
Private Sub Ado_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus
As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
inserisco un minimo di istruzioni, lancio l'eseguibile, e ottengo il
seguente errore:
Errore di compilazione
La dichiarazione della routine non corrisponde alla descrizione dell'evento
o della routine con lo stesso nome
Ora.... andando a spanne ho capito cosa (forse) vuol dire: che la chiamata
alla funzione API di cui il controllo ADODC è il parser è sbagliata. Poichè
uso l'evento predefinito generato da VB, vuol dire che questo è un baco ?
Come posso risolverlo ?
Io uso VB6 ent. su NT 4 sp 5. Ho installato le librerie ADO 2.5 (con la 2.1
è lo stesso)
Ringrazio anticipatamente
Saluti
Andrea

 è lo stesso)
Ti spedisco un messaggio che ho spedito nel NG qualche mese fa (l'errore non
compare con ado 2.0).
Bye
Andrea Basso
Oggetto: BACO?
Per ricreare l'errore:
-Form Vuoto,
-ADODC (Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db2.mdb;Persist
Security Info=False)
-textbox
-aggiungete il seguente codice:
Option Explicit
Private Sub datPrimaryRS_MoveComplete(ByVal adReason As
ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As
ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
  'This will display the current record position for this recordset
datPrimaryRS.Caption = "Record: " &
CStr(datPrimaryRS.Recordset.AbsolutePosition)
End Sub
Provate a cambiare la seguente reference:
Microsoft ActiveX Data Objects 2.1 Library  => ERRORE in compilazione
msado15.dll
Microsoft ActiveX Data Objects 2.0 Library  => corretto
msado20.tlb
A seconda della reference settata si ottiene o meno un errore se si esegue
il programma, e sembra che l'errore sia dato dal componente piu' recente ...
Per cui la vecchia libreria non da' l'errore (se la vecchia libreria e' la
msado20.tlb) ... Cosa cambia fra queste 2 librerie? Nel mio programma usavo
msado15.dll, posso cambiarla tranquillamente con la msado20.tlb?
Da notare che il Data wizard aggiunge una reference alla msado20.tlb, per
cui non da' l'errore.
Saluti
Andrea

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

scusate, qual č la proprietą per rednere visibili le colonne di una listview
(in VB6)?

 .Width = x  'visibile
vero, direi, ma questo purtroppo fa si' che l'utente possa volontariamente o
no rendere visibili quelle settate a 0. c'e' un workaround ?
Newsgroup: it.comp.lang.visual-basic
Titolo: immagine jpg a bmp

Ciao a tutti,
esiste un listato o una procedura per convertire un'immagine jpg in
immagine bmp.
Grazie
jlw

 wrote in message
news:0rhevsga9if91ol03...@4ax.com...


 wrote in message
8t7ivn$m88ni$1...@ID-56381.news.dfncis.de...


 wrote in message
news:tigK5.35715$3K3.9...@news.infostrada.it...


 wrote in message
8td1ej$mnh02$1...@ID-56381.news.dfncis.de...


 Ci sarà qualcosa che non va nel mio PC?!?
No, tranquillo, si tratta di azzeccare i parametri.
Per fare le cose piu' sofisticate, ricordo che una volta avevo trovato in
rete (non so piu' dove) un esempio che si faceva il lavoro usando l' API.
Prova a cercare CreateCompatibleDC, StretchBlt, CreateBitmap, DeleteDC su un
buon motore di ricerca tipo altavista.
Ciao
Aldo
==============================
