mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con "Alter TABLE"

Dopo avere fatto un "ALTER TABLE" con un "ALTER COLUMN" su una tabella 
aumentando il numero di caratteri della stringa da 50 a 99, successivamente 
non riesco più a modificarla in quanto mi ritorna indietro l'errore Runtime 
"3251" ogni volta che cerco di assegnare un nuovo valore a un campo 
modificato.
Grazie per l'aiuto. 

 ha scritto nel 
messaggio news:R27we.25643

E cosa sarebbe il 3251?
Tutto questo in Access, SUPPONGO >:)
Ciao 

 ha scritto nel messaggio 
news:42c0fe87$1...@x-privat.org...


 aprivo la tabella senza nessun problema.
Prova a dare un occhio a questo
http://support.microsoft.com/default.aspx?scid=kb;en-us;824256
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: VB.NET Console.Write

Salve a tutti
sto cercando di capire dove scrive 
VB.NET
 (e di conseguenza leggere)
con la seguente istruzione:
Do While read.Read
   Console.Write(read.GetString(0))
Loop
giuseppeD

Se fai girare l'applicazione nell'IDE di VS.Net scrive nell'output window,
dove legge è invece legato al typo dell'oggetto read, a prima vista
sembrerebbe un stream (o tipi erretidati)
HTH
Corrado

 sembrerebbe un stream (o tipi erretidati)
Per leggere intendevo dove visualmente leggere io quello che scrive
Console.Write(stringa)
giuseppeD

Le applicazioni console scrivono nell'dispositivo output standard, questo
quando vengono lanciate come eseguibile "puro".
Quando lanciate nell IDE l'output della classe console avviene nella output
window, per intenderci quella in basso dove vengono anche elencati eventuali
errori di compilazione e dove viene diretto l'output della classe Debug.
HTH
Corrado

Newsgroup: it.comp.lang.visual-basic
Titolo: Nuovi componenti ActiveX

Dove si trova una bella libreria di componenti e/o modelli di componenti?
Qualcuno sa anche se esiste una guida ai componenti?
Grazie.
Un Giubodi che si č spulciato l'MSDN ma non sempre si riesce a cavar ragni
dal buco!


In Questo sito potrai trovare alcune cose interessanti
www.componentsource.com
Ciao Mirco
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Classi e funzioni API

Una domanda che più che altro è filosofica...
Ho creato delle classi per
gestire figure geometriche (poligoni, cerchi, ellissi, ecc.), dotate di
alcune proprietà e di alcuni metodi.
Tra i metodi ce n'è uno che disegna
la figura (su una Picture o altro) utilizzando funzioni API (Polygon,
FillRgn, ecc.).
Le funzioni, con tutte le costanti, le strutture e le
variabili necessarie le ho dichiarate all'interno delle classi, ripetendo
per ogni classe le dichiarazioni.
Mi chiedo: è corretto fare così
mantenendo l'incpsulamento e quindi rendendo "indipendente" dal resto del
mondo ogni classe o conviene dichiarare una volta sola tutto quello che
serve dichiarare in un modulo BAS in modo da facilitare la manutenzione del
codice?
Grazie!
-- 
Giorgio
--------------------------------
Inviato via 
http://usenet.iol.it

 codice?
Formalmente e' corretto l'approccio che stai seguendo.
Da un punto di vista pratico, se hai intenzione di utilizzare le tue classi
per compilare una libreria di funzioni (per es. una DLL ActiveX) allora
sarebbe piu' comodo raggruppare le dichiarazioni; se invece intendi usare le
classi anche singolarmente, includendo di volta in volta il sorgente nei
tuoi vari programmi, continua pure cosi'.
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

Ciao
Questo
NG č una vera figata!
Spero un giorno di poter riuscire a dare delle
risposte cosě esaurienti e rapide.
Grazie ancora!

Newsgroup: it.comp.lang.visual-basic
Titolo: Dov'e` la finestra di dialogo a schede?

Ho la VB5 Pro, ma nella lista della finestra di dialogo "Componenti"
non c'e` il "Microsoft Tabbed Dialog Control 5.0". Credo che dipenda
dal fatto che al momento dell'installazione di VB ho scelto
l'installazione minima. Allora ho copiato Tabctl32.ocx dal CD di VB
alla directory \System ma quando porto il controllo SSTab sul Form
appare l'errore: "Non sono disponibili informazioni sui diritti di
licenza per questo componente. Non sono disponibli i diritti di
licenza necessari per utilizzare questa funzione in ambiente di
progettazione". Devo reinstallare tutto?

 wrote in message
news:3b208ef9...@news.tiscalinet.it...


