mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Sono "duro" a capire (per zanna Drag & Drop)

Ho inserito una picture in una form ed ho scritto il seguente codice
Dim OldPosY As Integer
Private Sub Form_DragDrop(Source As Control, x As Single, y As Single)
    Picture1.Left = x
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As
Single, y As Single)
    SetCursorPos x, OldPosY
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As
Single, y As Single)
    OldPosY = Picture1.Top + y
    Picture1.Drag 1
End Sub
purtroppo quando tento di posizionarmi sulla form il cursore sparisce.
La SetCursorPos lavora con coordinate assolute, mentre la MouseMove con
coordinate relative al form?
Inoltre il tutto dovrebbe essere attivo solo durante il dragging e non
sempre.
Esiste una soluzione?
Grazie ancora, Angelo.
--
Posted from 
ns.spm.it
 [194.184.61.10]
via Mailgate.ORG Server - 
http://www.mailgate.org

End Sub
Questo presume che il D&D sia all'interno di una sola win., ma dovresti
farlo cosě:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single,
y As Single)
    dim coeff as double
    dim b as integer
    'PosX1-Y1 sono il punto di partenza, X2-Y2 quello di arrivo.
    coeff = (PosY1 - PosY2) / (PosX1 - PosX2)
    b=PosY2- (coeff * PosX2)
    SetCursorPos X, (coeff * X) + b
End Sub
Se hai ancora problemi postami pure in privato, cosě non ingobriamo il NG
(l'argomento č un po' ostico e probabilmente c'č qualcuno piů esperto di me,
come ad esempio qualcuno che conosca il C)
Ciao.

Newsgroup: it.comp.lang.visual-basic
Titolo: come inserire un DB Access in una applicazione VB

