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

Hi all i am having trouble with the if exist statement. i want it to look
for a file in a certain folder and if it is there something will happen and
if it is not there then something else will happen
eg if exist file.fle then label1.caption = "file"
    Else: if not exist file.fle then label1.caption = "not file"
end if
well i know what i have written is a little DOS like but i have no idea of
what code to use. i am putting it in a timer so that it will search for the
file in the given directory on a regular interval
thanx all
Lord Apophis

 ha scritto

dir$() -- an interesting function
put a cmd, a txtbox and a label on a form, paste the following code and
check for some filenames, including their fullpath:
Option Explicit
Private Sub Command1_Click()
    If Text1 = "" Then Exit Sub
    Label1 = IIf(Dir$(Text1) <> "", Dir$(Text1), "missing!")
End Sub
hth, pal





Hi Lord Apophis, 


 


The behavior of DOS statement "
if exist 

" is equivalnt to the VB function "
DIR
$( 
)". 


If the file exist, Dir$() returns the File 
name else 
returns an empty 
string


Use 
vbArchive
  parameter if 
you are looking for an archive (generic file),


vbDirectory 
if you are looking for 
a folder 


 


Follows a sample :


 


If Dir$(MyFilePath, vbArchive) <> "" 
Then


    ' File exist, do something 
.....


 


else 




    ' File does not exist, do 
something else .....


 


End If 


 


Vito Perrotta


 



 wrote in message
news:8v0n3s$31118$1...@ID-51318.news.dfncis.de...


 wrote in message
news:002e01c04fd3$ceeb3a30$1c00...@spico.it...
Hi Lord Apophis,
The behavior of DOS statement "if exist " is equivalnt to the VB function
"DIR$( )".
If the file exist, Dir$() returns the File name else returns an empty string
Use vbArchive  parameter if you are looking for an archive (generic file),
vbDirectory if you are looking for a folder
---
vbArchive searchs for Archive-attribute-set and no-attribute-.set files
only...
Check the documentation of Dir() for more info.
---
Follows a sample :
If Dir$(MyFilePath, vbArchive) <> "" Then
    ' File exist, do something .....
else
    ' File does not exist, do something else .....
End If
Vito Perrotta
---
Ciaotutti,
Alessandro
Newsgroup: it.comp.lang.visual-basic
Titolo: Bottone con icona esplicativa...

vorrei mettere un pulsante (ad es command1) con una iconcina di fianco. se
metto lo style = 1 (grafical), mi mette l'icona sopra la scritta e non di
fianco... come faccio a metterla di fianco alla scritta?
--
Licantrop0 / HackZ XtremE Crew dal 2001

 ha scritto

gbc aveva fatto un controllo in cui credo che l'unica possibilita' non
prevista fosse la scritta in un altro monitor, per il resto mi sembra ci
fossero tutte, ma non so se l'ha mandato sul s.c. o se l'ha sul suo web,
temo di no. in questo caso prova a cercare coi motori axbutton, di alvaro
redondo se non sbaglio.

 redondo se non sbaglio.
cazzzoooooo!!! è tutto down! :(((
alternative?

 fianco... come faccio a metterla di fianco alla scritta?
Ciao...
magari dico una scemenza...
hai pensato di usare una Toolbar???
Io le sto usando tanto per il mio programma...
Icona di fianco in grigio che diventa colorata quando ci passi col
mouse...troppo carino :-)))
Altrimenti un ocx per i bottoni con icone dovrei averlo (non ricordo dove
l'ho preso)...se ti serve e hai la pazienza di aspettare fin che non lo
trovo posso inviartelo...
Ciao
Andy

 alternative?
tutto cosa ?
http://download.cnet.com/downloads/1,10150,0-10001-103-0-1-7,00.html?tag=src
h&qt=axbutton&cn=&ca=10001
al primo search...

 ha scritto

...
http://www.google.com/search?q=axbutton&btnG=Cerca+con+Google&hl=it&lr=
al secondo.

 alternative?
vai su 
www.devpower.com
c'č un flat button favoloso... se non sbaglio č anche gratuito... o cmq io
faccio finta che lo sia... ::)))) (č bello lavorare con la fanasia)
MarioH

 faccio finta che lo sia... ::)))) (è bello lavorare con la fanasia)
The Button Bar ActiveX Control lets you easily build a modern user interface
like those used in Microsoft Outlook 98 and Project 98. The control provides
unique features such as enabling/disabling of specific tabs and items, the
ability to allow users to navigate around items with the keyboard, control
over the colors used and utilisation of Visual Basic collections.
Cost: $59.95 per developer


no aspetta non č quello...(non sia mai......) forse mi sono sbagliato...
ah ecco... č il flat button activex control:
non c'č prezzo, quindi credo sia freeware... cmq ora per sicurezza glielo
chiedo...
MarioH

Newsgroup: it.comp.lang.visual-basic
Titolo: Larghezza automatica colonne MSFlexGrid, e' possibile?

Ciao,
e' possibile attuare in una MSFlexGrid un meccanismo (simile ad excel, per
intendersi) che permetta di dare dinamicamente ad una o piu' colonne la
larghezza massima del testo contenuto in ognuna?
la funzione Len() mi da ovviamente solo il n. di caratteri, non la larghezza
(mi servirebbe in twip, credo..) effettiva a schermo del testo.
Qualcuno ha suggerimenti?
Grazie,
Marco

 wrote in message 86hnhf$rvp$1...@nslave1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: immagini in DLL, difficile o impossibile ?

Hello Programmers !!!
Ho creato una DLL con dentro un file di risorse RES (compilato con rc)
contenente alcune bitmap;
ora mi piacerebbe da dentro un altro programma VB referenziare la DLL e
attraverso un suo metodo
farmi restituire una delle bitmap in essa contenute.
Ho provato a creare metodi pubblici interni alla DLL che mi restituiscono
stdPicture, ed altro ancora
ma non sono arrivato a nulla.
Qualcun si è già scontrato con questo problema ??
Grazie.

Usa gli HDC.
Ciao
Andrea

 wrote in message
news:b2doa8$1c82et$1...@ID-170738.news.dfncis.de...



Scusa mi è partito il Send prima di scirvere il msg.
Perdona l'ignoranza, ma in che modo posso usare gli HDC per farmi ritornare
una immagine dalla mia DLL ??
Grazie,CIAO

 Grazie,CIAO
Ciao
Andrea


Ho provato a fare una cosa del genere all'interno della DLL:
a livello globale dichiaro :
    --> Dim a As StdPicture