copia anche tabctl32.oca e tabctl32.dep
ho copiato pure tabctit.dll, ma da sempre lo stesso errore :-(((
ciao a tutti.

Newsgroup: it.comp.lang.visual-basic
Titolo: Directory System

Come sapere il percorso della directory System, indipendentemente dal
sistema operativo in uso (Win95/98/200)?
Salvo

Usa questa :
Public Declare Function GetSystemDirectory Lib "kernel32" Alias
"GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As
Long
ti da la directory di sistema.

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

Come si riesce a selezionare più elementi in un listbox ed a sapere i loro
indirizzi?
Grazie!

 loro indirizzi?
credo che occorra guardare la proprietà selcount
http://www.msdn.microsoft.com/library/default.asp?url=/library/en-us/vb98/html/vbproselcount.asp
che dice quanti elementi sono selezionati, poi verificare la proprietà
selected
http://www.msdn.microsoft.com/library/default.asp?url=/library/en-us/vb98/html/vbproselected.asp
di ciascun elemento per vedere quali sono.
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 ha scritto nel messaggio
news:2necsvF...@uni-berlin.de...

Ho capito, grazie!
Saluti
Andrea
Newsgroup: it.comp.lang.visual-basic
Titolo: Terminare un programma vb2005

Come faccio a terminare un programma in qualsiasi punto si trovi?
Ieri stavo lavorando su questo codice:
sub 1
...
    scandaglia(path)
.....
end sub
sub scandaglia(a)
     Dim search = My.Computer.FileSystem.GetFiles(a)
        For Each o As String In search
            infofile(o)
        Next
end sub
sub infofile(ByVal b As String)
  .......
        If   ...  Then
            Process.Start(nome.FullName)' ho trovato il file che
cercavo, lo lancio e posso uscire        'dalla corrente applicazione
            Me.Close()
        End If
End Sub
Nonostante il me.close il ciclo for each continua ad essere
eseguito...ho provato anche application.exit,
Thread.CurrentThread.Abort() ma senza risultati.
Grazie per l'eventuale aiuto


Detto MOLTO eufemisticamente, il tuo codice non è il massimo in quanto a 
strutturazione...
Meglio trasformare in function le sub infofile e scandaglia e "galleggiare" 
fino alla chiamata di primo livello per terminare l'applicazione.
sub 1
...
    Dim FullFilePath As String = scandaglia(path, FileToFind)
    If FullFilePath <> "" Then
        Process.Start(FullFilePath)
        ' Esci nel modo che preferisci, ad esempio:
        Me.Close()
    End if
.....
end sub
Function scandaglia(a) as String
     Dim search = My.Computer.FileSystem.GetFiles(a)
        For Each o As String In search
            If infofile(o) then
                Return o
            End If
        Next
end sub
Function infofile(ByVal b As String) As Boolean
  .......
        If   ...  Then
            Return True
        End If
End Sub

Newsgroup: it.comp.lang.visual-basic
Titolo: Qualcuno conosce qualche sito o News....

Qualcuno conosce qualche Sito o NG sull'argomento Visual Pro5?
Qualsiasi risposta sarà utile
Grazie e Ciao da Roberto

...


 wrote in message
10o9khu$8cl$1...@fe2.cs.interbusiness.it...


 wrote in message
news:89or6c$49r$1...@nslave2.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: A che serve Requery?

Come si usa il metodo Requery?
C'è qualche ingegno da escogitare.
A me non funziona manco a pagarlo (e l'ho pagato!).
Ciao, FabioDB

 ha scritto nel messaggio
news:8tmmvr$nmm$1...@nslave2.tin.it...


 wrote in message 8tmmvr$nmm$1...@nslave2.tin.it...

======
 MSDN
======
Metodo Requery (ADO)
Aggiorna i dati di un oggetto Recordset rieseguendo la query su cui si basa
l'oggetto.
Sintassi
recordset.Requery Opzioni
Parametro
Opzioni   Maschera di bit che indica le opzioni che interessano l'operazione
(opzionale). Se questo parametro è impostato su adExecuteAsync, l'operazione
verrà eseguita in modalità asincrona e al termine verrà inoltrato un evento
RecordsetChangeComplete.
Osservazioni
Utilizzare il metodo Requery per aggiornare l'intero contenuto di un oggetto
Recordset in base alla fonte dati inoltrando di nuovo il comando originale e
recuperando i dati una seconda volta. La chiamata di questo metodo equivale
alla chiamata dei metodi Close e Open in successione. Se si modifica il
record corrente o si aggiunge un nuovo record, si verificherà un errore.
Mentre l'oggetto Recordset è aperto, le proprietà che definiscono la natura
del cursore, ovvero CursorType, LockType, MaxRecords e così via, sono di
sola lettura. Il metodo Requery consente pertanto di aggiornare solo il
cursore corrente. Per modificare una delle proprietà del cursore e vedere i
risultati, è necessario utilizzare il metodo Close in modo che le proprietà
diventino nuovamente di lettura/scrittura. È quindi possibile modificare le
impostazioni delle proprietà e chiamare il metodo Open per riaprire il
cursore.
Chi cerca trova...

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Google releases Chrome OS source code

http://news.cnet.com/8301-30684_3-10401524-265.html
Una buona notizia, lo guarder� diversamente d'ora in poi.
Tra l'altro ho provato Android su un palmare e mi � piaciuto molto, compreso il
supporto per programmarsi le applicazioni in Java, sicuramente pi� usabile del
C++.
--
ciao
  Stefano

 Una buona notizia, lo guarder� diversamente d'ora in poi.
Beh, chi vole farsi espropriare il computer (dati compresi) pu� anche 
prenderlo in considerazione :-)
Tutto rigorosamente IMHO, ovviamente.
-- 
news:it-alt.comp.software.openoffice : Il newsgroup dedicato a
OpenOffice.org, la suite open source di applicazioni per ufficio.
Scarica "OpenOffice.org 3.0 Soluzioni a raccolta", molto pi� di semplici 
FAQ! 
http://it.openoffice.org/doc/manuali/

Tutto rigorosamente IMHO, ovviamente.
Non hai tutti i torti, tuttavia � una cosa abbastanza interessante:
http://www.affaritaliani.it/mediatech/chrome_os201109.html
--
ciao
  Stefano
Newsgroup: it.comp.lang.visual-basic
Titolo: [ocx] Masterizzare

Esiste qualche buon componente commerciale per la masterizzazione?
saluti,

 saluti,
Cerca nei vecchi post
Ciao
--
Timothy Redaelli
timothy.redae...@email.it
------------------------------------------------------------------
Togliere NONSPAMMARE per rispondere

 Cerca nei vecchi post

Newsgroup: it.comp.lang.visual-basic
Titolo: dataset e creazione runtime tabelle

Ciao a tutti,
credo che il mio sia un problema comune a tutti, ho la necessità di creare 
delle tabelle in runtime del tipo fatture 2007, 2008...etc in fase  di 
scrittura del programma faccio riferimento ad un dataset generico in cui il 
nome della tabelle è fatture, il problema si pone quando creo la tabella 
durante l'esecuzione del programma e non so come fare per fare in modo che 
il dataset si riferisca alla nuova tabella specifica e non a quella 
generica.Fino ad ora ho aggiunto al nome  della tabella una stringa del tipo
"Fatture"+anno
ma questo comporta che ogni volta devo modificare a mano il dataset designer 
e tutti i riferimenti ai datamember...e ovviamente oltre ad essere lunga  è 
anche una cosa a rischio( ne salto uno e ...ciao).
qualcuno ha qualche dritta da darmi?
Grazie Giuseppe Marino 

 ha scritto nel messaggio 
news:%H_Dh.5435$zG1....@twister2.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Evidenziare un carattere

Innanzitutto grazie per le risposte riguardo al mio thread "Intercettare un
carattere".
Ora vorrei che, una volta intercettato il carattere cercato all'interno di
una stringa contenuta in un campo di testo, il suddetto carattere venisse
evidenziato.
Solo che non riesco a trovare il comando che lo fa, o meglio, quello che ho
trovato mi permette di evidenziare tutto il testo e non solo una parte.
Grazie ancora
hyppos

rich text?

 wrote in message
97h234$pc2kg$1...@ID-73994.news.dfncis.de...

Tu che comando hai trovato ?
Penso che devi usare SelText e SelLength
Ciao
Sir Jo


Si ma questi mi selezionano il pezzo di stringa nel senso che la
memorizzano; quello che volevo io era evidenziare un carattere come quando
si seleziona una porzione di testo tenendo premuto il pulsante sx del mouse.

Newsgroup: it.comp.lang.visual-basic
Titolo: Hidedesktop.zip

Sul sito comune ho letto che hidedesktop.zip è stato testato solo su win95.
Funziona anche sotto win98 ???
--
Paolo 83 RE
XXXg...@freemail.it
 (remove XXX)
gher...@iname.com
 (text only)
CIAO!

Funziona anche sotto win98 ???
Basta provare... ^____^
Sě, non l'ho provato ma non ci dovrebbero essere differenze tra W95 e W98....
Ciao,
Moreno
#sirri#@
morenosoft.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
Home Page - 
http://www.geocities.com/SiliconValley/Bridge/1414/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

 wrote in message
3772aa4c...@news2.tin.it...


 wrote in message
7l8hf6$jf4$1...@pluto.sm.dsi.unimi.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO DATEMI UNO SPUNTO PER ...

Devo fare un programma che analizzi la struttura di un'unita'
notificandomi tutte le directoy, subdirectory, file. Deve esportare
poi il tutto in un file di testo e deve poter stampare un libricino da
mettere sotto la custodia del CD!
Non so proprio da dove iniziare, ringrazio anticipatamente tutti
quelli che mi suggeriranno qualcosa!
Werewolf: "Sempre piu' riconoscente"!
giw...@iol.it

Un po' troppo vago...

Newsgroup: it.comp.lang.visual-basic
Titolo: Mi serve aiuto per una Textbox

Scusate, probabilmente voi potete aiutarmi a risolvere questo
problema:
Dunque ho fatto un programma per chattare in due via tcp/ip.... 
ho messo 2 textbox, una dove scrivo io e una dove scrive l'altro.
Nella seconda compaiono i messaggi scritti da entrambi, cioč, ecco un
ipotetica conversazione col mio programma:
<Sparviere>  ciao capo
<lamer> ciao a te
<Sparviere> come va?
<lamer> bene
     ...... e cosě via
ora, quando la conversazione va avanti per piů di 6-7 righe, ovvero la
grandezza della textbox, il testo scritto va sotto (ho messo una
verticalbar) e quando arriva nuovo testo, la textbox torna al punto di
origine, costringendo l'utente a tornare su con la verticalbar....
Capirete bene che cosě chattare diventa una cosa frustrante....
Dunque come posso mantenere il cursore sull'ultima lettera dell'ultima
frase scritta???
Grazie arrivederci.

Capirete bene che così chattare diventa una cosa frustrante....


 frase scritta???
textbox.selstart=len(textbox.text)
Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo Utente

Ciao,
sto creando un controllo utente su una ListView e volevo sapere come
definisco hWnd
Es.
Public Property Get ListItems() As ListItems
    Set ListItems = ListView.ListItems
End Property
Public Property Get hWnd() As ???????
    Set hWnd = ListView.hwnd
End Property
Grazie
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 End Property
Long
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca

 Long
E senza Set (non è un oggetto)

 E senza Set (non è un oggetto)
Giusto! non lo avevo visto il Set... :)


 ha scritto:



 ha scritto:

          Grazie a tutti

Newsgroup: it.comp.lang.visual-basic
Titolo: filename e API

salve, ho un problema: esiste un metodo od una funzione API che consente
all' applicazione di trovare il proprio path , compreso il proprio nome? mi
spiego: se scrivo il programma VB "belgiochino.exe" ed uso la funzione
GetFullPathName per scoprire che l' utente l' ha piazzato nella cartella
C:\documenti,  questo non mi aiuta se lui l' ha rinominato come
"giocoscemo.exe" [cosa ALTAMENTE PROBABILE! :-)) ];  allora come faccio a
far scoprire al programma il suo nuovo nome e la sua posizione? non mi
sfottete per la banalità delle mie domande, sono un autodidatta...