Ciao
sono un pivellino (principiante) di programmazione in VB e vorrei realizzare
le interfacce di gestione di un DB Access
io vorrei fare in modo di vedere il DB Access come un oggetto su cui possa
eseguire poi vari metodi. Ho già visto che esiste una libreria (DAO) che
permette pressapoco di fare quello che voglio ma invocando il metodo
OpenDatabase mi da sempre qualche errore ne ho già provate diverse
ma.............       .........niente da fare!!!! :-(((((((
Potreste darmi delle righe di codice già testate che mi permettano di fare
quello che ho descritto nelle prime righe
                                    Ciao e Grazie in anticipo dal Rosso
......a!!!!!!!!!    Buon Natale e Felice anno Nuovo.
P.S. potreste per favore replicare anche al seguente indirizzo:
e-mail: 
marco.r...@rccr.cremona.it

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

In un piccolo progetto che ho distribuito ad alcuni utenti utilizzo i font
"arial" e "courier new" senza però installarli (do per scontato che siano
presenti sui pc). Uno di questi utenti non ha il "courier new". Come posso
fare a mandargli solo il font senza reinstallare il programma visto che non
riesco a selezionare il font dal mio pc e mandarglielo per e-mail affinché
possa installarlo a sua volta ?
Grazie.

 ha scritto

in che senso non riesci a selezionarlo ?
C:\windows\fonts>dir cour*
 Directory di C:\windows\fonts
COURE    FON        23.424  15/05/98  20.01 COURE.FON
COURF    FON        31.744  15/05/98  20.01 COURF.FON
COURBD   TTF        90.704  15/05/98  20.01 courbd.ttf
COUR     TTF       105.308  15/05/98  20.01 COUR.TTF
COURI    TTF        88.504  15/05/98  20.01 couri.ttf
COURBI   TTF        90.988  15/05/98  20.01 courbi.ttf
         6 file        430.672 byte
dovresti poter copiare i cour*.ttf in una dir temporanea, p.e.
C:\windows\fonts>copy cour*.ttf c:\temp
(sempre che tu abbia c:\temp\ ; seno' quello che preferisci).
poi da \temp li comprimi, li alleghi ecc.
ciao, a.

Newsgroup: it.comp.lang.visual-basic
Titolo: Porta Parallela

Ciao, volevo sapere fino a che livello era possibile gestire la porta
parallela in Vb dato che ho letto che non è gestibile ?!?
Grazie a chiunque risponda :)))
                Bruce

 ha scritto

per w9x c'e' una dll sul sito comune, se non sbaglio win95io.dll o .zip.
per nt, cerca su deja/google un post recente di paperino.
ciao, a.
Newsgroup: it.comp.lang.visual-basic
Titolo: Spostare una directory nel cestino

Salve
Vorrei sapere come fare per spostare una directory nel cestino, invece
di elilminarla completamente con rmdir........
Grazie
ByeZ!
Alkondor
ByeZ!
Alkondor
Togliere NOSPAM per rispondere in e-mail

 Grazie
Prova con:
'Dichiarazioni e routine poste in un'unico modulo Bas:
Private Type SHFILEOPSTRUCT
    hWnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAnyOperationsAborted As Boolean
    hNameMappings As Long
    lpszProgressTitle As String
End Type
Private Declare Function SHFileOperation Lib "shell32.dll" Alias _
"SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
Private Const FOF_NOCONFIRMATION = &H10
Private Const FOF_SILENT = &H4
Public Function SendToRecycleBin(ByVal NomeFile As String, Conferma As
Boolean) As Boolean
    Dim SHFileOp As SHFILEOPSTRUCT
    Dim RetVal As Long
    With SHFileOp
        .wFunc = FO_DELETE
        .pFrom = NomeFile
        .fFlags = FOF_ALLOWUNDO
         If Not Conferma Then
             .fFlags = FOF_ALLOWUNDO Or FOF_NOCONFIRMATION
         Else
             .fFlags = FOF_ALLOWUNDO 'Or FOF_SILENT
         End If
    End With
    'Manda il file nel Cestino
    RetVal = SHFileOperation(SHFileOp)
    'Controlla se l'operazione ha avuto successo
    If RetVal > 0 Then
    'Il file non esiste
        SendToRecycleBin = False
    ElseIf SHFileOp.fAnyOperationsAborted Then
        'Operazione annullata
        SendToRecycleBin = False
    Else
        SendToRecycleBin = True ' tutto Ok
    End If
End Function
Test:
(Un form con un pulsante)
Private Sub Command1_Click()
 Dim x
  x = SendToRecycleBin("c:\cdrwin3", True)
 MsgBox x ' True se operazione riuscita
End Sub
:
Puoi usare questa routine anche per cancellare un singolo file.
Il parametro true dopo la directory indica che si vuole visualizzare la
schermata di conferma (standard di Winxx); nel caso la directory o il file
non esistano apparirą un msg di errore (codice 1026) anch'esso standard e
non modificabile,
Se ne vuoi immettere uno personalizzato togli il commento che ho posto  nel
flag 'Or FOF_SILENT e controlla la variabile x (o come la vorrai chiamare
tu).
Eventualmente puoi provare a dichiarare l'intera routine in modo che
restituisca un valore diverso da
boolean; questo ti consentira', modificando anche i valori restituiti,
di rilevare se il file non esiste o se l'utente ha annullato l'operazione.
Ciao.
Newsgroup: it.comp.lang.visual-basic
Titolo: 2 Byte che danno fastidio

Qualcuno sa dirmi perche quando salvo un testo con
 Open "file.txt" For Output As 1
Print #1, "testo"
vb aggiunge due byte alla fine del testo che in hex sono 0d0a
e come posso fare perche cio' non avvenga?
GRAZIE

 wrote


 e come posso fare perche cio' non avvenga?
Print #1, "testo";
---
News2000 1.0b Beta tester version 
http://socket2000.8m.com

 e come posso fare perche cio' non avvenga?
Evidentemente tu NON vuoi scrivere un "file di testo" ma un "file di dati":
un "file binario" oppure un "file random", per i quali non ha ragione di
essere il concetto di "riga"... semmai quello di "record"...
Consulta la guida alle voci Open (Binary, Random), Put, Get... e se serve
ancora aiuto riposta.
Ciao.
Maurizio


Tante grazie sei stato utilissimo
 Frank


 Tante grazie sei stato utilissimo
Prego.
---
News2000 1.01 xVersion version 
http://socket2000.8m.com

Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto : RICERCA OCX PER MP3 !!!!!

SALVE , SONO APPENA ENTRATO NEL MONDO INTERNET E LA MIA PRIMA COSA E' STATA
ISCRIVERMI A QUESTO NEWS-GROUP , SONO UN PROGRAMMATORE DISCRETO DI VISUAL
BASIC , USO VB5 E STO CREANDO UN LETTORE-REGISTRATORE DI MP3 .
AIUTATEMIIII!!!!
SONO DISPERATO !!!

...


bella, bella, complimenti a Marco Frazzoli...
sto ascoltando gli Eagles con un prg che la usa...
-- 
;) G. Chiappori

Newsgroup: it.comp.lang.visual-basic
Titolo: Progress di compilazione

Quando compilavo un progetto da File --->Compila progetto , una progress-bar
presente in alto a destra nella finestra di VB,indicava lo stato e
l'avanzamento della fase di compilazione... ora è sparita.
E' chiaro che il progetto viene egualmente compilato...per fortuna!
Ho messo le mani in qualche configurazione senza accorgermene?
Come posso rimediare?
Grazie
--
Gulp ! Forse mi sono perso qualcosa !
Per rispondere via E-mail togli la x da 
xd...@cyberjunkie.com

 Come posso rimediare?
Hai aggiunto qualche icona/strumento alla tua barra di VB, oppure hai
ridotto la finestra in larghezza, oppure la definizione del video.
Tasto destro sulla barra, Personalizza, togli qualcosa e vedrai che quello
spazio tornerą, anche se non č assolutamente necessario ai fini della
corretta esecuzione delle varie operazioni

 Grazie
Tasto destro sulla barra, personalizza, toolbars e col pulsante Reset
resetti la barra Standard
Ciao

 fini della corretta esecuzione delle varie operazioni
OK.Grazie del suggerimento.
Anche l'occhio vuole la sua parte. :-))
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: pagina ASP .net  con datagrid e DB SQL

vorrrei creare una pagina ASP con VB.net inserendo un data grid contenente i
dati di un db SQL
ma non ci capisco piu nulla ... arrivando da vb6 ... mi hanno stravolto
tutto!
Da che parte inizio?
Grazie per l'aiuto

Eccoti un esempio di come visualizzare dei risultati in un DataGrid.
Io uso una DataTable come fonte dati, poi puoi usare anche DataSer, DataView
ecc...
Imports System.Data.SQLClient
Public Sub RiempiDataGrid
    Dim Conn As New SQLConnection("<stringaConnessione>")
    Conn.Open    'apro la connessione
    Dim cmd As New SQLCommand("Select * From TabPippo", Conn)
    Dim DA As New DataAdapter(cmd)
    Dim Table As New DataTable
    DA.Fill(Table)    'riempio la tabella con i dati
    DA.Dispo
    'Grid è la tua DataGrid
    Grid.AutoGenerateColumm=True
    Grid.DataSource=Table    'imposto la fonte dati
    Grid.DataBind()                'avvio il riempimento della DataGrid
    'rilascio le risorse
    DA.Dispose
    cmd.Dispose
End Sub
Spero sia giusto perchè l'ho scritto senza l'editor....
-- 
Ciao
Zephiross

MArco G. wrote:

Zephiross ti ha dato l'aiuto spiccio.
Per capire quello che ti ha consigliato dovresti studiarti le basi di 
ADO.Net, che č un (bel) po' diverso da ADO.
in pratica hai una connessione SqlConnection che equivale piů o meno 
alla Connection di ADO, un SqlCommand che equivale al Command di ADO, 
una DataTable che equivale a grandissime linee a un Recordset 
disconnesso di ADO, e un SqlDataAdapter che č quello che si occupa di 
riempire una DataTable o un DataSet (che č una specie di "mini database" 
in memoria) con i dati che tira fuori dall'SqlCommand.
Ciao
-- 
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

Newsgroup: it.comp.lang.visual-basic
Titolo: (?) TASTO SHIFT

Come posso far accorgere al computer che č stato premuto il tasto shift?
Sto trasportando un programma da QBasic a VB6, ma non riesco a far accorgere
al form che ho premuto il tasto shift!!!
avete qualche idea?
grazie
TWiN

 wrote in message
LrNO3.24370$i06.2...@typhoon.libero.it...


 e poi controlli l'evento KeyPress !!!
KeyPress????
Forse volevi dire KeyDown o KeyUp!!!   :)
 __     __
<o>  <o>
      []
  \____/
Pasquale Minerva
mine...@libero.it
Newsgroup: it.comp.lang.visual-basic
Titolo: [FAQ] Funzione Di Approssimazione Lire

Public Function ArrotondamentoLire(ByVal valore As Long) As Long
Dim numero As Integer
If valore < 1000 Then
    numero = valore
Else
    numero = CInt(Right$(CStr(valore), 3))
End If
If numero < 500 Then
        ArrotondamentoLire = valore - numero
ElseIf numero >= 500 Then         'il Maggiore = è un esigenza del cliente...voi mutate pure come volete
        ArrotondamentoLire = (valore + 1000) - numero
End If
End Function
La posto visto che ci sono state delle domande nei giorni precedenti...circa l'arrotondamento di una cifra in lire; il codice per
quella in Euro l'ho messo qualche giorno fa..ora metto quello delle Lire...che ho terminato ora :-)
Molto Probabilmente questo non è il modo migliore di farlo ed è per questo che lo inserisco nel newsGroup....così vediamo chi mi può
dare un consiglio migliore...per ottimizzarlo....
Ciao a Tutti...SIMO
--
__________________
www.sasim.cjb.net

Piccola correzione..per evitare spiacevoli Overflow (piccola ma mica tanto....)
Public Function ArrotondamentoLire(ByVal valore As Double) As Double
Dim numero As Double
If valore < 1000 Then
    numero = valore
Else
    numero = CDbl(Right$(CStr(valore), 3))
End If
If numero < 500 Then
        ArrotondamentoLire = valore - numero
ElseIf numero >= 500 Then


sasim® (Simone) ha scritto nel messaggio ...

Allora già che ci siamo perchè non rendere parametrabile anche lo scarto?
Se io voglio approssimare alle 5000? :P
Ciao

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

Dovrei tirare fuori dei record dal db e farci dei bei istogrammi.
Qualcosa che non sia il crystal report ... anche a pagamento e che magari si
integri con l'applicazione - dove per integrare vuol dire mettere il
controllo dentro una form dell'applicativo e nello stesso task piuttosto che
crystal che è un task separato?
Voi che usate?
Ciao Andrea

 wrote in message
8u6v4s$bhs$1...@nslave3.tin.it...
: Dovrei tirare fuori dei record dal db e farci dei bei istogrammi.

:
:

Dovrei tirare fuori dei record dal db e farci dei bei istogrammi.
Qualcosa che non sia il crystal report ... anche a pagamento e che magari si
integri con l'applicazione - dove per integrare vuol dire mettere il
controllo dentro una form dell'applicativo e nello stesso task piuttosto che
crystal che è un task separato?
******* i grafici dovrebbero - anzi assolutamente devono - essere stampabile
con uno schiocco di dita senza tanti casini sotto qualsiasi sistema
operativo .... e non come vengono visualizzati a video, ma con un bel
output. Non sò se l'ms chart 6 fa una cosa del genere.

Newsgroup: it.comp.lang.visual-basic
Titolo: problemi con la stampa

Ciao a tutti, vorrei sapere come si usa il commondialog.showprinter e se lo
posso usare in qualche maniera con l'oggetto printer.
Grazie e ciao
--------------------------------
Inviato via 
http://usenet.iol.it

 lo posso usare in qualche maniera con l'oggetto printer.
Certo! Il CommonDialog da solo non crea alcuna stampa ma permette solo di
selezionare la stampante adatta e qualche altra sciocchezuola.
Comunque, un po' di impegno, su!
Basta premere F1 per risolvere il problema!!!
Ciao,
Carlo.

Newsgroup: it.comp.lang.visual-basic
Titolo: sequenza forms

Ciao ragazzi, eccomi con un'altra domandina....
da buon principiante, quando devo eseguire un form faccio NomeForm.show
però, se in una routine eseguo la show di 2 form diversi, alla fine vedo sempre
il secondo, e sotto c'è il primo....
mi spiego:
a un certo punto del programma devo salvare un file, e quindi richiedo la
cartella in cui salvarlo tramite un form che mi dovrebbe restituire la cartella
selezionata, quindi dovrei continuare e salvare il file in quella cartella...
purtroppo però quando faccio la show del form di selezione della cartella il
programma non è che si ferma li e aspetta che finisca l'esecuzione di quel
form, ma continua dandomi sempre un messaggio di cartella non trovata....
non so se mi sono spiegato bene...
:-)
-- 
Posted from 
ppp-62-10-91-28.dialup.tiscali.it
 [62.10.91.28] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

visualizza il form tipo:
MioForm.Show vbModal
CIAO

Perchè non usi il commondiaolog per la gestione del salvataggio e l'apertura
dei file?
huvi

 dei file?
Perchè, da buon inesperto autodidatta, non so nemmeno che cos'è... :-)
-- 
Posted from 
ppp-62-10-87-182.dialup.tiscali.it
 [62.10.87.182] 


 ha scritto nel messaggio
news:f5f9226c5c87d88d665...@mygate.mailgate.org...


 
Ho provato, ma mi da errore 404, Impossibile visualizzare form MDI secondari a
scelta obbligatoria.
Però io ho solo il primo form di tipo MDI, quelli che richiamo sono form
normali...
-- 
Posted from  [212.80.178.35] 


 normali...
Ah, si, però gli altri sono MDIChild = True, quindi ha ragione...
-- 
Posted from  [212.80.178.36] 


Newsgroup: it.comp.lang.visual-basic
Titolo: Export su file di mschart

 Salve,
sto cercando di salvare su file il grafico di un oggetto mschart.
Ho provato la funzione sotto, ma essa ritorna "bad format file" durante
il write.
Avete qulche idea di come possa risolvere il problema?
	Grazie
		Lore
  Clipboard.Clear
  MSChart1.EditCopy
  Open "d:\temp\TESTFILE" For Binary Access Write As #1
  Write #1, Clipboard.GetData()
  Close #1

 sto cercando di salvare su file il grafico di un oggetto mschart.
Mi rispondo da solo.
Ho aggiunto alla form un oggetto Image nascosto e utilizzo il seguente
codice:
 
  Clipboard.Clear
  MSChart1.EditCopy
  image1.Picture = Clipboard.GetData(vbCFBitmap)
  SavePicture image1, sFileName
	Saluti	
		lore.
Newsgroup: it.comp.lang.visual-basic
Titolo: Sezioni del DataReport

Salve
Come deve essere impostata la query per un DataReprot con la sezione
Gruppo??
Mi da sempre l'errore 8570: Le sezioni del report non corrispondono alla
fonte dati. Ho provato sia con una SottoQuery che con un Group By, ma niente
da fare.
Qualcuno ha già risolto il problema??
Penso di si perchè quello che voglio fare è semplicemente la stampa di una
Fattura dividendo la Testata(Sezione Gruppo) dal Corpo (Sezione Dettagli)
Ditemi almeno se sbaglio l'impostazione
Vi prego è urgente
bye Roberto


Io ho risolto associando il datareport ad una connection del
dataenviromment.
In questa connection ho attivato la propieta' grouping, dove ho messo il
valore che va' nella sezione gruppo (vedi le proprieta della
connection).
	Lore.

 wrote in message
