mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Aprire file creati in visual basic

Ho un problema :
se ad esempio creo un programma che memorizza in un file una sequenza di
numeri, e a questo file do una estenzione a piacere (.xyz) ! ora voglio che
cliccando 2 volte sul file .xyz si apra automaticamente il programma da me
fatto e vengano visualizzati in una etichetta i numeri! Graziee

 ha scritto nel messaggio
news:meX48.15332$6e5.5...@twister2.libero.it...

Eccoti un'esempio....
Studialo
Declare Function RegCreateKey& Lib "advapi32.DLL" Alias "RegCreateKeyA _
" (ByVal hKey&, ByVal lpszSubKey$, lphKey&)
Declare Function RegSetValue& Lib "advapi32.DLL" Alias "RegSetValueA" _
(ByVal hKey&, ByVal lpszSubKey$, ByVal fdwType&, ByVal lpszValue$, _
ByVal dwLength&)
' Return codes from Registration functions.
Public Const ERROR_SUCCESS = 0&
Public Const ERROR_BADDB = 1&
Public Const ERROR_BADKEY = 2&
Public Const ERROR_CANTOPEN = 3&
Public Const ERROR_CANTREAD = 4&
Public Const ERROR_CANTWRITE = 5&
Public Const ERROR_OUTOFMEMORY = 6&
Public Const ERROR_INVALID_PARAMETER = 7&
Public Const ERROR_ACCESS_DENIED = 8&
Global Const HKEY_CLASSES_ROOT = &H80000000
Public Const MAX_PATH = 256&
Public Const REG_SZ = 1
Private Sub Command1_Click()
Dim sKeyName As String 'Holds Key Name in registry.
Dim sKeyValue As String 'Holds Key Value in registry.
Dim ret& 'Holds error status if any from API calls.
Dim lphKey& 'Holds created key handle from RegCreateKey.
'This creates a Root entry called "MyApp".
sKeyName = "MyApp" '*
sKeyValue = "My Application" '*
ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)
'This creates a Root entry called .BAR associated with "MyApp".
sKeyName = ".bar" '*
sKeyValue = "MyApp" '*
ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)
'This sets the command line for "MyApp".
sKeyName = "MyApp" '*
sKeyValue = "notepad.exe %1" '*
ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
ret& = RegSetValue&(lphKey&, "shell\open\command", REG_SZ, sKeyValue,
MAX_PATH)
End Sub
Ciao
--
Timothy Redaelli

 Studialo
Se invece voglio associare ad un tipo di file un icona specifica che
riguarda il mio programma (naturalmente deve farlo l'istallazione) come
faccio??
Grazias, Emiliano.
Newsgroup: it.comp.lang.visual-basic
Titolo: Sono disperato!!! Winsock, Filelistbox e Dirlistbox

Ciao a tutta la ML,
ragazzi, mi occorre il vostro aiuto.
Ho creato un programma nella quale c'è una dirlistbox e una filelistbox...e
fin qui ci siamo, poi ho inserito un controllo winsock, che sfrutta il
protocollo TCP. Ho fatto i modo che venga stabilita una connessione con un
pc della mia rete LAN.
Adesso voglio che, se io mi collego al computer X, automaticamente, nelle
filelist e dirlistbox presenti nel programma, vengano mostrati i file
presenti nel computer X.
Prendiamo in considerazione questi parametri del controllo winsock:
IP del computer X: 192.168.1.2
Porta locale: 1070
porta remota: 1070
ok?
Ringrazio in anticipo chiunque mi aiuterà
GRAZIE
ciao

 wrote in message
news:y6PR5.89811$BF.32...@news.infostrada.it...

Non sono pratico di filelistbox e dirlistbox, ma non credo che funzionino
con i percorsi di rete, a meno che non mappi le risorse come dischi.
Ciao
Aldo

 con i percorsi di rete, a meno che non mappi le risorse come dischi.
si', vedono solo i dischi locali. per gli altri:
www.mvps.org/ccrp
 -> filetreeview.ocx

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

Esiste un comando per fare sě che il risultato di un'operazione venga
sempre approssimato per eccesso?
	Se si vi prego ditemelo...  mi sono intabanato.....

	Se si vi prego ditemelo...  mi sono intabanato.....
??? Che vuol dire "intabanando"???? :-))
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Possibile ke nessuno è in grado di risolvermelo?

Vi ripropongo il mio problema:
la mia situazione è la seguente:
-database access
-tabella "entrate" con i seguenti campi: data, tipo, importo
la mia difficoltà è la seguente:
se eseguo la seguente query sulla tabella:
select * from entrate where data between #" & Format(per1.Value, "mm / dd /
yyyy") & "# and #" & Format(per2.Value, "mm / dd / yyyy") & "# order by data
il tutto va bene. In effetti io tramite quella query mi seleziono un periodo
che va da per1.value e per2.value.
Ora io quello che vedo a video dovrei stamparlo tramite un report creato con
Crystal Report. Praticamente dovrei eseguire la stessa query sul database
con il report creato, suppongo che la query dovrò eseguirla tramite la
funzione SelectionFormula dell'oggetto CrystalReport, ma cosa ci scrivo?
Sono arrivato a questo:
report.selectionformula= "{entrtate.data}=" ...... e poi? come gli dico di
selezionarmi un periodo?
Oppure non devo utilizzare selectionformula ma qualche altro metodo?
Vi ringrazio anticipatamente.


wrote:


 ha scritto nel messaggio
news:gi0qnu0pg5h3ac04p...@4ax.com...


 ha scritto nel messaggio
news:gx8f9.7482$L12.7...@news.edisontel.com...


