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

In un oggetto ListView come posso fare ad indivisuare le righe e le colonne
?
Ciao a tutto il NG

 ha scritto nel messaggio
news:fT6f7.3403$lM2.1...@news.infostrada.it...


 wrote in message
fT6f7.3403$lM2.1...@news.infostrada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: CAP e Banche

Salve a tutti,
Avrei bisogno di sapere se possibile dove reperire un DB aggiornato con
l'elenco dei codici di avviamento postale delle varie località.
Volevo sapere inoltre se e presente in rete un qualcosa di aggiornato
relativo ai nominativi delle banche con i relativi cab e abi.
Grazie
DD
PS. Basterebbe anche il solito file di testo delimitato per una successiva
importazione logicamente.

 con l'elenco dei codici di avviamento postale delle varie località.
Sul sito comune c'è il db.
http://www.it-lang-vb.net/
Saluti,
--
Antonio Cangiano
Webmaster di 
www.visualcsharp.it
Fondatore di free.it.comp.lang.csharp
E' iniziato il corso di C# !

Newsgroup: it.comp.lang.visual-basic
Titolo: Creare file HTML con VB?

Ho una rivista online e vorrei sapere se è possibile tramite un form, in
area
riservata solo a men poter creare un nuovo articolo per il giornale al quale
venga assegnato in
automatico un nome, poniamo fileX.htm, ed un link ad esso in una pagina tipo
di categoria, poniamo scienza.htm (la quale deve riportare il link a
fileX.htm).
E possibile fare tutto ciò con VB o con altri programmi senza che ogni volta
io crei e modifichi con un editor HTML il file scienza.htm (aggiungendo il
link al nuovo articolo)  e inserisca l'articolo fileX.htm via FTP?
Insomma vorrei sapere se è possibile aggiornare un sito in modo automatico
con un semplice template.
Grazie a tutti
Riccardo

...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Problemi oggetto Printer - repost -

Salve a tutti,
ho questo ENORME problema che mi assilla da un paio di giorni la cui
soluzione è di vitale importanza (o il cliente mi "castra") .... ;-)
Sto cercando di tirare fuori le stampanti collegate ad un computer mediante
l'oggetto Printer, il codice è il seguente:
For Each objPrinter In Printers
    valDevice = objPrinter.DeviceName
    valDriver = objPrinter.DriverName
    valPort = objPrinter.Port
.....
In fase di Debug tutto ok (sia su NT che 98) una volta compilato non ottengo
nulla, ovvero è come se ci fossero zero stampanti (non si inchioda).
AIUTATEMI...ho provato già di tutto: DoEvents, a mettere dei ritardi.... ma
niente da fare !!
GRAZIE, ciao.
    Aldo

Ciao,
Option Explicit
Private Sub Command1_Click()
    Dim Pr As Printer
    For Each Pr In Printers
        'Set Pr = Printer
        List1.AddItem Pr.DeviceName
        List1.AddItem Pr.DriverName
        List1.AddItem Pr.Port
    Next Pr
End Sub
io l'ho provato e funziona anche compilato (ho VB6 ... non e' che hai il 5
??)
beppe
-----------------------------------------------------------
Visita il sito del WWF AltoFerrarese
http://www.comune.cento.fe.it/wwfaf
-----------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal Report 6 o successivo

Sto disperatamente cercando Crystal Report 6 o successivo.
LuPo
lupo...@freemail.it

...



Per me non è un problema stare connesso 1,5 / 2 ore per scaricare 14MB...
Se tu puoi/vuoi/sei cos' gentile possiamo accordarci e tu me lo puoi mandare
direttamente: usi ICQ? Sarebbe il metodo migliore per riceverlo
Fammi sapere e grazie comunque delle informazioni.
LuPo

Ho appena guardato sul sito della Seagate, ma è tutto a pagamento (minimo
200$!).
Ma su IoProgrammo cosa c'é?
Una versione ( 6 o 7) completa o solo una demo di CR?
Fammelo sapere prima di sborsare 200$
Grazie,
LuPo

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Ado.net

CIao a tutti
premetto ke  iniziato da poki giorni a programmare in Vb.Net, e mi sono
accorto che per la gestione dei dati da Database viene utilizzato Ado.Net.
Considerando ke io utilizzavo con il Vb6 il vetusto Dao 3.61, vorrei sapere
dove trovare un piccola guida sull'accesso ai dati. Grazie mille :)

 ha scritto nel messaggio
news:7TE09.148918$vm5.4...@news2.tin.it...

?
Indice
ADO.NET
Invio
giuseppeD

 > Considerando ke io utilizzavo con il Vb6 il vetusto Dao 3.61,
3.61 ? dove l'avevi trovato ?


Newsgroup: it.comp.lang.visual-basic
Titolo: Intercettare evento da tastiera

Ciao a tutti e di nuovo Buon Natale...
sto cercando di far intercettare un evanto da tastiera (la pressione di un
tasto, in particolare F1) al mio programma.
Uso il seguente codice:
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 112 Then
    MsgBox ("hello!")
    KeyAscii = 0
End If
End Sub
Il probelma e' che l'evento non viene intercettato (anche provando con altri
tasti). Naturalmente la proprieta' keupreview del form e' impostata su True.
Qualcuno sa darmi qualche indicazione?
Grazie in anticipo.
Ciao,
Alfonso.

Precisazione...
Gli eventi vengono intercettati... tranne quelli relativi alla pressione dei
tasti funzione F1-F12... per il resto con tutti gli altri tasti funziona.
Ciao,
Alfonso.

Usa KeyDown.
Andrea

Newsgroup: it.comp.lang.visual-basic
Titolo: Formattazione testo

Scusate l'ingenuità della domanda, ma non sono proprio un esperto di
programmazione...
Da un programma da me sviluppato in Visual Basic 4.0, devo stampare su file
una relazione con testo preimpostato ed altro derivante dalle elaborazioni
effettuate;
Oltre a farlo tramite il comando "print" in formato testo, qualcuno può
indicarmi come si possa impostare una formattazione del testo della
relazione, stampando, ad esempio in RTF o formato doc?
Grazie in anticipo a chiunque vorrà aiutarmi.

 wrote


 Grazie in anticipo a chiunque vorrà aiutarmi.
  Prego
Newsgroup: it.comp.lang.visual-basic
Titolo: treeview e drag/drop