nell'inizializzazione la istanzio ad una delle risorse del file RES (più
precisamente la 201)
    --> Set a = LoadResPicture(201, vbResBitmap)
Poi ho creato un metodo public che mi restituisce l'handle della Picture
    --> Public Function getIMG() As Variant
            -->getIMG = a.Handle
    -->End Function
La compilazione avviene correttamente, registro la DLL, la referenzio in un
nuovo progetto.
Alla fine ho scritto : (la mia DLL si chiama DLL_2 al cui interno c'è la
classe Class1 ):
    Dim a As DLL_2.Class1        --> La mia
    Set a = New DLL_2.Class1
    Image1.Picture.handle = a.getIMG()
Ma niente di niente.
Mi sai dire dove ho sbagliato ??
Grazie (poi non ti disturbo più)
CIAO

 ma non sono arrivato a nulla.
definendo il metodo nella classe cosi':
Public Function getIMG() As StdPicture
    Set getIMG = LoadResPicture(201, vbResBitmap)
End Function
dovrebbe funzionare; l'unica anomalia che ho visto e' che apparentemente non
funziona aprendo in debug il progetto con la DLL; facendo riferimento al
compilato invece tutto OK...
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 Ciao
Confermo !!! Funziona alla grande !!!!!!!!
Grazie mille.. ti sono debitore !!!
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto immagini BMP

Da autodidatta inesperto chedo aiuto per
seguente problema.
Devo creare un'immagine BMP (o altra) nella quale
sia possibile selezionare un colore come trasparente
in modo che tale colore non intrferisca con altre
immagini sottostanti nel form
Grazie anticipatamente
Daniele    
sdan...@iol.it

 wrote in message
2vMQ3.1462$yQ.2...@typhoon.libero.it...

Per fare questo devi "giocare" con delle funzioni per combinare le immagini
con operatori logici (NOT, AND, OR).
Io in genere uso le librerie LeadTools.
In questo esempio un file bitmap a sfondo bianco viene visualizzato in
trasparenza su uno sfondo.
' Carica l'immagine da sovrapporre in due oggetti Lead
LeadIcona.Load sIcoFile, 24, 0, 1
LeadIcona.GetFileInfo sIcoFile, 0
LeadMask.Load sIcoFile, 24, 0, 1
LeadMask.GetFileInfo sIcoFile, 0
 ' Crea la mask per "bucare" l'immagine
' assumendo il bianco come colore di trasparenza
LeadMask.ColorRes 8, 0, 0, 0
For iCol = 0 To 255
     ' Tutto quello che non è bianco diventa nero
     If LeadMask.BitmapPalette(iCol) <> RGB(255, 255, 255) Then
         LeadMask.BitmapPalette(iCol) = RGB(0, 0, 0)
     End If
Next
LeadMask.ColorRes 1, CRP_FIXEDPALETTE, CRD_NODITHERING, CRP_USERPALETTE
LeadMask.ColorRes 24, 0, 0, 0
LeadMask.Invert   ' Inverte la maschera
LeadSfondo.Combine x - LeadIcona.BitmapWidth / 2, y - LeadIcona.BitmapHeight
/ 2, _
                      LeadIcona.BitmapWidth, LeadIcona.BitmapHeight,
LeadMask.Bitmap, 0, 0, CB_SRC_NOT
LeadMask.Combine 0, 0, LeadIcona.BitmapWidth, LeadIcona.BitmapHeight, _
                                 LeadIcona.Bitmap, 0, 0, CB_OP_AND
LeadSfondo.Combine x - LeadIcona.BitmapWidth / 2, y - LeadIcona.BitmapHeight
/ 2, _
                                  LeadMask.BitmapWidth,
LeadMask.BitmapHeight, LeadMask.Bitmap, 0, 0, CB_OP_OR
E' un po' complesso però funziona bene.
--
Nino Stella
Inteldata Srl
email: 
nino...@tin.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Codice fiscale

Cioe' genera 300000 (trecentomila) codifi fiscalli errati?
No. I codici fiscali errati sono 30.000 (trentamila) e non 300.000
(trecentomila)!
Però bisogna verificare se i dati inseriti nel database sono corretti.
La funzione generava il codice fiscale e poi lo confrontava con quello
scrittto. Se i dati sono errati... io non ci posso far nulla. Lui
leggeva, generale e verificava.

 leggeva, generale e verificava.
Si, ma il codice che fa fede e' quello (IYO) "errato" non quello generato.
Questo IMHO basta per dire che i programmi di generazione di codice
fiscale possono essere usati al piu' come ausilio per la verifica ed eventuale
notifica di "possibili" errori, e non come strumento di validazione.
Just my 2 ?¢.
Lokar

 notifica di "possibili" errori, e non come strumento di validazione.
Verissimo! 
Ciao, Efisio
Newsgroup: it.comp.lang.visual-basic
Titolo: come togliere le righe orizzontali in un mschart

non bestemmiatemi dietro ma ho cercato in internet e anche su msdn ma 
non sono riuscito a capire

diska wrote:
[cut]
Non ricordo esattamente, ma se sfogli l'object model di MSChart, dalle parti 
di:
MSChart1.Plot.Axis(VtChAxisIdY, 1).CategoryScale.DivisionsPerLabel
MSChart1.Plot.Axis(VtChAxisIdY, 1).CategoryScale.DivisionsPerTick
credo che tu possa trovare qualcosa.
Ciao
Alberto
-- 
"Se viriamo, viriamo viriamo viriamo;
Se andiamo dritti, viriamo"
(Cit. "il tattico")

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] wiever .doc per vb6

devo visualizzare files in formato winword come faccio senza aprire
direttamente word ma in  un form ??
grazie a tutti
Mauro

direttamente word ma in  un form ??
OLE
(non è una corrida)
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: ? CurrentX e CurrentY diversi

Ho copiato una routine di stampa con l'oggetto printer
Ho cambiato Printer con Picture
ScaleMode =vbcentimeters
In stampa funziona perfettamente, mentre a video sulla picture le CurrentY e
le CurrentX non sono precise.
Perche?
Come fare per far si che, siano precise sia in stampa che a video.
Carmelo

[Carmelo] scrisse:

posso autocitarmi?
thread "Anteprima di stampa con picture box" del 4/02/03
--
Salutoni
Sergio

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

salve a tutti
cosa potrei utilizzare per provare le mie istruzioni in sql? cioč mi spiego
meglio:
esiste una sorta di programma compilatore per questo tipo di linguaggio?
grazie mille