1° metodo molto stupido ma funzionante (l'ho funzionante da 5 anni)
In VB
frmPrinter.CrystalReport1.Formulas(0) = "giorno='" & txtDalGiorno.Text & "'"
frmPrinter.CrystalReport1.Formulas(1) = "mese='" & txtDalMese.Text & "'"
frmPrinter.CrystalReport1.Formulas(2) = "anno='" & txtDalAnno.Text & "'"
frmPrinter.CrystalReport1.Formulas(3) = "giorno1='" & txtAlGiorno.Text & "'"
frmPrinter.CrystalReport1.Formulas(4) = "mese1='" & txtAlMese.Text & "'"
frmPrinter.CrystalReport1.Formulas(5) = "anno1='" & txtAlAnno.Text & "'"
In Crystal
Crei le rispettive formule e poi in selezione record inserisci la formula:
({RicevuteDoc.data_doc}>=Date (ToNumber ({@anno}),ToNumber ({@mese}) 
,ToNumber ({@giorno})))and({RicevuteDoc.data_doc}<=Date (ToNumber 
({@anno1}),ToNumber ({@mese1}) ,ToNumber ({@giorno1})))
2° metodo più razionale
in VB
.SelectionFormula = inserisci la query che usi in VB e sostituisci 
beetween con >< tipo la precedente
data>data1 and data<data2 (attenzione ai formati!
In Cristal
nulla
Ciao Piergiorgio


Caro Vincenzo,
la soluzione è semplice (basta saperla!):
report.selectionformula = "{entrate.data} in Date(aaaa, mm, gg) to
Date(aaaa, mm, gg)"
Ovviamente devi sostituire a "aaaa", "mm" e "gg" i valori di data iniziale e
finale.
--
Ciao!

Newsgroup: it.comp.lang.visual-basic
Titolo: Cercare la posizione di un byte

Avendo una matrice di byte (molto grande) ;
esiste un modo diretto per trovare la posizione del contenuto
di un byte, senza loopare.
Un pò come InStr per intendere.
ovviamente anche con API.

 Un pò come InStr per intendere.
InstrB
Bye, G.
Newsgroup: it.comp.lang.visual-basic
Titolo: Timeout SQL?

Buongiorno,
utilizzo un'Applicazione in VB6.0 ed eseguo la seguente query:
DELETE FROM TABELLA1
INSERT INTO TABELLA1 SELECT * FROM TABELLA2
Il risultato e':
Errore: -
2147217871
 - Timeout scaduto.
Se eseguo la stessa operazione da Query Analizer funziona tutto
correttamente nel senso che i records in "TABELLA1" vengono cancellati
e poi il contenuto di TABELLA2 viene inserito in TABELLA1
che ha la stessa struttura ed e' senza chiavi.
Grazie 1000 a chi puo' darmi un aiuto.
Lucilla.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 che ha la stessa struttura ed e' senza chiavi.
Il Query Analyzer apre una connessione verso Sql-Server (immagino si stia 
parlando di questo, non lo specifichi...), con parametri di connessione (fra 
cui il timeout) non necessariamente identici a quelli che tu puoi 
specificare all'apertura della tua connessione ADO (anche qui, non 
specifichi cosa utilizzi, ma immagino che tu utilizzi Ado...).
Puoi quindi intervenire inserendo un ConnectTimeout maggiore all'interno 
della connectionstring (uno qualunque dei wizard che generano la 
connectionstring ti espone anche le proprietą avanzate).
Ancora maglio, esiste una proprietąa Timeout (o qualcosa di simile), 
nell'Adodb.Command.
Lato Sql-Server, puoi invece intervenire in tre modi:
- Se non ti serve mantenere il Seed di un eventuale Identity su Tabella1, 
puoi usare il TRUNCATE anzichč il DELETE.
- Se la tabella deve esistere solo limitatamente ad una connessione, puoi 
usare tabelle #, che sono distrutte automaticamente e possono essere 
distrutte e ricreate in un attimo.
- Anzichč un Truncate o un Delete, puoi anche fare un DROP e poi un Select 
Into
Ciao
Alberto
-- 
E tutto mi sembrava andasse bene...
Newsgroup: it.comp.lang.visual-basic
Titolo: Uso ListView

Ciao a tutti,
sto incominciando ad usare il seguente oggetto e vorrei qualche parere in
merito:
Per inizializzare faccio:
*********************************************************
    Dim xCol As ColumnHeader
    Dim xCols As ColumnHeaders
 
    lvwLotti.ListItems.Clear
    lvwLotti.ColumnHeaders.Clear
 
    Set xCols = lvwLotti.ColumnHeaders
 
    Set xCol = xCols.Add(1, "fLotto", "Lotto", 1200, lvwColumnLeft)
    Set xCol = xCols.Add(2, "fEsploso", "Esploso", 1200, lvwColumnRight)
    Set xCol = xCols.Add(3, "fDaOrdinare", "DaOrdinare", 1200,
lvwColumnRight)
    Set xCol = xCols.Add(4, "fQtaAssegnata", "QtaAssegnata", 1200,
lvwColumnRight)
*********************************************************
Per popolarla ho letto che SubItem è una notazione vecchia, ma negli esempi
trovo sempre questa:
*********************************************************
Dim xItem As ListItem
  Do Until Rs.EOF
    With lvwLotti
      Set xItem = .ListItems.Add(, PREFISSO & myKey, Rs("LOTTO"))
      xItem.ListSubItems.Add 1, , Rs("ESPLOSO")
      xItem.ListSubItems.Add 2, , Rs("DIFF")
      xItem.ListSubItems.Add 3, , ""
 
      'xItem.SubItems(1) = Rs("ESPLOSO")
      'xItem.SubItems(2) =  Rs("DIFF")
      'xItem.SubItems(3) = ""
    End With
    Rs.MoveNext
  Loop
*********************************************************
Quale utilizzare dei due sistemi?
E' meglio dichiarare le variabili come xItem,xCol e poi usare la Set= add?
Grazie a tutti
-- 
DBMS Firebird
VB6 + Ado

"Andrea [Work]" <nos...@invalid.invalid> ha scritto nel messaggio 
news:1asts1lwwxedt.d2k8jwoat8y7$.dlg@40tude.net...

Sempre che tu stia usando VB6:
Io faccio di solito così (in pratica come dici tu)
dim li as listitem
'apro il recordset rs
do until rs.eof
set li = mialistview.listitems.add(,,,,)
li.text = "" & rs("AAA").value
li.subitems(1)="" & rs("BBB").value
..........
rs.movenext
loop
La notazione sarà pure vecchia ma viaggia veloce e sicura...
Ciao
IAK 

 La notazione sarà pure vecchia ma viaggia veloce e sicura...
Con la ListSubItems. ho il vantaggio di poter applicare formati alle celle,
anche se magari si fa anche nel vecchio modo.
Piuttosto ho sostituito:
    xCols.Add 1, "fLotto", "Lotto", 1200, lvwColumnLeft
    xCols.Add 2, "fDataScadLotto", "DataScad", 1100, lvwColumnLeft
    xCols.Add 3, "fDataCreazLotto", "DataCreaz", 1100, lvwColumnLeft
    xCols.Add 4, "fEsploso", "Esploso", 1200, lvwColumnRight
    xCols.Add 5, "fDaOrdinare", "DaOrdinare", 1200, lvwColumnRight
    xCols.Add 6, "fQtaAssegnata", "QtaAssegnata", 1200, lvwColumnRight
 
'Set xCol = xCols.Add(1, "fLotto", "Lotto", 1200, lvwColumnLeft)
'Set xCol = xCols.Add(2, "fDataScadLotto", "DataScad", 1100, lvwColumnLeft)
'Set xCol = xCols.Add(3, "fDataCreazLotto", "DataCreaz", 1100,
lvwColumnLeft)
'Set xCol = xCols.Add(4, "fEsploso", "Esploso", 1200, lvwColumnRight)
'Set xCol = xCols.Add(5, "fDaOrdinare", "DaOrdinare", 1200, lvwColumnRight)
'Set xCol = xCols.Add(6, "fQtaAssegnata", "QtaAssegnata", 1200,
lvwColumnRight)
In pratica ho tolto il Set = , in questo consenso non ne vedo l'utilità.