Ho provato su WINNT4:
Durante la load del form iniziale, ma penso anche avviando dalla sub
Main,
Controlla che il nome costituito da:
	Dim strCurrentExeName     As string
	strCurrentExeName = App.Path & "\" & App.EXEName & ".exe" 
sia corrispondente al nome originario dell'exe, che hai avuto cura di
memorizzare in una Const, poniamo KST_NOME_EXE:
Const KST_NOME_EXE As string = "BelGiochino.exe"
Se non dovessero coincidere:
 if strCurrentExeName <> App.Path & "\" KST_NOME_EXE then
	Name App.Path & "\" & App.EXEName & ".exe"  As App.Path & "\"
KST_NOME_EXE 
 end if
Prova anche tu.
Poi mentre trasponi i miei suggerimenti, e li contestualizzi alle tue
esigenze,
ruba un minuto e guarda sulla guida, MSDN, le parole usate:
	App
        App.Path
        App.EXEName
        Name oldfile As newfile
e sbircia anche sul comando Dir.
Non trascurare di gestire gli errori.
Se hai necessità di ulteriori chiarimenti, chiedi nuovamente.
HTH
Ciao 
	Adriano

         Name App.Path ? "\" ? App.EXEName ? ".exe"  As App.Path ? "\"


 č stato sostituito dal punto di domanda.
sě, io non ho trovato nessun punto di domanda.
cmq la soluzione al mio problema me l' hanno suggerita, e l' ho trovata
sulla API guide, ecco il codice dell' esempio:
Private Declare Function GetModuleFileName Lib "kernel32" Alias
"GetModuleFileNameA" _
 (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As
Long
Private Declare Function GetWindowWord Lib "user32" (ByVal hwnd As Long, _
ByVal nIndex As Long) As Integer
Const GWW_HINSTANCE = (-6)
_____________________________________________________________________
Private Sub Form_Load
    Dim ModuleName As String, FileName As String, hInst As Long
            ModuleName = String$(128, Chr$(0))
             hInst = GetWindowWord(Me.hwnd, GWW_HINSTANCE)
             ModuleName = Left$(ModuleName, GetModuleFileName(hInst,
ModuleName, Len(ModuleName)))
              Msgbox ModuleName
End Sub
la procedura č comprensibilissima , e nell' esempio mostra il nome corrente
e tutto il path dell' applicazione nel Msgbox, pronto all' uso. Grazie cmq
dell' input, a presto!

 è stato sostituito dal punto di domanda.
Uhm... Ampersand :)
Cmq io ho visto un &, possibile  che ti invii  i caratteri in modo corretto
e li riceva in modo sbagliato?
Ciaotutti,
Asterix