391275A4...@agip.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: ocx/dll & barcode

Salve a tutti
sono alla ricerca di un ocx o dll per la stampa dei barcode in code 32
(farmaceutico italiano).
Dispostissimo anche all' acquisto nel caso di prodotto commerciale, ma
necessito di poterlo provare prima .
grazie!

,

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/
       Search, Read, Discuss, or Start Your Own
Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal Report 8 / Esportare su File

Salve, ho l'esigenza di stampare un Report su file eseguo le seguenti
istruzioni :
           CR1.ReportFileName = path_rpt + qNome_RPT
CR1.Destination = crptToFile
           CR1.PrintFileType = crptRTF
CR1.PrintFileName = "C:\Prova.rtf"
           CR1.Action = 1
Funziona,
pero' dovrei poter scegliere altri formati che in anteprima di stampa
escono in elenco, mentre via codice no.
Qualcuno sa dirmi come posso
esportare nel formato HTML 4.0 e PDF ?
Devo fare riferimento a qualche DLL
ben precisa?
N.B. io aggiungo solo il componente OCX Crystl32.ocx
versione 5.2
Grazie mille, Fortuna
--------------------------------
Inviato via 
http://usenet.iol.it

 istruzioni :
Vedi Exportoptions object.
Inoltre, copio dall'help di CryRep:
Export to paginated PDF, and paginated RTF
Export your reports-in whole or in part-directly to the popular Portable
Document Format (PDF), and then distribute these reports by email, over the
Web, or in print. Alternatively, take advantage of the new Rich Text Format
(RTF) exporting feature, which is based on the Crystal Reports Encapsulated
Page Format (EPF).
In addition, Crystal Reports now supports page ranged export to PDF and RTF
formats.
New properties have been added to the ExportOptions object to support these
new features. These properties are:
PDFExportAllPages
PDFFirstPageNumber
PDFLastPageNumber
RTFExportAllPages
RTFFirstPageNumber
RTFLastPageNumber
ciao
ugo