Newsgroup: it.comp.lang.visual-basic
Titolo: Leggere e scrivere il Registry !

Ho la necessita di andare a fare delle scritture nel reg.: myFile.reg
1) potrei unire con .. shell("regedit.exe"...)  ...peccato che non trovo il
modo di lanciare da codice anche la conferma alla richiesta di conferma
unione Key al reg.
2) tramite api avendo disponibili le informazioni da unire in una posizione
diversa ma nota (NB la struttura dell'albero delle chiavi da inserire è la
stessa)
Qualcuno ha per caso qualche idea o consiglio? Grazie.

 wrote in message 8k7i8n$fe2$1...@nslave2.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Software per design schema database / diagrammi E-R ?

Buongiorno a tutti
posto in cross-post perche' l'argomento mi sembra di interesse comune per i
due newsgroups (VB e Access).
Mi interesserebbe provare qualche software per il design di strutture
database, in particolare mi interessano queste features:
- disegno di diagrammi E-R
- costruzione automatica delle stringhe SQL DDL per la creazione/modifica
dello schema dati
- costruzione automatica del database (Access o altri) dal diagramma E-R
precedentemente disegnato
- reverse-engineering di strutture da database (Access o altri) esistenti a
diagrammi E-R.
- (per chi conosce Rational Rose): eventuale interazione con Rational Rose
(strumento di OOA/OOD basato su standard UML).
So che esiste ER-Win (ne avevo una vecchia versione a 16bit), ma vorrei
vederne/provarne anche altri (sia freeware/shareware che commerciali).
TIA
--
Roal Zanazzi
z...@iol.it

Potresti provare Oracle Designer2000 (ora alla versione 2.2). Credo che
Oracle disponga di una versione test.  Fa tutto quello che hai chiesto (ma
anche molto di piú tipo modellazione dei processi, Dataflow, Network dei
moduli, gestione del Database con generazione relativo DDL). Prevede
connessioni ODBC e gestisce ANSI.
Per quanto riguarda UML la Rational Rose é un partner Oracle e stá
sviluppando qualcosa appositamente che comunque credo verrá compresa in una
linea di prodotti diversa da DES2k (ma é solo una mia supposizione).
Il DES2k ha una parte per per la gestione degli oggetti (solo su Oracle 8 -
ma non UML)  e puó generare il codice in C++ (oltre che in VB e nei tools
proprietari)
Dopo questa pubblicitá (per la quale giuro che non mi viene nulla in tasca)
ti saluto.
P.S:
Chiaramente molto dipende da che database usi

...


Ciao,
io ho usato EDGE-Diagrammer della Pacestar  (
http://www.pacestar.com
)
il programma è shareware e io mi sono trovato molto bene.
Nome del file: ed220bu.exe
Dimensione: 1.04 Mb
Prova anche a dare un occhio a questo sito 
http://voyager.co.nz/~wizardry
.
Da quanto mi ricordo contiene molto materiale utile per programmatori Access ma
che possono risultare utili anche a programmatori VB.
Infine se vuoi solo stampare la finestra delle relazioni di Access esiste un
programmino freeware (?) che la stampa di nome Microsoft Access 97 Print
Relationships Wizard.
Nome del file: prels80.exe
Dimensione: 574 Kb.
A presto,
Corrado Paoletti
ICQ 7044062


Yes, I know, infatti lo uso gia', ma mi serve un po' di piu' :-)
grazie per le altre info, guardero' appena posso.
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: CODICI A BARRE

Ho urgente bisogno di creare un'applicazione che stampi codici a barre, chi
sa darmi delle dritte. Si trovano fonts o OCX gratuiti, oppure e semplice
fare tutto da soli ???
                    Grazie.

Ciao,

Trovi molti font free.
Prova sui motori di ricerca.
    Paolo



Dai un'occhiata al Sito Comune di questo Newsgroup...
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

 fare tutto da soli ???
Gli altri ti hanno dato soluzioni interessanti, ma la vera soluzione e' questa:
http://members.tripod.de/AJSchmidt/index.html
E' un componete Delphi freeware con completo di sorgenti. Non l'ho provato,
ma sembra completo e facile da usare.
Ciao...
Claudio Driussi
http://www.swit.net/csoft
mailto:
cldr...@swit.net

 wrote in message
3758D104...@iname.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: URL in Visual Basic?

Ciao a tutti... è possibile fare un collegamento url? tipo un pulsante che
se viene premuto si apre il browser e carica un sito impostato?
se si in che modo?
grazie 1000

 se si in che modo?
Con l'API ShellExecute.
Ciao!
Esteban

Se non mastichi molto VB ti consiglio questo controllo utente:
http://www.vbsimple.net/userctls/usrctl_02.htm
bye

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Come sapere se il programma è attivo

Salve, altro interrogativo...
come faccio a sapere se il mio programma č gią attivo?
--
Ramses
http://evilzone.tsx.org
ICQto: 39860665
mailto: 
ram...@freemail.it
"God is just a statistic"

 wrote in message
985bfg$546$1...@pegasus.tiscalinet.it...


 > come faccio a sapere se il mio programma è già attivo?


> app.previstance=true/false
Grazie ad entrambi.


Newsgroup: it.comp.lang.visual-basic
Titolo: Copie vecchie di di VB3 - si puo' ?

Ho saputo che Visual Basic 3.0 non è più supportato da Microsoft.
Ma se io volessi usarlo (legalmente) come posso fare ?
Posso scopiazzarlo e usarlo lo stesso (visto che non è piu' supportato il
copiarlo non dovrebbe causare un "mancato guadagno" alla Microsoft) ?
E' il reverse engineering è ammesso su questo prodotto (semmai fosse legale)
?
Grazie per tutto,
   Enrico.

 wrote in message
