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

Per chiunque mi odi qui dentro, anche se non lo merita, regalo questa
funzione che può sempre servire:
Public Function EstraiStr(Str As String, Separatore As String) As Collection
'************************************************************
'Restituisce una collection contenente tutte le sottostringhe
'di "Str" separate dal carattere "Separatore"
'************************************************************
Dim pos As Integer
Dim Flag As Integer
Dim newpos As Integer
Dim Coll As New Collection
pos = 0
Flag = 100
If Len(Trim(Separatore)) > 1 Then
    Exit Function
End If
Do While Flag <> 0
    newpos = InStr(pos + 1, Str, Trim(Separatore))
    If newpos <> 0 Then
        Coll.Add Mid(Str, pos + 1, newpos - pos - 1)
    Else
        Coll.Add Mid(Str, pos + 1, Len(Str))
        Flag = 0
    End If
    pos = newpos
Loop
Set EstraiStr = Coll
End Function

End Function
               --Please also reply via E-Mail--
                      4169522043485253

 End Function
Lasciamo perdere il resto, che viene da sé.
Piuttosto, chiunque inserisca questa funzione in un suo programma senza
stravolgerla deve essere messo piuttosto malex.
Flavio Ronco
--
f.ronco@*NonMiServeNiente*
flashnet.it
http://www.metabrains.com
  [Under Construction]
-------------------------------------------------------------
"Che pubblico in gamba! Se ci dite dove lavorate,
domani mattina se abbiamo tempo vi veniamo a vedere"
[Paolo Rossi]
Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO SQL!!!!!

Aiuto!!!
In una Sql di creazione tabella 'SELECT .... INTO nuovatabella FROM ...
come posso mettere un campo autoincrementante (progressivo o come dir si
voglia) che parta da 1 ???
Non mi risolve il problema usare query di accodamento in una tabella
esistente avente un campo contatore dato che ad ogni esecuzione tale
contatore andrebbe resettato e non sò come fare se non eliminare il campo e
ricrearlo ex novo MA io devo utilizzare solo query SQL!!!
Aiuto!!!
Grazie 
p...@citynet.re.it

Per quanto riguarda l'azzeramento del campo contatore, se la tabella e'
vuota, e' sufficiente compattare il database per ottenere nuovamente il
valore da 1. Da codice puoi anche usare la funzione CompactDatabase del DAO.
Per il resto non ho capito bene il tuo problema...
Spero comunque che ti sia d'aiuto
Ciao
Riccardo

 valore da 1. Da codice puoi anche usare la funzione CompactDatabase del DAO.
MOLTO interessante, mi sono sempre chiesto come si potesse fare
(pensavo non si potesse)      :-))
-- 
Hi, Ciao
Ettore                 By -MES-
http://www.aspide.it/freeweb/ilmes
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb

(pensavo non si potesse)      :-))
Anche io lo pensavo, ma fino ad adesso ho letto solo come compattare il
database e azzerare il campo, per autoincrementare questo campo come si
dovrebbe fare con una sola query?
Siamo sicuri che sia possibile? E con quale sintassi?
Sarebbe l' ideale se ci fosse un' istruzione SQL che legga il numero del
record, ma non mi risulta che esista, comunque se qualcuno ne è a conoscenza
ce lo faccia sapere :-)
--
"Baby, vieni qui che ti devo parlare da vicino..."
----------------------------------------------------------
Night Eagle ti aspetta su:              U_/
http://space.tin.it/io/mzugar/
       / R
----------------------------------------------------------
Togliere 'FUCKSPAM' per le risposte

Newsgroup: it.comp.lang.visual-basic
Titolo: Query di eliminazione duplicati

Buonasera al NG
ho un db access che gestisco da Vb6. In questo db c'è una Tabella che un 
unico field denominato Targa.
In questo db ci ho trovato dentro una moltitudine di record duplicati che 
vorrei sfoltire, mantenendo
una sola occorrenza dello stesso.
Se quindi mi ritrovoquessto set di record:
Table: TARGHE
 Field:         TARGA
Rercord:    AA125
                  AA 21
                  AS 18
                  AA125
                  AS 18
VORREI CON UN QUERY RIDURRE IL SET IN QUESTO MODO:
                  AA125
                  AA 21
                  AS 18
Qualcuno può aiutarmi?
Thanks
 

 ha scritto nel messaggio
news:475ff533$0$37204$4faf...@reader3.news.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO per creare questo programma


in Excel pui fare 1 macro che li ordini in ordine decrescente, poi
prendere i primi due e gli ultimi due e fare la somma di quelli
centrali se il numero dei numeri(che gioco di parole) diventa un pò +
difficile ma nn impossibile!!
Sprero di esserti stato di aiuto 
ciao
--
   Dio ha il copyrigt sui miracoli,
noi li chiamiamo solo lavori difficili
     ..ooOO= MaViMo =OOoo..
Newsgroup: it.comp.lang.visual-basic
Titolo: Curve

Ciao a tutti
Una domanda :
Come si fa a usare la funzione tiralinee di Excel in una form in Visual
Basic?
Dovrei realizzare un applicazione che data una serie di punti traccia la
curva corrispondente tutta raccordata
Ciao Grazie a Tutti


cerca sulla guida in linea: Line e PSet
hth, hal


in vb non ho mai visto nulla che faccia una cosa del genere
--
-------
sito: 
www.dadev.it
ultime: Ocx per irc testi freeware
-------

 curva corrispondente tutta raccordata
in vb non ho mai visto nulla che faccia cose del genere forse con l'ocx
paint (kodak non ricordo bene il nome).


> in vb non ho mai visto nulla che faccia una cosa del genere
delete ........
sorry


Antonio:
  puoi provare a vedere il progetto Splines reperibile sul mio sito
di "DownLoads" a: 
http://members.xoom.it/flanguasco/
Fa' proprio quello che tu vuoi fare (se ho capito bene...).
Ciao e se hai problemi contattami pure.
Franco


Newsgroup: it.comp.lang.visual-basic
Titolo: Come mettere in pausa il programma per n secondi!!!!

Salve a  tutti!!
Come posso mettere in pausa il programma per n secondi?
Grazie tante, Andrea.

usa la "Sleep" è una API
ciao

> Come posso mettere in pausa il programma per n secondi?
C'e' la API sleep:
    Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal
