mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 - Pilotaggio Reg. di cassa OLIVETTI con protocollo ELA

Cari amici,
ho realizzato un gestionale per l'emissione di scontrini fiscali su reg. di 
cassa OLIVETTI con protocollo ELA utilizzando gli OCX forniti, ma ho un 
problema.
Per ripartire le vendite con aliquote IVA diverse, è pratica comune 
utilizzare i Reparti:
Rep 1 associata l'aliquota al 20%
Rep 2 associata l'aliquota al 4%
ecc.
Nella modalità manuale, quando si effettua la vendita di uno o più articoli 
con IVA al 4%, ad esempio, si indica il totale ed il relativo reparto (2 in 
questo caso).
Questa pratica è indispensabile per ottenere dal reg. di cassa il rapporto 
giornaliero con scorporo dell'IVA:
Rep 1 - IVA 20% - Totale 120,00
Rep 2 - IVA 4% -Totale 45,30
ecc.
Nella modalità pilotata dal PC non riesco a selezionare il reparto: è 
possibile che non usi il comando giusto.
C'è qualcuno che può darmi una mano?
Grazie!

 possibile che non usi il comando giusto.
    Per quello che ne so i registratori di cassa Olivetti ignorano i
comandi relativi ai reparti. In sintesi con questi registratori di
cassa non puoi ottenere a fine giornata un rapporto suddiviso per
reparto e/o aliquota IVA.
Questo almeno e' quello che ci ha comunicato Olivetti quando abbiamo
sviluppato il driver per il nostro software (
http://www.readypro.it/
manuale/index.html?regcassaolivettiela.htm)
Il supporto tecnico di Olivetti ci ha infatti scritto:
"Il comando relativo all'aliquota e' solo una predisposizione mai
implementata,
la gestione del reparto e delle aliquote e' demandata all'applicativo
su PC che ne genera la relativa reportistica."

 ha scritto nel messaggio 
news:1194774524.3...@o3g2000hsb.googlegroups.com...


è possibile?
    Non saprei, mi dispiace  :(
Cmq sono d'accordo con te che in caso di utilizzo "misto" (il che non
e' nemmeno una possibilita' tanto remota durante il normale lavoro
quotidiano) l'assenza di una funzionalita' di questo tipo e' un
grossissimo problema.
Newsgroup: it.comp.lang.visual-basic
Titolo: Non migrano solo gli uccelli!!!!!!!!!!

Salve a tutti,
sto per migrare verso VB6 Pro (preferirei le Maldive....) e avrei bisogno
qualche informazione:
1) avete riscontrato problemi nel compilare con VB6 progetti scritti con
VB5??
2) consigliate di mantenere sul PC sia VB5 che VB6??
3) altre vostre impressioni
mlra...@tin.it
Grazie mille a tutti

...



Io attualmente tengo VB5 e VB6 sulla medesima macchina NT4 Server.
Solitamente non ho problemi, basta stare attenti che l'associazione ai
file e' fatta con VB6 e se voglio aprire un progetto con VB5 devo
aprirlo direttamente da dentro VB5.
Solo in un caso ho avuto dei problemi anche se indiretti (giudica tu
stesso)
In un progetto in cui serviva VB5 ho usato il controllo common dialog
della microsoft.
in seguito alla installazione di VB6 il controllo presente nella
macchina e' stato aggiornato da VB6.
Nota bene che non mi riferisco ai soliti controlli che aggiunge VB6,
Di soliti questi ultimi sono ben distinguibili da quelli di VB5, in
quanto hanno nomi leggermente diversi.
Ma la commondialog viene proprio sostituita brutalmente.
Al momento della fornitura del programma al cliente, ho trasferito il
tutto su una macchina Win95, in cui era presente solo VB5, per la
compilazione finale (cosa che facevo ormai abitualmente).
Ebbene, VB5 mi rifiutava la compilazione dicendomi che il controllo
OCX CommonDialog previsto nel progetto era diverso da quello 
presente sulla macchina win95.
(tieni presente che questa procedura di compilazione su una macchina
win95 era gia' stata usata con questo medesimo progetto svariate
volte).
E non vi e' stato verso di cambiare  le cose. Ho provato anche a
rimuovere la common dialog e riaggiungerla con il VB5 della macchina
win95. 
Peggio! VB5 ha cominciato a dare i numeri e mi ha costretto a
re-installarlo.
Ho risolto il tutto rimuovendo completamente la common dialog come OCX
e aprendola tramite API.
A parte questo "piccolo" problema non ne ho avuti altri e per ora
convivo felicemente con VB5 e VB6.
I problemi ti potrebbero capitare semmai, se ti sposti (come ho fatto
io) con tutti i sorgenti in una altra macchina in cui e' presente solo
VB5.
Andrea.
Newsgroup: it.comp.lang.visual-basic
Titolo: VB - DAO 3.6

Ciao a tutti, vi sarei grato per un Vostro aiuto.
Mediante la seguente Sub creo un database con una tabella, la quale ha 5
campi.
Mi si presenta un problema nel momento in cui creo il campo all'interno
della tabella!
L'istruzione è Set PREV_FLDS = PREV_TD.CreateField("NPREV", dbText, 7)
L'errore è "Errore di Run-Time 13 Tipo non corrispondente"
Non riesco a capire il motivo... uso DAO 3.6!
Public Sub CreaNuovoDB(Nome As String)
'OGGETTI DATABASE E WORKSPACE
Dim MyDB As Database 'Oggetto DATABASE
Dim MyWS As Workspace 'OGGETTO DELLA CLASSE WORKSPACE
'TABELLE
Dim PREV_TD As TableDef  'Oggetto TABLE per "PREVENTIVO"
Dim PREV_FLDS As Field  'Oggetto Fields per i campi della tabella PREVENTIVO
Dim Percorso As String
Percorso = App.Path & "\Preventivi\" & Nome & ".prv"
'Creo gli oggetti!
Set MyWS = DBEngine.Workspaces(0)  'Creo l'oggetto WS
Set MyDB = MyWS.CreateDatabase(Nome, dbLangGeneral, dbVersion30) 'Creo
l'oggetto DB dbVersion30 significa che il file creato dovrà essere
compatibile con... Acces97 in su!
'*************** PRIMA TABELLA "PREVENTIVO"  **********************
'************************************************************
'Creo l'oggetto Tabledef per la tabella Authors
Set PREV_TD = MyDB.CreateTableDef("Preventivo")
'Aggiungo il primo campo NPREV
Set PREV_FLDS = PREV_TD.CreateField("NPREV", dbText, 7)
PREV_TD.Fields.Append PREV_FLDS
'Aggiungo l'oggetto TABLE DEF all'insieme TABLEDEFS
MyDB.TableDefs.Append PREV_TD
MyDB.Close
End Sub
N.B. La stessa Sub all'interno di un'altro progetto funziona
perfettamente... a cosa potrebbe essere dovuto?
Vi ringrazio per ogni eventuale ipotesi, grazie.

 perfettamente... a cosa potrebbe essere dovuto?