Newsgroup: it.comp.lang.visual-basic
Titolo: quale guida cartacea consigliate a un pricipiante?

Vi ringrazio in anticipo
Francesco


Newsgroup: it.comp.lang.visual-basic
Titolo: ASSISTENTE AGENT TIPO OFFICE 2000

Vorrei fare un programma con un assistente di MS Agent.
I file ACS ce li ho (sono quelli di Office 2000), ma vorrei fare apparire
anche delle didascalie con bottoni, textbox o opzioni, esattamente come
Office 2000.
Come si fa?
Grazie.
Andrea

 wrote in message 7r15ke$2bn$1...@nslave1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Richiesta aiuto riavvio windows da ACCESS

C'č qualcuno che mi potrebbe dire il comando per riavviare windows da
ACCESS?

 wrote in message
news:8p81v6$12g$1...@pegasus.tiscalinet.it...


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

Salve a tutti,
ho creato un Report con CRW 10, ora ho la necessita (Chiaramente) di
visualizzare l'anteprima e di stamparlo... Nel progetto ho inserito il
componente "Crystal Report Smartviewer" e ho creato un Form con il
componente. Il problema è che non riesco ad assegnare il report al
Componente e quindi a visualizzare la finestra anteprima... mi da
l'errore "Tipo Non corrispondente", questo è il codice:
    With CRViewer1
        .ReportSource = App.Path & "\Report.rpt"
        .SearchByFormula = ""
        .ViewReport
    End With
L'errore me evidenzia la "&" nella rigra .reportsource...
Qualcuno può darmi dell edritte su come usare questo componente?
Grazie e buon Lavoro a tutti.

 
.reportSource non serve per assegnare il percorso del report.
Cerca rdc browser o la documentazione che dovresti avere nei cd di CR.
Devi prima definire un oggetto report, a memoria:
Apri prima l'oggetto CR:
Dim CRAXapp As CRAXDRT.Application
Set CRAXapp = CreateObject("CrystalRuntime.Application")
oppure con:
Dim CRAXapp as New CRAXDRT.Application
Set CRAXapp = New CRAXDRT.Application
Poi apri il report:
Dim rep As Report
Set rep = app.OpenReport(FileName, OpenMethod)
Definisci tutti i vari parametri, filtri, ecc.
Ed infine passi il report al viewer con:
set crviewer1.reportsource = rep
ciao
	maxx

Newsgroup: it.comp.lang.visual-basic
Titolo: [CD] Leggere informazioni di CD Musicali

E' possibile in VB leggere le informazioni da un CD Audio (brano, autore,
ecc...)? Ho sentito parlare di CDDb...


CDDB è un database online contenente le informazioni che ti servono.
Per usarlo nei propri programmi occorre registrarsi (gratuitamente) al
servizio, poi loro ti danno tutte le informazioni necessarie per collegarti.
Puoi trovare informazioni qui.
http://www.gracenote.com/dev/index.html
Newsgroup: it.comp.lang.visual-basic
Titolo: TextBox e caratteri invisibili

Qualcuno sa come visualizzare i caratteri invisibili in una textbox.
In particolare miservirebbe visualizzare il ritorno a capo.

 In particolare miservirebbe visualizzare il ritorno a capo.
Lo puoi sempre fare a mano.
Con un ciclo scorri tutti i caratteri del textbox e quando incontri il
carattere di "accapo" :-)
prima di esso metti un qualsiasi carattere a tuo piacimento.
-- 
Le persone non sono il proprio comportamento: devi sempre andare oltre,
essere flessibile, capire il punto di vista degli altri, interpretarne i
comportamenti ed intuirne le esigenze.
Per rispondere in privato elimina
dall'indirizzo "togliquesto"
MasterDavidex
David Ruscelli

 In particolare miservirebbe visualizzare il ritorno a capo.
Cioč????
Prova con
TextBox1.Text = Replace(TextBox1.Text, vbCrLf, "<CR><LF>")
E' questo quello che intendevi?
Ciao

 TextBox1.Text = Replace(TextBox1.Text, vbCrLf, "<CR><LF>")
Beh sě, effettivamente piů che fare un ciclo cosě č meglio...
:-)


Newsgroup: it.comp.lang.visual-basic
Titolo: stringhe di lunghezza variabile salvabili in modalità RANDOM?

>>>>   BBB(0 To 3) As String  <<<<<<<
        CCC As Boolean
        DDD As Long
      End Type
come dovrei procedere al momento del salvataggio del record e della sua
lettura?

errore......
i file random non possono che contenere stringhe della stessa lunghezza.
Puoi salvare i dati ma quando li richiami ti da errore. Quindi imposti una
lunghezza fissa, aggiungi due caratteri e il gioco è fatto. Ricorda che i
record in lettura e in scrittura conservano la stessa lunghezza, ma
l'aumento dei 2 caratteri lo indichi solo attraverso la Len=lunghezza+2
quindi...
1) la stringa è lunga 100 caratteri
2) file lo apri con Len=102
3) stringhe le scrivi e le leggi di 100 caratteri
ricorda di dichiarare la stringa di tipo String altrimenti vai in runtime
bye

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con la Tray Bar

Salve NG..!
Ho realizzato un programma per un ufficio, sfruttando la tray bar per
ripristinare il form nei momenti di inattività..!! Fin qui tutto ok...!
Cosa devo fare per far si che alla pressione del tasto "RIDUCI A ICONA
(Minimize)", il mio programma non sia più visibile nella barra dei
programmi, e  sia raggiungibile unicamente nella  tray bar ?
Per farvi capire....
alla pressione del suddetto tasto il form deve scomparire alla vista
dell'utente sia dal desktop che nella barra dei programmi(Quella vicino
all'Avvio Rapido..). L'unico modo per ripristinare il form deve essere il
doppio click sull'icona della tray bar..!! Che devo fare...?
Help ME...
Ps.Spero di essere stato chiaro...!!!