dwMilliseconds As Long)
(il tempo di attesa e' espresso in millisecondi)
Altrimenti puoi usare un loop:
    dim s as single
    s = timer
    do
    loop while timer < s + nScondi
Questo pero' fa un po' di casion a cavallo della mezzanotte (guarda l'help
della funzione timer)
Ciao


Prova con l'API Sleep dell'User32.dll passando il valore(Dwmillisecond) in
millisecondi del tempo di pausa.
Attento: ho notato che sia su Win NT4 che su Win 98 si blocca tutto con
valori superiori a (circa) 30 secondi.
Ciao!

 Come posso mettere in pausa il programma per n secondi?
Puoi anche fare un ciclo di attesa con l'API GetTickCount, che ti
permette di gestire attese discretamente lunghe e tempi precisi.
Ciao
          :-) Hd (-:
-^- Verso l'infinito e oltre -^-

 wrote in message
8q4p2b$kvm$1...@fe2.cs.interbusiness.it...
| Salve a  tutti!!
|
| Come posso mettere in pausa il programma per n secondi?
|
| Grazie tante, Andrea.
|
|

 valori superiori a (circa) 30 secondi.
basta che ti crei un loop, spezzando le pause in pause da max 2~3 sec.
l'una, e magari aggiungi un DoEvents
for x=1 to 10
call sleep(3000)
doevents()
next x
--
ciao
xAERO
-------------------
Sub Main() 'the bug-less programm
    End
End sub
-------------------

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

C'e' un modo per evitare lo sfarfallio nella visualizzazione di oggetti come
listbox, combobox, form etc.?

 ha scritto nel messaggio
news:8pq3mm$pki$1...@news.flashnet.it...


Intendo dire che quando carico una list box o combo box si verifica
ovviamente un casino all'interno del form.
Vorrei evitare il tutto.
Ho provato la SendMessage, ma sporca il form. Forse non ho capito bene come
usarla.

 listbox, combobox, form etc.?
puoi usare LockWindowUpdate, o SendMessage con WM_SETREDRAW
Ciao
Faber
Newsgroup: it.comp.lang.visual-basic
Titolo: togliere l'ombreggiatura dal bottone standard

Vorrei un bottone senza l'ombreggiatura che viene messa in automatico; per
farlo devo scaricare un componente nuovo, oppure e' sufficiente settare
qualche proprieta' di quello standard?
VI PREGO AIUTATEMI!!!!!!

mhHMHMHMH...
Ua una label... risponde all'evento click come il command button e non ha il
bordo...
                    Ciao
                                    Allanon

 qualche proprieta' di quello standard?
prova a modificare lo stile del controllo con GetWindowLog() e
SetWindowLong(), usando come indice GWL_EXSTYLE
Ciao
--
Faber

Newsgroup: it.comp.lang.visual-basic
Titolo: Più allegati con Mapi

..Utilizzando Mapi ho fatto un programma per mandare un E-Mail..
Questo pezzo di codice manda un solo allegato
With MAPIMessages1
.MsgIndex = -1
.RecipDisplayName = Text1
.MsgSubject = Text2
.MsgNoteText = Text3
.AttachmentPathName = CommonDialog1.FileName
.SessionID = MAPISession1.SessionID
.Send
End With
Come si può trasformarlo per mandare più allegati..
Grazie in anticipo a chi mi risponderà
Saluti
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Ricordati che per mandare piu allegati tra di loro la stringa che contiene
le direzioni degli archivi deve avere uno spazio tra un e l'altro
strAllegati="C:\Allegato1.txt" & " " & "C:\Allegato2.doc"
Qui ti mando il codice che devi modificare in base a quello che ti spiegato
 Ciao L'Oriundo
Option Explicit
Private Sub Command1_Click()
Dim strFile As String  'Importante questa Variabile deve essere publica nel
Form Principale
Dim intCont As Integer
For intCont = 0 To List1.ListCount - 1
strFile = strFile & " " & List1.List(intCont)
Next
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_DblClick()
List1.AddItem File1.Path & File1.FileName '.ListIndex
End Sub
Private Sub Form_Load()
Drive1.Drive = "C:"
Dir1.Path = "c:\"
File1.Path = "c:\"
End Sub

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto per Microsoft Data Bound Grid Control 5.0 (SP3)

Sto cercando di fare un esercizio di un libro,l'ho fatto da un mio amico e
lui questo controllo ce l'ha,ma io non ce l'ho,neanche in controlli
aggiuntivi,Possibile???
Forse è perche lui ha installato Office 97??
Buon Natale a tutti e grazie
Fabrizio

 ha scritto

che vb hai installato ?
se hai il 6, devi cercarlo sul cd.
lui prova a dimenticarselo per spingere a usare ado.
dev'essere dbgrid32.ocx.
fai cerca | *.ocx sul cd
poi vai nella dir e leggi il readme sulla registrazione, dovrebbe essercene
uno.
j.

ma alle 0:53 non aprivi i regali????
in foindo è natale e uno perchè dovrebbe connettersi al NG :)
ciao
L2K

 ha scritto nel messaggio
news:a08f8u$jb9k9$1...@ID-51318.news.dfncis.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema chiusura Programma

Ciao a tutti,
sono sempre dietro al problema che alcuni programmi rimangono caricati nel
taskmanager (spesso con cpu 100% o quasi) anche quando vengono chiusi.
All'unload della form principale ho messo:
Private Sub Form_Unload(Cancel As Integer)
Dim FormName As String
Dim frm As Form
On Error GoTo Errore
For Each frm In Forms
  FormName = frm.Name
  Unload frm
  FormName = ""
  Set frm = Nothing
Next
End
Exit Sub
Errore:
  MsgBox "Impossibile chiudere il programma e scaricare la form: " &
FormName & vbNewLine & _
         "Copiare questo messaggio e contattarci" & vbNewLine & _
         err.Number & " - " & err.Description, vbCritical, NOMEPRG
End
End Sub
Il fatto è che NESSUN cliente ha mai letto il messaggio d'errore, quindi il
problema non è qui dentro.
Non ho usato nulla di particolare e soprattutto non mi pare ci sia un
filone che unisca i progetti con questo problema.
C'è da dire che a me non è mai successo che mi rimanesse caricato e nemmeno
a tutti i clienti, quindi è qualcosa che riguarda l'uso dell'utente.
A questo punto penserei a un 
Do Until Adors.EOF 
con un DoEvents, 
che magari viene interrotto a metà. Ma provando a rifare la situazione
(tipo caricare 1000record e uscire mentre carica) non mi ha dato problemi.
Secondo voi è necessario che tenti di settare a Nothing Recordset e
Connessioni esistenti? Esiste una collection stile Forms o me la devo
gestire a mano?
-- 
DBMS Firebird
VB6 + Ado

 All'unload della form principale ho messo:
Forse ti può essere utile, mi è capitata la stessa situazione su 
installazioni di XP sporche.
Ti spiego, in questi pc all'atto della installazione di XP veniva fatto un 
giochetto non ben identificato sulle cartelle Utenti ed il mio eseguibile 
non veniva scaricato alla chiusura.
Mi è saltata all'occhio la stranezza in quanto ciò mi è successo da un unico 
cliente che guardacaso acquista i PC dallo stesso fornitore.
Come controprova della anomalia ho rilevato che non riusciva neanche il 
setup di installazione del mio software se non in modalità provvisoria.
In sintesi il probema si è risolto reinstallando XP.
Spero di esserti stato di aiuto.
Ciao, Fabrizio 

 In sintesi il probema si è risolto reinstallando XP.
Grazie,
il problema non credo sia questo.
Sembrerebbe più qualcosa legato ad utenti più maldestri che magari usano il
programma in maniera strana, quindi qualche problema di RecSet aperto.
Putroppo a me non è mai successo quindi non saprei...

Newsgroup: it.comp.lang.visual-basic
Titolo: Help: RAS ,accesso remoto e VB5

Aiutatemi per piacere...
dovrei costruire una nuova connessione di accesso remoto.
Cioč non modificare una esistente ma proprio crearne una ex-novo in
automatico
senza intervento dell'utente.
Ho scaricato la documentazione delle RAS dalla microsoft ma non
ci capisco granchč ...anche perchč, esiste l'esempio extapi che dovrebbe
creare la connessione,... ma č in C.
Ho provato a convertirlo in VB5 ma non mi funziona...
c'č qualcuno che lo ha fatto in VB5 e mi insegna come fare?
Grazie!!!
mm...@tin.it

Aiutatemi per piacere...

dovrei costruire una nuova connessione di accesso remoto.

Cioè non modificare una esistente ma proprio crearne una ex-novo
in

automatico

senza intervento dell'utente.

Ho scaricato la documentazione delle RAS dalla microsoft ma non

ci capisco granchè ...anche perchè, esiste l'esempio
extapi che dovrebbe


creare la connessione,... ma è in C.

Ho provato a convertirlo in VB5 ma non mi funziona...

c'è qualcuno che lo ha fatto in VB5 e mi insegna come fare?


Grazie!!!

mm...@tin.it

Se il tuo scopo è semplicemente fare in modo che una tua applicazione
si collega in internet, puoi usare i socket e dialer della catalyst (sono
freeware).

http://www.catalyst.com/download


Ciao Dany



------------------
Ciao!!!
Per creare una nuova connessione da Visual Basic, devi utilizzare la
seguente API, che si limita ad avviare il wizard "Crea nuova connessione":
Private Declare Function RasCreatePhonebookEntry Lib "RasApi32.DLL" Alias
"RasCreatePhonebookEntryA" (ByVal hwnd As Long, ByVal lpszPhonebook As
String) As Long
hwnd č l'handle del form da cui richiami la funzione (lo puoi ricavare con
Me.hwnd), mentre lpszPhonebook devi porlo uguale a "". Ecco un esempio:
    Dim Esegui As Long
    Esegui = RasCreatePhonebookEntry(Me.hwnd, "")
Ciao.
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260
http://www.armaditaggia.com/marco

c'č qualcuno che lo ha fatto in VB5 e mi insegna come fare?
  Preleva il file che trovi sul sito comune: quello contiene le classi
per usare le RAS API in VB4/32 (lo carichi tranquillamente in VB5, col
VB6 non so).
  Ciao :-)
  Massimo
  Nell'indirizzo, inserire una "h" tra la "t" e la "u"
  In the address, insert an "h" between the "t" and the "u"
Newsgroup: it.comp.lang.visual-basic
Titolo: MAPI con più account VB6 + OutlookExpress

Problema: desidero mandare delle mail in automatico. Scritta la sub dove
apro una sessione MAPI, quindi scritta la parte per l'invio del messaggio,
provo... tutto ok!
Peccato che ci sia un problema: io ho diversi account sul computer, ma
la mia sessione MAPI non concede la possibilità di inviare mail da un
account che non sia quello predefinito. Quancuno ha idea di come posso fare
per risolvere questa terribile mancanza del MAPI?
Grazie mille!
TG 

avendo lo stesso problema, e non essendo riuscito a risolvere
ho implementato l'invio mail direttamente via stmp, con la dll
http://www.freevbcode.com/ShowCode.Asp?ID=109
e sono abbastanza soddisfatto.
(non rimane però traccia in locale della mail inviata nel client di
posta.....)

 posta.....)
Bhe al limite la fai inviare per Bcc al mittente, così torna indietro pure
a lui.

Newsgroup: it.comp.lang.visual-basic
Titolo: [!] Problema con applicazione Tcp (Vb.net)

Salve, vorrei mostrarvi il codice di un semplicissimo programma per
conettersi ai server Irc.
Dim tcp As New TcpClient()
tcp.Connect("
irc.tin.it
", 6665)
MsgBox("Connessione riuscita")
Dim network As NetworkStream = tcp.GetStream
Dim dato As Byte() = Encoding.ASCII.GetBytes("USER fddf dfdf fdfd fdfd")
network.Write(dato, 0, dato.Length)
MsgBox("USER inviato")
dato = Encoding.ASCII.GetBytes("NICK GUEST2145")
MsgBox("NICK inviato")
MsgBox(network.CanRead)
Dim ricevi As Byte() = Encoding.ASCII.GetBytes("")
MsgBox(Encoding.ASCII.GetString(ricevi))
network.Read(ricevi, 0, ricevi.Length)
MsgBox(Encoding.ASCII.GetString(ricevi))
End Sub
Appena il vb arriva all'instruzione Network.Read il programma si pianta. Si
accettano consigli varii ^__^
Ps : Scusate la mia esorbitante ignoranza in materia.

Non fate caso a tutti in message box, dovevo eliminarlo ma mi sono
dimenticato ;PP

Newsgroup: it.comp.lang.visual-basic
Titolo: Altro Quesito :-)

E' possibile creare delle textbox o delle label da Codice? O bisogna crearle
sul form?
-- 
___________________________________________________________
Abulion Yorgen
ex-padawan del Venerabile Magister Valar
Maestro Jedi del New Jedi Order
"Un sorriso puo' salvare il mondo (G)!"
Version 2.03 used with Agent 1.8
____________________________________________________________

 --