Salve ho bisogno di creare una UI composta da una Textbox e un a treeview.
con il drag/drop sposto la text sulla tree e quando rialscioil mouse aggingo
un nodo alla tree con il contenuto della text (in pratica ricavo un nodo
dalla text).
la cosa mi riesce se mi accontento di aggiungere il nodo alla fine... ma se
voglio inserire il nodo nella posizione in cui rilascio la text come faccio?
Cioè come posso ricavare il valore del nodo sopra il quale sto "passando" in
modo da inserire dopo di lui la mia text??
ecco uno schema (mamma mia=(   )esplicativo:
prima del drag/drop:
---radice
|-----nodo1
|-----nodo2
|-----nodo3
dopo il drag/drop:
---radice
|-----nodo1
|-----nodo2
|-----TEXT   <------
|-----nodo3
spero di essere stao chiaro...
grazie a tutti!!

Devi impostare la proprietà DropHighlight del controllo TreeView con il
metodo HitTest, poi la usi nell'evento dragdrop.
Segue Esempio.
Private Sub tvTreeView_OLEDragDrop(data As ComctlLib.DataObject, Effect As
Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    If tvTreeView.DropHighlight.Text = "Elimina" Then
            'Elimina i dati
    Else
            'altre azioni
    End If
    Set tvTreeView.DropHighlight = Nothing
End Sub
Private Sub tvTreeView_OLEDragOver(data As ComctlLib.DataObject, Effect As
Long, Button As Integer, Shift As Integer, x As Single, y As Single, State
As Integer)
    'Questo è il codice che chiedevi
    tvTreeView.DropHighlight = tvTreeView.HitTest(x, y)
End Sub
CIAO!!!

Dai un occhio al metodo HitTest del treeview.
Ciao
Corrado
Newsgroup: it.comp.lang.visual-basic
Titolo: Puntatore mouse

CIao a tutti
Ho un oggetto " Image" vorrei fare in modo che quando il mouse ci si trovi
sopra il puntatore deve cambiare dalla classica "freccetta" alla famosissima
"manina" . Ho visto che dalle proprieta' posso sciegliere solo alcuni
puntatori ma non c'e' quello che cerco. C'e' un modo per cambare l'icona ?
Grazie
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Grazie
Declare Function LoadCursorFromFile Lib "user32" Alias
"LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Declare Function SetCursor Lib "user32" Alias "SetCursor" (ByVal
hCursor As Long) As Long
Declare Function DestroyCursor Lib "user32" (ByVal hCursor As Long) As
Long
    hnewcursor= LoadCursorFromFile("C:\Windows\Cursors\manina.cur")
    holdcursor = SetCursor(hnewcursor)  ' change cursor
    retval = SetCursor(holdcursor)  ' change cursor back
    ' Destroy the new cursor.
    retval = DestroyCursor(hnewcursor)
@Alex

    retval = DestroyCursor(hnewcursor)
Ci sono anche le proprietą del controllo per mettere i cursori "custom" ;)
Ciao 

 Ciao-
Si hai ragione.
Vado spesso di Default con la deformazione VBA in cui non ho questa
opzione...
Tnx
@Alex


CIao
Ho visto che dalle proprieta' si puo' selezionare "custom"
Ma poi dopo averlo fatto cosa bisogna fare ?
Cioe' seleziono castom e come poi faccio ad assegnare il puntatore che mi
serve?


 Cioe' seleziono castom e come poi faccio ad assegnare il puntatore che mi
Carichi l'icona che ti serve nella proprietà MouseIcon.
-- 
IBM: Insanely Better Marketing
News 2000 [v 2.06] - 
http://www.akapulce.net/socket2000
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto!!! Form capricciose

Vi è mai capitato di disegnare delle form su un PC tutte "carine" con i vari
txtbox e labe allineate i contenitori picturebox persfettamente allineati
all'immaggine al loro interno, poi cfompilando ed installandolo su un altro
Pc il tutto che mi ha richiesto vari giorni di lavoro è andato a farsi
fottere, le label sono andate a spasso per i Form.
Mi avevano detto di impostare la proprietà "autoredraw = true" ma il tutto è
stato vano.
Vi prego di darmi la soluzione visto che devo consegnare il pacchetto ed è
la prima volta che mi capita.
Grazie anticpatamente a tutti quelli che risponderanno.
Dario

 fottere, le label sono andate a spasso per i Form.
A me e' capitato con il Vb3, ed ho scoperto che era dovuto all'impostazione
dei caratteri di
Windows '95. Infatti io avevo impostato Caratteri grandi e quando portavo
il prg su un computer con
la mia stessa risoluzione schermo, ma con caratteri piccoli, succedeva il
patatrack.
A presto.

Newsgroup: it.comp.lang.visual-basic
Titolo: vb6 & crystal report

Come si fa ad impostare da programma (vb6), il database e la password da
usare in un report creato con crystal report (fornito nelle versioni di vb6.
Mi spiego avevo realizzato una applicazione vb6 che usava dei report fatti
appunto in crystal report.
Adesso installando l'applicazione in un percorso diverso, dovrei cambiare
tutti i moduli di c. report per farli puntare al nuovo percorso, ma vorrei
evitarlo fornendo al report il nuovo percorso del db.
Come fare? E come comunicare sempre al report la password del db ?
Grazie
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

matteo ha scritto:

' ----------------------------------------------
' Variabili Crystal Report
'  - report
dim Report       As CRAXDRT.Report
'  - applicazione
dim crxAppl      As New CRAXDRT.Application
'  - tabella (per impostare il DataBaseName)
dim crxDBT       As CRAXDRT.DatabaseTable
' imposta il report
Set Report = crxAppl.OpenReport(App.path & "\Reports\Fattura.rpt")
 ' DataBase protetto da password
 Report.Database.Tables(1).SetSessionInfo "", Chr(10) &
"password_data_base"
  ' imposto location data base
  For Each crxDBT In Report.Database.Tables
    crxDBT.Location = DbName
  Next
' DbName contiene il nome del Database completo di percorso
Così dovrebbe funzionare.
Ciao
Nedi


Grazie per la risposta, ma non mi č chiarissimo.
In particolare
dim Report As CRAXDRT.Report
CRAXDRT cosa č ?, non č tra le voci previste per l'istruzione Dim, forse
devo inserire qualche riferiemnto alla
mia applicazione ??


 Inviato via 
http://arianna.libero.it/usenet/
Nei riferimenti del progetto devi aggiungere "Crystal Reports 8.5
ActiveX Designer Run Time Library", ed avrai disponibile la classe
CRAXDRT.
Newsgroup: it.comp.lang.visual-basic
Titolo: hypertext

Vorrei sapere come mettere un link internet in una label o una textbox.
Grazie
Simone

label1.caption="
http://www.murialdo.it/it_comp_lang_visual-basic/
"
[cut]
scusa il lapsus: volevo mettere l'indirizzo del sito comune, ma ho
cannato...
quello corretto, se non lo sai, è 
http://www.murialdo.it/it_lang_vb/
scusa ancora.

Grazie cheope, sei stato esaurientissimo.
Ho risolto il problema.
Grazie ancora.
Simone
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] Perche con shell va e con shellexecute no ?

