mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: help da cifra a lettere

Ciao a tutti,
ammetto pubblicamente la quasi totale ignoranza del
VB ma giuro che 25 anni fa ho fatto il programmatore
su uno Sperry Univac 8200...pieno Cenozoico
informatico...
Ho bisogno di un listato che implementato in una
funzione  Excel mi trasformi da cifra in lettere un
numero.
Ne ho fra le mani uno ma si pianta sul debug con una
variabile e non riesco ad uscirne fuori forse sono
troppo preso dalla fretta e ho commesso solo qualche
errore di digitazione ma non va...
grazie in anticipo a chi mi puň aiutare,
A. Della Monica

 
http://digilander.iol.it/javalab
per il wm: il cur2str non l'ho trovato in nessun modo. e' la ricerca che e'
down o nascondete apposta le cose di roal per non sfigurare, voi cocchetti
coccolati ? :)

 > in cambio mi voti java fra i top50 lab :)
Voto inviato...
file listato non trovato sul sito...
ADM

coccolati ? :)
io ho cercato "numeri stringhe" ed ho ottenuto il risultato voluto... ma
avrei ottenuto lo stesso risultato anche usando il singolare...
Ciao,
Moreno
-- 
sirri at morenosoft dot com
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

 ADM
file inviato.
grazie per il voto spontaneamente offerto :)
wm, ex-wm, ex-ex-wm, ecc. !
fate qualcosa per far trovare quel failettino di roal...

 avrei ottenuto lo stesso risultato anche usando il singolare...
ierisera ho provato
numeri
lettere
excel
zanazzi
fa' poco il fighino... :)
stringhe, sorry, per me sono quelle delle clarks.
poi c'e' "as string", ma e' tutt'altro.

poi c'e' "as string", ma e' tutt'altro.
vabbé, c'era pure "testo", numeri" ed altro ancora... :-)



Sapendo che l'autore č Roal bastava anche una piů semplice ricerca nel
materiale di Roal.
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Migrazione VB5-VB6

Chi ha convertito progetti scritti in VB5 alla verisone VB6 sa dirmi quali
sono i punti più ostici ?
Ho alcuni progetti da convertire e devo fare una valutazione preventiva
(ancha a grandi linee) del dispendio di tempo.
Grazie e saluti a tutti.


L'unico problema che ho avuto è stato che un controllo che  mi ero costruito
non funzionava correttamente.
Ho scoperto che il problema era dovuto ad un diverso ordine di esecuzione
degli eventi di inizializzazione.
Adesso non ricordo come funzionava ma ad es. se in VB5 si aveva:
Inizialize
ReadPropertis
Paint
Resize
In VB6 si aveva:
ReadPropertis
Inizialize
Resize
Paint
Sottolineo che quanto scritto non corrisponde alla realtà ma è solo un
esempio del tipo di problema che ho trovato
--
Diego Mazzaro
"L'importante non è conoscere tante cose ma sapere dove trovarle" A.
Einstein
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con Excel e VB!

Salve ragazzi, da qualche giorno ho individyuato un Bug nel software che ho
realizzato
ma non capisco la motivazione di questo strano comportamento:
Da VB apro un foglio Excel hce possiede delle macro (che eseguo).
Nella stessa applicazione apro un'altro foglio excel e vi copio il risultato
dei calcoli fatti
col primo foglio. A questo punto chiudo il primo foglio con una istruzione
tipo:
' I č il foglio che voglio chiudere
'Applicazione č un oggetto Excel
 Applicazione.Workbooks.Item(I).Close (False)
a questo punto nella applicazione mi devo ritrovare solo il secondo foglio
ma...
se faccio CTRL+F11 (entro in visualizzazione codice): il primo foglio (che
avevo aperto
usato e CHIUSO) č ancora presente ma con le icone dei fogli di cui si
compone di
colore bianco con contorno azzurro.
Perchč il primo foglio non si č chiuso? perchč appare cosě?
Grazie.

 realizzato
Una variazione come segue potrebbe andare ? :
apri il foglio con i calcoli (chiamamolo master)
esegui una copia: objWorkBook.SaveAs FileName:="NomeFile_e_Percorso"
giuseppeD

Newsgroup: it.comp.lang.visual-basic
Titolo: [ot] stampa

sabato con la stampa dovrebbe esserci gratis un cd della regione piemonte
sul cervello.
lo so, lo so, tant'e' che ho messo il tag :)

 sul cervello.
;-( No, non almeno a CR. Peccato, mi interessava...
Forse (da ipotesi fatte dai giornalai) solo in Piemonte...
Ah, birichino, tu avevi programmato un safari fotografico proprio là, vero?
;-)

 ha scritto

urca che memoria ! me lo stavo scordando, nonostante un appunto.
ma l'edicola ci tiene la stampa il sabato.
trovo lo specchio un giornale ben fatto e con notevoli foto.
in piemonte purtroppo è un po' che non riesco a tornare.
il cd mi sembrava si potessere chiedere, forse con un mail:
www.regione.piemonte.it
ciao

 
www.regione.piemonte.it
C'ho guardato e mi son perso. Fa niente.

 che ci sia alcunchè in omaggio...
appunto. mi tiene il giornale, se riesco fra stasera e lunedi passo e vedo.
mo a sto punto ho un sospetto...
ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: pacchetto installazione in Windows NT Workstation?

Ciao..
ho un problema:
Ho creato il pacchetto d'installazione del mio programma..Ho provato 
installarlo su diverse macchine con Xp e 98...e va tutto ok..
Ho provato invece su un pc con WINDOWS NT ..e dopo aver richiesto il riavvio 
del sistema la prima volta..comincia l'installazione e si blocca dicendomi: 
"Impossibile creare la cartella "C:\Programmi\MIOPROGRAMMA""..Ho provato 
anche a copiare manualmente le dll..ma al momento dell'avvio mi dice che non 
trova : COMDLG32.OCX..
Come posso fare???
Grazie..

 trova : COMDLG32.OCX..
hai copiato dll e ocx? e naturalmente le hai anche registrate?
scusa i consigli banali ma...magari qualche dimenticanza...;-)


 
Si...mi dava un errore nella registrazione di una dll...
Comunque ho creato il pacchetto con CyberInstaller..e ora č tutto ok!
Grazie lo stesso
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/
Newsgroup: it.comp.lang.visual-basic
Titolo: Piccolo proble con wizard Package and Deployment