Le istruzioni mi sembrano a posto. Prova a dichiarare l'oggetto Field come
DAO.Field.
Potrebbe andare in conflitto con l'oggetto Field di ADO (se questo è
dichiarato nei riferimenti, prima di DAO)
E' comunque buona regola, anche per oggetti "non confondibili" come Database
e TableDef, anteporre la sigla della libreria di competenza.
PS: Sono curioso. Posta come hai superato il problema. Grazie.


Problema risolto grazie al tuo consiglio!!!
Ho dichiarato tutte le variabili oggetto Database, Tabledef e Field
anteponendo la libreria di appartenenza (es. DAO.Field)
In effetti all'avvio del form dichiaro un oggetto ADODB.Connection e uno
Recordset... probabilmente come da te supposto andava in conflitto!
Ti ringrazio moltissimo... ciao.
Dennis
Newsgroup: it.comp.lang.visual-basic
Titolo: copia di un file

Buongiorno a tutti. Vorrei, in VB.net, copiare un file (come ad es. una
foto che si trova in C:\Documents and Settings\Documenti\Immagini ) in
una altra cartella come ad es. C:\Documents and
Settings\Documenti\Progetti di Visual Studio.
Come posso fare? Grazie tante

Ciao enzo,
Esempio 1:
...
FileCopy(PersorsoDiPartenza, Destinazione)
...
Fine Esempio 1.
Fammi Sapere!!

 ha scritto nel messaggio
news:1147934915....@j33g2000cwa.googlegroups.com...

System.IO.File.Copy(percorso_file_origine, percorso_file_destinazione)
Ciao
Zephiross

ok Grazie. Ma se ho due foto distinte, poste in cartelle sorgente
diverse, che però hanno lo stesso nome quando copio prima una e poi
l'altra si sovrascrivono quindi come posso rinominarle in maniera
univoca?

enzo ha scritto:

System.IO.File.Copy(percorso_file_origine, percorso_file_destinazione)
basta che in "percorso_file_destinazione" specifichi un nome di file
diverso da quello di origine

ok ora provo

ok ora provo

L'operazione precedente l'ho vista e funziona correttamente.Ora per
verificare la presenza di un file in una cartella quale proprietà
posso utilizzare?Grazie ancora

Risulato = Dir(PercorcosoFile)
se il file esiste nel percorso specificato la variabile Risultato è
uguale al nome del file.
Saluti!!

ok perfetto grazie ancora

scusate ancora ma un file che dovrei cancellare è in uso dal programma
ma non riesco a capire dove avete qualche suggerimento?

 ha scritto nel messaggio
news:1147946602.2...@i40g2000cwc.googlegroups.com...
L'operazione precedente l'ho vista e funziona correttamente.Ora per
verificare la presenza di un file in una cartella quale proprietą
posso utilizzare?Grazie ancora
If System.IO.File.Exists(percorsoFile) Then
    '  il file esiste
End If
Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 - PictureBox - Foto (rovesciate)

La mia procedura per organizzare le foto
sta procedendo abbastanza bene.
Mi è rimasto un ultimo problema importante.
La foto è stata fatta tenendo la macchina
fotografica a 90° e quindi si vede "di lato".
Cosa fare?
Grazie e saluti.
Sauro

 Cosa fare?
non ho molto tempo per spiegartelo, ma io con questo codice la metto a
specchio:
tempPicture.AutoRedraw = True
tempPicture.PaintPicture PictureDaRuotare.Picture, 60, 0, -60, 50, 0, 0, 60,
50, vbSrcCopy
tempPicture.Refresh
PictureDaRuotare.Picture = tempPicture.Image
dove temp picture è una picture temporanea che si prende l'immagine
e picturedaruotare è l'immagine che voglio ruotare.

 50, vbSrcCopy
Cosě puoi solo "flippare" l'immagine.
Per ruotarla č un po' piů problematico e probabilmente ci sono diversi 
algoritmi, dal piů semplice al piů efficiente.
Se cerchi in google ne troverai a bizzeffe.
Non so se sul sito comune c'č qualcosa, ma penso di sě.
Magari termoPilucco č arrivato a fare qualcosa con GDI+ :)
Ciao

Magari termoPilucco č arrivato a fare qualcosa con GDI+ :)
No... mi sono fermato al mio cono di luce ottenuto partendo da questo:
http://www.vbaccelerator.com/home/VB/Code/vbMedia/Image_Processing/Brightness_and_Contrast/article.asp
Per ruotare un'immagine, partendo da quell'esempio dovrebbe essere semplice,
forse basta modificare i cicli del metodo process cosě  (assolutamente non
provato):
For x = 0 To xEnd Step 3
         For y = 0 To yEnd
            fR = bDib(x + 2, y)  
            fG = bDib(x + 1, y) 
            fB = bDib(x, y) 
            ' Apply to DIB
	 y3=y*3
	 x3=(x+1)/3
            bDibDst(y3 + 2, x3) = fR
            bDibDst(y3 + 1, x3) = fG
            bDibDst(y3, x3) = fB
         Next y
Next x
termoPilucco

Newsgroup: it.comp.lang.visual-basic
Titolo: server Unix o Linux

Volevo sapere se qualcuno sa dirmi se è possibile gestire un database in un
server Unix o Linux con VB5 ?
grazie !
--
tras...@iol.it
http://users.iol.it/trasibilo


Si, se hai il driver ODBC, oppure l'OLE-DB provider per ADO (poco
probabile), oppure il DBMS possede delle librerie client utilizzabili in
Windows e richiamabili da VB.
Roal Zanazzi





Mi e' stato detto (da persone che l'hanno sperimentato di persona) che e'
possibile caricare un db access (versione 97) su linux e condividerlo poi
via rete. Non ho ancora fatto la prova di persona, ma ho intenzione di farlo
presto (dicevo lo stesso un mese fa... :-)) )
Ciao.
Lorenzo
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto file exe

Ciao a tutto il NG.,
sono a chiederVi aiuto :
Come posso fare a rispristinare un programma che avevo lanciato con SHELL e
poi ridotto ad icona,  a ritornare vbMaximized e con focus impostato.
Grazie a tutti e buon lavoro e buone feste.
ciao
--
ELETTRONIC SYSTEM
WWW.ELETTRONICSYSTEM.COM
in...@elettronicsystem.com
ICQ N.: 27427846


cosi' a lume di naso mi viene in mente AppActivate
pero' non so se da solo il focus, oppure rispristina anche lo stato della
finestra

 ha scritto nel messaggio
news:SbfZ5.84214$hk4.3...@news.infostrada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Pacchetto installazione di macro powerpoint