Ci sono diversi modi.
Una è quello legato all'uso dei "controlli leggeri":
    in MSDN --> Search copia questa stringa e premi "search" -->"kbCtrl
kbCtrlCreate kbVBp kbVBp600 kbVBp kbdsd kbDSupport "
L'altra è quella legata al LOAD dinamico dei controlli quando ti servono, il
seguent esempio inserisce 6 textbox in una form in cui c'è un solo textbox:
1. Crea una nuova form (FORM1)
2. Metti dentro una TextBox (TEXT1)
3. nella proprietà INDEX della TEXT1 digita 0 (zero)
4. nella FORM_LOAD scrivi:
--------------------
    Dim I as Integer
    For I=1 to 5
        load text1(i)
        text1(i).top=text1(i-1).top+text1(i-1).height+30
        text1(i).Visible=true
    Next
--------------------
ciao,
Dads.


Mille grazie Dads :)
Proprio quello che avevo in mente :-) 


 wrote in message
news:ullist0lg1jjmiba3...@4ax.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: filter e lcase

innanzitutto buon anno e buon euro a tutti gli amici vicino e lontani...
dell'euro ormai so praticamente tutto... tranne una cosa... quante lire vale
un euro ??!! è un concetto un po ostico, non mi vuole entrare in testa...
:-)
passiamo a cose serie.
visto che Filter (ADO) è molto comodo, vorrei sapere se è possibile usare,
all'interno della sua stringa di ricerca, le funzioni LCase e UCase.
ad es.
MyRst.Filter= "LCase(NomeCampo)='NomeValore'"
io ho provato, ma mi da un sacco di errori... forse considera LCase come il
nome del capo... come posso fare?
grazie.
Mario

 ha scritto nel messaggio
news:a0sc4g$mnc4i$1...@ID-70152.news.dfncis.de...

Prova ad usare lower().
--
Esteban
Hosted by 
www.seber.it
Remove 'nonspammare' for reply

 ha scritto nel messaggio
news:vqjY7.12524$s04.5...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Do While not EOF(1)

aprendo un file e scrivendo
Do While not EOF(1)
    .............
loop
prendo tutte le righe.....
.......ma se volessi saltare ad es. le prime x righe?
Esiste un comando che mi eviti di dover passare
da una condizione di if ad ogni loop?
grazie

 ha scritto

Prima skippi le X righe, poi analizzi le successive. Semplice, no?
Dim X As Integer
X = 10
Do While Not EOF(1) And X > 0
    ... ' leggi riga
    X = X - 1
Loop
Do While Not EOF(1)
    ...
Loop

 ha scritto nel messaggio
news:ywEK7.1973$4M2....@news2.tin.it...


 wrote in message
news:ywEK7.1973$4M2....@news2.tin.it...


 ha scritto
| JAbba e se volessi inve andare direttamente a una linea di file è fattibile;
No, a meno di sapere quanti byte ci sono tra una riga e l'altra (cioe' se e' costante la lunghezza
di una riga)
| oppure leggere dall'ultima riga.
Cerca Seek (oppure dall'help in linea chiedi info sulla Input, Write, Print e cerca tra gli
argomenti che trovi sul link "See also" in alto a sx)
| Questo per evitare sprechi in grossi file.
Intendi spreco di tempo... immagino... :)

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB5] Dimensioni Immagini nella Picture1!

Ciao a tutti, sono un nuovo iscritto, e avrei bisogno di un vostro aiuto per un problema che mi sta facendo diventare matto da giorni!
Sto effettuando un programma di ricette per un ristorante, dove c'e la possibilità di inserire anche delle immagine per le ricette, da file o da scanner.
Fin qui tutto bene, ma quando scarico da scanner nella Picture1 si visualizzano solamente gli angoli in alto dell'immagine e non interamente.
Potrei usare una Image1 e la sua proprietà Strecht, ma per problemi inerenti al programma stesso devo utilizzare per forza una Picture1.
Vi mostro due righe di codice che sto utlizzando attualmete:
Private Sub mnuScannerizza_Click()
DiscardImage
Dim w As Variant
Dim h As Variant
    If TWAIN_OpenDefaultSource() <> 0 Then
        hDib = TWAIN_AcquireNative(hwnd, nPixTypes)
        If hDib <> 0 Then
 
            hPal = TWAIN_CreateDibPalette(hDib)
            Form_Paint
        End If
    End If
End Sub
Private Sub Form_Paint()
    Dim w As Long, h As Long
  'f hPal <> 0 Then
    End If
    If Form1.Picture1.Picture Then
      Form1.Picture2.PaintPicture Form1.Picture1, 0, 0
        End If
    If hDib <> 0 Then
        w = TWAIN_DibWidth(hDib)
        h = TWAIN_DibHeight(hDib)
        Form1.Picture1.Width, Form1.Picture1.Height
        'TWAIN_DrawDibToDC Form1.Picture1.hDC, 0, 0, w, h, hDib, 0, 0
 
    End If
    Form1.Picture3.PaintPicture Form1.Picture2, 0, 0
End Sub
-- 
vr-claudio 
------------------------------------------------------------------------
View this thread: 
http://www.itsistemi.net/viewtopic-734018.html
Inviato via 
http://www.itsistemi.net

 Potrei usare una Image1 e la sua proprietà Strecht, ma per problemi inerenti al programma stesso devo utilizzare per forza una Picture1.
[CUT]
Potresti fare tu lo strecht dell'immagine, prova a cercare con Google, se non 
la trovi scrivimi che te la mando io.
-- 
ciao Max
         ...  per raggiungermi, -il fuoristrada- non ti serve!
Newsgroup: it.comp.lang.visual-basic
Titolo: A.A.A. CERCASI DRIVER X MASTERIZZATORE TRAXDATA 2260

A.A.A. CERCASI DRIVER X MASTERIZZATORE TRAXDATA 2260
EMAIL 
por...@tin.it

...


...


www.cequadrat.com
-- 
Andrea Palazzi
p...@zelig.mo.it
e' cedoc non zelig


Newsgroup: it.comp.lang.visual-basic
Titolo: :NET Chr$ ?

Scusate se la domanda e' banale, ma come si fa a ottenere un carattere
specificando il suo codice ASCII in 
VB.NET
 ?
Vorrei  NON usare Microsoft.VisualBasic, e' possibilie ?
Grazie
--
Luca Mauri
Founder of the NGs
|- news://free.it.comp.database.mysql
|- news://free.it.software.personalfirewall