Ciao a tutti,
ho un problema con il wizard Package and Deployment:
Io voglio installare la mia applicazione  MyApp.exe.
Il pacchetto l'ho fatto, l' unica cosa è che per
installarel'applicazione lui mi propone un path C:\Programmi\...  che a
me non piace.  Io voglio C:\Programmi\MyApp: dove devo settare questo
path nel wizard in modo che me lo proponga automaticamente quando vado
a installare?
Grazie

 quando vado a installare?
Ciao,
ripeti bene tutti gli step del PDW, e guarda bene... c'è proprio uno step 
relativo ai percorsi.
Ciao!
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Registrare suoni (o voci)

Salve a tutti del NG
Ho la necessità di integrare un registratore di voci che mi garantisca una
buona qualità audio, mi piacerebbe conoscere quali strumenti si possono
utilizzare ed eventualmente dove potere trovare la documentazione
necessaria!
Grazie anticipatamente
Fabio


API mmcSend
Newsgroup: it.comp.lang.visual-basic
Titolo: Nascondere un task. Come?

Salve a tutti.
	Domanda: con VB 5 è possibile nascondere un programma dopo averlo avviato
e controllarlo lo stesso con SendKeys?. Ho provato Shell con l'opzione
vbHide, ma il programma parte comunque visibile (si tratta di un programma
scritto con VB a 16 bit).
	Grazie a quanti vogliano aiutarmi.
		Corrado

Eccoti una classe che ho modificato per fare cio' che hai bisogno:
' Ex callse esecuzioni modificata per non mostrare la finestra shell
' Adatta soprattutto per operazione batch,
'aggiunge inoltre un tempo massimo di attesa perche la procedura termini
  Private Type STARTUPINFO
      cb As Long
      lpReserved As String
      lpDesktop As String
      lpTitle As String
      dwX As Long
      dwY As Long
      dwXSize As Long
      dwYSize As Long
      dwXCountChars As Long
      dwYCountChars As Long
      dwFillAttribute As Long
      dwFlags As Long
      wShowWindow As Integer
      cbReserved2 As Integer
      lpReserved2 As Long
      hStdInput As Long
      hStdOutput As Long
      hStdError As Long
   End Type
   Private Type PROCESS_INFORMATION
      hProcess As Long
      hThread As Long
      dwProcessID As Long
      dwThreadID As Long
   End Type
   Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal _
      hHandle As Long, ByVal dwMilliseconds As Long) As Long
   Private Declare Function CreateProcessA Lib "kernel32" (ByVal _
      lpApplicationName As Long, ByVal lpCommandLine As String, ByVal _
      lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, _
      ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, _
      ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, _
      lpStartupInfo As STARTUPINFO, lpProcessInformation As _
      PROCESS_INFORMATION) As Long
   Private Declare Function CloseHandle Lib "kernel32" (ByVal _
      hObject As Long) As Long
    Private Declare Function TerminateProcess Lib "kernel32" (ByVal _
        hProcess As Long, ByVal uExitCode As Long) As Long
   Private Const NORMAL_PRIORITY_CLASS = &H20&
   Private Const CREATE_NO_WINDOW = &H8000000
   Public Function ExecCmd(cmdline$, MilliSecsWait&) As Long
      Dim proc As PROCESS_INFORMATION
      Dim start As STARTUPINFO
      ' Initialize the STARTUPINFO structure:
      start.cb = Len(start)
      ' Start the shelled application:
     ret& = CreateProcessA(0&, cmdline$, 0&, 0&, 1&, _
         NORMAL_PRIORITY_CLASS + CREATE_NO_WINDOW, 0&, 0&, start, proc)
      ' Wait for the shelled application to finish:
      ret& = WaitForSingleObject(proc.hProcess, MilliSecsWait&)
      'Termina il processo se e' stato superato il limite in MilliSecsWait&
      ExecCmd = TerminateProcess(proc.hProcess, 1&)
      ret& = CloseHandle(proc.hProcess)
   End Function
ciao,
Alessandro Scardova
scar...@tin.it
http://space.tin.it/computer/ascardov/
P.S. Il codice ha uno stile di cacca, ma non l'ho scritto io. l'ho solo
copiato e modificato.
Newsgroup: it.comp.lang.visual-basic
Titolo: Command Line arguments

I'm currently converting an application that we use at work, written in
access 97 VBA  to visual basic, i want to be able to use a command line
parameter to bring up a particular record. so i could type MYAPP.EXE -9999
from a command line to load my application and bring up record 9999 - but
how do a get a command line parameter into the program in the firstplace - i
just want to read an interger value into a variable..
Please help
Ian Porteous
I...@thornlea.prestel.co.uk

...


Newsgroup: it.comp.lang.visual-basic
Titolo: ho un problemino :-(

ciao a tutti,
ora vi spiego il mio problema:
ho creato un programmino con vbasic su un computer a scuola,ho salvato il
progetto su un floppy e me lo sono portato a casa per poterlo vedere sul mio
pc.....ma......
apro il file e vbasic mi visualizza un messaggio di errore:"retained è una
chiave non valida.Impossibile caricare il file c:\......."
come mai?
mi è stato detto che la causa potrebbe essere che sul computer a scuola è
installata la versione 6 e io invece ho la versione 5.
voi che ne dite?
c'è un modo per aprire il file o almeno recuperare il codice?
grazie mille a tutti!
Stefano

 c'č un modo per aprire il file o almeno recuperare il codice?
Il codice c'č, non preoccuparti. Apri i vari *.FRM con un text editor
qualsiasi, anche NotePad o WordPad e lo vedrai. Perderai quanto c'č negli
eventuali files *.FRX, ma, a regime, potrai facilmente ricostruirlo.
Il problema credo sia dovuto ai vari riferimenti ai controlli utilizzati e
ai loro numerelli identificativi. Troverai tutta la parte di definizione
grafica in testa ai file *.FRM. A un certo punto iniziano le tue
Sub/Functions.
Credo che ci sia una via piů svelta (altri potranno essere piů precisi), ma,
tanto per provare potresti (prima di ogni cosa salvati tutto in una cartella
di comodo!) togliere tutta la parte grafica e salvare il resto in un file di
comodo (solo testo!). Puoi quindi ricreare le form inserendovi (con gli
stessi nomi) tutti i controlli che hai sulla tua installazione. Poi apri il
codice e in zona dichiarazioni (comunque al di fuori di qualsiasi Sub)
importi il puro testo del *.FRM originale e che hai preventivamente salvato.

 eventuali files *.FRX, ma, a regime, potrai facilmente ricostruirlo.
Dovrebbe bastare aprire il progetto (.vbp) con notepad e cancellare la riga
"Retained".
Se non hai usato controlli propri di VB6 non installati sul tuo pc non
dovresti avere problemi.
Ciao
--
using System.Gtk.Forms = "
http://www.neodatatype.net/windowsforms/sgf.aspx
"
mathParser = "
http://www.neodatatype.net
"
sitoComune = "
http://www.it-lang-vb.net
"

 ha scritto nel messaggio
news:au1n6j$3jsi1$1...@ID-174464.news.dfncis.de...


 :-(
Hai salvato poco e male. Se il progetto è tuo (comunque liberamente
accessibile), torna in scuola e salva anche tutti i file FRM e FRX, oltre
che eventuali BAS, CLS, etc. di competenza del progetto.
Ah, se la lezione non è ancora stata fatta, ricusa il prof.
Se è già stata fatta, ristudia e zitto. :-))
Newsgroup: it.comp.lang.visual-basic
Titolo: Connettere unita' direte