Io avevo reso invisibile il form...ma non penso sia il metodo
migliore...credo ci sia un modo + furbo!
Mi aggrego alla tua domanda..:)
Ciao SIMO
--
__________________
www.sasim.net
* Server IRC : 
irc.azzurranet.org
 --> Canale: #it_lang_vb
* Sito Comune Ng: 
http://www.it-lang-vb.net
* Manifesto del Ng: 
http://www.it-lang-vb.net/docs/Manifesto.txt
* I vecchi messaggi su: 
http://groups.google.com/


migliore...
ShowInTaskbar = False
--
hth, hal

 ha scritto nel messaggio
news:9sv5t1$16ese9$1...@ID-56381.news.dfncis.de...


 ha scritto nel messaggio
news:tLDI7.96411$sq5.4...@news.infostrada.it...

prova ad andare qui'
http://www.planet-source-code.com
e cerca "systray" nella sezione "Visual Basic"
CIAO!

 ha scritto nel messaggio
news:RvMI7.13032$5l.2...@news1.tin.it...


 ha scritto nel messaggio
news:UAMI7.97629$sq5.4...@news.infostrada.it...


 Buc...lo visiterei...se esistesse...!!! Grazie Comunque....
esiste a me lo apre cliccando su link di buc
Mucio

 ha scritto nel messaggio
news:9t0aho$hfe$1...@newstoo.ericsson.se...


ripristinare il form nei momenti di inattività..!! Fin qui tutto ok...!
ma:
un programma... e basta !
Il giochetto della traybar e' ancora tutto da implementare.
Cerca traybar o ShellNotifyIcon sul sito comune (
http://www.it-lang-vb.net/
)
-- 
hth, hal

 ha scritto nel messaggio
news:9t11t0$15q5no$1...@ID-56381.news.dfncis.de...


PROGRAMMA...!!!
Mi era venuto il sospetto che in realta' non avessi ancora implementato il
caricamento dell' icona sulla traybar, ma, evidentemente, non avevo capito
la tua richiesta.
Tutto bene, in ogni caso ;-)
-- 
ciao, hal

 > Peppe D. ha scritto:


 ha scritto nel messaggio
news:9t18n6$16cerq$1...@ID-56381.news.dfncis.de...



vorrei dare un occhio al codice ? dove lo hai posatto ?
...questo thread e' enorme?..mai visti quelli con un 100 di reply ? ;-)
--
sandro pons
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con openURL

sto facendo un programmino che si connette ad un indirizzo internet e
scarica delle pagine di cui specifico il nome in una textbox.
.1 problema
Come faccio a inserire il codice in una sub button_click() per farmi fare il
collegamento ad internet
.1.1
ho pensato di chiamare da vb l'accesso remoto di windows con la mia
connessione, ma non so dove sia! E' una cartella di sistema,,,ma forse è la
via sbagliata.
.2 Problema
- Se mi connetto ad un'URL tipo www.miosito.miapagina.html tutto ok. Il file
viene scaricato e copiato nella cartella che dico io.
- Se invece mi connetto ad un sito dove si crea una pagina dinamicamente
questo non funziona.
Ad esempio 
www.google.com/search.exe?miofile
come posso fare ?

come posso fare ?
Non funziona perché il nome fi file 
search.exe?miofile.htm
non è un nome valido,
se invece usi:
WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER
funziona, però hai bisogno di interagire con l'utente...
Se non ricordo male questo problema era già stato affrontato: ora su sue piedi non ricordo se
effettivamente c'è una soluzione migliore di quella che ti ho dato... forse su google puoi trovare
qualcosa tra i vecchi post.
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: ALLEGA DBF IN ACCESS 2000

Aiuto!!!!!!!!!!!!
ho un 'applicazione in access97 dove mi collegavo delle tabelle dbase al
volo con questa soluzione
   Set tdfCollegata = dbsTemp.CreateTableDef  "pippo"
    tdfCollegata.Connect = "dBase IV;DATABASE=C:\Siap\IND_ITA"
    tdfCollegata.SourceTableName = "TV001HAB.IND"
   dbsTemp.TableDefs.Append tdfCollegata
mi funzionava e mi funziona tutto perfettamente.
ora ho provato a convertire l'applicazione in access 2000. non mi funziona
più.
mi da un messaggio dove mi dice che il modulo di gestione di microsoft jet
non riesce a trovare la tabella TV001HAB.
provando a rinominare la tabella in TV001HAB.dbf funziona tutto
perfettamente.
il fatto è che non posso rinominare le tabelle.
come posso fare?
grazie

*Alex* ci ha deliziati con queste righe
 Quote:

il problema e' che al 99% usi Vb6 senza il service pack ( dal 4 in poi se
non sbaglio ? ) che supporta access2000
infatti fai una prova :
db97.mdb = dbacces97 con una tabella piccolissima chiamata tblProva
ora fai una copia convertendolo al 2000 db2k
ora metti 2 oggetti data (ado) sul tuo progetto ad uno agganci il db97 e il
recordsource ti accettera' tblProva , nell'altro oggetto data puoi
collegarci il db2k ma appena cerchi di fargli leggere il recordsource
"ZompaTutto" ^_^
quindi o usi Acces97 (che tra l'altro risparmi anche spazio per i db) oppure
ti scarichi l'SP5 dal sito della M$
NB: se hai solo visualbasic sono ( 50Mb~) per visualstudio (220Mb~)
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

Scusami Gigio2k
ma l'applicazione è in access97 e la devo convertire in access2000
in questo caso non uso vb6 anche se è installato sul pc ed è aggiornato a
sp5
altro suggerimento grazie
grazie comunque
""Gigio2K"" <baronef...@SPAM-YOURSELFyahoo.com> ha scritto nel messaggio
news:mqe5a.140918$ZE.40...@twister2.libero.it...


 ma l'applicazione è in access97 e la devo convertire in access2000
quindi vuoi dire che il tuo progetto E' SOLO un database e non centra nulla
con it.comp.lang.vb ? ^_^
Gh gh scherzi a parte se il problema e' solo la perdita del dbf allegato ti
conviene prima toglierlo dal db97 , transformi in db2k senza nessun errore e
poi rialleghi la tabella , se ti da errore ti conviene chiedere nei NG
specializzati !

Newsgroup: it.comp.lang.visual-basic
Titolo: ESISTE UN "DATABASE NAVIGATOR" IN VISUAL BASIC ?

Ciao, stavo disperatamente cercando un componente che funga da navigatore
all'interno del database, ovvero che contenga "in un colpo solo" tutti i
pulsanti di navigazione (Primo, Ultimo, Precedente, Seguente, Inserisci,
Annulla, Post, Delete) ecc per operazioni sui record.
Nessuno sa dirmi dove posso trovare un componente del genere, sempre che
esista!
Thx, Paolo Konami
-- 
Posted from 
ns.isiline.it
 [213.144.64.1] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Annulla, Post, Delete) ecc per operazioni sui record.