Voglio mettere mediaplayer a full da linea di comando
Cosï¿œ me lo apre non a full
x = ShellExecute(hWnd, "Play", "c:\Prova.avi", vbNullString, 
vbNullString, SW_SHOWMAXIMIZED)
Cosï¿œ apre a full !!
Dim sPath As String
sPath = Environ("ProgramFiles") & "\Windows Media Player\wmplayer.exe"
Shell sPath & " " & "/FullScreen" & "c:\Prova.avi", vbMaximizedFocus
Lo switch per portar a full WMP ï¿œ /FullScreen, ho provato a metterlo 
in ogni posto nella shellexecute ma non va.
Mi sapreste dire il perchï¿œ ?
Grazie, Alverman

 Mi sapreste dire il perch� ?
Ti � stato ripetuto pi� volte di non legarti ad un sw che non sai quale
possa essere, perch� se fai shellexecute te lo potrebbe aprire con
qualsiasi player, cos� come potrebbe non aprirlo, potrebbe essere la
version 8, 9, 10 ecc.
Questo � solo uno dei problemi che incontrerai se fai affidamento a questo
metodo.

 
Io parto dal presupposto che la mia app vada su macchine pulite quindi 
WM di default per forza, quello che non riesco a capire, ed era la mia 
domanda, ï¿œ perchï¿œ un comando lavora diversamente dall'altro pur facendo, 
pressochï¿œ, la stessa cosa.
Alverman

 pressoch�, la stessa cosa.
Proprio perch� non fanno la stessa cosa. In un caso apri un programma con
linea di comando, nell'altro lanci un "comando" Play del programma
associato a quell'estensione di file.
Se usavi esempio media player classic, ti facevi la tua cartellina \mpc
nella sottocartella del programma e aprivi con 
Shell App.Path & "\mpc-hc.exe C:\file.avi <riga comando aggiuntiva>"
E saresti stato sicuro che funzionava su qualsiasi computer, SENZA
INSTALLARE NULLA, dato che quel programma va benissimo senza installer.
Addirittura puoi fare un .ini preconfigurato e sei sicuro che tutti i
clienti avranno quella configurazione.
Poi macchine pulite e "WM di default per forza" direi che non � vero, basta
comprare un pc (assemblato o di marca) con pre-installato un altro software
come predefinito. Un powerdvd, windvd o un nero player, giusto per dirne
qualcuno.

 pressoch�, la stessa cosa.
Proprio perch� non fanno la stessa cosa. In un caso apri un programma con
linea di comando, nell'altro lanci un "comando" Play del programma
associato a quell'estensione di file.
Se usavi esempio media player classic, ti facevi la tua cartellina \mpc
nella sottocartella del programma e aprivi con 
Shell App.Path & "\mpc\mpc-hc.exe C:\file.avi <riga comando aggiuntiva>"


 Shell App.Path & "\mpc\mpc-hc.exe C:\file.avi <riga comando aggiuntiva>"
Problema:
la mia app deve girare da pendrive ..... fa niente se metto mpc sulla 
chiave ?
Alverman

 chiave ?
Ti ho gi� risposto le altre volte mi pare, comuqnue apparte il discorso di
licenza che non conosco, ti posso assicurare che non ha bisogno di
installazione, dato che lo scarichi come zip volendo.
Forse c'� una distinzione fra quello per Win98 e quello per Win2k/XP e
quello per i 64bit, ma penso che quello a 32bit classico funzioni sempre:
http://mpc-hc.sourceforge.net/download-media-player-classic-hc.html
Newsgroup: it.comp.lang.visual-basic
Titolo: HELP ODBC CONNESSIONI ADO

Qualcuno mi puo aiutare, non rieso ad aggiungere nuovi record e non riesco
ad effettuare il recordcount, mi da sempre -1
qualcuno mi puo aiutare
grazie
gluca
Dim rst As ADODB.Recordset
Dim strCnn As String
' Open recordset with data from Publishers table.
strCnn = "odbc;DATABASE=db_magico;UID=root;PWD=lara;DSN=magico"
strsql = "Select ti from 26_tma"
Set rst = New ADODB.Recordset
rst.CursorType = adOpenDinamic
rst.Open strsql, strCnn, , adCmdText
rst.MoveFirst
Do While Not rst.EOF
    Debug.Print rst!ti
    rst.MoveNext
Loop
rst.MoveFirst
rst.MoveLast
rst.AddNew
rst.Close

 rst.CursorType = adOpenDinamic
Cambia in adOpenStatic, oppure passa a lato cliente (e beviti una cosa
nell'attesa)

> ... adOpenDinamic
Ah, la prossima volta (per il bene e la comprensione di tutti) pubblica il
codice che hai effettivamente usato, già validato sintatticamente.

 ha scritto nel messaggio
news:bam1md$17r02$1...@ID-174464.news.dfncis.de...


 qualcuno mi puo aiutare
Sì, facci vedere il codice modificato.

 il risultato è lo stesso
Voglio vedere il codice (!)
Inoltre, il RecordCount dove/come lo usi?
La tabella ha un indice con chiave univoca?
Hai diritti di scrittura sul database ?

 ha scritto nel messaggio
news:bam4vd$1bha3$1...@ID-174464.news.dfncis.de...


 nel rimo mex ma con le tue correzioni
Non hai risposto. Dov'è il RecordCount che dici non andare?
Non hai mostrato il codice. No, non ci credo che sia quello.
Che intenzioni hai?

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] pgm aperti con VB6 danno errore con VB5

Salve,
ho iniziato a programmare con VB 5.0 a lavoro, a casa invece l'ho aperto e
salvato con VB 6.0. Ora non riesco più ad aprire il progetto con VB 5.0. Mi
da questo tipo di errore:
"Retained" è una chiave non valida. Impossibile caricare il file 'PATH del
mio mio pgm'.
Grazie.
Paolo.

 wrote in message
mAH26.194634$hk4.7...@news.infostrada.it...

il problema e' proprio il fatto che hai *salvato* il progetto con VB6; comunque
se non hai modificato anche le form in maniera sostanziale (tipo cambiando il
riferimento ai common controls se li usi...) puoi risolvere semplicemente
aprendo il file VBP con un editor di testo qualunque e rimuovendo la riga
"Retained=" ed eventualmente anche "DebugStartupOption="
Ciao
--
Luca Dormio
luca....@tin.it