Devo creare un pacchetto di installazione per una macro PowerPoint che
si installi sull'office.
Inoltre vorrei fare in modo che si installasse anche un programma di
zip se non esistente nel pc.
Da dove inizio?

[*SP* = 
spia...@netscape.net
 in
news:f3964043.04011...@posting.google.com
] ha scritto:

Da un altro NewsGroup

 Da un altro NewsGroup
Ecco, vedo che già lo sapevi. Se ti dicono "viewer" ti basta?

 ha scritto nel messaggio
news:bu3eom$d5psl$1...@ID-174464.news.uni-berlin.de...


> Ecco, vedo che gią lo sapevi. Se ti dicono "viewer" ti basta?

 E quota!
si, ma non č che tu hai dato il buon esempio :-P
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 si, ma non è che tu hai dato il buon esempio :-P
Volevo lasciare quanto avevo scritto.

Newsgroup: it.comp.lang.visual-basic
Titolo: How to send Faxes in VB ?

I'm developing an application for orders management, and I want it to send
orders automatically by fax or e-mail. Doing it by e-mail is quite easy, but
how to do it by fax? If you can, send me the .ocx file if is needed
Bye, Steve


There are a couple of OCX but they are commercial, insteda you can use
DDE and winfax , it work well ( just tried ).
But why the hell you are speaking in English, this is a newsgroup of the
Italian hierarchy so we can ( or must ) speak in Italian !
ciao da Marco
Newsgroup: it.comp.lang.visual-basic
Titolo: Semplice SQL

Scusate, da pochissimo stň utilizzando MySQL...
Mi dite come si 'traduce' questa semplice SQL che in Access funziona
tranquillamente:
SELECT Codice & ' - ' & Descrizione AS Articolo FROM ARTICOLI
Eseguemdola in MySQL mi ritorna la colonna  Articolo piena di zeri!
In pratica come si concatenano i campi in SQL (non Access)?
Grazie
Cristina

 Scusate, da pochissimo stň utilizzando MySQL...
E anche usenet, scommetto :)
termoPilucco
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Ce l'ho fatta da sola...
il comando è CONCAT(str1, str2,...)
quindi:
SELECT CONCAT(Codice,  ' - ' , Descrizione) AS Articolo FROM ARTICOLI
Grazie lo stesso
Ciao Cristina

 Eseguemdola in MySQL mi ritorna la colonna  Articolo piena di zeri!
da una veloce ricerca in rete, pare che mysql utilizzi la funzione concat
hth
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo


In pratica come si concatenano i campi in SQL (non Access)?
Hai provato con un banale + o, meglio ancora, con l'operatore standard
ANSI92 || (doppio pipe)?
--
Ciao!
Luca Menegotto

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

Salve a tutti,
qualcuno di voi pgmtori ha mai avuto problemi (di qualsiasi tipo) con
l'installazione dei suoi programmi (o in genere --> bachi di WMEecc.) su
WME?
Tutti i PC che vendono oggi (o fino a poco tempo fa) hanno WME preinstallato
ed è possibile che qualche mio nuovo cliente lo abbia. Dato che fino ad ora
non ho avuto la necessità di lavorare con WME vorrei sapere se Voi (più
esperti) avete qualche dritta da darmi.
Grazie 1000
Ciao.
Paolo.

 ha scritto nel messaggio
news:NhuB7.9028$GW5.1...@news2.tin.it...
cut

 WME?
uno, degno di nota:
WME Italiano
AutoCAD LT 2000i Italiano
programma in VB5 SP3
non si riesce proprio a lanciare aclt.exe, né tramite Shell(), né tramite
CreateProcess()
mi pare che la situazione fosse questa...
Faber

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Dove posso trovare un codice di esempio scritto in VBA?

Grazie!

 Grazie!
Prego!
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

Complimenti per l'educazione ma non mi hai risposto :)

 Complimenti per l'educazione ma non mi hai risposto :)
Eccome se ti ho risposto! ;-))
Vista la stringatezza del tuo testo avevo pensato che tu fossi uno che
apprezza l'estrema sintesi degli interventi.
Il mio "prego" puoi tradurlo cosi`: cerca il mio nome su 
deja.com
 e di
esempi di quello che cerchi ne trovi una discreta quantita`, miei e dei vari
frequentatori di questo ng che come te e me sono interessati all'argomento.
Ti propongo di cercare il mio nome e non parole come "Excel", o "Word", o
altro perche' vedo che sei molto riservato in proposito e rispetto la tua
privacy.



sul VBA maurizio ci potrebbe scrivere un'enciclopedia... io ormai quando
leggo qualche richiesta e conosco la risposta, quasi mi vergognoa
rispondere, perche dopo 5 minuti arriva lui, con un paio di righe di codice
che fanno piu o meno la stessa cosa delle mie, ma GUARDA CASO la fanno
meglio... e mi umilia... ::))))))))) mah...
MarioH
Newsgroup: it.comp.lang.visual-basic
Titolo: Pressione del tasto F2

Dovrei fare una routine che premendo il tasto F2 esegua una funzione.
Come si fa a dire a Visual Basic che alla pressione di tale tasto esegua
tale funzione?
Grazie

Un metodo grezzo ma efficace è:
Imposti la proprietà KeyPerview del form uguale a  True
Inserisci questo codice:
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF2 Then
    ...codice che vuoi tu....
End If
End Sub
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no
(credevo di averla rubata a SpecialKeta :P )
web: 
http://www.nicolaottomano.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Catturare eventi in VBA per EXCEL

Salve a tutti, vorrei fare la seguente cosa, ma spulciando in giro non ho
ancora trovato la soluzione adatta.
Sto lavorando nell'ambiente visual basic di excel Xp, ho creato un form che
fa parecchie cosine in un workbook principale, tra le cose che fa questo
form c'e' anche quella di prendere dei nomi da alcune celle e con quei nomi
creare dei workbook che avranno il nome "nome cella" & ".xls".
Detto questo io vorrei sapere se è possibile, dal workbook principale,
controllare se avviene un evento su un altro workbook aperto.
Mi spiego meglio sul mio workbook principale è attivo il mio form di comandi
ed ho inoltre aperto un altro workbook, riesco a catturare e gestire dal
form un evento che accade sull'altro workbook.
Grazie mille, per ora. Ciao a tutti

> "Harry" news:ELUt9.32895$
dj7.2...@tornado.fastwebnet.it
:

    Se e' una domanda ;-) allora:
    Per sperimentare il codice di esempio seguente dovrai predisporre:
        Cartel1.xls
            Fogli: Foglio1
            Nome progetto: VBAProject1
            Modulo: Modulo1
            UserForm: UserForm1
                TextBox: Test1
                CommandButton: CommandButton1
        Cartel2.xls
            Fogli: Foglio1
            Nome progetto: VBAProject2