MS Access
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

> MS Access
Oppure ESP0DAMA sul sito comune (
www.it.lang.vb.net
)


 ha scritto nel messaggio
news:xo5%b.1127$mt1...@tornado.fastwebnet.it...


> sn andato sul sito.. ma non mi viene nulla....
a me si...
http://www.it-lang-vb.net/archivio.asp?subMenu=Tutte&FullText=on&TypeRic=AND&keyword=esp0dama&x=15&y=10


 ha scritto nel messaggio
news:_u5%b.1140$mt1...@tornado.fastwebnet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: URGENTE....HELP ME!

ciao è la prima volta che visito questo newsgroup e sono poco esperto....a
questo si aggiunge il fatto che cerco un' OCX per editor grafico in vb.
Mi serve urgentemente per la tesi che sto facendo......se qualcuno può
aiutarmi gli/le sarò veramente grato.......
HELP ME!

Ciao,
vedi se ti va bene il controllo MSChart della Microsoft gia disponibile in
VB (cercalo tra i componenti).
Ciao Luciano.
P.s. La prossima volta, per cortesia, metti un oggetto al messaggio inerente
alla domanda/richiesta che vuoi fare.
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] Come fare?

Devo fare uno ZOOM generale per tutte le tabelle del mio programma. Ho
pensato di crearlo in questo modo:
FrmZoom.frm        Contiene una lista dei dati della tabella che voglio
zoommare.
al form gli passo come parametri il path dell'archivio + l'struzione sql
sulla tabella che mi interessa. In questo modo visualizzo solo i dati dei
campi che ho nella mia istruzione SQL.
Quando l'utente preme invio ottengo una stringa con le informazioni che mi
interessano.
il problema e'  :  come faccio a usare il mio form come se fosse un
function?????
ho pensato di creare un controllo. Ma in quella direzione mi so' muovere
poco. Se qualcuno puo' dirmi come si passano e recuperano dati da un
controllo posso provarci. Grazie.
Saluti..............


Nel tuo form crei una function pubblica
Public Function ZoomExecute( sSql as string, sFileName as string) as boolean
   ' Qui metti il codice per aprire il form  e fare le operazioni che ti
servono.
End Function

 ha scritto nel messaggio
news:GA7Lc.23118$OR2.1...@news3.tin.it...


 VARIABILE = ZOOMEXECUTE(ARCHIVIO,ISTRSQL)
In variabile ritrovi quello che ci metti nella function, mi spiego meglio:
Se hai dichiarato la funzione come nell' esempio che ti ho fatto io, potrai
avere un valore booleano come ritorno, ma comunque, sei tu ad assegnarlo
all' interno della function :
 Public Function ZoomExecute( sSql as string, sFileName as string) as
boolean
        me.show
        ' qui esegui l' SQL e metti il risultato in una griglia o in quello
che ti pare
        'se è andato tutto bene
        ZoomExecute = True
End Function
Se non ti serve il valore booleano, puoi dichiarare la Function As String, o
se vuoi il numero di record trovati con lo zoom, la dichiari come long e
assegni a ZoomExecute il numero di record trovati, insomma lo devi sapere tu
quello che ti serve e ti comporti di conseguenza.
Ciao

 ha scritto nel messaggio
news:6SeLc.25122$OR2.1...@news3.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: VBA - E' possibile comprimere una cartella mediante VBA e WinZIP

Ciao a tutti,
sto sviluppando un programma in VBA il quale dovrebbe comprimere una
cartella e le sue sottocartelle in un file ZIP.
Ci sono riuscito scrivendo un file *.BAT e mediante il file winzi.exe del
vecchio DOS, ma purtroppo questo non supporta i file più lunghi di 8
caratteri.
Ho quindi provato a utilizzare il file WinZIP32.EXE dell'installazione di
WinZIP8.0 ma questo non supporta il DOS
Quindi mi affido alla vostra esperienza: è possibile senza avere installato
WinZIP comprire un cartella di file mediante VBA? Se si come?
Spero in un vostro aiuto.
Ringrazio in anticipo.
Ciao
--
Emiliano - Webmaster di EmiCAD® - Tutto per AutoCAD
e-mail:  
webm...@emicad.it
web:  
www.emicad.it

 WinZIP comprire un cartella di file mediante VBA? Se si come?
Sito comune oppure esistono delle api che comprimono in file .cab.
Saluti
Newsgroup: it.comp.lang.visual-basic
Titolo: Data Report e Problemi di visualizzazione

Ciao, sono un principiante in VB e mi sono imbattuto nel seguente problema
creando un programmino.
In pratica il Data Report deve stampare i contatti presenti in un anagrafica
clienti, in base al cliente selezionato dall'utente.
Io ho implementato la selezione del cliente inserendo il seguente codice in
un pulsante:
DataEnvironment.Commands("Cliente_Stampa").CommandText =  '"SELECT * FROM
Clienti WHERE ID=" & ObjRs("ID")
ReportClienti.Show vbModal
ObjRS("ID") restituisce l'id del cliente che è correntemente visualizzato
dall'utente.
Il problema è qui: il programma visualizza correttamente il report, ma
visualizza sempre lo stesso. Anche se cambio cliente, visualizza sempre i
dati del primo che è stato aperto.
Mi scuso se è una domanda stupida, ma non riesco proprio a capire...
Grazie e ciao

 ha scritto nel messaggio
news:9pr0td$e1$1...@newsreader.mailgate.org...


Newsgroup: it.comp.lang.visual-basic
Titolo: Creazione di chiave odbc

salve avrei la necessità di generare tramite codice una chiave odbc, ossia
un DSN di sistema qualcuno ha già avuto precedenti?
potrebbe postarmi parte del codice o dirmi un sito internet dove prelevarlo?
grazie 1000
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 potrebbe postarmi parte del codice o dirmi un sito internet dove prelevarlo?
http://www.freevbcode.com/ShowCode.Asp?ID=502
(Ho cercato con google questo: "system dsn" "declare function", è il
terzo risultato)

 terzo risultato)
Si ma tu hai cercato "system dsn"....
a lui serve un "dsn di sistema"!
ghghgh
-- 
Il Wodkino Nazionale è a : 
www.martek.it
Pagina Vb/Bestiario/Lamer Experience :
http://www.martek.it/go.asp?portamia=2
 New Entry nel bestiario!
Aderisci al M.A.I.  
http://www.villaceleste.it/html/icadioti/

 ha
scritto:

ti ringrazio per la risposta ho ancora un altro problema la mia
autenticazione avviene
attraverso la password di rete di windows nt come posso emularlo?
nel mio caso inseriusce un user id con il mio nome nonostante non glielo
passi grazie ancora


 passi grazie ancora
Da 
www.connectionstrings.com
 si evince come, per SQL Server via ODBC
basta usare il parametro Trusted_Connection=yes.
Ergo per te sarebbe:
SQLConfigDataSource( _
   0&, _
   ODBC_ADD_SYS_DSN, _
   "SQL Server", _
      "DSN=" & NomeDSN & vbNullChar & _
      "Server=" & NomeServer & vbNullChar & _
      "Database=" & NomeDatabase & vbNullChar & _
      "Trusted_Connection=yes" _
)
Nota: non so se per separare i vari parametri del DSN ci vuole il
vbNullChar (come ho scritto) o il ";": ho trovato scritti entrambi.
Prova e... sappi dire.
Newsgroup: it.comp.lang.visual-basic
Titolo: Repost: Gestione della stampa e anteprima

Come da oggetto, esiste un qualche controllo bello e fatto, della
documentazione o degli esempi ben "remmati" per cercare di capirci qualcosa?
Devo gestire una stampa abbastanza complessa, dove in delle schede cliente
alcuni campi sono di lunghezza predefinita, uno variabile fino a 980
caratteri e NON devo MAI troncare una scheda stampandola parzialmente su due
pagine. Mi viene richiesta poi la possibilità di gestire anteprima e stampa
da pag a pag.
Ho cercato sui libri che ho, ho guardato sulla guida alcune voci come da
suggerimento, ma non ho trovato nulla di chiaro o indicazioni risolutive,
nemmeno un'idea di come fare.
Qualcuno può anche solo per linee sommarie spiegarmi cosa fare?
PS: I dati NON sono su DB.

Ben remmati?
Magari gratuito :)
E una fetta di culo tagliata sottile vicino all'osso?
Magari col buco?
Scherzo, non ti arrabbiare...
Il mio non è remmato per nulla :))
Il massimo che ci trovi è un esempio.
Ma è gratuito...
Codice .BAS e due .FRM.
Fa tutto quello che vuoi.
PrnPrv3, Area VB
---
GbC
http://gbc.homeip.net
---

 ---
Ora ci vado, lo scarico e......
GRAZIEEEEE!!!!!!!!!!

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Combobox con CHECKbutton ?

VisualBasic 6
Win98
----------------
Salve a tutti !
Ho visto che esiste la possibilità di mettere in una listbox dei
checkbutton. A me servirebbe pero' metterli nella Combobox.
Sapete se esiste un controllo che permette questo, o se c'e' la possibilità
di modificare il combobox esistente ?
Grazie!
DaVe
--
Leave [KILL SPAM] from adress.

 wrote in message
7r7tti$pc2$2...@news.swissonline.ch...


Newsgroup: it.comp.lang.visual-basic
Titolo: Speech Engine SDK 5.1

Salve Gente!
Ho un problema: cerco (diciamo disperatamente) cio che ho scritto in
oggetto. So che e' possibile scaricarlo dalla rete dal sito della MS ma
sapete com'e'... ho un 56K! So anche che per i residenti degli USA e del
Canada e' possibile farselo spedire per posta... ma io sono un puro
Italiano!
La mia richiesta dunque e' la seguente:
1) Qualcuno di voi e' a conoscenza di una rivista che contenga il suddetto
Kit completo(inclusi .doc)???
2) Qualcuno di voi lo possiede e vuole diventare santo*??
*Per diventare santo e' sufficiente mettere il tutto su cd-rom e spedirmelo
a casa... naturalmente tutte le spese (spedizione,cd,disturbo,effetti
collaterali...) sono a carico mio...
P.S.
qualcuno di voi ha gia' sviluppato qualche cosa con lo speech engine?
Funziona bene? E' facile da usare?
--
____________________________
   G 1 0 X®
Web: 
www.giox.net
Alt. Mail: 
info...@libero.it
Icq Uin: 47698601
Irc Chan. @azzurranet:
   #mhackerone; #ahccc; #linux;
_____________________________

 wrote in message
news:rf_u7.21042$0Y2.2...@news.infostrada.it...


 wrote in message
news:rf_u7.21042$0Y2.2...@news.infostrada.it...


 ha scritto nel messaggio
news:9q3tgk$k66$1...@nreada.inwind.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] Check per update da Internet

Come posso fare a far controllare al mio programma se e' disponibile un
update? Come glielo faccio scaricare?
Grazie 1000 a chi mi rispondera'
CiaoZ

 wrote in message
S3tv5.11693$Sm1.1...@news.infostrada.it...


 wrote in message
news:j8yv5.15872$Sm1.2...@news.infostrada.it...

Potresti mandarli a me gli esempi ne ho bisongno per tutt'altro motivo ma
mi farebbero veramente comodo!!
    Ciao            Danilo
minerv...@libero.it


Potresti mandarli anche a me? Ringrazio anticipatamente.

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] IMAGE Control; mantenere il RATIO

Sto scrivendo uno screen saver che deve visualizzare ad intervalli di
alcuni secondi un gruppo di immagini contenute in una directory.
Ho usato il controllo IMAGE per il fatto che ha la funzione STRETCH
che mi adatta automaticamente l'immagine alla dimensione del controllo
image. Questa funzione mi è necessaria per il fatto che le immagini
originare superano abbondantemente le dimensione del display. Esempio
800x600, contro un immagine per esempio di 2500x1600 pixel.
La funzione STRETCH però non mi lascia invariato ovviamente il RATIO
(proporzioni) della foto, cioè la deforma.
La mia necessità sarebbe invece avere la foto adattata alla dimensione
del controllo il più possibile, giusto con quello scarto da avere la
foto comunque al RATIO 1:1.
Non so come fare....
Ciao.
Igor
-----------------------------------------------------------
"We are such stuff as dream are made on"
William Shakespeare, "The Tempest"
-----------------------------------------------------------
Email: 
igor.ba...@imola.nettuno.it

 foto comunque al RATIO 1:1.