Newsgroup: it.comp.lang.visual-basic
Titolo: DATABINDING CONTROLLO ACTIVEX VB5





ho costruito un piccolo controllo utente , ho 
inserito delle proprietà , tra cui una collegata ai dati mediante la relativa 
casella nella finistra opzioni routine.


Finchè faccio girare il controllo tramite codice 
sorgente tutto funziona regolarmente. Invece compilando il controllo insieme al 
progetto sembra che la proprietà DataSource si resetti, lo stesso dicasi per la 
proprietà DataField.


 


qualcuno sa dirmi cosa 
succede.



news:000801c04b3d$6b137760$47d2abd4@geppo...


Viene fatto qualcosa nell' evento UserControl_WriteProperties ?
Ciao
Aldo

Newsgroup: it.comp.lang.visual-basic
Titolo: ADO: Dove lo trovo?

Scusate l'ignoranza, ma ADO dove lo posso trovare?
E' compatibile con VB5 e Access 97 ?

...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Visual Studio Installer: come si usa?

Cioé, senza le perifrasi della guida allegata, come faccio a creare un
programma di installazione da un progetto VBP, e quali vantaggi mi porta
l'aver scaricato 18MB di VSI?



 ha scritto nel messaggio
news:8cam8e$dl2$1...@fe1.cs.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Come cancellare tutto il contenuto di una query

Scusate come faccio a cancellare tutto il contenuto di una query? Altra
domanda come faccio a liberare un po' di memoria nel computer, visto che
dopo un po' che lavoro sul mio programma mi da errore di memoria esaurita.
Io avrei pensato di liberare la memoria quando esco dal programma ma come si
fa.
--------------------------------
Inviato via 
http://usenet.libero.it

 wrote in message
news:80Z105Z199Z154Y...@usenet.libero.it...

Bisogna vedere cosa utilizzi per fare la query (DAO,ADO). Comunque ricordati
che dopo aver utilizzato le istruzioni del tipo :
SET VARIABILE = OPENDATABASE('NOME DEL DB')
devi sempre eseguire SET VARIABILE = NOTHING
Cosě facendo non ti rimarrano dati  in memoria che vanno a sovraccaricala
inutilmente.
--
Massimo Bonechi
-----------------------------------
Nuovo Newsgroup al server : 
news.startit.it

 fa.
un po' vago...
1. eliminazione record
in dao:
    ' tempdb e' il tuo database
    TmpDb.Execute = "DELETE * FROM [tabella] WHERE..."
    TmpDb.Close: Set TmpDb = Nothing
in ado dovrebbe essere:
    Dim delCmd As New ADODB.Command
    With delCmd
        .CommandText = "delete from tabella where..."
        .CommandType = adCmdText
        .ActiveConnection = [connessione]
        .Execute
    End With
    Set delCmd = Nothing
2. memoria
hai notato i set x = nothing qui sopra ?
ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] bmp, mdb ecc.

Ciao a tutti. Ho la necessità di salvare una bitmap da una picture
diminuendo il numero di colori (per quello che mi serve ne bastano 16) e poi
inserire l'immagine stessa in un file di access. Nella documentazione in
linea ho trovato il metodo appendchunk ma negli esempi si fa riferimento
solo ad un passaggio di immagini da un recordset ad un altro dello stesso
database e non a come fare nel caso di un file su disco.
Ringrazio per l'attenzione e faccio a tutti gli auguri

...

Per convertire le bmp a 16 colori, non so,
ma per usare le immagini con i db access puoi guardare l'esempio
   "Gestire immagini in un database con Visual Basic [Imgdata.zip]"
presente sul Sito Comune  (sezione sorgenti).
http://www.murialdo.it/it_lang_vb
Ciao
By -MES-   Maronese Ettore
http://ilmes.freeweb.org
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://www.murialdo.it/it_lang_vb
Newsgroup: it.comp.lang.visual-basic
Titolo: VB5 e VB6 a confronto

Salve a tutti
Sapete dirmi -sempre se ci sono- delle chiare, fondamentali, importanti,
lampanti ecc. differenze tra VB5 Professional e VB6?
(non sono riuscito a trovare niente a riguardo nei post piů vecchi...)
Grazie mille
--------------------------------------------
             ASSA
http://web.tiscalinet.it/Assatarram
--------------------------------------------

 (non sono riuscito a trovare niente a riguardo nei post piů vecchi...)
dopo che qualcuno mi ha detto che ado funziona uguale, a quanto ho capito,
vb6 legge gli mdb 2000, vb5 no. il 6 ha inoltre una serie di funzioncine in
piu' (sono state postate qualche giorno fa) e ritocchi qua e la', in gran
parte sostituibili con versioni artigianali.

 > (non sono riuscito a trovare niente a riguardo nei post più vecchi...)


 parte sostituibili con versioni artigianali.
Con VB5 e ADO/OLEDB si possono aprire anche le tabelle di Access 2k
ha solo qualche supporto in piu', ma funziona uguale...
in piu' e' solo piu' pesante
--
Fibia "Sakamoto" FBI
URL: 
www.geocities.com/fibiafbi
E-Mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Membro #25 delle BT Sez. Sud

 (non sono riuscito a trovare niente a riguardo nei post piů vecchi...)
per esempio, in un programma che sto sviluppando, utilizzo molto
CallByName
Split
Replace
che in VB5 mi sognavo...
(ok ok, le ultime 2 potevano essere 'artigianali', ma averle 'di serie' č un
altro discorso  :P)
Ciao
Faber

 (ok ok, le ultime 2 potevano essere 'artigianali', ma averle 'di serie' è
un altro discorso  :P)
e poi cos'altro ? il metallizzato ? il clima ?
umpf !!
vuoi mettere un vb5 abarth con un vb6 pininfarina ?
i piccoli piaceri della vita...

E di "WithEvents" che diciamo?
E della DataReport e delle DataEnvironment? (anche se io preferisco il
codice, migliaia di persone le usano con soddifazione)
E della "Implements"?
E dei Data Sources?
E del miglioramento degli Array, dei nuovi controlli?
Saranno pure tutte cose piccole...
ciao
ugo

 Saranno pure tutte cose piccole...
che non valgono i 300 KB in piu di VM. ^___^

Newsgroup: it.comp.lang.visual-basic
Titolo: procedura

ciao a tutti ,
guardate questa routine che ho creato .... secondo voi xkè anche a
CONDIZIONI RISPETTATE sia nel ciclo while che negli if..then..else ....
nn succede nulla ....
Private Sub pulisci()
Data1.Refresh
Data1.Recordset.MoveFirst
While Data1.Recordset.EOF = False
If Data1.Recordset("TipoRecord").Value = "" Then
Data1.Recordset.Delete
ElseIf Data1.Recordset("Codice").Value = "" Then
Data1.Recordset.Delete
ElseIf Data1.Recordset("Descrizione").Value = "" Then
Data1.Recordset.Delete
End If
Data1.Recordset.MoveNext
Wend
End Sub
grazie mille a tutti e ciaoo
Trickballante .