' VBAProject1.Modulo1
'
Option Explicit
Public Sub Wbk1Main()
  Dim oMSFForm1 As VBAProject1.UserForm1
  Set oMSFForm1 = New VBAProject1.UserForm1
  oMSFForm1.Show vbModal
  Set oMSFForm1 = Nothing
End Sub
' VBAProject1.UserForm1
'
Option Explicit
Private Const c_sWbk2Name = "Cartel2.xls"
Private Const c_sWks2Name = "Foglio1"
Private WithEvents m_oXlWks2 As Excel.Worksheet
Private Sub CommandButton1_Click()
  m_oXlWks2.Range("A1").Value = Me.TextBox1.Value
End Sub
Private Sub m_oXlWks2_Change(ByVal Target As Range)
  With Target
    MsgBox .Address & "=" & .Value
  End With
End Sub
Private Sub UserForm_Initialize()
  With Excel.Application.Workbooks(c_sWbk2Name).Worksheets
    Set m_oXlWks2 = .Item(c_sWks2Name)
  End With
End Sub
Private Sub UserForm_Terminate()
  Set m_oXlWks2 = Nothing
End Sub
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

 ha scritto nel messaggio
news:ap97na$srkrk$1...@ID-52090.news.dfncis.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: Inserire una riga in file testo...

Salve a tutti,
il mio problema è questo: devo fare un programmino che mi inserisca una riga
in un file di testo ad una determinata posizione.
Es.
aaaaaaaaa
bbbbbbbbb
cccccccccc
devo inserire la riga "zzzzzzzzzzz" tra le a e le b; come faccio? Grazie
anticipatamente.
________________________________________________________
Alessio - 
Ale...@isa.it
 - ICQ: 9549126
http://www.emma97.com/hardwaresite
 - 
Ale...@emma97.com
http://www.checkservice.com
 - 
Webm...@checkservice.com

Dim St as String
Open "Testo.txt" For input as #1
Open "Testo.new" for Output as #2
Do Until EOF(1)
      Line Input #1,St
      Print #2,St
      If St = "aaaaaaa" Then
         Print #2,"zzzzzzzzzzz"
      Endif
Loop
Close #1
Close #2
Kill "Testo.txt"
Name "Testo.new" As "Testo.txt"
Fabio Guerrazzi
Newsgroup: it.comp.lang.visual-basic
Titolo: Accesso a Database

Salve a tutti,
sto provando ad accedere ad un database e la cosa mi sembrava molto facile.
Ho provato con il codice presente nell'help di VB:
Dim cn As rdoConnection
Dim en As rdoEnvironment
Set en = rdoEnvironments(0)
Set cn = en.OpenConnection(dsName:="WorkDB", _
    Prompt:=rdDriverCompleteRequired)
debug.print cn.Connect
Solo che quando eseguo c'è un errore nella linea in cui dichiaro cn As
rdoConnection che dice "tipo definito dall'utente non definito".
Io uso VB 5.0.
C'è qualcuno che sa come risolvere il problema?
Anticipatamente ringrazio.

Hai messo i riferimenti a RDO nel progetto?
Alberto

 Anticipatamente ringrazio.
se non risponde nessun altro:
non ci scommetterei, trattandosi di ado, ma credo che tu debba aggiungere i
riferimenti ad ado
progetto | riferimenti | ms activex data objects
mi sembra che vb5 lo supportasse con sp3.
ciao, a.

 Hai messo i riferimenti a RDO nel progetto?
oops, ho letto ado invece di rdo.
ormai e' un incubo.
con dao non si rischia dro :)

 wrote in message
news:a82f0k$p3rgn$1...@ID-51318.news.dfncis.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: impostare in ordine alfabetico una ComboBox

Salve raga, mi potreste dire come posso fare a impostare in modo crescente i
dati ( in formato stringa) all' interno di una combobox?
GRAZIE 1001

 dati ( in formato stringa) all' interno di una combobox?
Proprietà Sorted=True in ogni caso.
Se il problema riguarda invece (ma perchè non ce lo dici?) l'ordinamento di
numeri devi decidere quanti digits sono previsti al massimo e anteporre ad
ogni numero aggiunto al combobox tanti spazi (o "0") quanti ne mancano al
numero per raggiungere il numero massimo dei digits previsti.

Scusa Lupo ma quello che mi sono dimenticato di scriverti è che questa
casella combinata è gestita su Excel.
Scusa ancora per il disguido e grazie per la risposta.

Newsgroup: it.comp.lang.visual-basic
Titolo: -> disconnettersi da internet

come posso fare x chiudere (tramite codice VB) una connessione a
Accesso remoto,cioe' una connessione a internet?
Rispondetemi sul NewsGroup
(pultroppo c'e' gente che ha il vizio di farlo x email)

 Accesso remoto,cioe' una connessione a internet?
Sul sito comune c'e' un articolo di Moreno Sirri che spiega come fare...
Ciao,
Brando

Newsgroup: it.comp.lang.visual-basic
Titolo: Perdonatemi sono un dilettante

Premessa: sono un dilettante autodidatta orfano di Clipper
Chi mi chiarisce le idee a proposito di VB e databases ?
- Ho imparato, a mie spese, che il modo piů sicuro, affidabile ed efficace
di usare un database č quello di accedervi il meno possibile in termini di
tempo preferendo lavorare su set di variabili contenenti i dati del record
in questione. Vale la stessa regola anche per VB ? e quale approccio (in
linea teorica) devo seguire?

 linea teorica) devo seguire?
Io ho un database abbastanza piccolo (300-400 record nella tabella più
grande). Sia quando devo leggere che quando devo fare update o nuovi
inserimenti apro il database con dao, faccio l'inserimento o l'update e poi
lo chiudo subito. Così faccio molti accessi ma con un db così piccolo non è
un problema. Molte cose sono gestite da vb, ad esempio se usi un controllo
adodc e un datagrid associato per visualizzare una tabella non so
effettivamente come faccia lui ad interagire col db.
Premetto che sto imparando a lavorare in vb solo ora.
Saluti
Puzz
Newsgroup: it.comp.lang.visual-basic
Titolo: Chi ha la osr2?

HKEY_USER\Control Panel\Colors?
Vorrai dire HKEY_USERS\.DEFAULT\Control Panel\Colors.
Si', esiste.
Bye/ciao
Verno Vito Valerio
ICQ : 700.84.18
ve...@ibm.net
Genoa - Italy