Come si puo' fare in VB per ottenere la stessa cosa che fa' il comando NET
USE ecc.. ecc.. per mappare le unita' di rete?
Grazie
cla...@libero.it

Vedi messaggio sotto, subject "[API] WNETADDCONNECTION -
WNETCANCELCONNECTION"

Newsgroup: it.comp.lang.visual-basic
Titolo: I decimali scompaiono..??!

Salvo in una tabella Access il contenuto di alcune text collegate ovviamente
al rispettivo campo nella tabella. Uno di questi campi è impostato come
InteroLungo, visto che devo poi usarlo in una query  che contiene una somma
(come sapete non si sommano valori in formato testo).
Al momento del salvataggio il valore nella text è esatto, ma quando
controllo il dato salvato nella tabella, mi accorgo che la virgola scompare
(es. 249,8 = 2498 ).
Così imposto l'InteroLungo con 2 decimali, anziché con la voce "Automatico".
In questo modo però il dato salvato rappresenta solo ciò che compare prima
della virgola (es. 249,8  =  249).
Meglio di prima, ma io ho impostato 2 decimali.....
Allora modifico il formato della text collegata al campo come :
- numerica a 2 decimali  ==> nulla
- numerica a 0 decimali  ==> nisba
- personalizzata  #.##  ==> nada
il dato salvato non cambia..... WHY ?
A questo punto mi sfogo brutalmente sul mio monitor prima di  lanciare
Outlook e scrivere questo messaggio.
Spiegatemi cosa sbaglio ..... altrimenti impazzisco per una cavolata del
genere.
(da come ho scritto l'e-mail forse sono già fuori di testa)

 ....

Newsgroup: it.comp.lang.visual-basic
Titolo: solo per i migliori-domanda

Perchè quando creo un form con l'autocomposizione non mi crea anche il file
log.?
Questo mi e' capitato parecchie volte.
Ho un progetto con un mdiform e creando form con l'autocomposizione
non mi crea il file log..
Questo mi impedisce di spostare il progetto in un altro computer perche'
mi impedisce di aprire i form senza quel determinato file.
AIUTO!!!!!!!                grazie   Robby

 wrote in message 7l8pop$3s9$1...@nslave1.tin.it...

????????????????????
I file LOG relativi alle form vengono creati in caso di errore di
caricamento della form.
E' normalissimissimissimo che non vengano creati con l'autocomposizione form
(mi meraviglierei del contrario).
--
Roal Zanazzi
z...@iol.it

 mi impedisce di aprire i form senza quel determinato file.
...aspetta: per caso ti dice: "errore nel caricamento del form; vedere il
file xxxxx.log" o qualcosa del genere? Se č cosě, devi LEGGERE quel file,
cosě saprai perché non riesci a caricare il form nell'altro computer.
Probabilmente (azzardo un'ipotesi) il form ha un file di dati binario
associato (xxxx.frx) che dimentichi di copiare... Ci sono immagini (o
altro) nel tuo form?
-- 
Ale...@tiscalinet.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Vb e permision Nt

Come posso leggere dei dati all'interno di una cartella condivisa conoscendo
la user e la password da Vb.
Grazie

la user e la password da Vb.
Suppongo sia una domanda ;-)
Un modo e' mapparsi tale cartella come disco.
ciao, hal

 conoscendo la user e la password da Vb.
non è semplice. Devi avere un servizio d'appoggio, che ti crei il token 
a partire da nome utente e password (con LogonUser - solo i servizi 
possono chiamare questa funzione) e te lo passi, dopodichè tu impersoni 
il token, fai quello che devi fare, e distruggi il token

Newsgroup: it.comp.lang.visual-basic
Titolo: DAO, prelevare dati dal recordset

Se ho p.e. 30 textbox da riempire prelevando i dati
da un recordset ed ho indicizzato i textbox, esiste un
modo di evitare il classico
with NomeRecordset
 text1(0).text = !Campo1
 text1(1).text = !Campo2
 ecc.ecc...
end with
e poterlo inserire in un ciclo for-next?
Grazie per la collaborazione.
________________________________________
James Tiberius Kirk, matricola SC 937-076 CEC
  Nato a Riverside, nello Iowa, USA, Terra
            il 1277.1 (26/03/2233)

 ha scritto nel messaggio
news:hDOa8.16860$Jo.4...@twister2.libero.it...


 e poterlo inserire in un ciclo for-next?
qui stampa nomecampo e contenuto su un txt:
    Dim j as long
    For Each td In db.TableDefs
        If Left(td.Name, 4) <> "MSys" Then
            Set rs = db.OpenRecordset(td.Name)
            With rs
                Do Until rs.EOF
                    For j = 0 To .Fields.Count - 1
                        If Not IsNull(.Fields(j)) _
                            And (.Fields(j).Type = 10 Or _
                            .Fields(j).Type = 12) Then
                            Print #oNum, .Fields(j).Name & ": " &
LCase(.Fields(j))
                            '.Edit
                            '.Fields(j) = LCase(.Fields(j))
                            '.Update
                        ElseIf Not IsNull(.Fields(j)) Then
                            Print #oNum, .Fields(j).Name & ": " &
LCase(CStr(.Fields(j)))
                        End If
                    Next
                    Print #oNum,
                    .MoveNext
                    DoEvents
                Loop
            End With
        End If
    Next
qui avverte con un msgbox (il record e' breve; se e' lungo fermo la stringa
del msgbox a p.e. 500 caratteri)
Private Sub DbDelete()
    On Error GoTo errman
    Dim tmp As String, j As Integer
    With dbCens.Recordset
        For j = 0 To .Fields.Count - 2 'ultimo=memo
            tmp = tmp & .Fields(j).Name & ": " & .Fields(j) & vbCrLf
        Next
    End With
    If MsgBox("ELIMINARE LA SCHEDA CORRENTE ?" _
        & vbCrLf & vbCrLf & tmp, vbYesNoCancel) _
        <> vbYes Then Exit Sub
    With dbCens.Recordset
        .Delete
        DbPrev
    End With
    Exit Sub
errman:     MsgBox Error: Exit Sub
End Sub
controlli da fare: tipo del campo, isnull, ecc.
ciao, j.tkirk

Grazie ad entrambi. :-)