Vorrei  NON usare Microsoft.VisualBasic, e' possibilie ?
Anche se non mi piace molto, perche' nasconde un boxing implicito,
puoi usare Convert:
Dim pippo As Char
pippo = Convert.ToChar(65)
Console.WriteLine(pippo)
-- 
hth, hal

 Vorrei  NON usare Microsoft.VisualBasic, e' possibilie ?
Prova cosě:
C#
((char)65).ToString()
VB.net
DirectCast(65, Char).ToString()
Ciao
--
using System.Gtk.Forms = "
http://www.neodatatype.net/windowsforms/sgf.aspx
"
mathParser = "
http://www.neodatatype.net
"
sitoComune = "
http://www.it-lang-vb.net
"

Newsgroup: it.comp.lang.visual-basic
Titolo: Richiesta informazioni!

Salve, qualcuno può dirmi dove posso reperire info sulla gestione degli
interrupt della seriale tramite VB
Grazie 1000

 interrupt della seriale tramite VB
Non è proprio possibile gestire interrupt da VB.
Devi crearti un Driver in C, o delphi, o assembler.
Il Vero problema è che questi driver lavorano ad anello zero del
microprocessore, mentre le applicazioni (come VB) lavorano ad anello 3, e
non possono ricevere il controllo della CPU durante un interrupt.
Come mai hai l'esigenza di gestire gli interrupt della seriale?
Ciao
Ettore Maronese, il Mes

 Ettore Maronese, il Mes
Perchè ho necessità che il programma giri per fatti suoi e che venga
"svegliato" solo se ci sono movimenti da parte della seriale, però studiando
meglio la situazione ho capito che devo seguire la strada dei multithread!
Hai info o DLL o esempi che mi possono aiutare a creare e gestire i
multithreads?
Grazie comunque
Waran77

 Waran77


 Fammi/facci qui sul NG sapere se hai altre perplessità o problemi.
Ti ringrazio per le info, in realtà io devo usare una seriale RS-485 e
quindi gli eventi di MSCOMM.OCX non si scatenano e dovrei mettere un timer
che costantemente ascolti la seriale, inoltre ho la necessità che nel minor
tempo poss, alla ricezione di un comando, il programma si fermi!
Cmq vado a leggermi il tuo articolo, ti/vi faccio sapere come è andata!
Ciao
Waran

 minor tempo poss, alla ricezione di un comando, il programma si fermi!
Cercando su google si trovano dei link interessanti.
Quello che segue è un link che contiene anche lo schema di una rs485, con la 
quale non ho mai avuto il piacere di lavorare.
Con le rs232 invece ci ho lavorato abbastanza.
http://www.accesio.com/go.cgi?p=../pci/pcicom_485_8.html
Se ti posso essere di aiuto in qualche modo, fammi sapere.
Ciao.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Da Listbox a TextBox con Multiline=False

For C=1 to List1.ListCount
      Text1=Text1.Text+" "+List1.List(C-1)
Next C
Il procedimeno è all'incirca questo!
Gianni Moretti

Salve a tutti.
Ho un piccolo quesito da porvi: come posso spostare tutti gli item di una
lisbox in una textbox che ha la proprieta' Multiline=False? Mi spiego
meglio:
Questa e' la mia listbox (List1)
questa e' la prima riga;
questa e' la seconda riga;
ecc. ecc...
Vorrei portare il tutto in una textbox che deve diventare:
questa e' la prima riga; questa e' la seconda riga; ecc ecc...
Grazie anticipatamente.

Grazie 1000!
Ciao.
Zuril

Newsgroup: it.comp.lang.visual-basic
Titolo: Codice prodotto!

Buon giorno a tutti e ben tornati dalle vacanze x chi ci è andato e buone
vacanze per chi ancora deve andare!
Sto sviluppando un programmino che però vorrei pacchettizzare!
vorrei che chi installa tale programma effettui una registrazione,
semplicemente mandandomi un mail alla quale io
darò risposta con un codice prodotto che abiliterà tutte le operazioni che
altrimenti sarebbero bloccate.
Qualcuno potrebbe darmi qualche consiglio in merito?
Grazie e buon lavoro a tutti!
Marco G.

 ha scritto nel messaggio
news:6FFa9.107483$lu5.2...@twister1.libero.it...


 Qualcuno potrebbe darmi qualche consiglio in merito?
C'era stato un bel thread qualche mese fa, con parecchie soluzioni
interessanti.
Cerca su google.
Ciao
Alberto

 
-- 

 altrimenti sarebbero bloccate.
metodo + veloce a costo 0 e che mi viene in mente adesso :
1) leggi seriale dell'hd ( esiste un api mi pare la GetVolumeInfo )
2) dopo aver codificato la stringa come ti pare la invii nella mail
3) ricodifichi il numeri e lo reinvii al cliente
adesso hai un po di cose a cui stare attento , io per un vecchio programma
ho fatto cosi per non far capire che mandavo il codice :
avevo una pagina html nel mio programma che mandava una stringa a una pagina
fissa su un sito , quest'ultima manda l'email in php
in pratica ho adottato questo metodo perche' l'utente finale deve rimanere
all'oscuro dei dati che manda cioe:
1) riempie il modulo di registrazione e clikka invio
2) il prg legge il seriale e lo manda insieme alle informazioni che ha
inserito alla pagina web
3) la pagina web manda l'email quindi il codice dell'hd e le info che
l'utente ha inserito a sua insaputa , lo so che e' da lamer , ma usarle a
fin di bene calma la mia coscenza !

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

Are their any VB tutorials?
thanks
Ian Herbert

Ian Herbert
Try the "Search" zone of my site or browse the "Links" zone.
Ciao
---
--
-
MIX (VB5SP3)
170 links to VB sites
http://www.tempolibero.com/user/mix/
http://space.tin.it/computer/gaais/
-
--
---
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema co Password

Vi prego aiutatemi, ho un grattacapo con la definizione di una password:
in particolare vorrei che se la psw è inserita i controlli su una form
specifica sono abilitati altrimenti li può solo leggere.
per ora ho fatto così: questo codice è sulla form richiedente psw
    'Verifica la validità della password
    If txtPassword = "1" Then
            LoginSucceeded = True
            txtPassword = ""
            Me.Hide
            FSet.Show
    Else
.............................
..................
cosi apro la form Fset dove ho messo:
For i = 0 To 2
        Testo(i).Enabled = LoginSucceeded