8ectev$q43$1...@nslave1.tin.it...


 E' il reverse engineering è ammesso su questo prodotto (semmai fosse
legale)?
Vedi sopra e, soprattutto, piu' sopra.
--
Ciao.
Maurizio

 version."
si', in sostanza e' quello che mi hanno detto in ms per office. io avendo 40
macchine col 97 li' volevo stare per le altre, e acquisendo le licenze 2000
si e' in regola.
ovviamente non credo proprio valga il reciproco :)
e -- nb -- gia' questa e' una conquista. con word dos mi sembra proprio che
si fosse obbligati a usare la versione di cui si prendeva la licenza....

Newsgroup: it.comp.lang.visual-basic
Titolo: [.NET] problemi con RemoveHandler

Sto sul generico, chè i dettagli sono farraginosi a spiegarsi. Mi
basta sapere se qualcuno ha notato qualcosa di strano al riguardo.
Sto lavorando con una matrice di pulsanti, e per ogni controllo
gestisco click Up e Down. Faccio AddHandler e RemoveHandler in
continuazione a seconda del mio contesto.
MA... i Remove se piazzati in un posto funzionano, dentro un'altra
subroutine NO!!! E non ci sono _apparentemente_ problemi di visibilità
o che!
Idee? 
Grazie, G.

 ..............
OK, ritiro tutto. Ho dei problemi a individuare il problema :) 
E il debugger mi aiuta poco.
P.S. Devo contare fino a 20 (e non fino a 10) prima di postare.
G.
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con la grafica in VB5 aiuto

Premetto che non sono un esperto di VB.Proprio per imparare mi sto
esercitando con piccoli programmi come text editor, cloni di paint
ecc. Proprio in quest'ultimo programma ho trovato una difficoltà che
non capisco e non riesco a superare. Si tratta di un semplice
programma basato sugli eventi del mouse che dopo la pressione di un
pulsante disegna in una picturebox delle linee o dei cerchi. Per
ottenere la "permanenza" ho utilizzato load e savepicture, con
Autoredraw attivata. Mentre per le linee tutto funziona bene con i
cerchi mi trovo nella ridicola situazione che il programma li disegna
oltre la picturebox o addirittura oltre la  finestra stessa! Il che è
strano visto che le istruzioni sono del tipo Picture1.Circle ... no?
Comunque allego di seguito il codice delle varie procedure, per favore
aiutatemi.
Grazie mille.
Golconda.
Dim XP, YP, mUp As Integer
 Dim comando As Integer
 
 
Private Sub Command1_Click()
comando = 1
End Sub
Private Sub Command5_Click()
comando = 2
End Sub
Private Sub Form_Load()
Picture1.Scale (-320, 100)-(320, -100)
SavePicture Picture1.Image, "temp00.bmp"
End Sub
Private Sub Form_Unload(Cancel As Integer)
Kill "temp00.bmp" 'cancella il file temporaneo
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X
As Single, Y As Single)
XP = X 'queste due righe memorizzano le coordinate
YP = Y       'in cui è stato cliccato col mouse
mUp = 0
Picture1.Picture = LoadPicture("temp00.bmp")
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X
As Single, Y As Single)
If mUp = 1 Then Exit Sub
Picture1.Cls
Select Case comando
Case Is = 1
Picture1.Cls
Picture1.Line (XP, YP)-(X, Y)
Case Is = 2
Picture1.Cls
raggio = Sqr(((X - XP) ^ 2) + ((Y - YP) ^ 2))
Picture1.Circle (X, Y), 50
End Select
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As
Single, Y As Single)
mUp = 1 ' questo contatore segnala che è stato disegnato
        ' qualcosa alla procedure MouseMove cosi da non
        ' farlo cancellare immediatamente
 
Select Case comando
Case Is = 1
Picture1.Line (XP, YP)-(X, Y)
Case Is = 2
'raggio = Sqr(((X - XP) ^ 2) + ((Y - YP) ^ 2))
Picture1.Circle (X, Y), 50
End Select
SavePicture Picture1.Image, "temp00.bmp"  'salva su un file
                        'l'ultima immagine realizzata
End Sub

Non ho capito dove ti vanno a finire i cerchi,
Ad ogni modo,  invece di salvare la bitmap, salva solo le definizioni degli
oggetti che usi e ridisegnali
Ad esempio potresti salvare su un file di testo e poi rileggerlo, tipo:
1,x1,y1,x2,y2 ' ID (1=Linea) , 1° e 2° coordinata
2,x,y1,raggio  ' ID (2=Cerchio), x,y , raggio
Rispetto al salvataggio del bitmap, che a seconda delle impostazioni video
potrebbe diventare anche alcuni MB, qui usi pochi bytes
In qesto modo fai esperienza sui primi rudimenti di grafica vettoriale.
Ciao
Fabio
Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto a duracervice cercasi ( problema con TextBox )