hai provato a fare un refresh del controllo una volta eliminato il
recordset?
(a parte questo, lo scriverei un po' meglio verificando tutte le
condizioni in un sol colpo... così mi sembra bruttino...)
(a riparte riquesto, ti consiglio la lettura del manifesto di questo ng
che trovi sul Sito Comune: ti può tornar utile, ad esempio nella scelta
del titolo del messaggio)
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
---------------------------------------------------------------------------

 ha scritto nel messaggio
news:MKqw7.54466$0Y2.5...@news.infostrada.it...


 ha scritto nel messaggio
news:brxw7.18485$DW5.4...@news2.tin.it...


 Moreno
ciao
Trickballante .

Newsgroup: it.comp.lang.visual-basic
Titolo: VB + oracle

Ho la necessita di riportare in un file di testo un'intera estrazione di
dati da una banca dati oracle....
lavorando in oracle lanciando la seguente sintassi
spool c:\testo.txt select * from tabella_x
il risulatato vieni riportato nel file txt....
se pero uso Adodb.Command e nell CommandText inserisco quella sintassi va in
errore chiudendomi vb.....cosa posso fare...ci sono altri metodi???
Grazie mille

Credo che "spool" sia un comando tipico di SQL Plus, non riconosciuto da
Oracle.
Con ADO, dovresTi, a parer mio, fare un ciclo sulla Tua tabella e scrivere
il risultato su un file di testo (record per record, intendo).
In alternativa potresTi crearTi un file di comando sql, che SQLPlus
lancerebbe in modalità interattiva con un @nomefile.sql, e farlo eseguire
tramite l'istruzione SHELL di Visual Basic.
Hope i thelps
Fabio GRANDE
Newsgroup: it.comp.lang.visual-basic
Titolo: MSFLEXGRID E RICERCA VALORE

ciao a tutti
vorrei ricercare un valore nella griglia
dim riga as integer
with nomegriglia
.col = 0  la icerca la faccio sulla colonna 0
for riga = 1 to .rows -1
  if .textmatrix(riga,0) = "valoredi ricerca" then
   .rowsel = riga
  end if
 next riga
end with
ma non mi funziona dove sbaglio?
grazie

ma non mi funziona dove sbaglio?
Non funziona nel senso che non trova la riga o nel senso che non la
seleziona?
-- 
ciao, hal
per me l'espressione "non funziona" non esiste


 -- penso che non trova la riga, perche ho privato anche a inserire
.cellbackcolor = vbred
ma non va, sono sicuro che il valore di ricerca esiste,
ho provato a inserire anche debug.print nomeflex.textmatrix (riga,0) e me lo
scrive quindi non capisco il perche' non lo legge per confrontarlo



il tuo codice l'ho appena provato e funziona
se ti riferisci a .rowsel allora dalla guida c'è scritto
a.. RowSel: restituisce o imposta la prima o l'ultima riga di un intervallo
di celle.
quindi se vuoi selezionare la riga devi settare anche l'intervallo di
partenza
per vedere se te lo trova metti all'interno dell'if un msgbox o un
debug.print e vedrai che ti trova il valore
se sono stringhe fai attenzione se nelle celle hai degli spazi, nel caso usa
TRIM
ciao

 ma non va, sono sicuro che il valore di ricerca esiste,
prova cosi'
.Row = riga                <----
.CellBackColor = vbRed
a me funziona.
il .rowsel non funziona perchč probabilmente hai dei raggruppamenti su delle
colonne.
Ciao,
Taipů

 ha scritto nel messaggio
news:b3v98j$3rp$1...@lacerta.tiscalinet.it...

sapevo che dove sbagliavo era un errore stupido
davo il valoredi ricerca tutto minuscolo, invece nella griglia c'era una
lettara maiuscola. ora funziona
grazie a tutti

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

Scusate la mia ignoranza ma vorrei imparare a programmare in VBScript. Sono
programmatore VB.
Quali sono le differenze e cosa mi serve per programmare in VBScript?
Grazie - Luca

 wrote in message
8gbr19$7ju$1...@nslave1.tin.it...


 ha scritto nel messaggio
news:8gbr19$7ju$1...@nslave1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: cambiare il font dei menu

Salve gente,
sto sviluppando un applicazione per un tipo, e l'altro giorno il tipo in 
questione mi fa "Ma non sarebbe possibile aumentare la grandezza di quelle 
scrittine in alto?"...onestamente io non so se si puo e come farlo.....avete 
qualke suggerimento?
Grazie

 ha scritto

desktop > clic dx > proprieta' > aspetto > menu
se lo fa il tipo per conto suo.
molto meglio, per vari motivi, se non lo fai tu da programma.
ciao, j.

 ciao, j.
A questo ci avevo pensato, pero pensavo esistesse anche una metodologia per 
cambiare solo i menu di "quel" programma
Grazie cmq Giuseppe 

 ha scritto nel messaggio
news:JQ%nd.371211

Sì, ma primo non ne vale la pena.
Secondo, a che scopo?
Se è cecato lo sarà per *tutti* i programmi.
Ciao
-- 
NeoDataType : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 Se è cecato lo sarà per *tutti* i programmi.
:)
oddio, si puo' anche fare dei menu a manina. ma appunto, a che scopo ?
giuseppe, afaik da codice puoi cambiare le impostazioni di visualizzazione
di win. pero' poi vale per tutti.
sono le tipiche regolazioni che ogni utente preferisce e si imposta per
conto suo.
ciao, j.

Newsgroup: it.comp.lang.visual-basic
Titolo: Ipicture, stdpicture,Ipicturedisp





Scusate vorrei sapere la differenza fra 
stdpicture,ipicturedisp,ipicture.


Grazie a tutti.


 


P.S. Jimi come fai a conoscere tutte le 
dichiarazioni api, ossia quale libro mi consigli?


 



 ha scritto nel messaggio
news:OE32YZ44NVF4x...@hotmail.com...


Newsgroup: it.comp.lang.visual-basic
Titolo: CRYSTAL REPORTS

Ciao, sono un principiante (molto).
A lavoro utilizzo Crystal Reports 4.5.
E' possibile introdurre un campo che restituisca la formula di selezione
records impostata in quel momento nel report, cioè i filtri definiti
nell'"esperto selezione records"?
Grazie anticipatamente

 ha scritto nel messaggio