Newsgroup: it.comp.lang.visual-basic
Titolo: elenco nomi file da una cartella

Salve a tutti,
fino a qui riesco ad arrivare:
Private Sub
Command1_Click()
 
    Dim s, nf, fso, fol
    Set fso = New
FileSystemObject
    Set fol = fso.GetFolder("C:\")
    nf =
fol.Files.Count
 
    MsgBox nf
 
 
    End
 
End
Sub
Ottengo il numero dei file presenti in cartella, ma come faccio ad
elencarne i nomi ? Grazie a tutti.
Stefano
sme...@tin.it
--------------------------------
Inviato via 
http://usenet.iol.it

 come faccio ad elencarne i nomi?
Come tutte le collection: le scandisci!
    For Each myFile In fol.Files
        Debug.Print myFile.Name [o .Size o .DateLastModified ecc. (*)]
    Next
(*) La maggior parte dei problemi li risolvi con F1, ma pure F2 la sua
utilità ce l'avrà!
Ciao, Silv:o)

 ha scritto: 





--------------------------------
Inviato via 
http://usenet.iol.it
 

 elencarne i nomi ? Grazie a tutti.
prova a guardare gli esempi di utilizzo della funzione Dir$(), nella
guida
Faber
Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Esecuzione sub ad ora specifica: come?

Ciao a tutti,
ho necessita' di eseguire una procedura ad una determinata
ora, cioč apro il programma, imposto l'ora dell'esecuzione ed il programma
(che č sempre aperto) all'ora specificata esegue una routine.
Come posso
fare tutto cio'?
Grazie a tutti
--------------------------------
Inviato via 
http://usenet.iol.it

 fare tutto cio'?
Metti un timer, metti Interval a 1000 e inserisci questo codice:
If Left$(CStr(Time),5) = "10.00" Then
    'Operazioni da eseguire
End If
In questo modo alle ore 10.00 viene eseguito il codice.
Ciao

 Metti un timer, metti Interval a 1000 e inserisci questo codice:
Ah, dimenticavo, se vuoi avere anche la precisione dei secondi, cambia il
codice cosě :
If CStr(Time) = "10.00.00" Then
    'Operazioni da eseguire
End If
In questo modo alle ore 10.00.00 viene eseguito il codice.
Ciao

Ciao
Grazie, a buon rendere
Ciao


Ed estenderei... se ti basta la precisione dei minuti...
Metti l'interval del timer a 55000 (ovvero controllo ogni 55 secondi...)
farai molti meno controlli...
Non ho messo un minuto intero perché non vorrei che se il sistema é un po'
(troppo!) rallentato da latro (ad es. antivirus) rischi di perderti il
minuti giusto...
            Ciao
                                            Allanon


Hai ragione, ci avevo pensato ma poi mi son detto : un timer ogni secondo
non mi sembra molto gravoso su qualsiasi macchina... effettivamente mettere
50000 ms come interval sarebbe ancora meglio ;)
Ciao

 50000 ms come interval sarebbe ancora meglio ;)
Salvo che può eseguire due volte nello stesso minuto... :-)))
Alberto

> Salvo che può eseguire due volte nello stesso minuto... :-)))
Hai di nuovo ragione ! ;)
Con un timer ogni secondo e considerando la precisione del minuto,
probabilmente il codice viene eseguito <60 volte! :/

Newsgroup: it.comp.lang.visual-basic
Titolo: Comando Del da lanciare con la Shell