Hey, l'idea e' molto carina e non difficile da implementare, il
che significherebbe togliersi molte operazioni noiose.
Se non lo ha gia' fatto nessuno lo faccio io.
--
Fibia "Sakamoto" FBI
URL: 
www.geocities.com/fibiafbi
E-Mail: 
fibi...@hotmail.com
ICQ UIN 63586057

 Se non lo ha gia' fatto nessuno lo faccio io.
ottima idea.
cosa vuol dire "post" ?

 cosa vuol dire "post" ?
Boh, probabilmente significa il commit della transazione


 Boh, probabilmente significa il commit della transazione
grazie, mi mancava.

 grazie, mi mancava.
Hey, me lo sono inventato.
Ho detto probabilmente. ^__^


 Update
mi mancava sempre di piu? in che linguaggio ?

 capire come aprire il browser senza far apparire il GPF.
a volte. altre basta usare netscape su linux ?





Post significa Update in Delphi


 


bye







Post (in delphi) significa Update (in vb) . Scusate 
per aver sbagliato terminologia!! 


 


bye


 


Pao



 Thx, Paolo Konami
... non è proprio bellissimo ma ho mandato una copia del mio prog che fa una
cosa le genere
al sito comune, in formato sorgente.
( ODBCConnect.zip)
se apportate delle modifiche interessanti fatemelo sapere!
Werty


Ti ringrazio molto per la segnalazione, sai darmi 
l'indirizzo della pagina da cui scaricarlo ? ( non riesco a trvoarla!! @_@ !! 
)


 


Paolo Konami



 ha scritto nel messaggio
news:C125697D.0...@alpitech.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: cattura parole

Conoscete una funzione che acquisisce le parole da un testo o dal desktop
con un click del mouse?
thks


Chi la conosce avrebbe potuto risponderti un paio di post la sotto.....
ripetitivo?

 con un click del mouse?
Ma il mouse può far click ovunque?
E se fa click su una finestra tu per desktop intendi solo il desktop
effettivo o tutte le finestre visualizzate?
E il click è un click destro o sinistro?
E se il mouse è wireless?
Può essere che tu abbia il mouse fisicamente collegato ad un qualsiasi PC
della rete e il programma sente il click di quel mouse su quel PC e catturi
il testo?
E il testo è tutto il testo sul desktop o solo quello sotto il puntatore del
mouse (nel secondo caso è un problema se il mouse è su un'altro PC, a meno
che tu non stia lavoranto in terminal server o in VNC).
E se il testo è solo disegnato, nel senso che non è il testo di una textbox,
ma uno con il paint ha scritto "ciao mamma" e l'ha messo come sfondo di
windows?
E il testo deve essere riconosciuto?
E se invece io conoscessi una funzione che cattura il testo ma con il tasto
enter? va bene lo stesso?
E se la funzione usa il click del mouse ma riconosce solo gli oggetti e non
il testo?
La tuo domanda mi pare quantomeno generica, non trovi?
Ciao

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

Sto studiando il VB volevo sapere dove trovo la piattaforma di visual basic
per iniziare a programmare ?
Spero sia gratuita oppure esiste qualche sito dove è possibile scaricarla ?

aluigi <alu...@NOSPAMfreemail.it> ha scritto:

non capisco se scherzi o no...
Visual Basic è in vendita, la 6.0 non la trovi più, puoi prendere 
VB.NET
 
standard, a quanto pare, con qualcosa tipo 100 euro.
l'unica freeware/gratuita è la Control Edition, che troverai da qualche 
parte sul web, io non so dirti dove, però...
good coding!!!
--
Alletun
"Se ti va di spassartela adesso
Prendi il Vettore oggi stesso."
Terre Desolate - Stephen King
Inviato da 
www.mynewsgate.net

aluigi wrote:

Se sei interessato al vb6, ho giusto in vendita una professional edition 
per studenti in inglese.
La scatola contiene cd di service pack, il VB e msdn.
Inoltre non è mai stato registrato.
fammi sapere se ti interessa.
Saluti
Valerio

 una professional edition per studenti in inglese.
Scusa ma che significa "professional edition" per studenti?
Mi risulta che la "professional edition" e la "learning edition" (per
studenti)  siano due versioni differenti e che quest'ultima non produca
compilati.
Lokar
-- 
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
Statuto: 
http://www.it-lang-vb.net/docs/Statuto.txt
UGIdotNET - 
http://www.ugidotnet.org

 compilati.
Sulla scatola c'è scritto
Visual Basic Professional at academyc price.
saluti
Valerio Mandarino
Newsgroup: it.comp.lang.visual-basic
Titolo: Debug controlli a design time

Ciao a tutti.
Domanda veloce: sto creando dei controlli visuali.
Vorrei riuscire ad effettuarne il debug mentre li disegno, poichè a design
time hanno dei comportamenti differenti (soprattutto nel painting) che a run
time.
E' possibile?
Grazie!

 E' possibile?
Scusate, completamente sbagliato NG.
Ciao
-- 
NeoDataType : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 
Esiste un newsgroup che tratta la costruzione di OCX?

 Esiste un newsgroup che tratta la costruzione di OCX?
No, parlavo di controlli .Net
Ciao
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Newsgroup: it.comp.lang.visual-basic
Titolo: HELP (Seriale) HELP (Seriale)

Scusate se sono ripetitivo ma ho assoluto bisogno di controllare un modem
utilizzato da un'altro programma per sapere almeno quando inizia e quando
finisce una comunicazione.
ringrazio E.Sabatini per avermi indicato le funzioni da utilizzare, solo
che non avendo la documentazione delle api non so che parametri passare e
richiedere alle funzioni. Se potete mandatemi due righe di codice
funzionante. Grazie.
Ciao a tutti
Marco   (
mox...@genan.it
)