Ipotizzando che tu hai l'immagine da assegnare al controllo Image in una
variabile Picture denominata Pic...
Dim Pic as Picture
Set Pic=loadpicture("pippo.bmp")
... e che il controllo Image si chiami Immagine. Non devi fare altro che
memorizzare i valori delle sue dimenzioni di partenza...
Dim W as Single
Dim H as Single
W=Immagine.Whidt
H=Immagine.Height
... per poter ripristinare le dimensioni di riferimento ogni qual volta gli
passi un'immagine da ridimensionare. A questo punto il corpo della routine
sarebbe questo:
Private Sub Ridimensiona()
Immagine.Move 0,0,W,H 'Riimposta l'image alle sue dimensioni originarie
If Immagine.Width / Pic.Width < Immagine.Height / Pic.Height Then
    Immagine.Height = (Immagine.Width * Pic.Height) / Pic.Width
Else
    Immagine.Width = (Immagine.Height * Pic.Width) / Pic.Height
End If
Immagine.Picture = Pic
End Sub
Ciao
Daniele
P.S. La mia intenzione era quella di essere il più chiaro possibile ma,
rileggendo il post, non sono sicuro mi sia riuscito...

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

E' possibile configurare il driver ODBC con VB6 (ent).
Vorrei creare uno user per Oracle 7.3 ver 2.5
Come si può fare da codice senza far pacioccare l'utente con ODBC??
mlra...@tin.it
Grazie
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] ma non troppo

Salve io sono un programmatore in vb5 o meglio sono un infermiere a cui
piace programmare anziché giocare ed è una passione che ho sin da quando
pargolo quasi in fasce ebbi modo di mettere le mani su un zx spectrum (un
cosino con i tasti di gomma che è scomparso insieme a i dinosauri) ho
programmato in Basic per spectrum in Basic per commodore in Basic per DOS in
pascal e con Windows 95 sono approdato in VB prima alla versione 4 ora alla
versione 5.
Tutto questo mare di parole semplicemente per ringraziare tutti quanti
partecipano a questo NG a cui partecipo in silenzio (ho spedito solo un paio
di risposte e di domande) da poco più di un mese.
a dire il vero ringrazio solo quelli che partecipano seriamente riferendomi
ad alcuni casi in cui qualche 'ignorante' si è inserito con delle
'stronzate' o peggio facendo lo 'stronzo' perdonatemi le parole 'forti'.
l'unico mio problema è che io la programmazione lo sempre inventata senza
mai leggere molti libri ma solo le Help in linea o semplicemente dei
breviari con solamente i comandi senza spiegazioni quindi spesso trovo
difficoltà a capire quello che scrivete (ad esempio ho capito solo oggi cosa
vuoldire [OT] !!!)
comunque aspettatemi presto in questo NG ed al sito comune con qualche mio
sorgente.

sorgente.
Il WM e' paziente :-)
Saluti
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto con operatori in vb 5

Sono un neofita di vb5 e sto creando un'applicazione per sommare, sotrarre,
moltiplicare o dividere
una percentuale a un numero (es: somma a 56 il suo 49%). Ora il problema sta
nel fatto che quando devo inserire un operatore (+, -,* ,/) nella textbox
non so
che codice devo scrivere.
grazie per il vostro aiuto.
p.s. per + e - ho usato if then else, ma cosa devo scrivere se voglio usare
+ - * /, risparmiando sul codice?

 wrote in message
2QWj5.32875$dF5.6...@news.infostrada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: verificare esistenza file

come posso fare per verificare l'esistenza di un file ?
su una certa path?
Grazie della risposta in anticipo
--------------------------------
Inviato via 
http://usenet.libero.it

 ha scritto nel messaggio
news:81Z75Z113Z26Y1...@usenet.libero.it...


 (da inserire in un modulo)
[cut]
Uhm... Interessante metodo... E in effetti funziona. Io ho sempre usato
questa funzione:
Public Function Fexist(NFile As String) As Boolean
Dim FreeExist As Integer
FreeExist = FreeFile
Close #FreeExist
On Error Resume Next
Open NFile For Input As #FreeExist
If Err And Err.Number <> 70 Then Fexist = False Else Fexist = True
Close #FreeExist
End Function
Com'č?? Forse č meglio l'altra?
Antonio Mirarchi

 Com'è?? Forse è meglio l'altra?
Hanno una sfiga ciascuna:
La tua verifica se il file è apribile, non semplicemente che esista. Quindi,
nel caso di file condivisi, potrebbe darti un esito sballato.
Quella col Scripting.FileSystemObject è molto 'moderna', ma viene centrata
da alcune impostazioni degli antivirus, con blocco del programma. Chiedere
ai vari webmaster che usavano il filesystemobject nelle pagine Asp, e
avevano Norton Antivirus sul server IIS.
Direi che un semplice Dir farebbe al caso vostro senza le controindicazioni
du cui sopra.
Ciao
Alberto

puoi farmi un esempio di uso della dir ??
a me occorre verificare l'esistenza di un semplice file htm.
Grazie della risposta in anticipo.


 ha scritto nel messaggio
news:81Z75Z113Z26Y1...@usenet.libero.it...

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.471 / Virus Database: 269 - Release Date: 10/04/2003

 
'*** Se il file esiste, allora
if dir(<percorso_file>,vbArchive)<>"" then
end if
Ciao,
        Fabrizio
-> 
www.negusweb.it
 <-

Moltissime Grazieeeeeeeeeeeeeeeeeeeeeeeeeeee


 End Sub
E dove vuoi che vada se non č = ""? :)
Ciao
--
Math Parser, VB.Framework : 
http://www.neodatatype.net
Sito Comune               : 
http://www.it-lang-vb.net





Davvero o è una sparata?


 Davvero o è una sparata?
è una sparata...
cmq a volte per chiarezza preferisco mettere elseif..

Newsgroup: it.comp.lang.visual-basic
Titolo: [BUG][!] CDbl()

Ma la CDbl() non dovrebbe seguire le impostazioni internazionali?
Allora perchè sul mio sistema con
Separatore decimale = "."
Separatore migliaia = ","
Debug.Print CDbl("5,5")
 55
Debug.Print CDbl("5.5")
 55
---
Separatore decimale = ","
Separatore migliaia = "."
Debug.Print CDbl("5,5")
 5,5
Debug.Print CDbl("5.5")
 55
Ma lo fa solo sul mio?


Credo che tra una modifica e l' altra del pannello di controllo, windows voglia essere
riavviato. 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Spedire fax

Qualcuno sa come si fa?
Ho letto su MSDN che con TSPI ( un estensione di tapi, il driver di
telefonia) si puň fare una chiamata telefonica classe3, cioč quella dei fax,
e poi tramite l' handle della linea si possono inviare i dati.
Le domande sono due:
-Se un fax č un file grafico, quale formato deve essere utilizzato?
-Come si possono convertire file di testo e immagini nel suddetto formato?
Grazie in anticipo e buon 2000