dovrei cancellare un file con il comando del dos DEL ma non essendoci
un file del.exe non so come fare.
Nello specifico, sto cercando di masterizzare un CD tramite il programma 
opensource cdrtools
e dovrei cancellare la iso che mi crea
SincShell("C:\programmi\cdrtools\mkisofs.exe -J -o c:\temp.iso 
c:\clienti\backup\", 1, True)
SincShell("C:\programmi\cdrtools\cdrecord.exe dev=1,0,0 speed=4 -data 
c:\temp.iso", 1, True)
SincShell("del c:\temp.iso", 1, True)
              ^^^^^
Come faccio a far funzionare DEL ?
Grazie. 


A parte che DEL non dovrebbe servirti dato che VB ha già il comando Kill 
proprio per eliminare un file singolo...
Ma se proprio vuoi usarlo, devi sapere che DEL è un "comando interno" e che 
va lanciato tramite l'interprete comandi ossia CMD.EXE.
Dim sCommand As String
sCommand = Environ("COMSPEC") &" /c DEL c:\temp.iso"
' sCommand sarà qualcosa del tipo "c:\windows\system32\cmd.exe /c DEL 
c:\temp.iso
SincShell(sCommand, 1, True)
Bye
Raf 

"Rafunk" <rafun...@NOTHANKSlibero.it> ha scritto nel messaggio 
news:feg8eb$oe3$1...@alix.livenet.it...

Grazie mille !!!
Newsgroup: it.comp.lang.visual-basic
Titolo: VB 6 connesso a DB MYSQL

Ho un problema:
Ho sviluppato un applicativo in VB6 che gestisce un DB in MySql Remoto
(insermineto, cancellazzione, modifica dati).
Tutto funziona ma mi è stata richiesta la seguente specifica:
Utilizzare un ActiveX per lavorare sulle maschere da me create attraverso un
browser come IE 5.0 e superiori.
Sarei grato a chiunque potesse suggerirmi una strada da seguire per lo
sviluppo di un ActiveX adatto allo scopo.
Grazie a Tutti

 ha scritto nel messaggio
news:Po2N8.26467$5i1.1...@news2.tin.it...

Più che una modifica, direi che occorre rivedere il progetto dalle
fondamenta.
Potevano però dirtelo subito. Fare sviluppare un applicativo come Exe e poi
chiedere di farlo girare in Explorer è come dire fare le cose due volte!!
Fortunatamente però è abbastanza semplice:
Crei un progetto vuoto di tipo Usercontrol
Crei uno usercontrol vuoto che chiami Main
Crei tanti usercontrol quante sono le tue form
Per ogni usercontrol, copi esattamente i controlli che avevi nelle form, poi
copi tutto il codice.
A questo punto, le modifiche più gravose stanno nella navigazione fra
usercontrol, visto che devi caricare sul controllo Main i diversi
usercontrol quando servono, e poi ucciderli.
Altra modifica, alcuni eventi sono diversi.
La visibilità delle variabili è leggermente diversa.
A questo punto, devi solo compilare il progetto, creare il CAB e l'OCX,
copiarlo su un server IIS e lanciarlo.
Ovviamente eventuali file di appoggio, quali INI o RPT, dovranno essere
scaricati attraverso download al momento dell'avvio o al bisogno, visto che
l'applicativo di fatto girerà nella cache di explorer.
Comunque su MSDN è spiegato tutto molto bene. Occorre però avere ben chiaro
il concetto di classe, oggetto, inizializzazione di oggetti, nonchè il
concetto di Explorer come contenitore.
Altra possibilità, MOLTO più semplice, ma che non rispecchia fedelmente la
specifica del cliente, è quella degli ActiveX Document. Ma questa è tutta
un'altra storia.
DCOM e MDAC dovranno essere scaricati da ogni singolo client prima del primo
accesso alla pagina con l'OCX, se necessari.
Ciao
Alberto
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] differenze tra ore/date

Dubbio di procedimento:
ORA1: 12:00:00
ORA2: 13:00:00
Cosa mi consigliate per
DIFFERENZA ORARI = ORA1 - ORA2 = 01:00:00
comando FORMAT...?
e se subentrassero anche le date?
meglio contare in giorni ore minuti o solo in ore?
qualche consiglio tanto per avere "INFORMATIVAMENTE" queste differenze tra
orari e date?
GRAZIE!
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com
 - The #1 Newsgroup Service in the World!
-----==  Over 80,000 Newsgroups - 16 Different Servers! =-----

 orari e date?
E' un po' che non se ne discute e mi mancano "quelle litigate", allora
sobillo:
Ho quasi completamente dimenticato i campi di tipo date o time. Uso stringhe
nella forma "AAAAMMGG" e "HHMMSS" e il mio SQL, insieme alla mia bile, ne
guadagnano molto.
Differenze. Quando servono, e solo quando servono, trasformo la stringa data
in variabile di tipo date e uso le varie funzione (come DataDiff). Per le
ore non ce ne sarebbe nemmeno bisogno perchè i valori (Val) sono congruenti
e aritmeticamente trattabili.

 orari e date?
Cerca in F1 la funzione DateDiff :)
Saluti,
-- 
Best Regards,
Antonio Cangiano
Webmaster di 
www.visualcsharp.it
Fondatore di free.it.comp.lang.csharp
free.it.comp.lang.vbnet e free.it.comp.lang.aspnet
--

> Cerca in F1 la funzione DateDiff :)
Ho usato...
Secondi = DateDiff("s", time1, time2)
C'e' per caso una funzione che mi riporti i secondi in formato HH:MM:SS cioč
che mi faccia al volo questo formato?
esempio risultato [Secondi = 9605]
trova formato HH:MM:SS
intero (9605/60) = intero(160 / 60) = 2 ore
160-(2x60)= 40 minuti
9605-(160x60)= 5 secondi
DIFFERENZA in HH:MM:SS  = 02:40:05
Ma, conoscendomi, sicuramente c'e' un modo piů veloce ed affidabile...
ciao


 che mi faccia al volo questo formato?
...se ho capito il problema: Format, cerca nell'help "formati di data
e ora definiti dall'utente".
Bye, G.
--
Le risposte alle tue domande sono sul Sito Comune
di questo NewsGroup: 
http://it-lang-vb.net/
... e nell'help in linea !

 DIFFERENZA in HH:MM:SS  = 02:40:05
?TimeSerial(0, 0, 9605)
2.40.05
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

 2.40.05
Sě, perň il numero di secondi deve essere un integer e quindi non ne puň
superare i limiti...

Newsgroup: it.comp.lang.visual-basic
Titolo: Vb e Grafica