Mi sembra strano che siano diverse!
In effetti non dovrebbero essere diverse. Non e' che per caso stai
parlando di HKEY_CURRENT_USER\Control Panel ? (e' il nodo dove vengono
copiate le informazioni relative all'utente che ha fatto il login e
viene creato in base alle informazioni trovate in HKEY_USERS)
Ho provato a guardare il Resource Kit di OSR2 e dice (in Windows 95
Registry - Hkey_Current_User and Hkey_Users) :
Hkey_Users contains the .Default subkey plus all previously loaded
user profiles for users who have logged on. The information in the
.Default subkey is used to create the user profile for a user who logs
on without a personal user profile. The .Default subkey contains keys
for AppEvents, Control Panel, Keyboard layouts, Network, RunMRU, and
Software, among others.
Prova a confrontarlo con quanto dice il tuo resource Kit (e' nel CD di
Win in un file chiamato Win95rk.hlp)

Newsgroup: it.comp.lang.visual-basic
Titolo: vecchi sorgenti in BASICA !

Ciao a tutti,
Dovrei mettere le mani su un vecchio programma in basica (si. quello
che aveva solo i numeri di riga e permetteva solo il gosub e non le
chiamate a funzioni! Sto tornando indietro a quando ero piccino...)
Poichč cosě com'č funziona, non ho intenzione di riscrivere tutto il
codice, immettendo gli inevitabili errori....
L'idea e' di importare tutto il codice in VB e lě fare le modifiche
richieste, ma.. qualcuno si e' trovato in questa situazione?
Dovrei innanzitutto rimuovere tutti i numeri di riga non necessari, e
poi sulla base dei salti, inventarmi una struttura di sub
compatibile...
Non solo.
Questo birbone, per stare entro i 64k di memoria di allora, e' stato
suddiviso in molti moduli che si chiamavano con la funzione CHAIN, che
riusciva a invocare il caricamento del modulo successivo passando le
variabili sin li' elaborate.
In VB cosa dovrei fare?
Qualcuno ha affrontato un problema simile?
Esiste qualche programmino che potrebbe assistermi?
Grazie a quanti hanno usato del loro tempo per leggere e rispondere a
questa mail.
Nicola Tornieri
   Nicola Tornieri
   ----------------------------
  Manens Intertecnica srl
  tornieri[at]
manens.com
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

 richieste, ma.. qualcuno si e' trovato in questa situazione?
ho provato con GWBASIC, probabilmente dipende anche dal programma, nel mio
caso (circa 400 file) a conti fatti e' convenuto riscrivere tutto da capo
Ciao stefano

 che aveva solo i numeri di riga e permetteva solo il gosub e non le

Newsgroup: it.comp.lang.visual-basic
Titolo: Processi Attivi

ciao a tutti volevo sapere come ottenere un lista di tutti i processi
attivi in un dato momento in windows xp. credo che non ci sia una sola
api?? ma forse mi sbaglio e per questo chiedo aiuto a voi.
grazie anticipatamente
gege

 api?? ma forse mi sbaglio e per questo chiedo aiuto a voi.