> Qualcuno sa come si fa?
Io uso W95 e Word, ma credo che non fosse questo quello che chiedevi... :-)
Che c'entri con le TAPI?
Di sicuro c'entra solo con 1 solo dei NG, e probabilmente nessuno di quelli
che hai indicato. Io proverei in it.comp.programmare.win32, dove ho
impostato il follow-up e che ho aggiunto alla lista
--
Alessandro Monti
Newsgroup: it.comp.lang.visual-basic
Titolo: La mia ignoranza chiede aiuto

finito un progetto viene compilato e creato quindi un exe!!
ma se io ho un file eseguibile e vorrei fare il contrario(decompilare: se il
termine è giusto)
Paxcal


Ahem.... hai detto "decompilare"? quindi cerchi un decompilatore?
Se cerchi su google le risposte ricevute nel passato da chi chiedeva un D...
capirai che č meglio se posti un messaggio del tipo: "Scusate, ma alle 17.00
mi sono bevuto 6 litri di rosso e, da ubriaco, ho posto una domanda sconcia
e senza senso sul ng... scusatemi ancora" e speri che questo plachi le ire
funeste che si scateneranno comunque... :-)
Aloha..
--
Stefano Zamboni (
sz...@libero.it
)
--------------------------------------------------------------
"If Bill Gates had a dime for every time a Windows box crashed...
...Oh, wait a minute, he already does."

 funeste che si scateneranno comunque... :-)
LOL :-P
--
Sito Comune
http://www.it-lang-vb.net/

 termine č giusto)
no, non rispondo...
ma si, dai, rispondo...
no, non rispondo...
ma si, dai, rispondo...
no, non rispondo...
ciao
ugo

no, non rispondo...
-- 
ciao, hal
p.s.
spero che l' originario inventore di questo subject in icsw non se ne
abbia a male ;-)

 termine č giusto)
(scusate, ma se non interviene pal, ci penso io :)
"ma se io -avessi- un file eseguibile e -volessi- fare il contrario?"
ciao, assa.



:-)
ciao
ugo

 ha scritto nel messaggio
news:a19m6j$pd2cp$1...@ID-56381.news.dfncis.de...
[cut]
ROTFL
ciao
ugo

 ciao, assa.
"e se io ebbi un fàil eseguàibil e vorrei fare il gontrario ?"
 ( <--- prego notare il blank prima di trattino-trattino-firma :)
--
ciao, j.bis
(cardi)
www.sundaysw.com

Newsgroup: it.comp.lang.visual-basic
Titolo: avvio di un exe alla partenza di Win

Vorrei mettere una checkbox del tipo "Avvia il programma alla partenza di
Windows", il problema è che non so come e dove scrivere nel registro di win
per far partire un exe all'avvio del so. Oltre a creare le chiavi dovrei poi
anche riuscire ad eliminarle. Chi mi scrive due righe di esempio? :-)
ciao e grazie

 ha scritto

due righe ? ci dovrebbe essere una classe sul sito comune:
--
www.it-lang-vb.net

 ha scritto nel messaggio
news:Ln4V7.351672$sq5.17...@news.infostrada.it...

E se invece di scrivere nel registro lo aggiungi in esecuzione automatica
nel menu di avvio o alla sezione load del win.ini?
Non sarebbe piu comodo?
Davide
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiutatemi per favore...

Ho fatto diverse macro in VB per programmare dei fogli di Excel.
Premetto che non ho manuali e non ho mai letto manuali di VB, per cui il
mio problema potrebbe essere una stronzata...
Ad un certo punto della macro ho la seguente linea:
Windows("05SPED.XLS").Activate
Semplicissimo! Se il file "05SPED.XLS" e' aperto non ci sono problemi,
viene attivato. MA, SE IL FILE NON E' APERTO???!!!
Vorrei in pratica gestire l'errore. Come si gestisce un errore di questo
tipo?
Se qualcuno fosse cosi' gentile da aiutarmi (anche privatamente
giv...@tin.it
) gliene sarei eternamente grato.
Thanks
Luke

 ha scritto nel messaggio
news:1ez8e8q.7nqv2kbihv7wN@[62.98.123.123]...


Un consiglio:
1-Il subject... cerca di mettere sempre subject inerenti alla tua richiesta
Questo é un messaggio di risposta standard e quindi impreciso, viene inviato
in genere a chi si é da poco affacciato al NG e potrebbe non contenere le
risposte in maniera diretta...
1)  Controlla il subject! Subject tipo: "Aiutooooo", "!!!", "Non ci sto più
dentro", "Sto impazzendo" sono subject che vengono filtrati da quasi
tutti... (Escluso il sottoscritto ancora per un po') e quindi non vengono
nemmeno letti dal 90% dei partecipanti (forse meno, ma comunque tanti)
2) Prima di postare sul NG sarebbe bene seguire un certo iter:
    a) Cercare nell' Help (alias MSDN ove possibile)
    b) Cercare nei vecchi post... Se ne hai pochi... non c'é problema, qui
ci sono quelli degli ultimi 6 anni (circa):
 
http://groups.google.com/advanced_group_search
    c) Cercare sul sito comune 
http://www.it-lang-vb.net
...Comunque almeno i post vecchi, MSDN e il subject sono vitali...
                        Ciao
                                Allanon

        
http://groups.google.com/advanced_group_search
wow... che bello, ho trovato il mio primo post sul ng... ed indovina che
subject aveva? "LEGGETEMI!!!" (28 Oct 1998)
eh eh eh... ok, potete iniziare a sputtanarmi... :-)))
Ciao,
Moreno
#sirri#@#
morenosoft.com#
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: si può fare ? e come ?

ho bisogno di una cosa del genere:
ho il mio file (file1.exe) che e un gestionale, alla setra viene ridotto a
icona perchè la notte arrivano via email i file da importare.
ora finziona che al mattino l'utente clicca sull'apposito pulsante per
importare i dati. Ho bisogno di elimiare quest'operazione che deve essere
lanciata da un programma esteno.
Come posso fare ?
i punti fermi sono che
1) file1.exe è già in esecuzione, non può quindi essere lanciato con un
parametro che gli dice cosa fare
2) non posso fare in modo che file1.exe scansioni regolarmente una cartella
e quando trova il file lo elabora
In sostanza ho bisogno che un'altro file dialoghi in qualche modo con il mio
file1.exe che è in esecuzione.
Spero di esser stato chiaro, grazie per ogni aiuto.
Marco

 file1.exe che è in esecuzione.