Cerco un sito con algoritmi matematici , ho bisogno di sfoltire dei Poligoni
(per cartografia)
Grazie.
--
Maurizio Pugi
Regione Toscana
Area SIT-Cartografia
Archivio Generale dati numerici
tel. 0554383978
http://www.rete.toscana.it/sett/territorio/carto

 (per cartografia)
Cosa devi fare esattamente? Diminuire il numero di vertici di una figura, o
il numero di punti di una spezzata?
Se ti occupi di elementi cartografici, avrai il problema della scala...
prova a spiegare in dettaglio il problema, che magari ti si aiuta.
Ciao
*Roby*
Newsgroup: it.comp.lang.visual-basic
Titolo: Creazione controllo TextBox potenziato ereditandolo da TextBox in  Visual Basic 2008

Salve a tutti,
ho un grande problema da risolvere...
Ho la necessità di estendere le funzionalità del controllo TextBox
standard del Visual Basic 2008 con altre proprietà. Ho realizzato un
nuovo controllo eredito da TextBox e fin qui tutto bene.
Il problema nasce quando voglio aggiungere un oggetto Button.
Utilizzando la sintassi
MyBase.Controls.Add(Bottone)
il bottone mi viene creato correttamente ma appare all'interno della
text box, compromettendo la lettura dell'input.
Io vorrei che comparisse al di fuori della text box. Come posso fare?
E' possibile?
Grazie a tutti


MyBase si riferisce allla classe base, ovvero al TextBox stesso, tanto
è vero che in quel contesto usare MyBase o Me non cambia, per cui la
collection Control a cui accedi è quella dei controlli *figli* del
TextBox ed è per quello ottieni quell'effetto.
Tu invece devi fare riferimento alla form conenitore di questo
oggetto, devi quindi ottenere un riferimento a questa; per es:
Dim f As Form = Me.FindForm
If f IsNot Nothing Then
   Dim b As New Button
   b.Text = "prova"
   'Posizioniamo il pulsante subito a destra del TextBox
   b.Location = New Point(Me.Location.X + Me.Width + 2, Me.Location.Y)
   f.Controls.Add(b)
End If
Non sono sicuro però che sia il modo corretto di procedere; in genere
quando si creano controlli composti come nel tuo caso, è consigliabile
derivare da UserControl

Grazie Luca per il prezioso suggerimento.
Ho risolto il mio problema utilizzando il tuo codice e sembra tutto
ok.
Caruccia la tecnica in quanto da un controllo utilizzi direttamente il
form contenitore anche se, effettivamente, speravo che ci fosse un
contenitore di livello inferiore dove potevo fare qualcosa tipo:
Ridimensiona la Text ed aggiunti il bottone, in modo da raggruppare
tutta la logica sotto il componente.
Ma come dice il Macchiavelli, il fine giustifica i mezzi e di
conseguenza, se c'e' una soluzione piu' elegante inseriamola in questo
group ma nel frattempo risolviamo il problema come hai detto tu.
Grazie ancora,
Marco


L'altra soluzione è appunto quella che accennavo, cioè di derivare da
UserControl, che può essere a questo punto o interamente "disegnato"
oppure l'aggregazione di più controlli come vuoi fare tu...

Newsgroup: it.comp.lang.visual-basic
Titolo: collegamento vb6 con mdb in remoto

Buonasera a tutti
Ho sempre bisogno del vs prezioso aiuto...........
non so se è possibile collegare un programma fatto in vb6 e un database (mdb
di access) situazto su un server accessibile solo via internet.
Mi spiego meglio ho un sito che legge da un database dei valori archiviati,
ho l'esigenza di poter cambiare quei valori utilizzando un programma fatto
in vb6 e caricato in locale.
grazie a tutti
rosario
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

rosario
Recordset XML.
http://www.morenosoft.com/msvbsite/pagestruct.asp?lang=Ita&type=4&ID=89
Leggi e adatta alle tue esigenze.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Bitmap Trasparenti

Qualcuno sa consigliarmi un sito dove trovare degli ocx per
visualizzare bitmap trasparenti?
Grazie
Thunder Ghost

visualizzare bitmap trasparenti?
Se ti serve un OCX per le Bitmap trasparenti leggero (con pochi eventi e con
pochi metodi) ti posso postare un OCX fatto da me.
Se ti interessa scrivimi.
Ps: Logicamente č gratuito
Ciao,Daniele

Ha tutti i requisiti x andare sul sito comune... :-))
Prima di inviarlo al Sito Comune devo farvi un paio di domande:
A quale indirizzo devo mandarlo precisamente, quello del Web Master ?
Serve anche che posti il codice ?
Basta che invii il file .Ocx ( ed eventuale codice) o anche i vari
.oca,.exp,.lib ?
Ciao, Daniele

Basta che invii il file .Ocx ( ed eventuale codice) o anche i vari
.oca,.exp,.lib ?
Basta l'OCX. L'OCA si ricrea quando usi l'OCX.
--
Roal Zanazzi
z...@iol.it

Considera come già fatto.
Ciao,Daniele
Newsgroup: it.comp.lang.visual-basic
Titolo: Background celle di datagrid

Salve,
se volessi segnalare in una datagrid i valori modificati cambiando colore al
background delle celle corrispondenti, come posso fare?
Grazie in anticipo

background delle celle corrispondenti, come posso fare?
Con una datagrid? Boh?
Con una flexgrid? Si', c'e' la proprieta' CellBackcolor.
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: HELP: Mouseover in VB5

Is there any possible way in VB5 to great and on mouse over event?? like
when the user move the mouse over a label and the VB show a picture box and
when the user mouse out it's run a procedure getting read of the picture
box. This is a question I have been trying to solve for a little bit. PLEASE
HELP ME out. Thank you! If you could E-Mail some code or samples that would
be great. Thanks
--
SnapDragon
E-Mail
coo...@concentric.net
WI Marketplace
http:\\www.wimall\jr-ent\
VenerNet Web Hosting
http://www.vener.net/rep/tysrwlings-server.shtml
Dracot's Dragons
http:\\
www.concentric.net
\~cooltj\DragonWeb.shtml
Midi Music
http:\\
www.concentric.net
\~cooltj\MidiMusic.shtml
Web Master's
http:\\
www.concentric.net
\~cooltj\index.shtml

...