questa e` una F.A.Q.
http://groups.google.com/groups?as_q=processi+attivi&as_ugroup=it.comp.lang.visual-basic
-- 
ciao, hal

 ha scritto nel messaggio
news:1132173193.2...@g14g2000cwa.googlegroups.com...

Trovi un esempio sul Sito Comune  
http://www.it-lang-vb.net
Cerca Processi o kill o Task o tra i programmi che ho fatto io.
Solo che... in questo momento il Sito Comune č Down :(  Qualcuno sa percč??
CIAO
Ettore Maronese, il Mes
http://www.it-lang-vb.net
   << Il Migliore
Evitate di applicare il rasoio di Occam: "Pluralitas non est ponenda sine
necessitate", perchč significa rifugiarsi nella pigrizia.

 > api??
Mi accodo qui perche' non vedo il post iniziale
Il WMI e' fatto a proposito per questo ... l'unica e che se devi
didtribuirlo NON tutti  i pc lo supportano
http://www.google.it/search?hl=it&q=wmi%2Bactive+processes&btnG=Cerca&meta=
--
Fosco

"Fosco"
wmi :
http://www.informit.com/articles/article.asp?p=19489&seqNum=4&rl=1
il secondo esempio dovrebbe essere quello giusto
questi non ho avuto il tempo di controllarli :
http://www.codeproject.com/csharp/Win32ProcessusingWMI.asp
http://www.expresscomputeronline.com/20030127/techspace1.shtml
http://www.alexfedotov.com/samples/wmitop.asp
http://www.activexperts.com/activmonitor/functions/process/
--
Fosco

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

Salve a tutti, sono un utente VB alle primissime armi, non so se vi
ricordate ma avevo già postato. Beh, la mia domanda è questa: che
differenza c'è tra il C++ e il VB? Perchè mi conviene "studiare" uno
rispetto all'altro... ho sentito pareri diversi...
Grazie x le delucidazioni
Drew

...



Visual Basic non supporta il multitasking (almeno non oggi).
Ha bisogno di un mucchio di DLL e quindi l'applicazione e' piu' grande da distribuire.
Molti elementi di Windows non sono accessibili se non con le API.
Io ho scritto (insieme a mio fratello Angelo), ad esempio, un client di posta elettronica e newsgroup multitasking che si nasconde nella tray bar, che ti avvisa se arriva posta, etc. in C++ ed il programma e' un unico .exe di 280K.
Antonio Donatiello

Vorrai dire multithreading...
Si.
Antonio Donatiello


 Chi č cosě buono da spiegarmi la differenza fra linguaggio ad oggetti e
linguaggio basato sugli oggetti? Anche in VB si possono creare degli oggetti
o mi sbaglio?
Newsgroup: it.comp.lang.visual-basic
Titolo: Re: Semplice programmino

 Aiutatemi grazie!
http://www.google.com/search?q=%22visual%20basic%22%20manual%20free%20download
Results 1 - 10 of about 393,000 for "visual basic" manual free download. 
(0.43 seconds)

Salve, devo fare un semplice programmino in VB con una sola "variabile".
Premetto che non so assolutamente programmare in VB.
Allora, dato un valore alla variabile aprire la pagina internet con il
valore.
esempio
Inserisci l'url [prova]    { questo nella schermata}
aprire pagina internet [Apri pagina]   { come pulsante }
http://www.
[variabile].it/css
http://www.
[variabile].it/php
ecc.
Spero di essere stato chiaro
Aiutatemi grazie!

hal1961 ha scritto:

:-)
Beh lo so che una guida è la cosa migliore, però purtroppo non ho tempo ;P
Se potete farmi un listato velocemente ve ne sarei grato.

 ecc.
ti metto sulla strada:
inputbox + shellExecute
se sei bravo lo fai con una sola riga!


GioXŽ ha scritto:

Private Sub Form_Load()
memovalue = InputBox("Enter Memo Text", "List View Demo", DfStr)
ListView1.SelectedItem.SubItems(4) = memovalue
End Sub
Private Sub ok_Click()
ok_click() = openurl inputbox.memovalue
End Sub
??? Ho sbaglito tutto lo so!!! e in questo momento starete anche ridendo ...
aiutatemi pls

 ok_click() = openurl inputbox.memovalue
allora openurl è un metodo dell'oggetto Inet quindi al massimo dovresti
scrivere:
Inet.openUrl
ok_click() è un evento non una variabile
Inet.openUrl restituisce il documento specificato come parametro
(restituisce un variant)
dovrai quindi associare il valore restituito ad una variabile:
retVal=Inet.openUrl memovalue
e non inputbox.memovalue!!    perchè inputbox è una funzione e non un
oggetto!
cmq se tu questa pagina la vuoi vedere in un browser e quindi vedere la
pagina come si presenta e non il sorgente beh allora cancella tutto perchè
non servono a niente le istruzioni sopra! :-))


 aiutatemi pls
A te non manca il tempo, ti mancano le basi.
Quindi il tempo lo lasci perdere e ti leggi un po' di documentazione a
partire dalla differenza tra funzioni e classi.
Ciao
-- 
NeoDataType : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

Ciao
ciao Zanna :P

 Se potete farmi un listato velocemente ve ne sarei grato.
10 goto 10
run
termoPilucco
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Private Sub Form_Load()
memovalue = InputBox("Enter Memo Text", "List View Demo", DfStr)
End Sub
Private Sub Command1_Click()
retVal = Inet.openUrl memovalue
End Sub
cosa sbaglio ancora?
Newsgroup: it.comp.lang.visual-basic
Titolo: Completamento automatico

Ciao a tutti, mi piacerebbe sapere se e' possibile fareuna cosa.....
Ho una maschera di immissione per una query di un DB, mi piacerebbe
che inserendo dei caratteri nella textbox, mi venisse il completamento
automatico se la stringa esiste gia' nel db, per spiegarmi quello che
avviene con le recenti versioni Excel o Internet Explorer.
Si puo' fare e come ??? Ogni riferimento (soprattutto documentazione
sul WEB e' bene accetta).
Un grazie a tutti.
Ciao e buon lavoro.
Fabio

 wrote in message
37c58988...@news.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: intercetta form

ciao ragazzi!
un aiutino
in u nprogetto con un mdiform e i relativi child devo far scatenare un
evento solo ed esclisivamente se un determinato form è aperto (es
frm_Pippo). come posso fare?
grazie
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


' Return True if a form is loaded.
Public Function IsLoaded(ByVal form_name As String) As _
    Boolean
Dim frm As Form
    IsLoaded = False
    For Each frm In Forms
        If frm.Name = form_name Then
            IsLoaded = True
            Exit For
        End If
    Next frm
End Function 


grazie mille


Newsgroup: it.comp.lang.visual-basic
Titolo: Aggiungere una stampante

Si riesce da VB ad installare una stampante?
Grazie

 wrote in message
8kel21$pkg$1...@nslave1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Perchè accedere al Registry con le API?

Ciao a tutti,
    so che l'argomento Registry conta in questo NG un numero di post
spropositato (visto che pio la domanda è sempre la stessa: come scrivo un
dato sul registry).
La risposta che viene sempre data è quella di usare le API:
RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA"
RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA"
RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA"
RegQueryValueExString Lib "advapi32.dll" Alias "RegQueryValueExA"
assieme magari a qualche altra.
Oggi, però, sfogliando il visualizzatore oggetti per motivi diversi, ho
scoperto che il modulo "interaction" di VBA espone i tre metodi:
DeleteSetting(AppName As String, [Section], [Key])
GetSetting(AppName As String, Section As String, Key As String, [Default])
As String
SaveSetting(AppName As String, Section As String, Key As String, Setting As
String)
GetAllSettings(AppName As String, Section As String)
che, anche se non li ho ancora provati, sembrano fare proprio lo stesso
lavoro.
La domanda è quindi: perchè usare le API quando esistono questi comandi già
pronti?
Fino a ieri pensavo che le api fossero l'unico metodo adottabile in questo
senso!
--
Ciao,
     Diego
"L'importante non è sapere molte cose
ma sapere dove trovarle" A. Einstein
Il mio sito: 
http://space.tin.it/computer/btqmaz/diego

 ma sapere dove trovarle" A. Einstein
AAARGH !!! PROTESTO !!!
ALBERT MI HA PLAGIATO !!!
( anche _come_ trovarle non e' secondario )


Unisciti alla campagna di Elio su Mai Dire Gol :P
Ciaotutti,
Alessandro

senso!
Bhè, hai visto che non è l'unico metodo per scrivere nel redegit, però
se utilizzi le funzioni di VB queste automaticamente partono dalla
radice:
HKEY_CURRENT_USER\Software\VB and VBA Program Settings
e poi aggiungono quello che vuoi metterere. Dirai...e che mi frega
dove stà la chiave, basta che da qualche parte posso leggere e
scrivere quello che gli passo...okz, ma se per caso vuoi mettere una
chiave in:
hkey_local_machine/sofware/microsoft/windows/currentversion/run
e stabilire che un tuo programma lo vuoi, ad esmepio, far partire
automaticamente all' avvio de pc come fai? Con le API di win :)))
Sul sito comune c'è un esempio semplice che utilizza le api per
scriere, e non solo, nel registro. Io, partendo da quello, mi ci sono
fatto una dll (bastava anche un modulo da inserire nei propri progetti
invece che creare un nuovo oggtto da istanziare ogni volta che svuola
fare qualcosa nel regedit...è che ormai mi ha preso il matto con gli
oggetti, faccio solo quelli :)) anche se poi...vabbè, questo sarà un
altro post) e avere a disposizione i 4 metodi di:
- scrittura nuova chiave
- cancellazione chiave
- scrittura nuova stringa in una chiave
- cancellazione stringa in una chiave
Guardati l' esempio che cè sul sito comune e facile da capire, e
soprattutto funziona :))
Saluti...
Newsgroup: it.comp.lang.visual-basic
Titolo: HELP Differenza di risultati con esecuzione con Breakpoint e non

Differenza di risultati con esecuzione con Breakpoint e non 
Salve!
ho creato 2 form una con un controllo DAO datacontrol (data1) e 1
dbgrid  e un pulsante NUOVO
Facendo click sul pulsante nuovo apro una seconda form (form2.show 1)
con una serie di textbox che mi permettono di inserire i vari dati.
Ho poi un pulsante Salva che mi apre un database e un recordset e mi
esegue il salvataggio.
ho inserito 
form1.data1.Recordset.Requery
e 
form1.dbgrid1.refresh
con l'esecuzione passo passo del programma funziona (uso dei
breakpoint)
senza no
ho pensato di mettere prima del requery una funzione di ritardo
Dim PauseTime, Start, Finish, TotalTime
   PauseTime = 2 ' .5 ' 10   ' Imposta la durata.
   Start = Timer   ' Imposta l'ora di inizio.
   Do While Timer < Start + PauseTime
      DoEvents      ' Passa il controllo ad altri processi.
   Loop
Possibile che devo aspettare 2 secondi (Pause = 2) prima di vedere che
tutto funzioni?
Cosa mi consigliate?
Grazie anticipatamente
PFM
--
To reply please remove from e-mail 'xyz'- Per rispondere togliere 'xyz' dall'indirizzo e-mail.

 wrote in message
news:39f46c5...@news.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Programma Certificazione Qualita' ISO...&References=<6th7k6$r9s$1@nslave1.tin.it>

Ciao mi chiamo Sergio
sono in fase di ultimazione di un programma da me scritto in vb5
riguardante 
appunto la gestione della qualità comprendente l'intera gestione degli
strumenti di misura e relative scadenze, gestione dei documenti prodotti
con relative scadenze,
gestione dell'analisi statistiche dati macchina, operatore, commessa,
disegno. cliente, periodo.Con dati rilevati in progress con pc su ogni
macchina in produzione che controllano la qualità del prodotto lavorato,
rilascio in automatico delle RNC, infine carico macchina con gestione di
commesse aperte (macchine multipallets)
e adeguamento delle tempistiche di consegna in base ai dati acquisiti in
process.
Tutto ciò è espressamente indicato per un'azienda che svolga lovorazioni
meccaniche conto terzi.
Se ti interessa e vuoi saperne di più puoi chiamarmi al 059/250401 oppure
pif...@ats.it
--
Posted from 
ro...@ats.ats.it
 [195.62.227.1]
via Mailgate.ORG Server - 
http://www.mailgate.org





Newsgroup: it.comp.lang.visual-basic
Titolo: Creazione Server

Salve a tutti, questa volta il problema sta nella creazione di un server che
non risponde ai comandi mandati dal client. Ecco il codice:
Private Sub Form_Load()
Winsock1.LocalPort = 189
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    Winsock1.Close
    Winsock1.Accept requestID
    Winsock1.SendData "Connessione stabilita" & vbCrLf
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData dati, vbString
Text1.Text = Text1.Text & dati
If LCase(dati) = "apri" Then
Winsock1.SendData "Ho aperto" & vbCrLf
End If
End Sub
In questo caso, quando dal client scrivo apri, dovrebbe mandare la stringa:
"ho aperto" e invece non manda niente e se ne sta l' come se non fosse
successo niente
Fatemi sapere
Grazie e ciaz
Lord Goliath

Devi attendere qualche millisecondo tra l'accettazione e l'invio di dati
(vale anche per il client)
Prova con un controllo Timer.

Winsock1.LocalPort = 189
189
 tcp udp qft Queued File Transport 
che ci fai ?
ciao, hal

 ha scritto nel messaggio
news:9i01fh$fsqpg$1...@ID-56381.news.dfncis.de...


 ha scritto nel messaggio
news:9hvvqm$q3c$1...@lacerta.tiscalinet.it...


Mi dispiace...non mi viene in mente nient'altro...

 ha scritto nel messaggio
news:9i539h$cjg$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 ed Office 2003.

Salve, qualcuno sa se esistono problemi d'interazione tra applicazione
sviluppate con VB6 ed Office 2003 ?.....
Grazie mille!,
SS.


Utilizzo il VB per interagire con Excel, Access
e Word.
Non ci sono problemi particolari.
La tua applicazione cosa deve fare?
-- 
----------------------------
Mauro Gamberini 

Beh, io ho un bel pň di software sviluppati in VB6 e si integrano
praticamente quasi tutti con Office 2000.
Dato che alcuni clienti iniziano ad avere Office 2003, volevo sapere se
qualcuno ha avuto problemi di dialogo tra i 2.
SS.
"Mauro Gamberini" <maurogsc...@RIMUOVEREaliceposta.it> ha scritto nel
messaggio news:43834076$0$7314$4faf...@reader4.news.tin.it...



Al momento, no.
-- 
----------------------------
Mauro Gamberini

Newsgroup: it.comp.lang.visual-basic
Titolo: Semplice domandina su datagrid

Ciao a Tutti!
Carico un recordset in una datagrid, quando non ci sono record, la griglia
cmq mi visualizza una riga bianca vuota, č possibile toglierla?
Grazie mille a Tutti!
--------------------------------
Inviato via 
http://usenet.libero.it

 cmq mi visualizza una riga bianca vuota, è possibile toglierla?
Credo di no, però puoi renderla invisibile...

 Credo di no, perņ puoi renderla invisibile...
Ti ringrazio x il suggerimento, ma nn si rende invisibile la riga:(


 Ti ringrazio x il suggerimento, ma nn si rende invisibile la riga:(
ok, ho scritto male, intendevo la griglia.

 ok, ho scritto male, intendevo la griglia.
Ciao, la griglia deve visibile, devo poter vedere le colonne anche se non ci
sono record presenti, ma mi sa che per la datagrid non si può fare.


 sono record presenti, ma mi sa che per la datagrid non si può fare.
Una volta c'era una griglia bound-ata che aveva alcune proprietà per dire se
erano ammesse aggiunta, variazione, eliminazione. Forse, giocando con queste
cose, viene adeguata anche l'esposizione.

 cose, viene adeguata anche l'esposizione.
Non conosco questa griglia e cmq devo usare la datagrid, ti ringrazio lo
stesso!


 stesso!
Guarda bene fra le sue proprietą

> Guarda bene fra le sue proprietą
 
Ho viste le proprietą, ho fatto anche vari tentativi, ma secondo me non c'č
quella che mi serve.

Newsgroup: it.comp.lang.visual-basic
Titolo: Arrestare il sistema (Windows 2000)

ho  provato ad usare l'API ExitWindowsEX ma sotto windows2000 sembra non
funzionare come posso risolvere il problema?
GRAZIE
--
Marco Sommella {Skonvols2k}
somme...@inwind.it
skonv...@iol.it

funzionare come posso risolvere il problema?
staccando la spina :-)
scherzi a parte, la documentazione dell' sdk recita come segue, fornendo anche un esempio
in c++, facilmente portabile in vb.
hth, hal
----------------------------------------------------------------------
estratto da msdn:
Windows NT/2000 or later: 
To shut down or restart the system, the calling process must use the 
AdjustTokenPrivileges function to enable the SE_SHUTDOWN_NAME privilege. 
For more information about security privileges, see Privileges. 
 [cut]
Windows NT/2000 or later: The following example enables the SE_SHUTDOWN_NAME privilege and then shuts down the system. 
HANDLE hToken; 
TOKEN_PRIVILEGES tkp; 
 
// Get a token for this process. 
 
if (!OpenProcessToken(GetCurrentProcess(), 
        TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, &hToken)) 
    error("OpenProcessToken"); 
 
// Get the LUID for the shutdown privilege. 
 
LookupPrivilegeValue(NULL, SE_SHUTDOWN_NAME, 
        &tkp.Privileges[0].Luid); 
 
tkp.PrivilegeCount = 1;  // one privilege to set    
tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED; 
 
// Get the shutdown privilege for this process. 
 
AdjustTokenPrivileges(hToken, FALSE, &tkp, 0, 
        (PTOKEN_PRIVILEGES)NULL, 0); 
 
// Cannot test the return value of AdjustTokenPrivileges. 
 
if (GetLastError() != ERROR_SUCCESS) 
    error("AdjustTokenPrivileges"); 
 
// Shut down the system and force all applications to close. 
 
if (!ExitWindowsEx(EWX_SHUTDOWN | EWX_FORCE, 0)) 
    error("ExitWindowsEx"); 

 staccando la spina :-)
d'altra parte è l'unico modo per "fermarlo" :))
degra

 staccando la spina :-)
Potresti postare dischiarazioni API e Costanti? Ne sul visualizzatore API ne
su allapi le ho trovate...
Poi, una cosa che non funziona da un'esempio che ho trovao su allapi č
l'autospegnimento del sistema... su win2000 invece di spegnersi il PC vien
fuori la scritta "E' ora possibile spegnere il computer"...
CiaoZ
SebaMix





Scusami ma non ci capisco una mazza!!!!!!! potresti 
essere + concreto?


 ha scritto nel messaggio
news:000201c0e2de$be804bb0$56b9e18f@computer...


Newsgroup: it.comp.lang.visual-basic
Titolo: Oggetto mancante

Ciao a tutti.
Chi mi sa dire come faccio a reinserire l'oggetto nel menu di VB6 che da
informazioni sul numero di riga corrente quando si è nel codice oppure che
dice le dimensione del form quando si è nella finestra object?
Non so come sia possibile, ma è sparito!
CIAO e GRAZIE

 Non so come sia possibile, ma č sparito!
Avrai aggiunto qualche altra icona per cui quello spazio finale non ci sta
piů. Prova a personalizzare la barra togliendo qualcosa (oppure aumenta la
risoluzione).
Newsgroup: it.comp.lang.visual-basic
Titolo: Cosa strana

Volevo passare un oggetto dentro una dll, e
nella dll usarla con il withevents, ma cosa
strana vb non me la fa fare reclamando problemi
di OLE e roba varia.
Sinceramente non mi era mai servita una cosa
del genere; qualcuno puň spiegarmi il perchč
non si potrebbe fare sta cosa?
Io faccio
public withevents x as object
Ciao Andrea

public withevents x as object
non puoi dichiararlo as Object, ma dargli un tipo ben preciso,
e poi, quel Public mi pare piuttosto brutto :-(
E' una _pessima_ idea esporre cosi' i campi di un oggetto
in una dll.
Dichiaralo Private e scriviti le corrispondenti Public Properties.
In questo modo risolvi tutto:
Private WithEvents m_tb As VB.TextBox
Public Property Set TextBox(ByRef tb As Object)
	If (TypeOf tb Is VB.TextBox) Then
		Set m_tb = tb
	Else
		Err.Raise vbObjectError Or 13, ,"Tipo non corrispondente"
	End If
End Property
-- 
just my five cents, hal

 public withevents x as object
Gli Object non hanno eventi (ovvio, sono un'interfaccia generica).
Prova dichiarando il tipo corretto.
Ciao

Il problema è che non sò che tipo mi arriva, o meglio
a saperlo lo saprei pure, però dovrei fare tanti di quegli
if che ci faccio capodanno.
Peccato.

 if che ci faccio capodanno.
Ma chi ha progettato questa roba? :)
Creati una classe di interfaccia, così la tua var sarà sempre di tipo noto.
Ciao

Veramente nulla di progettato, stavo cercando di immaginarmi come
utilizzare una classe scritta da un tizio tedesco per il supporto dell
undo e del redo. il tizio perň scolpisce a codice un oggetto di
tipo textbox e uno richtextbox.
Io di contro, devo adattarla sui miei ocx. Ora il riadattamento lo
volevo fare utilizzando le classi esternamente al mio ocx, ma tanto
ho visto che poi si impippa con i keycode dell'evento keypress e
keydown, nel senso che intercettandoli anche io ... alla fine diventa
un bordello colossale.
Ho importato le classi dentro l'ocx, l'ho implementato, fatto  un
paio di modifiche e ora funziona alla grande.
Vorrei invece capire come il tizio č arrivato a concepire la cosa.
Cioč, la cosa mi pone il terribile dubbio. Sono io che non sono
capace a programmare o esistono veramente i geni????
Ciao Andrea

Vorrei invece capire come il tizio è arrivato a concepire la cosa.
Ora sono curioso: come l' ha concepita?
-- 
ciao, hal

 che faccia)?
Io mi aspettavo di poter usare la classe all'esterno dell'ocx, così da non
doverla
implementare n volte per ogni controllo.
Infatti - ed è una cosa che vorrei "correggere" - le classi devono essere
istanziate per ogni textbox o richtextbox  a cui vuoi aggiungere il supporto
dell'uno e del redo. La cosa va bene per un editor di testi, ma tipo
in un banale programma a maschere, istanziare 20 o 30 classi dello stesso
tipo
incomincia a diventare pesante. Allora vorrei fare una classe generale a cui
arriva "che ho fatto" e "dove l'ho fatto" ... così che con l'undo e il redo
agisco su tutta la maschera e non solo sul singolo controllo.
Ciao Andrea
Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda idiota su Menu

Ciao,
premetto che non ho mai programmato in VB; sto modificando un sw
scritto in VB6; ho aggiunto la barrà dei menu;
Contiene solo un menu che si chiama "Informazioni"
Questo ha due sottomenu (Informazioni su questo programma" e "Guida")
Per quanto riguarda "informazioni su questo programma" ho fatto in
modo che quando si clicca si apre un altro form...ok!
Per "Guida" vorrei fare in modo che quando ci clicco appaia la guida
del sw (file .hlp di win)...ma come faccio?Devo creare un evento
mousedown?
Ciao!
 
-- 
I'm using an evaluation license of nemo since 70 days.
You should really try it!
http://www.malcom-mac.com/nemo

 Ciao!
Se ci clik sopra VB ti crea una sub vuota: MenuClick()
-- 
Greg 

  Se ci clik sopra VB ti crea una sub vuota: MenuClick()
si infatti...e termina con End Sub ovviamente;
qua dentro devo mettere l'evento mousedown giusto?
Come? Anche link va benissimo :-)



Nell'evento Click ci mett il codice per aprire il file della guida:
Private Sub NomeMenu_Click()
    Open....
End Sub
Ciao, Vincenzo
PS: Leggi un manuale e/o esempi su Google prima di iniziare a scrivere 
codice VB, perchč altrimenti potresti perdere un sacco di tempo anche per 
fare le cose piů semplici.