Next i
ma la variabile opportunamente dichiarata boolean risulta essere sempre
"false"
Cosa c'è che non và ?
Grazie

 "false"
Ma dove e come l'hai dichiarata?!?!
Se la metti in un modulo e la dichiari cosi' sei sicuro che sia vista da
uno e dall'altro form (e anche da tutti gli altri!):
Public LoginSucceeded As Boolean
Ciaps
Stracca
P.S. Lo usi Option Explicit ?

O dichiari la variabile come nella sezione dichiarazioni del form della password (che chiamo Form1) e poi:
Testo(i).Enabled = Form1.LoginSucceeded
Oppure (e questo è il metodo corretto) dichiari la variabile come Public (Public LoginSucceeded as Boolean) in un modulo
standard (.BAS) e ti comporti come hai fatto.
Se dichiari una variabile all'interno di una procedura, questa vale solo all'interno di quella procedura.
Se la dichiari come Public in un form, è come se la dichiarassi semplicemente con Dim, e questa ha validità in tutte le
procedure della form.
Se la dichiari con Dim in un modulo, questa ha valore in tutte le procedure del modulo,
mentre se invece la dichiari come public all'interno di un modulo, questa vale in tutte le procedure di tutti i moduli e
form.
Spero di essere stato abbastanza chiaro,
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

Newsgroup: it.comp.lang.visual-basic
Titolo: Spero non sii OT: trovare lavoro con VB

Ciao, ho un'infarinatura di VB6  ma vorrei impegnarmi seriamente e
certificarmi MCSD e/o MCDA.
Mi chiedevo: qui in Italia quanto vale un MCSD?
E possibile trovare lavoro non appena si supera il primo esame diventando
MCP o le aziende esigono la certificazione finale MCSD?
Mi aiutereste in questo piano di studi?
Programmare VB6 di Francesco Balena (quasi terminato)
Hardcore Visual Basic
Advanced Visual Bsic
Visual Basic e SQL server
....
Grazie mille a tutti.

 ha scritto nel messaggio
news:SWDI6.13229$UW4.1...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Oggetto Worksheet

    Ciao, qualcuno conosce come fare per eliminare una riga Excel 
utilizzando l'oggetto Worksheet ? .delete credo che elimini solo il 
contenuto delle celle nel Range. Grazie

 contenuto delle celle nel Range. Grazie
Excel ha un metodo moooolto comodo per la programmazione.
Semplicemente, avvia la registrazione di una macro, elimina una riga, e vai
a vedere che codice ha autogenerato :-)

 contenuto delle celle nel Range. Grazie
No, Delete elimina proprio le celle, le righe, le colonne ecc.
Rows(2).Delete
Prova.
Non credi che faresti prima consultando la guida in linea o seguendo il
consiglio di Drizzt?
Ciao
Inviato da 
www.mynewsgate.net

Newsgroup: it.comp.lang.visual-basic
Titolo: numerazione progressiva

Sto cercando di fare una numerazione progresiva per alcuni documenti per la 
mia azienda.
la numerazione sarebbe
1/2006
2/2006
3/2006
...
(n)/200(m)
Questa numerazione fa al caso mio perchè oltre ad un progressivo mi abbina 
l'anno di salvataggio di un documento.
Il mio problema è questo.
Come ricavare n?
Ho creato select di questo tipo
n è la colonna in cui è salvata la numerazione progressiva
dim dato as string
dato = "/" & Year(Date)
select max(left(n,len(n)-5)) as massimo from documenti where n like '%" & 
dato & "%'
etcetcetc
questa select mi da il risultato che  voglio fino a quando la numerazione è 
compresa negli intervalli 1/2006 >> 9/2006
poi ottengo sempre 10/2006
ho provato ad inserire manulamente un 354/2006 nel db ma il risultato della 
query è sempre 10/2006 come se mi vedesse
sempre come valore massimo dell'espressione max(left(n,len(n)-5))= 9
Dove sbaglio???
Grazie
IAK 

Pianto Tardivo ha scritto:

Penso che la cosa più saggia fosse salvare il numero progressivo in un
campo e l'anno in un altro.Tutto ti sarebbe risultato più semplice.:)
Cmq se vuoi utilizzare quella select devi trasformare il tuo dato in
"numerico" se vuoi ottenere una MAX corretta:
 "max(int(left(n,len(n)-5))) "
Bye

 dato & "%'
Se n è di tipo testo, il Max è il max in ordine alfabetico, non certo 
per valore.
Metti una conversione di tipo.
Corretto anche quanto dice Concorde, ossia di splittare la numerazione 
in Progressivo e Anno, e ti ha anche suggerito il Cast corretto (cioè, 
è corretto se usi Access).
A parte questo, mi auguro che tu non sia in ambiente multiutenza, 
altrimenti una cosa del genere ha il rischio che lo stesso Max arrivi a 
due utenti, e entrambi lo incrementino di uno, e entrambi vadano poi a 
scrivere lo stesso nuovo numero.
Ciao
Alberto
-- 
A questo punto hanno trovato un muro,
un muro duro, molto molto duro,
che siamo noi.


No non sono in multiutenza. In quel caso di solito uso le transactions per 
vedere se il codice
è già stato immesso...e robe varie...e soprattutto non uso quel tipo di 
incrementale.
comunque faccio sempre un controllo per vedere se alcuni documenti sono 
stati inseriti oppure cancellati...
prima di salvare il tutto...
Ciao e grazie....
Newsgroup: it.comp.lang.visual-basic
Titolo: CdPlayer.ini

Ciao a tutti,
Innanzitutto complimenti per le molteplici iniziative
da voi prese.... !!
:-))
Dopo tanto ravanare in rete ed ore perse in ricerche
e tentativi non sono riuscito a capire come si puo'
legare logicamente il CDAudio al famigerato file
cdplayer.ini...
Non capisco se la stringa che distingue la sezione
e' calcolata o letta dal supporto fisico....
Es.. di CdPlayer.ini
[A6F866]         <---------   Lei !!!
EntryType=1
artist=Lee Ritenour
title=Stolen Moments
category=Jazz
numtracks=8
0=Uptown
1=Stolen Moments
2=24th Street Blues
3=Haunted Heart
4=Waltz For Carmen
5=St. Bart's
6=Blue In Green
7=Sometime Ago
Per la lettura e scrittura di tutto il resto del file non ho
problemi....
Sto realizzando a scopo autodidattico un progammillo
per archiviarmi i CD (ne ho un discreto numero), e mi
piacerebbe playare il disco dopo aver verificato che
sia quello giusto....
Sono al corrente di tutto il sistema CDDB con il quale
potrebbe essere piu' semplice popolare il DB, ma ho tirato
il freno a mano quando mi e' sembrato di capire che
l'applicazione che si presenta con una query sul server
deve essere una applicazione registrata......o no ???
Grazie molte in anticipo per l'aiuto
Ciao..