mandatemi pure a quel paese, so che me lo merito....
nei giorni scorsi ho gia' postato alcuni problemi e mi e' sempre stato
risposto, molto gentilmente.
Il fatto e' che ogni volta si complicava (x me) enormemente tutto il
discorso, e la matassa mentale si ingrandiva a vista d' occhio.
se, ad es, ho 3 TextBox, (in realta' sono + di 50) come faccio a:
passare da una alla successiva con il tasto INVIO?
passare da una alla successiva/precedente con i tasti FRECCIA
GIU/SU/DESTRA/SINISTRA?
quando passo da una all' altra, (con i tasti FRECCIA, INVIO, TAB)
selezionare l' eventuale testo presente (si usa SELTEXT, giusto?)
prontamente per l' eventuale modifica?
questi, certamente, ai piu' sembreranno problemi ridicoli.
magari, se presi singolarmente, potrei tentare di risolverli, di certo tutti
assieme e' un casino troppo grande.
meno male che con VB6 non ce campo xche' senno.... pane e acqua sarebbe il
massimo che potrei permettermi!
se qualcuno puo' caritatevolmente aiutarmi.... un grazie fin da ora.

se, ad es, ho 3 TextBox, (in realta' sono + di 50) come faccio a:
Se sono piu' di 50, perche' non usare una griglia?
-- 
ciao,
hal

 wrote in message
news:7toVb.22304$
Mt6.7...@twister2.libero.it
Gestisci gli eventi KeyPress delle griglie; usa il metodo SetFocus della
textbox cui vuoi passare il contorllo.
Oppure, come ti si consiglia, usa una griglia...
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

selezionare l' eventuale testo presente (si usa SELTEXT, giusto?)
Private Sub Text1_GotFocus(Index As Integer)
    With Text1.Item(Index)
        .SelStart = 0
        .SelLength = Len(.Text)
    End With
End Sub
-- 
ciao,
hal

 se qualcuno puo' caritatevolmente aiutarmi.... un grazie fin da ora.
Però ricorda di non postare più volte la stessa domanda.
A quella del selLenght avevo già risposto alcuni Thread fa.
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

 A quella del selLenght avevo già risposto alcuni Thread fa.
egregio Nicola,
hai ragione x quello che riguarda SelText;
ma il fatto e' che, essendo inesperto di Form e compagnia bella, quando ho
visto la riposta e ho pensato a tutto il tribolo che ho fatto
precedentemente....credimi, mi sono cadute le braghe!
di nuovo un grazie a tutti coloro che hanno la pazienza de Giobbe.

 di nuovo un grazie a tutti coloro che hanno la pazienza de Giobbe.
prego


Newsgroup: it.comp.lang.visual-basic
Titolo: API di Windows

Salve a tutti, ho bisogno di un consiglio; sapete dove posso trovare un
OTTIMO libro in italiano che spiega BENISSIMO le funzioni API di Windows?
Per OTTIMO, intendo che sia completo.
Grazie, Vincenzo



...



Confermo !
Alessandro B.

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

Scusa ma la dichiarazione dell'ape mette un long dove tu metti una
stringa come faccio....
Grazie
E-Mail: 
lig...@alo.it
Web: 
http://www3.pelagus.it/ligasoft
ICQ: 11362849

...

Di quale API stai parlando?
Chiedimi pure a 
zntf...@tin.it
 altrimenti nel NG magari non vedi il msg.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] versione del RichTestBox

salve mi sono "ritrovato" sul pc dove sviluppo la RichTextBox ver: 6.00.8169
in lingua Inglese (!!).. dove posso trovare la versione Italiana?
grazie a tutti!



Newsgroup: it.comp.lang.visual-basic
Titolo: [ASP] Treeview dinamico

Buondì,
    non sono riuscito, da nessuna parte, a trovare un solo esempio su come 
creare un treeview. Mi basta anche uno statico che mi modifico pian pianino 
ma non ne trovo.. boh ma a nessuno è mai venuto in mente di crearne uno?
chi mi posta un esempio?
Grazie ;o( 

 crearne uno?
Cercando in google "asp treeview" ne trovo solo 3 milioni.
Tanto per gradire, il primo link è una collezione di treeview asp, il 
secondo è 
asp.net
, il terzo asp, gratuiti, completi di sorgente...
sei sicuro di aver cercato per più di 3 secondi?
Ciao

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

primo messaggio

'A fare un salto alla moviola.....PROVA'
Cit. Gatti vicolo miracoli
Newsgroup: it.comp.lang.visual-basic
Titolo: Classi, implements e property..

Ciao a tutti
sono in fase di refactoring di un applicativo. 
(uso VB6 enterprise SP6)
ho intenzione di usare oggetti di tipo Collection al posto di array
e voglio anche utilizzare una interfaccia generica che vari oggetti 
implementeranno.
ecco un po di pseudo codice per chiarire lo scenario
classe mioDB
    	A as collection
    	B as collection
 
    	public sub Print
    	dim u as iDati
    	    	for each u in A
    	    	   u.print    	
    	    	next
    	     	for each u in B
    	    	   u.print    	
    	    	next   		    	
    	end sub
interfaccia iDati
    	private mvarID as long
    	public sub Print
    	public property Get ID as long
    	public property Let ID
classe aDati
implements iDati
classe bDati
implements iDati
ok questo per  dare un'idea di massima di quello che vorrei fare.
e fino a qui nessunissimo problema.
Tramite il semplice codice:
dim ad as new aDati
dim bd as new bDati
miodb.a.add ad
miodb.b.add bd
aggiungo i miei oggetti alle relative collection, e applico il metodo 
"print" di mioDB senza problemi.
ecco ora il problema.. :)
non riesco a scrivere/leggere la property ID
infatti:
dim ad as new aDati
ad.ID -> da errore il compilatore
ad.iDati_ID -> da errore il compilatore
ad.iDati.ID
 -> ilc compilatore non da errori ma VB6 va in crash (la 
memorua non poteva essere read...)
dove sto sbagliando?
Dav

 dove sto sbagliando?
che io sappia, devi scrivere il codice per le property get e set id
all'interno della classe.
implementare l'interfaccia significa solo promettere che c'č quella
proprietą, non che la erediti.
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 dove sto sbagliando?
Il membro ID è definito su un'interfaccia secondaria (IDati), per cui devi
utilizzare quella quando definisci la variabile oggetto:
dim ad as IDati
set ad=new aDati
ad.ID = ...
Bye
Raf

 
ad.iDati.ID
 ->
Qui non è chiaro cosa fai, cosa vuoi fare e cosa non funziona.
Prova a dare un occhio al messaggio di qualche giorno fa "Ereditarietà in 
Visual Basic 5/6"
Ciao 

 devi utilizzare quella quando definisci la variabile oggetto:
eh ma qui mi sorge un dubbio/problema :)
ovviamente la mia classe aDati implementa si iDati ma la espande con 
nuove property, che io voglio gestire..
quindi quando faccio:
dim c as collection
dim as as aDati
c.add ad
voglio impostare sia le property di ad derivate dalla interfaccia iDati 
che quelle specifiche di aDati
in modo che in c.item () ci siano degli oggetti aDati completi
non è possibile questo?

 in Visual Basic 5/6"
grazie mi era sfuggito (č ora che mi decida ad andare  alla revisione 
:)...)
vado leggo e spero capisco :)
D

 ha scritto nel messaggio
news:Xns96147F3D...@130.133.1.4...

Si ma non come prescriverebbe l'ereditarietà OOP, bensì con dei "trucchi".
Leggiti il thread di qualche giorno fa, così come suggerito da Zanna.
Poi ti segnalo anche questo articolo:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnvbdev00/html/vb00d20.asp
Bye
Raf
Newsgroup: it.comp.lang.visual-basic
Titolo: VB& + Visio 2000 HELP

Salve a tutti,
scusate se sono un po' OT, ma dopo ore di ricerca nella kb di microsoft,
sono un po' frustrato...siete la mia ultima risorsa. Da quando ho installato
Visio 2000 sulla mia macchina (win2000) VB6 non ne vuole piu' sapere di
funzionare (crea il registro degli errori appena parte e mi ritorna un
errore di access violation) ed il bello e' che se disinstallo visio tutto
torna ok. E' gia' capitato a qualcuno ? Qualche suggerimento (oltre a
disinstallare visio definitivamente....)?
Ciao e Grazie
--------------------------------
Inviato via 
http://usenet.libero.it