Newsgroup: it.comp.lang.visual-basic
Titolo: Prima Applicazione Database su Pocket PC e Palmari

ciao a tutti!
volevo  realizzare una semplicissima applicazione di ricerca in database da
poterla usare sui vari dispositivi portatili tipo palmari pocket pc e
compagnia (non so se ce ne sono altri...)
Il fatto è che non possiedo nessuno di questi apparecchi e volevo sapere se
esisteva una qualche tool di sviluppo che ricreasse l'ambiente per i test.
l'applicazione è una semplice query ad un database access, quali accortezze
devo prendere per farla funzionare su questi aggeggi??
conoscete qualche link utile che mi possa schiarire maggiormente le idee?
il database access è sui 10 mega...questi attrezzi avranno scarsa memoria
suppongo, come potrei fare per ridurne le dimensioni?
grazie a tutti!
ciao!

 conoscete qualche link utile che mi possa schiarire maggiormente le idee?
Se googli un po' su questo gruppo o altri che parlano di programmazione .Net
e per palmari ho spiegato più volte come funziona il discorso.
Ciao

 e per palmari ho spiegato più volte come funziona il discorso.
ho letto i vari post e seguito tutto il tuo processo di crescita su PPC!
:-))
nel 2003 parlavi di eVB ma ora nel MSdownloadcenter non ce n'è più traccia!
c'è solo quello che mi hai consigliato te che però da quanto ho capito
necessita di VS.net
oppure c'è  "eVC++"
io sto (e starò ancora per molto penso) sul 6...e per questo tipo di
applicazione e sufficiente il VB
oppure mi confermi (dalla tua esperienza su PPC) che con il .net è molto più
immediato fare semplici applicativi per i PPC e palmari?

 immediato fare semplici applicativi per i PPC e palmari?
Fare un confronto sulla semplicità è un po' complesso poichè le piattaforme
sono completamente diverse.
eVB assomigliava molto a VB come ambiente, ma alla fine andavi a lavorare
con un linguaggio simile a VBScript e gestiva solo form e moduli bas.
VS.Net lavora con il .Net framework con tutto quello che ne consegue.
Per programmare per PPC con il .Net CF è sufficiente il notepad e il setup
del CF developer SP2, ma se non sbaglio la parte di connessione a SqlServer
(unico DB supportato) è inclusa solo in VS.Net.
Poi, puoi ovviamente aggirare il problema importando i dati ad es come file
di testo, però tant'è.
Ciao
-- 
NeoDataType : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net
Newsgroup: it.comp.lang.visual-basic
Titolo: update eseguibile

Ho scritto un applicativo in VB6 che gira su diversi client della rete
aziendale e che modifico di frequente. Vorrei per comodita introdurre un
aggiornamento automatico. In pratica vorrei che l'utente, selezionando
un'opzione, possa controllare eventuali versioni aggiornate su una cartella
del server (e fin quì nessun problema) ed eventualmente fare l'auto
aggiornamento. Il programma dovrebbe copiare il nuovo eseguibile su quello
vecchio mentre è in esecuzione (poi ovviamente si dovrà avviare per rendere
effettive le modifiche) ma ovviamente questo non è possibile con un semplice
comando di copia file perchè il file è in uso.
Idee?
bye,
max

io ho risolto così:
(ovviamente tralascio dettagli..)
l'eseguibile principale (PRINC.EXE) parte.
verifica se in cartella \\server\aggiornamento c'è un PRINC.EXE più
recente.
se si:
da PRINC.EXE lancio UPDATE.EXE e chiudo PRINC.EXE
da UPDATE.EXE copio da \\server\aggiornamento il file PRINC.EXE
in c:\programmi, chiudo UPDATE.EXE e lancio PRINC.EXE
spero di essere stato chiaro.

Il 13/09/2006, ypsylon ha detto :

Grossomodo fanno tutti così, o anche più semplicemente associando 
all'icona dell'applicativo l'Update.Exe, in modo che ad ogni avvio ci 
sia un controllo.
Una interessante alternativa (che io uso da anni con soddisfazione) è 
l'inserimento del grosso dell'applicativo in un OCX.
Navigando su una pagina html della intranet, l'OCX viene 
automaticamente verificato da IE, e, se necessario, scaricato ed 
installato nel sistema.
L'applicativo potrà quindi essere la pagina html stessa (dove l'OCX la 
occupa tutta e diventa la vera consolle), o un banale form che faccia 
solo da contenitore.
Ciao
Alberto
-- 
seguiam la scia
se un meganoide ci spia

 wrote in
news:kJONg.105403$
zy5.1...@twister1.libero.it
: 

la tua rete ha un dominio?
se c'è, usa lo script di logon.
all'avvio l'eseguibile nella caretlla di 'distribuzione' viene copiato in 
locale sul client.
in questo modo, non devi nemmeno modificare il tuo programma o aggiungere 
funzioni 'non produttive'.
;-P
-- 
---
paoloopg
BE AWARE that this post uses a fake reply-to address
to contact me write to:
janickg ( at ) hotmail ( dot ) com
---

 ;-P
Interessante soluzione ma preferisco che gli utenti si rendano conto che
usano una versione aggiornata, inoltre alcuni client si connettono tramite
VPN e questo rallenterebbe assai in logon.
bye,
max
Newsgroup: it.comp.lang.visual-basic
Titolo: [.MDB] bug o cosa?