Hai provato a guardare il numero di serie del CD?
Forse trovi la soluzione al tuo problema...
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

Ciao,
Innanzitutto grazie per la risposta..
Ci ho pensato, ma non ho capito come leggerlo.....
Puoi/sai darmi degli spunti ??
In effetti alcuni software lo tirano fuori, quindi immagino sia una
procedura standard.....
Riprovero' a quardare il MMPlayer di VBasic......e, adesso che ci
penso...tra le API...
non si sa mai.....grazie.
Ciao.....


 (togliete "#" dall'indirizzo)
Risolto, grazie per lo spunto, API  GetVolumeInformation......
Ciao.. :-))

Newsgroup: it.comp.lang.visual-basic
Titolo: database protetto da password

E' possibile aprire un database access protetto da password usando il
controllo data?
Grazie.
Silvio

In fase di progettazione nella finesta delle proprietą, seleziona la
proprietą "Connect" cancella la dicitura "Access" e al suo posto ci scrivi
";pwd=Apriti Sesamo" ovviamente senza virgolette e con la password giusta!
Ahh Ahh Ahh
_   _
0   0
   |
\___/......(Ciao!)

Newsgroup: it.comp.lang.visual-basic
Titolo: scrivere/leggere il registro di windows

quali chiamate api bisogna usare per poter leggere/scrivere nel registro di
configurazione di windows?
BOOH domanda da 1.000.000.000 $
                                                                Un sincero
grazie a chiunque mi aiuta.
Sparviero...

 
Rispostina semplice semplice, da 10 lire o meno...
Guarda sul sito comune, nella sezione Download/sorgenti ci sono almeno
un paio di esempi...
Ciao
Brando
-- 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Sito comune di it.lang.vb  :  
http://www.murialdo.it/it_lang_vb
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Listview in una DLL o ActiveX, è Possibile?

Salve a tutti,
volevo sapere se era possibile passare come paramentro ad un ActiveX o ad
una DLL una ListView, se questo č possibile mi sapreste indicare il metodo?
Grazie infinite.
        Flame Darkart
__________________________________________________________________ Flame
Darkart ICQ#: 75033011 Current ICQ status: + More ways to contact me i See
more about me:
__________________________________________________________________


Perchč no?
Come qualsiasi altro oggetto.
ciao
ugo

 Perchè no?


 una ListView. Voglio fare un Modulo mio di Ricerca all'interno della
Inserisci in una classe:
Public Property Set ListName(NewObj As Object)
    MsgBox NewObj.Name
    ...
End Property
e nel progetto di test 1 command e una listbox:
Private Sub Command1_Click()
    Dim miaClasse As New Progetto1.Class1
    Set miaClasse.ListName = Me.List1
End Sub
ciao
ugo

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB2013] Elenco delle cartelle partendo dal drive selezionato

Ciao a tutti,
in un programmino ho una listbox che carica tutte le unitï¿œ presenti nel 
sistema il cui codice l'ho preso dagli snippet, ed ï¿œ il seguente:
 
'Il codice seguente ï¿œ inserito nel form_load
For Each drive In My.Computer.FileSystem.Drives
             lbDrive.Items.Add(drive)
Next
 
e successivamente vorrei che in una checkbox mi venisse elencato il 
contenuto del drive che io ho precedentemente selezionato. Siccome non 
ho molta esperienza in merito, non riesco a proseguire, a logica devo 
andare cosï¿œ: dovrei crearmi un vettore di stringhe che in un ciclo 
inserisca il contenuto letto nella checkbox, ma in pratica non riesco a 
farlo.
 
Come procedo?
 
Grazie a tutti in anticipo,
Francesco

Francesco Tattoli ha scritto...

Elencarlo in una CheckBox la vedo dura!!! 
 


Anche se fosse un altro tipo di controllo andrebbe bene, avrei necessitï¿œ 
per di poter selezionare una o piï¿œ cartelle, quindi qualcosa di simile 
ad una checkboxlist
 
P.S.:Mi sono reso conto solo ora di aver scritto checkbox...pardon!!

P.S.:Mi sono reso conto solo ora di aver scritto checkbox...pardon!!
 
stamattina mi sento buona...
 Dim folders() As String = IO.Directory.GetDirectories(drive)
        For Each folder as String In folders
            lbFolder.Items.Add(folder )
        Next

Newsgroup: it.comp.lang.visual-basic
Titolo: [?2] Aggiornamento dei datareport

Ri-posto il seguente messaggio a distanza di una settimana, nella speranza
che qualcuno riesca a risolvere il problema.
Dopo aver aperto e chiuso un oggetto DataReport, se poi lo riapro ancora,
nonostante le modifiche al database, il contenuto del DataReport rimane
invariato.
Ho provato col "Refresh", senza successo, oppure rieseguendo il command del
dataenvironment, ma me lo aggiorna dopo due o tre volte che apro il
DataReport.
Qualcuno potrebbe dirmi come fare?
Grazie anticipatamente
Dota

 Dota

 ha scritto nel messaggio
news:rLrq6.51506$Xj7.5...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: vb6+sp4=Access2000

Manco per il cavolo!!
dopo aver installato ben 128Mb di SP i database di Access2000 sono ancora
inaccessibili!
(maledizione a me e a quando ho messo office2000)
devo attivare forse qualche funzione od opzione nascosta chissa dove?
Per il momento continuo a convertirmi i DB.....
saluti a tutti!.....
--
____________________________
   G 1 0 X®
Web: 
www.giox.net
Alt. Mail: 
info...@libero.it
Icq Uin: 47698601
Irc Chan. @azzurranet:
   #mhackerone; #ahccc; #linux;
_____________________________

 devo attivare forse qualche funzione od opzione nascosta chissa dove?
perchè SP4? è uscito il 5...
cmq controlla in Progetto - Riferimenti di aver selezionato Microsoft
DAO 3.6 Object Library
Ciao
Faber

 ha scritto nel messaggio
news:udVQ6.10000$HK.5...@news.infostrada.it...


Norton antivirus riconosce office2000 come virus!!