ho sentito dire che dovresti disabilitare dall'avvio di VB il caricamento di
Visio......
ma il bello č che tu non riesci nemmeno a caricare vb.......
purtroppo non ti so dire nulla di piů!
good coding!!!
--
Damiani Liborio Igor
ig...@igordamiani.it
 - 
soft...@igordamiani.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262

 ha scritto nel messaggio
news:213Z203Z153Z55Y...@usenet.libero.it...


 funzionare
http://groups.google.it/groups?q=visio+group:it.comp.lang.visual-basic&hl=it
&lr=&ie=UTF-8&sa=G&scoring=d
Il più recente è un post di ieri...

Grazie a tutti
nel frattempo ero riuscito a risolverlo : Ho aperto vb senza caricare nulla,
Gestione aggiunte e ho rimosso l'add-in di visio. Ora VB parte !!!
Ma ora scatta la polemica : a parte il fatto (mea culpa) di non avere fatto
una ricerca sul ng (pensavo che ricercandolo sul sito microsoft sarei
riuscito a risolvere il problema), ma visio e vb non sono dello stesso
produttore ? Ma che fanno prima di rilasciare i prodotti, li Testa(o)no ?
Mha! Comunque, grazie ancora a tutti


 produttore ? Ma che fanno prima di rilasciare i prodotti, li Testa(o)no ?
No, si fanno un quinto di sangiovese in scatola.
Più volte al giorno. (Lupo, che palle! tiè)
Newsgroup: it.comp.lang.visual-basic
Titolo: Compattare database

Salve a tutti,
come faccio da VB4 Pro a compattare un database di cui conosco il path
completo?
--
Bye Attilio.
Attilio Gelosa
via Garibaldi, 277
20033 Desio -MI-
E-mail: 
gel...@logical.it
Official Symantec products beta tester.

...


DBEngine.Compactdatabase "NomeDataBasedaCompattare", "NuovoDb", ,
,"Strigadiconnessione".
Alcune osservazioni: Nel caso in cui un Db sia protetto da password sarà
necessario fornire la stringa di connessione ";PWD=miapassword".
Se la password viene passata internamente al programma fare attenzione che
tutti i Db compattati saranno protetti da quella password anche se prima ne
erano privi.
Personalmente ho usato questa procedura (l'ho ridotta all'osso!!!)
Private Sub Command1_Click()
Dim  pwderr As Integer, miapwd As String
On Error GoTo ErrCompatta
     pwderr = 0
     miapwd = ""
     DBEngine.CompactDatabase MDIfrmBike.cmDlg1.filename, Newmdb, , ,
miapwd
     Unload Me
Exit Sub
ErrCompatta:
  If Err.Number = 3031 Then
    pwderr = pwderr + 1
    Select Case pwderr
     Case 1
        miapwd = XXX  'Questa sarebbe la pwd passata in automatico dal
programma.
        Resume
     Case Else
        miapwd=form_chiedi_ password.txtpwd.text
        Resume
    End Select
   End If
  ShowErrMsg
End Sub
Ciao!
Togliere le xxx dall'e-mail

completo?
Cerca nell'help in linea CompactDatabase
--
Roal Zanazzi
z...@iol.it

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

Non riesco a trovate la ListView! Dove la trovo?
Grazie.
ps: mi serve perchè ho scaricato un codicino che la utilizza
altrimenti nn funzia niente.
Arigrazie.
Andrea.

Riposto perchè altro messaggio chissa dove è finito.
Mi serve sapere dovè la ListView. Grazie.
Ho scaricato un codicino che la utilizza e senza quella nn funzia
niente. Grazie.
Andrea.

Ma ca..o nn riesco a postare. Cosa succede?
Mi serve sapere dove trovo la ListView grazie.
Andrea.

Devi andare nel menů di un progetto VB, nella voce "Progetto", scegli
"Componenti" e qua selezioni la seguente voce:
Microsoft Windows Common Controls 6.0 (SP4)
Ciao!
--------------------------------
Inviato via 
http://usenet.libero.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Sfondo su Mdi Form

Salve a tutti,
una domanda semplice semplice.
Come posso fare  a impostare in un form mdi uno sfondo stile pagina web,
ovvero che inserisca la picture associata al form  fino al riempimento?Se
setto la proprietą picture del Form ad un file bmp ottengo l'immagine solo
una volta in alto a sinistra.
Grazie a tutti.
Saluti



dai un'occhiata sul mio sito.
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: STAMPARE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

COME POSSO  FARE A STAMPARE UN FILE DI EXCEL TRAMITE UN BUTTON


F1 per ottenere l'help di MSDN. Cerca l'API ShellExecute.
P.S. Oggetti esplicativi e il minuscolo sono di rigore su tutti i NG.
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!

Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi installazione VB6

Ciao a tutti,
ho provato ad installare VB6 su un PC con W2K
ma appena scelgo un nuovo progetto, VB viene
chiuso perche' ha provocato errori.
Ho SP3 di W2K e ho anche installato il SP5 di VB.
Non so dove sbattere il naso, inutile dire che l'ho gia'
disinstallato e reinstallato molte volte.
Puo' essere un motivo, quando riavvio il pc dopo l'installazione,
che annullo l'installazione della MSDN in quanto non la voglio
per ora ?
Grazie in ogni caso
Roby

 ha scritto nel messaggio
news:bfg3gn$6ke$1...@serv1.iunet.it...

ne hai fatte tante di prove.. non credo ti costi molto provare a continuare
l'installazione anche di MSDN!
--
Ciao
Alfredo
Vb6+Sp5+Win2k


cioe' vuoi dirmi di provare o pensi che sia proprio
quello il motivo ?
il fatto e' che non ho MSDN
grazie
Roby

Significa che hai una copia pirata di vb o che forse risponderai
che magari l'hai a casa o in ufficio o viceversa.
Considerazioni a parte, non penso che tu risolvereai il problema
installando msdn. Ti conviene più riformattare la macchina.
-- 
Saluti
Andrea Moro

 Andrea Moro
grazie lo stesso
Roby

 perfettamente.
Non mi pare funzioni perfettamente visto che ti si chiude il vb ogni volta
che lo apri. Se fai lo sviluppatore, a meno che tu non abbia deciso di
scrivere codice con il notepad e compilarlo a linea di comando dal pc
di un tuo collega.
 Saluti
 Andrea Moro

 ha scritto nel messaggio