salve a tutto l'NG,
da qualche giorno mi sono accorto che aprendo un db con ado (tramite pagina
asp), posso anche omettere la passwd (messa con access97), tanto il file
viene aperto ugualmente...
come è possibile?
come posso risolvere il prb?
grazie

come posso risolvere il prb?
mettendo la password al database (anche se l' algoritmo di decodifica
e' arcinoto, va comunque bene per evitare che gli utenti medi vadano 
a fare danni direttamente nel db)
ciao, hal


come mai è arcinoto?? qualcuno ha portato Bill Gates in un pub a farsi una
sbronza e lui ha spifferato tutto..??
MarioH



Sai, siccome non ho mi avuto voglia di cercare tale algoritmo e nemmeno di cercare un programmino
già pronto (a dire il vero uno voleva pubblicarlo sul Sito COmune...), mi basta aprire il file mdb
con WordPad e leggere la password bene in chiaro... quindi...
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------


!!!!!!!!!!!!!!????????????????
ma come mai non hanno usato la stessa tecnica di Excel o Word...?? lì mica è
così semplice trovare la password...
MarioH

 Moreno
Sempre che non lo crei o compatti usando il paramtro VbEncrypt..
Saluti
Stefano Raspadori

ciao Moreno, mi sono accorto che basta aprire il file con access 2k...
anche se avevo messo la passwd  /con access97, access 2k mi apre il file e
non ci pensa proprio a chiedermi nessuna autorizzazzione di sorta...
io non ho office 2k, altrimenti credo che basti inserire la passwd con
access 2k....
la stessa cosa con asp, se apro il file con ado, della passwd non se ne
infischia proprio....
come posso fare?
Antonio

 come posso fare?
boh, non conosco il programma e nn so xkè si comporta così,
però puoi sempre crittare tu il file in base a una password..
Cosma

Newsgroup: it.comp.lang.visual-basic
Titolo: Help Icone

Ciao a tutti sono di Nuovo Francesco scusate, ma esiste il modo per inserire
più di un'icona nel mio file pippo.exe compilato?
Mi spiego l'icona pricipale dell'eseguibile è quella del form di avvio, per
i file creati dal mio programma vorrei scegliere un'icona diversa come
faccio? Grazie anticipato
Francesco Vinciguerra
Francesco....@usa.net

...

Se usi una ver. precedente al VB6 hai poche speranze, se non quella di
scegliere un'icona da un secondo form.
Con VB6 puoi inserire l'icona in questione in un file risorse e usare quella
(non ho ancora sperimentato questa possibilità)
Ciao.

...

-----------
Ciao!
Io uso VB5 e non ho alcun problema nell'inserire due o più icone in un
programma utilizzando un file di risorse...
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260/
http://www.armaditaggia.com/marco
Newsgroup: it.comp.lang.visual-basic
Titolo: [Oggetto Printer]

Salve, ho un problema con il Printer e non riesco a risolvere.
Su un form ho un bottone per stampare alcuni record ma, non riesco a
giustificarli correttamente al bordo sx, come posso fare ?
In poche parole la stampa viene cosě +-:
Regista    : pippo
Attori : Pluto
Anno  :1965
Il codicino č questo :
frmCerca.PrintForm
'Specifico la posizione di stampa
Printer.CurrentX = 200
Printer.CurrentY = 200
Printer.FontSize = 14
Printer.FontBold = True
Printer.FontItalic = True
Printer.Print "Scheda del film : " & rst3!Titolo
Printer.FontSize = 10
Printer.FontBold = False
Printer.FontItalic = False
Printer.CurrentX = 200
Printer.CurrentY = 800
Printer.Print "Regista    : " & rst3!Regista
Printer.Print "Attori     : " & rst3!Attori
Printer.Print "Anno       : " & rst3!Anno
...
...
Printer.EndDoc
End Sub
Grazie a tutti
R.Zanni
-- 
Posted from  [193.70.106.130] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Anno  :1965
Scusa, non capisco... in che senso non riesci ad allinearli al bordo sx? a me sembrano allineati...
Forse vorresti che "pippo" sia allineato a "Pluto" e a "1965"? Se č cosě, allora devi sostituire le
righe:
Printer.Print "Regista    : " & rst3!Regista
Printer.Print "Attori     : " & rst3!Attori
Printer.Print "Anno       : " & rst3!Anno
con
Printer.Print "Regista:" & space(10-len("Regista:")) & rst3!Regista
Printer.Print "Attori:" & space(10-len("Attori:")) & rst3!Attori
Printer.Print "Anno:" & space(10-len("Anno:")) & rst3!Anno
ed usare un font non proporzionale, come ad esempio Courier New.
Ciao,
Moreno
#sirri#@#
morenosoft.com#
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

Printer.Print "Anno:" & space(10-len("Anno:")) & rst3!Anno
dimenticavo, anche se magari era ovvio: in questo modo assegni all'etichetta (Regista, Attori,
Anno,...) 10 caratteri...


 Il codicino è questo :


Grazie a tutti per le risposte...e scusate se in ritardo.

Newsgroup: it.comp.lang.visual-basic
Titolo: Urgente

Come posso fare per pulire un form da tutto quello che c'è sopra che è stato
impostato da codice, togliendo sempre da codice????
Scusate ma è urgente
Yuri

Se vuoi eliminare tutti gli oggetti prova questo:
dim cControl as control
for each cControl in me.controls
    ' Elimina l'oggetto. Non so come fare, ma ti faccio un esempioper
renderlo
    ' invisibile. Praticamente cControl è come l'oggetto stesso. (per. es.
Text1)
    cControl.visible=false
next cControl
puoi anche discriminare i vari tipi di oggetti.
Es.
dim cControl as control
for each cControl in me.controls
    ' In questo caso considero solo Text e Label
    if typeof cControl is TextBox or typeof cControl is LabelBox then
        ' Elimina l'oggetto. Non so come fare, ma ti faccio un esempioper
renderlo
        ' invisibile. Praticamente cControl è come l'oggetto stesso. (per.
es. Text1)
        cControl.visible=false
    end if
next cControl
Spero ti possa servire...

grazie mille...era quello che mi serviva

Newsgroup: it.comp.lang.visual-basic
Titolo: memorizzare immagini nel database