news:9vftj4$a51$1...@serv1.albacom.net...

Se la regola di selezione la passi da codice (i.e.
report1.selectionformula="testo della formula") allora puoi inserire nel tuo
report una formula lasciandola vuota e poi, da codice, passi l'istruzione:
report1.formulas(0)="testo della formula"
Okkio che l'indice può non essere 0, dipende da quante formule sono presenti
nel report...
controlla anche la sintassi di quello che ho scritto... non ho modo di
controllare..
azz! quante volte compare la parola formula???? :-)
HTH
--
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."
Newsgroup: it.comp.lang.visual-basic
Titolo: DLL Visual C++

Salve
sono un inesperto programmatore di VB. Vorrei sapere, alcune cose relative
alle DLL in C++:
1. Quando č utile inserire nel proprio codice delle libreri esterne e perchč
2. Come crearle e come richiamarle nel codice VB
3. Per quanto riguarda i moduli in VB. Ho letto che conviene scrivere il
codice delle form su un modulo VB e non sulla Form, č corretto? perchč?
Grazie 1000. Andrea.

 codice delle form su un modulo VB e non sulla Form, è corretto? perchè?
l'unica regola da seguire in questi casi è soltanto relativa allo scope
(cioè all'ambito) di utilità del codice; tanto per farti un esempio, se hai
scritto una Function (o Sub) che opera soltanto sui dati di un relativo form
(e solo su quelli) è concettualmente logico inserire tale Function
all'interno del form stesso (magari rendodola Private); se invece hai una
Function utilizzata da più punti del tuo programma (richiamata da diversi
moduli, form o classi) conviene inserirla in un modulo esterno;
ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Tempo in VB6 (sotto i ms)

Ciao a tutti...
Ho il seguente problema:
devo generare su alcuni piedini della porta parallela un segnale con
un certo periodo di clock.
- se nel codice non metto nessuna istruzione di attesa il segnale è
troppo veloce,
- se uso l'API sleep il tempo minimo è 1ms (troppo),
- se uso timer (usando un do...loop) sono ancora troppo lento oppure
troppo veloce (se scendo troppo come intervallo è come se non avessi
più attesa, cioè come al punto 1).
L'unico modo è usare dei cicli for che contano (adesso su un PIII-M
1,2GHz) fino a 100000, ma in questo modo ho degli intervalli che sono
dipendenti dalla velocità della macchina che esegue il codice.
Qualcuno potrebbe aiutarmi?
La frequenza che devo ottenere è di qualche KHz...
Grazie
Rocco

[*pilippo* : fi...@TOGLIMIlibero.it] ha scritto:

Mi pare che con la GetTickCount si risolvessero problemi per tempi brevi:
http://makeashorterlink.com/?K29352915


Grazie della veloce risposta
come dicevo prima 1ms è troppo per me...
Sul link che mi hai mandato e su AllAPI GetTickCount mi restituisce il
tempo in millisecondi mentre a me serve calibrare il tempo in
microsecondi...
Altri suggerimenti?


Chiedo scusa, non avevo letto tutto...
Forse con QueryPerformanceCounter potrei risolvere qualcosa.
Non avevo aggiunto che uso Win XP Pro o Win98 (che a quanto letto č
limitato ad una risoluzione temporale massima di 1/27 di secondo).
In questo caso la scelta sembra essere un WinXP o 2000.
Oggi provo e poi faccio sapere come č andata...
Ancora grazie :-)

pilippo wrote:
non so che devi fare ma se ti va bene una soluzione con la api già proposta
ok!
Se no...se non ti basta la precisione....se vuoi un margine di errore
minimo...etc etc...
devi affidarti a schede HW esterne!
consultati (se è questo il tuo problema) anche con un ingegnere
elettronico....
spesso impazzi con un sw mentre c'è gia un pic o qualche integrato che
risolve (via Hw) il problema! ;-)
--
Il Wodkino Nazionale è a : 
www.martek.it
Pagina Vb/Bestiario/Lamer Experience :
http://www.martek.it/go.asp?portamia=2
 Quotefix e altro:
http://www.martek.it/go.asp?portamia=4
Usr: ICLVB Pw: amici

risolve (via Hw) il problema! ;-)
Non ho bisogno di avere una precisione tale da usare una scheda con un
chip dedicato e un quarzo, per questo avevo scartato la soluzione con
scheda dedicata), però non riuscivoa capire come mai sotto 1ms di
tempo non riuscissi a scendere...con clock ormai oltre i 2GHz
possibile che con Win non si possa avere una migliore gestione delle
temporizzazioni sulla scrittura in memoria? (ricordo che il problema è
fare uscire dei segnali sui pin della porta parallela).
Lavorando con le porte seriali questo problema è più semplice...basta
impostare il bit rate e almeno si ha una granularità migliore sulla
scelta della durata degli impulsi...
Newsgroup: it.comp.lang.visual-basic
Titolo: dbcombo

Qual è il metodo per effettuare una ricerca, durante la digitazione con
autocompletamento, in un dbcombo collegato ad un archivio Access ?. Grazie

 autocompletamento, in un dbcombo collegato ad un archivio Access ?. Grazie
VB6 ? Nelle Microsoft Forms 2.0 Object Library (FM20.dll) trovi una ComboBox 
gia' con questa funzione
Ciao 


          Ciao
E' vero che affinche' Microsoft Forms 2.0. OL funzioni bene bisogna aver
installato il pacchetto office sulla macchina di destinazione.
Mi spiego meglio
Su un mio programma utilizzo questa libreria, se lo stesso programma lo
installo su un'altro PC senza Office esso non funziona correttamente.
Grazie
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Grazie
grazie a te ;-)

Newsgroup: it.comp.lang.visual-basic
Titolo: distribuzione progetto realizzato in vb2005

ciao a tutti
ho realizzato alcuni progetti in vb2005 che funzionavano bene sul mio PC 
sempre aggiornato da windows update, mi è capitato di dover passare tali 
applicazioni ad altri utenti che però non avevano mai aggiornato il SO 
(win2000 o WinXP home SP1) e che quindi non avevano installato il pacchetto 
DotNetFx per la corretta esecuzione dei programi VB2005.
Ho provveduto all'invio del suddetto pacchetto ma a quanto pare questo non 
basta.. richiede anche FrameWork 1.1... Ho inviato anche questo ma richiede 
ancora altre pacchetti...
Ora non so davvero a cosa far riferimento anche perchè gli utenti a cui 
servono i suddetti pacchetti non hanno ne esperienza ne connessioni capaci 
per poter effettuare tutti gli aggiornamenti necessari...
Mi sapreste indicare un elenco di pacchetti per risolvere questo problema??
Vi ringrazio in anticipo...
Nicola 