There a easy way to do it.
First of all, you must include this api declaration into your file:
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Due to some api limitations, you can only use this to controls that have the
.hwnd, but I'm sure that you'll figure out how to fix this.
Let's suppose that you want that a picturebox (picture1) changes its color when
the user moves the mouse in and return to the original color when the user moves
the mouse out.
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single,
Y As Single)
With Picture1
    If Button = 0 Then ' To this only if no button is pressed
        If (X < 0) Or (Y < 0) Or (X > .Width) Or (Y > .Height) Then
            'When the cursor goes out:
            ReleaseCapture
            .backcolor=.forecolor
            Else
            'When the cursor goes in
            SetCapture .hwnd
            .forecolor = .backcolor
            .backcolor=rgb(255,100,0)
        End If
    End If
End With
End Sub
Now just change this code to use other controls !!

There's a "hot-tracking" VB5 sample (which I think is what you're after) on
the microsoft web site:
http://premium.microsoft.com/vbasic/browse.asp
You'll have to register for MSDN online before you can see it.
--Daniel Hardman

Yeah, or you could simplify your life and use the built in MouseMove event,
inherent in pretty much every control.
Daniel Hardman wrote:

--
New!! Just in time for Christmas from Mattel:
 The Schindler's List E-Z-Bake Action Figures (lightbulb not included).
Newsgroup: it.comp.lang.visual-basic
Titolo: Icone nei file EXE

Ciao a tutti!
Come posso inserire più icone in un singolo file EXE? Mi spiego meglio: se
voglio cambiare l'icona di un collegamento e faccio clic sul pulsante
"Cambia icona", selezionando come file (ad esempio) EXPLORER.EXE, nella
casella sottostante vengono visualizzate diverse icone.
Posso ottenere lo stesso risultato con Visual Basic? Devo utilizzare i file
di risorse?
Grazie a tutti quelli che vorranno rispondermi. Ciao
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260/
http://www.armaditaggia.com/marco

Devo utilizzare i file di risorse?
Esatto, devi mettere le icone in un file di risorse (.RES), che devi
aggiungere al progetto.
--
Roal Zanazzi
z...@iol.it

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

Dove posso trovare il codice dell'xterm di linux?
Grazie a tutti
Ale
P.S. gradirei risposta privata
  -----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
 
http://www.newsfeeds.com
       The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including  Dedicated  Binaries Servers ==-----

 wrote


Newsgroup: it.comp.lang.visual-basic
Titolo: Visual Basic + DCOM

ciao a tutti,
Volevo sapere dove posso trovare un po di documentazione sullo sviluppo di
tecnologia DCOM unita al Visual Basic. Purtroppo non ho molto tempo per
cercare su google & Co. ....
Ringrazio chiunque vorrà darmi una mano....
ciao
CLaudio

cercare su google & Co. ....
In libreria ;-)
-- 
ciao, hal

 ha scritto nel messaggio
news:j6j0pv4tjul48ls7k...@4ax.com...

in rete non c'è nulla che tu sappia !??
ciao
Claudio.

 ha scritto nel messaggio
news:bmr9hq$fo2$1...@newsreader.mailgate.org...

http://groups.google.it/groups?hl=it&lr=&ie=ISO-8859-1&q=DCOM&meta=group%3Di
t.comp.lang.visual-basic
giuseppeD

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Priorità casella txt form

č possibile che dopo l'apertura di un form si possa scrivere direttamente in
una casella txtTesto senza doverci cliccare sopra.
Cioe' come attivo un FORM come posso usare il "focus" forse?
Nel form attivo vorrei che resti prioritario il "TXTtesto" anche dopo
un'apertura di un "MsgBox" che ora mi obbliga a cliccare nel textbox
interessato per continuare a scrivere.
grazie

Io ci metterei un timer (impostato su 100 millisecondi), come nell'esempio:
Private Sub Form_Load()
 Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
 Timer1.Enabled = False
 Text1.SetFocus
End Sub
^__^ Tommy
...per il focus dopo msgbox... non so
Ciao

imposta il taborder della textbox su 0
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

...


 wrote in message
7icetq$boh$1...@pollux.ip-plus.net...

Newsgroup: it.comp.lang.visual-basic
Titolo: openrecordset e query

Set rst= db.OpenRecordset("SELECT Tabella.* FROM Tabella WHERE
(((Tabella.campo)=' " & Variabile_Ben_Inizializzata & " '));",
dbOpenTable)
perchè non funziona?
devo aggiungere qualcosa al progetto?
è possibile applicare un filtro ad una variabile recordset?

hai gia aggiunto i riferimenti all' oggetto ADODB?

 hai gia aggiunto i riferimenti all' oggetto ADODB?
Non può usare l'ADO, perché non supporta il metodo OpenDatabase. Si sta
dunque riferendo al modello DAO.
Ciao,
Carlo.

grazie con dbOpenDynaset funziona
ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: [ot] vb su palmare

ciao a tutti
eseguibili creati con embedded visual toolkit (vb) girano su windows mobile 
2003 per pocket pc?
ciao, AEOM 

 
eVB non è + supportato per lo sviluppo embedded.
Puoi però scaricarti il RunTime per Windows Mobile 2003:
http://msdn.microsoft.com/mobility/windowsmobile/downloads/evb.aspx
Ciao.

 ha scritto nel 
messaggio news:PyaFd.397$GU....@twister1.libero.it...

Grazie per la risposta.
Server Vb net per utilizzarlo?
ciao, AEOM

 ha scritto nel 
messaggio news:PyaFd.397$GU....@twister1.libero.it...

ciao,  ho scaricato il file, ma non ha nessuna installazione. Lo devo 
salvare in qualche cartella particolare?
ciao, AEOM 

 
Da quel che mi ricordo, lo devi installare nel palmare attraverso l'ActiveSinc.
PS. Ma non ci sono le note sull'installazione?
Ciao.

 ha scritto nel 
messaggio news:DocFd.608$fs6....@twister2.libero.it...

Ma un programma fatto con il vecchio embedded non gira proprio su win mobile 
2003?
ciao, AEOM 

 ha scritto nel 
messaggio news:DocFd.608$fs6....@twister2.libero.it...

no solo dei file con nomi senza senso
ciao, AEOM 

 no solo dei file con nomi senza senso
Non è che tu hai scompattato il cab (se di cab si tratta) sul PC?
Prova copiandolo sul palmare e facendoci click sopra.
Ciao
--
Qualunque mentecatto può scrivere codice che un computer possa capire.
I buoni programmatori scrivono codice che gli uomini possano capire.
[Martin Fowler]

 2003?