...

... se vuoi poi due righe di codice te le posso anche mandare , però dovrei
capire esattamente cosa ti serve.
Se non ho capito male ....  tu hai necessità di monitorare i dati e i
comandi (generati da un programma specifico) , che transitano fra il modem
ed il computer , utilizzando un programma esterno fatto in VB ???
e_sab...@hotmail.com
NOSPAM

ed il computer , utilizzando un programma esterno fatto in VB ???
Interessa molto anche a me, devo vedere quando il CD del modem e'
alto.
Ciao,
      Hidaba
Il Ronzino Volante
  The Flyng Nag
--------------------------------------------
E-Mail : 
n...@geocities.com
Home Page : 
http://www.geocities.com/bourbonstreet/2926/
------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Decompilatore Visual Basic 16 bit

Salve,
ho sentito dell'esistenza di un software capace di decompilare un eseguibile
Vb 16 bit tirando fuori l'intero codice  basic. Mi sembra alquanto strano;
Ne sapete qualcosa di piů?
Grazie

 Ne sapete qualcosa di più?
Cerca su internet "DoDi discompiler"
Ma ricorda che alcuni programmi sono protetti
contro la decompilazione e che cmq ti tira
fuori il sorgente ma con tutti i nomi
a caso (diventa praticamente illeggibile).
CiaO!

 wrote


 andrea
Ah, io sono d'accordo con te. Ho solo consigliato... :-)
Ciao!
Newsgroup: it.comp.lang.visual-basic
Titolo: Property Let

Se definisco in una form una Property Let, che valorizza una variabile
privata della form (variabile che verra' usata all'interno della form),
e poi chiamo quella form (con il metodo .Show) senza chiamare la
Property Let, la variabile che valore assumera? O, in alternativa, c'e'
un modo per assegnarvi un valore di default evitando pero' di
sovrascrivere il valore assegnato dall'esterno?
E se nell'evento UnLoad della form setto il valore di questa variabile
privata,diverso da  "" o da 0 (a seconda del tipo), quando ricarico la
form (sepre senza chiamare la Property Let), che mi ci trovo dentro?
Grazie a tutti
Massimo 8-]

form (sepre senza chiamare la Property Let), che mi ci trovo dentro?
ci trovi dentro o il valore predefinito ("" o 0 o False o quel che l'è)
oppure quello che gli assegni nel Form_Load
Ciao
Faber





E' una cosa certa? Mi ricordo che in C, se definisco una variabile come char*,
e poi vado a testarla senza averla inizializzata, posso trovarci dentro
praticamente di tutto. In VB non so se la definizione di tipo implica anche
l'inizializzazione...
Massimo 8-]

l'inizializzazione...
si, è una cosa certissima
Faber

 Faber

 form (sepre senza chiamare la Property Let), che mi ci trovo dentro?
Spero che l'esempio sia chiarificatore.
--
Ciao.
Maurizio

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

Salve a tutti.
Vorrei sapere se qualcuno conosce qualche libro di programmazione  Directx8
mediante Visual Basic. Oppure qualche indirizzo internet dove si possano
acquistare tali libri.
Grazie Riccardo.

*Riccardo Maffei* ci ha deliziati con queste righe
 Quote:

libri non saprei , ma ci sto sbattendo il muso col le dx9sdk , posso solo
segnalarti di prenderti l'sdk e seguire la guida on line
Ref:  
http://snurl.com/mt5
 (msdn con download dei vari pacchetti sdk e
extra )
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/
Newsgroup: it.comp.lang.visual-basic
Titolo: mi spiegate #if ?

ciao
in un form metto
#If  PINO=1 Then
    MsgBox "a"
#Else
    MsgBox "b"
#End If
in un modulo metto
Public Const PINO = 2
compilo, e mi dą msgbox "b"
ora metto
Public Const PINO = 1
compilo, e mi dą msgbox "b"... UGUALE.
Allora provo a mettere Const PINO = 1 nello stesso form... IDEM!
... anche se compilo, continua a darmi "b"
dove sbaglio? come funziona l' #If  ?

in pratica #if serve come condizione di compilazione, lo devi =
aggiungere
nelle propriet=E0 del progetto ala voce Argomenti di compilazione =
condizionale
La dichiarazione di PINO non la devi fare a nessuna parte.
Es.
Argomenti di compilazione condizionale di aggiungi PINO =3D 1 allora il
messaggio sara =E0=20
se metti PINO=3D0 sar=E0 il messaggio sar=E0 0
Ciao

innanzi tutto perché usare le istruzioni di compilazioni ?
cmq sia ognuno di noi fa le proprie scelte e quindi la costante la devi
dichiarare anch'essa come istruzione condizionale e quindi
#Const PINO = 1
cmq usa if normale.
ciao Alfredo

in pratica #if serve come condizione di compilazione, lo devi aggiungere
nelle proprietą del progetto ala voce Argomenti di compilazione condizionale
La dichiarazione di PINO non la devi fare a nessuna parte.
Es.
Argomenti di compilazione condizionale di aggiungi PINO =1 allora il
messaggio sara 1
Ciao

 Public Const PINO = 2
[SNIP]
Ridai un occhio alla guida, #If viene usato in accoppiata con #Const...
Ciao
-- 
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

grazie.

 grazie.
Ma hai capito a cosa serve, visto che nessuno te l'ha detto?
L'#if serve per compilare o meno le righe di codice.
Puoi fare cose molto strane.
Ad es. io l'ho usato in un sorgente (che dev'essere sul Sito Comune) in modo
che fosse compilabile sia con VB4 che con VB5/6 che possono sfruttare gli
enum:
#Const VB5OrVB6 = True
#If VB5OrVB6 The
    Enum MyEnum
        Uno
        Due
    End Enum
#Else
    Const Uno = 0
    Const Due = 0
#End If
...
#If VB5OrVB6 The
    Sub MySub(ByVal Param As MyEnum)
#Else
    Sub MySub(ByVal Param As Long)
#End If
        ' ... Fai qualcosa
    End Sub
Cioč al contrario dell'if, il codice non compreso nell'#IF non viene proprio
compilato: č come se non fosse scritto.
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 ha scritto nel messaggio
news:omK7b.42875$hE5.1...@news1.tin.it...

ti faccio pubblicare nella nuova versione di MSDN  ;-)
Newsgroup: it.comp.lang.visual-basic
Titolo: Numeri e date