trasormi l'exe in active exe, in questo modo il tuo programma diventa un
server, le altre applicazioni dialogheranno con lui con l'apposito metodo
che renderai pubblico o magari tramite evento sempre publico...
ciao
Davide

 ha scritto nel messaggio
news:d9VW9.76584$AA2.3...@news2.tin.it...

ci avevo pensaatoanche io, ma non posso per n motivi che non sto qui a
spiegare...
Altre idee ?

 Altre idee ?
non per polemizzare ma se vuoi risposte dovresti cambiare l'oggetto del tuo
post !
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

 file1.exe che è in esecuzione.
Alle altre risposte che ti hanno già dato, aggiungerei un'idea
"sporca": un Winsock in attesa su una determinata porta,
così lo puoi comandare anche via rete. Naturalmente un WS
lavora anche in locale, su 127.0.0.1.
Bye, G.
Newsgroup: it.comp.lang.visual-basic
Titolo: IMMAGINI DWG: COME FARE???

Vorrei riuscire a visualizzare in una picture box un file con estensione
.DWG (sfornato da autocadLT). Come posso fare????
Datemi qualche consiglio, altrimenti non posso continuare a lavorare!!
           GRAZIE e CIAOOOOOOOOOOOOOOO

...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] FORM TROPPO GRANDI

Nei giorni scorsi ho già postato questo quesito in forma diversa
Non avendo avuto l'attenzione di un'anima pia, lo rimetto in ciclo.
Il mio problema è questo:
Nel realizzare dei Fom che hanno insieme :molte etichette, Text Box, Formule
Matematiche, Grafici ecc.
mi viene fuori un progettazione molto lunga oltre che laboriosa.
Ho pensato che avrei potuto risolvere meglio il tutto realizzando una
immagine contenente tutta la parte non attiva
(descrizioni e formule matematiche e grafici) e sovrapporre solo le text box
di input o le etichette di out dei risultati di calcolo
Ora in non riesco a realizzare l'immagine di sfondo: chi mi può indicare la
procedura migliore per realizzare l'immagine
(quale software usare e come dimensionare l'immagine)?
Grazie dell'attenzione.
Tommaso

(quale software usare e come dimensionare l'immagine)?
Se ho ben capito il problema potresti invece crare un modello di form
(ma non chiedermi come di preciso... Non ho mai provato, consulta la
guida!)
*************************
* Eldar - Ettore - Dice *
* 
elda...@hotmail.com
 *
*************************

usa il sw che conosci meglio..:=)
dal paint al photoshop...
fai l'immagine bmp. e considera che non verrà mai ridimensionata se la metti
come sfondo del form...
ciao



 ha scritto

non riesco a capire. l'immagine devi crearla una volta per tutte o
dev'essere una faccenda dinamica ?
nel primo caso, puoi usare photoshop o simili. crei una bitmap delle
dimensioni che ti servono, poi catturando schermate dai grafici puoi
sovrapporre livelli con grafici ecc.; il testo lo puoi inserire allo stesso
modo o direttamente. mi sembra un po' macchinoso per collocare poi i
controlli. se non vai al pixel esatto ci sara' sempre qc di strano.
i metodi possono essere infiniti. in un caso in cui volevo che le persone
leggessero un certo testo, l'ho fatto in word cercando di stare dentro a un
800-600, poi catturato la schermata e messa come sfondo del desktop.
difficile possano dire che non ne sono a conoscenza. word ha anche l'editor
di formule e credo abbia ancora word art. ci puoi fare parecchio, coi limiti
di cui sopra.
se ti serve dinamica, forse dovresti usare un picbox e andarci a disegnare
sopra quello che ti serve. ma prego per te di no.
ciao, a.


Grazie della risposta abbastanza esauriente

Newsgroup: it.comp.lang.visual-basic
Titolo: Shutdown win2k

Ciao a tutti, avrei una domandina da farvi, ....
ma l'api per effettuare lo suthdown di win2k è diversa da quella di win9x
????
Se è diversa mi dite qual'è l'api che effettua lo suthdown di win 2000???
Grazie per l'aiuto

 ha scritto nel messaggio
news:yxXU7.26596$o9.8...@news1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 & MSSQL

Dear all,
How does a program interface written by Visual Basic 6.0 can link with a
MS SQL database?
Thank you for your help!
Best Regards,
Eddie
eddi...@hotmail.com
Sent via Deja.com 
http://www.deja.com/
Share what you know. Learn what you don't.


Use ADO objects library, with OLE-DB provider for SQL-Server.
--
Roal Zanazzi
z...@iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB2005] Datagridview

Salve,
due domandine,
ho una datagridview alla quale devo poter cambiare, a piacimento,
l'altezza del testo per ogni singola cella, fin quì Ok, questo è il
codicino:
'-----------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
DataGridView1.Item(MyCol, MyRow).Style.Font = New Font("Arial", 14,
FontStyle.Regular)
End Sub
Private Sub DataGridView1_CellMouseDoubleClick(ByVal sender As Object,
ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs)
Handles DataGridView1.CellMouseDoubleClick
MyRow = e.RowIndex
MyCol = e.ColumnIndex
DataGridView1.Item(MyCol, MyRow).Style.Font = New Font("Arial", 14,
FontStyle.Regular)
End Sub
'-----------------------------------
Il problema mi sorge quando devo "recuperare" dalla datagridview il
valore dell'altezza precedentemente impostata, per es. con un ciclo,
tipo :
'-----------------------------------
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Dim nCol As Integer = Me.DataGridView1.ColumnCount
Dim nRow As Integer = Me.DataGridView1.RowCount
For iCol As Integer = 0 To nCol - 1
For iRow As Integer = 0 To nRow - 1
If DataGridView1.Rows(iRow).Cells(iCol).Value <> String.Empty Then
....
End If
Next
Next
End Sub
'-----------------------------------
Avete qualche suggerimento ?
Grazie mille
RZ

 Avete qualche suggerimento ?
dataGridView1.Rows[1].Cells[1].Style.Font.Height non funziona?
-- 
S.

 dataGridView1.Rows[1].Cells[1].Style.Font.Height non funziona?
Scusami, ho risposto in C#.
Sostituire le quadre con le tonde.
-- 
S.


grazie mille
RZ

Newsgroup: it.comp.lang.visual-basic
Titolo: Tipi di dati: meglio Byte o Integer per piccoli cicli?