N1COl4 says...

Prima di tutto c'è da dire che vb2005 richiede il .NET Framework 2.0 e 
non il 1.1
In secondo luogo per installare il 2.0 senza Windows Update devi 
cercarti sul sito Microsoft il file dotnetfx versione 2.0, dimensione 
22,4 MB.
In terzo luogo per installare il tuo programma su pc senza .NET 
Framework 2.0 io ho utilizzato con efficacia CyberInstaller Studio 2005 
(la versione base non è a pagamento). Purtroppo non ricordo il sito, 
googla che dovresti trovarlo facilmente.
In questo programma d'installazione ci metti anche il file dotnetfx 2.0 
e poi sarà CyberInstaller che deciderà quando installare dotnetfx.
Con questi passaggi io ho installato efficacemente il mio programma su 
tutti i tipi di pc che ho incontrato, in caso di problemi posta, domani 
sera tardi ti risponderò.
Christian
Newsgroup: it.comp.lang.visual-basic
Titolo: Delucidazioni sull'accesso a Firebird

Ciao,
vorrei iniziare ad usare Firebird, ma, avendo sempre e solo usato il Jet con MDB, non mi 
sono chiare alcune cose. Chiedo scusa se dirò castronerie...
Ufficialmente sono forniti solo driver ODBC e non Provider OLE DB.
Ora, se volessi usare ADO per accedere al DB, dovrei usare il Provider OLE DB per driver 
ODBC, giusto?
Ma posso farlo senza creare un DSN?
La stringa di connessione dovrebbe essere del tipo:
"DRIVER=Firebird/InterBase(r) 
driver;UID=SYSDBA;PWD=masterkey;DBNAME=D:\FIREBIRD\examples\TEST.FDB"
e poi?
Tnx.
LeleB.

 Ma posso farlo senza creare un DSN?
Scusate, posso riformulare la domanda?
Posso usare un driver ODBC attraverso un Provider OLE DB senza specificare un DSN?
Tnx.
LeleB.

OLE DB è una cosa ODBC è un'altra ... entrambe sono driver per dialogare
con il tuo database.
ADO (o DAO - che è un'altra cosa) è lo strato middleware che ti consente
mediante i driver, di interagire con il tuo database inviando comandi SQL.
per la sintassi di connessione non saprei, non ho mai usato firebird. Prova
a guardare sul loro sito, sicuramente c'è qualche pagina con le faq o roba 
varia.
Ciao
Andrea

 mediante i driver, di interagire con il tuo database inviando comandi SQL.
Si si..lo so!! :o)
Forse ho risolto:
Provider=MSDASQL;DRIVER=Firebird/InterBase(r) 
driver;UID=SYSDBA;PWD=masterkey;DATABASE=E:\Programmi\FIREBIRD\examples\Employee.FDB
Mi lasciavo indietro 'Provider=MSDASQL' pensando che, visto che è il default, non ce ne 
fosse bisogno!
Tnx.
LeleB.

 default, non ce ne fosse bisogno!
I default sono l'anticamera dell'inferno.
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con beegrid

Salve a tutti!
Stò lavorando con Windows 2k, VB6 ed una griglia dati beegrid che mi
da un piccolo problema:
Allora, ho creato una tabella dove l'ultimo campo è un Boolean.
Quando lancio la mia applicazione la beegrid mi visualizza
graficamente in automatico nell'ultima colonna i flag (checkbox) da
spuntare (la beegrid è settata Bound) e fino qui tutto procede ok.
Quando però vado a flaggare un record mi sono accorto che la tabella
non viene aggiornata e se flaggo un nuovo record la tabela aggiorna
solo il record flaggato in precedenza e così via per tutti i record in
tabella.
Ho provato con vari .refresh ma niente da fare, ho cambiato le
proprietà della beegrid ma nulla...
La beegrid non aggiorna in tempo reale la tabella!!!!
C'è qualcuno che può aiutarmi in merito? Sono in crisi da una
settimana a questa parte...
Bye!

 La beegrid non aggiorna in tempo reale la tabella!!!!
non conosco in particolare la beegrid, perņ il comportamento parrebbe abbastanza
standard: il record corrente non viene aggiornato fino a che non ci si sposta su
un altro, a meno che non si chiami un update esplicito.
Nella beegrid hai la possibilitą di agire direttamente sul recordset
sottostante?
Se si prova ad effettuare l'update. A te vedere "dove" e "quando" č meglio
farlo.
hth
--
Salutoni
Sergio

 hth

...


 regolare in merito?
sorry, non ne ho la minima idea.
--
Salutoni
Sergio

...

Newsgroup: it.comp.lang.visual-basic
Titolo: Aprire un file "alla grezza"

 
O butti tutto il file in un vettore di bytes, e poi te lo guardi con comodo:
	Dim BytesFile() As Byte
	ReDim BytesFile(FileLen(filenam$) - 1)
	Open filenam$ For Binary Access Read As #1
	Get #1, , BytesFile()
	Close #1
Oppure estrai un byte alla volta
	Dim ByteFile As Byte, Cont as long
	Open filenam$ For Binary Access Read As #1
	For Cont= 0 to FileLen(filenam$) - 1
		Get #1, , ByteFile
		Debug.Print ByteFile
	Next Cont
	Close #1
-- 
Hi, Ciao
Ettore                 By -MES-
http://freeweb.aspide.it/freeweb/ilmes
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb


se non sto prendendo un'abbaglio, non c'era un limite (tipo 32K) per
le letture binarie da file .... ???
ma sembrava di ricordare di si... fatemi sapere, per favore..
grazie
Maurizio
maum...@basta.tin.it
togliete >basta< per rispondere :)
<  state buoni  .... se potete ....>

 ma sembrava di ricordare di si... fatemi sapere, per favore..