Ennesimo quesito:
1) come posso abilitare l'utente ad immettere solo numeri in un TextBox?
2) Come posso fare un controllo di validità della data?
Grazie in anticipo
      GASFIRE

Grazie in anticipo


Prova questa funzione:
numerico() inserita nella routine KeyPress accetta solo input di numeri
segnalando con un beep l'immissione di caratteri
Function numerico (argomento)
    'Autore Giancarlo Galatolo
    Dim a As String
    a = Chr(argomento)
    If (a < "0" Or a > "9") And a <> Chr(8) Then
        Beep
        numerico = 0
    Else
        numerico = argomento
    End If
End Function
Per chiamarla:
Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = numerico(KeyAscii)
End Sub
Per la data ci sto lavorando... intanto prova la funzione IsDate( ) di VB la
metti nel LostFocus e if not IsDate(Testo) gli rischiaffi il focus!
Giancarlo

Newsgroup: it.comp.lang.visual-basic
Titolo: Risoluzione schermo.

Ho la necessità di conoscere la risoluzione dello schermo (in pixel).
Esistono API o istruzioni VB per conoscere questa informazioni.
Ho cercato sul sito comune ma non ho trovato nulla.
    Cobra

Ho la necessitą di conoscere la risoluzione dello schermo (in pixel).


Newsgroup: it.comp.lang.visual-basic
Titolo: [SITO COMUNE] il wm va in vacanza :)

Salve a tutti!
Volevo soltanto comunicarvi che vado al mare
per un po', quindi da mercoledì (1 agosto)
aggiornamenti e iscrizione dei nuovi utenti
sono sospese per circa 10 giorni.
ciao
--------------------------------------------------------------------
Assa (Gabriele Genta)
WebMaster del "Sito Comune dei militanti del newsgroup
it.comp.lang.visual-basic"
http://www.it-lang-vb.net

ciao
Beato te! Buone ferie!
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
---------------------------------------------------------------------------


Beato te!
(Ma il 3 scappo anch'io!!!!)
ciao
ugo


Divertiti anche per noi :)
Ciaociao,
*
Newsgroup: it.comp.lang.visual-basic
Titolo: Data dell'ultima volta che è stata usata la stampante

Esiste un modo per conoscere la data dell'ultima volta che è stata
lanciata una stampa?
Ho una stampante Epson, e, per evitare di dover buttare la terza
stampante, a causa della testina essiccata,  vorrei scrivere
programmino in VB che se è trascorsa 1 settimana dall'ultima volta che
l'ho utilizzata, mi lancia un documento in stampa automaticamente.

Rary ha scritto:

ma scusa, non basta mettere in schedule il programmino che stampi, ad
es., ogni martedi?
A limite sprechi un foglio a settimana (secondo me è inutile fare
tutti i controlli dall'ultima stampa)

Ci stavo pensando anch'io... anche perchè magari l'ultima stampa si
riferisce ad un documento monocromatico e quindi dovrei stampare
ugualmente qualcosa a colori... meglio lanciarla a prescindere...
Mi resta la curiosità: si potrà fare? Forse è scritto in qualche
chiave del registro di windows...
Escaflowne ha scritto:


 l'ho utilizzata, mi lancia un documento in stampa automaticamente.
Fai come me: comprati una laser.
Ciao 

 Fai come me: comprati una laser.
E preparati ad ipotecare la casa per comprare i toner.
Lokar 

 E preparati ad ipotecare la casa per comprare i toner.
Costano come le cartucce, ma per chi usa la stampante una volta al mese come 
me non ha il problema che si secchi l'inchiostro.
L'unico inconveniente è che ci si deve accontentare del bianco e nero 
(qualitativamente migliori del bubble jet), ma non devo stampare fotografie.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Per cancellare tutti i record di una tabella (Grazie)

Ciao a tutti del NG
Un Aiuto se potete:
Per cancellare in modo veloce tutti i record contenuti in una tabella.
Grazie per l'aiuto e buona domenica
Paolo

 Per cancellare in modo veloce tutti i record contenuti in una tabella.
DELETE FROM TABELLA

 ha scritto nel messaggio
news:KCVy8.25773$W9.6...@twister2.libero.it...


 cancellare tutto.
Non uso i controlli data, ma che errore ti segnala?

 Hai idea di cosa possa essere.
non usare il controllo data che fa schifo!
usa il metodo execute dell'oggetto command, inserendo come comando DELETE
FROM TABELLA
In alternativa ti tocca fare un loop sul recordset, che è una palla ma
soprattutto 10 volte piu lento
un loop di questo tipo
rspippo.movefirst
do untill rspippo.eof
rspippo.delete
rspippo.movenext
loop
Ciao

 ha scritto nel messaggio
news:cPVy8.25824$W9.6...@twister2.libero.it...


 ha scritto nel messaggio
news:WQVy8.25833$W9.6...@twister2.libero.it...


 per cancellare tutti i record
Prova con :
 do while not eof(1)
 data1.recordset.delete
 data1.recordset.movenext
 loop

 :-)
Solo codice e controlli "normali" per l'esposizione e gestione dei dati.

Dopo aver cancello si deve usare un compatta archivi per elliminare
definitivamente i record ?
e che comando e' ?

 definitivamente i record ?
No, con DAO il record scompare immediatamente (alla Delete). Con ADO puoi
provare (se non va quello che ti ho suggerito) a fare una
data1.recordset.requery subito dopo la delete. La compattazione (istruzione
CompactDatabase per archivi Access) sarebbe da fare periodicamente, solo per
"stringere" un po' l'occupazione.

Con questo comando mi esce dal loop e mipassa all'istruzione sucessiva.
Do While Not EOF(1)
 Data1.Recordset.Delete
 Data1.Recordset.MoveNext
 Loop

 wrote in message
R_Vy8.73378$vF6.2...@news2.tin.it...

Certo, ma dovrebbe farlo solo dopo aver cancellato tutti i records, ovvero
quando ... AZZ, ecco l'errore:
Do While Data1.Recordset.EOF=0

"Paolo / Elettronic System"  ha scritto

Prima di queste istruzioni hai inserito:
Data1.recordset.MoveFirst
???
Ciao
Ghigo    :)

OOOpppssss
Sorry    :(

Grandi ^30
ci sono riuscito grazie del mega aiuto
Paolo