Buongiorno a tutti
Per piccoli cicli, cioč per cicli (For, Do, ecc.) che contano poche
iterazioni (il contatore arriva max a 50)
č meglio che la variabile contatore sia di tipo Byte o Integer parlando in
termini di efficienza?
Ringrazio anticipatamente
Max


wrote:


 ha scritto nel messaggio
news:sYZL4.14166$xt2.1...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?]3 CVD Slider e tooltip, richiesta disperata!

Quel CVD sta per : come volevasi dimostrare!
Stavolta sono al limite della follia. Mi sono girato ogni sito di Vb SC
compreso,google ,MSDN, ed ogni tipo di aiuto possibile, ma nisba.
Il povero Java aveva giaą cercato di darmi una mano ma, forse per mia
incompetenza lo ammetto non vi č riuscito:
ho uno slider, che devo includere in un controllo OCX, adesso questo slider
deve contenere valori molto ma molto grandi, fin qui, tutto OK se non fosse
che mi compare un fastidiosissimo tooltip che mi indica il valore del
cursore dello slider e essendo i valori massimi molto grandi, l'effetto č
orribile!
Il bello č che la posizione del testo, puņ essere settata (proprietą
slider.textposition) ma non eliminata. Avevo pensato ad una SendMessage(API)
che disabilitasse i tooltip, ma non ho trovcato nulla, ho messo anche in
tutti gli aventi slider
slider1.tooltiptext=""
 ma nix. Cosa posso fare?
Se avete un cuore rispondete, se non lo avete andatevi a
curare(scherzavo)!
Aiutooooooooo!
Ciao e grazie da un Goku quasi rassegnato, aiutatelo!

orribile!
Prova con la trackbar del CCRP: e' in beta, ma sembra stabile:
http://www.mvps.org/ccrp/controls/ccrpslider5.htm
-- 
hth, hal

[...] ho uno slider, che devo includere in un controllo OCX, adesso questo
slider deve contenere valori molto ma molto grandi, fin qui, tutto OK se non
fosse che mi compare un fastidiosissimo tooltip che mi indica il valore del
cursore dello slider e essendo i valori massimi molto grandi, l'effetto è
orribile! [...]
Vado a braccio, ma mi sembra di ricordare che in qualche versione precedente
di VB (4? 5?) il ToolTip non esisteva. Se installi quella versione, hai
risolto.
Ciao,
Carlo.

risolto.
Sempre che non gli venga sovrascritta da un' altra applicazione ;-)
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Comando Sql

Ciao a tutti.
Eseguendo questo pezzo di codice sotto Win98 SE va tutto bene ma sotto XP mi
va in errore "Impossibile salvare. Attualmente bloccato da un altro
utente.".
La tabella comunque non è bloccata da nessun altro utente, vi accedo solo
io.
 strSql = "Alter Table TDocTestate Alter Column RifOrdine CHAR(10) With
Compression DEFAULT """""
 Conn.Execute strSql
Qualcuno mi sa dire qualcosa per piacere?

Ho risolto!
Il problema era che usavo anche un oggetto ADOX.Catalog per fare delle
modifiche al database. Si vede che questo oggetto mi bloccava la tabella e
quindi ho dovuto mettere l'attibuto Mode della connessione =
adModeShareDenyNone
Adesso tutto funziona bene.
Comunque sotto WIN98SE non ce n'era bisogno.
Newsgroup: it.comp.lang.visual-basic
Titolo: controllo data (mi vergogno un po')

Quando devo lavorare su un database la mia procedura è quella di mettermi il
mio caro controllo data (o ado) sul form, mettendolo invisibile e lavorare
via codice facendovi riferimento con istruzioni del tipo
data1.recordset.movenext
data1.databasename...
data1.recordsource..
data1.refresh.
A volte dovendo gestire più recordset contemporaneamente ne applico anche
piu di uno.
Ho notato che però nello standard di chi programma il procedimento è
diverso.
Si istanziano delle variabili di tipo dbconnection, recordset al posto di
mettere manualmente il controllo ed impostare, anche in questo caso comunque
via codice, le proprietà.
Ho anche fatto delle prove per vedere se tale sistema mi potesse risultare
più comodo, per esempio copiando da altri progetti mi sembrava di capire che
si istanziano variabili in questo modo
Dim cnConnection As New ADODB.Connection
Dim rsRecordSet As New ADODB.Recordset
Dim erErrors As ADODB.Errors
Però è stato un fallimento, così ho continuato per lamia strada,qualcuno sà
dirmo se mi conviene dirottare subito il mio modo di lavorare oppure posso
tranquillamente utilizzare il mio sistema in quanto è equiparabile a quello
"standard"
Poi avevo la classica domanda scema
Chi mi spega quando per dimensionare una variabile occorre usare
l'istruzione Set e quando invece è sufficente un dim private public global
etc...?
Questo è ancora per me un lato oscuro della programmazione orientata agli
oggetti!
E in quali casi invece è necessario utilizzare new insieme a set?
Grazie
--
David Ruscelli

 ha scritto
[...]
| Però è stato un fallimento, così ho continuato per lamia strada,qualcuno sà
| dirmo se mi conviene dirottare subito il mio modo di lavorare oppure posso
| tranquillamente utilizzare il mio sistema in quanto è equiparabile a quello
| "standard"
Mai provato a mettere il DB su un server di rete e ad accederci con i controlli Data? Mi sa proprio
di no...
La mia prima versione di un gestionale lavorava coi controlli Data... poi ho messo il DB su una
macchina server (o comunque diversa da quella su cui lavoravo) per vedere se funzionava... e si,
funzionava, ma potevo anche andarmi a prendere un caffè tra una query e l'altra (cosi' sarei
diventato epilettico).
| Chi mi spega quando per dimensionare una variabile occorre usare
| l'istruzione Set e quando invece è sufficente un dim private public global
| etc...?
| Questo è ancora per me un lato oscuro della programmazione orientata agli
| oggetti!
| E in quali casi invece è necessario utilizzare new insieme a set?
Set si usa per assegnare ad una variabile il puntatore ad un oggetto esistente
Dim pippo As Form
Set pippo = frmMain
oppure per assegnare ad una variabile il puntatore ad un nuovo oggetto
Dim pippo As frmMain
Set pippo = New frmMain

 > E in quali casi invece è necessario utilizzare new insieme a set?
Allora il termine object oriented dove l'ho sentito?
comunque grazie per le risposte
Davide