embedded VB non so, evc4 si :-)
Stefano "HappyMan" (Lake Maggiore - Italy)
-- 
The Personal Framework for Object Oriented Windows Development (Win32)
http://www.sgr.info
Email happyman69 (at) 
libero.it

 ciao, AEOM
Per girare si può far girare... ma non è stabile... io la mia app la sto
riscrivendo con .net... il compact framework è mille volte meglio di evb...

 ha scritto nel messaggio 
news:1tvjbzwp9l15k$.1guxw5n7slme3$.dlg@40tude.net...

il mio problema è il c++  !!!
un programmino banale realizzato con embedded visual toolkit 3 non funziona 
proprio?
ciao, AEOM 

 ha scritto nel messaggio 
news:EogFd.680774$35.27...@news4.tin.it...

con il vecchio intendo la versione 3
il programmino è proprio semplice
ciao, AEOM 

 ha scritto nel messaggio 
news:1tvjbzwp9l15k$.1guxw5n7slme3$.dlg@40tude.net...

Ho scaricato Evc4 ma mi chiede il numero di licenza. non è gratuito come la 
versione precedente?
ciao, AEOM
Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO PAGAMENTO MULTIPLO!!!

lavoro con una stampante fiscale collegata alla com1 del pc
ora su una routine dove scelgo il tipo di pagamento
dovrei modificarla affinche' si possa effettuare un
pagamento multiplo ovvero tipo 30.000 contanti 100.000
assegni
ora ho una routine 
select case tipo pagamento
case 1
stampa contanti
case 2
stampa c/crdito
case 3
stampa assegni
la routine nel progetto funziona per ora per un singolo pagamento
chi mi da' un consiglio urgente su come potre fare un pagamento multiplo???
--
TiscaliNet, libero accesso ad Internet.
http://www.tiscalinet.it
-- 
Posted from 
mail-7.tiscalinet.it
 [195.130.225.153] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 chi mi da' un consiglio urgente su come potre fare un pagamento
multiplo???
Puoi eseguire n volte la funzione che effettua il pagamento,
una per ogni pagamento.
Se il pagamento è singolo, verrà eseguita una volta,
altrimenti, la richiamerai n volte.
Ad esempio:
For i = 1 to Righe
       Effettua(TipoPagamento)
Next i
--
Er Roscio.

 ha scritto nel messaggio
news:9bk9pu$l6b$2...@fe1.cs.interbusiness.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Listview Column Width in percent

Hi,
I am using a few listviews on a form, I have made the listview resize
with the form.I would also like the columns within the listview to
resize when i resize the listview. I have seen some code that allows
you to set the column width in percent, the only problem is i can't
find it again.
Does anyone have an example of this code, or know hwere i can find it?
Thanks

 ha scritto

something like this one below ?
(sb is a statusbar, tv a treeview, picsx a picture containing both)
hth, j.
--
www.sundaysw.com
Private Sub Form_Resize()
    If WindowState = 1 Then Exit Sub
    If Width < minW Then Width = minW
    If Height < minH Then Height = minH
    Dim pH As Integer
    pH = picSX.ScaleHeight
    picSX.Width = ScaleWidth - picDX.Width
    With TV
        .Left = 0
        .Top = 0
        .Width = picSX.ScaleWidth
        .Height = pH * 0.33
    End With
    With LV
        .Left = 0
        .Top = pH * 0.33
        'Top = TV.Top + TV.Height
        .Width = picSX.ScaleWidth
        .Height = pH * 0.66
    End With
    Dim lw As Integer
    lw = LV.Width \ 8
'    LV.ColumnHeaders(1).Width = lw * 3.5
'    LV.ColumnHeaders(2).Width = lw * 0.75
'    LV.ColumnHeaders(3).Width = lw * 1.75
'    LV.ColumnHeaders(4).Width = lw * 1.75
    LV.ColumnHeaders(1).Width = lw * 3.25
    LV.ColumnHeaders(2).Width = lw * 0.75
    LV.ColumnHeaders(3).Width = lw * 1.5
    LV.ColumnHeaders(4).Width = lw * 2.25
    With txtContent
        If SB.Top > (.Top + 420) Then
            .Height = SB.Top - (.Top + 120)
        Else
            .Height = 360
        End If
    End With
End Sub

 wrote in message news:a93vfb$40js$1...@ID-51318.news.dfncis.de...


 a little bit off when setting the value
yes, the listview always has that annoying trailing column. that's why i set
the total col width to 7/8 of the lv.width.
ciao, j.

 the total col width to 7/8 of the lv.width.
cunning : )
Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Errore ADO

Ricopio il testo dell'errore, che a me non dice molto
runtime error -
2147217887
 (80040e21)
"Si sono verificati errori"
E' incomprensibile (almeno per me)!
L'errore mi si verifica quando valorizzo un controllo Adodc con un valore
proveniente da un altro controllo Adodc o da una TextBox. Se invece il
valore della TextBox lo metto prima in una variabile stringa e poi questa la
metto nel controllo ado non dà più l'errore.
Qualcuno mi sa dire perchè?
Ve ne sarei molto grata anche perchè ho una certa urgenza e sto impazzendo
con una serie di errori di questo tipo (è la prima volta che uso ado e non
ho avuto neanche il tempo di frequentare il newsgroup per vedere se ne
avevate già parlato)
Saluti a tutti
Fulvia

avevate già parlato)
Nel ng se ne è già parlato, ti incollo un link che ti riporta ad un
thread dove se ne parla :))
http://usenet.iol.it/cgi-bin/ViewArticle.epl?MESSAGE_ID=%3C3a4b5498%2E5014887%40news%2Elibero%2Eit%3E
Dagli un occhio.
Saluti...

 wrote in message
news:uif66.12975$FF1.9...@twister1.tin.it...


Che service pack usi?
Questo problema non mi si verfica più con il service pack 4.
Ciao Gaetano.
-- 
Posted from 
mta15-acc.tin.it
 [212.216.176.46] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 E' incomprensibile (almeno per me)!
Probabilmente stai scrivendo un numero di caratteri maggiori di quelli che
il campo del database
puņ contenere.
Ciao
Sir Jo

 ha scritto nel messaggio
news:uif66.12975$FF1.9...@twister1.tin.it...


 wrote in message
93c3d3$9r1n9$1...@ID-68324.news.dfncis.de...