news:bfg3gn$6ke$1...@serv1.iunet.it...

Non č che hai anche installato visio?
Se sě devi toglierlo dalle aggiuunte in fase di caricamento
ciao

Era proprio Visio!
E' bastato disinstallarlo e ora funziona tutto.
grazie
Roby

 ciao
Visio ce l'avevo installato da prima, e nella toolbar
di VB vedo i pulsanti del collegamento. Ho chiesto
a chi usa VB se poteva essere quello il problema, ma
nessuno me l'ha saputo dire!
ora provo a disinstallarlo
grazie
Roby

Newsgroup: it.comp.lang.visual-basic
Titolo: [?]MDI & Child

Problema:
ho un form MDI
ho dei form child caricati nell'MDI, supponiamo 5.
Ne nascondo 2 (.hide)
Come faccio a sapere quali sono quelli nascosti per poterli chiudere?
Grazie, ciao.

te ne puoi tener traccia in una variabile che aggiorni quando li nascondi ..
CIAO
"Francesco" <fdellinoci@NOSPAM_libero.it> ha scritto nel messaggio
news:9qm8nh$nar$1...@fe1.cs.interbusiness.it...


"Francesco" <fdellinoci@NOSPAM_libero.it> ha scritto nel messaggio
news:9qm8nh$nar$1...@fe1.cs.interbusiness.it...

Fai un loop sull'insieme forms
dim frm as form
for each frm in forms
    ...
    qui fai i test che vuoi
    ...
next frm
ciao
ugo

 ha scritto nel messaggio
news:9qou6u$61c$1...@pegasus.tiscalinet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: ListBOX come una dbgrid ??

Forse sono io che non conosco l'OCX, ma esiste e se sapete dove è , un OCX
che mi permetta di avere una LISTBOX, con + colonne ed intestazioni
ridimensionabili come una DBGRID !
Grazie

 wrote


Newsgroup: it.comp.lang.visual-basic
Titolo: classi + metodo di default

ciao
come posso impostare un metodo di default per una classe, in modo da
poter fare 
classe(param)
invece di 
classe.metodo(param)?
grazie
Il calcolo implica il passaggio da una domanda a una risposta, 
la matematica implica il passaggio da una risposta a una domanda.
					 Peter Hilton.


Menu di VB Stumento -> Attributi routine -> Pulsante  Opzioni
Dopo aver selezionato la prorieta dal combo 'Nome' seleziona  'Predefinita
nell' interfaccia utente'
CIao
GC

Newsgroup: it.comp.lang.visual-basic
Titolo: Visualizzare immagini dalla WebCam

Come faccio a visualizzare le immagini dalla WebCam in VisualBasic6.0?

 Come faccio a visualizzare le immagini dalla WebCam in VisualBasic6.0?
se non sbaglio
www.gbcweb.com
--
vecchio, once more on my side :)

Grazie 1000 dell'aiuto!!!!
Newsgroup: it.comp.lang.visual-basic
Titolo: Fare di una applicazione Access un eseguibile indipendente

ciao a tutti
chiedo scusa x l'OT ma ho provato a fare la stessa domanda sull'ng dedicato
ad access ma nessuno mi ha risposto, spero di avere + fortuna qua.
Come faccio fa diventare una applicazione sviluppata in acces, indipendente
nell ' esecuzione da Access (cioč a compilarla rendendola un EXE
indipendente) !?
grazie e ciao
CLaudio.


Penso che non avrai molte risposte neanche qua. Oppure le avrai negative.
Ciao, Vincenzo

> indipendente) !?
Credo che un EXE non lo farai mai...
Al massimo dovresti avere l'Office Developer Edition che ti permette
di creare l'installazione dei componenti fondamentali di Access per
far girare la tua applicazione.
Ciao
Aran Banjo
-
C'č da chiedere cosa togliere nell'indirizzo ;)
Replay to: *[[banjo]]spamdim..@**
abilene.it
**


Quando sviluppavo in Access 97,
ho utilizzato l'Office Developer Edition , per costruire il pacchetto d'
installazione per una
applicazione Access.
Ricordo, spero che abbiano migliorato,
il riconoscimento dei componenti aggiuntivi, mi ha fatto penare un bel pò.
Se installi in pc cui è presente Office, problemi ne incontrerai di meno;
ma se devi installare in pc senza office,
formatta un pc, installa solo il sistema operativo e successivamente il
pacchetto;
il tutto prima di consegnare il lavoro.
Ave
giuseppeD

 far girare la tua applicazione.
beh ho il developer x office2000 ma andrà bene con componenti sviluppate con
officeXP !?!?!
claudio

http://www.mauro.sistel.it/vbutility/AccessVB6.exe
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it
Newsgroup: it.comp.lang.visual-basic
Titolo: GetCursorPos e propietà borderstyle della form.

Ciao a tutti, ho la necessita di fare un pgm che zoommi una parte di
una picturebox (picture1) in un'altra picturebox (picture2), questa
parte e determinata da un'oggetto shape.
Le immagini sorgente sono assegni e la parte da ingrandire è la
data(valuta). Visto che alcuni assegni (circolari ed altri) hanno la
data non in alto al centro ho voluto rendere possibile lo spostamento
della shape, per farla ho fatto una
Private Sub Picture1_Click()
Dim pp As POINTAPI
Dim newX As Long
Dim newY As Long
GetCursorPos pp
newX = Int(pp.X -  ((Form2.Left  + Picture1.Left) /
Screen.TwipsPerPixelX))
newY = Int(pp.Y - ((Form2.Top + Picture1.Top) / Screen.TwipsPerPixelY))
Shape1.Left = newX
Shape1.Top = newY
Zoom
End Sub
Zoom è la sub che tramite la StretchBlt fa lo zoom della parte
evidenziata dallo shape.
Da notare che form2.scale=1 twip, picture1.scale=1 twip.
Se lo faccio normalmente funzione per la x ma la y va sempre sotto di
una 30ina di pixel, ho notato che se imposto la proprietà
borderstyle=0 none, il tutto funziona correttamente, ma esteticamente
non mi piace e perdo i pulsanti di riduzione a icona...
C'è un modo per calcolare la striscia blu in alto (dove viene scritto
il form.caption) in modo da poterlo considerare ?
Grazie a tutti quelli che proveranno a darmi una risposta.

 non mi piace e perdo i pulsanti di riduzione a icona...
Evidentemente la GetCursorPos considera l'intera form (titolo compreso) e 
non solo la client area.
Secondo me fai prima se fai tutto nella MouseUp dove hai X e Y corrette già 
nello ScaleMode dell'oggetto relativo.
Ciao 