Non dal VB5 in poi....
Ciao

 
Il Basic, da che basic e' basic, e' sempre stato una piaga con l'accesso ai files.
A pensarci bene, e' sempre stato una piaga in tutto... :-))
Se hai bisogno di performance usa VC++ e vai con Dio!
Salutoni (A tutti)


 
Beccati questo, vai in pace, vai con DIO, e di che ti ci mando IO.  :-))
(e fammi sapere se questa soluzione ti va bene)
Come procedere:
- Crea un nuovo progetto
- Nel form aggingi una TextBox Molto Grande (ingrandisci anche il form)
- Imposta il font della TextBox a "Fixedsys"
- Imposta la prop Multiline della TextBox a True
- Imposta la prop Locked della TextBox a True
- copia quanto segue nel form
Private Sub Form_Load()
    Const BYTES_PER_RIGA = 8
    Dim Vettore()   As Byte
    Dim Cont        As Long
 
    ' Faccio finta che questo vettore venga da un file
    ReDim Vettore(200)
    For Cont = 0 To UBound(Vettore)
        Vettore(Cont) = Rnd * 255
    Next Cont
    For Cont = 1 To 14
        Vettore(7 + Cont) = Asc(Mid$(" Ciao a tutti ", Cont, 1))
    Next Cont
 
    ' Da qui comincia il bello
    Dim ContChars%, CharsHex$, CharsASCII$
    ContChars% = 0
    Text1.Text = ""
    For Cont = 0 To UBound(Vettore)
        CharsHex$ = CharsHex$ & Right$("00" & Hex$(Vettore(Cont)), 2)
        If Vettore(Cont) < 32 Then
            CharsASCII$ = CharsASCII$ & "."
        Else
            CharsASCII$ = CharsASCII$ & Chr$(Vettore(Cont))
        End If
 
        ContChars% = ContChars% + 1
        If ContChars% = BYTES_PER_RIGA Then
            ContChars% = 0
            Text1.Text = Text1.Text & CharsHex$ & "   " & CharsASCII$ & Chr$(13) & Chr$(10)
            CharsHex$ = ""
            CharsASCII$ = ""
        Else
            CharsHex$ = CharsHex$ & " "
        End If
    Next Cont
    If ContChars% Then
        Text1.Text = Text1.Text & CharsHex$ & Space$(BYTES_PER_RIGA * 3 + 2 - Len(CharsHex$)) & CharsASCII$ & Chr$(13) &
Chr$(10)
    End If
End Sub
Salutoni


 
Mi fai arrossire.....
Newsgroup: it.comp.lang.visual-basic
Titolo: anno bisestile?

Come faccio a sapere quanti giorni ha febbraio dato l'anno?
Attenzione non basta controllare se č divisibile * 4,l'algoritmo era su
ioProgrammo di gennaio ma non riesco piů a trovarlo,se potete aiutarmi!!!
Grazie.!

ioProgrammo di gennaio ma non riesco piů a trovarlo,se potete aiutarmi!!!
Prova questo:
MsgBox "Quest'anno febbraio ha " _
& Day(DateSerial(Year(Now), 3, 1 - 1)) _
& " giorni."
--
Ciao.
Maurizio


un anno č bisestile se risulta divisibile per 4, ma non per 100, a meno che
non sia divisibile per 400.
Ciao.


L'algoritmo e' semplice
se e' divisibile per 4 AND NOT per 100, e' bisestile
OR
se e' divisibile per 400 e' bisestile
in tutti gli altri casi non e' bisestile
il "divisibile" lo controlli con ((X MOD Y) = 0)
spero di non aver scritto boiate (e' tardi, ho sonno e sono stanco)
--
Roal Zanazzi
z...@iol.it


è vero questa è la più semplice... VB controlla l'esattezza della data
automaticamente.. infatti una volta ho inserito per sbaglio il 31 aprile e
mi dava errore... così ho capito
ciao Davide

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

Ragazzi chi mi aiuta ??
Se su una form ci piazzo un controllo data....quando mando in esecuzione il
programma lo stesso mi da un errore "database non riconosciuto".
Premetto che utilizzo VB5, DAO 3.6, Access2000.
Dove sbaglio??
Grazie
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Dove sbaglio??
Eddai, fatevi del male...
http://makeashorterlink.com/?A2B032617


Grazie...
Ho installato Jet40SP7_WMe (scaricato da ms) ma il problema
permane....l'errore è sempre "unrecognized".
Puo' essere VB5 il problema ???.
Ciao


 Puo' essere VB5 il problema ???.
Ahhh, VB5... Credo cre sia vecchiotto.
Leggi tutto il 3d. A me par di ricordare che (fermo restando il SP per VB
_6_ adeguato e citato) fosse "solo" una questione nella stringa Connect del
controllo Data...
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] print, pictureBox e immagini sgranate...

Ciao a tutti,
PROBLEMA:
    quando vado ad inserire un'immagine in una pictureBox o la vado a 
spampare, ottengo un risultato pessimo, nel senso che la qualità è 
bassissima, anche immagini in bianco e nero (solo righe nere su sfondo 
bianco), si vedono tutte sgranate.
E' possibile risolvere il problema della qualità?.
Se SI, potreste aiutarmi?.
GRAZIE 

 E' possibile risolvere il problema della qualità?.
come fai a visualizzare e/o a spampare l'immagine?
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel 
messaggio news:d3j3ae$lnk$1...@news.newsland.it...


 oggetto.PaintPicture
le dimensioni "originali" della tua immagine sono molto diverse da quelle
in cui la stampi?


 ha scritto nel 
messaggio news:d3j62e$536$1...@news.newsland.it...


 dimensioni della pictureBox?
direi che la definizione "migliore" ce l'hai quando le dimensioni
dell'immagine e della picture box coincidono :) 
quando sono diverse il software deve in qualche modo "interpolare" i pixel
mancanti, e forse quello che sta sotto alla picturebox non adotta un
approccio particolarmente raffinato.
mi rendo conto che come risposta non è un gran che, ma da quello che
scrivi hai già adottato tutti gli accorgimenti che avrei usato io, e se ti
serve qualcosa di più devi sperare che qualcuno di più esperto passi da
queste parti.


Newsgroup: it.comp.lang.visual-basic
Titolo: [ot] Buona Pasqua a Tutti

Come da oggetto
Buona Pasqua a Tutti
ciao
jack


Buon Natale, nel caso non postassi più


lol

Newsgroup: it.comp.lang.visual-basic
Titolo: Disabilitare alcune funzionalità del s.o.

Come posso , utilizzando VB6 , disabilitare alcune funzionalità di Windows ?
Come ad es. la combinazione di tasti Ctrl + Alt + Canc, usata per terminare
i processi ?
Grazie , Giuseppe


un classico
copia-incolla dal sito comune 
http://www.it-lang-vb.net
Private Declare Function SystemParametersInfo Lib _
"user32" Alias "SystemParametersInfoA" (ByVal uAction _
As Long, ByVal uParam As Long, ByVal lpvParam As Any, _
ByVal fuWinIni As Long) As Long
Call SystemParametersInfo(97, False, CStr(1), 0)
Imposta il valore a True per riabilitarlo di nuovo
ciao
--
Fibia "Sakamoto" FBI
E-mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Sito Personale: 
http://www.geocities.com/fibiafbi
VB Simple: 
http://vbsimple.virtualave.net
Membro #25 delle Mitiche Brigate Takahashi sezione Sud