> Norton antivirus riconosce office2000 come virus!!
beh? che c'è di strano?  :)
Faber

 devo attivare forse qualche funzione od opzione nascosta chissa dove?
mmm, nascosta...
Non è che pretendevi che il Sp facesse una scansione dei tuoi dischi
sostituendo a tua insaputa i riferimenti alle varie versioni di Dao nei tuoi
progetti Vb?
:-)
ciao
ugo

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Terminare stringa con CTRL+Z

Se devo costruire una stringa che termini con il carattere CTRL+Z, come devo
fare?
Dim MansaSMS as String
MansaSMS = "AT+CMGS=" & Chr$(34) & NumeroTelefono & Chr$(34) & vbCr & "Prova
messaggio" & <cosa?!?!?!>
cosa devo concatenare alla fine della stringa per aggiungere CTRL+Z?
Grazie!!!!
Good coding!!!
--
Damiani Liborio Igor
ig...@igordamiani.it
 - 
soft...@igordamiani.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262

 cosa devo concatenare alla fine della stringa per aggiungere CTRL+Z?
Prova a vedere questa tabella:
http://www.control.co.kr/dic/ascii.htm
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

grazie, stavo giusto facendo qualche ricerca con google.....
thanks!!!

Newsgroup: it.comp.lang.visual-basic
Titolo: Aggiornare Database .mdb da file di testo

Ciao a tutti,
ho un "piccolo problema":
sto sviluppando un'applicazione che deve importare dei files di testo in
un database Access. Sin qui nessun problema, poichč riesco ad importare
automaticamente il file di testo in una nuova tabella con l'istruzione
'connect' e le appropriate impostazioni nel file <nomeprg>.INI. Vorrei
perň aggiornare la tabella principale con successive importazioni dei
files di testo in maniera automatica evitando di convertire
continuamente in una singola tabella i files di testo e di inserirne i
record manualmente in quella principale.
Esiste un sistema per far sě che una tabella di Access venga aggiornata
da un file di testo direttamente?
Grazie a tutti in anticipo,
Daniele Di Gregorio
--
----------------------------------
   * IKARO net communications *
 
http://www.ikaro.com
Virtual Hosting & Tech. resources
----------------------------------

...



Newsgroup: it.comp.lang.visual-basic
Titolo: frmsplash

come si far per far si che dopo un determinato periodo di secondi mettiamo 5
sparisca il form SPLASH
e che compaia il form iniziale del programma?
grazie a tutti
--
Josuke Higashikata
------------------------
Membro del Jojo Fan Club
------------------------
Autore della home page italiana dedicata a JOJO NO KIMIYONA BOKEN
HIROHIKO ARAKI'S WORLD
http://members.xoom.com/hirohikoa/index.html

 e che compaia il form iniziale del programma?
Inserisci un timer impostato su true nel frmsplash e settato a 5000 millesimi.
Nell'evento timer metti
frmPrincipale.Show
Unload me
Dovrebbe andare!
dario...@iol.it
http://dariobrunocorti.freeweb.org

 Dovrebbe andare!
si grazie tanto funziona alla meravigliaa

e che compaia il form iniziale del programma?
Fa sě che il programma abbia come modulo di avvio una Sub Main
in quella procedura caricai la form splash come modale e che alla sua chiusura vanga caricata la principale (frmmain):
frmsplash.show 1
frmmain.show
Nella form splash metti un timer (che si attiva all'apertura) che dopo 5 secondi ti scarica la form: in questo modo il
controllo passa nuovamente alla main che cairca a form principale.
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
---------------------------------------------------------------------------

sparisca il form SPLASH
Prova con l'API Sleep. La trovi con il visualizzatore di API, poi nel
modulo fai Sleep 5000. Ciao.
----------------------------------------------
 Donatello Rizzo - Software Designer
 Via P. Nenni, 4 - 73040 Melissano (LE) ITALY
 Tel.: 0833/581370 - Mob.: 0347/3024131
 E-Mail: 
rav...@mail6.clio.it
------- KYOKUSHINKAI KARATE HOME PAGE --------
http://www.geocities.com/Colosseum/Arena/1919/
----------- THE RIZZO'S OBSOLETES ------------
 
http://www.geocities.com/Area51/Meteor/6686/
---------------------------------------------- 
"Addestreremo i nostri cuori e corpi per uno
spirito incrollabilmente fisso."
                               Sosai Mas Oyama
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT?] Protezione SW

salve a tutti,
mi accingo a distribuire un'applicazione che ritengo verrà utilizzata da
diverse persone.
Ad ognuna verrà fornito il cd di installazione,ma il mio dubbio è
questo,come fare
per impedire che i signori diano o rivendano il cd con il sw?
Ritenete sia scorretto fornire un'applicazione per gestione remota e
completare successivamente l'istallazione nella macchina del cliente? Previo
accertamento di avvenuto pagamento...
Avreste qualche soluzione?
Cordialità
Giovanni

 Avreste qualche soluzione?
Personalmente (se l'applicativo ha delle date "sensibili") metto anche una
data di scadenza annuale. In prossimità della scadenza (analogamente alla
prima installazione/abilitazione) l'operatore mi chiama, mi comunica una
serie di caratteri e io un'altra. Con ciò abilito/riabilito l'applicativo
per un altro anno.
Ovviamente lo devo fare anche per chi non paga contratto di manutenzione.

Sei un grande come sempre.
Il tuo consiglio mi è prezioso perchè non avevo idea su che linea adottare.
Grazie
Johnny

 Il tuo consiglio mi č prezioso perchč non avevo idea su che linea
adottare.
Ti ringrazio, ma stai esagerando. Io non ho la veritą assoluta!
Ti consiglio, prima di partire in quarta, di aspettare qualche altra idea,
... ehm ... come faccio anch'io.

 ... ehm ... come faccio anch'io.
certo, i consigli ...che ben vengano...tuttavia,mi confermi che non c'è
nulla di illegale nel
fornire un software perfettamente funzionante ma disabilitato.
Per la serie...se mi paghi...ti abilito...!!
Attendiamo altri consigli
Ciao
Johnny

 Per la serie...se mi paghi...ti abilito...!!
Chi vende pone le proprie condizioni, chi compra decide se gli stanno bene.
Quindi è assolutamente legale anche dire "il mio software funziona solo
dalle 9 alle 12 dei giorni dispari dei mesi pari, mentre dalle 15 alle 18
nei giorni pari dei mesi dispari".
Che questo poi sia accettabile, ... è un altro discorso. No?! ;-))