Manuel73 ha scritto:

Oltre a quanto detto da Fabio, che a mio avviso è la cosa più
semplice, potresti
usare l'API:
ClientToScreen Me.hwnd, pp
In VB6 non ho provato, ma in Access si, le coordinate sono relative
alla Client Area, mal che vada recupera l'handle della ClientArea e
passa quello alla conversione...!
@Alex

Newsgroup: it.comp.lang.visual-basic
Titolo: Utilizzo JPG (o GIF o simili)

Nel programma che ho realizzato ci sono immagini (*.jpg).
Vorrei spedire questo programma a qualche amico, ma non so come si
comporterà a causa delle jpg inserite, mi spiego meglio: una volta
creato il .exe questo ha "già dentro" le immagini che poi potranno
essere visualizzate su pc diversi dal mio ?
Naturalmente sul mio pc tutto funziona bene perchè nel codice ho
indicato lacartella da cui reperire le immagini...ma gli altri non hanno
questa cartella..
Oppure devo preparare un programma di installazione col setup (anche se
questo secondo caso mi sembra eccessivo per un'applicazione di pochi K,
e poi pur conoscendo la prassi per creare un file di setup non saprei
come inserire le immagini...) ?
Un saluto a tutti.

Non sarà un problema di JPG, ma di runtime.
Serve il SETUP anche se è di 1 byte
Newsgroup: it.comp.lang.visual-basic
Titolo: Help Help Help Help

Dovrei creare l'help per un programma, pultroppo ho pochissimo tempo e
non ne so quasi nulla,  c'e' qualche programma veramente fatto bene
che mi puo aiutare ???
Grazie.
Antonio Tanzillo  
a...@netgroup.it

Forse in
com.os.ms-windows.programmer.winhelp
trovi qualcosa di utile
Ciao, Stefano


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Indrizzi porte

Come faccio a trovare l'indrizzo di una porta?
In particolare mi interessano le Com e le PS2.
CiaoZ

con vb non so...
ma se apri una finestra dos e digiti debug, al segmento 40 li trovi
tutti...
##########
Microsoft(R) Windows 98
   (C)Copyright Microsoft Corp 1981-1999.
C:\WINDOWS>debug
-d 40:
      ^ Errore
-d 40:0
0040:0000  F8 03 F8 02 00 00 00 00-78 03 00 00 00 00 0F 02
........x.......
0040:0010  27 C4 00 80 02 00 00 00-00 00 3C 00 3C 00 64 20
'.........<.<.d
0040:0020  65 12 62 30 75 16 67 22-0D 1C 64 20 20 39 34 05
e.b0u.g"..d  94.
0040:0030  30 0B 3A 34 0D 1C 00 3D-30 0B 0D E0 00 00 00 80
0.:4...=0.......
0040:0040  00 00 C0 00 00 00 00 00-00 03 50 00 E0 1B 00 00
..........P.....
0040:0050  00 0E 00 00 00 00 00 00-00 00 00 00 00 00 00 00
................
0040:0060  07 06 00 D4 03 29 30 A4-17 F5 84 FF BC FF 0E 00
.....)0.........
0040:0070  00 00 00 00 00 02 00 00-14 14 14 3C 01 01 01 01
...........<....
-q
C:\WINDOWS>
##########
ci interessa solo la prima riga:
03 F8 prima seriale (com1:)
02 F8 seconda seriale (com2:)
03 78 prima parallela (e unica nel mio pc) (lpt1: o prn:)
02 0F porta mouse PS2
enjoy
---
GbC
http://gbc.myip.org
---
Newsgroup: it.comp.lang.visual-basic
Titolo: Deinstallazione con InstallShield 5.0

Qualcuno saprebbe darmi indicazioni su come scrivere un programma di
installazione in cui verificare l'esistenza di una versione precedente del
programma ed eventualmente lanciare la disistanllazione, tutto questo con
InstallShield 5.0 professional ?
Ho cercato nella documentazione ma non ho trovato nulla che mi venisse
incontro.
--
------------------------------------------------------------
 Marco Maroni       mailto:
m.ma...@esa-group.it
 Analista/Programmatore
 ESA Software S.p.A.     
http://www.esa-group.it
 via Draghi, 39          tel. +39 541 368.111
 47900 Rimini (ITALY)    fax  +39 541 368.268
------------------------------------------------------------

 incontro.
Non conosco bene InstallShield 5, ma posso darti un'idea su come
disinstallare una precedente versione.
Prima devi controllare l'esistenza di una precedente versione guardando nel
Registry. Qui vi sono vari modi per vedere se vi e' un'applicazione: si
puo' controllare l'esistenza dell'estensione del file predefinito per
quell'applicazione e se a tale estensione e' associato il file o programma
voluto, si puo' vedere nella chiave HKEY_LOCAL_MACHINE\Software se e'
presente il programma voluto (magari scorrendo un po' il "tree" per
controllare anche il numero di versione), oppure si puo' controllare nel
percorso
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Uninstall se
e' presente il programma voluto e se e' presente eseguire la stringa
contenuta nella chiave "UninstallString", in questa maniera puoi mandare in
esecuzione il disinstallatore della vecchia versione.
Comunque sia mi pare strano che altri programmi mandino in esecuzione il
disinstallatore di una vecchia versione. E' piu' probabile che la nuova
versione sovrapponga i dati nell'ultimo percorso da me fornito in modo tale
che nel Pannello di Controllo compaia solo una voce del programma voluto, e
non due voci. Inoltre InstallShield controlla la versione di ogni file e
aggiorna solo i file piu' recenti. In questo caso si potrebbe dire ad
InstallShield di eliminare almeno le chiavi del registry in esubero,
dipendenti dalla versione del programma.
Ciao.
-- 
Jo Parrello (
jopa...@tin.it
)
http://space.tin.it/computer/giparrel

Hey Jo tutto ciň č molto interessante... ma, per favore, sapresti dirmi come
faccio a leggere il registro???
Grazie mille in anticipo...
Maurizio 
sec...@secoges.com

 faccio a leggere il registro???
Per capire come funziona il registro faresti meglio prima ad usare l'editor
del registro di configurazione, ovvero eseguire il file REGEDIT.EXE che si
trova nella cartella di Windows.
A livello di API dovresti trovare ampia documentazione nei file di Guida
dell'API di Win32, cioe' in parole povere nel file WIN32.HLP che viene
fornito con tutti gli ambienti di sviluppo. In questo file di Guida cerca
la stringa "registry".