come posso memorizzare e gestire immagini(bmp o jpg) in un database?
(non devo memorizzare il path ma l'immagine che poi verà visualizzata in un
controllo nel form)
ho provato con il controllo contenitore ole associato ad un remote data
control ma non sono riuscito a gestire le operazioni di modifica/aggiunta
un ringraziamento anticipato ed un ciao a tutti

 ha scritto nel messaggio
news:90lkck$rhe$1...@pluto.sm.dsi.unimi.it...


Se no,come posso fare?

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

Qualche furbastro si diverte a FakeMail Attenzione!!!

 wrote in message 8njp7g$enm$1...@nslave1.tin.it...


Praticamente sono e-mail anonime

 un chiarimento sarà il benvenuto.
fake
s. falsificazione, falso, contraffazione; imbroglio, raggiro;
impostore
v. falsare, alterare; simulare, fingere
agg. falso, contraffatto
(Babylon)
mail (... questo non serve tradurlo, giusto?)
Quindi: (nella migliore delle ipotesi) il solito fessacchiotto
che si diverte a postare fingendo di essere un altro. E` anche
un reato.
--
Ciao.
Maurizio
--------
Mercurio = Furb'astro
--------
?SPQR(C)
 X
Newsgroup: it.comp.lang.visual-basic
Titolo: Form con scroolbar (V & H) di sistema

Ciao a tutti,
Ho delle form in cui devo inserire degli scroolbar, li ho inseriti
utilizzando il relativo oggetto ma mi sa che li gestisco tutto tranne che
bene, infatti quando si scrolla non corrisponde bene e poi la rotellina del
mouse non ha alcun effetto...
Non esiste un modo per far inserire in modo automatico dal sistema gli
scroolbar cosi' che funzioni anche la rotellina?
Ciao ;^)=
--
RedFoxy
Web Master of Quantum Leap 
http://ql.programmazione.it

 scroolbar cosi' che funzioni anche la rotellina?
non credo che esista una soluzione built-in
per gestire la rotellina del mouse è necessario subclassare il form e
rintracciare il messaggio WM_MOUSEWHEEL.
Private Const WM_MOUSEWHEEL = &H20A
credo ci sia un esempio anche sul sito comune.
--
Fibia "Bot Service" FBI
E-mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Sito Personale: 
http://www.geocities.com/fibiafbi
VB Simple: 
http://vbsimple.virtualave.net
Membro #26 delle Mitiche Brigate Takahashi sezione Sud


beh si possono usare i form con  scrool bar dove appunto la rotellina li
gestisce come si deve :))
(non parlo delle scrool bar di vb) è un'impostazione dei form
ciao
--
-------
sito: 
www.dadev.it
ultime: Ocx per irc testi freeware
-------

 ciao
che impostazione???? Quale form (standard o esterne)???
Spiega, spiega!
Grazie :)



Questa me la sono persa pure io...
Spiega un po'...  ???
ciao
ugo
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT ? Ringraziamenti]

Salve,
scusate questo post ma era da un tempo che volevo farlo...
Premetto che "programmo" da pochissimi mesi (e non è proprio il mio
lavoro).
Circostanze a parte, volevo ringraziare tutti coloro che si prodigano
nel rispondere a tutte le domande postate (in questo caso da me)
risolvendo al 99.99999999999999999999999 delle volte i problemi posti.
Ovviamente il tutto con una solerzia degna di nota.
Detto questo vi saluto
Grazie
Rodolfo Zanni
-- 
Posted from  [193.70.106.130] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Ovviamente il tutto con una solerzia degna di nota.
vuol dire che hai avuto 1E-24 problemi irrisolti dal NG ?
.. e quali sono questi bastardi ... ?
se tu avessi postato piů di 1 milione di miliardi di miliardi di richieste
di aiuto  :
1-quante tastiere avresti  consumato ?
2-il NG non ti avrebbe risposto ad almeno 1 domanda (maledetti)
3-non si sarebbe piů chiamato it.comp.lang.visual-basic ma
it.aiutate.Rodolfo.Zanni.vb
scusate per le ca@@ate .. ma č la fame che parla ..
:)
Saluti
Newsgroup: it.comp.lang.visual-basic
Titolo: ? Debug di funzione conversione data

Ho scritto debug, ma si tratta di richiesta di consulenza gratuita ... ;-)
Devo convertire dei dati che rappresentano una data e contenuti in una 
stringa nel formato ddmmyy.
Il problema e' che a volte la stringa non contiene la data nel formato 
corretto. La stringa viene generata esternamente al programma e in 
alcuni casi sono arrivati dati del tipo:
0101
292935
Ho scritto questa routine e volevo un vostro parere (per leggibilita' 
non ho messo tutti i $ e cint (non) necessari).
L'idea e' che nel campo data2 rimane null se il contenuto di data non e' 
valido.
grazie
	maxx
Private Sub converteData(rst As adodb.Recordset)
Dim tmpdata As Date
     On Error GoTo converteData_Error
'la stringa e' piu' corta di 6 caratteri
     If Len(rst!Data) <> 6 Then Exit Sub
'la stringa convertita con dateserial non coincide con quella originale
'es dateserial(2003,1,32) restituisce 01/02/2003
     tmpdata = DateSerial(2000 + CInt(Right(rst!Data, 2)), Mid(rst!Data, 
3, 2), Left(rst!Data, 2))
     If CInt(Mid(rst!Data, 3, 2)) <> Month(tmpdata) Then Exit Sub
     If CInt(Left(rst!Data, 2)) <> Day(tmpdata) Then Exit Sub
     If CInt(2000 + CInt(Right(rst!Data, 2))) <> Year(tmpdata) Then Exit Sub
     rst!Data2 = tmpdata
     On Error GoTo 0
     Exit Sub
converteData_Error:
     logga "Error " & Err.Number & " (" & Err.Description & ") in 
procedure converteData of Modulo Module1"
End Sub
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 292935
La tua function va bene, anche se io alcune cose le avrei fatte in modo
diverso.
Resta il problema del fatto che il DateSerial accetta qualunque schifo, come
giustamente fai notare nel commento.
Siccome assolutamente non puoi usare un IsDate (che dipende dalle
impostazioni internazionali, mentre tu hai un formato prefissato, e ciò che
esce da DateSerial è ovviamente una data valida), occorre fare una cosa di
questo tipo:
Ottieni la data con DateSerial, quindi: MiaData=Dateserial(cint(mid$....
ecc..
A questo punto devi confrontare Year(miadata), Month(miadata) e Day(miadata)
con Cint(mid$....
In questo modo, se nella stringa avevi, ad esempio, 32 come giorno, in
MiaData avresti Day(miadata)=1, mentre Cint(Mid$(....))=32.
Trovandoli diversi, avresti la prova di una valore non accettabile.
Ciao
Alberto

Il 02/10/2003 14.52, Albe V° scrisse:

Non e' cio' che ho scritto?
	maxx


 Non e' cio' che ho scritto?
Sě.
Ma per vederlo dovevo scorrere il post, e credevo fosse finito.
Ritiro tutto.
Anzi, allora ti confermo che secondo me č la strada giusta.
ciao
Alberto

 
Gia' temevo una notte insonne alla ricerca di nuovi algoritmi. :-)
grazie
	maxx
P.S. La prossima volta saro' piu' ermetico.

Newsgroup: it.comp.lang.visual-basic
Titolo: VB e GPL

Vorrei sapere se è possibile rilasciare un programma scritto in VB sotto 
gpl, codice ed eseguibile.
Grazie,
MatB

 sotto gpl, codice ed eseguibile.
imho si... ;)


che è gpl?
--------------------------------
Inviato via 
http://usenet.libero.it

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

si, ma fondamentalmente mezzo mondo se ne frega del GPL e va a benzina,
usando sotto false spoglie il tuo codice.
Fabio


 
vabbè, che gli venga la caghetta il sabato sera...
MatB

Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal Report 8 - Lista di Distribuzione

Ho installato da poco Crystal Report 8 e devo distribuire la mia
applicazione.
Uso le API quindi la libreria crpe32.dll.
Quando creo la lista non trova 5 o 6 file che però ho verificato non essere
necessari per quello che fa il mio proramma.
Durante l'installazione però il programma non riesce a registrare 2 librerie
perché in uso:
MFC42.DLL (Microsoft Foundation Class Library)
MSVCRT.DLL
Quando avvio l'applicazione e chiamo una funzione API mi dà errore, come se
non trovasse la DLL crpe32.dll che però risulta installata in System32.
Qualcuno ha riscontrato questo problema???
P.S.: Uso NT per le mie prove!!!

Emanuele ha scritto:

Per vedere le dipendenze di crpe32.dll scaricati depend.zip dalla seagate. Ti
indica tutte le dll necessarie per la dll selezionata.
Ciao !

 wrote in message
3966F7B7...@hotmail.com...


Newsgroup: it.comp.lang.visual-basic
Titolo: Killare il processo excel.exe!

Ciao a tutti,
    sto tribolando non poco con l'oggetto Excel.Application.
Il fatto è che quando uso l'istruzione ActiveCell.Cells... mi rimane appeso,
tra i processi, il processo excel.exe; se invece commento le parti di codice
in cui uso ActiveCell.Cells tutto rimane pulito.
Qualcuno si è mai scornato con questo problema? Come posso risolverlo?
Ogni suggerimento sarà ben accetto ;-(
grazie, michele

 tra i processi, il processo excel.exe; se invece commento le parti di
codice
come non detto, ho risolto usando al posto di ActiveCell l'oggetto ti tipo
Excel.Worksheet che posso deallocare settandolo a nothing (e questo mi killa
il suddetto processo!!!)
cmq grazie lo stesso, alla prox
;-)

 ;-)
    ;-)
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------
Newsgroup: it.comp.lang.visual-basic
Titolo: Vb.net Listview e una domanda veloce

Ho una list view suddivisa in tre parti.
Come posso eliminare una riga sapendo il testo di una determinata riga della
prima colonna?
Es.
Davide  Marco  Luigi
In una variabile ho "Davide".
Grazie in anticipo

 In una variabile ho "Davide".
Ragioniamo:
per quel che mi risulta la listView non ha una proprietą DataSource per
utilizzarla come sorgente dati; sia in ricezione che per alimentare una
classe e di conseguenza filtrare i dati.
Non mi risulta che sia stata dotata del Metodo FindItem come in VB6. Se
alcuno mi smentisce avrą la mia riconoscenza.
Quindi per verificare la presenza di un valore occorre scorrere la colonna o
Item desiderato.
Es.
  Dim i As Int16
        Dim str As String = "Cavallo"
        For i = 0 To ListView1.Items.Count - 1
        'Prima colonna
           If ListView1.Items(i).Text = str Then
                          Exit For
            End If
        Next
            ListView1.Items(i).Remove()
giuseppeD

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

Ho creato un report per il mio progetto e che preleva i dati da una query di
Access97.
Vorrei ulteriormente selezionare solo alcuni records dalla mia query e lo
vorrei fare utilizzando la proprietà SelectionFormula del mio controllo
CrystalReport1. Il problema è la sintassi utilizzata (infatti ricevo un bel:
Errore di run-time:20515
Errore nella formula.
La "fantomatica" formula utilizzata è: {foglioasta2.CODGRUPPO} = 13
Da premettere che ho praticamente scopiazzato quanto riportato sulla
documentazione on-line di CrystalReport per VisualBasic 5.0 (eppure non
funge).
Quindi mi chiedo: cosa sbaglio nella sintassi della formula, o c'è qualche
altro errore?
grazie per lle vostre risposte
saluti
Stefano
 
ste...@tin.it


Il campo CODGRUPPO č stato incluso nel report di CR?
E il valore 13 č inserito come testo o come variabile?
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!

funge).
Non mi ricordo quale somando va dato per "aggiornare i dati", prima di
Cr1.action=1 ...
ErreBi
Newsgroup: it.comp.lang.visual-basic
Titolo: Server e client telnet

ciao a tutti vi volevo chiedere se potevate darmi dei link con esempi o
informazioni vari per quanto riguarda la realizzzazione di un server telnet
con il relativo client

 server telnet con il relativo client
Telnet non saprei dirti (cerca su google che sicuramente qualcosa c'è).
Al massimo ti dico di andare sul SC a cercare nella sezione di comunicazioni
oppure puoi andare su 
www.vbsimple.net
 nella sezione client/server.
Nello specifico, se devo creare un server telnet, crei due controlli winsock
e uno lo metti in ricezione e uno in invio risposte (inizia a fare prove con
un echo).
Poi se la cosa funziona puoi creare più istanze dello stesso oggetto per
accettare più connessioni contemporaneamente.
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda su listview...

Salve..in vb6, come si fa a:
1) selezionare l' intera riga di una listview quando faccio click su
un suo elemento? Io ho notato un paio di cose, faccio un disegnino
perchè segna disegnetti non so psiegarmi :))
Considera queste come le colonne della mia listview
   pippo    pluto           paperino
   minnie   paperone   gamba di legno
Se clicco su minnie mi evidenzia nel rettangolino blu solo la parola
minnie, per far si che si tiri una riga o simile, che prenda anche
paperone e gamba di legno, come si fa?
2) Perchè se clicco su minnie, mi evidenzia questa nel rettangolino
blu e l' indice della listview vale 2 (giusto), mentre se cliccco su
paperone mi seleziona (o gamba di legno) pippo e l' indice di
conseguenza vale 1? Ma una listview, considera solo il primo item
selezionabile di una colonna? (in questo caso gli unici selezionabili
sarebbero pippo o minnie?!?!) Se io seleziono il secondo (paperone) e
non il primo item (minnie) la listview mi prende sempre il primo della
prima riga? (pippo)
3) Cliccando su minnie, le fa il rettangolino blu intorno, se ci
riclicco il rettangolimo diventa bianco con il cursore che lampeggia e
mi darebbe la possibilità di cambiare quello che cè scritto dentro. A
parte che se anche cambio il testo dell' item non lo salva, quindi non
serve a niente, e poi, se io non voglio che qualuno cambi il contenuto
delle colonne di una listview, come faccio? Non esiste una proprieà
tipo locked delle textbox?
Saluti...

 un suo elemento?
Esiste la proprietą FullRowSelect ....
Ciao
Enrico

 tipo locked delle textbox?
Proprietà LabelEdit a 1
Ciao!

Risolto risolto...grazie ho risolto :))
Newsgroup: it.comp.lang.visual-basic
Titolo: Risoluzione dello schermo

Come si puo' fare per adattare automaticamente il proprio programma vb alle
diverse risoluzioni video degli utenti che lo useranno?
Roby

 vb alle diverse risoluzioni video degli utenti che lo useranno?
Riporto un mio vecchio post:
Io mi regolo cosě: se le form sono molto semplici, puoi tranquillamente
sfruttare l'evento resize per ridimensionare i controlli a seconda della
dimensione della form (e quindi rendi dinamica la form anche se non č
massimizzata).
In generale, perň, non si tratta di un semplice ridimensionamento. Ad
esempio, a seconda della risoluzione, puň essere necessario spostare dei
controlli da una parte all'altra, o disporre le cose in modo completamente
diverso.
Io mi regolo cosě:
Per le form piccole e semplici (ad esempio i dialog o gli avvisi), le creo
in modo che vadano bene per il 640x480. Per le risoluzioni maggiori verranno
un po' piccole, ma fa lo stesso.
Per le form principali, quelle piů complesse, creo la risoluzione dove
voglio l'effetto piů bello, e ad esempio la chiamo Form1_1024. Dopodichč
creo copie delle form, con nomi Form1_800, Form1_640, Form1_1200.
Per ognuna di esse, modifico solamente la disposizione e la dimensione dei
controlli, e lascio invariato il codice.
Ovviamente sposto tutte le sub o function in un modulo esterno, riferendomi
ai controlli della form con Form1.Controllo.
Gli eventi non eseguono altro che una chiamata a Sub o Function pubbliche
definite nei moduli esterni.
All'avvio eseguo, in uno splash di benvenuto, la lettura della risoluzione
video corrente, e faccio semplicemente Set Form1=Form1_1024 (o quella che mi
serve). Poi chiamo Form1.Show. In un modulo ho definito Public Form1 as
Form.
Siccome tutti i moduli, function, sub, chiamate fra form, ecc.., fanno
riferimento sempre a Form1, semplicemente facendo puntare Form1 su
Form1_1024, Form1_800, ecc.., cambio tutto senza problemi.
L'unica cosa da ricordare č: se si aggiunge un controllo o un evento in una
form, va riportato in tutte le altre versioni. Il resto del codice resta
identico.
Ciao
Alberto

Newsgroup: it.comp.lang.visual-basic
Titolo: DataEnvironment passare condizioni...

Come si può passare un parametro di ricerca ad un'oggetto DataEnvironment
...ad esempio ho un'oggetto DataEnvironment che mi serve per creare un
report (DataReport Vb6) che contiene dei dettagli , quindi ho ragguppato i
record di due tabelle correlate.....fino quà tutto bene ..adesso però devo
stampare solamente un  record con i relativi dettagli..insomma devo
passargli una variabile come posso fare ??  oppure devo creare un recordset
(io uso ADO) dal codice e dopo come faccio ad impostare il DataReport con Un
raggruppamento...Ringrazio anticipatamente coloro che mi possono dare una
mano (anche quelli cha hanno letto il messaggio )..Ciao Alex

 wrote in message 8d73ou$4qp$1...@nslave1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: ! Operazioni con i bit

Ciao
Ho un problema: devo estrarre da una stringa dei pacchetti di bit di
dimensione variabile (non necessariamente potenze di 2) e inseririli nei
bit meno significativi di un numero. Come posso fare?



 scritto nell'articolo
<01bfe920$94b86140$90ead8d4@gfcos>...


bit meno significativi di un numero. Come posso fare?
Intanto  convertirei la stringa in un array di byte cosě:
Dim b() as byte
Dim s as string
s = "quello che vuoi"
b() = StrConv(s, vbFromUnicode)
poi controlli i bit che ti interessano di ogni byte di b() con l'operatore
AND e li butti con l'OR nel byte di destinazione.
Ciao

 scritto nell'articolo 

 scritto nell'articolo
<01bfe9a3$3493b660$c28e1997@hdtzrgrk>...


 ha scritto nel messaggio
news:01bfe920$94b86140$90ead8d4@gfcos...


Newsgroup: it.comp.lang.visual-basic
Titolo: Buttons e Toolbar

E' possibile "simulare" la pressione del bottone di una
toolbar?
Io, dentro una procedura (Keydown del form), voglio fare in modo che
venga eseguito il codice corrispondente alla pressione
di un bottone della toolbar del form stesso.
Chi mi puņ aiutare?


Toolbar1_ButtonClick Toolbar1.Buttons("btnProva")
dove btnProva è la key del bottone che vuoi far premere

...



Funziona eccome! Ovviamente devi sostutuire a btnProva il nome (key) che hai
dato al tuo pulsante -_-;;;;